diff --git a/ADMIN.sln b/ADMIN.sln index 20ac960..dae6a70 100644 --- a/ADMIN.sln +++ b/ADMIN.sln @@ -21,8 +21,6 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MailSender", "MailSender\Ma EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ATILLA_Speditionsbuch", "ATILLA_Speditionsbuch\ATILLA_Speditionsbuch.vbproj", "{2007DD34-7BB4-4A31-A6B9-BCE62BF0AFDA}" EndProject -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}" -EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "DAKOSY_Worker\DAKOSY_Worker_lib.vbproj", "{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}" EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}" @@ -35,6 +33,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RKSV_DE", "RKSV_DE\RKSV_DE. EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MIC_Worker_lib", "MIC_Worker_lib\MIC_Worker_lib.vbproj", "{60833DC6-70ED-450A-B51F-4A953E67ADA0}" EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU @@ -113,16 +113,6 @@ Global {2007DD34-7BB4-4A31-A6B9-BCE62BF0AFDA}.Debug|x64.Build.0 = Debug|Any CPU {2007DD34-7BB4-4A31-A6B9-BCE62BF0AFDA}.Release|Any CPU.ActiveCfg = Release|Any CPU {2007DD34-7BB4-4A31-A6B9-BCE62BF0AFDA}.Release|Any CPU.Build.0 = Release|Any CPU - {2007DD34-7BB4-4A31-A6B9-BCE62BF0AFDA}.Release|x64.ActiveCfg = Release|Any CPU - {2007DD34-7BB4-4A31-A6B9-BCE62BF0AFDA}.Release|x64.Build.0 = Release|Any CPU - {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU - {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.ActiveCfg = Debug|Any CPU - {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.Build.0 = Debug|Any CPU - {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU - {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU - {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.ActiveCfg = Release|Any CPU - {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.Build.0 = Release|Any CPU {50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.Build.0 = Debug|Any CPU {50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.ActiveCfg = Debug|Any CPU @@ -169,8 +159,6 @@ Global {60833DC6-70ED-450A-B51F-4A953E67ADA0}.Debug|x64.Build.0 = Debug|Any CPU {60833DC6-70ED-450A-B51F-4A953E67ADA0}.Release|Any CPU.ActiveCfg = Release|Any CPU {60833DC6-70ED-450A-B51F-4A953E67ADA0}.Release|Any CPU.Build.0 = Release|Any CPU - {60833DC6-70ED-450A-B51F-4A953E67ADA0}.Release|x64.ActiveCfg = Release|Any CPU - {60833DC6-70ED-450A-B51F-4A953E67ADA0}.Release|x64.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index 8df92d9..54840f1 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -46,7 +46,7 @@ - ..\..\..\dll\Renci.SshNet.dll + \\ylps023046.verag.ost.dmn\VB\dll\Renci.SshNet.dll @@ -323,7 +323,7 @@ - + {a3b497bd-842c-4a2b-b398-ed1976849df1} VERAG_PROG_ALLGEMEIN diff --git a/DienstplanTV/DienstplanTV.vbproj b/DienstplanTV/DienstplanTV.vbproj index 9232dad..9c4ff6c 100644 --- a/DienstplanTV/DienstplanTV.vbproj +++ b/DienstplanTV/DienstplanTV.vbproj @@ -127,10 +127,6 @@ - - {a3b497bd-842c-4a2b-b398-ed1976849df1} - VERAG_PROG_ALLGEMEIN - {6eb4d3a4-3cf2-4651-9af9-ad5f727df403} ADMIN diff --git a/MDM_Worker/MDM_Worker_lib.vbproj b/MDM_Worker/MDM_Worker_lib.vbproj index 46b84f4..472aea0 100644 --- a/MDM_Worker/MDM_Worker_lib.vbproj +++ b/MDM_Worker/MDM_Worker_lib.vbproj @@ -104,7 +104,7 @@ - + {a3b497bd-842c-4a2b-b398-ed1976849df1} VERAG_PROG_ALLGEMEIN diff --git a/MailSender/MailSender.vbproj b/MailSender/MailSender.vbproj index 9887acc..0ab484e 100644 --- a/MailSender/MailSender.vbproj +++ b/MailSender/MailSender.vbproj @@ -144,10 +144,6 @@ - - {a3b497bd-842c-4a2b-b398-ed1976849df1} - VERAG_PROG_ALLGEMEIN - {6eb4d3a4-3cf2-4651-9af9-ad5f727df403} ADMIN diff --git a/RKSV_DE/RKSV_DE.vbproj b/RKSV_DE/RKSV_DE.vbproj index d0a4757..01a84a4 100644 --- a/RKSV_DE/RKSV_DE.vbproj +++ b/RKSV_DE/RKSV_DE.vbproj @@ -49,7 +49,7 @@ - ..\..\..\..\RKSV DE\KsVCom.dll + \\ylps023046.verag.ost.dmn\VB\dll\KsVCom.dll diff --git a/SDL/SDL b/SDL/SDL new file mode 160000 index 0000000..f2f9925 --- /dev/null +++ b/SDL/SDL @@ -0,0 +1 @@ +Subproject commit f2f992547dcea0e64e47491e5100d729dcf1964c diff --git a/SDL/VERAG_PROG_ALLGEMEIN/AVISO/Form1.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/Form1.Designer.vb new file mode 100644 index 0000000..f7a7ec8 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/Form1.Designer.vb @@ -0,0 +1,30 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Text = "Form1" + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/AVISO/Form1.vb b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/Form1.vb new file mode 100644 index 0000000..17d6595 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/Form1.vb @@ -0,0 +1,3 @@ +Public Class Form1 + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cClassesAVISO.vb b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cClassesAVISO.vb new file mode 100644 index 0000000..5b940c8 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cClassesAVISO.vb @@ -0,0 +1,16 @@ + + +Public Class listMaAVG + Public mit_id As Integer + Public mit_name As String + Public mit_avg As Integer + Public mit_count As Integer + +End Class + +Public Class listStatAvisoProleme + Public VermerkeCode As Integer + Public Bezeichnung As String + Public AnzahlVermerke As Integer +End Class + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb new file mode 100644 index 0000000..e793065 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -0,0 +1,2958 @@ +Imports System.Data +'Imports Gemeinsames +Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO +Imports VERAG_PROG_ALLGEMEIN.cGlobal +Imports System.Data.SqlClient +Imports System.Globalization + + +Public Class cSqlDb + + Public Shared Function GetSDLConnectionString() As String + Return VERAG_PROG_ALLGEMEIN.SQL.GetSDLConnectionString() + End Function + Public Shared Function GetADMINConnectionString() As String + Return VERAG_PROG_ALLGEMEIN.SQL.GetADMINConnectionString + End Function + Public Shared Function GetFMZOLLConnectionString() As String + Return VERAG_PROG_ALLGEMEIN.SQL.GetFMZOLLConnectionString + End Function + Public Shared Function GetATLASConnectionString() As String + Return VERAG_PROG_ALLGEMEIN.SQL.GetATLASConnectionString + End Function + + Public Shared Function GetEZOLLConnectionString() As String + Return VERAG_PROG_ALLGEMEIN.SQL.GetEZOLLConnectionString + End Function + Public Shared Function GetAVISOConnectionString() As String + Return VERAG_PROG_ALLGEMEIN.SQL.GetAVISOConnectionString + End Function + + + Public Shared Function GetNewOpenConnection(Optional pooling As Boolean = True) As SqlConnection + Dim cn As New SqlConnection() + 'cn.ConnectionString = My.Resources.connStringSDL_DEV + ' IMMER DIE AKTUELLE CONNECTION IN MY.SETTINGS ÄNDERN!!! --> WG. BINDING + cn.ConnectionString = GetSDLConnectionString() & CStr(IIf(pooling, "", ";pooling=false")) + cn.Open() + Return cn + End Function + Public Shared Function GetNewOpenConnectionLogin() As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = GetADMINConnectionString() + cn.Open() + Return cn + End Function + + Public Shared Function GetNewOpenConnectionFMZOLL(Optional pooling As Boolean = True) As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = GetFMZOLLConnectionString() & CStr(If(pooling, "", ";pooling=false")) + cn.Open() + Return cn + End Function + Public Shared Function GetNewOpenConnectionATLAS() As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = GetATLASConnectionString() + + cn.Open() + Return cn + End Function + + Public Shared Function GetNewOpenConnectionEZOLL() As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = GetEZOLLConnectionString() + + cn.Open() + Return cn + End Function + + Public Shared Function GetNewOpenConnectionAVISO() As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = GetAVISOConnectionString() + + cn.Open() + Return cn + End Function + + Public Shared Function GetNewOpenConnectionFMZOLLREAL() As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.FMZOLL_PRODConnectionString + cn.Open() + Return cn + End Function + + + Public Shared Function checkNullStr(ByVal o As Object) As String + If o IsNot Nothing And o IsNot DBNull.Value Then Return CStr(o) + Return "" + End Function + Public Shared Function checkNullInteger(ByVal o As Object) As Integer + If o IsNot Nothing And o IsNot DBNull.Value Then Return CInt(o) + Return -1 + End Function + Public Shared Function checkNullReturnValue(ByVal o As Object, ByVal returnValue As Object) As Object + If o IsNot Nothing And o IsNot DBNull.Value Then Return (o) + Return returnValue + End Function + + Public Shared Function checkNullIntegerZero(ByVal o As Object) As Integer + If o IsNot Nothing And o IsNot DBNull.Value Then Return CInt(o) + Return 0 + End Function + Public Shared Function checkNulDbl(ByVal o As Object) As Double + If o IsNot Nothing And o IsNot DBNull.Value Then Return CDbl(o) + Return -1 + End Function + Public Shared Function checkNullBoolCheckState(ByVal o As Object) As Integer + If o IsNot Nothing And o IsNot DBNull.Value Then Return 2 + Try + If CBool(o) = True Then Return 1 + If CBool(o) = False Then Return 0 + Catch ex As Exception + End Try + Return 2 + End Function + Public Shared Function checkNullBool(ByVal o As Object) As Boolean + If o Is Nothing Or o Is DBNull.Value Then Return False + Try + Return CBool(o) + Catch ex As Exception + End Try + Return False + End Function + Public Shared Function checkNullDate(ByVal o As Object) As Date + If o IsNot Nothing And o IsNot DBNull.Value Then Return CDate(o) + Return Now + End Function + Public Shared Function checkNullDateNothing(ByVal o As Object) As Object + If o Is DBNull.Value Then + Return Nothing + Else + Return CDate(o) + End If + End Function + Public Shared Function setNullDate(ByVal o As String) As Object + Try + If IsDate(o) Then Return CDate(o) + Catch ex As Exception + End Try + Return DBNull.Value + End Function + Public Shared Function setNullInteger(ByVal o As Integer) As Object + Try + If IsNumeric(o) AndAlso o >= 0 Then Return CInt(o) + Catch ex As Exception + End Try + Return DBNull.Value + End Function + Public Shared Function setNullBoolean(ByVal o As Integer) As Object + Try + If o = 0 Then Return False + If o = 1 Then Return True + Catch ex As Exception + End Try + Return DBNull.Value + End Function +End Class + + +Public Class cDatenbankAVISO + + + Public Shared GlobalConnection As SqlConnection = Nothing + Public Shared GlobalConnectionFMZOLL As SqlConnection = Nothing + + Public Shared Function GetNewOpenConnection(Optional newConn As Boolean = False) As SqlConnection + Try + If GlobalConnection Is Nothing Or newConn Then + GlobalConnection = New SqlConnection(cSqlDb.GetAVISOConnectionString) + End If + If GlobalConnection.State = ConnectionState.Broken Or GlobalConnection.State = ConnectionState.Closed Then + GlobalConnection.Open() + End If + Return GlobalConnection + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & vbCrLf & vbNewLine & vbCrLf & "Fehler: " & ex.Message & ex.StackTrace) + End Try + Return Nothing + End Function + + Public Shared Function GetNewOpenConnectionFMZOLL(Optional newConn As Boolean = False) As SqlConnection + Try + If GlobalConnectionFMZOLL Is Nothing Or newConn Then + GlobalConnectionFMZOLL = New SqlConnection(cSqlDb.GetFMZOLLConnectionString) + End If + If GlobalConnectionFMZOLL.State = ConnectionState.Broken Or GlobalConnectionFMZOLL.State = ConnectionState.Closed Then + GlobalConnectionFMZOLL.Open() + End If + Return GlobalConnectionFMZOLL + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & vbCrLf & vbNewLine & vbCrLf & "Fehler: " & ex.Message) + End Try + Return Nothing + End Function + + + Public Shared Function GetNewOpenConnectionWithoutError(Optional newConn As Boolean = False) As SqlConnection + Try + If GlobalConnection Is Nothing Or newConn Then + GlobalConnection = New SqlConnection(cSqlDb.GetAVISOConnectionString) + End If + If GlobalConnection.State = ConnectionState.Broken Or GlobalConnection.State = ConnectionState.Closed Then + GlobalConnection.Open() + End If + Return GlobalConnection + Catch ex As Exception + ' MsgBox("Problem" & vbCrLf & vbNewLine & vbCrLf & "Fehler: " & ex.Message) + End Try + Return Nothing + End Function + Public Shared Function GetNewOpenConnectionADMIN() As SqlConnection + Try + Dim conn As New SqlConnection(cSqlDb.GetADMINConnectionString) + conn.Open() + Return conn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Es konnte keine Verbindung zur ADMIN-Datenbank aufgebaut werden." & vbCrLf & "connStr=" & cSqlDb.GetAVISOConnectionString & vbCrLf & "Fehler: " & ex.Message) + End Try + Return Nothing + End Function + + + Public Shared Function GetNewOpenConnection2() As SqlConnection + 'Dim Start As Integer = My.Computer.Clock.TickCount + Const useGlobalConnection As Boolean = True + Try + If useGlobalConnection Then + If GlobalConnection Is Nothing Then + GlobalConnection = New SqlConnection + GlobalConnection.ConnectionString = cSqlDb.GetAVISOConnectionString + End If + If GlobalConnection.State = ConnectionState.Broken Or GlobalConnection.State = ConnectionState.Closed Then + GlobalConnection.Open() + End If + 'cGlobal.hDauerOpen += My.Computer.Clock.TickCount - Start + Return GlobalConnection + Else + Dim conn As New SqlConnection + conn.ConnectionString = cSqlDb.GetAVISOConnectionString + conn.Open() + 'cGlobal.hDauerOpen += 1 + 'cGlobal.hDauerOpen += My.Computer.Clock.TickCount - Start + Return (conn) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler bei Datenbank öffnen. " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler bei Datenbank öffnen." & vbCrLf & "connStr=" & cSqlDb.GetAVISOConnectionString & vbCrLf & "Fehler: " & ex.Message) + Return Nothing + End Try + End Function + +End Class + + +Public Class cMitarbeiterAVISO + Property MitarbeiterID As Integer + Property Mitarbeiter As String + Property Mitarbeitername As String + Property KW As String + ' Property Sicherheitsstufe As Integer + Property Info As String + ' Property Grenzstelle As String + ' Property Abteilung As String = "" + Property StandartFiliale As Integer = -1 + Property mit_FMZollPersID As Integer = -1 + Property mit_username As String + +End Class + +Public Class cADMIN + + ' Public USRNAME As String + 'Public USRID As String + 'Public USERBER As String + Public cMitarbeiterAVISO As cMitarbeiterAVISO + ' Private Property USERBER As Object + + + + Public Function getAktuelleVersion(Optional progname As String = "AVISO_NEW") As String + Dim sql As String = "SELECT prog_aktuelleVersion FROM tblProgramme WHERE prog_codename=@codename" + Dim dr As SqlDataReader + Using conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@codename", progname) + dr = cmd.ExecuteReader() + Try + If dr.Read Then Return CStr(dr.Item("prog_aktuelleVersion")) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler mit der Datenbankverbindung. " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return "0" + End Function + Public Function getPwdFromUsrname(ByVal user As String, ByVal firma As String) As String + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql("SELECT mit_pwd FROM tblMitarbeiter where mit_username='" & user & "' COLLATE Latin1_General_CS_AS AND (mit_firma='" & firma & "' OR mit_firma='ALL' ) ", "ADMIN") + End Function + + Public Function getPwdFromUsrId(ByVal userId As String) As String + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql("SELECT mit_pwd FROM tblMitarbeiter where mit_id='" & userId & "' ", "ADMIN") + End Function + Public Function getUnameFromUsrId(ByVal userId As String) As String + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql("SELECT mit_username FROM tblMitarbeiter where mit_id='" & userId & "' ", "ADMIN") + End Function + + Public Function checkLogin(ByVal user As String, ByVal pwd As String, ByVal firma As String) As Boolean + + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(firma = "", "VERAG", firma) + + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + 'Dim sql As String = "SELECT mit_vname,mit_nname,mit_berechtigung FROM tblUser where mit_username=@mit_username COLLATE Latin1_General_CS_AS and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS " + Dim sql As String = "SELECT mit_id,mit_vname,mit_nname,mit_niederlassung,mit_username,mit_pwd,mit_info,mit_abteilung,mit_standartFiliale,mit_FMZollPersID,mit_firmaFMZoll,mit_TESTonly FROM " & + " tblMitarbeiter,tblBerProg where mit_username=@mit_username and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS AND (mit_firma=@mit_firma OR mit_firma='ALL' ) AND bepr_programm=@bepr_programm AND bepr_userId=mit_id " + + + Dim dr As SqlDataReader + + Try + Using conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand(sql, conn) + + cmd.Parameters.AddWithValue("@mit_username", user) + cmd.Parameters.AddWithValue("@mit_pwd", pwd) + cmd.Parameters.AddWithValue("@bepr_programm", "AVISO") + cmd.Parameters.AddWithValue("@mit_firma", firma) + + dr = cmd.ExecuteReader() + cMitarbeiterAVISO = New cMitarbeiterAVISO + + + If dr.Read Then + cMitarbeiterAVISO.MitarbeiterID = CInt(dr.Item("mit_id")) + ' cMitarbeiterAVISO.Grenzstelle = CStr(dr.Item("mit_niederlassung")) + ' If cMitarbeiterAVISO.Grenzstelle = "Suben" Then cMitarbeiterAVISO.Grenzstelle = "SUB" + ' If cMitarbeiterAVISO.Grenzstelle = "Waidhaus" Then cMitarbeiterAVISO.Grenzstelle = "WAI" + ' If cMitarbeiterAVISO.Grenzstelle = "Nickelsdorf" Then cMitarbeiterAVISO.Grenzstelle = "NKD" + ' If cMitarbeiterAVISO.Grenzstelle = "Salzburg" Then cMitarbeiterAVISO.Grenzstelle = "SBG" + ' If cMitarbeiterAVISO.Grenzstelle = "" Then cMitarbeiterAVISO.Grenzstelle = "???" + cMitarbeiterAVISO.Mitarbeiter = CStr(dr.Item("mit_username")) + cMitarbeiterAVISO.Mitarbeitername = CStr(dr.Item("mit_vname")) & " " & CStr(dr.Item("mit_nname")) + cMitarbeiterAVISO.KW = CStr(dr.Item("mit_pwd")) + ' cMitarbeiterAVISO.Sicherheitsstufe = CInt(dr.Item("ber_sicherheitsstufe")) + cMitarbeiterAVISO.Info = CStr(dr.Item("mit_info")) + ' If dr.Item("mit_abteilung") IsNot DBNull.Value Then cMitarbeiterAVISO.Abteilung = CStr(dr.Item("mit_abteilung")) + cMitarbeiterAVISO.StandartFiliale = VarToInt2(dr.Item("mit_standartFiliale")) + cMitarbeiterAVISO.mit_FMZollPersID = VarToInt2(dr.Item("mit_FMZollPersID")) + cMitarbeiterAVISO.mit_username = VarToStr(dr.Item("mit_username")) + + ' VERAG_PROG_ALLGEMEIN.cAllgemein.USRBER = CInt(dr.Item("ber_sicherheitsstufe")) + VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = CStr(dr.Item("mit_niederlassung")) + VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = CStr(dr.Item("mit_abteilung")) + VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = CInt(dr.Item("mit_id")) + ' VERAG_PROG_ALLGEMEIN.cAllgemein.USR_VNAME = CStr(dr.Item("mit_vname")) + ' VERAG_PROG_ALLGEMEIN.cAllgemein.USR_NNAME = CStr(dr.Item("mit_nname")) + 'VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME = CStr(dr.Item("mit_vname")) & " " & CStr(dr.Item("mit_nname")) + VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = CStr(dr.Item("mit_username")) + If dr.Item("mit_firmaFMZoll") Is DBNull.Value Then + MsgBox("Benutzer muss einer Firma zugeordnet sein!") + Return False + End If + + If dr.Item("mit_TESTonly") And Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + MsgBox("Benutzer ist nur für das Testsystem freigeschaltet!") + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True 'umschalten auf das TESTSYSTEM + End If + + + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = CInt(dr.Item("mit_firmaFMZoll")) + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_NAME = getValueTxtBySql("SELECT Firma_Bez FROM tblFirma WHERE Firma_ID= " & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID, "FMZOLL") + + VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER() + VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA() + + cGlobal.AktiverMitarbeiter = cMitarbeiterAVISO + + Return True + End If + 'USERBER = CStr(dr.Item("ber_sicherheitsstufe")) : USRNAME = CStr(dr.Item("mit_vname")) & " " & CStr(dr.Item("mit_nname")) : USRID = CStr(dr.Item("mit_id")) : Return True + + End Using + End Using + dr.Close() + Catch ex As Exception + MsgBox("Fehler mit der Datenbankverbindung.", "Datenbankfehler") + Return False + End Try + + Return False + End Function + + + + + Public Function getUstName_ByAD(Domain As String, User As String) As String + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql("SELECT TOP 1 [mit_username] FROM [tblMitarbeiter] WHERE ([mit_AliasAD_Domain]='" & Domain & "' AND [mit_AliasAD_Username]='" & User & "') Or ([mit_AliasAD_Domain2]='" & Domain & "' AND [mit_AliasAD_Username2]='" & User & "' )", "ADMIN") + End Function + + Public Function getUstId_ByAD(Domain As String, User As String) As Integer + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql("SELECT TOP 1 [mit_id] FROM [tblMitarbeiter] WHERE ([mit_AliasAD_Domain]='" & Domain & "' AND [mit_AliasAD_Username]='" & User & "') Or ([mit_AliasAD_Domain2]='" & Domain & "' AND [mit_AliasAD_Username2]='" & User & "' )", "ADMIN",,, "-1") + End Function + + Public Function getBezById(id As Integer) As String + + Dim sql As String = "SELECT Firma_Bez FROM tblFirma WHERE Firma_ID=@id " + Dim dr As SqlDataReader + Try + Using conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@id", id) + dr = cmd.ExecuteReader() + If dr.HasRows AndAlso dr.Read Then + Return CStr(dr.Item(0)) + End If + End Using + End Using + dr.Close() + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler mit der Datenbankverbindung. " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + End Try + Return "" + End Function + + + Public Function loadCboBySql(ByVal sql As String, Optional conn_art As String = "AVISO", Optional newConn As Boolean = False, Optional conn As SqlConnection = Nothing) As List(Of Object) + + + Dim o As New List(Of Object) + Try + If conn Is Nothing Then + Select Case conn_art + Case "AVISO" : conn = cDatenbankAVISO.GetNewOpenConnection(newConn) + Case "FMZOLL" : conn = cDatenbankAVISO.GetNewOpenConnectionFMZOLL(newConn) + End Select + End If + ' Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read + o.Add(dr.Item(0)) + End While + dr.Close() + End Using + conn.Close() + ' End Using + Return o 'While Schleife wird hier verlassen + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + + Return Nothing + End Function + + Public Function loadCboBySqlWithListItem(ByVal sql As String, Optional showValueInText As Boolean = True, Optional conn_art As String = "AVISO") As List(Of MyListItem) + Dim o As New List(Of MyListItem) + Try + Dim conn As New SqlConnection + Select Case conn_art + Case "AVISO" : conn = cDatenbankAVISO.GetNewOpenConnection() + Case "FMZOLL" : conn = cDatenbankAVISO.GetNewOpenConnectionFMZOLL + End Select + + Using cmd As New SqlCommand(sql, conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read + If showValueInText Then + o.Add(New MyListItem(CStr(dr.Item(0)) & vbTab & " - " & CStr(dr.Item(1)), CStr(dr.Item(0)))) + Else + Try + o.Add(New MyListItem(CStr(dr.Item(1)), CStr(dr.Item(0)))) + Catch ex As Exception + o.Add(New MyListItem(CStr(dr.Item(0)), CStr(dr.Item(0)))) + End Try + End If + + End While + dr.Close() + End Using + conn.Close() + + Return o 'While Schleife wird hier verlassen + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + + Return Nothing + End Function + + Public Function getValueTxtBySql(ByVal sql As String, Optional conn_art As String = "AVISO") As String + Dim s As String = "" + Try + 'MsgBox("1") + Dim conn As New SqlConnection + Select Case conn_art + Case "AVISO" : conn = cDatenbankAVISO.GetNewOpenConnection() + Case "ADMIN" : conn = cDatenbankAVISO.GetNewOpenConnectionADMIN() + Case "FMZOLL" : conn = cDatenbankAVISO.GetNewOpenConnectionFMZOLL + + End Select + + Using cmd As New SqlCommand(sql, conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + If Not dr.Item(0) Is DBNull.Value Then + s = CStr(dr.Item(0)) + End If + End If + dr.Close() + End Using + conn.Close() + + Return s + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + 'MsgBox("3") + Return "" + End Function + + Public Function doSQL(ByVal sql As String, Optional conn_art As String = "AVISO", Optional conn As SqlConnection = Nothing) As Boolean + If conn Is Nothing Then + Select Case conn_art + Case "AVISO" : conn = cDatenbankAVISO.GetNewOpenConnection() + Case "FMZOLL" : conn = cDatenbankAVISO.GetNewOpenConnectionFMZOLL + End Select + End If + Try + ' MsgBox(sql) + Using cmd As New SqlCommand(sql, conn) + cmd.ExecuteNonQuery() + End Using + conn.Close() + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + Return False + End Function + +End Class + +Public Class cMitarbeiterAVISODAL + + Public Function LesenMitarbeiter(hID As Integer, hKürzel As String) As cMitarbeiterAVISO + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String + If hID > 0 Then + sql = String.Format("SELECT * FROM Mitarbeiter WHERE MitarbeiterID = {0}", hID) + Else + sql = String.Format("SELECT * FROM Mitarbeiter WHERE Mitarbeiter = '" & hKürzel.Trim & "'") + End If + Dim daten As cMitarbeiterAVISO = Nothing + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + daten = New cMitarbeiterAVISO + daten.MitarbeiterID = VarToInt(dr.Item("MitarbeiterID")) + daten.Mitarbeiter = VarToStr(dr.Item("Mitarbeiter")) + daten.Mitarbeitername = VarToStr(dr.Item("Mitarbeitername")) + daten.KW = VarToStr(dr.Item("KW")) + ' daten.Sicherheitsstufe = VarToInt(dr.Item("Sicherheitsstufe")) + daten.Info = VarToStr(dr.Item("Info")) + ' daten.Grenzstelle = VarToStr(dr.Item("Grenzstelle")) + End If + dr.Close() + End Using + End Using + conn.Close() + Return daten + End Function + + Public Function Anzeigen_Mitarbeiter(hSQL As String) As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + Dim myTable = New DataTable() + 'Dim sql As String + 'sql = hSQL + Using cmd As New SqlCommand(hSQL, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'Anzeigen_Mitarbeiter'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programm wird aufgrund eines kritischen Problems beendet." & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + conn.Close() + End While + Return Nothing + End Function + + Public Function Anzeigen_cboMitarbeiter() As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + Dim myTable = New DataTable() + Dim sql = "SELECT MitarbeiterID, Mitarbeiter FROM Mitarbeiter ORDER BY Mitarbeiter" + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'Anzeigen_cboMitarbeiter'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programm wird aufgrund eines kritischen Problems beendet." & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + conn.Close() + End While + + Return Nothing + End Function + + + Public Sub SpeichernMitarbeiter(ByVal d As cMitarbeiterAVISO) + Dim hAuswahl As String + If d.MitarbeiterID = 0 Then + 'Neuanlage + hAuswahl = "INSERT INTO Mitarbeiter " & + "(Mitarbeiter, Mitarbeitername, KW, Sicherheitsstufe, Info, Grenzstelle) VALUES (" & + "@Mitarbeiter, @Mitarbeitername, @KW, @Sicherheitsstufe, @Info, @Grenzstelle)" + Else + 'Änderung + hAuswahl = String.Format( + "UPDATE Mitarbeiter SET Mitarbeiter = @Mitarbeiter, Mitarbeitername = @Mitarbeitername, KW=@KW, Sicherheitsstufe=@Sicherheitsstufe, Info=@Info, Grenzstelle=@Grenzstelle " & + "WHERE MitarbeiterID = @MitarbeiterID") + End If + Dim sql = hAuswahl + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@Mitarbeiter", d.Mitarbeiter) + cmd.Parameters.AddWithValue("@Mitarbeitername", d.Mitarbeitername) + cmd.Parameters.AddWithValue("@KW", d.KW) + ' cmd.Parameters.AddWithValue("@Sicherheitsstufe", d.Sicherheitsstufe) + cmd.Parameters.AddWithValue("@Info", d.Info) + ' cmd.Parameters.AddWithValue("@Grenzstelle", d.Grenzstelle) + cmd.Parameters.AddWithValue("@MitarbeiterID", d.MitarbeiterID) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datensatz kann nicht gespeichert werden!" & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Mitarbeiterstamm") + End Try + End Using + conn.Close() + End Sub + + Public Sub LöschenMitarbeiter(ByVal hID As Integer) + Dim sql = String.Format("DELETE FROM Mitarbeiter WHERE MitarbeiterID = {0}", hID) + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Mitarbeiter-Stammdaten können nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + conn.Close() + End Sub + +End Class + + +Public Class cFirma + Property FirmaID As Integer + Property Firma As String + Property eMail As String + Property eMail2 As String + Property Info As String + Property Frächter As Boolean + Property Auftraggeber As Boolean + Property FMZollKdnr As String = "" + + 'Property Adresse As String + 'Property Telefon As String + 'Property Fax As String + 'Property Ansprechpersonen As String +End Class + +Public Class cFirmenDAL + + Public Function LesenFirma(hID As Integer, hFirma As String, hSQL As String) As cFirma + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String + If hID > 0 Then + sql = String.Format("SELECT * FROM Firmen WHERE FirmaID = {0}", hID) + ElseIf hFirma <> "" Then + sql = String.Format("SELECT * FROM Firmen WHERE Firma = '" & hFirma.Trim & "'") + Else + sql = hSQL + End If + Dim daten As cFirma = Nothing + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + daten = New cFirma() + daten.FirmaID = VarToInt(dr.Item("FirmaID")) + daten.Firma = VarToStr(dr.Item("Firma")) + daten.eMail = VarToStr(dr.Item("eMail")) + daten.eMail2 = VarToStr(dr.Item("eMail2")) + daten.Info = VarToStr(dr.Item("Info")) + daten.Frächter = VarToBool(dr.Item("Frächter")) + daten.Auftraggeber = VarToBool(dr.Item("Auftraggeber")) + 'daten.FMZollKdnr = VarToStr(dr.Item("KundenNr")) + If Not dr.Item("KundenNr") Is DBNull.Value Then daten.FMZollKdnr = CStr(dr.Item("KundenNr")) + 'daten.Ansprechpersonen = VarToStr(dr.Item("Ansprechpersonen")) + 'daten.Adresse = VarToStr(dr.Item("Adresse")) + 'daten.Telefon = VarToStr(dr.Item("Telefon")) + 'daten.Fax = VarToStr(dr.Item("Fax")) + End If + dr.Close() + End Using + End Using + conn.Close() + Return daten + End Function + + Public Function Anzeigen_Firmen(hSQL As String) As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + Dim myTable = New DataTable() + 'Dim sql As String + 'sql = hSQL + Using cmd As New SqlCommand(hSQL, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'Anzeigen_Firmen'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programm wird aufgrund eines kritischen Problems beendet." & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + conn.Close() + End While + Return Nothing + End Function + + Public Function Anzeigen_cboFirmen(hSQL As String) As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + Dim myTable = New DataTable() + If hSQL = "" Then hSQL = "SELECT FirmaID, Firma FROM Firmen ORDER BY Firma" + Using cmd As New SqlCommand(hSQL, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'Anzeigen_cboFirma'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programm wird aufgrund eines kritischen Problems beendet." & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + conn.Close() + End While + + Return Nothing + End Function + + Public Sub SpeichernFirma(ByVal d As cFirma) + Dim hAuswahl As String + If d.FirmaID = 0 Then + 'Neuanlage + hAuswahl = "INSERT INTO Firmen " & + "(Firma, eMail, eMail2, Info, Frächter, Auftraggeber, KundenNr) VALUES (" & + "@Firma, @eMail, @eMail2, @Info, @Frächter, @Auftraggeber, @KundenNr)" + Else + 'Änderung + hAuswahl = String.Format( + "UPDATE Firmen SET Firma = @Firma, eMail=@eMail, eMail2=@eMail2, Info=@Info, Frächter=@Frächter, Auftraggeber=@Auftraggeber, KundenNr=@KundenNr " & + "WHERE FirmaID = @FirmaID") + End If + Dim sql = hAuswahl + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@Firma", d.Firma) + cmd.Parameters.AddWithValue("@eMail", d.eMail) + cmd.Parameters.AddWithValue("@eMail2", d.eMail2) + cmd.Parameters.AddWithValue("@Info", d.Info) + cmd.Parameters.AddWithValue("@Frächter", d.Frächter) + cmd.Parameters.AddWithValue("@Auftraggeber", d.Auftraggeber) + cmd.Parameters.AddWithValue("@FirmaID", d.FirmaID) + If d.FMZollKdnr = "" Then + cmd.Parameters.AddWithValue("@KundenNr", DBNull.Value) + Else + cmd.Parameters.AddWithValue("@KundenNr", d.FMZollKdnr) + End If + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Firma") + End Try + End Using + conn.Close() + End Sub + + Public Sub LöschenFirma(ByVal hID As Integer) + Dim sql = String.Format("DELETE FROM Firmen WHERE FirmaID = {0}", hID) + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Firma-Stammdaten können nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + conn.Close() + End Sub + +End Class + + + +Public Class cQSAufträge + Property QS_auftragpos_id As Integer = -1 + Property AvisoID As Integer = -1 + Property QS_Abfertigungsart_ID As Integer = -1 + Property QS_Abfertigungsart_Anzahl As Integer = 0 +End Class + + + +Public Class cAvisoVorpapier + Property vp_AvisoId As Integer + Property vp_Art As String = "T1" + Property vp_Nr As String = "" +End Class + + +Public Class cAviso + Property AvisoID As Integer + Property Datum As Date + Property LKW_Nr As String + Property Telefonisch As String + Property Änderungen As String + Property Info As String + Property Status As Integer + Property Auftraggeber As String + Property Auftraggeber_KdNr As String = "" + Property Frächter As String + Property Frächter_KdNr As String = "" + Property letzterMitarbeiter As String + Property LetzterMitarbeiterId As Object = Nothing + Property Ankunft As Date + Property Freigabe As Date + Property Vorbereitet As Date + Property Vorgeschrieben As Date + Property Dauer As Integer + Property AvisoEingang As Date + Property Grenzstelle As String + Property LKW_fertig As Boolean + Property Handling As Boolean = False + Property AvisoTVHinweis As String = "" + Property Sendungen_Gesamtanzahl As Integer = 0 + Property Sammelakt As Boolean = False + Property Buero As String = "" + Property ImEx As String = "" + Property Abgeschlossen As Boolean = False + Property FIRMA As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + Property Durchgangszollstelle1 As Object = Nothing + Property Durchgangszollstelle2 As Object = Nothing + Property Durchgangszollstelle3 As Object = Nothing + Property Durchgangszollstelle4 As Object = Nothing + Property Durchgangszollstelle5 As Object = Nothing + Property Durchgangszollstelle6 As Object = Nothing + Property Ausgangszollstelle As Object = Nothing + Property Zollstelle As Object = Nothing + + + Property TransportTemperatur As Object = Nothing + Property Zugmaschine As Object = Nothing + Property FahrerHandy As Object = Nothing + Property LKW_Nationalitaet As Object = Nothing + Property DakosyRef As Object = Nothing + Property TeamId As Object = Nothing + Property Cluster As Object = Nothing + Property Freigabe_Info As String = "" + + + Property KdAuftragsNr_Avisierer As Object = Nothing + Property KdAuftragsNr_Frachtfuehrer As Object = Nothing + Property FreigabeFiliale As Object = Nothing + Property VoraussichtlichesEintreffen As Object = Nothing + Property VORSYSTEM As Object = Nothing + Property Warenort As Boolean = False + Property ZOLLDigitalEingereicht As Boolean = False + + + Public VORPAPIERE As New List(Of cAvisoVorpapier) + + Shared Function getAvisoById(hID, Optional hSQL = "") As cAviso + Dim AVISODAL As New cAvisoDAL + Return AVISODAL.LesenAviso(hID, hSQL) + End Function + + Shared Function getFirmaByAvisoId(AvisoId) As String + Dim SQL As New SQL + Return SQL.getValueTxtBySql("SELECT TOP 1 Firma FROM AVISO WHERE AvisoId=" & AvisoId, "AVISO") + End Function + + Shared Function getAVISO_List(Optional Standort = "SUB") As DataTable 'Optional FIRMA = "VERAG") As DataTable + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim sqlWhere = "" + Select Case Standort + Case "SUB" : sqlWhere = " AND ( FIRMA='VERAG' OR CLUSTER='FRONTOFFICE' ) AND ImEx IN ('IMPORT','') AND Grenzstelle = '" & Standort & "' " + Case "ATILLA" : sqlWhere = " AND ( FIRMA='ATILLA') " + Case "IMEX" : sqlWhere = " AND ( FIRMA='IMEX') " + Case "UNISPED" : sqlWhere = " AND ( FIRMA='UNISPED') " + Case Else : sqlWhere = " AND FIRMA='VERAG' AND ( Grenzstelle='" & Standort & "') " + End Select + + ' Standort = "" + + Dim dt = SQL.loadDgvBySql("SELECT TOP 1000 AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen + FROM Aviso + WHERE 1=1 " & sqlWhere & " AND Status = 3 ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC", "AVISO") + Return dt + End Function + + Sub UPDATE_FahrerHandy(FahrerHandy As String) + If AvisoID <= 0 Then Exit Sub + If If(FahrerHandy, "") = "" Then Exit Sub + Me.FahrerHandy = FahrerHandy + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + SQL.doSQL("UPDATE AVISO SET FahrerHandy='" & FahrerHandy & "' WHERE AvisoId=" & AvisoID, "AVISO") + End Sub + + + Sub UPDATE_FreigabeInfo(Freigabe_Info As String) + If AvisoID <= 0 Then Exit Sub + Me.Freigabe_Info = Freigabe_Info + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + SQL.doSQL("UPDATE AVISO SET Freigabe_Info='" & Freigabe_Info & "' WHERE AvisoId=" & AvisoID, "AVISO") + End Sub + + + Sub LOAD_Vorpapiere() + If AvisoID <= 0 Then Exit Sub + VORPAPIERE.Clear() + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim dt = SQL.loadDgvBySql("SELECT * FROM tblAvisoVorpapier WHERE vp_AvisoId='" & AvisoID & "'", "AVISO") + If dt IsNot Nothing Then + For Each r In dt.Rows + Dim VP As New cAvisoVorpapier + VP.vp_AvisoId = AvisoID + VP.vp_Nr = r("vp_Nr") + VP.vp_Art = r("vp_Art") + VORPAPIERE.Add(VP) + Next + End If + End Sub + + + +End Class + +Public Class cDruckAviso + Property Datum As String + Property Status As String + Property LetzterMitarbeiter As String + Property LKW_Nr As String + Property Fraechter As String + Property Auftraggeber As String + Property Ankunft As String + Property Freigabe As String + Property Dauer As String + Property Info As String + Property Aenderungen As String + Property Telefonisch As String + Property AvisoEingang As String + Property Grenzstelle As String +End Class + +Public Class cAvisoDAL + + Public Function LesenAviso(hID As Integer, hSQL As String) As cAviso + 'Dim FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String + If hID > 0 Then + sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} ", hID) + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "" Then + ' sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", hID) + 'Else + ' sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} ", hID) + 'End If + Else + sql = hSQL + End If + + Dim daten As cAviso = Nothing + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + daten = New cAviso() + daten.AvisoID = VarToInt(dr.Item("AvisoID")) + daten.Datum = CDate(VarToDate(dr.Item("Datum"))) + daten.LKW_Nr = VarToStr(dr.Item("LKW_Nr")) + daten.Telefonisch = VarToStr(dr.Item("Telefonisch")) + daten.Änderungen = VarToStr(dr.Item("Änderungen")) + daten.Info = VarToStr(dr.Item("Info")) + daten.Status = VarToInt(dr.Item("Status")) + daten.Auftraggeber = VarToStr(dr.Item("Auftraggeber")) + daten.Auftraggeber_KdNr = CStr(VarToInt(dr.Item("Auftraggeber_KdNr"))) + daten.Frächter_KdNr = CStr(VarToInt(dr.Item("Frächter_KdNr"))) + daten.Frächter = VarToStr(dr.Item("Frächter")) + daten.letzterMitarbeiter = VarToStr(dr.Item("letzterMitarbeiter")) + daten.Ankunft = CDate(VarToDate(dr.Item("Ankunft"))) + daten.Freigabe = CDate(VarToDate(dr.Item("Freigabe"))) + daten.Vorbereitet = CDate(VarToDate(dr.Item("Vorbereitet"))) + daten.Vorgeschrieben = CDate(VarToDate(dr.Item("Vorgeschrieben"))) + daten.AvisoEingang = CDate(VarToDate(dr.Item("AvisoEingang"))) + daten.Dauer = VarToInt(dr.Item("Dauer")) + daten.Grenzstelle = VarToStr(dr.Item("Grenzstelle")) + daten.LKW_fertig = VarToBool(dr.Item("LKW_fertig")) + daten.Handling = VarToBool(dr.Item("Handling")) + daten.AvisoTVHinweis = VarToStr(dr.Item("AvisoTVHinweis")) + daten.Sammelakt = VarToBool(dr.Item("Sammelakt")) + daten.Buero = VarToStr(dr.Item("Buero")) + daten.ImEx = VarToStr(dr.Item("ImEx")) + daten.Abgeschlossen = VarToBool(dr.Item("Abgeschlossen")) + daten.FIRMA = VarToStr(dr.Item("FIRMA")) + daten.Durchgangszollstelle1 = VarToStr(dr.Item("Durchgangszollstelle1")) + daten.Durchgangszollstelle2 = VarToStr(dr.Item("Durchgangszollstelle2")) + daten.Durchgangszollstelle3 = VarToStr(dr.Item("Durchgangszollstelle3")) + daten.Durchgangszollstelle4 = VarToStr(dr.Item("Durchgangszollstelle4")) + daten.Durchgangszollstelle5 = VarToStr(dr.Item("Durchgangszollstelle5")) + daten.Durchgangszollstelle6 = VarToStr(dr.Item("Durchgangszollstelle6")) + daten.Ausgangszollstelle = VarToStr(dr.Item("Ausgangszollstelle")) + daten.Zollstelle = VarToStr(dr.Item("Zollstelle")) + daten.TransportTemperatur = VarToStr(dr.Item("TransportTemperatur")) + daten.Zugmaschine = VarToStr(dr.Item("Zugmaschine")) + daten.FahrerHandy = VarToStr(dr.Item("FahrerHandy")) + daten.LKW_Nationalitaet = VarToStr(dr.Item("LKW_Nationalitaet")) + daten.DakosyRef = VarToStr(dr.Item("DakosyRef")) + daten.LetzterMitarbeiterId = If(dr.Item("letzterMitarbeiterid") Is DBNull.Value, Nothing, dr.Item("letzterMitarbeiterid")) + daten.TeamId = If(dr.Item("TeamId") Is DBNull.Value, Nothing, dr.Item("TeamId")) + daten.Cluster = If(dr.Item("Cluster") Is DBNull.Value, Nothing, dr.Item("Cluster")) + daten.Freigabe_Info = VarToStr(dr.Item("Freigabe_Info")) + daten.KdAuftragsNr_Frachtfuehrer = If(dr.Item("KdAuftragsNr_Frachtfuehrer") Is DBNull.Value, Nothing, dr.Item("KdAuftragsNr_Frachtfuehrer")) + daten.KdAuftragsNr_Avisierer = If(dr.Item("KdAuftragsNr_Avisierer") Is DBNull.Value, Nothing, dr.Item("KdAuftragsNr_Avisierer")) + daten.FreigabeFiliale = If(dr.Item("FreigabeFiliale") Is DBNull.Value, Nothing, dr.Item("FreigabeFiliale")) + daten.VoraussichtlichesEintreffen = If(dr.Item("VoraussichtlichesEintreffen") Is DBNull.Value, Nothing, dr.Item("VoraussichtlichesEintreffen")) + daten.VORSYSTEM = If(dr.Item("VORSYSTEM") Is DBNull.Value, Nothing, dr.Item("VORSYSTEM")) + daten.Warenort = If(dr.Item("Warenort") Is DBNull.Value, Nothing, dr.Item("Warenort")) + daten.ZOLLDigitalEingereicht = If(dr.Item("ZOLLDigitalEingereicht") Is DBNull.Value, Nothing, dr.Item("ZOLLDigitalEingereicht")) + + + + End If + dr.Close() + End Using + End Using + conn.Close() + Return daten + End Function + + Public Function Suche_LKW(LKW_Nr As String) As String + 'hier wird nachgesehen, wann diese LKW-Nr zuletzt eingetragen war + Suche_LKW = "" + Dim sql As String = "SELECT * FROM Aviso WHERE LKW_Nr = '" & LKW_Nr & "' AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ORDER BY Datum DESC" + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + 'Hinweis erfolgt nur, wenn LKW in den letzten 4 Tagen gefahren ist + If CDate(VarToDate(dr.Item("Datum"))) > Now.AddDays(-4) Then + Suche_LKW = "Achtung: der LKW mit der Nr. " & LKW_Nr & " wurde bereits vor kurzem eingetragen - und zwar am " & + Format(CDate(VarToDate(dr.Item("Datum"))), "ddd, dd.MM.yyyy - HH:mm") + End If + End If + dr.Close() + End Using + End Using + conn.Close() + Return Suche_LKW + End Function + + Public Function Suche_LKWStatus(LKW_Nr As String) As String + 'hier wird nachgesehen, wann diese LKW-Nr zuletzt eingetragen war + Suche_LKWStatus = "" + + Dim firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + If firma = "" Then firma = "VERAG" + + If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then + firma = " AND ( FIRMA='" & firma & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) " + Else + firma = " AND FIRMA='" & firma & "' " + End If + + + + Dim sql As String = "SELECT * FROM Aviso WHERE LKW_Nr = '" & LKW_Nr & "' AND [Status] Not in (1,2) " & firma & " ORDER BY Datum DESC" + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + Suche_LKWStatus = "Achtung: der LKW mit der Nr. " & LKW_Nr & " existiert bereits mit dem Status '" & cGlobal.getStatusText(VarToInt2(dr.Item("Status"))) & "', Eingetragen, am " & + Format(CDate(VarToDate(dr.Item("Datum"))), "ddd, dd.MM.yyyy - HH:mm") + End If + dr.Close() + End Using + End Using + conn.Close() + Return Suche_LKWStatus + End Function + + Public Function getAvisoInfo(AvisoID As Integer) As String + Dim Info As String = "" + Dim sql As String = "SELECT Info FROM Aviso WHERE AvisoID = '" & AvisoID & "' " + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + If Not dr.Item("Info") Is DBNull.Value Then + Info = dr.Item("Info").ToString + End If + End If + dr.Close() + End Using + End Using + conn.Close() + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function 'Suche_LKW'") + End Try + Return Info + End Function + + Public Function VermerkExistsInAvisoByID(AvisoID As Integer, VermerkeCode As Integer) As Boolean + 'hier wird nachgesehen, wann diese LKW-Nr zuletzt eingetragen war + Dim b As Boolean = False + Dim sql As String = "SELECT top 1 VermerkID FROM Vermerke WHERE AvisoID = '" & AvisoID & "' AND VermerkeCode = '" & VermerkeCode & "' " + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + b = True + End If + dr.Close() + End Using + End Using + conn.Close() + Return b + End Function + + + + Public Function loadDataTableBySQL(hSQL As String, Optional timeout As Integer = 0) As DataTable + Try + Dim myTable = New DataTable() + Dim conn As SqlConnection = cSqlDb.GetNewOpenConnectionAVISO() + + ' Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(hSQL, conn) + If timeout > 0 Then cmd.CommandTimeout = timeout + Dim dr As SqlDataReader = cmd.ExecuteReader() + + myTable.Load(dr) + dr.Close() + End Using + conn.Close() + ' End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + + Return Nothing + End Function + + Public Function loadDataTableBySQL_OLD(hSQL As String) As DataTable + ' While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Using conn As New SqlConnection(cSqlDb.GetAVISOConnectionString) '= cDatenbank.GetNewOpenConnection() + SqlConnection.ClearPool(conn) ' Wenn Beim Drucken die Vorschau abgebrochen wird, tritt ansonsten ein Fehler auf. + + Try + conn.Open() + Dim myTable = New DataTable() + 'Dim sql As String + 'sql = hSQL + Using cmd As New SqlCommand(hSQL, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + conn.Close() + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'Anzeigen_Aviso'") + conn.Close() + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programm wird aufgrund eines kritischen Problems beendet." & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + ' Environment.Exit(0) + End If + End Try + End Using + 'End While + + Return Nothing + End Function + + + Public Function getStandzeitInfo(maId As Integer, von As Integer, bis As Integer, Warnstufe As Integer) As DataTable + Dim hSQL As String = "SELECT AvisoID,[LKW_Nr], [Ankunft], StandzeitWarnstufe " & + " FROM Aviso INNERJOIN" & + " WHERE [Status] = 3 AND LetzterMitarbeiterId = " & maId & " " & + " AND DATEDIFF(MINUTE, Ankunft, getdate()) between " & von & " AND " & bis & " " & + " AND (StandzeitWarnstufe is null OR StandzeitWarnstufe < " & Warnstufe & ")" + + Using conn As New SqlConnection(cSqlDb.GetAVISOConnectionString) '= cDatenbank.GetNewOpenConnection() + SqlConnection.ClearPool(conn) ' Wenn Beim Drucken die Vorschau abgebrochen wird, tritt ansonsten ein Fehler auf. + conn.Open() + Try + Dim myTable = New DataTable() + 'Dim sql As String + 'sql = hSQL + Using cmd As New SqlCommand(hSQL, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + conn.Close() + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'Anzeigen_Aviso'") + conn.Close() + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programm wird aufgrund eines kritischen Problems beendet." & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End Using + + + Return Nothing + End Function + + Public Sub UpdateWarnstufe(ByVal avisoID As Integer, ByVal Warnstufe As Integer) + + Dim sql = "UPDATE Aviso SET [StandzeitWarnstufe]= @Warnstufe WHERE AvisoID = @AvisoID" + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@Warnstufe", Warnstufe) + cmd.Parameters.AddWithValue("@AvisoID", avisoID) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datensatz kann nicht gespeichert werden! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler UpdateWarnstufe") + End Try + End Using + conn.Close() + End Sub + + Public Sub UpdateAvisoTVHinweis(ByVal avisoID As Integer, ByVal AvisoTVHinweis As String) + + Dim sql = "UPDATE Aviso SET [AvisoTVHinweis]= @AvisoTVHinweis WHERE AvisoID = @AvisoID" + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@AvisoTVHinweis", AvisoTVHinweis) + cmd.Parameters.AddWithValue("@AvisoID", avisoID) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datensatz kann nicht gespeichert werden! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler UpdateWarnstufe") + End Try + End Using + conn.Close() + End Sub + + Public Sub addAenderung(AvisoID As Integer, Aenderung_Art As String, Aenderung_Text As String) + Dim hAuswahl As String = " INSERT INTO Aenderungen " & + " ([AvisoID], [Datum], [Mitarbeiter], [MitarbeiterId], [Aenderung_Art], [Aenderung_Text]) " & + " VALUES (@AvisoID, @Datum, @Mitarbeiter, @MitarbeiterId, @Aenderung_Art, @Aenderung_Text)" + + Dim sql = hAuswahl + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + + cmd.Parameters.AddWithValue("@AvisoID", AvisoID) + cmd.Parameters.AddWithValue("@Datum", Now) + cmd.Parameters.AddWithValue("@Mitarbeiter", cGlobal.AktiverMitarbeiter.Mitarbeiter) + cmd.Parameters.AddWithValue("@MitarbeiterId", cGlobal.AktiverMitarbeiter.MitarbeiterID) + cmd.Parameters.AddWithValue("@Aenderung_Art", Aenderung_Art) + cmd.Parameters.AddWithValue("@Aenderung_Text", Aenderung_Text) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datensatz kann nicht gespeichert werden! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Aenderungen") + End Try + End Using + conn.Close() + End Sub + + Public Function SpeichernAviso(ByVal d As cAviso, Optional letzerMaIdAuto As Boolean = True) As Integer + Dim hAuswahl As String + Dim id As Integer = -1 + If d.AvisoID <= 0 Then + 'Neuanlage + hAuswahl = "INSERT INTO Aviso " & + "(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " & + "Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " & + " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht) VALUES (" & + "@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " & + "@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," & + "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht); SELECT CAST(scope_identity() AS int);" + Else + id = d.AvisoID + 'Änderung + hAuswahl = String.Format( + "UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " & + " letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " & + " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,FIRMA=@FIRMA" & + " WHERE AvisoID = @AvisoID") + End If + + Dim sql = hAuswahl + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + + cmd.Parameters.Add("@Datum", SqlDbType.DateTime).Value = SQLNullDate(d.Datum) + ' cmd.Parameters.AddWithValue("@Datum", SQLNullDate(d.Datum)) + cmd.Parameters.AddWithValue("@LKW_Nr", d.LKW_Nr) + cmd.Parameters.AddWithValue("@Telefonisch", d.Telefonisch) + cmd.Parameters.AddWithValue("@Änderungen", d.Änderungen) + cmd.Parameters.AddWithValue("@Info", d.Info) + cmd.Parameters.AddWithValue("@Status", d.Status) + cmd.Parameters.AddWithValue("@Auftraggeber", d.Auftraggeber) + cmd.Parameters.AddWithValue("@Frächter", d.Frächter) + cmd.Parameters.AddWithValue("@letzterMitarbeiter", d.letzterMitarbeiter) + cmd.Parameters.Add("@Vorbereitet", SqlDbType.DateTime).Value = SQLNullDate(d.Vorbereitet) + cmd.Parameters.Add("@Vorgeschrieben", SqlDbType.DateTime).Value = SQLNullDate(d.Vorgeschrieben) + cmd.Parameters.Add("@Ankunft", SqlDbType.DateTime2).Value = SQLNullDate(d.Ankunft) + cmd.Parameters.Add("@Freigabe", SqlDbType.DateTime2).Value = SQLNullDate(d.Freigabe) + ' cmd.Parameters.AddWithValue("@Vorbereitet", SQLNullDate(d.Vorbereitet)) + ' cmd.Parameters.AddWithValue("@Vorgeschrieben", SQLNullDate(d.Vorgeschrieben)) + ' cmd.Parameters.AddWithValue("@Ankunft", d.Ankunft) + ' cmd.Parameters.AddWithValue("@Freigabe", d.Freigabe) + + + cmd.Parameters.AddWithValue("@Dauer", d.Dauer) + cmd.Parameters.Add("@AvisoEingang", SqlDbType.DateTime).Value = SQLNullDate(d.AvisoEingang) + ' cmd.Parameters.AddWithValue("@AvisoEingang", SQLNullDate(d.AvisoEingang)) + + cmd.Parameters.AddWithValue("@Grenzstelle", d.Grenzstelle) + cmd.Parameters.AddWithValue("@LKW_fertig", d.LKW_fertig) + cmd.Parameters.AddWithValue("@AvisoID", d.AvisoID) + cmd.Parameters.AddWithValue("@letzterMitarbeiterId", If(letzerMaIdAuto, cGlobal.AktiverMitarbeiter.MitarbeiterID, IIf(IsNumeric(d.LetzterMitarbeiterId), d.LetzterMitarbeiterId, DBNull.Value))) + cmd.Parameters.AddWithValue("@Handling", d.Handling) + cmd.Parameters.AddWithValue("@Sendungen_Gesamtanzahl", d.Sendungen_Gesamtanzahl) + cmd.Parameters.AddWithValue("@Sammelakt", d.Sammelakt) + + cmd.Parameters.AddWithValue("@Auftraggeber_KdNr", IIf(IsNumeric(d.Auftraggeber_KdNr), d.Auftraggeber_KdNr, DBNull.Value)) + cmd.Parameters.AddWithValue("@Frächter_KdNr", IIf(IsNumeric(d.Frächter_KdNr), d.Frächter_KdNr, DBNull.Value)) + cmd.Parameters.AddWithValue("@AvisoTVHinweis", d.AvisoTVHinweis) + cmd.Parameters.AddWithValue("@Buero", If(d.Buero, "")) + cmd.Parameters.AddWithValue("@Imex", d.ImEx) + cmd.Parameters.AddWithValue("@Abgeschlossen", d.Abgeschlossen) + cmd.Parameters.AddWithValue("@FIRMA", d.FIRMA) + + cmd.Parameters.AddWithValue("@Durchgangszollstelle1", If(d.Durchgangszollstelle1 Is Nothing, DBNull.Value, d.Durchgangszollstelle1)) + cmd.Parameters.AddWithValue("@Durchgangszollstelle2", If(d.Durchgangszollstelle2 Is Nothing, DBNull.Value, d.Durchgangszollstelle2)) + cmd.Parameters.AddWithValue("@Durchgangszollstelle3", If(d.Durchgangszollstelle3 Is Nothing, DBNull.Value, d.Durchgangszollstelle3)) + cmd.Parameters.AddWithValue("@Durchgangszollstelle4", If(d.Durchgangszollstelle4 Is Nothing, DBNull.Value, d.Durchgangszollstelle4)) + cmd.Parameters.AddWithValue("@Durchgangszollstelle5", If(d.Durchgangszollstelle5 Is Nothing, DBNull.Value, d.Durchgangszollstelle5)) + cmd.Parameters.AddWithValue("@Durchgangszollstelle6", If(d.Durchgangszollstelle6 Is Nothing, DBNull.Value, d.Durchgangszollstelle6)) + cmd.Parameters.AddWithValue("@Ausgangszollstelle", If(d.Ausgangszollstelle Is Nothing, DBNull.Value, d.Ausgangszollstelle)) + cmd.Parameters.AddWithValue("@Zollstelle", If(d.Zollstelle Is Nothing, DBNull.Value, d.Zollstelle)) + cmd.Parameters.AddWithValue("@TransportTemperatur", If(d.TransportTemperatur Is Nothing, DBNull.Value, d.TransportTemperatur)) + cmd.Parameters.AddWithValue("@Zugmaschine", If(d.Zugmaschine Is Nothing, DBNull.Value, d.Zugmaschine)) + cmd.Parameters.AddWithValue("@FahrerHandy", If(d.FahrerHandy Is Nothing, DBNull.Value, d.FahrerHandy)) + cmd.Parameters.AddWithValue("@LKW_Nationalitaet", If(d.LKW_Nationalitaet Is Nothing, DBNull.Value, d.LKW_Nationalitaet)) + cmd.Parameters.AddWithValue("@DakosyRef", If(d.DakosyRef Is Nothing, DBNull.Value, d.DakosyRef)) + cmd.Parameters.AddWithValue("@TeamId", If(d.TeamId Is Nothing, DBNull.Value, d.TeamId)) + cmd.Parameters.AddWithValue("@Cluster", If(d.Cluster Is Nothing, DBNull.Value, d.Cluster)) + cmd.Parameters.AddWithValue("@Freigabe_Info", d.Freigabe_Info) + + cmd.Parameters.AddWithValue("@KdAuftragsNr_Frachtfuehrer", If(d.KdAuftragsNr_Frachtfuehrer Is Nothing, DBNull.Value, d.KdAuftragsNr_Frachtfuehrer)) + cmd.Parameters.AddWithValue("@KdAuftragsNr_Avisierer", If(d.KdAuftragsNr_Avisierer Is Nothing, DBNull.Value, d.KdAuftragsNr_Avisierer)) + cmd.Parameters.AddWithValue("@FreigabeFiliale", If(d.FreigabeFiliale Is Nothing, DBNull.Value, d.FreigabeFiliale)) + cmd.Parameters.AddWithValue("@VoraussichtlichesEintreffen", If(d.VoraussichtlichesEintreffen Is Nothing, DBNull.Value, d.VoraussichtlichesEintreffen)) + cmd.Parameters.AddWithValue("@Warenort", d.Warenort) + cmd.Parameters.AddWithValue("@ZOLLDigitalEingereicht", d.ZOLLDigitalEingereicht) + + + Try + If d.AvisoID <= 0 Then + id = (Convert.ToInt32(cmd.ExecuteScalar())) + ' MsgBox(id) + Else + cmd.ExecuteNonQuery() + End If + + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datensatz kann nicht gespeichert werden! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Aviso") + End Try + End Using + conn.Close() + + Return id + + End Function + + + + Public Function SpeichernAvisoVorpapiere(ByVal AvisoId As Integer, VORPAPIERE As List(Of cAvisoVorpapier)) As Boolean + SpeichernAvisoVorpapiere = True + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + If SQL.doSQL("DELETE tblAvisoVorpapier WHERE [vp_AvisoId]='" & AvisoId & "'", "AVISO") Then + For Each VP In VORPAPIERE + If Not SQL.doSQL("INSERT INTO tblAvisoVorpapier (vp_AvisoId, vp_Art,vp_Nr) VALUES ('" & AvisoId & "','" & VP.vp_Art & "','" & VP.vp_Nr & "') ", "AVISO") Then SpeichernAvisoVorpapiere = False + Next + Else + SpeichernAvisoVorpapiere = True = False + End If + + End Function + + + + Public Function setQSAufträge(ByVal daten As List(Of cQSAufträge)) As Boolean + For Each d As cQSAufträge In daten + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Dim sql As String = " begin tran" & + " if exists (select * from tblQS_Auftragspositionen with (updlock,serializable) where QS_Abfertigungsart_ID = @QS_Abfertigungsart_ID AND AvisoID = @AvisoID) " & + " begin " & + " UPDATE tblQS_Auftragspositionen " & + " SET QS_Abfertigungsart_Anzahl=@QS_Abfertigungsart_Anzahl " & + " WHERE QS_Abfertigungsart_ID = @QS_Abfertigungsart_ID AND AvisoID = @AvisoID " & + " End " & + " Else " & + " begin " & + " INSERT INTO tblQS_Auftragspositionen " & + " ([AvisoID],[QS_Abfertigungsart_ID],[QS_Abfertigungsart_Anzahl]) " & + " VALUES(@AvisoID, @QS_Abfertigungsart_ID, @QS_Abfertigungsart_Anzahl) " & + " End " & + " commit tran " + + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@AvisoID", d.AvisoID) + cmd.Parameters.AddWithValue("@QS_Abfertigungsart_ID", d.QS_Abfertigungsart_ID) + cmd.Parameters.AddWithValue("@QS_Abfertigungsart_Anzahl", d.QS_Abfertigungsart_Anzahl) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datensatz kann nicht gespeichert werden! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + Return False + End Try + + End Using + ' conn.Close() + Next + + Return True + End Function + + + Public Function insertSendungEmpty(ByVal AvisoID As Integer, ByVal PosUnterNr As Integer, ByVal FilialenNr As Integer, ByVal AbfertigungsNr As Object, ByVal UnterNr As Integer, ByVal tblSnd_Abfertigungsart_ID As Object, Optional tblSnd_AuftraggeberKdNr As Object = Nothing, Optional tblSnd_Auftraggeber As Object = Nothing, Optional tblSnd_Fremdspedition As Boolean = False, Optional ByRef sndId As Integer = -1) As Boolean + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Dim sql As String = " INSERT INTO tblSendungen " & + " ([tblSnd_PosUnterNr],[tblSnd_AvisoID],FilialenNr,AbfertigungsNr,UnterNr,tblSnd_Abfertigungsart_ID,tblSnd_AuftraggeberKdNr,tblSnd_Auftraggeber,tblSnd_Fremdspedition,tblSnd_QS_MA,LetzterMitarbeiterId,LetzterMitarbeiter) " & + " VALUES(@PosUnterNr,@AvisoID,@FilialenNr,@AbfertigungsNr,@UnterNr,@tblSnd_Abfertigungsart_ID,@tblSnd_AuftraggeberKdNr,@tblSnd_Auftraggeber,@tblSnd_Fremdspedition,@tblSnd_QS_MA,@LetzterMitarbeiterId,@LetzterMitarbeiter) " + + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@AvisoID", AvisoID) + cmd.Parameters.AddWithValue("@PosUnterNr", PosUnterNr) + + + cmd.Parameters.AddWithValue("@FilialenNr", FilialenNr) + cmd.Parameters.AddWithValue("@AbfertigungsNr", AbfertigungsNr) + cmd.Parameters.AddWithValue("@UnterNr", UnterNr) + + cmd.Parameters.AddWithValue("@tblSnd_Abfertigungsart_ID", IIf(tblSnd_Abfertigungsart_ID Is Nothing, DBNull.Value, tblSnd_Abfertigungsart_ID)) + cmd.Parameters.AddWithValue("@tblSnd_AuftraggeberKdNr", IIf(tblSnd_AuftraggeberKdNr Is Nothing, DBNull.Value, tblSnd_AuftraggeberKdNr)) + cmd.Parameters.AddWithValue("@tblSnd_Auftraggeber", IIf(tblSnd_Auftraggeber Is Nothing, DBNull.Value, tblSnd_Auftraggeber)) + cmd.Parameters.AddWithValue("@tblSnd_Fremdspedition", tblSnd_Fremdspedition) + + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + cmd.Parameters.AddWithValue("@tblSnd_QS_MA", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + Else + cmd.Parameters.AddWithValue("@tblSnd_QS_MA", DBNull.Value) + End If + + cmd.Parameters.AddWithValue("@LetzterMitarbeiter", VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME) + cmd.Parameters.AddWithValue("@LetzterMitarbeiterId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + + + Try + cmd.ExecuteNonQuery() + + If sndId <= 0 Then + Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn) + sndId = CInt(newcmd.ExecuteScalar) + End If + + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + Return False + End Try + + End Using + + Return True + End Function + + + Public Function reIndexSendungen(ByVal AvisoID As Integer) As Boolean + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Dim sql As String = " DECLARE @counter int " & + " SET @counter = 0 " & + " UPDATE AVISO_new.dbo.tblSendungen " & + " SET @counter = tblSnd_PosUnterNr = @counter + 1 " & + " WHERE tblSnd_AvisoID = @AvisoID " + + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@AvisoID", AvisoID) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + Return False + End Try + + End Using + + Return True + End Function + + + Public Sub LöschenAviso(ByVal hID As Integer) + + Exit Sub + ' LöschenAviso_Vermerke(hID) + ' LöschenAviso_Aenderungen(hID) + LöschenAviso_Aviso(hID) + End Sub + + Public Sub LöschenAviso_Vermerke(ByVal hID As Integer) + Dim sql = String.Format("DELETE FROM Vermerke WHERE AvisoID = {0}", hID) + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Vermerke-Eintrag kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + conn.Close() + End Sub + Public Sub LöschenAviso_Aenderungen(ByVal hID As Integer) + Dim sql = String.Format("DELETE FROM Aenderungen WHERE AvisoID = {0}", hID) + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Aenderungen-Eintrag kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + conn.Close() + End Sub + Public Sub LöschenAviso_Aviso(ByVal hID As Integer) + Dim sql = String.Format("DELETE FROM Aviso WHERE AvisoID = {0}", hID) + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Aviso-Eintrag kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + conn.Close() + End Sub + + Public Function LeseAvisoFürDruck(hSQL As String, hIntern As Boolean) As List(Of cDruckAviso) + Dim datenListe As List(Of cDruckAviso) = New List(Of cDruckAviso) + Dim datensatz As cDruckAviso + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + + Using cmd As New SqlCommand(hSQL, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + If (dr.HasRows) Then + While dr.Read() + datensatz = New cDruckAviso() + datensatz.Datum = Format(CDate(dr.Item("Datum")), "dd.MM.yyyy") + Select Case VarToInt(dr.Item("Status")) + Case cGlobal.Status_Erfasst + datensatz.Status = "erfasst" + Case cGlobal.Status_Ankunft + datensatz.Status = "Ankunft" + Case cGlobal.Status_Freigegeben + datensatz.Status = "freigegeben" + Case cGlobal.Status_NichtEingetroffen + datensatz.Status = "LKW n.e." + Case Else + datensatz.Status = "unbekannt" + End Select + datensatz.LetzterMitarbeiter = dr.Item("LetzterMitarbeiter").ToString + datensatz.LKW_Nr = dr.Item("LKW_Nr").ToString + datensatz.Fraechter = dr.Item("Frächter").ToString + datensatz.Auftraggeber = dr.Item("Auftraggeber").ToString + datensatz.Grenzstelle = dr.Item("Grenzstelle").ToString + datensatz.Telefonisch = VarToStr(dr.Item("Telefonisch")) + + + If CDate(VarToDate(dr.Item("Ankunft"))) = LeerDatum Then + datensatz.Ankunft = "" + Else + datensatz.Ankunft = Format(CDate(dr.Item("Ankunft")), "dd.MM. HH:mm") + End If + If CDate(VarToDate(dr.Item("Freigabe"))) = LeerDatum Then + datensatz.Freigabe = "" + Else + datensatz.Freigabe = Format(CDate(dr.Item("Freigabe")), "dd.MM. HH:mm") + End If + If CDate(VarToDate(dr.Item("AvisoEingang"))) = LeerDatum Then + datensatz.Freigabe = "" + Else + datensatz.Freigabe = Format(CDate(dr.Item("AvisoEingang")), "dd.MM. HH:mm") + End If + If VarToInt(dr.Item("Dauer")) = 0 Then + datensatz.Dauer = "" + Else + datensatz.Dauer = Minuten_auf_Text(VarToInt(dr.Item("Dauer"))) + End If + + If CDate(VarToDate(dr.Item("AvisoEingang"))) = LeerDatum Then + datensatz.AvisoEingang = "" + Else + datensatz.AvisoEingang = Format(CDate(dr.Item("AvisoEingang")), "dd.MM. HH:mm") + End If + + datensatz.Grenzstelle = dr.Item("Grenzstelle").ToString + + 'je nach Listenauswahl werden manche Felder unterschiedlich befüllt + If hIntern Then + datensatz.Aenderungen = dr.Item("Änderungen").ToString + datensatz.Info = dr.Item("Info").ToString + Else + 'das Feld 'Änderungen' wird hier "mißbraucht" (schnelle Lösung) + If CDate(VarToDate(dr.Item("AvisoEingang"))) = LeerDatum Then + datensatz.Aenderungen = "" + Else + datensatz.Aenderungen = Format(CDate(dr.Item("AvisoEingang")), "dd.MM. HH:mm") + End If + + 'ins Infofeld kommen die Vermerke + Dim hVermerke As New cVermerkeDAL + datensatz.Info = hVermerke.Vermerke_einlesen(VarToInt(dr.Item("AvisoID"))) + + End If + datenListe.Add(datensatz) + End While + End If + dr.Close() + End Using + End Using + conn.Close() + + Return datenListe + End Function + + Public Function Check_Nicht_eingetroffen(hSQL As String) As Integer + 'Hier werden alle als Urlaub gekennzeichneten Tage zusammengezählt + Check_Nicht_eingetroffen = 0 + Dim sql As String = hSQL + Dim AvisoDAL As New cAvisoDAL + Using conn As New SqlConnection(cSqlDb.GetAVISOConnectionString) + Try + SqlConnection.ClearPool(conn) + conn.Open() + + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() + Dim av As New cAviso + av = AvisoDAL.LesenAviso(VarToInt(dr.Item("AvisoID")), "") + av.Änderungen = "automatisch auf 'LKW nicht eingetroffen' gestellt am " & Format(Now, "dd.MM.yyyy HH:mm") & ", da bereits länger als 10 Tage offen" & vbCrLf & av.Änderungen + av.letzterMitarbeiter = "Automatik" + av.Status = cGlobal.Status_NichtEingetroffen + Dim tmpid = AvisoDAL.SpeichernAviso(av) + AvisoDAL.addAenderung(tmpid, "automatisch auf 'LKW nicht eingetroffen' gestellt", "automatisch auf 'LKW nicht eingetroffen' gestellt am " & Format(Now, "dd.MM.yyyy HH:mm") & ", da bereits länger als 10 Tage offen") + + Check_Nicht_eingetroffen += 1 + End While + dr.Close() + End Using + End Using + + Catch ex As Exception + MsgBox("Fehler in der Function Check_Nicht_eingetroffen:" & vbCrLf & vbCrLf & ex.Message & vbCrLf & vbCrLf & "Der Vorgang wird abgebrochen!", MsgBoxStyle.Exclamation) + Check_Nicht_eingetroffen = 0 + Exit Try + Finally + conn.Close() + End Try + + End Using + Return Check_Nicht_eingetroffen + End Function + + Public Function Anzahl_Aviso_ermitteln(hSQL As String) As Integer + 'Hier werden alle als Urlaub gekennzeichneten Tage zusammengezählt + Anzahl_Aviso_ermitteln = 0 + Dim sql As String = hSQL + Dim daten As cAviso = Nothing + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() + Try + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() + Anzahl_Aviso_ermitteln += 1 + End While + dr.Close() + End Using + End Using + conn.Close() + Catch ex As Exception + 'MsgBox("Fehler in der Function Anzahl_Aviso_ermitteln:" & vbCrLf & vbCrLf & ex.Message & vbCrLf & vbCrLf & "Der Vorgang wird abgebrochen!", MsgBoxStyle.Exclamation) + Return 0 + Exit Try + End Try + + Return Anzahl_Aviso_ermitteln + End Function + +End Class + +Public Class cVermerk + Property VermerkID As Integer + Property AvisoID As Integer + Property SendungID As Integer = -1 + Property VermerkArt As String = "A" + Property Datum As Date + Property Mitarbeiter As String + Property MitarbeiterId As Integer + Property Hinweis_Vermerk As String + Property VermerkCodeId As Integer + Property VorauskasseId As Object = Nothing + Property Beschreibung As String = "" + Property SMSId As Integer + Property SMSStatus As Integer + + +End Class + +Public Class cVermerkeDAL + + + Public Function LesenVermerk(hID As Integer, hSQL As String) As cVermerk + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String + If hID > 0 Then + sql = String.Format("SELECT * FROM Vermerke WHERE VermerkID = {0}", hID) + Else + sql = hSQL + End If + Dim daten As cVermerk = Nothing + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + daten = New cVermerk() + daten.VermerkID = VarToInt(dr.Item("VermerkID")) + daten.AvisoID = VarToInt(dr.Item("AvisoID")) + daten.Datum = CDate(VarToDate(dr.Item("Datum"))) + daten.Hinweis_Vermerk = VarToStr(dr.Item("Hinweis_Vermerk")) + daten.Mitarbeiter = VarToStr(dr.Item("Mitarbeiter")) + daten.VermerkCodeId = VarToInt(dr.Item("VermerkeCode")) + daten.SendungID = VarToInt(dr.Item("SendungID")) + daten.VermerkArt = VarToStr(dr.Item("VermerkArt")) + daten.VorauskasseId = VarToStr(dr.Item("VorauskasseId")) + daten.SMSId = VarToInt(dr.Item("SMSId")) + daten.SMSStatus = VarToInt(dr.Item("SMSstatus")) + End If + dr.Close() + End Using + End Using + conn.Close() + Return daten + End Function + + Public Function Anzeigen_Vermerke(hSQL As String) As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + Dim myTable = New DataTable() + 'Dim sql As String + 'sql = hSQL + Using cmd As New SqlCommand(hSQL, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'Anzeigen_Vermerke'") + ' If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + ' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + ' Environment.Exit(0) + ' End If + End Try + conn.Close() + End While + + Return Nothing + End Function + + + + Public Function loadTableMyAviso(maId As Integer) As DataTable + ' While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + + Dim myTable = New DataTable() + Dim sql As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " & + " FROM Aviso " & + " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & + " AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND (LetzterMitarbeiterId=@maId OR " & + " AVISOid IN ( SELECT distinct(tblSnd_AvisoID) FROM [tblSendungen] WHERE tblSnd_inbearbeitung=1 AND tblSnd_Bearbeitung_MaId=@maId) ) " & + "ORDER BY case " & + " when [Status] =3 then 0 " & + " when [Status] =1 then 1 " & + " when [Status] =99 then 2 " & + " when [Status] =4 then 3 " & + " when [Status] =5 then 4 " & + " when [Status] =0 then 5 " & + " END, Ankunft " + + Using cmd As New SqlCommand(sql, conn) + 'Using dr As SqlDataReader = cmd.ExecuteReader() + Dim adapter As New SqlDataAdapter(cmd) + + 'cmd.CommandType = CommandType.StoredProcedure + cmd.Parameters.AddWithValue("@maId", maId) + 'Add parameters, e.g. + adapter.ContinueUpdateOnError = True + 'Get the data. + adapter.Fill(myTable) + + + 'dr.Close() + ' End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'Anzeigen_Vermerke'") + ' If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + 'MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + ' Environment.Exit(0) + 'End If + End Try + conn.Close() + ' End While + + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'Anzeigen_Vermerke'") + + End Try + Return Nothing + End Function + + + Public Function loadTableMyAvisoOLD(maId As Integer) As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + + Dim myTable = New DataTable() + 'Dim sql As String + 'sql = hSQL + ' command As New SqlCommand("sproc name here", connection), + ' adapter As New SqlDataAdapter(command) + + Using cmd As New SqlCommand("spmyaviso2", conn) + 'Using dr As SqlDataReader = cmd.ExecuteReader() + Dim adapter As New SqlDataAdapter(cmd) + + cmd.CommandType = CommandType.StoredProcedure + cmd.Parameters.AddWithValue("@maId", maId) + 'Add parameters, e.g. + adapter.ContinueUpdateOnError = True + 'Get the data. + adapter.Fill(myTable) + + + 'dr.Close() + ' End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'Anzeigen_Vermerke'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + conn.Close() + End While + + Return Nothing + End Function + + + Public Function SpeichernVermerk(ByVal d As cVermerk) As Integer + SpeichernVermerk = -1 + + Dim hAuswahl As String + If d.VermerkID = 0 Then + 'Neuanlage + hAuswahl = "INSERT INTO Vermerke " & + "(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId,SMSId,SMSStatus) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId,@SMSId,@SMSStatus)" + Else + 'Änderung + hAuswahl = String.Format( + "UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung,VorauskasseId=@VorauskasseId WHERE VermerkID = @VermerkID,SMSId=@SMSId,SMSStatus=@SMSStatus") + End If + Dim sql = hAuswahl + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@AvisoID", d.AvisoID) + cmd.Parameters.Add("@Datum", SqlDbType.DateTime).Value = SQLNullDate(d.Datum) + cmd.Parameters.AddWithValue("@Mitarbeiter", d.Mitarbeiter) + cmd.Parameters.AddWithValue("@Hinweis_Vermerk", d.Hinweis_Vermerk) + cmd.Parameters.AddWithValue("@VermerkID", d.VermerkID) + cmd.Parameters.AddWithValue("@VermerkeCode", d.VermerkCodeId) + cmd.Parameters.AddWithValue("@MitarbeiterId", d.MitarbeiterId) + cmd.Parameters.AddWithValue("@Beschreibung", d.Beschreibung) + cmd.Parameters.AddWithValue("@VermerkArt", d.VermerkArt) + cmd.Parameters.AddWithValue("@SendungID", If(d.SendungID > 0, d.SendungID, DBNull.Value)) + cmd.Parameters.AddWithValue("@VorauskasseId", If(d.VorauskasseId IsNot Nothing, d.VorauskasseId, DBNull.Value)) + cmd.Parameters.AddWithValue("@SMSId", d.SMSId) + cmd.Parameters.AddWithValue("@SMSStatus", d.SMSStatus) + + Try + cmd.ExecuteNonQuery() + + Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn) + SpeichernVermerk = CInt(newcmd.ExecuteScalar) + + + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Using + conn.Close() + + End Function + + Public Function SpeichernVermerkIDAufgehoben(VermerkID, VermerkIDAufgehoben) As Boolean + Dim SQLstr As String = " UPDATE Vermerke SET VermerkIDAufgehoben = @VermerkIDAufgehoben WHERE VermerkID = @VermerkID" + 'MsgBox("UPDATE Vermerke SET VermerkIDAufgehoben = " & VermerkIDAufgehoben & " WHERE VermerkID = " & VermerkID & "") + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(SQLstr, conn) + cmd.Parameters.AddWithValue("@VermerkID", VermerkID) + cmd.Parameters.AddWithValue("@VermerkIDAufgehoben", VermerkIDAufgehoben) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Using + conn.Close() + Return False + End Function + + + Public Sub UpdateLKW(ByVal avisoID As Integer, ByVal LKW_fertig As Boolean) + + Dim sql = "UPDATE Aviso Set [LKW_fertig]= @LKW_fertig WHERE AvisoID = @AvisoID" + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@LKW_fertig", LKW_fertig) + cmd.Parameters.AddWithValue("@AvisoID", avisoID) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Using + conn.Close() + End Sub + + Public Sub UpdateSendungVorbereitet(ByVal AvisoID As Integer, ByVal sendungsId As Integer, ByVal MaId As Integer, ByVal inBearbeitung As Boolean) + + Dim sql = "UPDATE tblSendungen Set tblSnd_inBearbeitung= @inBearbeitung, tblSnd_Bearbeitung_MaId = @MaId WHERE tblSnd_SendungID = @sendungsId" + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@inBearbeitung", inBearbeitung) + cmd.Parameters.AddWithValue("@MaId", MaId) + cmd.Parameters.AddWithValue("@sendungsId", sendungsId) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Using + conn.Close() + 'SetInBearbeitungAVISO(AvisoID) + End Sub + + + Public Sub SetInBearbeitungAVISO(ByVal AvisoID As Integer) + + Dim sql = "UPDATE Aviso SET inBearbeitung= (SELECT CASE WHEN count([tblSnd_inBearbeitung])>0 Then '1' ELSE '0' END FROM [tblSendungen] where [tblSnd_AvisoID]=@AvisoID) WHERE AvisoID = @AvisoID " + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@AvisoID", AvisoID) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Using + conn.Close() + End Sub + + Public Sub UpdateGrenzstelle(ByVal avisoID As Integer, ByVal Grenzstelle As String) + + Dim sql = "UPDATE Aviso SET [Grenzstelle]= @Grenzstelle WHERE AvisoID = @AvisoID AND Status <> " & cGlobal.Status_Ankunft & "" + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@Grenzstelle", Grenzstelle) + cmd.Parameters.AddWithValue("@AvisoID", avisoID) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Using + conn.Close() + End Sub + + + Public Sub LöschenVermerk(ByVal hID As Integer) + Dim sql = String.Format("DELETE FROM Vermerke WHERE VermerkID = {0}", hID) + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Vermerk kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + conn.Close() + End Sub + + + Public Sub toggleHervorheben(ByVal hID As Integer) + Dim sql = String.Format("UPDATE Vermerke SET Hervorheben=Hervorheben-1 WHERE VermerkID = {0}", hID) + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Hervorheben kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Hervorheben") + End Try + End Using + conn.Close() + + End Sub + Public Function Vermerke_einlesen(hAvisoID As Integer) As String + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim x As String = "" + Dim Anz As Long = 0 + Dim sql As String = "SELECT * FROM Vermerke WHERE AvisoID = " & hAvisoID & " ORDER BY Datum" + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() + x += Format(CDate(dr.Item("Datum")), "dd.MM. HH:mm") & vbTab & + VarToStr(dr.Item("Hinweis_Vermerk")) & vbCrLf + Anz += 1 + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Function Vermerke_einlesen:" & vbCrLf & vbCrLf & ex.Message & vbCrLf & vbCrLf & "Der Vorgang wird abgebrochen!", MsgBoxStyle.Exclamation) + Anz = 0 + Exit Try + End Try + conn.Close() + If Anz = 0 Then x = "keine Vermerke vorhanden" + + Return x + + End Function + + Public Function Druckinfo(hSQL As String) As String + 'Hier werden alle Sonderkorrektur-Einträge des Tages in einem Textfile zusammengefasst (als Info für Druck) + Druckinfo = "" + Dim Anz As Integer = 0 + Dim daten As cVermerk = Nothing + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + Using cmd As New SqlCommand(hSQL, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() + Anz += 1 + Druckinfo += Format(CDate(dr.Item("Datum")), "dd.MM. HH:mm") & " " & + VarToStr(dr.Item("Hinweis_Vermerk")) & vbCrLf + End While + dr.Close() + If Anz = 0 Then Druckinfo = "" 'wenn nichts gefunden, dann Druckzeile leer lassen + End Using + End Using + Catch ex As Exception + Druckinfo = "Es ist ein Fehler beim Lesen der Vermerke aufgetreten." + Exit Try + End Try + conn.Close() + Return Druckinfo + End Function + +End Class + + +Public Class cAvisoTV + Property TVID As Long + Property FixeZeile1 As String + Property FixeZeile2 As String + Property FixeZeile3 As String + Property Standort As String + Property Art As String +End Class + +Public Class cAvisoTVDAL + + Public Function LesenAvisoTV(hID As Integer, wherehSQL As String, Standort As String, Special As String) As cAvisoTV + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String + sql = "SELECT * FROM AvisoTV WHERE 1=1 " + If hID > 0 Then + sql &= String.Format(" AND TVID = {0}", hID) + Else + sql &= wherehSQL + End If + + If Standort <> "" Then + sql &= " AND Standort='" & Standort & "'" + End If + + If Standort <> "" Then + sql &= " AND (Special is null or Special='" & Special & "') " + End If + + sql &= " ORDER BY Special desc,TVID " + + Dim daten As cAvisoTV = Nothing + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() + Try + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + daten = New cAvisoTV() + daten.TVID = VarToInt(dr.Item("TVID")) + daten.FixeZeile1 = VarToStr(dr.Item("FixeZeile1")) + daten.FixeZeile2 = VarToStr(dr.Item("FixeZeile2")) + daten.FixeZeile3 = VarToStr(dr.Item("FixeZeile3")) + daten.Standort = VarToStr(dr.Item("Standort")) + daten.Art = VarToStr(dr.Item("Art")) + End If + dr.Close() + End Using + End Using + Return daten + Catch ex As Exception + Return Nothing + End Try + conn.Close() + + End Function + + Public Sub SpeichernAvisoTV(ByVal d As cAvisoTV) + Dim hAuswahl As String + If d.TVID = 0 Then + 'Neuanlage + hAuswahl = "INSERT INTO AvisoTV " & + "(FixeZeile1, FixeZeile2, FixeZeile3) VALUES (@FixeZeile1, @FixeZeile2, @FixeZeile3, @Standort, @Art)" + Else + 'Änderung + hAuswahl = String.Format( + "UPDATE AvisoTV SET FixeZeile1=@FixeZeile1, FixeZeile2=@FixeZeile2, FixeZeile3=@FixeZeile3 , Standort=@Standort , Art=@Art WHERE TVID = @TVID") + End If + Dim sql = hAuswahl + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@FixeZeile1", d.FixeZeile1) + cmd.Parameters.AddWithValue("@FixeZeile2", d.FixeZeile2) + cmd.Parameters.AddWithValue("@FixeZeile3", d.FixeZeile3) + cmd.Parameters.AddWithValue("@Standort", d.Standort) + cmd.Parameters.AddWithValue("@Art", d.Art) + cmd.Parameters.AddWithValue("@TVID", d.TVID) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern AvisoTV") + End Try + End Using + conn.Close() + End Sub + + Public Sub LöschenAvisoTV(ByVal hID As Integer) + Dim sql = String.Format("DELETE FROM AvisoTV WHERE TVID = {0}", hID) + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("AvisoTV-Eintrag kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + conn.Close() + End Sub + + +End Class + +Public Class cOption + Property OptionID As Long + Property eMail_Ankunft_Betreff As String + Property eMail_Ankunft_Text As String + Property eMail_Freigabe_Betreff As String + Property eMail_Freigabe_Text As String +End Class + +Public Class cOptionenDAL + + Public Function LesenOptionen(hID As Integer, hSQL As String) As cOption + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String + If hID > 0 Then + sql = String.Format("SELECT * FROM Optionen WHERE OptionID = {0}", hID) + Else + sql = hSQL + End If + Dim daten As cOption = Nothing + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + daten = New cOption() + daten.OptionID = VarToInt(dr.Item("OptionID")) + daten.eMail_Ankunft_Betreff = VarToStr(dr.Item("eMail_Ankunft_Betreff")) + daten.eMail_Ankunft_Text = VarToStr(dr.Item("eMail_Ankunft_Text")) + daten.eMail_Freigabe_Betreff = VarToStr(dr.Item("eMail_Freigabe_Betreff")) + daten.eMail_Freigabe_Text = VarToStr(dr.Item("eMail_Freigabe_Text")) + End If + dr.Close() + End Using + End Using + conn.Close() + Return daten + End Function + + + + Public Function setAVISOFromPcName() As Integer + Dim zeilen As Integer = 0 + Dim sql = String.Format( + " UPDATE Aviso SET LetzterMitarbeiter = @LetzterMitarbeiter, LetzterMitarbeiterId = @LetzterMitarbeiterId " & + " WHERE Status IN (" & cGlobal.Status_Ankunft & ") AND LetzterMitarbeiter like '%/" & cAllgemein.USRNAME.ToString & "' " & + " AND LetzterMitarbeiterId NOT LIKE @LetzterMitarbeiterId") + ' MsgBox(sql) + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + ' cmd.Parameters.AddWithValue("@LetzterMitarbeiter", cGlobal.AktiverMitarbeiter.Mitarbeiter & "/" & cAllgemein.USRNAME.ToString) + cmd.Parameters.AddWithValue("@LetzterMitarbeiter", cGlobal.AktiverMitarbeiter.Mitarbeiter) + cmd.Parameters.AddWithValue("@LetzterMitarbeiterId", cGlobal.AktiverMitarbeiter.MitarbeiterID) + Try + zeilen = cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler bei setAVISOFromPcName") + End Try + End Using + conn.Close() + Return zeilen + End Function + + + + Public Sub SpeichernOptionen(ByVal d As cOption) + Dim hAuswahl As String + If d.OptionID = 0 Then + 'Neuanlage + hAuswahl = "INSERT INTO Optionen " & + "(eMail_Ankunft_Betreff, eMail_Ankunft_Text, eMail_Freigabe_Betreff, eMail_Freigabe_Text) VALUES (@eMail_Ankunft_Betreff, @eMail_Ankunft_Text, @eMail_Freigabe_Betreff, @eMail_Freigabe_Text)" + Else + 'Änderung + hAuswahl = String.Format( + "UPDATE Optionen SET eMail_Ankunft_Betreff=@eMail_Ankunft_Betreff, eMail_Ankunft_Text=@eMail_Ankunft_Text, eMail_Freigabe_Betreff=@eMail_Freigabe_Betreff, eMail_Freigabe_Text=@eMail_Freigabe_Text WHERE OptionID = @OptionID") + End If + Dim sql = hAuswahl + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@eMail_Ankunft_Betreff", d.eMail_Ankunft_Betreff) + cmd.Parameters.AddWithValue("@eMail_Ankunft_Text", d.eMail_Ankunft_Text) + cmd.Parameters.AddWithValue("@eMail_Freigabe_Betreff", d.eMail_Freigabe_Betreff) + cmd.Parameters.AddWithValue("@eMail_Freigabe_Text", d.eMail_Freigabe_Text) + cmd.Parameters.AddWithValue("@OptionID", d.OptionID) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Optionen können nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Optionen") + End Try + End Using + conn.Close() + End Sub + + Public Sub LöschenOptionen(ByVal hID As Integer) + Dim sql = String.Format("DELETE FROM Optionen WHERE TVID = {0}", hID) + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Optionen-Eintrag kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + conn.Close() + End Sub + + +End Class + +Public Class cStandort + Property StandortID As Integer + Property Standort As String + Property Standort_Text As String + Property Info As String + Property eMail_Ankunft_Betreff As String + Property eMail_Ankunft_Text As String + Property eMail_Freigabe_Betreff As String + Property eMail_Freigabe_Text As String + + Property eMail_Zollbeleg_Betreff As String + Property eMail_Zollbeleg_Text As String +End Class + +Public Class cStandorteDAL + + Public Function LesenStandort(hID As Integer, hStandort As String, hSQL As String) As cStandort + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String + If hID > 0 Then + sql = String.Format("SELECT * FROM Standorte WHERE StandortID = {0}", hID) + ElseIf hStandort <> "" Then + sql = String.Format("SELECT * FROM Standorte WHERE Standort = '" & hStandort.Trim & "' and FIRMA ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'") + Else + sql = hSQL + End If + + Dim daten As cStandort = Nothing + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + daten = New cStandort() + daten.StandortID = VarToInt(dr.Item("StandortID")) + daten.Standort = VarToStr(dr.Item("Standort")) + daten.Standort_Text = VarToStr(dr.Item("Standort_Text")) + daten.Info = VarToStr(dr.Item("Info")) + daten.eMail_Ankunft_Betreff = VarToStr(dr.Item("eMail_Ankunft_Betreff")) + daten.eMail_Ankunft_Text = VarToStr(dr.Item("eMail_Ankunft_Text")) + daten.eMail_Freigabe_Betreff = VarToStr(dr.Item("eMail_Freigabe_Betreff")) + daten.eMail_Freigabe_Text = VarToStr(dr.Item("eMail_Freigabe_Text")) + daten.eMail_Zollbeleg_Betreff = VarToStr(dr.Item("eMail_Zollbeleg_Betreff")) + daten.eMail_Zollbeleg_Text = VarToStr(dr.Item("eMail_Zollbeleg_Text")) + End If + dr.Close() + End Using + End Using + conn.Close() + Return daten + End Function + + Public Function Anzeigen_Standorte(hSQL As String) As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + Dim myTable = New DataTable() + 'Dim sql As String + 'sql = hSQL + + Using cmd As New SqlCommand(hSQL, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'Anzeigen_Standorte'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + conn.Close() + End While + + Return Nothing + End Function + + Public Function Anzeigen_cboStandorte() As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + Dim myTable = New DataTable() + Dim sql As String + + sql = "SELECT StandortID, Standort FROM Standorte ORDER BY Standort" + + Using cmd As New SqlCommand(sql, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'Anzeigen_cboStandort'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + conn.Close() + End While + + Return Nothing + End Function + + Public Sub SpeichernStandort(ByVal d As cStandort) + Dim hAuswahl As String + If d.StandortID = 0 Then + 'Neuanlage + hAuswahl = "INSERT INTO Standorte " & + "(Standort, Standort_Text, Info, eMail_Ankunft_Betreff, eMail_Ankunft_Text, eMail_Freigabe_Betreff, eMail_Freigabe_Text,eMail_Zollbeleg_Betreff,eMail_Zollbeleg_Text) VALUES (" & + "@Standort, @Standort_Text, @Info, @eMail_Ankunft_Betreff, @eMail_Ankunft_Text, @eMail_Freigabe_Betreff, @eMail_Freigabe_Text,@eMail_Zollbeleg_Betreff,@eMail_Zollbeleg_Text)" + Else + 'Änderung + hAuswahl = String.Format( + "UPDATE Standorte SET Standort = @Standort, Standort_Text=@Standort_Text, Info=@Info, eMail_Ankunft_Betreff=@eMail_Ankunft_Betreff, eMail_Ankunft_Text=@eMail_Ankunft_Text, eMail_Freigabe_Betreff=@eMail_Freigabe_Betreff, eMail_Freigabe_Text=@eMail_Freigabe_Text , eMail_Zollbeleg_Betreff=@eMail_Zollbeleg_Betreff , eMail_Zollbeleg_Text=@eMail_Zollbeleg_Text " & + "WHERE StandortID = @StandortID") + End If + Dim sql = hAuswahl + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@Standort", d.Standort) + cmd.Parameters.AddWithValue("@Standort_Text", d.Standort_Text) + cmd.Parameters.AddWithValue("@Info", d.Info) + cmd.Parameters.AddWithValue("@eMail_Ankunft_Betreff", d.eMail_Ankunft_Betreff) + cmd.Parameters.AddWithValue("@eMail_Ankunft_Text", d.eMail_Ankunft_Text) + cmd.Parameters.AddWithValue("@eMail_Freigabe_Betreff", d.eMail_Freigabe_Betreff) + cmd.Parameters.AddWithValue("@eMail_Freigabe_Text", d.eMail_Freigabe_Text) + cmd.Parameters.AddWithValue("@eMail_Zollbeleg_Betreff", d.eMail_Zollbeleg_Betreff) + cmd.Parameters.AddWithValue("@eMail_Zollbeleg_Text", d.eMail_Zollbeleg_Text) + cmd.Parameters.AddWithValue("@StandortID", d.StandortID) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Standort") + End Try + End Using + conn.Close() + End Sub + + Public Sub LöschenStandort(ByVal hID As Integer) + Dim sql = String.Format("DELETE FROM Standorte WHERE StandortID = {0}", hID) + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Standort kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + conn.Close() + End Sub + +End Class + + +Public Class Statistik + Public Function getKunden(hSQL As String) As DataTable + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Try + Dim myTable = New DataTable() + 'Dim sql As String + 'sql = hSQL + Using cmd As New SqlCommand(hSQL, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getKunden'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + conn.Close() + ' End While + Return Nothing + End Function + + + Public Function getAVG(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal DauerVon As String, ByVal DauerBis As String) As Long + If DauerVon = "" Then DauerBis = "0" + If DauerBis = "" Then DauerBis = "999999" + Dim sql As String = "SELECT avg(Dauer) " & + " FROM Aviso WHERE ( Datum BETWEEN '" & datumVon.ToShortDateString & "' AND '" & datumBis.ToShortDateString & "') AND ( Dauer BETWEEN '" & DauerVon & "' AND '" & DauerBis & "') AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + ' Dim sql As String = "SELECT * " & + ' " FROM Aviso" + ' MsgBox(sql) + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + 'Using conn As SqlConnection = cDatenbank.GetNewOpenConnection() + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + + ' MsgBox(conn.ConnectionString) + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + If dr.Read Then + If Not dr.GetValue(0) Is DBNull.Value Then + Return CLng(dr.GetValue(0)) + End If + End If + conn.Close() + Return 0 + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + 'end Using + End Using + Return -1 + End Function + + Public Function getAVGMa(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal DauerVon As String, ByVal DauerBis As String) As List(Of listMaAVG) + If DauerVon = "" Then DauerBis = "0" + If DauerBis = "" Then DauerBis = "999999" + Dim sql As String = "SELECT LetzterMitarbeiterId,avg(Dauer) as avg,mit_nname + ' ' + mit_vname as name, count([LetzterMitarbeiterId]) as count " & + " FROM Aviso INNER JOIN ADMIN.dbo.tblMitarbeiter ON mit_id=LetzterMitarbeiterId WHERE ( Datum BETWEEN '" & datumVon.ToShortDateString & "' AND '" & datumBis.ToShortDateString & "') AND ( Dauer BETWEEN '" & DauerVon & "' AND '" & DauerBis & "') AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' GROUP BY LetzterMitarbeiterId,mit_nname,mit_vname" + Dim dr As SqlDataReader + + Dim ll As New List(Of listMaAVG) + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + If dr.HasRows Then + While dr.Read + If Not dr.Item("LetzterMitarbeiterId") Is DBNull.Value Then + Dim l As New listMaAVG + l.mit_id = CInt(dr.Item("LetzterMitarbeiterId")) + l.mit_name = CStr(dr.Item("name")) + l.mit_avg = CInt(dr.Item("avg")) + l.mit_count = CInt(dr.Item("count")) + ll.Add(l) + End If + End While + Return ll + End If + conn.Close() + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + 'end Using + End Using + Return Nothing + End Function + +End Class + +Public Class StatDB + Public Function getAnzahlLkwAnkunft(art As String, ByVal datTmp As Date, i As Integer, firma As String, CLUSTER As String) As Integer + Dim lkws As Integer = 0 + Try + Dim cn As New SqlConnection() + ' cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;" + ' cn.Open() + cn = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT COUNT(*) FROM [Aviso] where " & art & " between @DatVon and @DatBis " & If(firma <> "", " AND Firma='" & firma & "' ", "") & If(CLUSTER <> "", " AND CLUSTER='" & CLUSTER & "' ", "") & " ", cn) + 'DATEADD(dd, 0, DATEDIFF(dd, 0, [Ankunft]))=DATEADD(dd, 0, DATEDIFF(dd, 0, [Freigabe])) AND + Dim VonStr = "" + Dim BisStr = "" + If i = 6 Then + VonStr = datTmp.ToString("yyyy-MM-dd ") & "00:00:00" + Else + VonStr = datTmp.ToString("yyyy-MM-dd ") & i & ":00:00" + End If + + If i = 22 Then + BisStr = datTmp.ToString("yyyy-MM-dd ") & "23:59:59" + Else + BisStr = datTmp.ToString("yyyy-MM-dd ") & i & ":59:59" + End If + + cmd.Parameters.AddWithValue("@DatVon", VonStr) + cmd.Parameters.AddWithValue("@DatBis", BisStr) + ' MsgBox(VonStr) + Dim dr = cmd.ExecuteReader() + + If dr.HasRows Then + dr.Read() + lkws = CInt(dr.Item(0)) + End If + dr.Close() + cn.Close() + End Using + Return lkws + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return 0 + End Function + + Public Function getAnzahlLkwAnkunft(art As String, ByVal datTmp As Date, firma As String) As Integer + Dim lkws As Integer = 0 + Try + Dim cn As New SqlConnection() + ' cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;" + ' cn.Open() + cn = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT COUNT(*) FROM [Aviso] where " & art & " between @DatVon and @DatBis AND Firma='" & If(firma <> "", firma, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) & "' ", cn) + 'DATEADD(dd, 0, DATEDIFF(dd, 0, [Ankunft]))=DATEADD(dd, 0, DATEDIFF(dd, 0, [Freigabe])) AND + Dim VonStr = "" + Dim BisStr = "" + + VonStr = datTmp.ToString("yyyy-MM-dd ") & "00:00:00" + BisStr = datTmp.ToString("yyyy-MM-dd ") & "23:59:59" + + + cmd.Parameters.AddWithValue("@DatVon", VonStr) + cmd.Parameters.AddWithValue("@DatBis", BisStr) + ' MsgBox(VonStr) + Dim dr = cmd.ExecuteReader() + + If dr.HasRows Then + dr.Read() + lkws = CInt(dr.Item(0)) + End If + dr.Close() + cn.Close() + End Using + Return lkws + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return 0 + End Function + + Public Function getAnzahlLkwDauer(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal DauerVon As String, ByVal DauerBis As String, ByVal DauerEinschrVon As String, ByVal DauerEinschrBis As String, Optional where As String = "") As Integer + Dim sql As String = "SELECT count(*) as count " & + " FROM Aviso WHERE ( Datum BETWEEN '" & datumVon.ToShortDateString & "' AND '" & datumBis.ToShortDateString & "') AND ( Dauer BETWEEN '" & DauerVon & "' AND '" & DauerBis & "') AND ( Dauer BETWEEN '" & DauerEinschrVon & "' AND '" & DauerEinschrBis & "') AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " & where + Dim dr As SqlDataReader + 'MsgBox(sql) + Dim anz As Integer = 0 + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + If dr.HasRows Then + dr.Read() + anz = CInt(dr.Item(0)) + End If + conn.Close() + Return anz + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + 'end Using + End Using + Return 0 + End Function + + Public Function getAnzahlAvisoProbleme(ByVal kdNr As String, ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal DauerVon As String, ByVal DauerBis As String, Optional where As String = "") As List(Of listStatAvisoProleme) + 'ZWEICHFACE SELECT, um Doppelte Einträge mit selber AvisoId zu umgehen + Dim sql As String = " SELECT VermerkeCode,[Bezeichnung], count(*) as anzahlVermerk " & + " FROM " & + " (SELECT aviso.avisoid, VermerkeCode,[Bezeichnung] " & + " FROM [AVISO].[dbo].[Vermerke] " & + " INNER JOIN [Aviso] ON [Vermerke].[AvisoID]=[AVISO].[AvisoID] " & + " INNER JOIN [AVISO].[dbo].[VermerkeCodes] ON VermerkeCode=VermerkCodeId " & + " where AVISO.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND /*([Auftraggeber_KdNr] = @kdNr) " & + " AND */ ( Aviso.Datum BETWEEN @datumVon AND @datumBis) AND ( Aviso.Dauer BETWEEN @DauerVon AND @DauerBis ) " & where & + " group by aviso.avisoid,VermerkeCode,[Bezeichnung] " & + " ) AS tbl " & + " WHERE VermerkeCode IN (1,3,5,7,9,11,13,15,16,25) " & + " group by VermerkeCode,[Bezeichnung] " & + " ORDER BY anzahlVermerk DESC " + + Dim dr As SqlDataReader + Dim data As New List(Of listStatAvisoProleme) + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@kdNr", kdNr) + cmd.Parameters.AddWithValue("@datumVon", datumVon.ToShortDateString) + cmd.Parameters.AddWithValue("@datumBis", datumBis.ToShortDateString) + cmd.Parameters.AddWithValue("@DauerVon", DauerVon) + cmd.Parameters.AddWithValue("@DauerBis", DauerBis) + 'cmd.Parameters.AddWithValue("@DauerEinschrVon", DauerEinschrVon) + 'cmd.Parameters.AddWithValue("@DauerEinschrBis", DauerEinschrBis) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + While dr.Read() + Dim d As New listStatAvisoProleme + d.VermerkeCode = CInt(dr.Item("VermerkeCode")) + d.Bezeichnung = CStr(dr.Item("Bezeichnung")) + d.AnzahlVermerke = CInt(dr.Item("anzahlVermerk")) + data.Add(d) + End While + conn.Close() + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + 'end Using + End Using + Return data + End Function + + + + + +End Class +Public Class adminfunc + Public Function getDatatable(connstr As String, hSQL As String) As DataTable + Dim conn As SqlConnection = Nothing + Try + conn = New SqlConnection(connstr) + conn.Open() + Dim myTable = New DataTable() + 'Dim sql As String + 'sql = hSQL + Using cmd As New SqlCommand(hSQL, conn) + Using dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getKunden'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + conn.Close() + ' End While + Return Nothing + End Function + + + + Public Sub setAuftraggber(ByVal Auftraggeber As String, ByVal Auftraggeber_KdNr As String) + Dim hAuswahl As String + + hAuswahl = String.Format( + "UPDATE Aviso SET [Auftraggeber_KdNr] = @Auftraggeber_KdNr " & + "WHERE [Auftraggeber] = @Auftraggeber") + + Dim sql = hAuswahl + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@Auftraggeber", Auftraggeber) + cmd.Parameters.AddWithValue("@Auftraggeber_KdNr", Auftraggeber_KdNr) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Firma") + End Try + End Using + conn.Close() + End Sub + + Public Sub setFirmenKdNr(ByVal Firma As String, ByVal KundenNr As String) + Dim sql = "UPDATE Firmen SET KundenNr = @KundenNr " & + "WHERE [Firma] like @Firma " + + ' MsgBox("UPDATE Firmen SET KundenNr = '" & KundenNr & "' " & + ' "WHERE [Firma] like '" & Firma & "' ") + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@Firma", Firma) + cmd.Parameters.AddWithValue("@KundenNr", KundenNr) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Firma") + End Try + End Using + conn.Close() + End Sub + + + Public Sub setFraechter(ByVal Frächter As String, ByVal Frächter_KdNr As String) + Dim hAuswahl As String + + hAuswahl = String.Format( + "UPDATE Aviso SET [Frächter_KdNr] = @Frächter_KdNr " & + "WHERE [Frächter] = @Frächter") + + Dim sql = hAuswahl + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@Frächter", Frächter) + cmd.Parameters.AddWithValue("@Frächter_KdNr", Frächter_KdNr) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Firma") + End Try + End Using + conn.Close() + End Sub + + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cGlobal.vb b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cGlobal.vb new file mode 100644 index 0000000..86cd1e0 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cGlobal.vb @@ -0,0 +1,55 @@ +Imports System.Data.OleDb + +Public Class cGlobal + 'Public Shared ConnStr As String + 'Public Shared AufrufenderProzess As AufrufenderProzess + 'Public Shared Aktive_ID As Integer + 'Public Shared AktiverMitarbeiter As New cMitarbeiter + 'Public Shared AngemeldeterUser As String + + ' Public Shared Admin As Boolean + Public Shared DBPfad As String + ' Public Shared Aktive_AuswahlID As Integer + Public Shared Aktive_ID As Integer + Public Shared Aktive_SendungsID As Integer + Public Shared Aktive_Zeile As Integer + Public Shared Ausgewählte_Zeile As Integer = 0 + Public Shared AnzahlAlle As Long + Public Shared AnzahlAuswahl As Long + ' Public Shared ConnStr_ANZEIGE As String + ' Public Shared ConnStrADMIN As String + ' Public Shared ConnStrFMZOLL As String + Public Shared AngemeldeterUser As String + Public Shared AngemeldeterUserPwd As String + Public Shared AktiverMitarbeiter As New VERAG_PROG_ALLGEMEIN.cMitarbeiterAVISO + Public Shared Optionen As New cOption + + Public Const UStatus_AVEingang = -1 + Public Const UStatus_none = "" + + Public Const Status_Erfasst = 0 + Public Const Status_Vorbereitet = 4 + Public Const Status_Vorgeschrieben = 5 + Public Const Status_Freigegeben = 1 + Public Const Status_NichtEingetroffen = 2 + Public Const Status_Ankunft = 3 + + + Shared Function getStatusText(i As Integer) As String + Select Case i + Case 0 : Return "Erfasst" + Case 1 : Return "Freigegeben" + Case 2 : Return "Nicht Eingetroffen" + Case 3 : Return "Ankunft" + Case 4 : Return "Vorbereitet" + Case 5 : Return "Vorgeschrieben" + Case 99 : Return "In Vorbereitung" + Case Else : Return "" + End Select + End Function +End Class + +Public Enum AufrufenderProzess + VBZeit = 1 + VBZeitVW = 2 +End Enum diff --git a/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cMeineFunktionenAVISO.vb b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cMeineFunktionenAVISO.vb new file mode 100644 index 0000000..5c72d99 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cMeineFunktionenAVISO.vb @@ -0,0 +1,258 @@ +Imports System.Windows.Forms + +Public Class cMeineFunktionenAVISO + 'Diese Klasse beinhaltet alle meine Funktionen, die in allen Projekten verwendet werden können + Public Shared Function grayoutForm() As Form + Dim f As New frmGrayOut + f.Show() + Return f + End Function + + Public Const LeerDatum As Date = #12/30/1899# 'wird als leerer Datumswert verwendet, da sonst Probleme bei Null/Date + + Public Shared Function SQLDatum(dat As Date) As String + 'Datum für SQLAbfrage umwandeln (31.01.1998 --> #1/31/1998#) + SQLDatum = "" + If Not IsDate(dat) Then Exit Function + SQLDatum = "'" & DateAndTime.Day(dat) & "." & DateAndTime.Month(dat) & "." & DateAndTime.Year(dat) & " 00:00:00'" + 'SQLDatum = dat.ToString + End Function + + Public Shared Function SQLDatumZeit(dat As Date) As String + 'Datum inklusive Zeit für SQLAbfrage umwandeln (31.01.1998 10:15 Uhr --> #1/31/1998 10:15:00#) + SQLDatumZeit = "" + + If Not IsDate(dat) Then Exit Function + SQLDatumZeit = "'" & DateAndTime.Day(dat) & "." & DateAndTime.Month(dat) & "." & DateAndTime.Year(dat) & " " & + DateAndTime.Hour(dat) & ":" & DateAndTime.Minute(dat) & "'" + End Function + + Public Shared Function SQLDatumZeitSekunden(dat As Date) As String + 'Datum inklusive Zeit für SQLAbfrage umwandeln (31.01.1998 10:15 Uhr --> #1/31/1998 10:15:00#) + SQLDatumZeitSekunden = "" + If Not IsDate(dat) Then Exit Function + SQLDatumZeitSekunden = "'" & DateAndTime.Day(dat) & "." & DateAndTime.Month(dat) & "." & DateAndTime.Year(dat) & " " & + DateAndTime.Hour(dat) & ":" & DateAndTime.Minute(dat) & ":" & DateAndTime.Second(dat) & "'" + End Function + + Public Shared Function SQLNullDate(d As Date) As Object + 'Wenn Datum 00.00.0000, dann wird dbnull zurückgegeben + If d = New Date Then : SQLNullDate = DBNull.Value + Else : SQLNullDate = d : End If + End Function + + Public Shared Function GetProgrammIcon() As Drawing.Icon + Return My.Resources.Aviso + End Function + + Public Shared Function VarToInt(ByVal wert As Object) As Integer + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return 0 + Else + Return CInt(wert) + End If + Catch generatedExceptionName As Exception + Return 0 + End Try + End Function + + Public Shared Function VarToInt2(ByVal wert As Object) As Integer + Try + If wert Is Nothing OrElse wert Is DBNull.Value OrElse Not IsNumeric(wert) Then + Return -1 + Else + Return CInt(wert) + End If + Catch generatedExceptionName As Exception + Return -1 + End Try + End Function + + Public Shared Function VarToLng(ByVal wert As Object) As Long + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return 0 + Else + Return CLng(wert) + End If + Catch generatedExceptionName As Exception + Return 0 + End Try + End Function + + Public Shared Function VarToDbl(ByVal wert As Object) As Double + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return 0 + Else + Return CDbl(wert) + End If + Catch generatedExceptionName As Exception + Return 0 + End Try + End Function + + Public Shared Function checkNullReturnValue(ByVal o As Object, ByVal returnValue As Object) As Object + If o IsNot Nothing And o IsNot DBNull.Value Then Return (o) + Return returnValue + End Function + + Public Shared Function VarToBool(ByVal wert As Object) As Boolean + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return False + Else + Return CBool(wert) + End If + Catch generatedExceptionName As Exception + Return False + End Try + End Function + + Public Shared Function VarToStr(ByVal wert As Object) As String + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return "" + Else + Return Trim(DirectCast(wert, String)) + End If + Catch generatedExceptionName As Exception + Return "" + End Try + End Function + + Public Shared Function VarToDate(ByVal wert As Object) As Nullable(Of DateTime) + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return LeerDatum 'Nothing + Else + Return DirectCast(wert, DateTime) + End If + Catch generatedExceptionName As Exception + Return Nothing + End Try + End Function + + Public Shared Function IstGleich(i As Integer, ParamArray list As Integer()) As Boolean + 'prüft, ob ein Wert in einer Liste enthalten ist - z.B. i = 5 or 7 or 11 or 29 + For x As Integer = 0 To list.Length - 1 + If list(x) = i Then + Return True + End If + On Error Resume Next + Next + Return False + End Function + + Public Shared Function Minuten_auf_Text(hMinuten As Long) As String + + If hMinuten <= 0 Then Return "" + + Dim hStunden As Long + Dim hMinus As Boolean + Dim hMin As Long + + Minuten_auf_Text = "" + hMin = hMinuten + + If hMin = 0 Then + Minuten_auf_Text = "0:00" + Exit Function + End If + + If hMin < 0 Then + hMinus = True + hMin = hMin * -1 + End If + + hStunden = CLng(Fix(hMin / 60)) + hMin = hMin - (hStunden * 60) + If hMinus Then Minuten_auf_Text = "-" 'Minus wird nur bei Stunden angezeigt + Minuten_auf_Text = Minuten_auf_Text & hStunden & ":" & Format(hMin, "00") + End Function + + Public Shared Function ZeitInMinuten(hDat As Date) As Long + ZeitInMinuten = 0 + If Not IsDate(hDat) Then Exit Function + ZeitInMinuten = Hour(hDat) * 60 + Minute(hDat) + End Function + + Public Shared Function GetNewMaxPosNr(ByVal FilialeNr As Integer, Optional Year As Integer = -1) As Integer + Return VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(FilialeNr, CInt(IIf(Year > 0, Year, Now.Year))) + End Function + + Public Shared Function LKWFertig(AvisoID, Optional newLKWOK = Nothing) As Boolean + + Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL + Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + MsgBox("Keine Berechtigung!") + Return False + End If + + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False + + If newLKWOK Is Nothing Then + newLKWOK = Not Aviso.LKW_fertig + Else + If newLKWOK = Aviso.LKW_fertig Then Return True 'Wenn schon OK ist + End If + + + Dim msg As String + Dim antwort As MsgBoxResult + + + 'Taste LKW ist fertig + If Aviso.Status <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then + MsgBox("Es kann nur ein LKW mit Status ANKUNFT auf 'FERTIG/nicht FERTIG' gesetzt werden.", vbInformation) + Return False + End If + Dim aendArt As String = "" + Dim aendText As String = "" + + 'Status ist Ankunft - LKW wird je nach Eintrag auf Fertig/nicht fertig gesetzt + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + Dim hVermerk As New cVermerk 'bei Fertig zusätzlich einen Vermerk setzen + hVermerk.AvisoID = Aviso.AvisoID + hVermerk.Datum = Now + hVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + hVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID + + If newLKWOK Then + Aviso.LKW_fertig = True + Aviso.Änderungen = "LKW ist fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + hVermerk.Hinweis_Vermerk = "LKW ist fertig!" + hVermerk.VermerkCodeId = 26 + VermerkeDAL.SpeichernVermerk(hVermerk) + aendArt = "LKW ist fertig - gesetzt" + aendText = "LKW ist fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") + Else + Aviso.LKW_fertig = False + Aviso.Änderungen = "LKW ist nicht fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + hVermerk.Hinweis_Vermerk = "LKW ist nicht fertig." + hVermerk.VermerkCodeId = 27 + VermerkeDAL.SpeichernVermerk(hVermerk) + aendArt = "LKW ist nicht fertig - gesetzt" + aendText = "LKW ist nicht fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") + End If + Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(tmpid, aendArt, aendText) + + Return (tmpid > 0) + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cVermerkeCodes.vb b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cVermerkeCodes.vb new file mode 100644 index 0000000..5495f17 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/cVermerkeCodes.vb @@ -0,0 +1,187 @@ + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cVermerkeCodes_LIST + Dim LIST As New List(Of cVermerkeCodes) + + Sub New() + LOAD_LIST() + End Sub + Public Sub LOAD_LIST() + Try + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO() + Using cmd As New SqlCommand("SELECT * FROM VermerkeCodes ", conn) + + ' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cVermerkeCodes + 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 + LIST.Add(l) + + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function getTxt(VermerkCodeId, language) As String + For Each l In LIST + If l.VermerkCodeId = VermerkCodeId Then + Select Case language + Case "EN" : If l.Beschreibung_EN <> "" Then Return l.Beschreibung_EN + Case "TR" : If l.Beschreibung_TR <> "" Then Return l.Beschreibung_TR + Case "SRB", "YU" : If l.Beschreibung_SRB <> "" Then Return l.Beschreibung_SRB + Case "RO" : If l.Beschreibung_RO <> "" Then Return l.Beschreibung_RO + Case "BG" : If l.Beschreibung_BG <> "" Then Return l.Beschreibung_BG + Case "HU" : If l.Beschreibung_HU <> "" Then Return l.Beschreibung_HU + Case Else : If l.Beschreibung_DE <> "" Then Return l.Beschreibung_DE + End Select + Return l.Bezeichnung + End If + Next + Return "" + End Function + +End Class + + + + +Public Class cVermerkeCodes + Property VermerkCodeId As Integer + Property Bezeichnung As String = "" + Property LKW_Vermerk As Boolean + Property Kunde_Vermerk As Boolean + Property Beschreibung_DE As String = "" + Property Beschreibung_EN As String = "" + Property Beschreibung_TR As String = "" + Property Beschreibung_SRB As String = "" + Property Beschreibung_RO As String = "" + Property Beschreibung_BG As String = "" + Property Beschreibung_HU As String = "" + + + Dim SQL As New SQL + + Sub New() + + End Sub + Sub New(VermerkCodeId) + Me.VermerkCodeId = VermerkCodeId + 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("VermerkCodeId", VermerkCodeId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezeichnung", Bezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW_Vermerk", LKW_Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunde_Vermerk", Kunde_Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_DE", Beschreibung_DE)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_EN", Beschreibung_EN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_TR", Beschreibung_TR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_SRB", Beschreibung_SRB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_RO", Beschreibung_RO)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_BG", Beschreibung_BG)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_HU", Beschreibung_HU)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM VermerkeCodes WHERE VermerkCodeId=@VermerkCodeId) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "AVISO", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO() + Using cmd As New SqlCommand("SELECT * FROM VermerkeCodes WHERE VermerkCodeId=@VermerkCodeId ", conn) + cmd.Parameters.AddWithValue("@VermerkCodeId", VermerkCodeId) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [VermerkeCodes] SET " & str & " WHERE VermerkCodeId=@VermerkCodeId ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 VermerkeCodes (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/AVISO/frmGrayOut.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/frmGrayOut.Designer.vb new file mode 100644 index 0000000..1362a92 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/frmGrayOut.Designer.vb @@ -0,0 +1,45 @@ + _ +Partial Class frmGrayOut + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.SuspendLayout() + ' + 'frmGrayOut + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(284, 261) + Me.ForeColor = System.Drawing.SystemColors.Control + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.KeyPreview = True + Me.Name = "frmGrayOut" + Me.Opacity = 0.5R + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "frmGrayOut" + Me.ResumeLayout(False) + + End Sub +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/AVISO/frmGrayOut.resx b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/frmGrayOut.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/frmGrayOut.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/AVISO/frmGrayOut.vb b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/frmGrayOut.vb new file mode 100644 index 0000000..20a3a24 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/AVISO/frmGrayOut.vb @@ -0,0 +1,23 @@ +Imports System.Drawing +Imports System.Windows.Forms + +Public Class frmGrayOut + + Private Sub frmGrayOut_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown + If e.KeyCode = Keys.Escape Then + Me.Close() + End If + End Sub + + Private Sub frmGrayOut_Load(sender As Object, e As EventArgs) Handles Me.Load + Me.Location = New Point(0, 0) + Me.Size = Screen.PrimaryScreen.WorkingArea.Size + 'Damit Center von Child-Form richtig ist + End Sub + + Private Sub frmGrayOut_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Me.MaximumSize = Screen.PrimaryScreen.WorkingArea.Size + Me.Size = Screen.PrimaryScreen.WorkingArea.Size + Me.Location = New Point(0, 0) + End Sub +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/App.config b/SDL/VERAG_PROG_ALLGEMEIN/App.config new file mode 100644 index 0000000..8aab713 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/App.config @@ -0,0 +1,77 @@ + + + + +
+ + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 + + + + + + + + + + http://ec.europa.eu/taxation_customs/vies/services/checkVatService + + + https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/ + + + https://finanzonline.bmf.gv.at:443/fonws/ws/session + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Barcode/Code128Content.vb b/SDL/VERAG_PROG_ALLGEMEIN/Barcode/Code128Content.vb new file mode 100644 index 0000000..515042f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Barcode/Code128Content.vb @@ -0,0 +1,146 @@ +#Region " Class " + +#Region " Enums " + +Public Enum CodeSetAllowed + CodeA + CodeB + CodeAorB +End Enum + +Public Enum CodeSet + CodeA + CodeB +End Enum + +#End Region + +Public Class Code128Content + Private mCodeList As Integer() + + Public Sub New(ByVal AsciiData As String) + mCodeList = StringToCode128(AsciiData) + End Sub + + Public ReadOnly Property Codes() As Integer() + Get + Return mCodeList + End Get + End Property + + Private Function StringToCode128(ByVal AsciiData As String) As Integer() + + Dim asciiBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(AsciiData) + + Dim csa1 As CodeSetAllowed = If(asciiBytes.Length > 0, Code128Code.CodesetAllowedForChar(asciiBytes(0)), CodeSetAllowed.CodeAorB) + Dim csa2 As CodeSetAllowed = If(asciiBytes.Length > 0, Code128Code.CodesetAllowedForChar(asciiBytes(1)), CodeSetAllowed.CodeAorB) + Dim currcs As CodeSet = GetBestStartSet(csa1, csa2) + + Dim codes As New List(Of Integer)(asciiBytes.Length + 3) + codes.Add(Code128Code.StartCodeForCodeSet(currcs)) + + For i As Integer = 0 To asciiBytes.Length - 1 + Dim thischar As Integer = asciiBytes(i) + Dim nextchar As Integer = If(asciiBytes.Length > (i + 1), asciiBytes(i + 1), -1) + + codes.AddRange(Code128Code.CodesForChar(thischar, nextchar, currcs)) + Next + + Dim checksum As Integer = CInt(codes(0)) + For i As Integer = 1 To codes.Count - 1 + checksum += i * CInt(codes(i)) + Next + + codes.Add(checksum Mod 103) + codes.Add(Code128Code.StopCode()) + + Return codes.ToArray + End Function + + Private Function GetBestStartSet(ByVal csa1 As CodeSetAllowed, ByVal csa2 As CodeSetAllowed) As CodeSet + Dim vote As Integer = 0 + + vote += If((csa1 = CodeSetAllowed.CodeA), 1, 0) + vote += If((csa1 = CodeSetAllowed.CodeB), -1, 0) + vote += If((csa2 = CodeSetAllowed.CodeA), 1, 0) + vote += If((csa2 = CodeSetAllowed.CodeB), -1, 0) + + Return If((vote > 0), CodeSet.CodeA, CodeSet.CodeB) + End Function +End Class + +Public NotInheritable Class Code128Code + +#Region "Constants" + + Private Const cSHIFT As Integer = 98 + Private Const cCODEA As Integer = 101 + Private Const cCODEB As Integer = 100 + + Private Const cSTARTA As Integer = 103 + Private Const cSTARTB As Integer = 104 + Private Const cSTOP As Integer = 106 + +#End Region + + Public Shared Function CodesForChar(ByVal CharAscii As Integer, ByVal LookAheadAscii As Integer, ByRef CurrCodeSet As CodeSet) As Integer() + Dim result As Integer() + Dim shifter As Integer = -1 + + If Not CharCompatibleWithCodeset(CharAscii, CurrCodeSet) Then + If (LookAheadAscii <> -1) AndAlso Not CharCompatibleWithCodeset(LookAheadAscii, CurrCodeSet) Then + Select Case CurrCodeSet + Case CodeSet.CodeA + shifter = cCODEB + CurrCodeSet = CodeSet.CodeB + Exit Select + Case CodeSet.CodeB + shifter = cCODEA + CurrCodeSet = CodeSet.CodeA + Exit Select + End Select + Else + shifter = cSHIFT + End If + End If + + If shifter <> -1 Then + result = New Integer(1) {} + result(0) = shifter + result(1) = CodeValueForChar(CharAscii) + Else + result = New Integer(0) {} + result(0) = CodeValueForChar(CharAscii) + End If + + Return result + End Function + + Public Shared Function CodesetAllowedForChar(ByVal CharAscii As Integer) As CodeSetAllowed + If CharAscii >= 32 AndAlso CharAscii <= 95 Then + Return CodeSetAllowed.CodeAorB + Else + Return If((CharAscii < 32), CodeSetAllowed.CodeA, CodeSetAllowed.CodeB) + End If + End Function + + Public Shared Function CharCompatibleWithCodeset(ByVal CharAscii As Integer, ByVal currcs As CodeSet) As Boolean + Dim csa As CodeSetAllowed = CodesetAllowedForChar(CharAscii) + Return csa = CodeSetAllowed.CodeAorB OrElse (csa = CodeSetAllowed.CodeA AndAlso currcs = CodeSet.CodeA) OrElse (csa = CodeSetAllowed.CodeB AndAlso currcs = CodeSet.CodeB) + End Function + + Public Shared Function CodeValueForChar(ByVal CharAscii As Integer) As Integer + Return If((CharAscii >= 32), CharAscii - 32, CharAscii + 64) + End Function + + Public Shared Function StartCodeForCodeSet(ByVal cs As CodeSet) As Integer + Return If(cs = CodeSet.CodeA, cSTARTA, cSTARTB) + End Function + + Public Shared Function StopCode() As Integer + Return cSTOP + End Function + +End Class + +#End Region \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Barcode/Code128Rendering.vb b/SDL/VERAG_PROG_ALLGEMEIN/Barcode/Code128Rendering.vb new file mode 100644 index 0000000..01649c3 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Barcode/Code128Rendering.vb @@ -0,0 +1,180 @@ +Imports System.Drawing +Imports System.Diagnostics + +Public NotInheritable Class Code128Rendering + +#Region "Code patterns" + Private Shared ReadOnly cPatterns As Integer(,) = {{2, 1, 2, 2, 2, 2, _ + 0, 0}, {2, 2, 2, 1, 2, 2, _ + 0, 0}, {2, 2, 2, 2, 2, 1, _ + 0, 0}, {1, 2, 1, 2, 2, 3, _ + 0, 0}, {1, 2, 1, 3, 2, 2, _ + 0, 0}, {1, 3, 1, 2, 2, 2, _ + 0, 0}, _ + {1, 2, 2, 2, 1, 3, _ + 0, 0}, {1, 2, 2, 3, 1, 2, _ + 0, 0}, {1, 3, 2, 2, 1, 2, _ + 0, 0}, {2, 2, 1, 2, 1, 3, _ + 0, 0}, {2, 2, 1, 3, 1, 2, _ + 0, 0}, {2, 3, 1, 2, 1, 2, _ + 0, 0}, _ + {1, 1, 2, 2, 3, 2, _ + 0, 0}, {1, 2, 2, 1, 3, 2, _ + 0, 0}, {1, 2, 2, 2, 3, 1, _ + 0, 0}, {1, 1, 3, 2, 2, 2, _ + 0, 0}, {1, 2, 3, 1, 2, 2, _ + 0, 0}, {1, 2, 3, 2, 2, 1, _ + 0, 0}, _ + {2, 2, 3, 2, 1, 1, _ + 0, 0}, {2, 2, 1, 1, 3, 2, _ + 0, 0}, {2, 2, 1, 2, 3, 1, _ + 0, 0}, {2, 1, 3, 2, 1, 2, _ + 0, 0}, {2, 2, 3, 1, 1, 2, _ + 0, 0}, {3, 1, 2, 1, 3, 1, _ + 0, 0}, _ + {3, 1, 1, 2, 2, 2, _ + 0, 0}, {3, 2, 1, 1, 2, 2, _ + 0, 0}, {3, 2, 1, 2, 2, 1, _ + 0, 0}, {3, 1, 2, 2, 1, 2, _ + 0, 0}, {3, 2, 2, 1, 1, 2, _ + 0, 0}, {3, 2, 2, 2, 1, 1, _ + 0, 0}, _ + {2, 1, 2, 1, 2, 3, _ + 0, 0}, {2, 1, 2, 3, 2, 1, _ + 0, 0}, {2, 3, 2, 1, 2, 1, _ + 0, 0}, {1, 1, 1, 3, 2, 3, _ + 0, 0}, {1, 3, 1, 1, 2, 3, _ + 0, 0}, {1, 3, 1, 3, 2, 1, _ + 0, 0}, _ + {1, 1, 2, 3, 1, 3, _ + 0, 0}, {1, 3, 2, 1, 1, 3, _ + 0, 0}, {1, 3, 2, 3, 1, 1, _ + 0, 0}, {2, 1, 1, 3, 1, 3, _ + 0, 0}, {2, 3, 1, 1, 1, 3, _ + 0, 0}, {2, 3, 1, 3, 1, 1, _ + 0, 0}, _ + {1, 1, 2, 1, 3, 3, _ + 0, 0}, {1, 1, 2, 3, 3, 1, _ + 0, 0}, {1, 3, 2, 1, 3, 1, _ + 0, 0}, {1, 1, 3, 1, 2, 3, _ + 0, 0}, {1, 1, 3, 3, 2, 1, _ + 0, 0}, {1, 3, 3, 1, 2, 1, _ + 0, 0}, _ + {3, 1, 3, 1, 2, 1, _ + 0, 0}, {2, 1, 1, 3, 3, 1, _ + 0, 0}, {2, 3, 1, 1, 3, 1, _ + 0, 0}, {2, 1, 3, 1, 1, 3, _ + 0, 0}, {2, 1, 3, 3, 1, 1, _ + 0, 0}, {2, 1, 3, 1, 3, 1, _ + 0, 0}, _ + {3, 1, 1, 1, 2, 3, _ + 0, 0}, {3, 1, 1, 3, 2, 1, _ + 0, 0}, {3, 3, 1, 1, 2, 1, _ + 0, 0}, {3, 1, 2, 1, 1, 3, _ + 0, 0}, {3, 1, 2, 3, 1, 1, _ + 0, 0}, {3, 3, 2, 1, 1, 1, _ + 0, 0}, _ + {3, 1, 4, 1, 1, 1, _ + 0, 0}, {2, 2, 1, 4, 1, 1, _ + 0, 0}, {4, 3, 1, 1, 1, 1, _ + 0, 0}, {1, 1, 1, 2, 2, 4, _ + 0, 0}, {1, 1, 1, 4, 2, 2, _ + 0, 0}, {1, 2, 1, 1, 2, 4, _ + 0, 0}, _ + {1, 2, 1, 4, 2, 1, _ + 0, 0}, {1, 4, 1, 1, 2, 2, _ + 0, 0}, {1, 4, 1, 2, 2, 1, _ + 0, 0}, {1, 1, 2, 2, 1, 4, _ + 0, 0}, {1, 1, 2, 4, 1, 2, _ + 0, 0}, {1, 2, 2, 1, 1, 4, _ + 0, 0}, _ + {1, 2, 2, 4, 1, 1, _ + 0, 0}, {1, 4, 2, 1, 1, 2, _ + 0, 0}, {1, 4, 2, 2, 1, 1, _ + 0, 0}, {2, 4, 1, 2, 1, 1, _ + 0, 0}, {2, 2, 1, 1, 1, 4, _ + 0, 0}, {4, 1, 3, 1, 1, 1, _ + 0, 0}, _ + {2, 4, 1, 1, 1, 2, _ + 0, 0}, {1, 3, 4, 1, 1, 1, _ + 0, 0}, {1, 1, 1, 2, 4, 2, _ + 0, 0}, {1, 2, 1, 1, 4, 2, _ + 0, 0}, {1, 2, 1, 2, 4, 1, _ + 0, 0}, {1, 1, 4, 2, 1, 2, _ + 0, 0}, _ + {1, 2, 4, 1, 1, 2, _ + 0, 0}, {1, 2, 4, 2, 1, 1, _ + 0, 0}, {4, 1, 1, 2, 1, 2, _ + 0, 0}, {4, 2, 1, 1, 1, 2, _ + 0, 0}, {4, 2, 1, 2, 1, 1, _ + 0, 0}, {2, 1, 2, 1, 4, 1, _ + 0, 0}, _ + {2, 1, 4, 1, 2, 1, _ + 0, 0}, {4, 1, 2, 1, 2, 1, _ + 0, 0}, {1, 1, 1, 1, 4, 3, _ + 0, 0}, {1, 1, 1, 3, 4, 1, _ + 0, 0}, {1, 3, 1, 1, 4, 1, _ + 0, 0}, {1, 1, 4, 1, 1, 3, _ + 0, 0}, _ + {1, 1, 4, 3, 1, 1, _ + 0, 0}, {4, 1, 1, 1, 1, 3, _ + 0, 0}, {4, 1, 1, 3, 1, 1, _ + 0, 0}, {1, 1, 3, 1, 4, 1, _ + 0, 0}, {1, 1, 4, 1, 3, 1, _ + 0, 0}, {3, 1, 1, 1, 4, 1, _ + 0, 0}, _ + {4, 1, 1, 1, 3, 1, _ + 0, 0}, {2, 1, 1, 4, 1, 2, _ + 0, 0}, {2, 1, 1, 2, 1, 4, _ + 0, 0}, {2, 1, 1, 2, 3, 2, _ + 0, 0}, {2, 3, 3, 1, 1, 1, _ + 2, 0}} + +#End Region + + Private Const cQuietWidth As Integer = 10 + + Public Shared Function MakeBarcodeImage(ByVal InputData As String, ByVal BarWeight As Double, ByVal AddQuietZone As Boolean, Optional heightOpt As Object = Nothing) As Image + + Dim content As New Code128Content(InputData) + Dim codes As Integer() = content.Codes + Dim width As Integer, height As Integer + width = ((codes.Length - 3) * 11 + 35) * BarWeight + If heightOpt IsNot Nothing Then + height = CInt(heightOpt) + Else + height = Convert.ToInt32(System.Math.Ceiling(Convert.ToSingle(width) * 0.15F)) + End If + + If AddQuietZone Then + width += 2 * cQuietWidth * BarWeight + End If + + Dim myimg As Image = New System.Drawing.Bitmap(width, height) + Using gr As Graphics = Graphics.FromImage(myimg) + + gr.FillRectangle(System.Drawing.Brushes.White, 0, 0, width, height) + + Dim cursor As Integer = If(AddQuietZone, cQuietWidth * BarWeight, 0) + + For codeidx As Integer = 0 To codes.Length - 1 + Dim code As Integer = codes(codeidx) + + For bar As Integer = 0 To 7 Step 2 + Dim barwidth As Integer = cPatterns(code, bar) * BarWeight + Dim spcwidth As Integer = cPatterns(code, bar + 1) * BarWeight + + If barwidth > 0 Then + gr.FillRectangle(System.Drawing.Brushes.Black, cursor, 0, barwidth, height) + End If + + cursor += (barwidth + spcwidth) + Next + Next + End Using + + Return myimg + + End Function + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/DateTimePickerEx.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/DateTimePickerEx.Designer.vb new file mode 100644 index 0000000..e8301ab --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/DateTimePickerEx.Designer.vb @@ -0,0 +1,17 @@ +Partial Class DateTimePickerEx + Inherits System.Windows.Forms.DateTimePicker + + _ + Public Sub New(ByVal container As System.ComponentModel.IContainer) + MyClass.New() + + 'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers + If (container IsNot Nothing) Then + container.Add(Me) + End If + + End Sub + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/DateTimePickerEx.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/DateTimePickerEx.vb new file mode 100644 index 0000000..9cef613 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/DateTimePickerEx.vb @@ -0,0 +1,267 @@ +Imports System.ComponentModel + +'----------------------------------------------------------- +'Class name : DateTimePickerEx +'Description: Extends the datetimepicker class to allow binding a DBNull database value +' to it. +' +' This class uses the display format to simulate an "empty" selection since the +' base datetimepicker class doesn't support displaying an empty text string. +' +' Since DBNull is not compatible with Date datatype, I created a new method called +' NullableValue to support it. +'History : +'----------------------------------------------------------- + +Public Class DateTimePickerEx + Inherits System.Windows.Forms.DateTimePicker + + 'Public Property _value As String = Nothing + + Public Property _value As String + Get + If Not Me.Checked Then + Return "" + Else + Return (Me.Value) + End If + End Get + Set(ByVal newValue As String) + If newValue Is DBNull.Value Or newValue = "" Then + ' MsgBox("null") + Me.NullableValue = DBNull.Value + Me.Checked = False + Else + 'MsgBox(newValue) + Me.NullableValue = newValue + + End If + + End Set + End Property + + + Private m_enmOriginalFormat As Windows.Forms.DateTimePickerFormat + Private m_strOriginalCustomFormat As String + Private m_blnRefreshing As Boolean = False + +#Region " Windows Form Designer generated code " + + Public Sub New() + MyBase.New() + + 'This call is required by the Windows Form Designer. + InitializeComponent() + + 'Add any initialization after the InitializeComponent() call + InitializeMembers() + End Sub + + 'UserControl overrides dispose to clean up the component list. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + If Not (components Is Nothing) Then + components.Dispose() + End If + End If + MyBase.Dispose(disposing) + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container + End Sub + +#End Region + +#Region " Event Declarations " + + Public Event NullableValueChanged As EventHandler + + '----------------------------------------------------------- + 'Description: Raise the NullableValueChanged event. + ' Required for "Bindable" properties. + 'Return : + 'Parameters : + 'History : + '----------------------------------------------------------- + Protected Overridable Sub OnNullableValueChanged(ByVal e As EventArgs) + RaiseEvent NullableValueChanged(Me, e) + End Sub + +#End Region + +#Region " Public Methods and Properties " + + '----------------------------------------------------------- + 'Description: Gets or Sets the date time picker value. + ' Accepts DBNull values. + 'Return : + 'Parameters : + 'History : + '----------------------------------------------------------- + _ + Public Property NullableValue() As Object + Get + If Not Me.Checked Then + Return (DBNull.Value) + Else + Return (Me.Value) + End If + End Get + Set(ByVal newValue As Object) + + Dim blnRaiseEvent As Boolean = False + + If newValue Is DBNull.Value Then + 'If the value changed + If Me.Checked Then + + Me.Checked = False + Me.RefreshText() + blnRaiseEvent = True + End If + + ElseIf IsDate(newValue) Then + + 'If only the "Checked" state changes (newValue parameter is equal to the Value property) + 'We must raise the NullableValueChanged event manually since the parents ValueChanged + 'event won't be fired. + blnRaiseEvent = (Not Me.Checked) And (CType(newValue, Date).Equals(Me.Value)) + + Me.Checked = True + Me.Value = CType(newValue, Date) + Me.RefreshText() + + Else + Throw New ArgumentException + End If + + If blnRaiseEvent Then + Me.OnNullableValueChanged(New EventArgs) + End If + + End Set + End Property + +#End Region + +#Region " Base Class Overrides " + + '----------------------------------------------------------- + 'Description: When the user changes the value, we need to refresh + ' the display text formats and to throw our NullableValueChanged event. + 'Return : + 'Parameters : + 'History : + '----------------------------------------------------------- + Protected Overrides Sub OnValueChanged(ByVal e As System.EventArgs) + + Me.RefreshText() + + 'When the value changes, the nullable value also changes. + Me.OnNullableValueChanged(e) + + MyBase.OnValueChanged(e) + End Sub + + '----------------------------------------------------------- + 'Description: If the format is changed we need to get the + ' new format and store it as the new original format. + 'Return : + 'Parameters : + 'History : + '----------------------------------------------------------- + Protected Overrides Sub OnFormatChanged(ByVal e As System.EventArgs) + + 'If the format changes because of our RefreshText method, we don't want to save + 'the "temporary" format used to hide text as our original format... + + If Not m_blnRefreshing Then + Me.SaveOriginalFormats() + End If + + MyBase.OnFormatChanged(e) + End Sub + + '----------------------------------------------------------- + 'Description: When the control is ask to refresh itself, we also + ' refresh the display format. + 'Return : + 'Parameters : + 'History : + '----------------------------------------------------------- + Public Overrides Sub Refresh() + Me.RefreshText() + + MyBase.Refresh() + End Sub + +#End Region + + '----------------------------------------------------------- + 'Description: Initialize the member variables. + 'Return : + 'Parameters : + 'History : + '----------------------------------------------------------- + Private Sub InitializeMembers() + Me.SaveOriginalFormats() + + 'The default for the DateTimePickerEx is to display the checkbox. + MyBase.ShowCheckBox = False + End Sub + + '----------------------------------------------------------- + 'Description: Save the current display formats. + 'Return : + 'Parameters : + 'History : + '----------------------------------------------------------- + Private Sub SaveOriginalFormats() + m_enmOriginalFormat = Me.Format + m_strOriginalCustomFormat = Me.CustomFormat + End Sub + + '----------------------------------------------------------- + 'Description: Restore the original display formats + 'Return : + 'Parameters : + 'History : + '----------------------------------------------------------- + Private Sub RestoreOriginalFormats() + Me.CustomFormat = m_strOriginalCustomFormat + Me.Format = m_enmOriginalFormat + End Sub + + '----------------------------------------------------------- + 'Description: Refresh the display format based on the current state + ' (Checked or not) + 'Return : + 'Parameters : + 'History : + '----------------------------------------------------------- + Private Sub RefreshText() + + m_blnRefreshing = True + + If Me.Checked Then + Me.RestoreOriginalFormats() + Else + Me.Format = Windows.Forms.DateTimePickerFormat.Custom + Me.CustomFormat = " " + End If + + m_blnRefreshing = False + + End Sub + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/FlatButton.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/FlatButton.vb new file mode 100644 index 0000000..06974b4 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/FlatButton.vb @@ -0,0 +1,15 @@ +Imports System.Drawing + +Public Class FlatButton + Inherits System.Windows.Forms.Button + Public Property allowBorder As Boolean = False + Public Sub New() + MyBase.FlatStyle = Windows.Forms.FlatStyle.Flat + MyBase.ForeColor = Color.Black + MyBase.FlatAppearance.BorderSize = 0 + If Not allowBorder Then + MyBase.FlatAppearance.BorderSize = 0 + End If + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/HTMLTextBox.designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/HTMLTextBox.designer.vb new file mode 100644 index 0000000..19e2c08 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/HTMLTextBox.designer.vb @@ -0,0 +1,213 @@ +Namespace McDull.Windows.Forms + Partial Class HTMLTextBox + Private components As System.ComponentModel.IContainer = Nothing + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso (components IsNot Nothing) Then + components.Dispose() + End If + + MyBase.Dispose(disposing) + End Sub + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(HTMLTextBox)) + Me.toolStripToolBar = New System.Windows.Forms.ToolStrip() + Me.toolStripComboBoxName = New System.Windows.Forms.ToolStripComboBox() + Me.toolStripButtonBold = New System.Windows.Forms.ToolStripButton() + Me.toolStripButtonItalic = New System.Windows.Forms.ToolStripButton() + Me.toolStripButtonUnderline = New System.Windows.Forms.ToolStripButton() + Me.toolStripButtonColor = New System.Windows.Forms.ToolStripButton() + Me.toolStripSeparatorFont = New System.Windows.Forms.ToolStripSeparator() + Me.toolStripButtonNumbers = New System.Windows.Forms.ToolStripButton() + Me.toolStripButtonBullets = New System.Windows.Forms.ToolStripButton() + Me.toolStripButtonOutdent = New System.Windows.Forms.ToolStripButton() + Me.toolStripButtonIndent = New System.Windows.Forms.ToolStripButton() + Me.toolStripSeparatorFormat = New System.Windows.Forms.ToolStripSeparator() + Me.toolStripButtonLeft = New System.Windows.Forms.ToolStripButton() + Me.toolStripButtonCenter = New System.Windows.Forms.ToolStripButton() + Me.toolStripButtonRight = New System.Windows.Forms.ToolStripButton() + Me.toolStripButtonFull = New System.Windows.Forms.ToolStripButton() + Me.toolStripSeparatorAlign = New System.Windows.Forms.ToolStripSeparator() + Me.toolStripButtonLine = New System.Windows.Forms.ToolStripButton() + Me.toolStripButtonHyperlink = New System.Windows.Forms.ToolStripButton() + Me.toolStripButtonPicture = New System.Windows.Forms.ToolStripButton() + Me.webBrowserBody = New System.Windows.Forms.WebBrowser() + Me.toolStripComboBoxSize = New ToolStripComboBoxEx() + Me.toolStripToolBar.SuspendLayout() + Me.SuspendLayout() + Me.toolStripToolBar.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.toolStripToolBar.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStripComboBoxName, Me.toolStripComboBoxSize, Me.toolStripButtonBold, Me.toolStripButtonItalic, Me.toolStripButtonUnderline, Me.toolStripButtonColor, Me.toolStripSeparatorFont, Me.toolStripButtonNumbers, Me.toolStripButtonBullets, Me.toolStripButtonOutdent, Me.toolStripButtonIndent, Me.toolStripSeparatorFormat, Me.toolStripButtonLeft, Me.toolStripButtonCenter, Me.toolStripButtonRight, Me.toolStripButtonFull, Me.toolStripSeparatorAlign, Me.toolStripButtonLine, Me.toolStripButtonHyperlink, Me.toolStripButtonPicture}) + Me.toolStripToolBar.Location = New System.Drawing.Point(0, 0) + Me.toolStripToolBar.Name = "toolStripToolBar" + Me.toolStripToolBar.RenderMode = System.Windows.Forms.ToolStripRenderMode.System + Me.toolStripToolBar.Size = New System.Drawing.Size(600, 25) + Me.toolStripToolBar.TabIndex = 1 + Me.toolStripToolBar.Text = "Tool Bar" + Me.toolStripComboBoxName.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.toolStripComboBoxName.FlatStyle = System.Windows.Forms.FlatStyle.System + Me.toolStripComboBoxName.MaxDropDownItems = 30 + Me.toolStripComboBoxName.Name = "toolStripComboBoxName" + Me.toolStripComboBoxName.Size = New System.Drawing.Size(150, 25) + ' AddHandler Me.toolStripComboBoxName.SelectedIndexChanged, New System.EventHandler(Me.toolStripComboBoxName_SelectedIndexChanged) + Me.toolStripButtonBold.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonBold.Image = (CType((resources.GetObject("toolStripButtonBold.Image")), System.Drawing.Image)) + Me.toolStripButtonBold.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonBold.Name = "toolStripButtonBold" + Me.toolStripButtonBold.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonBold.Text = "Bold" + ' AddHandler Me.toolStripButtonBold.Click, New System.EventHandler(Me.toolStripButtonBold_Click) + Me.toolStripButtonItalic.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonItalic.Image = (CType((resources.GetObject("toolStripButtonItalic.Image")), System.Drawing.Image)) + Me.toolStripButtonItalic.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonItalic.Name = "toolStripButtonItalic" + Me.toolStripButtonItalic.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonItalic.Text = "Italic" + ' AddHandler Me.toolStripButtonItalic.Click, Me.toolStripButtonItalic_Click(Me, New EventArgs) + Me.toolStripButtonUnderline.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonUnderline.Image = (CType((resources.GetObject("toolStripButtonUnderline.Image")), System.Drawing.Image)) + Me.toolStripButtonUnderline.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonUnderline.Name = "toolStripButtonUnderline" + Me.toolStripButtonUnderline.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonUnderline.Text = "Underline" + ' AddHandler Me.toolStripButtonUnderline.Click, New System.EventHandler(Me.toolStripButtonUnderline_Click) + Me.toolStripButtonColor.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonColor.Image = (CType((resources.GetObject("toolStripButtonColor.Image")), System.Drawing.Image)) + Me.toolStripButtonColor.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonColor.Name = "toolStripButtonColor" + Me.toolStripButtonColor.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonColor.Text = "Font Color" + ' AddHandler Me.toolStripButtonColor.Click, New System.EventHandler(Me.toolStripButtonColor_Click) + Me.toolStripSeparatorFont.Name = "toolStripSeparatorFont" + Me.toolStripSeparatorFont.Size = New System.Drawing.Size(6, 25) + Me.toolStripButtonNumbers.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonNumbers.Image = (CType((resources.GetObject("toolStripButtonNumbers.Image")), System.Drawing.Image)) + Me.toolStripButtonNumbers.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonNumbers.Name = "toolStripButtonNumbers" + Me.toolStripButtonNumbers.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonNumbers.Text = "Format Numbers" + ' AddHandler Me.toolStripButtonNumbers.Click, New System.EventHandler(Me.toolStripButtonNumbers_Click) + Me.toolStripButtonBullets.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonBullets.Image = (CType((resources.GetObject("toolStripButtonBullets.Image")), System.Drawing.Image)) + Me.toolStripButtonBullets.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonBullets.Name = "toolStripButtonBullets" + Me.toolStripButtonBullets.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonBullets.Text = "Format Bullets" + ' AddHandler Me.toolStripButtonBullets.Click, New System.EventHandler(Me.toolStripButtonBullets_Click) + Me.toolStripButtonOutdent.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonOutdent.Image = (CType((resources.GetObject("toolStripButtonOutdent.Image")), System.Drawing.Image)) + Me.toolStripButtonOutdent.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonOutdent.Name = "toolStripButtonOutdent" + Me.toolStripButtonOutdent.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonOutdent.Text = "Decrease Indentation" + ' AddHandler Me.toolStripButtonOutdent.Click, New System.EventHandler(Me.toolStripButtonOutdent_Click) + Me.toolStripButtonIndent.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonIndent.Image = (CType((resources.GetObject("toolStripButtonIndent.Image")), System.Drawing.Image)) + Me.toolStripButtonIndent.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonIndent.Name = "toolStripButtonIndent" + Me.toolStripButtonIndent.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonIndent.Text = "Increase Indentation" + 'AddHandler Me.toolStripButtonIndent.Click, New System.EventHandler(Me.toolStripButtonIndent_Click) + Me.toolStripSeparatorFormat.Name = "toolStripSeparatorFormat" + Me.toolStripSeparatorFormat.Size = New System.Drawing.Size(6, 25) + Me.toolStripButtonLeft.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonLeft.Image = (CType((resources.GetObject("toolStripButtonLeft.Image")), System.Drawing.Image)) + Me.toolStripButtonLeft.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonLeft.Name = "toolStripButtonLeft" + Me.toolStripButtonLeft.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonLeft.Text = "Align Left" + ' AddHandler Me.toolStripButtonLeft.Click, New System.EventHandler(Me.toolStripButtonLeft_Click) + Me.toolStripButtonCenter.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonCenter.Image = (CType((resources.GetObject("toolStripButtonCenter.Image")), System.Drawing.Image)) + Me.toolStripButtonCenter.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonCenter.Name = "toolStripButtonCenter" + Me.toolStripButtonCenter.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonCenter.Text = "Center" + ' AddHandler Me.toolStripButtonCenter.Click, New System.EventHandler(Me.toolStripButtonCenter_Click) + Me.toolStripButtonRight.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonRight.Image = (CType((resources.GetObject("toolStripButtonRight.Image")), System.Drawing.Image)) + Me.toolStripButtonRight.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonRight.Name = "toolStripButtonRight" + Me.toolStripButtonRight.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonRight.Text = "Align Right" + 'AddHandler Me.toolStripButtonRight.Click, New System.EventHandler(Me.toolStripButtonRight_Click) + Me.toolStripButtonFull.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonFull.Image = (CType((resources.GetObject("toolStripButtonFull.Image")), System.Drawing.Image)) + Me.toolStripButtonFull.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonFull.Name = "toolStripButtonFull" + Me.toolStripButtonFull.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonFull.Text = "Justify" + ' AddHandler Me.toolStripButtonFull.Click, New System.EventHandler(Me.toolStripButtonFull_Click) + Me.toolStripSeparatorAlign.Name = "toolStripSeparatorAlign" + Me.toolStripSeparatorAlign.Size = New System.Drawing.Size(6, 25) + Me.toolStripButtonLine.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonLine.Image = (CType((resources.GetObject("toolStripButtonLine.Image")), System.Drawing.Image)) + Me.toolStripButtonLine.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonLine.Name = "toolStripButtonLine" + Me.toolStripButtonLine.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonLine.Text = "Insert Horizontal Line" + 'AddHandler Me.toolStripButtonLine.Click, New System.EventHandler(Me.toolStripButtonLine_Click) + Me.toolStripButtonHyperlink.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonHyperlink.Image = (CType((resources.GetObject("toolStripButtonHyperlink.Image")), System.Drawing.Image)) + Me.toolStripButtonHyperlink.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonHyperlink.Name = "toolStripButtonHyperlink" + Me.toolStripButtonHyperlink.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonHyperlink.Text = "Create a Hyperlink" + ' AddHandler Me.toolStripButtonHyperlink.Click, New System.EventHandler(Me.toolStripButtonHyperlink_Click) + Me.toolStripButtonPicture.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.toolStripButtonPicture.Image = (CType((resources.GetObject("toolStripButtonPicture.Image")), System.Drawing.Image)) + Me.toolStripButtonPicture.ImageTransparentColor = System.Drawing.Color.Magenta + Me.toolStripButtonPicture.Name = "toolStripButtonPicture" + Me.toolStripButtonPicture.Size = New System.Drawing.Size(23, 22) + Me.toolStripButtonPicture.Text = "Insert Picture" + 'AddHandler Me.toolStripButtonPicture.Click, New System.EventHandler(Me.toolStripButtonPicture_Click) + Me.webBrowserBody.AllowWebBrowserDrop = False + Me.webBrowserBody.Dock = System.Windows.Forms.DockStyle.Fill + Me.webBrowserBody.IsWebBrowserContextMenuEnabled = False + Me.webBrowserBody.Location = New System.Drawing.Point(0, 25) + Me.webBrowserBody.MinimumSize = New System.Drawing.Size(20, 20) + Me.webBrowserBody.Name = "webBrowserBody" + Me.webBrowserBody.Size = New System.Drawing.Size(600, 425) + Me.webBrowserBody.TabIndex = 0 + ' AddHandler Me.webBrowserBody.PreviewKeyDown, Me.webBrowserBody_PreviewKeyDown(Me.webBrowserBody, New EventArgs) + ' Me.webBrowserBody.DocumentCompleted += New System.Windows.Forms.WebBrowserDocumentCompletedEventHandler(Me.webBrowserBody_DocumentCompleted) + Me.toolStripComboBoxSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.toolStripComboBoxSize.FlatStyle = System.Windows.Forms.FlatStyle.System + Me.toolStripComboBoxSize.Name = "toolStripComboBoxSize" + Me.toolStripComboBoxSize.Size = New System.Drawing.Size(36, 25) + ' AddHandler Me.toolStripComboBoxSize.SelectedIndexChanged, New System.EventHandler(Me.toolStripComboBoxSize_SelectedIndexChanged) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.Controls.Add(Me.webBrowserBody) + Me.Controls.Add(Me.toolStripToolBar) + Me.Name = "HTMLTextBox" + Me.Size = New System.Drawing.Size(600, 450) + Me.toolStripToolBar.ResumeLayout(False) + Me.toolStripToolBar.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + End Sub + + Private toolStripToolBar As System.Windows.Forms.ToolStrip + Private webBrowserBody As System.Windows.Forms.WebBrowser + Private toolStripComboBoxName As System.Windows.Forms.ToolStripComboBox + Private toolStripComboBoxSize As ToolStripComboBoxEx + Private toolStripButtonBold As System.Windows.Forms.ToolStripButton + Private toolStripButtonItalic As System.Windows.Forms.ToolStripButton + Private toolStripButtonUnderline As System.Windows.Forms.ToolStripButton + Private toolStripButtonColor As System.Windows.Forms.ToolStripButton + Private toolStripSeparatorFont As System.Windows.Forms.ToolStripSeparator + Private toolStripButtonNumbers As System.Windows.Forms.ToolStripButton + Private toolStripButtonBullets As System.Windows.Forms.ToolStripButton + Private toolStripButtonOutdent As System.Windows.Forms.ToolStripButton + Private toolStripButtonIndent As System.Windows.Forms.ToolStripButton + Private toolStripSeparatorFormat As System.Windows.Forms.ToolStripSeparator + Private toolStripButtonLeft As System.Windows.Forms.ToolStripButton + Private toolStripButtonCenter As System.Windows.Forms.ToolStripButton + Private toolStripButtonRight As System.Windows.Forms.ToolStripButton + Private toolStripButtonFull As System.Windows.Forms.ToolStripButton + Private toolStripSeparatorAlign As System.Windows.Forms.ToolStripSeparator + Private toolStripButtonLine As System.Windows.Forms.ToolStripButton + Private toolStripButtonHyperlink As System.Windows.Forms.ToolStripButton + Private toolStripButtonPicture As System.Windows.Forms.ToolStripButton + End Class +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/HTMLTextBox.resx b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/HTMLTextBox.resx new file mode 100644 index 0000000..3b19fbf --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/HTMLTextBox.resx @@ -0,0 +1,261 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAC1JREFUOE9jYBh2 + 4D/QR/gwUR5GNgCmAZsYTsMGlwHo4TESwoAq6YCogBpGigDXJzrGE301bAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADVJREFUOE9jYBj2 + 4D/Qh+iYZE+DDVizYiaIJg1ANcFcQJpmqOpR28kIeWzxTnr0kRVfQ1cTAOjCLVxq2QiuAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAERJREFUOE9jYBh2 + 4D/QR8gY5EFsYng9DtOArAibGE5DRg1AhDplgbhmxUxQYDJAaZJiAVvcgw2jC0BPddj4dHEI8ZYAADTJ + N6c8hf3vAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGRJREFUOE9jYKAD + +E+2HWtWzARp/g+lyTIHbAAUk2YAzHaYAeS4Atlm0lyBZDvM2SSHBbLf0dn4wwKL7SS7Ap9/8YcFHtuJ + dgW+eCctLEhLNVDVQCv+E4uxWkCsZpA6slyITRMAH5Zv5oCq9bQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAALdJREFUOE9jYKAG + ePTy13+f0lP/yTYrpOn+f4/8A+gGgPiEMMTOxy9//HdIXv3/6Pmn5LnCNXvHf4vw6f+N/TvIM4Bsv8M0 + BtXf+B9QfeX/rPU3yHfBztPv/9vELkA2gFAAItSeufntv2vW9v+Hzz0mzwWeBQf+W0bM+G/k20KeARQH + on/Vxf++5ef+O6SsJt8FfhXn/m8+9IC8QAR5YcLK2//NgieQ5wKPwoPgQDx4+iF5BlASiADwc282sbGz + ZAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGlJREFUOE9jYKAG + OHDmyf+C7kP/QTRZ5oE0h7Y8+S9rXQU3gIWJ5T8+jGIRyGaQ5jkrj5LnArKcTVVNo4FIheDcdeTG/8SK + 5f9BNFnGgTR7Fh39L2mcSV5KBNkM0jxr6V7yXECWs6mlCQDlBWMQibjNkwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKFJREFUOE9jYMAP + /hOQp640yDZkDDIdXQwbn0qu+PTt7/8Fuz/8L5l8GdnfhF3w7M2f/3N2ff8f3f3uf0DNtf9PXn4lzYCw + 1of/Q5ru/fevvPjfIXn1f4vwaf9Ng/qID/3nb77/n7Hm6n/buEVAjb3/Hzz9QIwLMAPu09ef/ycsOvY/ + qmAeeQZQIy4GOB1gSXXIKZEaPiTPDOLTA3nmMzAAAFijgMKTQOD0AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKVJREFUOE9jYMAP + /hOQp640yDZkDDIdXQwbnwquCG1/8T+p//n/Kw9/oPuZOBdcefDrv1/js/9uFbf/z1x/+/+z119hBhE2 + IKzl0f/wtmf/g+pv/bdPXvXfLGTif5OAbtJC//r99/8tI2f9Nwns+R+cs+D/wdP3CLkANeAS63b8T65a + /f/+03fEhgEVQh6LEQOYDqCuwecC2viZGFNJSw/EmIiuBgAein31gYqs0gAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADBJREFUOE9jYBhM + 4D/QMfgw7d1KyAXI8rRxDSEX0MZWZFMJuWA0DFBTKe1jhH42AAD5sDjIZUq+7gAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADBJREFUOE9jYBis + 4D/QYeiY9m7FZisuMdq6Bp9LBs7mwREjtPU/yPTBkw5o71dkGwCUJzHPYqsAPQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADBJREFUOE9jYBis + 4D/QYfgwbdxNyFZkedq4ANlUQq6hjQsI2ToaBqgpkzaxMDCmAgDawTjIJO+/7AAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAChJREFUOE9jYBgs + 4D/QIeRg6rmfHNtBeqgHRl1AXhoYbrFAvRRFqkkAJdBTrRhJgKYAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAB9JREFUOE9jYBgF + wywE/gP9QwrG8D4pmkFqR8HwCQEAckQX6SRiW/8AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAuZJREFUOE990HlI + 03EYx/H5R1DQPxF0QNFlKnRR9IdpTLsw1MQOqbTD0qhZuk67mDqtDJ3Z8kizuX7aqq2c5rKa1nQ6mVcp + ai7MTLNGYSF2X/YuEioZ9cAXni+fh9cDj5Por+rstGF/h+jl8D5R6+enotGfholcv00SOY8dLpoydZbT + 37MOfVXTA4T2Sor6TQg9BRx/tImIlmksyDyILKcDU1Ud/wSsrc0ctUWT8+IE9752ceNJE8p2JdEVK1mY + coalyd0sUakpt5ocka4uG/JSDdJWd87aoyl+cx3rgBnds3IkggE/RR+zhFNMvr2QVZeljoC18TFbs80E + 31jJnsdexDav4VBZDKF5xWxIeceKlKe4FfgzodCdaSofzA3moUihpZcjwjdWK7bhXe6Cn96f0EQjYac+ + sPHEW2bnKZig82SssIBxp72RF2UNBfKNLzmQD+FJVfglLMdDG4SnLpFVymeslb1nkSwc59QZjMx0YUyC + FwfUGUMBQ2UHUbmwIxtC40wsUazDzbAYF00kXnGNLIs4hodEzOj4GcyUBqPRFw0FGpubiDr7ik3psDFp + gIAYgemZ8xivcmN+dDDi7cV4bM5AHB5GYPh6HrbVOh4y/Uo9u850sy/tPjHZN9mXnk+IPB7fCDnu2+8Q + sL+SHfJrJJ4zkJxbgnDNiKWm+g9kqq5BVViHrfs1A0D/R7hleUhkgoag/XoyddUOWUzqZUrKSgeRS4ZK + Ou1vOJQkMNF9HXN8d3JSXUFeSQtZBXUUVrSTW9yAZ6AE/y1HyNLcRLheT1ScchBQqI0/94KrOISGe9UU + mFp+/T9+B3s/tPZ8wWp7y97YZFoeNJCaV4a1rY+5vpJB4IL+LvVtdlJyriJNOIfyYimjZgYwwtnn9/Ne + I/2daW/VcvK8kZDI2EHAUluDQmVAe7uRmrZeyuqfE5thwDdURppa+88sX6v7c8hyi5ljaRfwD5MhDtqN + 5HAiuiL9r4H/ZT8AiiIwr0t0DcYAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAkJJREFUOE+tk1tI + 02EYxr2MCKKLIOjCiIguopQIojAjpEDSkrwwpANKBUpJiWW5TFyQpcUSdOhopaazMrNpmZiJiiPtoM3p + TJoLXJE680SHtc1fvv/Q/wiioD54L5/f8x6eLyjof7zCOx0EVn6FhdybrVwobkKT/5jUXDNJ2ioSMkzE + p5USm2JkT7KBeW8Re338tj5/g7HpGVxjMwx88NPl9LNmZ9bfAdw2O/ZDodgOhmBttynisvpBVu84/2eA + OIsYVwOepyd5vncFbXY/N2rfsCoiACAz/zrCXNu2AyE/xXkRWGKCaej2UXzPysrtmWoHsrBAQODM0rY4 + i/j+g9fUdPooMHUSvO2cCpBtzwH6B4c5kW1QqqPvkzKztC3OIq5s96IraWV5mEYFyKkE4BgaU4QO1zjW + gVG2RiViqH5F+O7DShXV9FPa4iXP0MiyLRkqQO48J34/MsnQxy8863FT2dBLZFwS5idd1Lf0iICiR24u + FtaxdNNZFSAhEedh9xST0x6sjgmM5rfcbnSin503Ov4YJXeb0V2vVSDaa9Us2XhGBUjCvnv9jE566HNO + UfbQwdXyXnKML8k1WkjRmggJjyVFk09S+hUFsnhDugqQeI6Mf+VFn5uqpnfz4qyCFtIu15KcWU5MglaB + RO47Tnh0IotCT6sAybbdOUFFXTfZ+jY0ukbScmpmhbdISNUTd/QS0fs1hO06wtrNUUotXB8AkI8h2ZZ4 + SsIkJHJnOZVsWxYmM0vb4iziBetOqR38y4/+Ac89P6VDkey1AAAAAElFTkSuQmCC + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/HTMLTextBox.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/HTMLTextBox.vb new file mode 100644 index 0000000..05ec5a7 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/HTMLTextBox.vb @@ -0,0 +1,415 @@ +Imports System +Imports System.Collections.Generic +Imports System.ComponentModel +Imports System.Drawing +Imports System.Data +Imports System.Text +Imports System.Windows.Forms +Imports System.Runtime.InteropServices + +Namespace McDull.Windows.Forms + + Public Partial Class HTMLTextBox + Inherits UserControl + + Public Sub New() + dataUpdate = 0 + InitializeComponent() + InitializeControls() + End Sub + + Public Overrides Property Text As String + Get + Return webBrowserBody.DocumentText + End Get + Set(ByVal value As String) + webBrowserBody.DocumentText = value.Replace(vbCrLf, "
") + End Set + End Property + + Public ReadOnly Property Images As String() + Get + Dim imagestmp As List(Of String) = New List(Of String)() + + For Each element As HtmlElement In webBrowserBody.Document.Images + Dim image As String = element.GetAttribute("src") + + If Not imagestmp.Contains(image) Then + imagestmp.Add(image) + End If + Next + + Return imagestmp.ToArray() + End Get + End Property + + Private Sub InitializeControls() + BeginUpdate() + + For Each family As FontFamily In FontFamily.Families + toolStripComboBoxName.Items.Add(family.Name) + Next + + toolStripComboBoxSize.Items.AddRange(FontSize.All.ToArray()) + webBrowserBody.DocumentText = String.Empty + AddHandler webBrowserBody.Document.Click, AddressOf webBrowserBody_DocumentClick + AddHandler webBrowserBody.Document.Focusing, AddressOf webBrowserBody_DocumentFocusing + webBrowserBody.Document.ExecCommand("EditMode", False, Nothing) + webBrowserBody.Document.ExecCommand("LiveResize", False, Nothing) + EndUpdate() + End Sub + + Private Sub RefreshToolBar() + BeginUpdate() + + Try + Dim document = webBrowserBody.Document.DomDocument 'As mshtml.IHTMLDocument2 = CType(webBrowserBody.Document.DomDocument, mshtml.IHTMLDocument2) + toolStripComboBoxName.Text = document.queryCommandValue("FontName").ToString() + toolStripComboBoxSize.SelectedItem = FontSize.Find(CInt(document.queryCommandValue("FontSize"))) + toolStripButtonBold.Checked = document.queryCommandState("Bold") + toolStripButtonItalic.Checked = document.queryCommandState("Italic") + toolStripButtonUnderline.Checked = document.queryCommandState("Underline") + toolStripButtonNumbers.Checked = document.queryCommandState("InsertOrderedList") + toolStripButtonBullets.Checked = document.queryCommandState("InsertUnorderedList") + toolStripButtonLeft.Checked = document.queryCommandState("JustifyLeft") + toolStripButtonCenter.Checked = document.queryCommandState("JustifyCenter") + toolStripButtonRight.Checked = document.queryCommandState("JustifyRight") + toolStripButtonFull.Checked = document.queryCommandState("JustifyFull") + Catch e As Exception + System.Diagnostics.Debug.WriteLine(e) + Finally + EndUpdate() + End Try + End Sub + + Private dataUpdate As Integer + + Private ReadOnly Property Updating As Boolean + Get + Return dataUpdate<> 0 + End Get + End Property + + Private Sub BeginUpdate() + dataUpdate += 1 + End Sub + + Private Sub EndUpdate() + dataUpdate -= 1 + End Sub + + Private Sub toolStripComboBoxName_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("FontName", False, toolStripComboBoxName.Text) + End Sub + + Private Sub toolStripComboBoxSize_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + Dim size As Integer = If((toolStripComboBoxSize.SelectedItem Is Nothing), 1, (TryCast(toolStripComboBoxSize.SelectedItem, FontSize)).Value) + webBrowserBody.Document.ExecCommand("FontSize", False, size) + End Sub + + Private Sub toolStripButtonBold_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("Bold", False, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonItalic_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("Italic", False, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonUnderline_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("Underline", False, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonColor_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + ' Dim fontcolor As Integer = CInt((CType(webBrowserBody.Document.DomDocument, mshtml.IHTMLDocument2)).queryCommandValue("ForeColor")) + Dim dialog As ColorDialog = New ColorDialog() + ''' Cannot convert ExpressionStatementSyntax, System.ArgumentOutOfRangeException: Exception of type 'System.ArgumentOutOfRangeException' was thrown. +''' Parameter name: op +''' Actual value was RightShiftExpression. +''' at ICSharpCode.CodeConverter.Util.VBUtil.GetExpressionOperatorTokenKind(SyntaxKind op) +''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitBinaryExpression(BinaryExpressionSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.BinaryExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node) +''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitBinaryExpression(BinaryExpressionSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.BinaryExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitParenthesizedExpression(ParenthesizedExpressionSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.ParenthesizedExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node) +''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitParenthesizedExpression(ParenthesizedExpressionSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.ParenthesizedExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitBinaryExpression(BinaryExpressionSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.BinaryExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node) +''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitBinaryExpression(BinaryExpressionSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.BinaryExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitArgument(ArgumentSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.ArgumentSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node) +''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitArgument(ArgumentSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.ArgumentSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at ICSharpCode.CodeConverter.VB.NodesVisitor.b__99_0(ArgumentSyntax a) +''' at System.Linq.Enumerable.WhereSelectEnumerableIterator`2.MoveNext() +''' at Microsoft.CodeAnalysis.VisualBasic.SyntaxFactory.SeparatedList[TNode](IEnumerable`1 nodes) +''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitArgumentList(ArgumentListSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.ArgumentListSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node) +''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitArgumentList(ArgumentListSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.ArgumentListSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitInvocationExpression(InvocationExpressionSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.InvocationExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node) +''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitInvocationExpression(InvocationExpressionSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.InvocationExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at ICSharpCode.CodeConverter.VB.NodesVisitor.MakeAssignmentStatement(AssignmentExpressionSyntax node) +''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.AssignmentExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node) +''' at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitAssignmentExpression(AssignmentExpressionSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.AssignmentExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at ICSharpCode.CodeConverter.VB.MethodBodyVisitor.ConvertSingleExpression(ExpressionSyntax node) +''' at ICSharpCode.CodeConverter.VB.MethodBodyVisitor.VisitExpressionStatement(ExpressionStatementSyntax node) +''' at Microsoft.CodeAnalysis.CSharp.Syntax.ExpressionStatementSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor) +''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node) +''' at ICSharpCode.CodeConverter.VB.CommentConvertingMethodBodyVisitor.ConvertWithTrivia(SyntaxNode node) +''' at ICSharpCode.CodeConverter.VB.CommentConvertingMethodBodyVisitor.DefaultVisit(SyntaxNode node) +''' +''' Input: +''' dialog.Color = Color.FromArgb(0xff, fontcolor & 0xff, (fontcolor >> 8) & 0xff, (fontcolor >> 16) & 0xff); + +''' + Dim result As DialogResult = dialog.ShowDialog() + + If result = DialogResult.OK Then + Dim color As String = dialog.Color.Name + + If Not dialog.Color.IsNamedColor Then + color = "#" & color.Remove(0, 2) + End If + + webBrowserBody.Document.ExecCommand("ForeColor", False, color) + End If + + RefreshToolBar() + End Sub + + Private Sub toolStripButtonNumbers_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("InsertOrderedList", False, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonBullets_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("InsertUnorderedList", False, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonOutdent_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("Outdent", False, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonIndent_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("Indent", False, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonLeft_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("JustifyLeft", False, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonCenter_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("JustifyCenter", False, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonRight_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("JustifyRight", False, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonFull_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("JustifyFull", False, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonLine_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("InsertHorizontalRule", False, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonHyperlink_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("CreateLink", True, Nothing) + RefreshToolBar() + End Sub + + Private Sub toolStripButtonPicture_Click(ByVal sender As Object, ByVal e As EventArgs) + If Updating Then + Return + End If + + webBrowserBody.Document.ExecCommand("InsertImage", True, Nothing) + RefreshToolBar() + End Sub + + Private Sub webBrowserBody_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) + End Sub + + Private Sub webBrowserBody_PreviewKeyDown(ByVal sender As Object, ByVal e As PreviewKeyDownEventArgs) + If e.IsInputKey Then + Return + End If + + RefreshToolBar() + End Sub + + Private Sub webBrowserBody_DocumentClick(ByVal sender As Object, ByVal e As HtmlElementEventArgs) + RefreshToolBar() + End Sub + + Private Sub webBrowserBody_DocumentFocusing(ByVal sender As Object, ByVal e As HtmlElementEventArgs) + RefreshToolBar() + End Sub + + Private Class FontSize + Private Shared allFontSize As List(Of FontSize) = Nothing + + Public Shared ReadOnly Property All As List(Of FontSize) + Get + + If allFontSize Is Nothing Then + allFontSize = New List(Of FontSize)() + allFontSize.Add(New FontSize(8, 1)) + allFontSize.Add(New FontSize(10, 2)) + allFontSize.Add(New FontSize(12, 3)) + allFontSize.Add(New FontSize(14, 4)) + allFontSize.Add(New FontSize(18, 5)) + allFontSize.Add(New FontSize(24, 6)) + allFontSize.Add(New FontSize(36, 7)) + End If + + Return allFontSize + End Get + End Property + + Public Shared Function Find(ByVal value As Integer) As FontSize + If value< 1 Then + Return All(0) + End If + + If value > 7 Then + Return All(6) + End If + + Return All(value - 1) + End Function + + Private Sub New(ByVal display As Integer, ByVal value As Integer) + displaySize = display + valueSize = value + End Sub + + Private valueSize As Integer + + Public ReadOnly Property Value As Integer + Get + Return valueSize + End Get + End Property + + Private displaySize As Integer + + Public ReadOnly Property Display As Integer + Get + Return displaySize + End Get + End Property + + Public Overrides Function ToString() As String + Return displaySize.ToString() + End Function + End Class + + Private Class ToolStripComboBoxEx + Inherits ToolStripComboBox + + Public Overrides Function GetPreferredSize(ByVal constrainingSize As Size) As Size + Dim size As Size = MyBase.GetPreferredSize(constrainingSize) + size.Width = Math.Max(Width, &H20) + Return size + End Function + End Class + End Class +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.Designer.vb new file mode 100644 index 0000000..2c96842 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.Designer.vb @@ -0,0 +1,30 @@ +Partial Class KdSearchBox + Inherits System.Windows.Forms.TextBox + + + + + 'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Komponenten-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. + 'Das Bearbeiten ist mit dem Komponenten-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb new file mode 100644 index 0000000..35ca939 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb @@ -0,0 +1,860 @@ +Imports System.ComponentModel +Imports System.Drawing +Imports System.Windows.Forms + +'Imports System.Threading + +Public Class KdSearchBox + Inherits System.Windows.Forms.TextBox + Implements INotifyPropertyChanged + + ' Dim sql As New SDL.SQL + ' Dim KUNDENSQL As New SDL.kundenSQL + Dim form As Form = Me.FindForm + 'Public KdData As SDL.cKundenFMZOLL + Public KdData_KUNDE As cKunde = Nothing + Public KdData_ADRESSEN As cAdressen = Nothing + Public KdData_KUNDE_ERW As cKundenErweitert = Nothing + + Public Property searchActive As Boolean = True + Public Property _AllowSetValue As Boolean = False + Public Property _displayFullName As Boolean = False ' nur wenn _loadKdData + Public Property _display_Name1 As Boolean = False ' nur wenn _loadKdData + + Public Property _ValueKdAndName As Boolean = True + Public Property _loadKdData As Boolean = False + + Public Property _hideIfListEmpty As Boolean = True + Public Property _displayWoelflKd As Boolean = False + Public Property _displayAVISO_Email As Boolean = False + Public Property nurAktive As Boolean = True + Public Property kdNrField As Control = Nothing + Public Property dgvpos As String = "LEFT" + Public Property _autoSizeGross As Boolean = False + Public Property _AlleFirmenCLUSTER As Boolean = False + Public Property _UseFIRMA As String = "" + + Dim last_search As DateTime = Now + Dim last_eingabe As DateTime = Now + Public Property TIMER_SEARCH As Boolean = True + Dim Eingabe_verarbeitet = True + Dim WithEvents tmr_Search As New Timer + + + Public usrcntlWIDTH = 600 + Public usrcntlHEIGHT = 380 + + Public WithEvents usrcntl As usrcntlKdSearch '= DirectCast(Me.FindForm.Controls.Find("dgvFindKD", False)(0), DataGridView) + + ' Public WithEvents dgv As DataGridView + ' Public WithEvents dgvInaktiv As DataGridView + + Dim SQL As New SQL + + Public Sub FireReturn() + dgvFindKD_Click(Me, New KeyEventArgs(Keys.Return)) + End Sub + + Protected Overrides Sub OnPaint(e As PaintEventArgs) + Try + MyBase.OnPaint(e) + Catch ex As Exception + Me.Invalidate() + End Try + End Sub + + Private Sub KdSearchBox_GotFocus(sender As Object, e As EventArgs) Handles Me.GotFocus + Try + Me.SelectionLength = 0 + Me.HideSelection = False + Me.SelectAll() + Me.Select() + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_01") + End Try + End Sub + + Public Sub RESARCH() + KdSearchBox_KeyUp(Me, New KeyEventArgs(Keys.Space)) + End Sub + + Private Sub KdSearchBox_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp + Try + 'Console.WriteLine(String.Format("TEEST 01")) + If Not searchActive Then Exit Sub + + ' If dgv Is Nothing Then dgv = usrcntl.dgvKundenAktiv + ' If dgvInaktiv Is Nothing Then dgvInaktiv = usrcntl.dgvKundenInAktiv + + + If e.KeyCode = Keys.Tab Then + If usrcntl IsNot Nothing Then usrcntl.Visible = False + e.Handled = True + Exit Sub + End If + + If e.KeyCode = Keys.ShiftKey Or e.KeyCode = Keys.Shift Or e.KeyCode = Keys.Alt Or e.KeyCode = Keys.Control Or e.KeyCode = Keys.Left Or e.KeyCode = Keys.Right Or e.KeyCode = Keys.End Or e.KeyCode = Keys.Home Or e.KeyCode = Keys.CapsLock Then 'Bei Shift Tab.. + If usrcntl IsNot Nothing Then usrcntl.Visible = False + e.Handled = True + Exit Sub + End If + + + If e.KeyCode = Keys.Return Then + + e.Handled = True + Exit Sub + End If + + If e.KeyCode = Keys.Up Then + If usrcntl IsNot Nothing Then prevLKW(usrcntl.dgvKundenAktiv) + e.Handled = True + Exit Sub + End If + If e.KeyCode = Keys.Down Then + If usrcntl IsNot Nothing Then nextLKW(usrcntl.dgvKundenAktiv) + e.Handled = True + Exit Sub + End If + If e.KeyCode = Keys.Escape Then + hideDgv(usrcntl) + e.Handled = True + Exit Sub + End If + If kdNrField IsNot Nothing Then kdNrField.Text = "" + + KdNr_value = -1 + KdData_KUNDE = Nothing + KdData_ADRESSEN = Nothing + KdData_KUNDE_ERW = Nothing + + If Me.Text.Trim = "" Then + KdNr = -1 + KdName = "" + ' KdData = Nothing + KdData_KUNDE = Nothing + KdData_ADRESSEN = Nothing + KdData_KUNDE_ERW = Nothing + setMeValue() + hideDgv(usrcntl) + Exit Sub + End If + + If usrcntl Is Nothing Then + Exit Sub + End If + + Eingabe_verarbeitet = False + last_eingabe = Now + + doKeyDown(Now) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_02") + End Try + End Sub + + Sub doKeyDown(srchdate As DateTime) + If Eingabe_verarbeitet Then Exit Sub ' Bereits abgearbetiet -> Timer + + Dim span_last_search = CInt(DirectCast((srchdate - last_search), TimeSpan).TotalMilliseconds) + Dim span_last_eingabe = CInt(DirectCast((srchdate - last_eingabe), TimeSpan).TotalMilliseconds) + + 'TIMER_SEARCH + If TIMER_SEARCH Then + If span_last_search < 500 And span_last_eingabe < 500 Then + Exit Sub + End If + End If + + + + If usrcntl.Visible = False Then + usrcntl.Width = usrcntlWIDTH + usrcntl.Height = usrcntlHEIGHT + + Dim locationOnForm As Point = Nothing + If dgvpos = "LEFT" Or dgvpos = "" Then + locationOnForm = Me.FindForm().PointToClient(Me.Parent.PointToScreen(Me.Location)) + ElseIf dgvpos = "RIGHT" Then + locationOnForm = Me.FindForm().PointToClient(Me.Parent.PointToScreen(Me.Location)) + locationOnForm.X = locationOnForm.X - (usrcntl.Width - Me.Width) + ' MsgBox(locationOnForm.X & "/" & locationOnForm.Y) + End If + + + If locationOnForm.Y + usrcntl.Height + Me.Height > form.ClientRectangle.Height Then + usrcntl.Height = form.ClientRectangle.Height - locationOnForm.Y - Me.Height + End If + + usrcntl.Location = locationOnForm + usrcntl.Top += Me.Height + End If + + With usrcntl.dgvKundenAktiv + + If usrcntl.Visible = False Then + .AllowUserToAddRows = False + .AllowUserToDeleteRows = False + .AllowUserToOrderColumns = False + .AllowUserToResizeColumns = False + .AllowUserToResizeRows = False + .ReadOnly = True + .MultiSelect = False + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + .BackgroundColor = Color.White + .ForeColor = Color.Black + .GridColor = Color.White + End If + + 'THREADING AKTIV + Me.ThreadInitAKTIV() + ' Dim ThreadInitAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitAKTIV) + ' ThreadInitAKTIV.IsBackground = True + ' ThreadInitAKTIV.Start() + + End With + + + If nurAktive Then + usrcntl.dgvKundenInAktiv.Visible = False + usrcntl.Panel1.Visible = False + Else + With usrcntl.dgvKundenInAktiv + If usrcntl.Visible = False Then + .AllowUserToAddRows = False + .AllowUserToDeleteRows = False + .AllowUserToOrderColumns = False + .AllowUserToResizeColumns = False + .AllowUserToResizeRows = False + .ReadOnly = True + .MultiSelect = False + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + .BackgroundColor = Color.White + .ForeColor = Color.Black + .GridColor = Color.White + .DefaultCellStyle.ForeColor = Color.Gray + End If + + + Me.ThreadInitINAKTIV() + 'THREADING INAKTIV + 'Dim ThreadInitINAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitINAKTIV) + 'ThreadInitINAKTIV.IsBackground = True + 'ThreadInitINAKTIV.Start() + + End With + + End If + + If _hideIfListEmpty Then + + If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then + setObjectVisible(usrcntl, False) + Else + setObjectVisible(usrcntl, True) + End If + If False Then + + 'THREADING ThreadWaitAndSee + Dim ThreadWaitAndSee = New System.Threading.Thread(Sub() + Threading.Thread.Sleep(200) + If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then + setObjectVisible(usrcntl, False) + Else + setObjectVisible(usrcntl, True) + End If + End Sub) + ThreadWaitAndSee.IsBackground = True + ThreadWaitAndSee.Start() + End If + Else + usrcntl.Visible = True + usrcntl.Show() + usrcntl.BringToFront() + End If + Eingabe_verarbeitet = True + last_search = Now + + End Sub + + Public Sub hideDgv(o) '(sender As Object, e As EventArgs) + If o IsNot Nothing Then + Me.searchActive = False + o.visible = False + Me.searchActive = True + End If + End Sub + + + Sub ThreadInitAKTIV() + Try + If usrcntl Is Nothing Then Exit Sub + If usrcntl.dgvKundenAktiv Is Nothing Then Exit Sub + With usrcntl.dgvKundenAktiv + + Dim srch As String = Me.Text.Replace("'", "").ToString.Trim + If srch.StartsWith("*") Then srch = Replace(srch, "*", "%", , 1) ' Suche mit beginnenden * + + Dim srch2 As String = "" + If srch.Contains(",") Then + Dim spitter() = srch.Split(",") + srch = spitter(0).ToString.Trim + srch2 = spitter(1).ToString.Trim + End If + If srch2.StartsWith("*") Then srch2 = Replace(srch2, "*", "%", , 1) ' Suche mit beginnenden * + + Dim topAnz = 10 + If nurAktive Then topAnz = 16 + Dim AvisoEmail = "" + If _displayAVISO_Email Then + AvisoEmail = ", (SELECT CASE WHEN Count(*)>0 Then 'JA' ELSE '' END [Adressen] FROM [tblEmailBenachrichtigung] WHERE [eb_KundenNr]=AdressenNr) as [E-Mail] " + End If + Dim SQLstr As String = " SELECT top " & topAnz & " Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse " & AvisoEmail & " " + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Or _AlleFirmenCLUSTER Or _UseFIRMA <> "" Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then SQLstr &= ", Filialen.Firma as Firma_Intern " + SQLstr &= " FROM [Adressen] " + SQLstr &= " INNER JOIN Kunden on KundenNr=AdressenNr " + SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) " + SQLstr &= " WHERE 1=1 " + SQLstr &= " AND ( " + SQLstr &= " Ordnungsbegriff LIKE '" & srch & "%' " : If IsNumeric(srch) Then SQLstr &= " OR AdressenNr LIKE '" & srch & "%' " + SQLstr &= " ) " + If srch2 <> "" Then SQLstr &= " AND (Filialen.Firma LIKE '" & srch2 & "%' OR ( Adressen.PLZ LIKE '" & srch2 & "%' OR Adressen.Ort LIKE '" & srch2 & "%' OR Adressen.LandKz LIKE '" & srch2 & "%' OR Adressen.Straße LIKE '" & srch2 & "%' )) " + SQLstr &= " AND [Auswahl]='A' " + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then + ' SQLstr &= " AND (Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Filialen.CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') " + 'Else + ' SQLstr &= " AND Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + 'End If + + If _AlleFirmenCLUSTER Then + SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice + ElseIf _UseFIRMA <> "" Then + SQLstr &= " AND '" & _UseFIRMA & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice + Else + SQLstr &= " AND ( '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then + SQLstr &= " OR Filialen.Firma IN ('IMEX') " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then + SQLstr &= " OR Filialen.Firma IN ('IMEX','VERAG') " ' Wenn die OFFERTE_FREMD_VERAGIMEX --> Beide + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_FRONTOFFICE", "SDL") Then + SQLstr &= " OR Filialen.Firma IN ('FRONTOFFICE') " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice + End If + SQLstr &= " ) " + End If + + 'AUSNAHME BIS BESSERE LÖSUNG: + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then + SQLstr &= " and Filialen.Firma NOT IN ('AMBAR') " + End If + + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then 'Keine + ' SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5701') " + 'ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then + ' SQLstr &= " AND Kunden.[FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' " + 'Else + ' 'SQLstr &= " AND isnull(Kunden.[FilialenNr],0)<>'5501' " + ' SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5501','5601','5701','5801') " + 'End If + If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'" + SQLstr &= " order by Ordnungsbegriff " + + setDS(usrcntl.dgvKundenAktiv, SQL.loadDgvBySql(SQLstr, "FMZOLL")) + + End With + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_03") + End Try + End Sub + + Sub ThreadInitINAKTIV() + Try + If usrcntl Is Nothing Then Exit Sub + If usrcntl.dgvKundenInAktiv Is Nothing Then Exit Sub + With usrcntl.dgvKundenInAktiv + + Dim srch As String = Me.Text.Replace("'", "").ToString.Trim + If srch.StartsWith("*") Then srch = Replace(srch, "*", "%", , 1) ' Suche mit beginnenden * + + Dim srch2 As String = "" + If srch.Contains(",") Then + Dim spitter() = srch.Split(",") + srch = spitter(0).ToString.Trim + srch2 = spitter(1).ToString.Trim + End If + If srch2.StartsWith("*") Then srch2 = Replace(srch2, "*", "%", , 1) ' Suche mit beginnenden * + + Dim SQLstr As String = " SELECT top 4 Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse " + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Or _AlleFirmenCLUSTER Or _UseFIRMA <> "" Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then SQLstr &= ", Filialen.Firma as Firma_Intern " + SQLstr &= " FROM [Adressen] " + SQLstr &= " INNER JOIN Kunden on KundenNr=AdressenNr " + SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) " + SQLstr &= " WHERE 1=1 " + SQLstr &= " AND ( " + SQLstr &= " Ordnungsbegriff LIKE '" & srch & "%' " : If IsNumeric(srch) Then SQLstr &= " OR AdressenNr LIKE '" & srch & "%' " + SQLstr &= " ) " + If srch2 <> "" Then SQLstr &= " AND (Filialen.Firma LIKE '" & srch2 & "%' OR ( Adressen.PLZ LIKE '" & srch2 & "%' OR Adressen.Ort LIKE '" & srch2 & "%' OR Adressen.LandKz LIKE '" & srch2 & "%' OR Adressen.Straße LIKE '" & srch2 & "%' )) " + SQLstr &= " AND [Auswahl]='I' " + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then 'Keine + ' SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5701') " + 'ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then + ' SQLstr &= " AND Kunden.[FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' " + 'Else + ' 'SQLstr &= " AND isnull([FilialenNr],0)<>'5501' " + ' SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5501','5601','5701','5801') " + 'End If + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then + ' SQLstr &= " AND (Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Filialen.CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') " + 'Else + ' SQLstr &= " AND Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + 'End If + + If _AlleFirmenCLUSTER Then + SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice + ElseIf _UseFIRMA <> "" Then + SQLstr &= " AND '" & _UseFIRMA & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice + Else + SQLstr &= " AND ( '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then + SQLstr &= " OR Filialen.Firma IN ('IMEX') " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then + SQLstr &= " OR Filialen.Firma IN ('IMEX','VERAG') " ' Wenn die OFFERTE_FREMD_VERAGIMEX --> Beide + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_FRONTOFFICE", "SDL") Then + SQLstr &= " OR Filialen.Firma IN ('FRONTOFFICE') " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice + End If + SQLstr &= " ) " + End If + + + 'AUSNAHME BIS BESSERE LÖSUNG: + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then + SQLstr &= " and Filialen.Firma NOT IN ('AMBAR') " + End If + + If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'" + SQLstr &= " order by Ordnungsbegriff " + + setDS(usrcntl.dgvKundenInAktiv, SQL.loadDgvBySql(SQLstr, "FMZOLL")) + + End With + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_04") + End Try + End Sub + + 'threadsicherer Aufruf + ' Delegate Sub setLabelCallback(l As DataGridView, t As DataTable) + Private Sub setDS(l As DataGridView, t As DataTable) + Try + If l Is Nothing Then Exit Sub + If t Is Nothing Then Exit Sub + '' If Me.InvokeRequired Then + 'Dim d As New setLabelCallback(AddressOf setDS) + ' Me.Invoke(d, New Object() {l, t}) + ' Else + With l + .Columns.Clear() + .DataSource = t + If .ColumnCount = 0 Then Exit Sub + + .RowHeadersVisible = False + + If .Columns("KdNr") IsNot Nothing AndAlso .Columns("KdNr") IsNot DBNull.Value Then .Columns("KdNr").Width = 60 : .Columns("KdNr").HeaderText = "KundenNr" + If .Columns("Firma") IsNot Nothing AndAlso .Columns("Firma") IsNot DBNull.Value Then .Columns("Firma").Width = 250 + If .Columns("Adresse") IsNot Nothing AndAlso .Columns("Adresse") IsNot DBNull.Value Then .Columns("Adresse").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + If .Columns("E-Mail") IsNot Nothing AndAlso .Columns("E-Mail") IsNot DBNull.Value Then .Columns("E-Mail").Width = 50 : .Columns("E-Mail").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + If .Columns("Firma_Intern") IsNot Nothing AndAlso .Columns("Firma_Intern") IsNot DBNull.Value Then .Columns("Firma_Intern").Width = 60 : .Columns("Firma_Intern").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter : .Columns("Firma_Intern").HeaderText = "" + + .ClearSelection() + End With + ' End If + + Catch ex As Exception + ' Try + ' MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 05: " & vbNewLine & vbNewLine & ex.Message) + 'Catch ex2 As Exception + ' MsgBox("ERR", vbCritical) + 'End Try + End Try + + End Sub + + 'threadsicherer Aufruf + 'Delegate Sub setObjectVisibleCallback(l As Object, v As Boolean) + Private Sub setObjectVisible(l As Object, v As Boolean) + Try + If l Is Nothing Then Exit Sub + ' If Me.InvokeRequired Then + ' Dim d As New setObjectVisibleCallback(AddressOf setObjectVisible) + 'Me.Invoke(d, New Object() {l, v}) + ' Else + l.visible = v + If v = True Then + l.Show() + l.BringToFront() + End If + ' End If + Catch ex As Exception + ' MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 06: " & vbNewLine & vbNewLine & ex.Message) + End Try + End Sub + + + Public Sub nextLKW(dgv As DataGridView) '(sender As Object, e As EventArgs) + Try + If dgv.SelectedRows.Count > 0 Then + Dim i As Integer = dgv.SelectedRows(0).Index + If (i + 1 < dgv.RowCount) Then + 'dgv.CurrentCell = dgv.Item(2, i + 1) + dgv.ClearSelection() + dgv.Rows(i + 1).Selected = True + End If + Else + If dgv.Rows.Count > 0 Then ' dgv.CurrentCell = dgv.Item(2, 0) + dgv.ClearSelection() + dgv.Rows(0).Selected = True + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_03_1") + End Try + End Sub + Public Sub prevLKW(dgv As DataGridView) '(sender As Object, e As EventArgs) + Try + If dgv.SelectedRows.Count > 0 Then + Dim i As Integer = dgv.SelectedRows(0).Index + If (i > 0) Then + 'dgv.CurrentCell = dgv.Item(2, i - 1) + dgv.ClearSelection() + dgv.Rows(i - 1).Selected = True + End If + Else + If dgv.Rows.Count > 0 Then 'dgv.CurrentCell = dgv.Item(2, dgv.Rows.Count - 1) + dgv.ClearSelection() + dgv.Rows(dgv.Rows.Count - 1).Selected = True + End If + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_06") + End Try + End Sub + + + Private Sub usrcntl_CLOSE(sender As Object, e As EventArgs) Handles usrcntl.CLOSE + hideDgv(usrcntl) + End Sub + + + Private Sub dgvFindKD_Click(sender As Object, e As EventArgs) Handles usrcntl.DGV_Click + Try + If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing Then + With usrcntl.dgvKundenAktiv + If .SelectedRows.Count > 0 Then + If IsNumeric(.SelectedRows(0).Cells("KdNr").Value) Then + KdNr = .SelectedRows(0).Cells("KdNr").Value + KdName = .SelectedRows(0).Cells("Firma").Value + setMeValue() + hideDgv(usrcntl) + End If + End If + End With + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_07") + End Try + End Sub + + Private Sub dgvFindKD_Click2(sender As Object, e As EventArgs) Handles usrcntl.DGV_INAKTIV_Click + Try + If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenInAktiv IsNot Nothing Then + With usrcntl.dgvKundenInAktiv + If .SelectedRows.Count > 0 Then + If IsNumeric(.SelectedRows(0).Cells("KdNr").Value) Then + KdNr = .SelectedRows(0).Cells("KdNr").Value + KdName = .SelectedRows(0).Cells("Firma").Value + setMeValue() + hideDgv(usrcntl) + End If + End If + End With + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_08") + End Try + End Sub + Private Sub TextBox1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown + Try + + If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing Then + If e.KeyData = Keys.Tab And usrcntl.Visible Then ' wenn usrcntl eingeblendet, soll der TABULATOR als InputKey gesehen werden. + If usrcntl.dgvKundenAktiv.SelectedRows.Count > 0 Then e.IsInputKey = True Else usrcntl.Visible = False + End If + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_09") + End Try + End Sub + Private Sub dgvFindKD_Click(sender As Object, e As KeyEventArgs) Handles Me.KeyDown, usrcntl.DGV_KeyDown + Try + If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Tab Then + last_search = Now.AddSeconds(-10) + doKeyDown(Now) ' Damit Suche-Timer sicherausgelöst wurde + ' System.Threading.Thread.Sleep(5000) + End If + + + If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing Then + With usrcntl.dgvKundenAktiv + If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Tab Then + If e.KeyCode = Keys.Return And .RowCount > 0 And .SelectedRows.Count = 0 Then .Rows(0).Selected = True + If .SelectedRows.Count > 0 Then + If IsNumeric(.SelectedRows(0).Cells("KdNr").Value) Then + KdNr = .SelectedRows(0).Cells("KdNr").Value + KdName = .SelectedRows(0).Cells("Firma").Value + setMeValue() + hideDgv(usrcntl) + End If + Else + usrcntl.Visible = False + End If + e.Handled = True + e.SuppressKeyPress = True + + End If + End With + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_10") + End Try + End Sub + + Private Sub dgvFindKD_Click2(sender As Object, e As KeyEventArgs) Handles usrcntl.DGV_KeyDown + Try + If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenInAktiv IsNot Nothing Then + With usrcntl.dgvKundenInAktiv + If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Tab Then + If .SelectedRows.Count > 0 Then + If IsNumeric(.SelectedRows(0).Cells("KdNr").Value) Then + KdNr = .SelectedRows(0).Cells("KdNr").Value + KdName = .SelectedRows(0).Cells("Firma").Value + setMeValue() + hideDgv(usrcntl) + End If + Else + usrcntl.Visible = False + End If + + e.Handled = True + e.SuppressKeyPress = True + + End If + End With + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_11") + End Try + End Sub + + Sub reloadKdData() + Me.KdData_KUNDE = New cKunde(KdNr_value) + Me.KdData_ADRESSEN = New cAdressen(KdNr_value) + Me.KdData_KUNDE_ERW = New cKundenErweitert(KdNr_value) + + End Sub + + Sub setMeValue() + Try + If Me.kdNrField IsNot Nothing Then Me.kdNrField.Text = IIf(Me.KdNr_value > 0, Me.KdNr_value, "") + If _AllowSetValue Then + If _loadKdData Then 'Kundendaten sollen mitgeladen werden... + ' Me.KdData = KUNDENSQL.getKundeFMZOLLByKdNr(KdNr_value) + Me.KdData_KUNDE = New cKunde(KdNr_value) + Me.KdData_ADRESSEN = New cAdressen(KdNr_value) + Me.KdData_KUNDE_ERW = New cKundenErweitert(KdNr_value) + + If Me.KdData_ADRESSEN Is Nothing Then + KdName = "" + Me.Text = "" + + Else + KdName = KdData_ADRESSEN.Ordnungsbegriff + If _ValueKdAndName Then + If KdNr_value > 0 Then + + If _displayFullName Then + Me.Text = KdNr_value & " - " & (Me.KdData_ADRESSEN.Name_1 & " " & Me.KdData_ADRESSEN.Name_2).Trim + ElseIf _display_Name1 Then + Me.Text = KdNr_value & " - " & Me.KdData_ADRESSEN.Name_1 + Else + Me.Text = KdNr_value & " - " & KdName + End If + Else + KdName = "" + Me.Text = "" + End If + ' -1 |-| + 'If Me.Text.Trim = "-" Then Me.Text = "" + ' Me.Text = KdNr_value & " - " & IIf(_displayFullName, (Me.KdData_ADRESSEN.Name_1 & " " & Me.KdData_ADRESSEN.Name_2).Trim, KdName) + Else + If _displayFullName Then + Me.Text = (Me.KdData_ADRESSEN.Name_1 & " " & Me.KdData_ADRESSEN.Name_2).Trim + ElseIf _display_Name1 Then + Me.Text = Me.KdData_ADRESSEN.Name_1 + Else + Me.Text = KdName + End If + + ' Me.Text = IIf(_displayFullName, (Me.KdData_ADRESSEN.Name_1 & " " & Me.KdData_ADRESSEN.Name_2).Trim, KdName) + End If + End If + Else '... wenn nicht sollte beim Binding auch KdName gesetzt sein, sonst wird dieser nicht geladen + If KdNr_value > 0 Then + ' If KdName = "" Then + KdName = SQL.getValueTxtBySql("SELECT Ordnungsbegriff FROM Adressen WHERE AdressenNr =" & KdNr_value, "FMZOLL") + If _ValueKdAndName Then + Me.Text = KdNr_value & " - " & KdName + Else + Me.Text = KdName + End If + Else + KdName = "" + Me.Text = "" + End If + End If + ' searchActive = False + + End If + If Me.Text.Length > Me.MaxLength Then Me.Text = Me.Text.Substring(0, Me.MaxLength) + Eingabe_verarbeitet = True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_12") + End Try + + End Sub + + Public KdNr_value As Integer = -1 'Hier ist der richtige Wert drin... + Public Property KdName As String 'Muss vom Typ String sein, sonst geht es nicht... (BINDING NULL VALUE) + + Public Property KdNr As String + Get + Return KdNr_value + End Get + Set(v As String) + Try + KdNr_value = IIf(IsNumeric(v), v, -1) + OnPropertyChanged("KdNr") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_14") + End Try + End Set + End Property + + Public Property KdNrNullInt As Object + Get + If KdNr_value > 0 Then + Return KdNr_value + Else + Return Nothing + End If + ' Return CObj(If(KdNr_value > 0, KdNr_value, Nothing)) + End Get + Set(v As Object) + 'NIX... + End Set + End Property + + + + Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged + + Protected Sub OnPropertyChanged(ByVal name As String) + RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(name)) + End Sub + + + Private Sub KdSearchBox_PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Handles Me.PropertyChanged + setMeValue() + End Sub + + Sub initKdBox(control As Control, Optional kdNrBox As Control = Nothing) + Try + If control Is Nothing Then Exit Sub + Me.form = control + Me.usrcntl = New usrcntlKdSearch + control.Controls.Add(usrcntl) + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then + _AlleFirmenCLUSTER = True + End If + + 'Me.usrcntl = usrcntl + hideDgv(Me.usrcntl) + If kdNrBox IsNot Nothing Then Me.kdNrField = kdNrBox + + + tmr_Search.Interval = 200 + tmr_Search.Enabled = True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_13") + End Try + End Sub + + + + Private Sub KdSearchBox_LostFocus(sender As Object, e As EventArgs) Handles Me.LostFocus + 'THREADING ThreadWaitAndSee + Dim ThreadWaitAndSee = New System.Threading.Thread(Sub() + Try + Threading.Thread.Sleep(300) + ' MsgBox(Me.form.ActiveControl.Name) + If Me.form Is Nothing Then Exit Sub + If Me.form.ActiveControl Is Nothing Then Exit Sub + If Me.form.ActiveControl IsNot Me Then + setObjectVisible(usrcntl, False) + End If + Catch ex As Exception + + End Try + End Sub) + ThreadWaitAndSee.IsBackground = True + ThreadWaitAndSee.Start() + + Try + If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing AndAlso usrcntl.dgvKundenInAktiv IsNot Nothing Then + If usrcntl.dgvKundenAktiv.SelectedCells.Count = 0 And usrcntl.dgvKundenInAktiv.SelectedCells.Count = 0 Then + Me.SelectionLength = 0 + End If + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_LF") + End Try + End Sub + + + + Private Sub KdSearchBox_Layout(sender As Object, e As LayoutEventArgs) Handles Me.Layout + If _autoSizeGross Then + Me.CharacterCasing = Windows.Forms.CharacterCasing.Upper + ' If Me.Text <> "" Then Me.Text = Me.Text.ToUpper + End If + End Sub + + Private Sub KdSearchBox_TextChanged(sender As Object, e As EventArgs) Handles Me.TextChanged + If Me.Text.Length > Me.MaxLength Then Me.Text = Me.Text.Substring(0, Me.MaxLength) + End Sub + + Private Sub tmr_Search_Tick(sender As Object, e As EventArgs) Handles tmr_Search.Tick + If TIMER_SEARCH Then doKeyDown(Now) + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyCheckBoxValue.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyCheckBoxValue.Designer.vb new file mode 100644 index 0000000..f959372 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyCheckBoxValue.Designer.vb @@ -0,0 +1,47 @@ +Partial Class MyCheckBoxValue + Inherits System.Windows.Forms.CheckBox + + _ + Public Sub New(ByVal container As System.ComponentModel.IContainer) + MyClass.New() + + 'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers + If (container IsNot Nothing) Then + container.Add(Me) + End If + + End Sub + + _ + Public Sub New() + MyBase.New() + + 'Dieser Aufruf ist für den Komponenten-Designer erforderlich. + InitializeComponent() + + End Sub + + 'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Komponenten-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. + 'Das Bearbeiten ist mit dem Komponenten-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyCheckBoxValue.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyCheckBoxValue.vb new file mode 100644 index 0000000..26dc34f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyCheckBoxValue.vb @@ -0,0 +1,42 @@ +Imports System.ComponentModel +Imports System.Windows.Forms + +Public Class MyCheckBoxValue + Inherits CheckBox + + Property _value As String = "" + 'Dim bold = False + Property _showdate As Boolean = False + Property _date As Object = Nothing + + + + Private Sub MyCheckBoxValue_CheckedChanged(sender As Object, e As EventArgs) Handles Me.CheckedChanged + If Me.Text.Contains(", am ") Then Me.Text = Me.Text.Substring(0, Me.Text.IndexOf(", am ")) 'ersetzen des Datum-Strings + If Me.CheckState = Windows.Forms.CheckState.Checked Then + If Me._date IsNot Nothing AndAlso IsDate(Me._date) AndAlso Me._date > CDate("01.01.1990") Then + Me.Text &= ", am " & Me._date.ToShortDateString + End If + + ' Me.Font = New System.Drawing.Font(Me.Font.FontFamily, Me.Font.Size, Drawing.FontStyle.Bold) + Else + Me._date = Nothing + ' Me.Font = New System.Drawing.Font(Me.Font.FontFamily, Me.Font.Size, If(bold, Drawing.FontStyle.Bold, Drawing.FontStyle.Regular)) + End If + End Sub + + Private Sub MyCheckBoxValue_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown + If e.KeyCode = Keys.Space Then + If Me.CheckState <> Windows.Forms.CheckState.Checked Then Me._date = Now + End If + End Sub + + ' Private Sub MyCheckBoxValue_Layout(sender As Object, e As LayoutEventArgs) Handles Me.Layout + ' bold = Me.Font.Bold + 'End Sub + + Private Sub MyCheckBoxValue_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown + If Me.CheckState <> Windows.Forms.CheckState.Checked Then Me._date = Now + End Sub + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyCheckbox.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyCheckbox.Designer.vb new file mode 100644 index 0000000..644790a --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyCheckbox.Designer.vb @@ -0,0 +1,47 @@ +Partial Class MyCheckbox + Inherits System.Windows.Forms.CheckBox + + _ + Public Sub New(ByVal container As System.ComponentModel.IContainer) + MyClass.New() + + 'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers + If (container IsNot Nothing) Then + container.Add(Me) + End If + + End Sub + + _ + Public Sub New() + MyBase.New() + + 'Dieser Aufruf ist für den Komponenten-Designer erforderlich. + InitializeComponent() + + End Sub + + 'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Komponenten-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. + 'Das Bearbeiten ist mit dem Komponenten-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyCheckbox.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyCheckbox.vb new file mode 100644 index 0000000..61c61ba --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyCheckbox.vb @@ -0,0 +1,41 @@ +Imports System.ComponentModel +Imports System.Windows.Forms + +Public Class MyCheckbox + Inherits CheckBox + Implements INotifyPropertyChanged + + Property _value As String = "" + Property Checked_value As Boolean = False + + ' Protected Overrides Sub OnCheckedChanged(ByVal e As EventArgs) + ' Me.Checked = Me.Checked_value + ' End Sub + + Private Sub MyCheckbox_Click(sender As Object, e As EventArgs) Handles Me.Click + Me.Checked = Me.Checked_value + End Sub + + Public Property CheckedValue As Boolean + Get + Return Checked_value + End Get + Set(v As Boolean) + Checked_value = v + Me.Checked = Checked_value + OnPropertyChanged("CheckedValue") + End Set + End Property + + + + Public Event PropertyChanged As PropertyChangedEventHandler _ + Implements INotifyPropertyChanged.PropertyChanged + + Protected Sub OnPropertyChanged(ByVal name As String) + RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(name)) + End Sub + + + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb new file mode 100644 index 0000000..e853ab4 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb @@ -0,0 +1,182 @@ +Imports System.ComponentModel + +Public Class MyComboBox + Inherits System.Windows.Forms.ComboBox + + Public Property _allowFreiText As Boolean = False + Public Property _allowedValuesFreiText As String() = Nothing + ' Public Property _allowedValuesFreiText_SET As String() = Nothing + + Public Sub New() + End Sub + + Sub fillWithMyListItem(l As List(Of MyListItem), Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True, Optional firstEmptyName As String = "") + If clearList Then MyBase.Items.Clear() + If firstEmpty Then + Me.Items.Insert(0, New MyListItem(firstEmptyName, "")) + End If + If l IsNot Nothing Then + For Each i In l : MyBase.Items.Add(i) : Next + End If + End Sub + Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True, Optional firstEmptyName As String = "") + fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty, clearList, firstEmptyName) + _TRANSLATE() + End Sub + + Public Property _value As String + Get + Return getValueOfItem() + End Get + Set(v As String) + + 'If _allowedValuesFreiText Is Nothing OrElse Not valueAllowed(v) Then + If v = "" Then + If Me.Items.Count > 0 And Not _allowFreiText Then Me.SelectedItem = Me.Items(0) + Else + changeItem(v, valueAllowed(v)) + 'End If + End If + End Set + End Property + + Function valueAllowed(t) + If _allowedValuesFreiText IsNot Nothing Then + For Each s In _allowedValuesFreiText + Try : If t.ToUpper = CStr(s).ToUpper Then Return True + Catch : End Try + Next + End If + Return False + End Function + + + Function changeItem(v, Optional Valueallowed = False) As Boolean + ' + Try + If Me.Items.Count = 0 Then Me.Text = "" : Return True + + If Me.Items(0).GetType.Name = "MyListItem" Then + + Try : If DirectCast(Me.SelectedItem, MyListItem).Value.ToUpper = CStr(v).ToUpper Then Return True 'warum nochmal? + Catch : End Try ' Wenn der ausgewählte EIntrag bereits korrekt ist. + + For Each i In Me.Items + ' MsgBox(DirectCast(i, MyListItem).Value & " - " & v) + If DirectCast(i, MyListItem).Value.ToUpper = CStr(v).ToUpper Then + 'me.SelectedIndex = i : Return True + Me.SelectedItem = i : Return True + End If + Next + For Each i In Me.Items + ' MsgBox(DirectCast(i, MyListItem).Value & " - " & v) + If DirectCast(i, MyListItem).Text.ToUpper = CStr(v).ToUpper Then + Me.SelectedItem = i : Return True + End If + Next + Else + 'WEnn die Items normale Strings beinhalten, wird keine Änderung des ._value Wertes vorgenommen. + Return True + End If + Catch ex As Exception + ' MsgBox(ex.Message) + End Try + + If Not _allowFreiText And Not Valueallowed Then + Me._value = "" + End If + + If Valueallowed Then + Me.Text = v + End If + + Return False + End Function + + Function getValueOfItem() As String + If Me.Items.Count = 0 Then Return "" + Try : Return DirectCast(MyBase.SelectedItem, MyListItem).Value + Catch + Try : Return MyBase.SelectedItem.ToString : Catch : End Try + End Try + If _allowFreiText Or valueAllowed(Me.Text) Then Return Me.Text + Return "" + End Function + + + Private Sub MyComboBox_Leave(sender As Object, e As EventArgs) Handles Me.Leave + If Me.DropDownStyle = Windows.Forms.ComboBoxStyle.DropDown Then + If Me.Text = "" Then + If Me.Items.Count > 0 Then Me.SelectedItem = Me.Items(0) + End If + End If + + Me._value = Me.Text + changeItem(CStr(Me.Text), valueAllowed(Me.Text)) + + Exit Sub + + If valueAllowed(Me.Text) Then + Dim t = Me.Text + changeItem(CStr(t)) 'Wenn nicht schon in der Auswahl gefunden, dann wird _value gesetzt + Me._value = t + Else + If Me._value = "" And Me.Text <> "" Then + If Not changeItem(CStr(Me.Text)) And _allowFreiText Then + Me.Text = "" + If Me.Items.Count > 0 Then Me.SelectedItem = Me.Items(0) + Me._value = "" + End If + End If + End If + + End Sub + + Private Sub MyComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Me.SelectedIndexChanged + Me._value = getValueOfItem() + 'Geht nicht, da sonst Auswahl nicht Funktioniert + + ' MsgBox(Me._value) + End Sub + + + Public Sub _TRANSLATE() + Try + + If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "" Then Exit Sub + If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE" Then Exit Sub + + Dim lanTxtAll = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN) + If lanTxtAll.Count > 0 Then + + Dim listItems(Me.Items.Count) As MyListItem + Me.Items.CopyTo(listItems, 0) + + Me.Items.Clear() + + For Each l In listItems + If l IsNot Nothing Then + + Dim lanTxt = l.Text + For Each txt In lanTxtAll + If txt.trs_subControl IsNot DBNull.Value AndAlso txt.trs_subControl = l.Text Then + lanTxt = txt.trs_text + End If + Next + ' Dim lanTxt = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.Find(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN And (x.trs_subControl IsNot DBNull.Value AndAlso x.trs_subControl = l.Text)) + ' MsgBox(If(lanTxt Is Nothing, "noth " & Me.Name, lanTxt.trs_text)) + Me.Items.Add(New MyListItem(lanTxt, l.Value)) + + End If + Next + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + + +End Class + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.Designer.vb new file mode 100644 index 0000000..231d707 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.Designer.vb @@ -0,0 +1,51 @@ +Partial Class MyDatagridview + Inherits System.Windows.Forms.DataGridView + + _ + Public Sub New(ByVal container As System.ComponentModel.IContainer) + MyClass.New() + + 'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers + If (container IsNot Nothing) Then + container.Add(Me) + End If + + End Sub + + _ + Public Sub New() + MyBase.New() + + 'Dieser Aufruf ist für den Komponenten-Designer erforderlich. + InitializeComponent() + + End Sub + + 'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + Try + MyBase.Dispose(disposing) + Catch ex As Exception + + End Try + End Try + End Sub + + 'Wird vom Komponenten-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. + 'Das Bearbeiten ist mit dem Komponenten-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.vb new file mode 100644 index 0000000..f4514da --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.vb @@ -0,0 +1,319 @@ +Imports System.ComponentModel +Imports System.Reflection +Imports System.Windows.Forms + +Public Class MyDatagridview + Inherits DataGridView + Implements INotifyPropertyChanged + + Dim SQL_STR As String = "" + Dim CONN_ART As String = "" + Dim SQL_PARAM As List(Of SQLVariable) = Nothing + + Public RELOAD_PARAMS() As String = Nothing ' Die Spaltennamen, anhand dieser die Auswhal bei einem Reload wiederhergesatllt wird + Dim RELOAD_PARAMS_Save As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + + Property AKTUALISIERUNGS_INTERVALL As Integer = -1 + WithEvents timer As New Timer + Public VALUE_CHANGED As Boolean = False + + Event RELOADED() + + ' Protected Overrides Sub OnCheckedChanged(ByVal e As EventArgs) + ' Me.Checked = Me.Checked_value + ' End Sub + + Dim SortColumn = Nothing + Dim sel_row_index = -1 + Dim SortDirection As Windows.Forms.SortOrder + Dim ScrollPos_X = Nothing + Dim ScrollPos_Y = Nothing + 'Dim ScrollPos_Y2 = Nothing + Dim SQL As New SQL + + Public Sub GetOrder() + ' dataGridView1.HorizontalScrollingOffset = dataGridView1.HorizontalScrollingOffset + 10 + + If Me.Columns.Count > 0 Then + RELOAD_PARAMS_Save.Clear() + If Me.SortedColumn IsNot Nothing Then + SortColumn = Me.SortedColumn.Index + SortDirection = Me.SortedColumn.HeaderCell.SortGlyphDirection + End If + ScrollPos_X = Me.HorizontalScrollingOffset + ScrollPos_Y = Me.FirstDisplayedScrollingRowIndex 'Me.VerticalScrollingOffset + + 'ScrollPos_Y2 = Me.VerticalScrollingOffset + If Me.SelectedRows.Count > 0 Then + sel_row_index = Me.SelectedRows(0).Index + + + If RELOAD_PARAMS IsNot Nothing Then + For Each p In RELOAD_PARAMS + RELOAD_PARAMS_Save.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(p, Me.SelectedRows(0).Cells(p).Value)) + Next + End If + End If + + + End If + End Sub + + Protected Overrides Sub OnPaint(e As PaintEventArgs) + Try + MyBase.OnPaint(e) + If AKTUALISIERUNGS_INTERVALL > 0 Then timer.Interval = AKTUALISIERUNGS_INTERVALL : timer.Enabled = True + + Catch ex As Exception + Me.Invalidate() + End Try + End Sub + + Public Sub SET_SQL(SQL_STR As String, CONN_ART As String, Optional SQL_PARAM As List(Of SQLVariable) = Nothing, Optional RELOAD_PARAMS As String() = Nothing) + Me.SQL_STR = SQL_STR + Me.CONN_ART = CONN_ART + Me.SQL_PARAM = SQL_PARAM + Me.RELOAD_PARAMS = RELOAD_PARAMS + End Sub + + Public Sub SetOrder() + If Me.Columns.Count > 0 Then + If SortColumn IsNot Nothing Then + If SortDirection = Windows.Forms.SortOrder.Ascending Then + Me.Sort(Me.Columns(CInt(SortColumn)), ListSortDirection.Ascending) + ElseIf SortDirection = Windows.Forms.SortOrder.Descending Then + Me.Sort(Me.Columns(CInt(SortColumn)), ListSortDirection.Descending) + Else + Me.Sort(Me.Columns(CInt(SortColumn))) + End If + End If + If ScrollPos_X IsNot Nothing Then Me.HorizontalScrollingOffset = ScrollPos_X + Try + ' Me.DataBind + Me.FirstDisplayedScrollingRowIndex = ScrollPos_Y + Catch ex As Exception + 'If ScrollPos_Y IsNot Nothing Then Me.HorizontalScrollBar.Value = ScrollPos_Y2 + + End Try + + If RELOAD_PARAMS IsNot Nothing And RELOAD_PARAMS_Save.Count > 0 Then + For Each r As DataGridViewRow In Me.Rows + Dim found = True + For Each p In RELOAD_PARAMS_Save + If r.Cells(p.Text).Value <> p.Value Then found = False + Next + If found Then + r.Selected = True + + For Each c As DataGridViewCell In Me.Rows(sel_row_index).Cells + If c.Visible Then + Me.CurrentCell = c 'Damit der Cursor in der DGV richtig steht + Exit For + End If + Next + Exit For + End If + + Next + Else + If sel_row_index > 0 And Me.Rows.Count > sel_row_index Then + Me.ClearSelection() + Me.Rows(sel_row_index).Selected = True + For Each c As DataGridViewCell In Me.Rows(sel_row_index).Cells + If c.Visible Then + Me.CurrentCell = c 'Damit der Cursor in der DGV richtig steht + Exit For + End If + Next + + End If + End If + End If + End Sub + + Public Sub LOAD(Optional showErr As Boolean = False, Optional ByRef errOccured As Boolean = False) + If SQL_STR <> "" Then + Me.DataSource = SQL.loadDgvBySql_Param(SQL_STR, CONN_ART, , SQL_PARAM, showErr, errOccured) + Me._TRANSLATE() + End If + End Sub + + Public Sub RELOAD() + GetOrder() + LOAD() + SetOrder() + RaiseEvent RELOADED() + End Sub + + Public Event PropertyChanged As PropertyChangedEventHandler _ + Implements INotifyPropertyChanged.PropertyChanged + + Protected Sub OnPropertyChanged(ByVal name As String) + RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(name)) + End Sub + + + ' Private Sub MyDatagridview_Layout(sender As Object, e As LayoutEventArgs) Handles Me.Layout + ' End Sub + + Private Sub timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick + If VALUE_CHANGED Then + RELOAD() + VALUE_CHANGED = False + End If + + + End Sub + + + '_______________________________________________________________________________ + +#Region "Operations" + + Public Sub DefineSingleClickColumns(ParamArray columns As DataGridViewColumn()) + singleClickColumns.Clear() + + For Each column As DataGridViewColumn In columns + If Me.Columns.IndexOf(column) = -1 Then + Throw New ArgumentException("Instance of column (" + column.Name + ") is not in this DataGridView") + End If + + singleClickColumns.Add(column) + Next + End Sub + + Public Sub DefineSingleClickColumns(ParamArray columnIndexes As Integer()) + singleClickColumns.Clear() + + For Each columnIndex As Integer In columnIndexes + If columnIndex < 0 OrElse columnIndex >= Me.Columns.Count Then + Throw New ArgumentOutOfRangeException("Column index (" + columnIndex + ") is out of range") + End If + + singleClickColumns.Add(Me.Columns(columnIndex)) + Next + End Sub + + Protected Sub BaseOnMouseDown(ByVal e As MouseEventArgs) + MyBase.OnMouseDown(e) + End Sub + +#End Region + + +#Region "Overrides" + + Protected Overloads Overrides Sub OnMouseDown(ByVal e As MouseEventArgs) + ' If primary mouse button not down, do standard processing + If e.Button <> MouseButtons.Left Then + MyBase.OnMouseDown(e) + + Return + End If + + ' Get info on where user clicked + Dim hitInfo As DataGridView.HitTestInfo = HitTest(e.X, e.Y) + + ' If a cell wasn't clicked, column isn't text or it's read only, do standard processing + If hitInfo.Type <> DataGridViewHitTestType.Cell OrElse Not (TypeOf Me.Columns(hitInfo.ColumnIndex) Is DataGridViewTextBoxColumn) OrElse Me.Columns(hitInfo.ColumnIndex).[ReadOnly] Then + MyBase.OnMouseDown(e) + + Return + End If + + ' If functionality enabled for specific columns and column clicked is not + ' one of these, do standard processing + If singleClickColumns.Count >= 1 AndAlso singleClickColumns.IndexOf(Me.Columns(hitInfo.ColumnIndex)) = -1 Then + MyBase.OnMouseDown(e) + + Return + End If + + ' Get clicked cell + Dim clickedCell As DataGridViewCell = Me.Rows(hitInfo.RowIndex).Cells(hitInfo.ColumnIndex) + + ' If cell not current, try and make it so + If CurrentCell IsNot clickedCell Then + ' Allow standard processing make clicked cell current + MyBase.OnMouseDown(e) + + ' If this didn't happen (validation failed etc), abort + If Me.CurrentCell IsNot clickedCell Then + Return + End If + End If + + ' If already in edit mode, do standard processing (will position caret) + If Me.CurrentCell.IsInEditMode Then + MyBase.OnMouseDown(e) + + Return + End If + + ' Enter edit mode + Me.BeginEdit(False) + + If Me.EditingControl IsNot Nothing Then + + ' Ensure text is scrolled to the left + Dim textBox As TextBoxBase = DirectCast(Me.EditingControl, TextBoxBase) + + textBox.SelectionStart = 0 + + textBox.ScrollToCaret() + + ' Position caret by simulating a mouse click within control + Dim editOffset As Integer = e.X - hitInfo.ColumnX - Me.EditingControl.Left + + Dim lParam As Int32 = MakeLong(editOffset, 0) + + SendMessage(Me.EditingControl.Handle, WM_LBUTTONDOWN, 0, lParam) + + SendMessage(Me.EditingControl.Handle, WM_LBUTTONUP, 0, lParam) + End If + End Sub + +#End Region + +#Region "Implementation" + + Const WM_LBUTTONDOWN As Integer = 513 + + Const WM_LBUTTONUP As Integer = 514 + + _ + Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Boolean + End Function + + Private singleClickColumns As New List(Of DataGridViewColumn)() + + Private Function MakeLong(ByVal loWord As Integer, ByVal hiWord As Integer) As Integer + Return (hiWord << 16) Or (loWord And 65535) + End Function + +#End Region + + + + Public Sub _TRANSLATE() + Try + + If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "" Then Exit Sub + If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE" Then Exit Sub + + Dim lanTxtAll = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN) + If lanTxtAll.Count > 0 Then + For Each txt In lanTxtAll + If Me.Columns(txt.trs_subControl) IsNot Nothing Then + Me.Columns(txt.trs_subControl).HeaderText = txt.trs_text + End If + Next + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyFlowLayoutPanel.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyFlowLayoutPanel.Designer.vb new file mode 100644 index 0000000..0784a98 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyFlowLayoutPanel.Designer.vb @@ -0,0 +1,47 @@ +Partial Class MyFlowLayoutPanel + Inherits System.Windows.Forms.FlowLayoutPanel + + _ + Public Sub New(ByVal container As System.ComponentModel.IContainer) + MyClass.New() + + 'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers + If (container IsNot Nothing) Then + container.Add(Me) + End If + + End Sub + + _ + Public Sub New() + MyBase.New() + + 'Dieser Aufruf ist für den Komponenten-Designer erforderlich. + InitializeComponent() + + End Sub + + 'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Komponenten-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. + 'Das Bearbeiten ist mit dem Komponenten-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyFlowLayoutPanel.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyFlowLayoutPanel.vb new file mode 100644 index 0000000..33490c0 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyFlowLayoutPanel.vb @@ -0,0 +1,15 @@ +Imports System.ComponentModel +Imports System.Windows.Forms +Imports System.Drawing + +Public Class MyFlowLayoutPanel + Inherits FlowLayoutPanel + + + Protected Overrides Function ScrollToControl(ByVal activecontrol As Control) As Point + + Return Me.AutoScrollPosition + + End Function + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyLinkedVALUES.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyLinkedVALUES.vb new file mode 100644 index 0000000..86fcc28 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyLinkedVALUES.vb @@ -0,0 +1,27 @@ +Imports System.Windows.Forms + +Public Class MyLinkLabelVALUE + Inherits System.Windows.Forms.LinkLabel + + Public Property valuename As String + Public Property linkedTextBox As TextBox + + Protected Overrides Sub OnClick(e As EventArgs) + MyBase.OnClick(e) + End Sub + +End Class + + +Public Class MyLinkPicBoxVALUE + Inherits System.Windows.Forms.PictureBox + + Public Property valuename As String + Public Property linkedTextBox As TextBox + Public Property linkedPictureBox As PictureBox + + Protected Overrides Sub OnClick(e As EventArgs) + MyBase.OnClick(e) + End Sub + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyListBox.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyListBox.vb new file mode 100644 index 0000000..2cf8903 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyListBox.vb @@ -0,0 +1,39 @@ +Imports System.ComponentModel + +Public Class MyListBox + Inherits System.Windows.Forms.ListBox + + Public Sub New() + End Sub + + Sub fillWithMyListItem(l As List(Of MyListItem)) + MyBase.Items.Clear() + For Each i In l : MyBase.Items.Add(i) : Next + End Sub + Sub fillWithSQL(sql As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL") + fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sql, showValueInText, conn)) + End Sub + + Public Property _value As String + Get + Return getValueOfItem() + End Get + Set(v As String) + changeItem(v) + End Set + End Property + + Sub changeItem(v) + For Each i In MyBase.Items + If DirectCast(i, MyListItem).Value = v Then + MyBase.SelectedItem = i : Exit Sub + End If + Next + End Sub + + Function getValueOfItem() As String + Try : Return DirectCast(MyBase.SelectedItem, MyListItem).Value : Catch : End Try + Return "" + End Function +End Class + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyPanel.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyPanel.Designer.vb new file mode 100644 index 0000000..b8a5c99 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyPanel.Designer.vb @@ -0,0 +1,47 @@ +Partial Class MyPanel + Inherits System.Windows.Forms.Panel + + _ + Public Sub New(ByVal container As System.ComponentModel.IContainer) + MyClass.New() + + 'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers + If (container IsNot Nothing) Then + container.Add(Me) + End If + + End Sub + + _ + Public Sub New() + MyBase.New() + + 'Dieser Aufruf ist für den Komponenten-Designer erforderlich. + InitializeComponent() + + End Sub + + 'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Komponenten-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. + 'Das Bearbeiten ist mit dem Komponenten-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyPanel.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyPanel.vb new file mode 100644 index 0000000..5180ced --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyPanel.vb @@ -0,0 +1,15 @@ +Imports System.ComponentModel +Imports System.Windows.Forms +Imports System.Drawing + +Public Class MyPanel + Inherits Panel + + + Protected Overrides Function ScrollToControl(ByVal activecontrol As Control) As Point + + Return Me.AutoScrollPosition + + End Function + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyRadioButton.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyRadioButton.Designer.vb new file mode 100644 index 0000000..5b1d89e --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyRadioButton.Designer.vb @@ -0,0 +1,40 @@ +Partial Class MyRadioButton + Inherits System.Windows.Forms.RadioButton + + _ + Public Sub New(ByVal container As System.ComponentModel.IContainer) + MyClass.New() + + 'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers + If (container IsNot Nothing) Then + container.Add(Me) + End If + + End Sub + + + + 'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Komponenten-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. + 'Das Bearbeiten ist mit dem Komponenten-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyRadioButton.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyRadioButton.vb new file mode 100644 index 0000000..7da1173 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyRadioButton.vb @@ -0,0 +1,34 @@ +Imports System.Windows.Forms + +Public Class MyRadioButton + Inherits System.Windows.Forms.RadioButton + + Public Sub New() + End Sub + + Public Property GroupName As String + + + Private Sub MyRadioButton_Click(sender As Object, e As EventArgs) Handles Me.Click + ' Dim rb As MyRadioButton = DirectCast(sender, MyRadioButton) + ' MsgBox(Me.Checked) + ' If Not Me.Checked Then + uncheck(Me.FindForm, Me.GroupName) + Me.Checked = True + ' End If + + + End Sub + + Sub uncheck(c As Control, GroupName As String) + ' MsgBox(c.GetType.Name) + If c.GetType.Name = "MyRadioButton" AndAlso DirectCast(c, MyRadioButton).GroupName = GroupName Then + DirectCast(c, MyRadioButton).Checked = False + ElseIf c.HasChildren Then + For Each csub In c.Controls + uncheck(csub, GroupName) + Next + End If + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyRichTextBox.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyRichTextBox.vb new file mode 100644 index 0000000..47ca705 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyRichTextBox.vb @@ -0,0 +1,40 @@ +Imports System.ComponentModel +Imports System.Drawing +Imports System.Windows.Forms + +Public Class MyRichTextBox + Inherits System.Windows.Forms.RichTextBox + + Property MaxLines_Warning As String = "" + Property MaxLines_Warning_Label As Label = Nothing + Property MaxLineLength As Integer = -1 + + + Private Sub MyTextBox_Leave(sender As Object, e As EventArgs) Handles Me.Leave + If MaxLineLength > 0 Then + Dim str() As String = Me.Lines + For i = 0 To Me.Lines.Count - 1 + If str(i).Length > MaxLineLength Then + str(i) = str(i).Substring(0, MaxLineLength) + End If + Next + Me.Lines = str + End If + End Sub + + Private Sub MyTextBox_Textchanged(sender As Object, e As EventArgs) Handles Me.TextChanged + 'sender.ForeColor = System.Drawing.Color.Black + + If Me.Multiline And IsNumeric(MaxLines_Warning) Then + ' If Me.Lines.Length > MaxLines Then + If MaxLines_Warning_Label IsNot Nothing Then + MaxLines_Warning_Label.Visible = CBool(Me.Lines.Length > MaxLines_Warning) + End If + 'End If + End If + + End Sub + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyRichTextBox2.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyRichTextBox2.vb new file mode 100644 index 0000000..0e74090 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyRichTextBox2.vb @@ -0,0 +1,41 @@ +Imports System.ComponentModel +Imports System.Drawing +Imports System.Windows.Forms + +Public Class MyRichTextBox2 + Inherits System.Windows.Forms.RichTextBox + + + Property MaxLines_Warning As String = "" + Property MaxLines_Warning_Label As Label = Nothing + Property MaxLineLength As Integer = -1 + + + Private Sub MyTextBox_Leave(sender As Object, e As EventArgs) Handles Me.Leave + If MaxLineLength > 0 Then + Dim str() As String = Me.Lines + For i = 0 To Me.Lines.Count - 1 + If str(i).Length > MaxLineLength Then + str(i) = str(i).Substring(0, MaxLineLength) + End If + Next + Me.Lines = str + End If + End Sub + + Private Sub MyTextBox_Textchanged(sender As Object, e As EventArgs) Handles Me.TextChanged + 'sender.ForeColor = System.Drawing.Color.Black + + If Me.Multiline And IsNumeric(MaxLines_Warning) Then + ' If Me.Lines.Length > MaxLines Then + If MaxLines_Warning_Label IsNot Nothing Then + MaxLines_Warning_Label.Visible = CBool(Me.Lines.Length > MaxLines_Warning) + End If + 'End If + End If + + End Sub + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.Designer.vb new file mode 100644 index 0000000..d00b9ca --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.Designer.vb @@ -0,0 +1,30 @@ +Partial Class MySearchBox + Inherits System.Windows.Forms.TextBox + + + + + 'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Komponenten-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. + 'Das Bearbeiten ist mit dem Komponenten-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb new file mode 100644 index 0000000..e34e729 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb @@ -0,0 +1,638 @@ +Imports System.ComponentModel +Imports System.Drawing +Imports System.Windows.Forms + +'Imports System.Threading + +Public Class MySearchBox + Inherits System.Windows.Forms.TextBox + Implements INotifyPropertyChanged + + ' Dim sql As New SDL.SQL + ' Dim KUNDENSQL As New SDL.kundenSQL + Dim form As Form = Me.FindForm + 'Public KdData As SDL.cKundenFMZOLL + Public DR As DataRow = Nothing + + Public Property searchActive As Boolean = True + Public Property _AllowSetValue As Boolean = False + Public Property _allowFreitext As Boolean = False + Public Property _hideIfListEmpty As Boolean = True + Public Property dgvpos As String = "LEFT" + Public Property _autoSizeGross As Boolean = False + + Public Property SQL_WhereParamList As String() + Public Property INVISIBLE_COLUMNS As String() + + Public Property SQL_SELECT As String + Public Property SQL_WHERE As String + Public Property KEYPARAM As String + Public Property DISPLAY_PARAM As String + ' Public Property DISPLAY_PARAM_VALUE As String + Public Property SQL_ORDER_BY As String + Public Property conn_art As String = "FMZOLL" + Public Property key_visible As Boolean = False + Public Property _allowSpaceAsSplitter As Boolean = False + + + Dim SrchHeight As Integer = 300 + Dim SrchWidth As Integer = 300 + + Public Event VALUE_CHANGED() + + Dim active = False + Public Property _value As String + ' Public Propvalue As String + ' Public Property _value As String + ' Get + ' Return Me.Propvalue + ' End Get + ' Set(v As String) + ' SET_VALUE(v) + ' OnPropertyChanged("_value") + ' End Set + 'End Property + + + + Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged + + Protected Sub OnPropertyChanged(ByVal name As String) + RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(name)) + End Sub + + + Public WithEvents usrcntl As usrcntlKdSearch '= DirectCast(Me.FindForm.Controls.Find("dgvFindKD", False)(0), DataGridView) + + ' Public WithEvents dgv As DataGridView + ' Public WithEvents dgvInaktiv As DataGridView + + Dim SQL As New SQL + + Public Sub FireReturn() + dgvFindKD_Click(Me, New KeyEventArgs(Keys.Return)) + End Sub + + Protected Overrides Sub OnPaint(e As PaintEventArgs) + Try + MyBase.OnPaint(e) + Catch ex As Exception + Me.Invalidate() + End Try + End Sub + + Private Sub KdSearchBox_GotFocus(sender As Object, e As EventArgs) Handles Me.GotFocus + Try + Me.SelectionLength = 0 + Me.HideSelection = False + Me.SelectAll() + Me.Select() + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 01: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + End Try + End Sub + + Private Sub KdSearchBox_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp + Try + 'Console.WriteLine(String.Format("TEEST 01")) + If Not searchActive Then Exit Sub + + ' If dgv Is Nothing Then dgv = usrcntl.dgvKundenAktiv + ' If dgvInaktiv Is Nothing Then dgvInaktiv = usrcntl.dgvKundenInAktiv + + If e.KeyCode = Keys.ShiftKey Or e.KeyCode = Keys.Shift Or e.KeyCode = Keys.Alt Or e.KeyCode = Keys.Control Or e.KeyCode = Keys.Left Or e.KeyCode = Keys.Right Or e.KeyCode = Keys.End Or e.KeyCode = Keys.Home Or e.KeyCode = Keys.CapsLock Then 'Bei Shift Tab.. + If usrcntl IsNot Nothing Then usrcntl.Visible = False + e.Handled = True + Exit Sub + End If + + + If e.KeyCode = Keys.Tab Then + If usrcntl IsNot Nothing Then usrcntl.Visible = False + e.Handled = True + Exit Sub + End If + + If e.KeyCode = Keys.Return Then + e.Handled = True + Exit Sub + End If + + If e.KeyCode = Keys.Up Then + If usrcntl IsNot Nothing Then prevLKW(usrcntl.dgvKundenAktiv) + e.Handled = True + Exit Sub + End If + If e.KeyCode = Keys.Down Then + If usrcntl IsNot Nothing Then nextLKW(usrcntl.dgvKundenAktiv) + e.Handled = True + Exit Sub + End If + If e.KeyCode = Keys.Escape Then + hideDgv(usrcntl) + e.Handled = True + Exit Sub + End If + + + DR = Nothing + _value = "" + + If Me.Text.Trim = "" Then + setMeValue(DR) + hideDgv(usrcntl) + Exit Sub + End If + + If usrcntl Is Nothing Then + Exit Sub + End If + + If usrcntl.Visible = False Then + usrcntl.Width = SrchWidth + usrcntl.Height = SrchHeight + + Dim locationOnForm As Point = Nothing + If dgvpos = "LEFT" Or dgvpos = "" Then + locationOnForm = Me.FindForm().PointToClient(Me.Parent.PointToScreen(Me.Location)) + ElseIf dgvpos = "RIGHT" Then + locationOnForm = Me.FindForm().PointToClient(Me.Parent.PointToScreen(Me.Location)) + locationOnForm.X = locationOnForm.X - (usrcntl.Width - Me.Width) + ' MsgBox(locationOnForm.X & "/" & locationOnForm.Y) + End If + + + If locationOnForm.Y + usrcntl.Height + Me.Height > form.ClientRectangle.Height Then + usrcntl.Height = form.ClientRectangle.Height - locationOnForm.Y - Me.Height + End If + + usrcntl.Location = locationOnForm + usrcntl.Top += Me.Height + End If + + With usrcntl.dgvKundenAktiv + + If usrcntl.Visible = False Then + .AllowUserToAddRows = False + .AllowUserToDeleteRows = False + .AllowUserToOrderColumns = False + .AllowUserToResizeColumns = False + .AllowUserToResizeRows = False + .ReadOnly = True + .MultiSelect = False + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + .BackgroundColor = Color.White + .ForeColor = Color.Black + .GridColor = Color.White + + End If + + 'THREADING AKTIV + Me.ThreadInitAKTIV() + ' Dim ThreadInitAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitAKTIV) + ' ThreadInitAKTIV.IsBackground = True + ' ThreadInitAKTIV.Start() + + End With + + + usrcntl.dgvKundenInAktiv.Visible = False + usrcntl.Panel1.Visible = False + + + If _hideIfListEmpty Then + + + If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then + setObjectVisible(usrcntl, False) + Else + setObjectVisible(usrcntl, True) + End If + If False Then + + 'THREADING ThreadWaitAndSee + Dim ThreadWaitAndSee = New System.Threading.Thread(Sub() + Threading.Thread.Sleep(200) + If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then + setObjectVisible(usrcntl, False) + Else + setObjectVisible(usrcntl, True) + End If + End Sub) + ThreadWaitAndSee.IsBackground = True + ThreadWaitAndSee.Start() + End If + Else + usrcntl.Visible = True + usrcntl.Show() + usrcntl.BringToFront() + End If + + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 02: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub hideDgv(o) '(sender As Object, e As EventArgs) + If o IsNot Nothing Then + Me.searchActive = False + o.visible = False + Me.searchActive = True + End If + End Sub + + + Sub ThreadInitAKTIV() + Try + If usrcntl Is Nothing Then Exit Sub + If usrcntl.dgvKundenAktiv Is Nothing Then Exit Sub + With usrcntl.dgvKundenAktiv + + Dim srch As String = Me.Text.Replace("'", "").ToString.Trim + If _allowSpaceAsSplitter Then srch = srch.Replace(" ", ",") + + Dim srch2 As String = "" + If srch.Contains(",") Then + Dim spitter() = srch.Split(",") + srch = spitter(0).ToString.Trim + srch2 = spitter(1).ToString.Trim + End If + Dim topAnz = 16 + Dim AvisoEmail = "" + Dim SQLstr As String = "SELECT TOP " & topAnz & " " & SQL_SELECT & " WHERE 1=1 " + SQLstr &= If(SQL_WHERE <> "", " AND " & SQL_WHERE, "") + + If srch <> "" And SQL_WhereParamList.Count > 0 Then 'erster Suchparameter + SQLstr &= " AND ( 1<>1 " + For Each s In SQL_WhereParamList + SQLstr &= " OR " & s & " LIKE '" & srch & "%' " + Next + SQLstr &= " ) " + End If + + If srch2 <> "" And SQL_WhereParamList.Count > 0 Then 'Wenn zweiter Suchparameter + SQLstr &= " AND ( 1<>1 " + For Each s In SQL_WhereParamList + SQLstr &= " OR " & s & " LIKE '" & srch2 & "%' " + Next + SQLstr &= " ) " + End If + + If SQL_ORDER_BY <> "" Then SQLstr &= " ORDER BY " & SQL_ORDER_BY + 'MsgBox(SQLstr) + ' MsgBox(SQL.loadDgvBySql(SQLstr, conn_art).Rows.Count) + setDS(usrcntl.dgvKundenAktiv, SQL.loadDgvBySql(SQLstr, conn_art)) + + End With + + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Sub SET_VALUE(KEYPARAM_Value, Optional showerror = True) + Try + + If Not active Then Exit Sub + If KEYPARAM_Value Is Nothing Then KEYPARAM_Value = "" + Dim SQLstr As String = "SELECT TOP 1 " & SQL_SELECT & " WHERE 1=1 " + SQLstr &= " AND " & KEYPARAM & " = '" & KEYPARAM_Value & "' " + SQLstr &= If(SQL_WHERE <> "", " AND " & SQL_WHERE, "") + If SQL_ORDER_BY <> "" Then SQLstr &= " ORDER BY " & SQL_ORDER_BY + ' MsgBox(SQLstr) + Dim dttmp As DataTable = SQL.loadDgvBySql(SQLstr, conn_art, , showerror) + If dttmp IsNot Nothing AndAlso dttmp.Rows.Count > 0 Then + setMeValue(dttmp.Rows(0)) + Else + If _allowFreitext Then + Me.Text = KEYPARAM_Value + Me._value = KEYPARAM_Value + Else + Me.Text = "" + Me._value = "" + End If + hideDgv(usrcntl) + End If + + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + + Public Function GET_VALUE_OnlyReturn(KEYPARAM_Value, Optional showerror = True) + Try + If SQL_SELECT = "" Then Return Nothing 'Ohne dem gehts nicht + If KEYPARAM = "" Then Return Nothing 'Ohne dem gehts nicht + If KEYPARAM_Value Is Nothing Then KEYPARAM_Value = "" + + Dim SQLstr As String = "SELECT TOP 1 " & SQL_SELECT & " WHERE 1=1 " + SQLstr &= " AND " & KEYPARAM & " = '" & KEYPARAM_Value & "' " + SQLstr &= If(SQL_WHERE <> "", " AND " & SQL_WHERE, "") + If SQL_ORDER_BY <> "" Then SQLstr &= " ORDER BY " & SQL_ORDER_BY + + Dim dttmp As DataTable = SQL.loadDgvBySql(SQLstr, conn_art, , showerror) + If dttmp IsNot Nothing AndAlso dttmp.Rows.Count > 0 Then + + Return dttmp.Rows(0)(If(DISPLAY_PARAM = "", KEYPARAM, DISPLAY_PARAM)).ToString + End If + Catch ex As Exception + End Try + Return Nothing + End Function + + + Public Function GET_VALUE_OnlyReturnBySQL(SQL_str, Optional showerror = True) + Try + + Dim dttmp As DataTable = SQL.loadDgvBySql(SQL_str, conn_art, , showerror) + If dttmp IsNot Nothing AndAlso dttmp.Rows.Count > 0 Then + + Return dttmp.Rows(0)(If(DISPLAY_PARAM = "", KEYPARAM, DISPLAY_PARAM)).ToString + End If + Catch ex As Exception + End Try + Return Nothing + End Function + + 'threadsicherer Aufruf + ' Delegate Sub setLabelCallback(l As DataGridView, t As DataTable) + Private Sub setDS(l As DataGridView, t As DataTable) + Try + If l Is Nothing Then Exit Sub + If t Is Nothing Then Exit Sub + '' If Me.InvokeRequired Then + 'Dim d As New setLabelCallback(AddressOf setDS) + ' Me.Invoke(d, New Object() {l, t}) + ' Else + With l + .Columns.Clear() + .DataSource = t + + If .ColumnCount = 0 Then Exit Sub + + .RowHeadersVisible = False + .Columns(KEYPARAM).Visible = key_visible + .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells + .ClearSelection() + + If INVISIBLE_COLUMNS IsNot Nothing Then + For Each i In INVISIBLE_COLUMNS + .Columns(i).Visible = False + Next + End If + + End With + ' End If + + Catch ex As Exception + ' Try + ' MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.name & ") aufgetreten 05: " & vbNewLine & vbNewLine & ex.Message) + 'Catch ex2 As Exception + ' MsgBox("ERR", vbCritical) + 'End Try + End Try + + End Sub + + 'threadsicherer Aufruf + 'Delegate Sub setObjectVisibleCallback(l As Object, v As Boolean) + Private Sub setObjectVisible(l As Object, v As Boolean) + Try + If l Is Nothing Then Exit Sub + ' If Me.InvokeRequired Then + ' Dim d As New setObjectVisibleCallback(AddressOf setObjectVisible) + 'Me.Invoke(d, New Object() {l, v}) + ' Else + l.visible = v + If v = True Then + l.Show() + l.BringToFront() + End If + ' End If + Catch ex As Exception + ' MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.name & ") aufgetreten 06: " & vbNewLine & vbNewLine & ex.Message) + End Try + End Sub + + + Public Sub nextLKW(dgv As DataGridView) '(sender As Object, e As EventArgs) + Try + If dgv.SelectedRows.Count > 0 Then + Dim i As Integer = dgv.SelectedRows(0).Index + If (i + 1 < dgv.RowCount) Then + 'dgv.CurrentCell = dgv.Item(2, i + 1) + dgv.ClearSelection() + dgv.Rows(i + 1).Selected = True + End If + Else + If dgv.Rows.Count > 0 Then ' dgv.CurrentCell = dgv.Item(2, 0) + dgv.ClearSelection() + dgv.Rows(0).Selected = True + End If + End If + + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03,1: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Sub prevLKW(dgv As DataGridView) '(sender As Object, e As EventArgs) + Try + If dgv.SelectedRows.Count > 0 Then + Dim i As Integer = dgv.SelectedRows(0).Index + If (i > 0) Then + 'dgv.CurrentCell = dgv.Item(2, i - 1) + dgv.ClearSelection() + dgv.Rows(i - 1).Selected = True + End If + Else + If dgv.Rows.Count > 0 Then 'dgv.CurrentCell = dgv.Item(2, dgv.Rows.Count - 1) + dgv.ClearSelection() + dgv.Rows(dgv.Rows.Count - 1).Selected = True + End If + End If + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03,2: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + End Try + End Sub + + Private Sub usrcntl_CLOSE(sender As Object, e As EventArgs) Handles usrcntl.CLOSE + hideDgv(usrcntl) + End Sub + + + Private Sub dgvFindKD_Click(sender As Object, e As EventArgs) Handles usrcntl.DGV_Click + Try + If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing Then + With usrcntl.dgvKundenAktiv + If .SelectedRows.Count > 0 Then + ' If IsNumeric(.SelectedRows(0).Cells("KdNr").Value) Then + setMeValue(ToDataRow(.SelectedRows(0))) + hideDgv(usrcntl) + 'End If + End If + End With + End If + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 07: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Shared Function ToDataRow(ByVal Value As DataGridViewRow) As DataRow + Try + Dim dv As System.Data.DataRowView = CType(Value.DataBoundItem, DataRowView) + Return dv.Row + Catch ex As Exception + Return Nothing + End Try + End Function + + Private Sub TextBox1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown + Try + If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing Then + If e.KeyData = Keys.Tab And usrcntl.Visible Then ' wenn usrcntl eingeblendet, soll der TABULATOR als InputKey gesehen werden. + If usrcntl.dgvKundenAktiv.SelectedRows.Count > 0 Then e.IsInputKey = True Else usrcntl.Visible = False + End If + End If + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 09: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + End Try + End Sub + Private Sub dgvFindKD_Click(sender As Object, e As KeyEventArgs) Handles Me.KeyDown, usrcntl.DGV_KeyDown + Try + If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing Then + With usrcntl.dgvKundenAktiv + If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Tab Then + If e.KeyCode = Keys.Return And .RowCount > 0 And .SelectedRows.Count = 0 Then .Rows(0).Selected = True + + If .SelectedRows.Count > 0 Then + ' If IsNumeric(.SelectedRows(0).Cells("KdNr").Value) Then + setMeValue(ToDataRow(.SelectedRows(0))) + hideDgv(usrcntl) + 'End If + Else + usrcntl.Visible = False + End If + e.Handled = True + e.SuppressKeyPress = True + + End If + End With + End If + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 10: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Private Sub setMeValue(row As DataRow) + Try + If Not active Then Exit Sub + Me.DR = row + Me._value = "" + If Me.DR Is Nothing Then + Me.Text = "" + Else + + Me.Text = row(If(DISPLAY_PARAM = "", KEYPARAM, DISPLAY_PARAM)).ToString + Me._value = row(KEYPARAM).ToString + hideDgv(usrcntl) + End If + RaiseEvent VALUE_CHANGED() + If Me.Text.Length > Me.MaxLength Then Me.Text = Me.Text.Substring(0, Me.MaxLength) + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 12: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + + Private Sub KdSearchBox_PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Handles Me.PropertyChanged + ' setMeValue() ??????????????? + End Sub + + Sub initSearchBox(control As Control, SQL_SELECT As String, SQL_WhereParamList() As String, SQL_WHERE As String, SQL_ORDER_BY As String, KEYPARAM As String, Optional DISPLAY_PARAM As String = "", Optional conn_art As String = "FMZOLL", Optional key_visible As Boolean = True, Optional SrchWidth As Integer = 300, Optional Srchheight As Integer = 300, Optional INVISIBLE_COLUMNS() As String = Nothing) + Try + If control Is Nothing Then Exit Sub + Me.form = control + Me.usrcntl = New usrcntlKdSearch + control.Controls.Add(usrcntl) + + Me.SQL_WhereParamList = SQL_WhereParamList + Me.SQL_SELECT = SQL_SELECT + Me.SQL_WHERE = SQL_WHERE + Me.KEYPARAM = KEYPARAM + Me.DISPLAY_PARAM = DISPLAY_PARAM + Me.SQL_ORDER_BY = SQL_ORDER_BY + Me.conn_art = conn_art + Me.key_visible = key_visible + + Me.SrchHeight = Srchheight + Me.SrchWidth = SrchWidth + Me.INVISIBLE_COLUMNS = INVISIBLE_COLUMNS + + 'Me.usrcntl = usrcntl + hideDgv(Me.usrcntl) + active = True + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 13: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Private Sub KdSearchBox_LostFocus(sender As Object, e As EventArgs) Handles Me.LostFocus + 'THREADING ThreadWaitAndSee + Dim ThreadWaitAndSee = New System.Threading.Thread(Sub() + Try + Threading.Thread.Sleep(300) + ' MsgBox(Me.form.ActiveControl.Name) + If Me.form Is Nothing Then Exit Sub + If Me.form.ActiveControl Is Nothing Then Exit Sub + If Me.form.ActiveControl IsNot Me Then + setObjectVisible(usrcntl, False) + End If + Catch ex As Exception + + End Try + End Sub) + ThreadWaitAndSee.IsBackground = True + ThreadWaitAndSee.Start() + + Try + If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing AndAlso usrcntl.dgvKundenInAktiv IsNot Nothing Then + If usrcntl.dgvKundenAktiv.SelectedCells.Count = 0 And usrcntl.dgvKundenInAktiv.SelectedCells.Count = 0 Then + Me.SelectionLength = 0 + End If + End If + Catch ex As Exception + MsgBox("KdSearchBox_LostFocus: " & ex.Message) + End Try + End Sub + + + + Private Sub KdSearchBox_Layout(sender As Object, e As LayoutEventArgs) Handles Me.Layout + If _autoSizeGross Then + Me.CharacterCasing = Windows.Forms.CharacterCasing.Upper + ' If Me.Text <> "" Then Me.Text = Me.Text.ToUpper + End If + End Sub + + Private Sub KdSearchBox_TextChanged(sender As Object, e As EventArgs) Handles Me.TextChanged + If Me.Text.Length > Me.MaxLength Then Me.Text = Me.Text.Substring(0, Me.MaxLength) + End Sub + + + + Private Sub MySearchBox_Leave(sender As Object, e As EventArgs) Handles Me.Leave + If Me._value = "" And Me.Text <> "" Then + SET_VALUE(Me.Text, False) 'Versucht, ob der Wert genau passt + End If + ' hideDgv(usrcntl) 'Geht ned, sonst kann man auch keinen Mausklick auf die DGV machen!! + End Sub +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb new file mode 100644 index 0000000..8d93e92 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb @@ -0,0 +1,671 @@ +Imports System.ComponentModel +Imports System.Drawing +Imports System.Globalization +Imports System.Windows.Forms + +Public Class MyTextBox + Inherits System.Windows.Forms.TextBox + Implements INotifyPropertyChanged + Property _numbersOnly As Boolean = False + Property _numbersOnlyKommastellen As String = "" + Property _ShortDateOnly As Boolean = False ' nicht mehr public , da fehler + Property _ShortDateNew As Boolean = False + Property _DateTimeOnly As Boolean = False + Property _TimeOnly As Boolean = False + Property _Waehrung As Boolean = False + Property _WaehrungZeichen As Boolean = True + Property _Prozent As Boolean = False + ' Property MaxLines As String = "" + Property MaxLines_Warning As String = "" + Property MaxLines_Warning_Label As Label = Nothing + Property MaxLineLength As Integer = -1 + + Public Event ValueChanged() + + Public Sub New() + + If _Waehrung Then MyBase.TextAlign = HorizontalAlignment.Right + ' Me.Focus() + End Sub + + Private Sub MyTextBox_BindingContextChanged(sender As Object, e As EventArgs) Handles Me.BindingContextChanged + ' If _ShortDateOnly Then + 'If IsDate(sender.text) Then sender.text = CDate(sender.text).ToShortDateString + ' End If + + ' If _Waehrung Then + 'If IsNumeric(sender.text) Then sender.text = String.Format("{0:N2}", CDbl(sender.text)) + 'End If + ' If _ShortDateNew Then + 'If IsDate(sender._value) Then + 'sender._value = MyBase.Text + ' End If + ' End If + + End Sub + + + Sub fillWithSQL(sql As String, Optional conn As String = "SDL") + ' MsgBox((New SQL).getValueTxtBySql(sql, conn)) + Me._value = (New SQL).getValueTxtBySql(sql, conn) + ' MsgBox(Me._value) + 'Me.Text = Me._value + End Sub + + Private Sub MyTextBox_KeyDown(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress + + Exit Sub + + + + If False Then + 'geht end + If MaxLineLength > 0 And e.KeyChar <> Chr(13) Then + Dim str() As String = Me.Text.Split(vbNewLine) + For Each s In Me.Lines + If s.Length > MaxLineLength Then + s = s.Substring(0, MaxLineLength) + End If + Next + End If + End If + + If _numbersOnly Then + + If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _ + Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then + e.Handled = True + End If + If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then + e.Handled = False + End If + End If + + End Sub + + Private Sub MyTextBox_Layout(sender As Object, e As LayoutEventArgs) Handles Me.Layout + MyBase.CausesValidation = True + If _ShortDateOnly Then MyBase.MaxLength = 10 + If _ShortDateNew Then MyBase.MaxLength = 10 ': addPicToGueltigBis() + If _DateTimeOnly Then MyBase.MaxLength = 16 ': addPicToGueltigBis() + + If _TimeOnly Then MyBase.MaxLength = 8 + + + + End Sub + Sub initDatePicture() + addNowBtnToDate() + 'addPicToGueltigBis() + End Sub + Sub initDatePicture2() + addNowBtnToDate2() + 'addPicToGueltigBis() + End Sub + + Sub initPINSHowPic() + addNowBtnToPIN() + 'addPicToGueltigBis() + End Sub + Public Sub addNowBtnToDate() + Dim tb = Me + Dim pb As New MyLinkPicBoxVALUE + tb.Parent.Controls.Add(pb) + pb.Tag = "Heute" + pb.Left = tb.Left + tb.Width + 5 : pb.Top = tb.Top + pb.Height = 18 : pb.Width = 20 + pb.Anchor = tb.Anchor + pb.SizeMode = PictureBoxSizeMode.Zoom + pb.Cursor = Cursors.Hand + pb.Image = My.Resources.today + pb.linkedTextBox = tb + + ' ToolTip Text zuordnen + Dim tooltip As New ToolTip ' + tooltip.SetToolTip(pb, "Heute") + + AddHandler pb.Click, AddressOf linkclicked + End Sub + Public Sub addNowBtnToDate2() + Dim tb = Me + Dim pb As New MyLinkPicBoxVALUE + tb.Parent.Controls.Add(pb) + pb.Tag = "Heute" + pb.Left = tb.Left + tb.Width - 11 : pb.Top = tb.Top + tb.Height - 11 + pb.Height = 10 : pb.Width = 10 + pb.Anchor = tb.Anchor + pb.SizeMode = PictureBoxSizeMode.Zoom + 'pb.Cursor = Cursors.Hand + ' pb.Image = My.Resources.ok + 'pb.BackColor = Color.Green + pb.linkedTextBox = tb + pb.BringToFront() + ' ToolTip Text zuordnen + 'Dim tooltip As New ToolTip ' + 'tooltip.SetToolTip(pb, "Gül") + + pb.Image = Nothing + If tb.Text.Length = 10 AndAlso IsDate(tb.Text) Then + If CDate(tb.Text) >= Now.ToShortDateString Then + pb.Image = My.Resources.ok + Else + pb.Image = My.Resources.del + End If + + End If + + AddHandler tb.TextChanged, Sub(send As Object, ev As EventArgs) + pb.Image = Nothing + If send.text.length = 10 AndAlso IsDate(send.text) Then + If CDate(send.text) >= Now.ToShortDateString Then + pb.Image = My.Resources.ok + Else + pb.Image = My.Resources.del + End If + + End If + End Sub + + End Sub + + Public Sub addNowBtnToPIN() + Dim tb = Me + Dim pb As New MyLinkPicBoxVALUE + tb.Parent.Controls.Add(pb) + pb.Tag = "Feld bearbeiten" + pb.Left = tb.Left + tb.Width + 5 : pb.Top = tb.Top + pb.Height = 15 : pb.Width = 15 + pb.Anchor = tb.Anchor + pb.SizeMode = PictureBoxSizeMode.Zoom + pb.Cursor = Cursors.Hand + pb.Image = My.Resources.stift + pb.linkedTextBox = tb + + ' ToolTip Text zuordnen + Dim tooltip As New ToolTip ' + tooltip.SetToolTip(pb, "Heute") + + AddHandler pb.Click, AddressOf linkclickedPIN + + 'AddHandler tb.EnabledChanged, Sub(send, ev) + ' tb.ForeColor = Color.Black + ' End Sub + + + + End Sub + + + Sub linkclicked(sender As Object, e As EventArgs) + 'Dim DateTimePicker1 As New DateTimePicker + ' Me.Parent.Controls.Add(DateTimePicker1) + Try + Dim tb As TextBox = sender.linkedTextBox + tb.Text = Now.ToShortDateString + ' DateTimePicker1.Focus() + ' SendKeys.Send("{F4}") + Catch ex As Exception + End Try + End Sub + + Sub linkclickedPIN(sender As Object, e As EventArgs) + 'Dim DateTimePicker1 As New DateTimePicker + ' Me.Parent.Controls.Add(DateTimePicker1) + Try + Dim tb As TextBox = sender.linkedTextBox + ' tb.Enabled = True + tb.ReadOnly = False + tb.BackColor = Color.White + + Catch ex As Exception + End Try + End Sub + Public Sub addPicToGueltigBis() + Dim tb = Me + Dim pb As New MyLinkPicBoxVALUE + tb.Parent.Controls.Add(pb) + pb.Tag = "Gültig Bis" + pb.Left = tb.Left + tb.Width + 5 : pb.Top = tb.Top + pb.Height = 18 : pb.Width = 20 + pb.SizeMode = PictureBoxSizeMode.Zoom + pb.Name = "picGueltigBisUhr" + ' pb = checkGueltigBis(pb, tb) + pb.linkedTextBox = tb + pb.linkedPictureBox = pb + pb.Image = My.Resources.uhr_notime + + Dim tgb As New Label + tb.Parent.Controls.Add(tgb) + tgb.Name = "txtGueltigBisUhr" + tgb.Left = tb.Left + tb.Width + pb.Width + 5 : tgb.Top = tb.Top + ' tgb.Visible = False + ' tgb.Text = "abgelaufen" + tgb.ForeColor = Color.Red + + AddHandler tb.TextChanged, AddressOf checkGueltigBis + + checkGueltigBis(tb, New EventArgs) + End Sub + Sub checkGueltigBis(sender As Object, e As EventArgs) + ' MsgBox("änderung") + Try + Dim tb As TextBox = sender + Dim pb As MyLinkPicBoxVALUE = CType(tb.FindForm.Controls.Find("picGueltigBisUhr", True)(0), MyLinkPicBoxVALUE) + Dim tgb As Label = CType(tb.FindForm.Controls.Find("txtGueltigBisUhr", True)(0), Label) + ' MsgBox(tgb.Name) + + + If tb.Text.Length = 10 And IsDate(tb.Text) Then + If CDate(tb.Text) < Now Then + pb.Image = My.Resources.uhr_red + tgb.Text = "abgelaufen" + tgb.Visible = True + tgb.ForeColor = Color.Red + ElseIf CDate(tb.Text) >= Now Then + pb.Image = My.Resources.uhr_green + tgb.Text = "gültig" + 'tgb.Visible = False + tgb.ForeColor = Color.Green + End If + Else + pb.Image = My.Resources.uhr_notime + ' tgb.Visible = False + tgb.Text = "" + End If + Catch ex As Exception + End Try + Return + End Sub + Private Sub MyTextBox_Leave(sender As Object, e As EventArgs) Handles Me.Leave + ' If _DateOnly AndAlso Not isShortDate(sender.text) Then sender.focus() + Dim pruefungHandled = False + + If _numbersOnly Then + 'If sender.text.ToString.StartsWith("21") Then + ' For Each s In sender.text.ToString + ' MsgBox(s & " - " & Convert.ToByte(s)) + ' Next + + ' ' MsgBox(CInt(sender.text.ToString.Chars(3))) + 'End If + + + sender.text = sender.text.ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen + pruefungHandled = True + Try + If IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then + sender.text = CDbl(sender.text).ToString("N" & _numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture) + Me._value = CDbl(sender.text) + ' Else + ' sender.text = CDbl(sender.text) + ElseIf IsNumeric(sender.text) Then + Me._value = CDbl(sender.text) + Else + Me._value = "" + End If + Catch : sender.ForeColor = System.Drawing.Color.Red + End Try + End If + + If _Waehrung Then + pruefungHandled = True + Try + ' sender.text = String.Format("{0:N2}", CDbl(sender.text)) + If sender.text = "" Then + Me._value = Nothing + End If + sender.text = CDbl(sender.text).ToString(If(_WaehrungZeichen, "C2", "N2")) ' String.Format("C2", CDbl(sender.text)) + sender.ForeColor = System.Drawing.Color.Black + Me._value = CDbl(sender.text) 'sender.text) + Catch ex As Exception + sender.ForeColor = System.Drawing.Color.Red + End Try + + End If + If _ShortDateOnly Then + pruefungHandled = True + Try 'wenn datetime wird es in shortdate umgewandelt + If Me.Text <> "" Then sender.text = Convert.ToDateTime(sender.text).ToShortDateString + Catch : Me.Text = "" : Me._value = Nothing 'Me.Focus() + End Try + If Not isShortDate(sender.text) Then sender.ForeColor = System.Drawing.Color.Red + End If + + If _ShortDateNew Then + pruefungHandled = True + Me.ForeColor = Color.Black + + '------ falls Jahr zweistellig: + Me.Text = Me.Text.Replace(",", ".") + If Me.Text.Length = 8 Then + Dim split = Me.Text.Split(".") + If split.Count = 3 Then + Me.Text = split(0) & "." & split(1) & ".20" & split(2) + End If + End If + + If (Me.Text.Length >= 6 And Me.Text.Length <= 10) AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1900") Then + 'MsgBox(Me.Text) + ''------ falls Jahr zweistellig: + 'Dim split = Me.Text.Replace(",", ".").Split + 'If split.Count = 3 Then + ' Me.Text = split(0) & "." & split(1) & ".20" & split(2) + 'End If + 'MsgBox(Me.Text) + '------ + Me._value = CDate(Me.Text).ToShortDateString 'Nur wenns Passt + Me.Text = CDate(Me.Text).ToShortDateString + ElseIf Me.Text = "" Then + Me._value = "" + Else + Me.ForeColor = Color.Red + End If + + OnPropertyChanged("_value") + End If + If _DateTimeOnly Then + pruefungHandled = True + Me.ForeColor = Color.Black + If Me.Text.Length > 16 Then Me.Text = Me.Text.Substring(0, 16) + If (Me.Text.Length >= 6 And Me.Text.Length <= 16) AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1900") Then + '------ falls Jahr zweistellig: + Dim split = Me.Text.Replace(",", ".").Split + If split.Count = 3 Then + Me.Text = split(0) & "." & split(1) & ".20" & split(2) + End If + '------ + Me._value = CDate(Me.Text).ToString("dd.MM.yyyy HH:mm") 'Nur wenns Passt + Me.Text = CDate(Me.Text).ToString("dd.MM.yyyy HH:mm") + ElseIf Me.Text = "" Then + Me._value = "" + Else + Me.ForeColor = Color.Red + End If + + OnPropertyChanged("_value") + End If + + + If _Prozent Then + pruefungHandled = True + Try + If sender.text = "" Then + Me._value = "" : Propvalue = "" + Else + Me._value = CDbl(sender.text.ToString.Replace("%", "")) / 100 + End If + Catch ex As Exception + sender.ForeColor = System.Drawing.Color.Red + Me._value = Propvalue + End Try + End If + + If MaxLineLength > 0 Then + Dim str() As String = Me.Lines + For i = 0 To Me.Lines.Count - 1 + If str(i).Length > MaxLineLength Then + str(i) = str(i).Substring(0, MaxLineLength) + End If + Next + Me.Lines = str + End If + + + If Not pruefungHandled Then + Me._value = Me.Text + + End If + End Sub + + + Private Sub MyTextBox_Textchanged(sender As Object, e As EventArgs) Handles Me.TextChanged + sender.ForeColor = System.Drawing.Color.Black + Dim pruefungHandled = False + + If _numbersOnly Then + pruefungHandled = True + If Not IsNumeric(sender.text) Then sender.ForeColor = System.Drawing.Color.Red + End If + + If _TimeOnly Then + pruefungHandled = True + + Dim regTime1 As New System.Text.RegularExpressions.Regex("^([0-1][0-9]|[2][0-3]):([0-5][0-9])$") + Dim regTime2 As New System.Text.RegularExpressions.Regex("^([0-1][0-9]|[2][0-3]):([0-5][0-9]):([0-5][0-9])$") + If Not regTime1.IsMatch(sender.Text) And Not regTime2.IsMatch(sender.Text) Then + sender.ForeColor = System.Drawing.Color.Red + End If + End If + + If _Waehrung Then + pruefungHandled = True + End If + If _Waehrung And False Then 'sonst bei jedem Zeichen kontrolle, zeiger hüpft + pruefungHandled = True + Try + sender.text = CDbl(sender.text).ToString(If(_WaehrungZeichen, "C2", "N2")) ' String.Format("{0:N2}", CDbl(sender.text)) + Me._value = CDbl(sender.text) + Catch ex As Exception + sender.ForeColor = System.Drawing.Color.Red + End Try + End If + + If _ShortDateNew Then + pruefungHandled = True + Me.ForeColor = Color.Black + If Me.Text.Length = 10 AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1900") Then + Me._value = CDate(Me.Text).ToShortDateString 'Nur wenns Passt + Me.Text = CDate(Me.Text).ToShortDateString + ElseIf Me.Text = "" Then + Me._value = "" + Else + Me.ForeColor = Color.Red + End If + + OnPropertyChanged("_value") + End If + + If _Prozent Then + 'pruefungHandled = True + 'Dim txt = sender.text + 'If Not sender.text.ToString.Contains("%") Then txt = sender.text & " %" + Me._value = sender.text + End If + + If _DateTimeOnly Then + pruefungHandled = True + Me.ForeColor = Color.Black + If Me.Text.Length = 16 AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1900 00:00") Then + Me._value = CDate(Me.Text).ToString("dd.MM.yyyy HH:mm") 'Nur wenns Passt + Me.Text = CDate(Me.Text).ToString("dd.MM.yyyy HH:mm") + ElseIf Me.Text = "" Then + Me._value = "" + Else + Me.ForeColor = Color.Red + End If + + OnPropertyChanged("_value") + End If + + + ' If Me.Multiline And IsNumeric(MaxLines) Then + 'If Me.Lines.Length > MaxLines Then + 'Dim s() As String = Me.Text.Split(vbNewLine) + ' If s.Count > 3 Then + 'Me.Text = s(0) & vbNewLine & s(1) & vbNewLine & s(2) + ' End If + ' End If + ' End If + If Me.Multiline And IsNumeric(MaxLines_Warning) Then + ' If Me.Lines.Length > MaxLines Then + If MaxLines_Warning_Label IsNot Nothing Then + MaxLines_Warning_Label.Visible = CBool(Me.Lines.Length > MaxLines_Warning) + End If + 'End If + End If + If Not pruefungHandled Then + Me._value = Me.Text + End If + End Sub + Function isShortDate(d) As Boolean + Return CBool(IsDate(d) And d.length = 10) + End Function + + + Public Propvalue As String + Public Property _value As String + Get + Return Propvalue + End Get + Set(v As String) + ' MsgBox(v) + If _Prozent Then + If IsNumeric(v) Then + Propvalue = v + Me.Text = String.Format("{0:P2}", CDbl(v)) + ' OnPropertyChanged("_value") + ' MsgBox(String.Format("{0:P2}", CDbl(v))) + End If + ElseIf _ShortDateOnly Then + If v Is Nothing Then + Propvalue = "" + Me.Text = "" + Else + Propvalue = v + Me.Text = v + End If + ElseIf _Waehrung Then + If v IsNot Nothing AndAlso IsNumeric(v) Then + Propvalue = CDbl(v) + Me.Text = CDbl(v).ToString(If(_WaehrungZeichen, "C2", "N2")) + Else + Propvalue = "" + Me.Text = "" + End If + ElseIf _ShortDateNew Then + If v Is Nothing Then + Propvalue = "" + Me.Text = "" + Else + Propvalue = v + Me.Text = v + End If + ElseIf _DateTimeOnly Then + If v Is Nothing Then + Propvalue = "" + Me.Text = "" + Else + If v.Length > 16 Then v = v.Substring(0, 16) + Propvalue = v + Me.Text = v + End If + ElseIf _numbersOnly Then + + If IsNumeric(Me._numbersOnlyKommastellen) And IsNumeric(v) Then + Propvalue = CDbl(v) + Me.Text = CDbl(v).ToString("N" & Me._numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture) + ElseIf IsNumeric(v) Then + Propvalue = CDbl(v) + Me.Text = v + Else + Propvalue = "" + Me.Text = "" + End If + Else + If v IsNot Nothing AndAlso v.ToString.Length > Me.MaxLength Then + Me.Text = v.Substring(0, Me.MaxLength) + Propvalue = v.Substring(0, Me.MaxLength) + Else + Me.Text = v + Propvalue = v + End If + End If + RaiseEvent ValueChanged() + End Set + End Property + + + Public Event PropertyChanged As PropertyChangedEventHandler _ + Implements INotifyPropertyChanged.PropertyChanged + + Protected Sub OnPropertyChanged(ByVal name As String) + ' MsgBox("AHAASO") + RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(name)) + End Sub + + Private Sub MyTextBox_Validating(sender As Object, e As CancelEventArgs) Handles Me.Validating + If sender.text = "" Then e.Cancel = False : Exit Sub 'wenn der Test leer ist, stimmt die Eingabe + + Dim errMessage As String = "Es ist ein Validierungsfehler aufgetreten:" & vbNewLine + Dim errDescription As String = "Überprüfen Sie die Eingabe!" + + If _numbersOnly Then + Try + 'String.Format("{0:N2}", CDbl(sender.text)) + If IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then + sender.text = CDbl(sender.text).ToString("N" & _numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture) + Else + sender.text = CDbl(sender.text) + End If + e.Cancel = False + Catch ex As Exception + errDescription = "Die Eingabe muss eine Zahl sein! (z.B. 123,45)" + e.Cancel = True + End Try + End If + + + If _Waehrung Then + Try + 'String.Format("{0:N2}", CDbl(sender.text)) + CDbl(sender.text).ToString(If(_WaehrungZeichen, "C2", "N2")) + e.Cancel = False + Catch ex As Exception + errDescription = "Die Eingabe muss eine Zahl sein! (z.B. 123,45)" + e.Cancel = True + End Try + End If + + If _Prozent Then + e.Cancel = False + End If + + If _ShortDateOnly Then + If isShortDate(sender.text) Then + e.Cancel = False + Else + e.Cancel = True + End If + End If + + If _TimeOnly Then + Me.Text = Me.Text.Replace(",", ":") + Me.Text = Me.Text.Replace("-", ":") + Me.Text = Me.Text.Replace(".", ":") + Me.Text = Me.Text.Replace("/", ":") + Dim regTime1 As New System.Text.RegularExpressions.Regex("^([0-1][0-9]|[2][0-3]):([0-5][0-9])$") + Dim regTime2 As New System.Text.RegularExpressions.Regex("^([0-1][0-9]|[2][0-3]):([0-5][0-9]):([0-5][0-9])$") + If regTime1.IsMatch(sender.Text) Then + Me.Text += ":00" + End If + If regTime2.IsMatch(sender.Text) Then + e.Cancel = False + Else + e.Cancel = True + End If + End If + If e.Cancel Then + 'Try + 'DirectCast(Me.FindForm, frmKundenblatt).setInfo("err", errMessage & errDescription, 3) + ' Catch ex As Exception + MsgBox(errMessage & errDescription) + ' End Try + End If + End Sub + + Private Sub MyTextBox_Validated(sender As Object, e As EventArgs) Handles Me.Validated + + 'Wenns stimmt + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/NumericUpDownColumnRight.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/NumericUpDownColumnRight.vb new file mode 100644 index 0000000..d28a98a --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/NumericUpDownColumnRight.vb @@ -0,0 +1,187 @@ +Imports System.Windows.Forms + +Public Class NumericUpDownColumnRight + Inherits DataGridViewColumn + + Public Sub New() + MyBase.New(New NumericUpDownRightCell()) + End Sub + + Public Overrides Property CellTemplate() As DataGridViewCell + Get + Return MyBase.CellTemplate + End Get + Set(ByVal value As DataGridViewCell) + + ' Ensure that the cell used for the template is a NumericUpDownCell. + If Not (value Is Nothing) AndAlso Not value.GetType().IsAssignableFrom(GetType(NumericUpDownRightCell)) Then + Throw New InvalidCastException("Must be a NumericUpDown") + End If + MyBase.CellTemplate = value + + End Set + End Property +End Class +Public Class NumericUpDownRightCell + Inherits DataGridViewTextBoxCell + Public Sub New() + 'Me.Style.Format = "#.##" + End Sub + + Public Overrides Sub InitializeEditingControl(ByVal rowIndex As Integer, ByVal initialFormattedValue As Object, ByVal dataGridViewCellStyle As DataGridViewCellStyle) + + ' Set the value of the editing control to the current cell value. + MyBase.InitializeEditingControl(rowIndex, initialFormattedValue, dataGridViewCellStyle) + + Dim ctl As NumericUpDownRightEditingControl = CType(DataGridView.EditingControl, NumericUpDownRightEditingControl) + ctl.Minimum = 0 + + Dim CurrentValue As Decimal = 0 + If Not DBNull.Value.Equals(Me.Value) Then + If Not IsNumeric(Me.Value) Then + Me.Value = 0 + End If + If Integer.TryParse(Me.Value.ToString, CurrentValue) Then + ctl.Value = CurrentValue + End If + Else + ctl.Value = 0 + End If + + End Sub + Public Overrides ReadOnly Property EditType() As Type + Get + ' Return the type of the editing contol that NumericUpDownCell uses. + Return GetType(NumericUpDownRightEditingControl) + End Get + End Property + Public Overrides ReadOnly Property ValueType() As Type + Get + ' Return the type of the value that NumericUpDownCell contains. + Return GetType(Decimal) + End Get + End Property + Public Overrides ReadOnly Property DefaultNewRowValue() As Object + Get + ' Use as the current default value. + Return Nothing + End Get + End Property +End Class +Class NumericUpDownRightEditingControl + Inherits NumericUpDown + Implements IDataGridViewEditingControl + + Private dataGridViewControl As DataGridView + Private valueIsChanged As Boolean = False + Private rowIndexNum As Integer + + Public Sub New() + Me.DecimalPlaces = 0 + Me.TextAlign = System.Windows.Forms.HorizontalAlignment.Left + Me.UpDownAlign = System.Windows.Forms.LeftRightAlignment.Right + End Sub + + Public Property EditingControlFormattedValue() As Object Implements IDataGridViewEditingControl.EditingControlFormattedValue + + Get + Return Me.Value.ToString("#") + End Get + + Set(ByVal value As Object) + If TypeOf value Is Decimal Then + Me.Value = Decimal.Parse(CStr(value)) + End If + End Set + + End Property + + Public Function GetEditingControlFormattedValue(ByVal context As DataGridViewDataErrorContexts) As Object _ + Implements IDataGridViewEditingControl.GetEditingControlFormattedValue + + Return Me.Value.ToString() ' Me.Value.ToString("#.##") + + End Function + + Public Sub ApplyCellStyleToEditingControl(ByVal dataGridViewCellStyle As DataGridViewCellStyle) _ + Implements IDataGridViewEditingControl.ApplyCellStyleToEditingControl + + Me.Font = dataGridViewCellStyle.Font + Me.ForeColor = dataGridViewCellStyle.ForeColor + Me.BackColor = dataGridViewCellStyle.BackColor + + End Sub + + Public Property EditingControlRowIndex() As Integer _ + Implements IDataGridViewEditingControl.EditingControlRowIndex + + Get + Return rowIndexNum + End Get + Set(ByVal value As Integer) + rowIndexNum = value + End Set + + End Property + + Public Function EditingControlWantsInputKey(ByVal key As Keys, ByVal dataGridViewWantsInputKey As Boolean) As Boolean Implements IDataGridViewEditingControl.EditingControlWantsInputKey + + ' Let the NumericUpDown handle the keys listed. + Select Case key And Keys.KeyCode + Case Keys.Left, Keys.Up, Keys.Down, Keys.Right, Keys.Home, Keys.End, Keys.PageDown, Keys.PageUp + + Return True + + Case Else + Return False + End Select + + End Function + + Public Sub PrepareEditingControlForEdit(ByVal selectAll As Boolean) _ + Implements IDataGridViewEditingControl.PrepareEditingControlForEdit + + ' No preparation needs to be done. + + End Sub + Public ReadOnly Property RepositionEditingControlOnValueChange() As Boolean Implements IDataGridViewEditingControl.RepositionEditingControlOnValueChange + + Get + Return False + End Get + + End Property + Public Property EditingControlDataGridView() As DataGridView Implements IDataGridViewEditingControl.EditingControlDataGridView + + Get + Return dataGridViewControl + End Get + Set(ByVal value As DataGridView) + dataGridViewControl = value + End Set + + End Property + Public Property EditingControlValueChanged() As Boolean Implements IDataGridViewEditingControl.EditingControlValueChanged + + Get + Return valueIsChanged + End Get + Set(ByVal value As Boolean) + valueIsChanged = value + End Set + + End Property + Public ReadOnly Property EditingControlCursor() As Cursor Implements IDataGridViewEditingControl.EditingPanelCursor + Get + Return MyBase.Cursor + End Get + End Property + Protected Overrides Sub OnValueChanged(ByVal eventargs As EventArgs) + + ' Notify the DataGridView that the contents of the cell have changed. + valueIsChanged = True + Me.EditingControlDataGridView.NotifyCurrentCellDirty(True) + MyBase.OnValueChanged(eventargs) + + End Sub +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/RichTextBoxEx.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/RichTextBoxEx.Designer.vb new file mode 100644 index 0000000..17327dd --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/RichTextBoxEx.Designer.vb @@ -0,0 +1,297 @@ + _ +Partial Class RichTextBoxEx + Inherits System.Windows.Forms.UserControl + + 'UserControl1 overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RichTextBoxEx)) + Me.rtb = New System.Windows.Forms.RichTextBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.NewToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.OpenToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.SaveToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.PrintToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.toolStripSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.FontToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.FontColorToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.BoldToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.UnderlineToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.LeftToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.CenterToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.RightToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.BulletsToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.CutToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.CopyToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.PasteToolStripButton = New System.Windows.Forms.ToolStripButton() + Me.toolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.SpellChecker = New NetSpell.SpellChecker.Spelling(Me.components) + Me.FontDlg = New System.Windows.Forms.FontDialog() + Me.ColorDlg = New System.Windows.Forms.ColorDialog() + Me.OpenFileDlg = New System.Windows.Forms.OpenFileDialog() + Me.SaveFileDlg = New System.Windows.Forms.SaveFileDialog() + Me.ToolStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'rtb + ' + Me.rtb.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.rtb.Location = New System.Drawing.Point(0, 25) + Me.rtb.Name = "rtb" + Me.rtb.Size = New System.Drawing.Size(412, 317) + Me.rtb.TabIndex = 0 + Me.rtb.Text = "" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripButton, Me.OpenToolStripButton, Me.SaveToolStripButton, Me.PrintToolStripButton, Me.toolStripSeparator, Me.FontToolStripButton, Me.FontColorToolStripButton, Me.BoldToolStripButton, Me.UnderlineToolStripButton, Me.ToolStripSeparator4, Me.LeftToolStripButton, Me.CenterToolStripButton, Me.RightToolStripButton, Me.ToolStripSeparator3, Me.BulletsToolStripButton, Me.ToolStripSeparator2, Me.CutToolStripButton, Me.CopyToolStripButton, Me.PasteToolStripButton, Me.toolStripSeparator1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(412, 25) + Me.ToolStrip1.TabIndex = 1 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'NewToolStripButton + ' + Me.NewToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.NewToolStripButton.Image = CType(resources.GetObject("NewToolStripButton.Image"), System.Drawing.Image) + Me.NewToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.NewToolStripButton.Name = "NewToolStripButton" + Me.NewToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.NewToolStripButton.Text = "&New" + Me.NewToolStripButton.Visible = False + ' + 'OpenToolStripButton + ' + Me.OpenToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.OpenToolStripButton.Image = CType(resources.GetObject("OpenToolStripButton.Image"), System.Drawing.Image) + Me.OpenToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.OpenToolStripButton.Name = "OpenToolStripButton" + Me.OpenToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.OpenToolStripButton.Text = "&Open" + Me.OpenToolStripButton.Visible = False + ' + 'SaveToolStripButton + ' + Me.SaveToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.SaveToolStripButton.Image = CType(resources.GetObject("SaveToolStripButton.Image"), System.Drawing.Image) + Me.SaveToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.SaveToolStripButton.Name = "SaveToolStripButton" + Me.SaveToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.SaveToolStripButton.Text = "&Save" + Me.SaveToolStripButton.Visible = False + ' + 'PrintToolStripButton + ' + Me.PrintToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.PrintToolStripButton.Image = CType(resources.GetObject("PrintToolStripButton.Image"), System.Drawing.Image) + Me.PrintToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.PrintToolStripButton.Name = "PrintToolStripButton" + Me.PrintToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.PrintToolStripButton.Text = "&Print" + Me.PrintToolStripButton.Visible = False + ' + 'toolStripSeparator + ' + Me.toolStripSeparator.Name = "toolStripSeparator" + Me.toolStripSeparator.Size = New System.Drawing.Size(6, 25) + Me.toolStripSeparator.Visible = False + ' + 'FontToolStripButton + ' + Me.FontToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.FontToolStripButton.Image = CType(resources.GetObject("FontToolStripButton.Image"), System.Drawing.Image) + Me.FontToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.FontToolStripButton.Name = "FontToolStripButton" + Me.FontToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.FontToolStripButton.Text = "Font" + ' + 'FontColorToolStripButton + ' + Me.FontColorToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.FontColorToolStripButton.Image = CType(resources.GetObject("FontColorToolStripButton.Image"), System.Drawing.Image) + Me.FontColorToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.FontColorToolStripButton.Name = "FontColorToolStripButton" + Me.FontColorToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.FontColorToolStripButton.Text = "Font Color" + ' + 'BoldToolStripButton + ' + Me.BoldToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BoldToolStripButton.Image = CType(resources.GetObject("BoldToolStripButton.Image"), System.Drawing.Image) + Me.BoldToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.BoldToolStripButton.Name = "BoldToolStripButton" + Me.BoldToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.BoldToolStripButton.Text = "Bold" + ' + 'UnderlineToolStripButton + ' + Me.UnderlineToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.UnderlineToolStripButton.Image = CType(resources.GetObject("UnderlineToolStripButton.Image"), System.Drawing.Image) + Me.UnderlineToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.UnderlineToolStripButton.Name = "UnderlineToolStripButton" + Me.UnderlineToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.UnderlineToolStripButton.Text = "Underline" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25) + ' + 'LeftToolStripButton + ' + Me.LeftToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.LeftToolStripButton.Image = CType(resources.GetObject("LeftToolStripButton.Image"), System.Drawing.Image) + Me.LeftToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.LeftToolStripButton.Name = "LeftToolStripButton" + Me.LeftToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.LeftToolStripButton.Text = "Left" + ' + 'CenterToolStripButton + ' + Me.CenterToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.CenterToolStripButton.Image = CType(resources.GetObject("CenterToolStripButton.Image"), System.Drawing.Image) + Me.CenterToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.CenterToolStripButton.Name = "CenterToolStripButton" + Me.CenterToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.CenterToolStripButton.Text = "Center" + ' + 'RightToolStripButton + ' + Me.RightToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.RightToolStripButton.Image = CType(resources.GetObject("RightToolStripButton.Image"), System.Drawing.Image) + Me.RightToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.RightToolStripButton.Name = "RightToolStripButton" + Me.RightToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.RightToolStripButton.Text = "Right" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'BulletsToolStripButton + ' + Me.BulletsToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BulletsToolStripButton.Image = CType(resources.GetObject("BulletsToolStripButton.Image"), System.Drawing.Image) + Me.BulletsToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.BulletsToolStripButton.Name = "BulletsToolStripButton" + Me.BulletsToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.BulletsToolStripButton.Text = "Bullets" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25) + Me.ToolStripSeparator2.Visible = False + ' + 'CutToolStripButton + ' + Me.CutToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.CutToolStripButton.Image = CType(resources.GetObject("CutToolStripButton.Image"), System.Drawing.Image) + Me.CutToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.CutToolStripButton.Name = "CutToolStripButton" + Me.CutToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.CutToolStripButton.Text = "C&ut" + Me.CutToolStripButton.Visible = False + ' + 'CopyToolStripButton + ' + Me.CopyToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.CopyToolStripButton.Image = CType(resources.GetObject("CopyToolStripButton.Image"), System.Drawing.Image) + Me.CopyToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.CopyToolStripButton.Name = "CopyToolStripButton" + Me.CopyToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.CopyToolStripButton.Text = "&Copy" + Me.CopyToolStripButton.Visible = False + ' + 'PasteToolStripButton + ' + Me.PasteToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.PasteToolStripButton.Image = CType(resources.GetObject("PasteToolStripButton.Image"), System.Drawing.Image) + Me.PasteToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta + Me.PasteToolStripButton.Name = "PasteToolStripButton" + Me.PasteToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.PasteToolStripButton.Text = "&Paste" + Me.PasteToolStripButton.Visible = False + ' + 'toolStripSeparator1 + ' + Me.toolStripSeparator1.Name = "toolStripSeparator1" + Me.toolStripSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'SpellChecker + ' + Me.SpellChecker.Dictionary = Nothing + ' + 'OpenFileDlg + ' + Me.OpenFileDlg.FileName = "OpenFileDialog1" + ' + 'RichTextBoxEx + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.rtb) + Me.Name = "RichTextBoxEx" + Me.Size = New System.Drawing.Size(412, 342) + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Public WithEvents rtb As System.Windows.Forms.RichTextBox + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents NewToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents OpenToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents SaveToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents PrintToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents toolStripSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents CutToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents CopyToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents PasteToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents toolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents SpellChecker As NetSpell.SpellChecker.Spelling + Friend WithEvents FontDlg As System.Windows.Forms.FontDialog + Friend WithEvents ColorDlg As System.Windows.Forms.ColorDialog + Friend WithEvents OpenFileDlg As System.Windows.Forms.OpenFileDialog + Friend WithEvents SaveFileDlg As System.Windows.Forms.SaveFileDialog + Friend WithEvents FontToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents FontColorToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents BoldToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents UnderlineToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents LeftToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents CenterToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents RightToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BulletsToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/RichTextBoxEx.resx b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/RichTextBoxEx.resx new file mode 100644 index 0000000..f90c1a2 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/RichTextBoxEx.resx @@ -0,0 +1,299 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAERSURBVDhPrZDbSgJRGIXnpewd6jXsjSQvIrwoI0RQMChU + 0iiDPCGiE3ZCRkvR8VzTeBhnyR5/ccaZNnPhB4t9sdf6Ln5hb8QeathNJFVFKF5C8DqL4ksDVHWGDf7j + LHyPg6NjviSaFqlu5yQYR+KpupaIkrMknCxT3Y7v/NYYb0ITK1c3BarbWWhLQ7IR0cTKReyZ6lZ0XYei + ztHpK4bAc+h1FgQijzSxMptrGIxVSO0xX3AaStFki7bUMVFmaMm/eJMGfIH/MkGzLep0AXn4h/r3CJV3 + mS9gn2bY4UY/UzQ7E9TqfeTFtnuB+XAfzSHKr11kSl/uBebDiZ89ZCst3OUkdwL28sIVsE83ock+EIQV + 2Mz2wxeg6/UAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJHSURBVDhPxZBdSNNhFMb/F110ZZEVhVBgeeHNICiiuggp + olAUyyxI0oSaH1QYC3N+tKnp5ubm1JUua5uuqdNKMwr7kApFItTUkWZqVhSVYmao5Nevvy7UoYR3HXh4 + 4XCe33nOKyy3lAY7l9RWMo0O/raWXxEyo5spVYTNvOGyfIRPfW+ptOkXqaPl6T83hcRmExSdgzAz3NVm + YWyoYla/B+1M9JtxWLPpaH22JORIjI6gKAMB0jyEimIdo4OlbuaprwVMOOMovammpDADc34qppwUrmnl + 5Kni3aFlFg2j3y1z5mnRTJccnNIltQhwq0jFry+mOXNtpWZWDx1Z1NhV3C3JwGFOw25SYjVe5oYhiUKd + HKMmwQUrMWUw/CF3NnZvvYKqUh1TvUroS3fXe7HXkwidMngTS2t5KLbregSzMY2f3Wr4qKW6LJvGR1rX + 0MLor8OhKYTJBn/GHvvxrliCTBrsOqXIoOBHh5K+hmSq7FqmexTQHuUytkaKxuNMNgYyVneA4Qd7GKjc + hjLaRzxH7gIU6JIZaEvgtk1D8wsxSWecCDgNzWFMvwxm/PkhRmr3Mli1nW9lvjRdWc0Jf+/5jzRmyWmv + S+GOLQu6U6BFjPvqKOP1AYw88WOoZif9DgmfLVtxaj1RSLdwNvrkPCA3M54KqxrnvRia9MKcGrUrqFOt + 5H7qKsqT1mGO9+Lqhc2ELdw+U/r0i+gVZ8hMiCDx3DHORwZyKnQ/hw/uYt9uCTskPvh6e7Fp41rWr/Fg + g6eHO+A/lyD8ARfG3mk9fv1YAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIySURBVDhPrZLfS5NRGMfff6H7boIuuq2pMZyL1eAt11CW + DcOKsB9vpFmaLtNExco0av6CbIVLJ61Wk3BSkT/AFCkRZSpZmrmiJQ41xSaCwdfznL15XEUX0Reem5f3 + 8znnec4j/Zc8fxYGla91CS3eRTx0z6OpMYS7jmnU1X6B/VYA18snUVoyjsKCt8jLHcH5c36ouCQR2NUJ + 1Nas4G9ZXlmFKbULh1Kf8lJxSfI+WeCCyopv6q+/h+DQ/DJ2WV5Ao1FgPegRAveDOS4oLfmq/h6dn/DH + 4AJizD4UXJrCAUuzEDgbZrjgou2DiohshIcnQtgme5GTPYbkJKcQ1N8OckHW2REVi+RXuM8fxGaDG4oy + ALPZIQQ11Z+5QDk1oKJ/hjv7P2FTfCMOH3mFxMQ6IbhROYWOdrCnBI4dfwPr0V4+bRoY9UzXppMjcDdS + rC8hy3YhuFI2gTYf2A4Aza4f7N2/o/zaLB8qDYx6zszwr8P7k1thNFYIweXCMXgeAfedq2xxwjClZUeV + Jd2GtDNFETiJwfs8MBjKhMCWN8pgoLoqzE8miH1GjE7G4PsZjE7OQsm9ij2mFg7rdrug1xcJAa2l4w7W + r00Cgk/n38S7wBwC04u4UGxHrMHF4CbEJtyDLj5fCDIzhljfSxzeavRgyw4Zj9t64GvvQ0d3P3pfD2Kv + 2QqNvgFxDN6urYdWmyMElJMnevh60obRktA701PRtGlg1DOdSkXwzrisaMG/RZLWAE60OMW5fNhvAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIpSURBVDhPtZL/T1JRGMb5p1itrVZbbRpqZbawnBENV1I0 + jGlByTSyJTXJwq2oKZQb1KAv6JCYWSxvBrkkZUq4CeQEiRABFeLL072Xa0zRra31bO8v57zP5znnPYf1 + X+TxhWF6O7VtGYcnwbSWijKPOLzYrPSvLPwLS3huGUMlT7o9wGD9grVUBj+icdid03S9tDmgNxNwTgVQ + J+rA8XNtWwM+uuZATMwxmQVRycuJFNyzIRitDlScugKzjSgFRGJJaIwEsrk8AsHIhnSL/Ssck37UNipQ + I5DjtuYV7uksRYhr2kebhx2eP6nrycFIEh5fBA/1Nvru8q5+PDaOovK0rABwfwugWzcErfkzHhjsePL6 + E7q1VrTdNUDcrgGvSYlDZHN5XTNOnL8BVe8AJAoNDtZfLgDu9L1BPJmikzcrk81hlRwodZJwdBXziwnI + OrVoaOkiT8C8hKLHBPO7CbywOaE1jeC+bhAd6meQdvZC1KoG/5IS3MZ2HObLUHZSggvkWq3wOvbWiAqA + VpWeyStVfCUNf3AZ4zNhfHCFMEDMgye+hYr6FrDLzxQAUuVTpr0ocn74mchg5vsKRt1RcHp2Qv9+kZ78 + UcE17KkWFgHNN/uQzgBkGKLJPBZiecyGchjzrmFwPIF++xJUbDbUQzEacIArLpopSRSP4CUN1Obf1Abz + uqob5KjiXwWH/GVl5HPt5zZh37GL2H1EiF1VZ7GDI6CNW5r/TSzWbwHYL0mKJ5czAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABfSURBVDhPvY0LCsAgDEN79N3cWSQQqo2/sQfBiXmZ/UQp + LUdAPhpgeXuAJf5+6umRsODgDlkOoBzDcjqAcoSldGBFdroBiByA8ihTsuLSgCrJATxyGPX2DfEPs1xj + 9gIL0Y8M2yQbFgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABfSURBVDhP1Y9bCgAgCAQ7uje3QkV7SGX9NLAkluuWfAC5 + OAegDgPSGYIMQilkuyiQQob7egPdbuujFDo0aoHd3kL9jRRzA/sVbo3421sDJ4U+IFn6O9FLih3e6HuD + hBmOGN7KIoUY1gAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA8SURBVDhP7ctBCgAgEMPA/f+n9broFD2LgV5CWp+NcdgV + OshFFMtFFMtFerzuCh3kIorlIorlSA+196ia6kE6xgBns7MAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVDhPYxh+4D8aBgFsYngBNoVEawaBUQOoZUBDQwNY + A5QmyQAQQNZEsmaKADab0fGgAgwMAAIENs2gnDUTAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAxSURBVDhPYxg04D+ZmHoAm+nYMO0ANtuIwdQD2EzHhmkH + sNlGDKYewGY6Njz8AAMDAGJeR7nOul6/AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAwSURBVDhP3c2xCQAACMTA339pXSCFSArxIHVyRi3z0YXy + 0WWSjy6Ujy6TfHSh/kgacz9HucQTphAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAxSURBVDhPYxg+4D+ZmHYAm23YMPUANtOJwbQD2GzDhqkH + sJlODKYdwGYbNjzggIEBAE1aR7nHB4ecAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABkSURBVDhPY6AKyO86WFDQfeg/iIYKkQZAmkNbnvyXta76 + DxViYGFi+Y8PQ5VBAMhmkGYgJs8FAw9GA5EKILFiWUFixfL/IBoqRBoAafYsOvpf0jiTvEAE2QzSLGmU + MeQCkYEBAD3tUdo+/cEPAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGDSURBVDhPrZFNSwJRGIX9NYGbFoUlFElY1EJQKEYhCJsi + LaVsERnRF5iCaSZJO1toCDVGFkgoFpWQWWRR2aIvUxm1BKN1wSnHCFw4TOCzue+9nPNw4eVVnav4Izzb + QfxeGZ5TWaxT/rK3irzmC7CsusvC1G4IkbNLboIiDieF4GGUKeTeClDpppF8eeEu2PIfwfrzizSdw3Hk + EnKlFpkMzV2wH77AosOFTV8A+vkl9CiHuJeLJNNZjM8tYWB0FkTvMAwmy/8ERTR6CwjlGAi1Ccence6C + 1NsXzN4PKIxJLLgeIJ2MoXvmFraNBKK3eXZRIveJPvs7FIYniEkXZENOdE+GIZ2Ko10TwLK7tJmKmL0F + EEYarYM+NMnt0C1sQzpx/lcSEnZ2gcKY/gs0dlmZuWvmjjmpwA1qxVp2AWFIMAF/OAGBzMjMI7ZrtJCb + 4Df3o4Zfxy7QrdxDRFKol5khkpR2H4qmIOzUQNBGwrsXYxccnNOQqNbQ0KGGZ+eEPVwdeLxvqqrf4wGh + TNAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHkSURBVDhPvZHfS1NhHIf3p5QypLr2D4goMwoMCi/qIugH + Xe1Cr7qKDIMkZixwNhfWLGWbnuki0kXKzLU023KubBNPJrbRdOzocm6e2dPOO21mMS+CHvjcvOf9PF++ + 79H9M+7RT2iRRsIi9sEAXe43yAvf2LpSHq28G9uAnytNT4jMLewtcQ2Ht2pF8ps/aOt+gccX5lxD694S + +1BQFD1RkN5DSFa4Z3uONKbgHE3h8KZ4OJTC1J8UiSzmfhd2uf1CoJHbyKOsZokl0kKwm+aeJaov+wjO + rpQkVqdXfOz0bWAcVLghfaXxkUz3y2VxvpMGSwL3uMKh+gHezSSLEnNhX23vtYzKUirDfGyFj/Iy1mdx + UWqR8iKhwtQLxjgH659y4EwvVXWPiwJt3/Ws+muywRrlqvkDdx3zQrCN8l1ldnEd3/QqFmkS/akHJYGS + zjLzOUEwEsMf+sLI2zmaOou/93pPGoM5zvk7UU7fnBKxSBPoT7SXBNW1F/9Io2lKCNTCeomUyrS8xnBA + wfUqyf1eP5U1ptJD/o1LzeNCsHPydtqdr6k4aiwvOHvNSya3ibU/QIdrEkvfhJislc32MfYfuV1eUGPw + FF7bIVJVZ0N/soPK421UHGstlFvYd/hWecF/Qqf7CR0A5wwgSQA2AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJSSURBVDhPtZJrSJNRGMdf6IN9KbpQn/pUEH2JIoLqQ0Zh + FqYZRmJG1iKmUqKyLB2pqSm6vC1Nm5GXoeatEsVJ0RASR3eNzegikRq5lrV3857Fr/d9ddlICoL+8OfA + Oef/e57zcIT/os7WLMw302muSGJ2689qqi7A44q8IzjtNYzarzHQm8tZtT8FmRqu6LToMxN+B8qhCbGR + KVcDE85ajKUaxoaryEuL4UVXIudPB5Ko2oy98xjDptXERuz3hsgAOTzlqqMk6yjdllzE90UM9Wp5azlB + S1kwkeG+1CSv4mmBQPThfd6Ahqq8GYB4A11yBKmaMLQxoZyLDkGjDiZOFUhUuB+FsWsUQFiArzegtlzH + pFjPpMPA2GA2jucx2KqWK7ZWLqO7dBGP9D5KWLbfto3eAKMhi3FHBeP9GYy9PMXos4OIrYvJrzSRbWjm + wuV6EnVG4tLLiEzSExGf4w0oL05nZEDPaK+akceBuO9v4uPtFUrYo6npbzhdE/QPOQmNSiPouHYOUpaf + gvgqA/dDf9wd63G1r2SgUlAqyyq/1anYUGfG2mdXwne7bOwJUc1AinOS+NxzBpd5HWLbUhyNPvRdF5S2 + v05/54tbqvzBifWNHUvPOwLC4/CXwrv2HsB3+w6EwosJOB5ESeElfGpayGD1AmwlArHSm+W2PR1clToo + MrbT0mFTVtlbN6xFuJQar3wQz5Q9VksD+7XyPctrJdx4p5s605M5gKz8lJPSDwtGFbKboJ1blAN52vKb + PdXm80/AfDokTVu+8DfPXv9XCcIPTvjvLQ8YoakAAAAASUVORK5CYII= + + + + 119, 17 + + + 234, 17 + + + 345, 17 + + + 459, 17 + + + 591, 17 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/RichTextBoxEx.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/RichTextBoxEx.vb new file mode 100644 index 0000000..df8c2b3 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/RichTextBoxEx.vb @@ -0,0 +1,139 @@ +Imports System.Windows.Forms + +Public Class RichTextBoxEx + + Private Sub RichTextBoxEx_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + ' Load control + rtb.Focus() + End Sub + + ' Spell checking thanks to: http://www.codeproject.com/KB/string/netspell.aspx + + ' Handles when user chooses to delete in spell cehck + Private Sub SpellChecker_DeletedWord(ByVal sender As Object, ByVal e As NetSpell.SpellChecker.SpellingEventArgs) Handles SpellChecker.DeletedWord + 'save existing selecting + Dim start As Integer = rtb.SelectionStart + Dim length As Integer = rtb.SelectionLength + + 'select word for this event + rtb.Select(e.TextIndex, e.Word.Length) + + 'delete word + rtb.SelectedText = "" + + If ((start + length) > rtb.Text.Length) Then + length = 0 + End If + + 'restore selection + rtb.Select(start, length) + + End Sub + + ' Handles replacing a word from spell checking + Private Sub SpellChecker_ReplacedWord(ByVal sender As Object, ByVal e As NetSpell.SpellChecker.ReplaceWordEventArgs) Handles SpellChecker.ReplacedWord + 'save existing selecting + Dim start As Integer = rtb.SelectionStart + Dim length As Integer = rtb.SelectionLength + + 'select word for this event + rtb.Select(e.TextIndex, e.Word.Length) + + 'replace word + rtb.SelectedText = e.ReplacementWord + + If ((start + length) > rtb.Text.Length) Then + length = 0 + End If + + 'restore selection + rtb.Select(start, length) + End Sub + + ' Update buttons when text is selected + Private Sub rtb_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtb.SelectionChanged + ' see which buttons should be checked or unchecked + BoldToolStripButton.Checked = rtb.SelectionFont.Bold + UnderlineToolStripButton.Checked = rtb.SelectionFont.Underline + LeftToolStripButton.Checked = IIf(rtb.SelectionAlignment = System.Windows.Forms.HorizontalAlignment.Left, True, False) + CenterToolStripButton.Checked = IIf(rtb.SelectionAlignment = System.Windows.Forms.HorizontalAlignment.Center, True, False) + RightToolStripButton.Checked = IIf(rtb.SelectionAlignment = System.Windows.Forms.HorizontalAlignment.Right, True, False) + BulletsToolStripButton.Checked = rtb.SelectionBullet + + 'cmbFontName.Text = rtb.SelectionFont.Name + 'cmbFontSize.Text = rtb.SelectionFont.SizeInPoints + + End Sub + + Private Sub checkBullets() + If rtb.SelectionBullet = True Then + BulletsToolStripButton.Checked = True + Else + BulletsToolStripButton.Checked = False + End If + End Sub + + Private Sub FontToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripButton.Click + If FontDlg.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + rtb.SelectionFont = FontDlg.Font + End If + End Sub + + Private Sub FontColorToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontColorToolStripButton.Click + If ColorDlg.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + rtb.SelectionColor = ColorDlg.Color + End If + End Sub + + Private Sub BoldToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoldToolStripButton.Click + ' Switch Bold + Dim currentFont As System.Drawing.Font = rtb.SelectionFont + Dim newFontStyle As System.Drawing.FontStyle + If rtb.SelectionFont.Bold = True Then + newFontStyle = currentFont.Style - Drawing.FontStyle.Bold + Else + newFontStyle = currentFont.Style + Drawing.FontStyle.Bold + End If + rtb.SelectionFont = New Drawing.Font(currentFont.FontFamily, currentFont.Size, newFontStyle) + + ' Check/Uncheck Bold button + BoldToolStripButton.Checked = IIf(rtb.SelectionFont.Bold, True, False) + End Sub + + Private Sub SpellcheckToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + SpellChecker.Text = rtb.Text + ''SpellChecker.SpellCheck() + End Sub + + Private Sub UnderlineToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UnderlineToolStripButton.Click + ' Switch Underline + Dim currentFont As System.Drawing.Font = rtb.SelectionFont + Dim newFontStyle As System.Drawing.FontStyle + If rtb.SelectionFont.Underline = True Then + newFontStyle = currentFont.Style - Drawing.FontStyle.Underline + Else + newFontStyle = currentFont.Style + Drawing.FontStyle.Underline + End If + rtb.SelectionFont = New Drawing.Font(currentFont.FontFamily, currentFont.Size, newFontStyle) + + ' Check/Uncheck Underline button + UnderlineToolStripButton.Checked = IIf(rtb.SelectionFont.Underline, True, False) + End Sub + + Private Sub LeftToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LeftToolStripButton.Click + rtb.SelectionAlignment = HorizontalAlignment.Left + End Sub + + Private Sub CenterToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CenterToolStripButton.Click + rtb.SelectionAlignment = HorizontalAlignment.Center + End Sub + + Private Sub RightToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RightToolStripButton.Click + rtb.SelectionAlignment = HorizontalAlignment.Right + End Sub + + Private Sub BulletsToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BulletsToolStripButton.Click + rtb.SelectionBullet = Not rtb.SelectionBullet + BulletsToolStripButton.Checked = rtb.SelectionBullet + End Sub +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/WebbrowserEx.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/WebbrowserEx.vb new file mode 100644 index 0000000..27a6e25 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/WebbrowserEx.vb @@ -0,0 +1,254 @@ +'2007 KLEINMA +'www.zerosandtheone.com + +Option Strict On +Imports System.Runtime.InteropServices +Imports System.Security.Permissions +Imports System.Windows.Forms + +Namespace Kleinma.Controls + + Public Class WebBrowserEx + Inherits WebBrowser + + Private cookie As AxHost.ConnectionPointCookie + Private helper As WebBrowser2EventHelper + + 'NEW EVENTS THAT WILL NOW BE EXPOSED + Public Event NewWindow2 As WebBrowserNewWindow2EventHandler + Public Event NavigateError As WebBrowserNavigateErrorEventHandler + + 'DELEGATES TO HANDLE PROCESSING OF THE EVENTS + Public Delegate Sub WebBrowserNewWindow2EventHandler(ByVal sender As Object, ByVal e As WebBrowserNewWindow2EventArgs) + Public Delegate Sub WebBrowserNavigateErrorEventHandler(ByVal sender As Object, ByVal e As WebBrowserNavigateErrorEventArgs) + +#Region " PROTECTED METHODS FOR EXTENDED EVENTS " + Protected Overridable Sub OnNewWindow2(ByVal e As WebBrowserNewWindow2EventArgs) + RaiseEvent NewWindow2(Me, e) + End Sub + + Protected Overridable Sub OnNavigateError(ByVal e As WebBrowserNavigateErrorEventArgs) + RaiseEvent NavigateError(Me, e) + End Sub +#End Region + +#Region "WB SINK ROUTINES" + + _ + Protected Overrides Sub CreateSink() + MyBase.CreateSink() + helper = New WebBrowser2EventHelper(Me) + cookie = New AxHost.ConnectionPointCookie(Me.ActiveXInstance, helper, GetType(DWebBrowserEvents2)) + End Sub + + _ + Protected Overrides Sub DetachSink() + If cookie IsNot Nothing Then + cookie.Disconnect() + cookie = Nothing + End If + MyBase.DetachSink() + End Sub + +#End Region + +#Region "PROPERTIES EXPOSED THROUGH THE COM OBJECT" + + _ + _ + Public ReadOnly Property Application() As Object + Get + If IsNothing(Me.ActiveXInstance) Then + Throw New AxHost.InvalidActiveXStateException("Application", AxHost.ActiveXInvokeKind.PropertyGet) + End If + + Return CallByName(Me.ActiveXInstance, "Application", CallType.Get, Nothing) + 'THIS IS COMMENTED. UNCOMMENT AND REMOVE LINE BEFORE IF YOU CAN NOT USE CALLBYNAME() + 'Return Me.ActiveXInstance.Application + End Get + End Property + + _ + _ + Public Property RegisterAsBrowser() As Boolean + Get + If IsNothing(Me.ActiveXInstance) Then + Throw New AxHost.InvalidActiveXStateException("RegisterAsBrowser", AxHost.ActiveXInvokeKind.PropertyGet) + End If + + Dim RetVal As Boolean = False + If Not Boolean.TryParse(CallByName(Me.ActiveXInstance, "RegisterAsBrowser", CallType.Get, Nothing).ToString, RetVal) Then RetVal = False + Return RetVal + 'THIS IS COMMENTED. UNCOMMENT AND REMOVE 3 LINES BEFORE IF YOU CAN NOT USE CALLBYNAME() + 'Return Me.ActiveXInstance.RegisterAsBrowser + + End Get + Set(ByVal value As Boolean) + If IsNothing(Me.ActiveXInstance) Then + Throw New AxHost.InvalidActiveXStateException("RegisterAsBrowser", AxHost.ActiveXInvokeKind.PropertySet) + End If + + CallByName(Me.ActiveXInstance, "RegisterAsBrowser", CallType.Let, True) + 'THIS IS COMMENTED. UNCOMMENT AND REMOVE LINE BEFORE IF YOU CAN NOT USE CALLBYNAME() + 'Me.ActiveXInstance.RegisterAsBrowser = value + End Set + End Property + +#End Region + + 'HELPER CLASS TO FIRE OFF THE EVENTS + Private Class WebBrowser2EventHelper + Inherits StandardOleMarshalObject + Implements DWebBrowserEvents2 + + Private parent As WebBrowserEx + + Public Sub New(ByVal parent As WebBrowserEx) + Me.parent = parent + End Sub + + + Public Sub NewWindow2(ByRef ppDisp As Object, ByRef cancel As Boolean) Implements DWebBrowserEvents2.NewWindow2 + Dim e As New WebBrowserNewWindow2EventArgs(ppDisp) + Me.parent.OnNewWindow2(e) + ppDisp = e.ppDisp + cancel = e.Cancel + End Sub + + Public Sub NavigateError(ByVal pDisp As Object, ByRef URL As Object, ByRef frame As Object, ByRef statusCode As Object, ByRef cancel As Boolean) Implements DWebBrowserEvents2.NavigateError + ' Raise the NavigateError event. + Me.parent.OnNavigateError( _ + New WebBrowserNavigateErrorEventArgs( _ + CStr(URL), CStr(frame), CInt(statusCode), cancel)) + End Sub + End Class + + + + ' Define constants from winuser.h + Private Const WM_PARENTNOTIFY As Integer = &H210 + Private Const WM_DESTROY As Integer = 2 + + 'Define New event to fire + Public Event WBWantsToClose() + + Protected Overrides Sub WndProc(ByRef m As Message) + Select Case m.Msg + Case WM_PARENTNOTIFY + If (Not DesignMode) Then + If (CInt(m.WParam) = WM_DESTROY) Then + ' Tell whoever cares we are closing + RaiseEvent WBWantsToClose() + End If + End If + DefWndProc(m) + Case Else + MyBase.WndProc(m) + End Select + End Sub + End Class + + + Public Class WebBrowserNewWindow2EventArgs + Inherits System.ComponentModel.CancelEventArgs + + Private ppDispValue As Object + + Public Sub New(ByVal ppDisp As Object) + Me.ppDispValue = ppDisp + End Sub + + Public Property ppDisp() As Object + Get + Return ppDispValue + End Get + Set(ByVal value As Object) + ppDispValue = value + End Set + End Property + + End Class + Public Class WebBrowserNavigateErrorEventArgs + Inherits EventArgs + + Private urlValue As String + Private frameValue As String + Private statusCodeValue As Int32 + Private cancelValue As Boolean + + Public Sub New( _ + ByVal url As String, ByVal frame As String, _ + ByVal statusCode As Int32, ByVal cancel As Boolean) + + Me.urlValue = url + Me.frameValue = frame + Me.statusCodeValue = statusCode + Me.cancelValue = cancel + + End Sub + + Public Property Url() As String + Get + Return urlValue + End Get + Set(ByVal value As String) + urlValue = value + End Set + End Property + + Public Property Frame() As String + Get + Return frameValue + End Get + Set(ByVal value As String) + frameValue = value + End Set + End Property + + Public Property StatusCode() As Int32 + Get + Return statusCodeValue + End Get + Set(ByVal value As Int32) + statusCodeValue = value + End Set + End Property + + Public Property Cancel() As Boolean + Get + Return cancelValue + End Get + Set(ByVal value As Boolean) + cancelValue = value + End Set + End Property + + End Class + + _ + Public Interface DWebBrowserEvents2 + + Sub NewWindow2( _ + ByRef ppDisp As Object, _ + ByRef cancel As Boolean) + + Sub NavigateError( _ + _ + ByVal pDisp As Object, _ + ByRef URL As Object, _ + ByRef frame As Object, _ + ByRef statusCode As Object, _ + ByRef cancel As Boolean) + End Interface + + Public Enum DISPID + NEWWINDOW2 = 251 + NAVIGATERROR = 271 + End Enum + + + +End Namespace + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb new file mode 100644 index 0000000..af42ae1 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb @@ -0,0 +1,222 @@ + _ +Partial Class frmPDFScanList + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() + Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip() + Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AlsEmailSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ArchivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.pnlTop = New System.Windows.Forms.Panel() + Me.lblDateien = New System.Windows.Forms.Label() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.listlOld = New System.Windows.Forms.FlowLayoutPanel() + Me.pnlOldHeader = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.cntxtMulti.SuspendLayout() + Me.pnlTop.SuspendLayout() + Me.pnlOldHeader.SuspendLayout() + Me.SuspendLayout() + ' + 'FlowLayoutPanel + ' + Me.FlowLayoutPanel.AutoSize = True + Me.FlowLayoutPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill + Me.FlowLayoutPanel.FlowDirection = System.Windows.Forms.FlowDirection.TopDown + Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 20) + Me.FlowLayoutPanel.Margin = New System.Windows.Forms.Padding(1) + Me.FlowLayoutPanel.MaximumSize = New System.Drawing.Size(200, 500) + Me.FlowLayoutPanel.Name = "FlowLayoutPanel" + Me.FlowLayoutPanel.Size = New System.Drawing.Size(200, 14) + Me.FlowLayoutPanel.TabIndex = 1 + ' + 'cntxtMulti + ' + Me.cntxtMulti.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.cntxtMulti.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiScannenToolStripMenuItem, Me.DateiHochladenToolStripMenuItem, Me.ToolStripSeparator1, Me.KopierenZwischenablageToolStripMenuItem, Me.AlsEmailSendenToolStripMenuItem, Me.ToolStripSeparator2, Me.ArchivierenToolStripMenuItem}) + Me.cntxtMulti.Name = "cntxt" + Me.cntxtMulti.Size = New System.Drawing.Size(218, 126) + ' + 'DateiScannenToolStripMenuItem + ' + Me.DateiScannenToolStripMenuItem.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.scanner + Me.DateiScannenToolStripMenuItem.Name = "DateiScannenToolStripMenuItem" + Me.DateiScannenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.DateiScannenToolStripMenuItem.Text = "Datei scannen..." + ' + 'DateiHochladenToolStripMenuItem + ' + Me.DateiHochladenToolStripMenuItem.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.pdf + Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem" + Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.DateiHochladenToolStripMenuItem.Text = "Datei hochladen..." + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(214, 6) + ' + 'KopierenZwischenablageToolStripMenuItem + ' + Me.KopierenZwischenablageToolStripMenuItem.Name = "KopierenZwischenablageToolStripMenuItem" + Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)" + ' + 'AlsEmailSendenToolStripMenuItem + ' + Me.AlsEmailSendenToolStripMenuItem.Name = "AlsEmailSendenToolStripMenuItem" + Me.AlsEmailSendenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.AlsEmailSendenToolStripMenuItem.Text = "Als Email senden" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(214, 6) + ' + 'ArchivierenToolStripMenuItem + ' + Me.ArchivierenToolStripMenuItem.Name = "ArchivierenToolStripMenuItem" + Me.ArchivierenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.ArchivierenToolStripMenuItem.Text = "Archivieren" + ' + 'pnlTop + ' + Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlTop.Controls.Add(Me.lblDateien) + Me.pnlTop.Controls.Add(Me.FlatButton1) + Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlTop.Location = New System.Drawing.Point(0, 0) + Me.pnlTop.Name = "pnlTop" + Me.pnlTop.Size = New System.Drawing.Size(222, 20) + Me.pnlTop.TabIndex = 4 + ' + 'lblDateien + ' + Me.lblDateien.AutoSize = True + Me.lblDateien.Location = New System.Drawing.Point(4, 3) + Me.lblDateien.Name = "lblDateien" + Me.lblDateien.Size = New System.Drawing.Size(47, 13) + Me.lblDateien.TabIndex = 1 + Me.lblDateien.Text = "Dateien:" + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.FlatButton1.BackColor = System.Drawing.Color.Red + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FlatButton1.ForeColor = System.Drawing.Color.White + Me.FlatButton1.Location = New System.Drawing.Point(194, 0) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(26, 20) + Me.FlatButton1.TabIndex = 0 + Me.FlatButton1.Text = "X" + Me.FlatButton1.UseVisualStyleBackColor = False + ' + 'listlOld + ' + Me.listlOld.AutoSize = True + Me.listlOld.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.listlOld.Dock = System.Windows.Forms.DockStyle.Bottom + Me.listlOld.FlowDirection = System.Windows.Forms.FlowDirection.TopDown + Me.listlOld.Location = New System.Drawing.Point(0, 49) + Me.listlOld.Margin = New System.Windows.Forms.Padding(1) + Me.listlOld.MaximumSize = New System.Drawing.Size(200, 200) + Me.listlOld.MinimumSize = New System.Drawing.Size(2, 10) + Me.listlOld.Name = "listlOld" + Me.listlOld.Size = New System.Drawing.Size(200, 10) + Me.listlOld.TabIndex = 5 + Me.listlOld.Visible = False + ' + 'pnlOldHeader + ' + Me.pnlOldHeader.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.pnlOldHeader.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlOldHeader.Controls.Add(Me.Label1) + Me.pnlOldHeader.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlOldHeader.Location = New System.Drawing.Point(0, 34) + Me.pnlOldHeader.Name = "pnlOldHeader" + Me.pnlOldHeader.Size = New System.Drawing.Size(222, 15) + Me.pnlOldHeader.TabIndex = 6 + Me.pnlOldHeader.Visible = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(4, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(40, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Archiv:" + ' + 'frmPDFScanList + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoScroll = True + Me.AutoSize = True + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(222, 59) + Me.Controls.Add(Me.FlowLayoutPanel) + Me.Controls.Add(Me.pnlOldHeader) + Me.Controls.Add(Me.pnlTop) + Me.Controls.Add(Me.listlOld) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.MaximumSize = New System.Drawing.Size(222, 300) + Me.MinimumSize = New System.Drawing.Size(220, 24) + Me.Name = "frmPDFScanList" + Me.Text = "frmPDFScanList" + Me.cntxtMulti.ResumeLayout(False) + Me.pnlTop.ResumeLayout(False) + Me.pnlTop.PerformLayout() + Me.pnlOldHeader.ResumeLayout(False) + Me.pnlOldHeader.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Public WithEvents FlowLayoutPanel As System.Windows.Forms.FlowLayoutPanel + Friend WithEvents cntxtMulti As System.Windows.Forms.ContextMenuStrip + Friend WithEvents DateiScannenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DateiHochladenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlTop As System.Windows.Forms.Panel + Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents lblDateien As System.Windows.Forms.Label + Public WithEvents listlOld As System.Windows.Forms.FlowLayoutPanel + Friend WithEvents Label1 As System.Windows.Forms.Label + Public WithEvents pnlOldHeader As System.Windows.Forms.Panel + Friend WithEvents ArchivierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents KopierenZwischenablageToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents AlsEmailSendenToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator2 As Windows.Forms.ToolStripSeparator +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.resx b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.resx new file mode 100644 index 0000000..d2b6991 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb new file mode 100644 index 0000000..081a9df --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb @@ -0,0 +1,64 @@ +Imports System.Windows.Forms + +Public Class frmPDFScanList + Public KdNr As Integer = -1 + 'Dim DATENSERVER As New cDATENSERVER + Public _DATENSERVER_ORDNER As String = "" + Public _TEXT_PDF As String = "" + ' Public ScanID As String = "" + ' Public pdf_Path As String = "" + + Public Event FileAdded(ScanID As Integer, path As String, name As String) + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub New(KdNr, _DATENSERVER_ORDNER, _TEXT_PDF) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.KdNr = KdNr + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click + Me.Close() + End Sub + + Private Sub frmPDFScanList_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Me.Location = Windows.Forms.Cursor.Position + End Sub + + Private Sub frmPDFScanList_LostFocus(sender As Object, e As EventArgs) Handles Me.Deactivate, Me.LostFocus + ''Threading.Thread.Sleep(100) + 'For Each c In Me.FlowLayoutPanel.Controls + ' If DirectCast(c, usrCntLPDFScanSimple).cntxt.Visible Then + ' Exit Sub + ' End If + 'Next + 'For Each c In Me.listlOld.Controls + ' If DirectCast(c, usrCntLPDFScanSimple).cntxt.Visible Then + ' Exit Sub + ' End If + 'Next + Dim trd = New System.Threading.Thread(AddressOf Me.threadClose) + trd.IsBackground = True + trd.Start() + + + End Sub + + Sub threadClose() + Threading.Thread.Sleep(100) + If Form.ActiveForm Is Nothing Then Exit Sub + If Me IsNot Form.ActiveForm Then Me.Close() + End Sub + + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.Designer.vb new file mode 100644 index 0000000..4a51d62 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.Designer.vb @@ -0,0 +1,141 @@ + _ +Partial Class usrCntLPDFScanSimple + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.txt = New System.Windows.Forms.Label() + Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AlsEmailSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ArchivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.picPDF = New System.Windows.Forms.PictureBox() + Me.cntxt.SuspendLayout() + CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'txt + ' + Me.txt.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txt.AutoSize = True + Me.txt.Cursor = System.Windows.Forms.Cursors.Hand + Me.txt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txt.Location = New System.Drawing.Point(30, 3) + Me.txt.Name = "txt" + Me.txt.Size = New System.Drawing.Size(109, 13) + Me.txt.TabIndex = 3 + Me.txt.Text = "Kostenaufstellung.pdf" + Me.txt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'cntxt + ' + Me.cntxt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.KopierenZwischenablageToolStripMenuItem, Me.AlsEmailSendenToolStripMenuItem, Me.ToolStripSeparator1, Me.ArchivierenToolStripMenuItem}) + Me.cntxt.Name = "cntxt" + Me.cntxt.Size = New System.Drawing.Size(218, 126) + ' + 'UmbenennenToolStripMenuItem + ' + Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem" + Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.UmbenennenToolStripMenuItem.Text = "Umbenennen" + ' + 'LöschenToolStripMenuItem + ' + Me.LöschenToolStripMenuItem.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.del + Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem" + Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.LöschenToolStripMenuItem.Text = "Löschen" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(214, 6) + ' + 'KopierenZwischenablageToolStripMenuItem + ' + Me.KopierenZwischenablageToolStripMenuItem.Name = "KopierenZwischenablageToolStripMenuItem" + Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)" + ' + 'AlsEmailSendenToolStripMenuItem + ' + Me.AlsEmailSendenToolStripMenuItem.Name = "AlsEmailSendenToolStripMenuItem" + Me.AlsEmailSendenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.AlsEmailSendenToolStripMenuItem.Text = "Als Email senden" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(214, 6) + ' + 'ArchivierenToolStripMenuItem + ' + Me.ArchivierenToolStripMenuItem.Name = "ArchivierenToolStripMenuItem" + Me.ArchivierenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.ArchivierenToolStripMenuItem.Text = "Archivieren" + ' + 'picPDF + ' + Me.picPDF.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.pdf + Me.picPDF.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picPDF.Cursor = System.Windows.Forms.Cursors.Hand + Me.picPDF.Location = New System.Drawing.Point(-1, 2) + Me.picPDF.Name = "picPDF" + Me.picPDF.Size = New System.Drawing.Size(29, 15) + Me.picPDF.TabIndex = 2 + Me.picPDF.TabStop = False + ' + 'usrCntLPDFScanSimple + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.ContextMenuStrip = Me.cntxt + Me.Controls.Add(Me.txt) + Me.Controls.Add(Me.picPDF) + Me.Margin = New System.Windows.Forms.Padding(1) + Me.Name = "usrCntLPDFScanSimple" + Me.Size = New System.Drawing.Size(218, 20) + Me.cntxt.ResumeLayout(False) + CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents txt As System.Windows.Forms.Label + Friend WithEvents picPDF As System.Windows.Forms.PictureBox + Friend WithEvents cntxt As System.Windows.Forms.ContextMenuStrip + Friend WithEvents LöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents UmbenennenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ArchivierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator2 As Windows.Forms.ToolStripSeparator + Friend WithEvents KopierenZwischenablageToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents AlsEmailSendenToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As Windows.Forms.ToolStripSeparator +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.resx b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.resx new file mode 100644 index 0000000..1c67451 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.vb new file mode 100644 index 0000000..a3909f9 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.vb @@ -0,0 +1,72 @@ +Imports System.IO + +Public Class usrCntLPDFScanSimple + Public ScanID As String = "" + Public pdf_Path As String = "" + Public bezeichnung As String = "" + Public archived As Boolean = False + Public Event DELETE(ScanID As Integer, bezeichnung As String) + Public Event RENAME(ScanID As Integer, bezeichnung As String) + Public Event ARCHIV(ScanID As Integer, bezeichnung As String) + Public Event CLIPBOARD(ScanID As Integer, bezeichnung As String) + Public Event OPEN_MAIL(ScanID As Integer, bezeichnung As String) + + Public Event CLICKED() + + Sub New(ScanID, pdf_Path, bezeichnung, archived) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.ScanID = ScanID + Me.pdf_Path = pdf_Path + Me.bezeichnung = bezeichnung + txt.Text = bezeichnung + Me.archived = archived + End Sub + + Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Datenarchiv_DELETE", "SDL") Then RaiseEvent DELETE(ScanID, bezeichnung) + End Sub + + Private Sub txt_Click(sender As Object, e As EventArgs) Handles txt.Click, Me.Click, picPDF.Click + If File.Exists(pdf_Path) Then + ' Process.Start(pdf_Path) + Process.Start(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(pdf_Path, bezeichnung)) + RaiseEvent CLICKED() + End If + End Sub + + Private Sub usrCntLPDFScanSimple_Load(sender As Object, e As EventArgs) Handles Me.Load + If archived Then + ArchivierenToolStripMenuItem.Text = "Wiederherstellen" + Me.picPDF.BackgroundImage = My.Resources.pdf_gray + End If + LöschenToolStripMenuItem.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Datenarchiv_DELETE", "SDL") + + End Sub + + Private Sub usrcntlPDFScan_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseEnter, txt.MouseEnter, picPDF.MouseEnter + Me.BackColor = Drawing.Color.LightGray + End Sub + Private Sub usrcntlPDFScan_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave, txt.MouseLeave, picPDF.MouseLeave + Me.BackColor = Drawing.Color.White + End Sub + + Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click + RaiseEvent RENAME(ScanID, bezeichnung) + End Sub + + Private Sub ArchivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ArchivierenToolStripMenuItem.Click + RaiseEvent ARCHIV(ScanID, bezeichnung) + End Sub + + Private Sub KopierenZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenZwischenablageToolStripMenuItem.Click + RaiseEvent CLIPBOARD(ScanID, bezeichnung) + End Sub + + Private Sub AlsEmailSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlsEmailSendenToolStripMenuItem.Click + RaiseEvent OPEN_MAIL(ScanID, bezeichnung) + End Sub +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntlTestsystem.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntlTestsystem.Designer.vb new file mode 100644 index 0000000..071cc91 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntlTestsystem.Designer.vb @@ -0,0 +1,56 @@ + _ +Partial Class usrCntlTestsystem + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.lblTESTSYSTEM = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'lblTESTSYSTEM + ' + Me.lblTESTSYSTEM.AutoSize = True + Me.lblTESTSYSTEM.Location = New System.Drawing.Point(-4, 0) + Me.lblTESTSYSTEM.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0) + Me.lblTESTSYSTEM.Name = "lblTESTSYSTEM" + Me.lblTESTSYSTEM.Size = New System.Drawing.Size(146, 24) + Me.lblTESTSYSTEM.TabIndex = 0 + Me.lblTESTSYSTEM.Text = "TESTSYSTEM" + Me.lblTESTSYSTEM.Visible = False + ' + 'usrCntlTestsystem + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(12.0!, 24.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Transparent + Me.Controls.Add(Me.lblTESTSYSTEM) + Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ForeColor = System.Drawing.Color.Red + Me.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6) + Me.Name = "usrCntlTestsystem" + Me.Size = New System.Drawing.Size(152, 28) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lblTESTSYSTEM As System.Windows.Forms.Label + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntlTestsystem.resx b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntlTestsystem.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntlTestsystem.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntlTestsystem.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntlTestsystem.vb new file mode 100644 index 0000000..be7f3bf --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntlTestsystem.vb @@ -0,0 +1,8 @@ +Public Class usrCntlTestsystem + ' Private Sub usrCntlTestsystem_Load(sender As Object, e As EventArgs) Handles Me.Load + ' lblTESTSYSTEM.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM + ' End Sub + Private Sub usrCntlTestsystem_Load(sender As Object, e As EventArgs) Handles Me.Layout + lblTESTSYSTEM.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM + End Sub +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.Designer.vb new file mode 100644 index 0000000..3bb4544 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.Designer.vb @@ -0,0 +1,133 @@ + _ +Partial Class usrcntlKdSearch + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.dgvKundenAktiv = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.pnl = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.lblClose = New System.Windows.Forms.Label() + Me.lblINAKTIVEKunden = New System.Windows.Forms.Label() + Me.dgvKundenInAktiv = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.DirectoryEntry1 = New System.DirectoryServices.DirectoryEntry() + CType(Me.dgvKundenAktiv, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.dgvKundenInAktiv, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'dgvKundenAktiv + ' + Me.dgvKundenAktiv.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvKundenAktiv.BackgroundColor = System.Drawing.Color.White + Me.dgvKundenAktiv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvKundenAktiv.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvKundenAktiv.Location = New System.Drawing.Point(0, 0) + Me.dgvKundenAktiv.Name = "dgvKundenAktiv" + Me.dgvKundenAktiv.Size = New System.Drawing.Size(564, 243) + Me.dgvKundenAktiv.TabIndex = 0 + ' + 'pnl + ' + Me.pnl.AutoSize = True + Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.Controls.Add(Me.dgvKundenAktiv) + Me.pnl.Controls.Add(Me.Panel1) + Me.pnl.Controls.Add(Me.dgvKundenInAktiv) + Me.pnl.Location = New System.Drawing.Point(2, 3) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(564, 374) + Me.pnl.TabIndex = 1 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.SystemColors.InactiveCaption + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.lblClose) + Me.Panel1.Controls.Add(Me.lblINAKTIVEKunden) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel1.Location = New System.Drawing.Point(0, 243) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(564, 16) + Me.Panel1.TabIndex = 3 + ' + 'lblClose + ' + Me.lblClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblClose.AutoSize = True + Me.lblClose.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblClose.Font = New System.Drawing.Font("Arial Black", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblClose.ForeColor = System.Drawing.Color.Red + Me.lblClose.Location = New System.Drawing.Point(542, -5) + Me.lblClose.Margin = New System.Windows.Forms.Padding(0) + Me.lblClose.Name = "lblClose" + Me.lblClose.Size = New System.Drawing.Size(22, 23) + Me.lblClose.TabIndex = 17 + Me.lblClose.Text = "X" + ' + 'lblINAKTIVEKunden + ' + Me.lblINAKTIVEKunden.AutoSize = True + Me.lblINAKTIVEKunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblINAKTIVEKunden.Location = New System.Drawing.Point(3, 0) + Me.lblINAKTIVEKunden.Name = "lblINAKTIVEKunden" + Me.lblINAKTIVEKunden.Size = New System.Drawing.Size(96, 13) + Me.lblINAKTIVEKunden.TabIndex = 2 + Me.lblINAKTIVEKunden.Text = "INAKTIVE Kunden:" + ' + 'dgvKundenInAktiv + ' + Me.dgvKundenInAktiv.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvKundenInAktiv.BackgroundColor = System.Drawing.Color.White + Me.dgvKundenInAktiv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvKundenInAktiv.Dock = System.Windows.Forms.DockStyle.Bottom + Me.dgvKundenInAktiv.Location = New System.Drawing.Point(0, 259) + Me.dgvKundenInAktiv.Name = "dgvKundenInAktiv" + Me.dgvKundenInAktiv.Size = New System.Drawing.Size(564, 115) + Me.dgvKundenInAktiv.TabIndex = 1 + ' + 'usrcntlKdSearch + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.MenuHighlight + Me.Controls.Add(Me.pnl) + Me.Name = "usrcntlKdSearch" + Me.Size = New System.Drawing.Size(570, 380) + CType(Me.dgvKundenAktiv, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.dgvKundenInAktiv, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lblINAKTIVEKunden As System.Windows.Forms.Label + Public WithEvents dgvKundenAktiv As MyDatagridview + Public WithEvents dgvKundenInAktiv As MyDatagridview + Public WithEvents lblClose As System.Windows.Forms.Label + Friend WithEvents DirectoryEntry1 As System.DirectoryServices.DirectoryEntry + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.resx b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.resx new file mode 100644 index 0000000..c4fb810 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb new file mode 100644 index 0000000..7f5c287 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb @@ -0,0 +1,50 @@ +Imports System.Windows.Forms +Imports System.Drawing + +Public Class usrcntlKdSearch + Public Event DGV_Click(sender As Object, e As EventArgs) + Public Event DGV_INAKTIV_Click(sender As Object, e As EventArgs) + Public Event DGV_KeyDown(sender As Object, e As KeyEventArgs) + Public Event DGV_INAKTIV_KeyDown(sender As Object, e As KeyEventArgs) + Public Event CLOSE(sender As Object, e As EventArgs) + + Private Sub dgvKundenAktiv_Click(sender As Object, e As EventArgs) Handles dgvKundenAktiv.Click + RaiseEvent DGV_Click(sender, e) + + End Sub + + Private Sub dgvKundenInAktiv_Click(sender As Object, e As EventArgs) Handles dgvKundenInAktiv.Click + RaiseEvent DGV_INAKTIV_Click(sender, e) + End Sub + + Private Sub dgvFindKD_Click(sender As Object, e As KeyEventArgs) Handles dgvKundenAktiv.KeyDown + RaiseEvent DGV_KeyDown(sender, e) + End Sub + + Private Sub dgvFindKD_INAKTIV_Click(sender As Object, e As KeyEventArgs) Handles dgvKundenInAktiv.KeyDown + RaiseEvent DGV_INAKTIV_KeyDown(sender, e) + End Sub + + + Private Sub usrcntlKdSearch_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged + Me.pnl.Location = New Point(2, 2) + Me.pnl.Size = New Size(Me.Width - 4, Me.Height - 4) + End Sub + + Private Sub lblClose_Click(sender As Object, e As EventArgs) Handles lblClose.Click + RaiseEvent CLOSE(sender, e) + End Sub + + Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) + Try + MyBase.OnPaint(e) + Catch ex As Exception + Me.Invalidate() + End Try + End Sub + + Private Sub dgvKundenAktiv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenAktiv.CellContentClick + RaiseEvent DGV_Click(sender, e) + + End Sub +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.Designer.vb new file mode 100644 index 0000000..32bf598 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.Designer.vb @@ -0,0 +1,188 @@ + _ +Partial Class usrcntlPDFScan + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.txt = New System.Windows.Forms.Label() + Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AlsEMailSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.picPDF = New System.Windows.Forms.PictureBox() + Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.ArchivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.cntxt.SuspendLayout() + CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit() + Me.cntxtMulti.SuspendLayout() + Me.SuspendLayout() + ' + 'txt + ' + Me.txt.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txt.ContextMenuStrip = Me.cntxt + Me.txt.Cursor = System.Windows.Forms.Cursors.Hand + Me.txt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txt.Location = New System.Drawing.Point(31, -1) + Me.txt.Name = "txt" + Me.txt.Size = New System.Drawing.Size(133, 24) + Me.txt.TabIndex = 1 + Me.txt.Text = "Kostenaufstellung.pdf" + Me.txt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'cntxt + ' + Me.cntxt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiScannenToolStripMenuItem, Me.DateiHochladenToolStripMenuItem, Me.ToolStripSeparator2, Me.KopierenZwischenablageToolStripMenuItem, Me.AlsEMailSendenToolStripMenuItem, Me.ToolStripSeparator1, Me.LöschenToolStripMenuItem}) + Me.cntxt.Name = "cntxt" + Me.cntxt.Size = New System.Drawing.Size(218, 126) + ' + 'DateiScannenToolStripMenuItem + ' + Me.DateiScannenToolStripMenuItem.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.scanner + Me.DateiScannenToolStripMenuItem.Name = "DateiScannenToolStripMenuItem" + Me.DateiScannenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.DateiScannenToolStripMenuItem.Text = "Datei scannen..." + ' + 'DateiHochladenToolStripMenuItem + ' + Me.DateiHochladenToolStripMenuItem.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.pdf + Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem" + Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.DateiHochladenToolStripMenuItem.Text = "Datei hochladen..." + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(214, 6) + ' + 'KopierenZwischenablageToolStripMenuItem + ' + Me.KopierenZwischenablageToolStripMenuItem.Enabled = False + Me.KopierenZwischenablageToolStripMenuItem.Name = "KopierenZwischenablageToolStripMenuItem" + Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)" + ' + 'AlsEMailSendenToolStripMenuItem + ' + Me.AlsEMailSendenToolStripMenuItem.Enabled = False + Me.AlsEMailSendenToolStripMenuItem.Name = "AlsEMailSendenToolStripMenuItem" + Me.AlsEMailSendenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.AlsEMailSendenToolStripMenuItem.Text = "Als E-Mail senden" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(214, 6) + ' + 'LöschenToolStripMenuItem + ' + Me.LöschenToolStripMenuItem.Enabled = False + Me.LöschenToolStripMenuItem.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.del + Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem" + Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.LöschenToolStripMenuItem.Text = "Löschen" + ' + 'picPDF + ' + Me.picPDF.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.picPDF.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.pdf_gray + Me.picPDF.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picPDF.ContextMenuStrip = Me.cntxt + Me.picPDF.Cursor = System.Windows.Forms.Cursors.Hand + Me.picPDF.Location = New System.Drawing.Point(0, 2) + Me.picPDF.Name = "picPDF" + Me.picPDF.Size = New System.Drawing.Size(29, 20) + Me.picPDF.TabIndex = 0 + Me.picPDF.TabStop = False + ' + 'cntxtMulti + ' + Me.cntxtMulti.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.cntxtMulti.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ArchivierenToolStripMenuItem}) + Me.cntxtMulti.Name = "cntxt" + Me.cntxtMulti.Size = New System.Drawing.Size(181, 92) + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.scanner + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(180, 22) + Me.ToolStripMenuItem1.Text = "+ Datei scannen..." + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.pdf + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(180, 22) + Me.ToolStripMenuItem2.Text = "+ Datei hochladen..." + ' + 'ArchivierenToolStripMenuItem + ' + Me.ArchivierenToolStripMenuItem.Name = "ArchivierenToolStripMenuItem" + Me.ArchivierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ArchivierenToolStripMenuItem.Text = "Archivieren" + Me.ArchivierenToolStripMenuItem.Visible = False + ' + 'usrcntlPDFScan + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.BackColor = System.Drawing.Color.White + Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.ContextMenuStrip = Me.cntxt + Me.Controls.Add(Me.txt) + Me.Controls.Add(Me.picPDF) + Me.Cursor = System.Windows.Forms.Cursors.Hand + Me.Name = "usrcntlPDFScan" + Me.Size = New System.Drawing.Size(163, 24) + Me.cntxt.ResumeLayout(False) + CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit() + Me.cntxtMulti.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents picPDF As System.Windows.Forms.PictureBox + Friend WithEvents txt As System.Windows.Forms.Label + Friend WithEvents cntxt As System.Windows.Forms.ContextMenuStrip + Friend WithEvents DateiScannenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DateiHochladenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents LöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cntxtMulti As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator2 As Windows.Forms.ToolStripSeparator + Friend WithEvents KopierenZwischenablageToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents AlsEMailSendenToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As Windows.Forms.ToolStripSeparator + Friend WithEvents ArchivierenToolStripMenuItem As Windows.Forms.ToolStripMenuItem +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.resx b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.resx new file mode 100644 index 0000000..68a6b38 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 124, 17 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.vb new file mode 100644 index 0000000..5d00355 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.vb @@ -0,0 +1,420 @@ +Imports System.Windows.Forms +Imports System.IO +Imports Microsoft.Office.Interop + +Public Class usrcntlPDFScan + Public Property _TEXT_PDF As String + Public Property _DATENSERVER_KATEGORIE As String = "DOKUMENTE" + Public Property _DATENSERVER_ORDNER As String = "" + Public Property _DATENSERVER_UOrdner1 As String = "" + Public Property _DATENSERVER_UOrdner2 As String = "" + Public Property _DATENSERVER_UOrdner3 As String = "" + Public Property _MULTI_FILES As Boolean = False + Public Property _ARCHIV As Boolean = False + + ' Public pdf_Path As String = "" + Dim KdNr As Integer = -1 + + 'Dim DATENSERVER As New cDATENSERVER + ' Public ScanID As Integer = -1 + Public COLL_ID As Integer = -1 + 'Dim DatenserverIDCollection As New cDatenserverIDCollectionList + Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER + + + Public Event FileAdded(id As String, path As String, name As String) + + Private Sub usrcntlPDFScan_Layout(sender As Object, e As LayoutEventArgs) Handles Me.Layout + Me.txt.Text = _TEXT_PDF + End Sub + + + Public Sub INIT(KdNr) + Me.KdNr = KdNr + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", _DATENSERVER_ORDNER, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2, _DATENSERVER_UOrdner3, _TEXT_PDF, KdNr, _MULTI_FILES) + initPdf() + End Sub + + + Public Sub INIT(KdNr, _DATENSERVER_UOrdner1) + Me.KdNr = KdNr + Me._DATENSERVER_UOrdner1 = _DATENSERVER_UOrdner1 + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", _DATENSERVER_ORDNER, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2, _DATENSERVER_UOrdner3, _TEXT_PDF, KdNr, _MULTI_FILES) + initPdf() + End Sub + + Public Sub INIT(KdNr, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2) + Me.KdNr = KdNr + Me._DATENSERVER_UOrdner1 = _DATENSERVER_UOrdner1 + Me._DATENSERVER_UOrdner2 = _DATENSERVER_UOrdner2 + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", _DATENSERVER_ORDNER, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2, _DATENSERVER_UOrdner3, _TEXT_PDF, KdNr, _MULTI_FILES) + initPdf() + End Sub + + Public Sub INIT(KdNr, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2, _DATENSERVER_UOrdner3) + Me.KdNr = KdNr + Me._DATENSERVER_UOrdner1 = _DATENSERVER_UOrdner1 + Me._DATENSERVER_UOrdner2 = _DATENSERVER_UOrdner2 + Me._DATENSERVER_UOrdner3 = _DATENSERVER_UOrdner3 + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", _DATENSERVER_ORDNER, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2, _DATENSERVER_UOrdner3, _TEXT_PDF, KdNr, _MULTI_FILES) + initPdf() + End Sub + + + + Private Sub usrcntlPDFScan_Load(sender As Object, e As EventArgs) Handles Me.Load + Me.AllowDrop = True + Me.txt.Text = _TEXT_PDF + If _MULTI_FILES Then + Me.ContextMenuStrip = cntxtMulti + txt.ContextMenuStrip = cntxtMulti + picPDF.ContextMenuStrip = cntxtMulti + ' Else + ' If DatenserverIDCollection.Count > 0 Then + 'pdf_Path = DATENSERVER.getPathById(ScanID) + ' End If + End If + + + End Sub + + Public Fill + + ' Sub addId(id) + ' If id > 0 Then + ' ScanID = id + ' pdf_Path = DATENSERVER.getPathById(ScanID) + ' initPdf() + ' End If + ' End Sub + Sub initPdf() + If DS Is Nothing Then Exit Sub + txt.Name = _TEXT_PDF + + If DS.DATA_LIST.LIST.Count > 0 Then + picPDF.Enabled = True + txt.Enabled = True + ' picScanner.Visible = False + picPDF.BackgroundImage = My.Resources.pdf + setCursorHand(Me) + setCursorHand(picPDF) + setCursorHand(txt) + ' del.Visible = True + If Not _MULTI_FILES Then LöschenToolStripMenuItem.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Datenarchiv_DELETE", "SDL") + KopierenZwischenablageToolStripMenuItem.Enabled = True + AlsEMailSendenToolStripMenuItem.Enabled = True + Else + picPDF.Enabled = False + txt.Enabled = False + picPDF.BackgroundImage = My.Resources.pdf_gray + 'picScanner.Visible = True + setCursorDefalut(Me) + setCursorDefalut(picPDF) + setCursorDefalut(txt) + ' del.Visible = False + LöschenToolStripMenuItem.Enabled = False + KopierenZwischenablageToolStripMenuItem.Enabled = False + AlsEMailSendenToolStripMenuItem.Enabled = False + End If + + ' ArchivierenToolStripMenuItem.Visible = If(DS.da_multifiles And DS.DATA_LIST.LIST.Count = 1, True, False) + End Sub + + Sub setCursorHand(c As Control) + c.Cursor = Windows.Forms.Cursors.Hand + End Sub + Sub setCursorDefalut(c As Control) + c.Cursor = Windows.Forms.Cursors.Default + End Sub + + + Private Sub txt_Click(sender As Object, e As EventArgs) Handles txt.Click, Me.Click, picPDF.Click + + Try + + If DS.DATA_LIST.LIST.Count > 0 Then + If _MULTI_FILES Then 'And DS.DATA_LIST.LIST.Count > 1 Then + Dim list As New frmPDFScanList + + showMulti(list) + + list.Location = System.Windows.Forms.Cursor.Position + list.Show() 'Me.FindForm) 'Dialog() 's(Me.FindForm) + list.SetDesktopLocation(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y) + Else + 'Process.Start(DS.DATA_LIST.LIST(0).coll_pfad) + DS.OPEN_SINGLE(, True) + End If + End If + + Catch ex As Exception + MsgBox("FEHLER: UserControl möglicherweise nicht initialisiert!") + End Try + End Sub + Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter ', txt.DragEnter, Me.DragEnter, picPDF.DragEnter + e.Effect = DragDropEffects.All + End Sub + Private Sub txt_Click(sender As Object, e As DragEventArgs) Handles Me.DragDrop ', txt.DragDrop, Me.DragDrop, picPDF.DragDrop + If e.Data.GetDataPresent("FileDrop", True) = True Then + Dim FileList As String() = CType(e.Data.GetData("FileDrop"), Object) 'Hier wird der Variable "Wert" das übergeben, was wir auf die Form gezogen haben. Bei einer Datei wäre es dann der Pfad der Datei. + If FileList.Count > 0 Then + If Not _MULTI_FILES And FileList.Count > 1 Then + MsgBox("Es können nicht mehrere Dateien hochgeladen werden!") + Exit Sub + End If + For Each W In FileList + If W.ToUpper.EndsWith(".PDF") Then + Try + + Dim bezeichnung = System.IO.Path.GetFileName(W).ToString + DS.uploadDataToDATENSERVER(W, bezeichnung, ".pdf") + + 'If DS.DATA_LIST.LIST.Count > 0 Then + ' Dim l As VERAG_PROG_ALLGEMEIN.cDatenarchiv_Collection = DS.DATA_LIST.LIST(DS.DATA_LIST.LIST.Count - 1) + ' RaiseEvent FileAdded(l.coll_id, l.coll_pfad, l.coll_bezeichnung) + 'End If + Catch ex As Exception + MsgBox("FEHLER: UserControl möglicherweise nicht initialisiert!" & ex.Message & ex.StackTrace) + End Try + End If + Next + initPdf() + End If + End If + End Sub + + + Sub showMulti(List As frmPDFScanList) + Try + List.listlOld.Visible = False + List.pnlOldHeader.Visible = False + List.FlowLayoutPanel.Controls.Clear() + List.listlOld.Controls.Clear() + Dim tmpHeight = 0 + For Each i In DS.DATA_LIST.LIST + Dim u As New usrCntLPDFScanSimple(i.coll_id, i.coll_pfad, i.coll_bezeichnung, i.coll_archiv) + AddHandler u.CLICKED, Sub() + List.Close() + End Sub + AddHandler u.DELETE, Sub(coll_id, coll_bezeichnung) + If vbYes = MsgBox("Möchten Sie die Datei '" & coll_bezeichnung & "' wirklich löschen?!? Die Daten gehen unwiederruflich verloren.", vbYesNoCancel, "Löschen") Then + 'getListItemAT Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id) + If Not DS.DELETE_LIST_POS(coll_id) Then + MsgBox("Fehler beim Löschen!") + End If + + 'DatenserverIDCollection.DELETE(id) + ' For Each c In DatenserverIDCollection.LIST + ' If c.da_id = id Then + ' DatenserverIDCollection.Remove(c) + ' Exit For + ' End If + ' Next + initPdf() + + List.Close() + End If + End Sub + + AddHandler u.RENAME, Sub(coll_id, coll_bezeichnung) + Dim bez = InputBox("Bitte geben Sie eine neue Bezeichnung ein:", , coll_bezeichnung) + If bez <> "" Then + For Each ii In DS.DATA_LIST.LIST + If ii.coll_id = coll_id Then + ii.coll_bezeichnung = bez + ii.UPDATE() + showMulti(List) + initPdf() + Exit Sub + End If + Next + End If + + End Sub + AddHandler u.ARCHIV, Sub(coll_id, coll_bezeichnung) + For Each ii In DS.DATA_LIST.LIST + If ii.coll_id = coll_id Then + ii.coll_archiv = Not ii.coll_archiv + ii.UPDATE() + showMulti(List) + List.PerformLayout() 'IRGENDWIE NEU LAYOUTEN() + initPdf() + Exit Sub + End If + Next + End Sub + + AddHandler u.CLIPBOARD, Sub(coll_id, coll_bezeichnung) + For Each ii In DS.DATA_LIST.LIST + If ii.coll_id = coll_id Then + 'Zwischenablage + Dim f() As String = {VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung)} + Dim d As New DataObject(DataFormats.FileDrop, f) + Clipboard.SetDataObject(d, True) + Exit Sub + End If + Next + List.Close() + End Sub + + + AddHandler u.OPEN_MAIL, Sub(coll_id, coll_bezeichnung) + For Each ii In DS.DATA_LIST.LIST + If ii.coll_id = coll_id Then + 'Mail + Try + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, ii.coll_bezeichnung & ".pdf") + Mail.Display() + Catch ex As Exception + MsgBox("Fehler beim Öffnen der Mail!") + End Try + End If + List.Close() + Next + End Sub + + If _ARCHIV And i.coll_archiv Then + List.listlOld.Controls.Add(u) + List.listlOld.Visible = True + tmpHeight += 23 + List.pnlOldHeader.Visible = True + Else + List.FlowLayoutPanel.Controls.Add(u) + End If + Next + List.listlOld.MinimumSize = (New Drawing.Size(List.listlOld.Width, tmpHeight)) + Catch ex As Exception + MsgBox("FEHLER: UserControl möglicherweise nicht initialisiert!") + End Try + End Sub + ' Private Sub toolScannen_Click(sender As Object, e As EventArgs) Handles toolScannen.Click + ' Process.Start(pdf_Path) + + ' End Sub + + + Private Sub DateiScannenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiScannenToolStripMenuItem.Click, ToolStripMenuItem1.Click + Try + If KdNr < 0 Then Exit Sub + Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("DirectScan") + frmScan.DefaultFileName = Me._TEXT_PDF + + If frmScan.ShowDialog(Me) = DialogResult.OK Then + If frmScan.ReturnValue IsNot Nothing Then + Dim Filename = _TEXT_PDF + If frmScan.fileName <> "" Then Filename = frmScan.fileName + ' If _MULTI_FILES Then Filename &= Now.ToString("_ddMMyyyy_HHmmss") + 'Dim path = DATENSERVER.uploadDataToDATENSERVER_fromBytes(frmScan.ReturnValue, "DOKUMENTE", _DATENSERVER_ORDNER, KdNr, Filename, ".pdf") + If DS.uploadDataToDATENSERVER_fromBytes(frmScan.ReturnValue, Filename, ".pdf") Then + If DS.DATA_LIST.LIST.Count > 0 Then + Dim l As VERAG_PROG_ALLGEMEIN.cDatenarchiv_Collection = DS.DATA_LIST.LIST(DS.DATA_LIST.LIST.Count - 1) + RaiseEvent FileAdded(l.coll_id, l.coll_pfad, l.coll_bezeichnung) + End If + End If + + + ' Me.ScanID = DATENSERVER.LAST_ID + ' Dim file As New FileInfo(frmScan.ReturnValue) + 'If file.Exists Then + ' Me.pdf_Path = path + 'DS.DATA_LIST.ADD(Path, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath( Filename,"") + + + 'End If + End If + End If + initPdf() + Catch ex As Exception + MsgBox("FEHLER: UserControl möglicherweise nicht initialisiert!") + End Try + End Sub + + Private Sub DateiHochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiHochladenToolStripMenuItem.Click, ToolStripMenuItem2.Click + Try + If _MULTI_FILES Then + If DS.uploadDataToDATENSERVERFileDialog_MULTI(, ".pdf", , "PDF") Then + initPdf() + End If + Else + If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then + If DS.DATA_LIST.LIST.Count > 0 Then + Dim l As VERAG_PROG_ALLGEMEIN.cDatenarchiv_Collection = DS.DATA_LIST.LIST(DS.DATA_LIST.LIST.Count - 1) + RaiseEvent FileAdded(l.coll_id, l.coll_pfad, l.coll_bezeichnung) + End If + End If + initPdf() + End If + + Catch ex As Exception + MsgBox("FEHLER: UserControl möglicherweise nicht initialisiert!" & ex.Message & ex.StackTrace) + End Try + End Sub + + Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click 'NUR WENN MULTI = FALSE + If vbYes = MsgBox("Möchten Sie die Datei wirklich löschen? Die Daten gehen unwiederruflich verloren.", vbYesNoCancel, "Löschen") Then + DS.DELETE_COMPLETE() + '''DATENSERVER.deleteFileByDatenarchivId(DatenserverIDCollection(0).da_id) + 'DatenserverIDCollection.DELETE(DatenserverIDCollection.LIST(0).coll_daId) + ''' DatenserverIDCollection.Clear() + initPdf() + End If + End Sub + + Private Sub usrcntlPDFScan_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseEnter, txt.MouseEnter, picPDF.MouseEnter + Try + If DS.DATA_LIST.LIST.Count > 0 Then Me.BackColor = Drawing.Color.LightGray + Catch ex As Exception + + End Try + End Sub + Private Sub usrcntlPDFScan_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave, txt.MouseLeave, picPDF.MouseLeave + Try + If Me.BackColor <> Drawing.Color.White Then Me.BackColor = Drawing.Color.White + Catch ex As Exception + + End Try + + End Sub + + Private Sub KopierenZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenZwischenablageToolStripMenuItem.Click + Try + If DS.DATA_LIST.LIST.Count > 0 Then + Dim f() As String = {VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(DS.DATA_LIST.LIST(0).coll_pfad, DS.DATA_LIST.LIST(0).coll_bezeichnung)} + Dim d As New DataObject(DataFormats.FileDrop, f) + Clipboard.SetDataObject(d, True) + End If + Catch ex As Exception + MsgBox("Fehler beim Laden der Daten!") + End Try + End Sub + + Private Sub AlsEMailSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlsEMailSendenToolStripMenuItem.Click + Try + If DS.DATA_LIST.LIST.Count > 0 Then + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(DS.DATA_LIST.LIST(0).coll_pfad, DS.DATA_LIST.LIST(0).coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + Mail.Display() + End If + Catch ex As Exception + MsgBox("Fehler beim Öffnen der Mail!") + End Try + End Sub + + 'Private Sub ArchivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ArchivierenToolStripMenuItem.Click + ' Try + ' If DS.DATA_LIST.LIST.Count > 0 Then + ' DS.DATA_LIST.LIST(0).coll_archiv = Not DS.DATA_LIST.LIST(0).coll_archiv + ' DS.DATA_LIST.LIST(0).UPDATE() + ' initPdf() + ' Exit Sub + ' End If + ' Catch ex As Exception + ' MsgBox("Fehler beim Archivieren!") + ' End Try + 'End Sub +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb new file mode 100644 index 0000000..5d2f405 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb @@ -0,0 +1,155 @@ + _ +Partial Class usrcntlPDFScanList + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.picAdd = New System.Windows.Forms.PictureBox() + Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() + Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AlsEmailSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cntxtMulti.SuspendLayout() + CType(Me.picAdd, System.ComponentModel.ISupportInitialize).BeginInit() + Me.cntxt.SuspendLayout() + Me.SuspendLayout() + ' + 'cntxtMulti + ' + Me.cntxtMulti.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.cntxtMulti.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2}) + Me.cntxtMulti.Name = "cntxt" + Me.cntxtMulti.Size = New System.Drawing.Size(181, 48) + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.scanner + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(180, 22) + Me.ToolStripMenuItem1.Text = "+ Datei scannen..." + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.pdf + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(180, 22) + Me.ToolStripMenuItem2.Text = "+ Datei hochladen..." + ' + 'picAdd + ' + Me.picAdd.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.plus + Me.picAdd.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picAdd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.picAdd.Location = New System.Drawing.Point(96, 0) + Me.picAdd.Name = "picAdd" + Me.picAdd.Size = New System.Drawing.Size(23, 17) + Me.picAdd.TabIndex = 3 + Me.picAdd.TabStop = False + ' + 'MyListBox1 + ' + Me.MyListBox1._value = "" + Me.MyListBox1.Cursor = System.Windows.Forms.Cursors.Default + Me.MyListBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyListBox1.FormattingEnabled = True + Me.MyListBox1.Location = New System.Drawing.Point(0, 0) + Me.MyListBox1.Margin = New System.Windows.Forms.Padding(0) + Me.MyListBox1.Name = "MyListBox1" + Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended + Me.MyListBox1.Size = New System.Drawing.Size(118, 64) + Me.MyListBox1.TabIndex = 4 + ' + 'UmbenennenToolStripMenuItem + ' + Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem" + Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.UmbenennenToolStripMenuItem.Text = "Umbenennen" + ' + 'KopierenZwischenablageToolStripMenuItem + ' + Me.KopierenZwischenablageToolStripMenuItem.Name = "KopierenZwischenablageToolStripMenuItem" + Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)" + ' + 'AlsEmailSendenToolStripMenuItem + ' + Me.AlsEmailSendenToolStripMenuItem.Name = "AlsEmailSendenToolStripMenuItem" + Me.AlsEmailSendenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.AlsEmailSendenToolStripMenuItem.Text = "Als Email senden" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(214, 6) + ' + 'LöschenToolStripMenuItem + ' + Me.LöschenToolStripMenuItem.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.del + Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem" + Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.LöschenToolStripMenuItem.Text = "Löschen" + ' + 'cntxt + ' + Me.cntxt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.ToolStripSeparator1, Me.KopierenZwischenablageToolStripMenuItem, Me.AlsEmailSendenToolStripMenuItem}) + Me.cntxt.Name = "cntxt" + Me.cntxt.Size = New System.Drawing.Size(218, 120) + ' + 'usrcntlPDFScanList + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.BackColor = System.Drawing.Color.White + Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.ContextMenuStrip = Me.cntxtMulti + Me.Controls.Add(Me.picAdd) + Me.Controls.Add(Me.MyListBox1) + Me.Cursor = System.Windows.Forms.Cursors.Default + Me.Margin = New System.Windows.Forms.Padding(0) + Me.Name = "usrcntlPDFScanList" + Me.Size = New System.Drawing.Size(118, 64) + Me.cntxtMulti.ResumeLayout(False) + CType(Me.picAdd, System.ComponentModel.ISupportInitialize).EndInit() + Me.cntxt.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents cntxtMulti As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents picAdd As System.Windows.Forms.PictureBox + Public WithEvents MyListBox1 As MyListBox + Friend WithEvents UmbenennenToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents KopierenZwischenablageToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents AlsEmailSendenToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As Windows.Forms.ToolStripSeparator + Friend WithEvents LöschenToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents cntxt As Windows.Forms.ContextMenuStrip +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.resx b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.resx new file mode 100644 index 0000000..cfdc3dc --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 129, 18 + + + 17, 17 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb new file mode 100644 index 0000000..e4059ae --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb @@ -0,0 +1,361 @@ +Imports System.Windows.Forms +Imports System.IO +Imports Microsoft.Office.Interop + +Public Class usrcntlPDFScanList + Public Property _DATENSERVER_KATEGORIE As String = "DOKUMENTE" + Public Property _DATENSERVER_ORDNER As String = "" + Public Property _DATENSERVER_UOrdner1 As String = "" + Public Property _DATENSERVER_UOrdner2 As String = "" + Public Property _DATENSERVER_UOrdner3 As String = "" + Public Property _OPEN_ORIGINAL As Boolean = False + + Private Property _TEXT_PDF As String = "SONSTIGE" + Private Property _MULTI_FILES As Boolean = True + + Public Property _TYPE As String = "PDF" + ' Public pdf_Path As String = "" + Dim KdNr As Integer = -1 + + 'Dim DATENSERVER As New cDATENSERVER + ' Public ScanID As Integer = -1 + Public COLL_ID As Integer = -1 + 'Dim DatenserverIDCollection As New cDatenserverIDCollectionList + Public DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER + + + Public Event FileAdded(id As String, path As String, name As String) + + Private Sub usrcntlPDFScan_Layout(sender As Object, e As LayoutEventArgs) Handles Me.Layout + ' Me.txt.Text = _TEXT_PDF + Me.MyListBox1.Dock = DockStyle.Fill + End Sub + + Public Sub INIT(KdNr) + Me.KdNr = KdNr + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", _DATENSERVER_ORDNER, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2, _DATENSERVER_UOrdner3, _TEXT_PDF, KdNr, _MULTI_FILES) + initPdf() + End Sub + + + Public Sub INIT(KdNr, _DATENSERVER_UOrdner1) + Me.KdNr = KdNr + Me._DATENSERVER_UOrdner1 = _DATENSERVER_UOrdner1 + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", _DATENSERVER_ORDNER, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2, _DATENSERVER_UOrdner3, _TEXT_PDF, KdNr, _MULTI_FILES) + initPdf() + End Sub + + Public Sub INIT(KdNr, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2) + Me.KdNr = KdNr + Me._DATENSERVER_UOrdner1 = _DATENSERVER_UOrdner1 + Me._DATENSERVER_UOrdner2 = _DATENSERVER_UOrdner2 + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", _DATENSERVER_ORDNER, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2, _DATENSERVER_UOrdner3, _TEXT_PDF, KdNr, _MULTI_FILES) + initPdf() + End Sub + + Public Sub INIT(KdNr, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2, _DATENSERVER_UOrdner3) + Me.KdNr = KdNr + Me._DATENSERVER_UOrdner1 = _DATENSERVER_UOrdner1 + Me._DATENSERVER_UOrdner2 = _DATENSERVER_UOrdner2 + Me._DATENSERVER_UOrdner3 = _DATENSERVER_UOrdner3 + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", _DATENSERVER_ORDNER, _DATENSERVER_UOrdner1, _DATENSERVER_UOrdner2, _DATENSERVER_UOrdner3, _TEXT_PDF, KdNr, _MULTI_FILES) + initPdf() + End Sub + + + Private Sub usrcntlPDFScan_Load(sender As Object, e As EventArgs) Handles Me.Load + ' Me.txt.Text = _TEXT_PDF + Me.AllowDrop = True + picAdd.ContextMenuStrip = cntxtMulti + MyListBox1.ContextMenuStrip = cntxt + ' Else + ' If DatenserverIDCollection.Count > 0 Then + 'pdf_Path = DATENSERVER.getPathById(ScanID) + + picAdd.Left = Me.Width - picAdd.Width - 2 + picAdd.Top = Me.Height - picAdd.Height - 2 + End Sub + + Public Fill + + ' Sub addId(id) + ' If id > 0 Then + ' ScanID = id + ' pdf_Path = DATENSERVER.getPathById(ScanID) + ' initPdf() + ' End If + ' End Sub + Public Sub initPdf() + MyListBox1.Items.Clear() + + KopierenZwischenablageToolStripMenuItem.Enabled = False + AlsEmailSendenToolStripMenuItem.Enabled = False + UmbenennenToolStripMenuItem.Enabled = False + + If DS.DATA_LIST.LIST.Count > 0 Then + For Each i In DS.DATA_LIST.LIST + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(i.coll_bezeichnung, i.coll_id)) + Next + KopierenZwischenablageToolStripMenuItem.Enabled = True + AlsEmailSendenToolStripMenuItem.Enabled = True + UmbenennenToolStripMenuItem.Enabled = True + + LöschenToolStripMenuItem.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Datenarchiv_DELETE", "SDL") + End If + + End Sub + + + + + + ' Private Sub toolScannen_Click(sender As Object, e As EventArgs) Handles toolScannen.Click + ' Process.Start(pdf_Path) + + ' End Sub + + + Private Sub DateiScannenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click + If KdNr < 0 Then Exit Sub + Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("DirectScan") + frmScan.DefaultFileName = Me._TEXT_PDF + If frmScan.ShowDialog(Me) = DialogResult.OK Then + If frmScan.ReturnValue IsNot Nothing Then + Dim Filename = _TEXT_PDF + If frmScan.fileName <> "" Then Filename = frmScan.fileName + ' If _MULTI_FILES Then Filename &= Now.ToString("_ddMMyyyy_HHmmss") + 'Dim path = DATENSERVER.uploadDataToDATENSERVER_fromBytes(frmScan.ReturnValue, "DOKUMENTE", _DATENSERVER_ORDNER, KdNr, Filename, ".pdf") + If DS.uploadDataToDATENSERVER_fromBytes(frmScan.ReturnValue, Filename, ".pdf") Then + If DS.DATA_LIST.LIST.Count > 0 Then + Dim l As VERAG_PROG_ALLGEMEIN.cDatenarchiv_Collection = DS.DATA_LIST.LIST(DS.DATA_LIST.LIST.Count - 1) + RaiseEvent FileAdded(l.coll_id, l.coll_pfad, l.coll_bezeichnung) + End If + End If + + + ' Me.ScanID = DATENSERVER.LAST_ID + ' Dim file As New FileInfo(frmScan.ReturnValue) + 'If file.Exists Then + ' Me.pdf_Path = path + 'DS.DATA_LIST.ADD(Path, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath( Filename,"") + + + 'End If + End If + End If + initPdf() + End Sub + + Private Sub DateiHochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click + If DS.uploadDataToDATENSERVERFileDialog_MULTI(, , , _TYPE) Then + initPdf() + End If + 'If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") <> "" Then + ' If DS.DATA_LIST.LIST.Count > 0 Then + ' Dim l As VERAG_PROG_ALLGEMEIN.cDatenarchiv_Collection = DS.DATA_LIST.LIST(DS.DATA_LIST.LIST.Count - 1) + ' RaiseEvent FileAdded(l.coll_id, l.coll_pfad, l.coll_bezeichnung) + ' End If + 'End If + + 'initPdf() + + ' Dim fd As New OpenFileDialog + ' fd.Filter = "PDF|*.PDF" + ' fd.DefaultExt = "pdf" + ' If fd.ShowDialog() = DialogResult.OK Then + 'Dim Filename = _TEXT_PDF + ' If _MULTI_FILES Then Filename &= Now.ToString("_ddMMyyyy_HHmmss") + ' Dim path = DATENSERVER.uploadDataToDATENSERVER(fd.FileName, "DOKUMENTE", _DATENSERVER_ORDNER, KdNr, Filename, ".pdf") + ' DatenserverIDCollection.ADD(DATENSERVER.LAST_ID, path, Filename) + ' RaiseEvent FileAdded(DATENSERVER.LAST_ID, path, Filename) + ' End If + End Sub + + Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click 'NUR WENN MULTI = FALSE + Try + If vbYes = MsgBox("Möchten Sie die '" & MyListBox1.SelectedItems.Count & "' selektierte(n) Datei(en) wirklich löschen? Die Daten gehen unwiederruflich verloren.", vbYesNoCancel, "Löschen") Then + For Each SI In MyListBox1.SelectedItems + Dim DelItem As VERAG_PROG_ALLGEMEIN.MyListItem = DirectCast(SI, VERAG_PROG_ALLGEMEIN.MyListItem) + DS.DELETE_LIST_POS(DelItem.Value) + Next + If DS.DATA_LIST.LIST.Count = 0 Then + DS.DELETE_COMPLETE() + End If + initPdf() + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub picAdd_Click(sender As Object, e As EventArgs) Handles picAdd.Click + cntxtMulti.Show(Windows.Forms.Cursor.Position) + End Sub + + Private Sub MyListBox1_DoubleClick(sender As Object, e As EventArgs) Handles MyListBox1.DoubleClick + Try + If _OPEN_ORIGINAL Then + Dim collId = DirectCast(MyListBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value + For Each i In DS.DATA_LIST.LIST + If i.coll_id = collId Then + Process.Start(i.coll_pfad) + Exit Sub + End If + Next + Else + DS.OPEN(DirectCast(MyListBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value,, True) + End If + + + ' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung) + + Catch ex As Exception + MsgBox("Fehler beim Öffnen!") + End Try + End Sub + + Private Sub MyListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles MyListBox1.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim i = MyListBox1.IndexFromPoint(e.X, e.Y) + If i > 0 Then + MyListBox1.SelectedIndex = i + If MyListBox1.SelectedItems.Count > 0 Then cntxt.Show(Windows.Forms.Cursor.Position) + Else + cntxt.Hide() + End If + End If + End Sub + + Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click + Try + If MyListBox1.SelectedItems.Count = 1 Then + Dim item As MyListItem = DirectCast(MyListBox1.SelectedItems(0), MyListItem) + Dim bez = InputBox("Bitte geben Sie eine neue Bezeichnung ein:", , item.Text) + If bez <> "" Then + For Each i In DS.DATA_LIST.LIST + If i.coll_id = item.Value Then + i.coll_bezeichnung = bez + i.UPDATE() + initPdf() + Exit Sub + End If + Next + End If + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Dim fired = False + Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean + Try + If keyData = (Keys.Control Or Keys.C) Then + KopierenZwischenablageToolStripMenuItem_Click(KopierenZwischenablageToolStripMenuItem, New EventArgs) + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + Private Sub KopierenZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenZwischenablageToolStripMenuItem.Click + Try + VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") + Dim f(MyListBox1.SelectedItems.Count - 1) As String + Dim cnt = 0 + If MyListBox1.SelectedItems.Count >= 1 Then + For Each SI In MyListBox1.SelectedItems + Dim item As MyListItem = DirectCast(SI, MyListItem) 'DirectCast(MyListBox1.SelectedItems(0), MyListItem) + For Each ii In DS.DATA_LIST.LIST + If ii.coll_id = item.Value Then + 'Dim f() As String = {ii.coll_pfad} + If ii.coll_pfad <> "" Then + f(cnt) = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung) + cnt += 1 + 'Exit For + End If + End If + Next + Next + 'Zwischenablage + Clipboard.Clear() + Dim d As New DataObject(DataFormats.FileDrop, f) + Clipboard.SetDataObject(d, True) + Exit Sub + End If + Catch ex As Exception + MsgBox("Fehler beim Laden der Daten!") + End Try + End Sub + + + Private Sub AlsEmailSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlsEmailSendenToolStripMenuItem.Click + Try + VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") + If MyListBox1.SelectedItems.Count >= 1 Then + Try + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + + For Each SI In MyListBox1.SelectedItems + Dim item As MyListItem = DirectCast(SI, MyListItem) 'DirectCast(MyListBox1.SelectedItems(0), MyListItem) + For Each ii In DS.DATA_LIST.LIST + If ii.coll_id = item.Value Then + If ii.coll_pfad <> "" Then + Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + End If + End If + Next + Next + + Mail.Display() + Catch ex As Exception + MsgBox("Fehler beim Öffnen der Mail!") + End Try + End If + Catch ex As Exception + MsgBox("Fehler beim Öffnen der Mail!") + End Try + End Sub + + + + Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter ', txt.DragEnter, Me.DragEnter, picPDF.DragEnter + e.Effect = DragDropEffects.All + End Sub + Private Sub txt_Click(sender As Object, e As DragEventArgs) Handles Me.DragDrop ', txt.DragDrop, Me.DragDrop, picPDF.DragDrop + If e.Data.GetDataPresent("FileDrop", True) = True Then + Dim FileList As String() = CType(e.Data.GetData("FileDrop"), Object) 'Hier wird der Variable "Wert" das übergeben, was wir auf die Form gezogen haben. Bei einer Datei wäre es dann der Pfad der Datei. + If FileList.Count > 0 Then + If Not _MULTI_FILES And FileList.Count > 1 Then + MsgBox("Es können nicht mehrere Dateien hochgeladen werden!") + Exit Sub + End If + For Each W In FileList + If W.ToUpper.EndsWith(".PDF") Then + Try + Dim bezeichnung = System.IO.Path.GetFileName(W).ToString + DS.uploadDataToDATENSERVER(W, bezeichnung, ".pdf") + 'Dim l As VERAG_PROG_ALLGEMEIN.cDatenarchiv_Collection = DS.DATA_LIST.LIST(DS.DATA_LIST.LIST.Count - 1) + 'RaiseEvent FileAdded(l.coll_id, l.coll_pfad, l.coll_bezeichnung) + 'If DS.DATA_LIST.LIST.Count > 0 Then + ' Dim l As VERAG_PROG_ALLGEMEIN.cDatenarchiv_Collection = DS.DATA_LIST.LIST(DS.DATA_LIST.LIST.Count - 1) + ' RaiseEvent FileAdded(l.coll_id, l.coll_pfad, l.coll_bezeichnung) + 'End If + Catch ex As Exception + MsgBox("FEHLER: UserControl möglicherweise nicht initialisiert!" & ex.Message & ex.StackTrace) + End Try + End If + Next + initPdf() + End If + End If + End Sub + + Private Sub cntxt_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cntxt.Opening + UmbenennenToolStripMenuItem.Visible = (MyListBox1.SelectedItems.Count = 1) + End Sub +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlSearch.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlSearch.Designer.vb new file mode 100644 index 0000000..ac6d4a1 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlSearch.Designer.vb @@ -0,0 +1,104 @@ + _ +Partial Class usrcntlSearch + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.dgvKundenAktiv = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.pnl = New System.Windows.Forms.Panel() + Me.DirectoryEntry1 = New System.DirectoryServices.DirectoryEntry() + Me.lblClose = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + CType(Me.dgvKundenAktiv, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'dgvKundenAktiv + ' + Me.dgvKundenAktiv.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvKundenAktiv.BackgroundColor = System.Drawing.Color.White + Me.dgvKundenAktiv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvKundenAktiv.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvKundenAktiv.Location = New System.Drawing.Point(0, 0) + Me.dgvKundenAktiv.Name = "dgvKundenAktiv" + Me.dgvKundenAktiv.Size = New System.Drawing.Size(564, 358) + Me.dgvKundenAktiv.TabIndex = 0 + ' + 'pnl + ' + Me.pnl.AutoSize = True + Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.Controls.Add(Me.dgvKundenAktiv) + Me.pnl.Controls.Add(Me.Panel1) + Me.pnl.Location = New System.Drawing.Point(2, 3) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(564, 374) + Me.pnl.TabIndex = 1 + ' + 'lblClose + ' + Me.lblClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblClose.AutoSize = True + Me.lblClose.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblClose.Font = New System.Drawing.Font("Arial Black", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblClose.ForeColor = System.Drawing.Color.Red + Me.lblClose.Location = New System.Drawing.Point(542, -5) + Me.lblClose.Margin = New System.Windows.Forms.Padding(0) + Me.lblClose.Name = "lblClose" + Me.lblClose.Size = New System.Drawing.Size(22, 23) + Me.lblClose.TabIndex = 17 + Me.lblClose.Text = "X" + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.SystemColors.InactiveCaption + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.lblClose) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel1.Location = New System.Drawing.Point(0, 358) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(564, 16) + Me.Panel1.TabIndex = 3 + ' + 'usrcntlSearch + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.MenuHighlight + Me.Controls.Add(Me.pnl) + Me.Name = "usrcntlSearch" + Me.Size = New System.Drawing.Size(570, 380) + CType(Me.dgvKundenAktiv, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents pnl As System.Windows.Forms.Panel + Public WithEvents dgvKundenAktiv As MyDatagridview + Friend WithEvents DirectoryEntry1 As System.DirectoryServices.DirectoryEntry + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Public WithEvents lblClose As System.Windows.Forms.Label + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlSearch.resx b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlSearch.resx new file mode 100644 index 0000000..c4fb810 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlSearch.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlSearch.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlSearch.vb new file mode 100644 index 0000000..af72cdc --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlSearch.vb @@ -0,0 +1,37 @@ +Imports System.Windows.Forms +Imports System.Drawing + +Public Class usrcntlSearch + Public Event DGV_Click(sender As Object, e As EventArgs) + Public Event DGV_KeyDown(sender As Object, e As KeyEventArgs) + Public Event CLOSE(sender As Object, e As EventArgs) + + Private Sub dgvKundenAktiv_Click(sender As Object, e As EventArgs) Handles dgvKundenAktiv.Click + RaiseEvent DGV_Click(sender, e) + + End Sub + + + Private Sub dgvFindKD_Click(sender As Object, e As KeyEventArgs) Handles dgvKundenAktiv.KeyDown + RaiseEvent DGV_KeyDown(sender, e) + End Sub + + + Private Sub usrcntlKdSearch_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged + Me.pnl.Location = New Point(2, 2) + Me.pnl.Size = New Size(Me.Width - 4, Me.Height - 4) + End Sub + + Private Sub lblClose_Click(sender As Object, e As EventArgs) Handles lblClose.Click + RaiseEvent CLOSE(sender, e) + End Sub + + Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) + Try + MyBase.OnPaint(e) + Catch ex As Exception + Me.Invalidate() + End Try + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlUnterposEntry.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlUnterposEntry.Designer.vb new file mode 100644 index 0000000..899a1d6 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlUnterposEntry.Designer.vb @@ -0,0 +1,67 @@ + _ +Partial Class usrcntlUnterposEntry + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblBezeichnung = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'txtAnzahl + ' + Me.txtAnzahl._numbersOnly = True + Me.txtAnzahl._Prozent = False + Me.txtAnzahl._ShortDateNew = False + Me.txtAnzahl._TimeOnly = False + Me.txtAnzahl._value = Nothing + Me.txtAnzahl._Waehrung = False + Me.txtAnzahl.Location = New System.Drawing.Point(3, 0) + Me.txtAnzahl.MaxLength = 2 + Me.txtAnzahl.Name = "txtAnzahl" + Me.txtAnzahl.Size = New System.Drawing.Size(28, 20) + Me.txtAnzahl.TabIndex = 106 + ' + 'lblBezeichnung + ' + Me.lblBezeichnung.AutoSize = True + Me.lblBezeichnung.Location = New System.Drawing.Point(37, 3) + Me.lblBezeichnung.Name = "lblBezeichnung" + Me.lblBezeichnung.Size = New System.Drawing.Size(28, 13) + Me.lblBezeichnung.TabIndex = 107 + Me.lblBezeichnung.Text = "TXT" + ' + 'usrcntlUnterposEntry + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.txtAnzahl) + Me.Controls.Add(Me.lblBezeichnung) + Me.Name = "usrcntlUnterposEntry" + Me.Size = New System.Drawing.Size(200, 20) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Public WithEvents txtAnzahl As VERAG_PROG_ALLGEMEIN.MyTextBox + Public WithEvents lblBezeichnung As System.Windows.Forms.Label + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlUnterposEntry.resx b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlUnterposEntry.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlUnterposEntry.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlUnterposEntry.vb b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlUnterposEntry.vb new file mode 100644 index 0000000..911ff56 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlUnterposEntry.vb @@ -0,0 +1,15 @@ +Public Class usrcntlUnterposEntry + ' Property AbfertigungsartNr = -1 + Property UnterPosArt = -1 + + Property Anzahl = 0 + + Private Sub txtAnzahl_LostFocus(sender As Object, e As EventArgs) Handles txtAnzahl.LostFocus + If IsNumeric(sender.text) Then + Anzahl = CInt(sender.text) + Else + Anzahl = 0 + sender.text = 0 + End If + End Sub +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb new file mode 100644 index 0000000..c50082f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb @@ -0,0 +1,115 @@ +Public Class cBerechtignunen + + + + Shared BER_LIST As New cBerechtigungsObjekte_List 'NEW = Laden + + ' Sub initBER() + ' BER_LIST = New cBerechtigungsObjekte_List + ' End Sub + + Public Shared Function CHECK_BERECHTIGUNG(Form_Berechtigung As System.Windows.Forms.Form) As Integer ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object + Return CHECK_BERECHTIGUNG(Form_Berechtigung.Name, Form_Berechtigung.GetType.Module.Name.Replace(".exe", "")) + End Function + + + Public Shared Function CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung As String, ME_Form As System.Windows.Forms.Form) As Integer ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object + Return CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, ME_Form.GetType.Module.Name.Replace(".exe", "")) + End Function + + Public Shared Function CHECK_BERECHTIGUNG_bool(Berechtigung_Bezeichnung As String, ME_Form As System.Windows.Forms.Form) As Boolean ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object + Try + + If ME_Form Is Nothing Then Return False + Dim prog = ME_Form.GetType.Module.Name.Replace(".exe", "") 'FEHLER + Return (CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog) = 0) + Catch ex As Exception + MsgBox("BERECHTIGUNGSERR: " & Berechtigung_Bezeichnung & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) + Return False + End Try + End Function + + Public Shared Function CHECK_BERECHTIGUNG_bool(Berechtigung_Bezeichnung As String, prog_Name As String) As Boolean ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object + Try + Return (CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog_Name) = 0) + Catch ex As Exception + MsgBox(ex.Message & vbNewLine & ex.StackTrace) + Return False + End Try + End Function + + Public Shared Function CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung As String, prog_Name As String) As Integer ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object + Dim SQL As New SQL + Dim prog_id = -1 + + Select Case prog_Name + Case "AVISO" + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + ' prog_id = 13 + ' Else + prog_id = 5 + 'End If + Case "SDL" + prog_id = 7 + Case Else + ' MsgBox("SELECT isnull([prog_id],0) FROM [tblProgramme] WHERe [prog_codename]='" & prog_Name & "'") + prog_id = SQL.getValueTxtBySql("SELECT isnull([prog_id],0) FROM [tblProgramme] WHERe [prog_codename]='" & prog_Name & "'", "ADMIN") + End Select + + Return CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog_id) + End Function + + Public Shared Function CHECK_BERECHTIGUNG(ber_bez As String, prog_Id As Integer) As Integer ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object + Try + If VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME = "" Then Return 0 + + Dim berechtigungsstufe As Integer = 99 + Dim benutzerBer As cBerechtigungenBenutzerGruppenZuordnung_List = VERAG_PROG_ALLGEMEIN.cAllgemein.BENUTZER_BERECHTIGUNGS_GRUPPEN + If benutzerBer Is Nothing Then + MsgBox("Ihrem Benutzerkonto wurden keine Berechtigungen zugeordnet!") + Return 0 + End If + + Dim found = False + For Each l In BER_LIST.LIST + If l.bero_bezeichnung.ToUpper = ber_bez.ToUpper And l.bero_progId = prog_Id Then + found = True : Exit For + End If + Next + If Not found Then 'Die Berechtigungszuorgnung ist nicht gegeben --> Zugriff verwehrt + MsgBox("Die Berechtigung '" & ber_bez & "' existiert nicht.") + Return 99 + End If + + For Each l In BER_LIST.LIST + If l.bero_bezeichnung.ToUpper = ber_bez.ToUpper And l.bero_progId = prog_Id Then + For Each ll In l.BER_OBJ_ZUORD 'Liste der BerechtignungGruppen im Berechtigungsonjekt + For Each b In benutzerBer.LIST + If b.berbgz_progId = prog_Id Then 'BenutzerProg = Prog + + If ll.beroz_berechtigungsstufe >= 100 Then Return ll.beroz_berechtigungsstufe 'Größer als 3 stellen --> immer priorität + + If ll.beroz_art = "G" And ll.beroz_bergrId = b.berbgz_bergrId Then 'GruppenBerchtigung + 'gefunden! + If ll.beroz_berechtigungsstufe < berechtigungsstufe Then berechtigungsstufe = ll.beroz_berechtigungsstufe + ElseIf ll.beroz_art = "N" And ll.Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then + If ll.beroz_berechtigungsstufe < berechtigungsstufe Then berechtigungsstufe = ll.beroz_berechtigungsstufe + ElseIf ll.beroz_art = "A" And ll.Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG Then + If ll.beroz_berechtigungsstufe < berechtigungsstufe Then berechtigungsstufe = ll.beroz_berechtigungsstufe + ElseIf ll.beroz_art = "B" And ll.beroz_bergrId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + Return ll.beroz_berechtigungsstufe 'Definitiv dem Benutzer zugeordnete Berechtigung!!!! + End If + End If + Next + Next + End If + Next + + Return berechtigungsstufe + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return 99 + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungenBenutzerGruppenZuordnung.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungenBenutzerGruppenZuordnung.vb new file mode 100644 index 0000000..0afc88e --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungenBenutzerGruppenZuordnung.vb @@ -0,0 +1,107 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cBerechtigungenBenutzerGruppenZuordnung_List + Public LIST As New List(Of cBerechtigungenBenutzerGruppenZuordnung) + Dim SQL As New SQL + 'Dim listTodelete As New List(Of cOfferte) + Dim mit_Id + Sub New(mit_Id) + LOAD_LIST(mit_Id) + End Sub + Public Sub CLEAR() + LIST.Clear() + End Sub + Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False) + ' Dim l As New cOfferte + 'l.eb_bcc = bcc + 'LIST.Add(l) + End Sub + + Public Sub LOAD_LIST(mit_Id) + Try + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT *,(SELECT [bergr_bezeichnung] FROM tblBerechtigungenGruppen WHERE [bergr_id]=[berbgz_bergrId]) as Gruppenbezeichnung FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE berbgz_mitId=@berbgz_mitId ", conn) 'SELECT * FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE berbgz_mitId=@berbgz_mitId", conn) + cmd.Parameters.AddWithValue("@berbgz_mitId", mit_Id) + ' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cBerechtigungenBenutzerGruppenZuordnung + 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_ZUORD() + LIST.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub +End Class + + + +Public Class cBerechtigungenBenutzerGruppenZuordnung + Property berbgz_id As Integer + Property berbgz_progId As Integer + Property berbgz_mitId As Integer + Property Gruppenbezeichnung As Object = Nothing + + Property berbgz_bergrId As Integer + + Dim SQL As New SQL + + 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("berbgz_id", berbgz_id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("berbgz_progId", berbgz_progId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("berbgz_mitId", berbgz_mitId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gruppenbezeichnung", Gruppenbezeichnung, , , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("berbgz_bergrId", berbgz_bergrId)) + Return list + End Function + + + Public Function INSERT() As String + Try + Dim list As List(Of SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not (i.isPrimaryParam Or i.isonlyForLoad) 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. ',' + ' MsgBox(" INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ") + SQL.doSQLVarListID(berbgz_id, " INSERT INTO tblBerechtigungenBenutzerGruppenZuordnung (" & str & ") VALUES(" & values & ") ", "ADMIN", , list) + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As String + Try + ' SQL.doSQL("DELETE FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE [berbgz_bergrId]=" & Me.bergr_id, "ADMIN") 'Zuerst die Zuordnungen + ' SQL.doSQL("DELETE FROM tblBerechtigungsObjekteZuordnung WHERE [beroz_art]='G' AND [beroz_bergrId]=" & Me.bergr_id, "ADMIN") 'Zuerst die Zuordnungen + SQL.doSQL("DELETE FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE berbgz_id=" & Me.berbgz_id, "ADMIN") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungenGruppen.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungenGruppen.vb new file mode 100644 index 0000000..88eca1a --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungenGruppen.vb @@ -0,0 +1,104 @@ +Imports System.Data.SqlClient +Imports System.Reflection + + + +Public Class cBerechtigungenGruppen_List + Property KundenNr As Object = Nothing + Public LIST As New List(Of cBerechtigungenGruppen) + Dim SQL As New SQL + Dim bergr_progId + + Sub New(bergr_progId) + LOAD_LIST(bergr_progId) + End Sub + + Public Sub CLEAR() + LIST.Clear() + End Sub + Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False) + ' Dim l As New cOfferte + 'l.eb_bcc = bcc + 'LIST.Add(l) + End Sub + + Public Sub LOAD_LIST(bergr_progId) + Try + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungenGruppen WHERE bergr_progId=@bergr_progId ORDER BY bergr_bezeichnung", conn) + cmd.Parameters.AddWithValue("@bergr_progId", bergr_progId) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cBerechtigungenGruppen + 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_ZUORD() + LIST.Add(l) + + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + +End Class + +Public Class cBerechtigungenGruppen + Property bergr_id As Integer + Property bergr_progId As Integer + Property bergr_bezeichnung As String + + Dim SQL As New SQL + ' Property BER_BENGR_ZUORD As List(Of cBerechtigungenBenutzerGruppenZuordnung) + + 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("bergr_id", bergr_id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bergr_progId", bergr_progId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bergr_bezeichnung", bergr_bezeichnung)) + Return list + End Function + + Public Function INSERT() As String + Try + Dim list As List(Of SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not (i.isPrimaryParam Or i.isonlyForLoad) 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. ',' + ' MsgBox(" INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ") + SQL.doSQLVarListID(bergr_id, " INSERT INTO tblBerechtigungenGruppen (" & str & ") VALUES(" & values & ") ", "ADMIN", , list) + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As String + Try + SQL.doSQL("DELETE FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE [berbgz_bergrId]=" & Me.bergr_id, "ADMIN") 'Zuerst die Zuordnungen + SQL.doSQL("DELETE FROM tblBerechtigungsObjekteZuordnung WHERE [beroz_art]='G' AND [beroz_bergrId]=" & Me.bergr_id, "ADMIN") 'Zuerst die Zuordnungen + SQL.doSQL("DELETE FROM tblBerechtigungenGruppen WHERE bergr_id=" & Me.bergr_id, "ADMIN") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungsObjekte.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungsObjekte.vb new file mode 100644 index 0000000..1b948d0 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungsObjekte.vb @@ -0,0 +1,207 @@ +Imports System.Data.SqlClient +Imports System.Reflection + + + + +Public Class cBerechtigungsObjekte_List + Public LIST As New List(Of cBerechtigungsObjekte) + Dim SQL As New SQL + 'Dim listTodelete As New List(Of cOfferte) + + Sub New() + LOAD_LIST() + End Sub + + Sub New(progID) + LOAD_LIST(progID) + End Sub + + Public Sub CLEAR() + LIST.Clear() + End Sub + Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False) + ' Dim l As New cOfferte + 'l.eb_bcc = bcc + 'LIST.Add(l) + End Sub + + Public Sub LOAD_LIST() + Try + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekte", conn) + ' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cBerechtigungsObjekte + 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_ZUORD() + LIST.Add(l) + + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Sub LOAD_LIST(bero_progId) + Try + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekte WHERE bero_progId=@bero_progId", conn) + cmd.Parameters.AddWithValue("@bero_progId", bero_progId) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cBerechtigungsObjekte + 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_ZUORD() + LIST.Add(l) + + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub +End Class + + +Public Class cBerechtigungsObjekte + Property bero_id As Integer + Property bero_progId As Integer + Property bero_bezeichnung As String + Property bero_art As String + + Property BER_OBJ_ZUORD As New List(Of cBerechtigungsObjekteZuordnung) + + Dim SQL As New SQL + + 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("bero_id", bero_id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bero_progId", bero_progId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bero_bezeichnung", bero_bezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bero_art", bero_art)) + Return list + End Function + + Public Sub LOAD() ' Wird eig nicht benötigt, da LIST + Try + BER_OBJ_ZUORD.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekte WHERE bero_id=@bero_id ", conn) + cmd.Parameters.AddWithValue("@bero_id", Me.bero_id) + ' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + 'Dim l As New cBerechtigungsObjekte + For Each i In Me.getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(i.Text)) + End If + Next + Me.LOAD_ZUORD() + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Sub LOAD_ZUORD() + ' MsgBox("a") + Try + BER_OBJ_ZUORD.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + ' Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekteZuordnung WHERE beroz_beroId=@beroz_beroId ", conn) + ' MsgBox(Me.bero_id) + Using cmd As New SqlCommand(" SELECT *, (CASE beroz_art " & + " WHEN 'G' THEN (SELECT [bergr_bezeichnung] FROM [ADMIN].[dbo].[tblBerechtigungenGruppen] WHERE beroz_bergrId=bergr_id ) " & + " WHEN 'B' THEN (SELECT [mit_username] FROM [ADMIN].[dbo].tblMitarbeiter WHERE beroz_bergrId=mit_id ) " & + " WHEN 'A' THEN (SELECT [abt_kuerzel] FROM [ADMIN].[dbo].tblAbteilungen WHERE beroz_bergrId=abt_id ) " & + " WHEN 'N' THEN (SELECT [nl_kuerzel] FROM [ADMIN].[dbo].tblNiederlassungen WHERE beroz_bergrId=nl_id ) " & + " END) as Bezeichnung " & + " FROM tblBerechtigungsObjekteZuordnung WHERE beroz_beroId=@beroz_beroId ORDER BY [beroz_art] desc, Bezeichnung", conn) + + cmd.Parameters.AddWithValue("@beroz_beroId", Me.bero_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cBerechtigungsObjekteZuordnung + 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 + BER_OBJ_ZUORD.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + + End Sub + + Public Function INSERT() As String + Try + Dim list As List(Of SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not (i.isPrimaryParam Or i.isonlyForLoad) 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. ',' + ' MsgBox(" INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ") + SQL.doSQLVarListID(bero_id, " INSERT INTO tblBerechtigungsObjekte (" & str & ") VALUES(" & values & ") ", "ADMIN", , list) + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As String + Try + SQL.doSQL("DELETE FROM [tblBerechtigungsObjekteZuordnung] WHERE [beroz_beroId]=" & Me.bero_id, "ADMIN") 'Zuerst die Zuordnungen + SQL.doSQL("DELETE FROM tblBerechtigungsObjekte WHERE bero_id=" & Me.bero_id, "ADMIN") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungsObjekteZuordnung.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungsObjekteZuordnung.vb new file mode 100644 index 0000000..4a00cef --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungsObjekteZuordnung.vb @@ -0,0 +1,87 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cBerechtigungsObjekteZuordnung + + Property beroz_id As Integer = -1 + Property beroz_beroId As Integer + Property beroz_bergrId As Integer + Property Bezeichnung As Object = Nothing + 'Property BenutzerBezeichnung As Object = Nothing + + Property beroz_art As String + Property beroz_berechtigungsstufe As Integer = -1 + Dim SQL As New SQL + + + 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("beroz_id", beroz_id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_beroId", beroz_beroId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_bergrId", beroz_bergrId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_art", beroz_art)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_berechtigungsstufe", beroz_berechtigungsstufe)) + + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GruppenBezeichnung", GruppenBezeichnung, , , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezeichnung", Bezeichnung, , , True)) + Return list + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekteZuordnung WHERE beroz_id=@beroz_id ", conn) + cmd.Parameters.AddWithValue("@beroz_id", beroz_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + Next + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Function INSERT() As String + Try + Dim list As List(Of SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not (i.isPrimaryParam Or i.isonlyForLoad) 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. ',' + ' MsgBox(" INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ") + SQL.doSQLVarListID(beroz_id, " INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ", "ADMIN", , list) + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As String + Try + SQL.doSQL("DELETE FROM tblBerechtigungsObjekteZuordnung WHERE beroz_id=" & Me.beroz_id, "ADMIN") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb new file mode 100644 index 0000000..928b95e --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -0,0 +1,1213 @@ +Imports System.Data.SqlClient + +Public Class SQL + Public Const LeerDatum As Date = #12/30/1899# + + Public Shared Function GetSDLConnectionString() As String + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Return My.MySettings.Default.SDLConnectionString + Else + Return My.MySettings.Default.SDL_PRODConnectionString + End If + End Function + Public Shared Function GetUIDConnectionString() As String + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Return My.MySettings.Default.UIDConnectionString + Else + Return My.MySettings.Default.UID_PRODConnectionString + End If + End Function + + + Public Shared Function GetADMINConnectionString() As String + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Return My.MySettings.Default.ADMINConnectionString + Else + Return My.MySettings.Default.ADMINConnectionString + End If + End Function + Public Shared Function GetFMZOLLConnectionString() As String + 'Properties.Settings.Default. + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Try + Return My.MySettings.Default.FMZOLLConnectionString + Catch ex As Exception + 'Return "Data Source=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" + Return "Data Source=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" + End Try + + + Else + Try + Return My.MySettings.Default.FMZOLL_PRODConnectionString + Catch ex As Exception + ' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" + Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" + End Try + End If + + + End Function + Public Shared Function GetWEBConnectionString() As String + 'Properties.Settings.Default. + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Return "Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG_HOMEPAGE;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" + ' Return "Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG_HOMEPAGE;Integrated Security=false;User ID=sa;Password=BmWr501956;" + Else + Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG_HOMEPAGE;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" + ' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG_HOMEPAGE;Integrated Security=false;User ID=sa;Password=BmWr501956;" + End If + + + End Function + + Public Shared Function GetFMZOLLConnectionString(TESTSYSTEM) As String + If TESTSYSTEM Then + Return My.MySettings.Default.FMZOLLConnectionString + Else + Try + Return My.MySettings.Default.FMZOLL_PRODConnectionString + Catch ex As Exception + ' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" + Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" + End Try + End If + End Function + + Public Shared Function GetFDConnectionString() As String + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Return My.MySettings.Default.FDConnectionString + Else + Return My.MySettings.Default.FD_PRODConnectionString + End If + End Function + Public Shared Function GetSCANCANONConnectionString() As String + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Return My.MySettings.Default.SCANCANON_PRODConnectionString + Else + Return My.MySettings.Default.SCANCANON_PRODConnectionString + End If + End Function + Public Shared Function GetATLASConnectionString() As String + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Return My.MySettings.Default.ATLASConnectionString + Else + Return My.MySettings.Default.ATLASConnectionString + End If + End Function + + Public Shared Function GetATLAS_SBGConnectionString() As String + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Return My.MySettings.Default.ATLAS_SBGConnectionString + Else + Return My.MySettings.Default.ATLAS_SBGConnectionString + End If + End Function + + + Public Shared Function GetEZOLLConnectionString() As String + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Return My.MySettings.Default.EZOLLConnectionString + Else + Return My.MySettings.Default.EZOLLConnectionString + End If + End Function + + + Public Shared Function GetAVISOConnectionString() As String + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Return My.MySettings.Default.AVISOConnectionStringTEST + Else + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + Return My.MySettings.Default.AVISO_ATILLAConnectionString + Else + Try + Return My.MySettings.Default.AVISOConnectionString + Catch ex As Exception + Return "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200" + End Try + End If + End If + End Function + + + Public Shared Function GetDISPOConnectionString() As String + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Return My.MySettings.Default.DISPOConnectionStringTEST + Else + Return My.MySettings.Default.DISPOConnectionString + End If + End Function + + + Public Shared Function GetNewOpenConnectionSDL(Optional pooling As Boolean = True) As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = GetSDLConnectionString() & IIf(pooling, "", ";pooling=false") + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + End Function + Public Shared Function GetNewOpenConnectionUID(Optional pooling As Boolean = True) As SqlConnection + Dim cn As New SqlConnection() + 'cn.ConnectionString = My.Resources.connStringSDL_DEV + ' IMMER DIE AKTUELLE CONNECTION IN MY.SETTINGS ÄNDERN!!! --> WG. BINDING + cn.ConnectionString = GetUIDConnectionString() & IIf(pooling, "", ";pooling=false") + cn.Open() + Return cn + End Function + + + Public Shared Function GetNewOpenConnectionADMIN() As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = GetADMINConnectionString() + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + + End Function + + + Public Shared Function GetNewOpenConnectionFD() As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = GetFDConnectionString() + cn.Open() + Return cn + End Function + Public Shared Function GetNewOpenConnectionFMZOLL(Optional pooling As Boolean = True) As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = GetFMZOLLConnectionString() & IIf(pooling, "", ";pooling=false") + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + End Function + Public Shared Function GetNewOpenConnectionWEB(Optional pooling As Boolean = True) As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = GetWEBConnectionString() & IIf(pooling, "", ";pooling=false") + + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + End Function + Public Shared Function GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM As Boolean, Optional pooling As Boolean = True) As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = GetFMZOLLConnectionString(TESTSYSTEM) & IIf(pooling, "", ";pooling=false") + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + End Function + Public Shared Function GetNewOpenConnectionSCANCANON(Optional pooling As Boolean = True) As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = GetSCANCANONConnectionString() & IIf(pooling, "", ";pooling=false") + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + End Function + + Public Shared Function GetNewOpenConnectionATLAS() As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = GetATLASConnectionString() + cn.Open() + Return cn + End Function + + Public Shared Function GetNewOpenConnectionATLAS_SBG() As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = GetATLAS_SBGConnectionString() + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + + End Function + + + Public Shared Function GetNewOpenConnectionATLAS_SUBorSBG() As SqlConnection + Dim cn As New SqlConnection() + Try + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = "SBG" Then + cn.ConnectionString = GetATLAS_SBGConnectionString() + Else + cn.ConnectionString = GetATLASConnectionString() + End If + + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + + End Function + + Public Shared Function GetNewOpenConnectionEZOLL() As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = GetEZOLLConnectionString() + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + End Function + + Public Shared Function GetNewOpenConnectionAVISO() As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = GetAVISOConnectionString() + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + End Function + + + Public Shared Function GetNewOpenConnectionDISPO() As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = GetDISPOConnectionString() + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + + End Function + Public Shared Function GetNewOpenConnectionAVISO_ATILLA() As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = My.MySettings.Default.AVISO_ATILLAConnectionString + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + + End Function + + Public Shared Function GetNewOpenConnectionFMZOLLREAL() As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = My.MySettings.Default.FMZOLL_PRODConnectionString + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + + End Function + + + + Public Shared Function isNullNothing(o) As Object + If o Is Nothing Then Return o + If o Is DBNull.Value Then Return Nothing + If o.ToString = "" Then Return Nothing + Return o + End Function + + Function isleernothing(s) As Object + Return isNullNothing(s) + End Function + + Public Shared Function isNullNothingDbl(o) As Object + If o Is Nothing Then Return o + If o.ToString = "" Then Return Nothing + Return CDbl(o) + End Function + + Public Shared Function isNullDBNull(o) As Object + If o Is Nothing Then Return DBNull.Value + If o.ToString = "" Then Return DBNull.Value + Return o + End Function + + + Function IsNull(o) As Boolean + Try + If o Is Nothing Then Return True + If o Is DBNull.Value Then Return True + If o.ToString.Trim = "" Then Return True + Catch : End Try + Return False + End Function + + Function isleernothingDateFormatstring(o) As Object + If o Is Nothing Then Return o + If o.ToString = "" Then Return Nothing + If IsDate(o) Then Return CDate(o).ToShortDateString + Return Nothing + End Function + + Public Function loadDgvBySql(ByVal sql As String, Optional conn_art As String = "SDL", Optional timeout As Integer = 0, Optional showerror As Boolean = True) As DataTable + Try + Dim myTable = New DataTable() + Dim conn As New SqlConnection + Select Case conn_art + Case "SDL" : conn = GetNewOpenConnectionSDL() + Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() + Case "ADMIN" : conn = GetNewOpenConnectionADMIN() + Case "DISPO" : conn = GetNewOpenConnectionDISPO() + Case "ATLAS" : conn = GetNewOpenConnectionATLAS() + Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() + Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() + Case "AVISO" : conn = GetNewOpenConnectionAVISO() + Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() + Case "FD" : conn = GetNewOpenConnectionFD() + Case "WEB" : conn = GetNewOpenConnectionWEB() + + Case "AVISO_ATILLA" + conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" + conn.Open() + End Select + ' MsgBox(cAllgemein.TESTSYSTEM) + ' Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + If timeout > 0 Then cmd.CommandTimeout = timeout 'Seconds + Dim dr As SqlDataReader = cmd.ExecuteReader() + + myTable.Load(dr) + dr.Close() + End Using + conn.Close() + ' End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + If showerror Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , "WiedergestellungsDatum Fehler", , , sql) + End Try + + Return Nothing + + End Function + Public Function loadCboBySql(ByVal sql As String, Optional conn_art As String = "SDL") As List(Of Object) + + + Dim o As New List(Of Object) + Try + Dim conn As New SqlConnection + Select Case conn_art + Case "SDL" : conn = GetNewOpenConnectionSDL() + Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() + Case "ADMIN" : conn = GetNewOpenConnectionADMIN() + Case "DISPO" : conn = GetNewOpenConnectionDISPO() + Case "ATLAS" : conn = GetNewOpenConnectionATLAS() + Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() + Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() + Case "AVISO" : conn = GetNewOpenConnectionAVISO() + Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() + Case "WEB" : conn = GetNewOpenConnectionWEB() + End Select + + ' Using conn As SqlConnection = GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read + o.Add(dr.Item(0)) + End While + dr.Close() + End Using + conn.Close() + ' End Using + Return o 'While Schleife wird hier verlassen + 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 loadCboBySqlWithListItem(ByVal sql As String, Optional showValueInText As Boolean = True, Optional conn_art As String = "SDL") As List(Of MyListItem) + Dim o As New List(Of MyListItem) + Try + Dim conn As New SqlConnection + Select Case conn_art + Case "SDL" : conn = GetNewOpenConnectionSDL() + Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() + Case "ADMIN" : conn = GetNewOpenConnectionADMIN() + Case "ATLAS" : conn = GetNewOpenConnectionATLAS() + Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() + Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() + Case "AVISO" : conn = GetNewOpenConnectionAVISO() + Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() + Case "DISPO" : conn = GetNewOpenConnectionDISPO() + Case "WEB" : conn = GetNewOpenConnectionWEB() + End Select + + Using cmd As New SqlCommand(sql, conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read + If showValueInText Then + o.Add(New MyListItem(dr.Item(0) & " - " & dr.Item(1), dr.Item(0))) + Else + Try + Dim item1 = dr.Item(1) 'Sonst ist der fehelr im mylistitem + o.Add(New MyListItem(item1, dr.Item(0))) + Catch ex As Exception + o.Add(New MyListItem(dr.Item(0), dr.Item(0))) + End Try + End If + + End While + dr.Close() + End Using + conn.Close() + + Return o 'While Schleife wird hier verlassen + 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 DLookup(srchField, table, where, Optional conn_art = "SDL", Optional nullvalue = "") As Object + Return getValueTxtBySql("SELECT isnull(" & srchField & ",'" & nullvalue & "') FROM " & table & " WHERE " & where & "", conn_art,,, nullvalue) + End Function + + + Function DLookupArray(srchField, table, where, Optional conn_art = "SDL") As List(Of String) + Dim list As New List(Of String) + Dim dt = loadDgvBySql("SELECT " & srchField & " FROM " & table & " WHERE " & where & "", conn_art) + If dt IsNot Nothing Then + For Each r As DataRow In dt.Rows + list.Add(r(srchField)) + Next + End If + Return list + End Function + + + Public Function getValueTxtBySql(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional defaultReturn As Object = "") As String + + Try + If conn Is Nothing Then + conn = New SqlConnection + Select Case conn_art + Case "SDL" : conn = GetNewOpenConnectionSDL() + Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() + Case "ADMIN" : conn = GetNewOpenConnectionADMIN() + Case "DISPO" : conn = GetNewOpenConnectionDISPO() + Case "ATLAS" : conn = GetNewOpenConnectionATLAS() + Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() + Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() + Case "AVISO" : conn = GetNewOpenConnectionAVISO() + Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() + Case "SCANCANON" : conn = GetNewOpenConnectionSCANCANON() + Case "WEB" : conn = GetNewOpenConnectionWEB() + + End Select + End If + + Using cmd As New SqlCommand(sql, conn) + If List IsNot Nothing Then + For Each i In List + 'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + cmd.Parameters.AddWithValue("@" & i.Text.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + Next + End If + Dim dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + If Not dr.Item(0) Is DBNull.Value Then + defaultReturn = CStr(dr.Item(0)) + End If + End If + dr.Close() + End Using + conn.Close() + + Return defaultReturn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & conn.ConnectionString, System.Reflection.MethodInfo.GetCurrentMethod.Name & sql) + End Try + 'MsgBox("3") + Return defaultReturn + End Function + + Public Function getValueTxtBySqlVarList(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of SQLVariable) = Nothing, Optional defaultReturn As Object = "") As String + Dim s As String = defaultReturn + Try + 'MsgBox("1") + Dim conn As New SqlConnection + Select Case conn_art + Case "SDL" : conn = GetNewOpenConnectionSDL() + Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() + Case "ADMIN" : conn = GetNewOpenConnectionADMIN() + Case "ATLAS" : conn = GetNewOpenConnectionATLAS() + Case "DISPO" : conn = GetNewOpenConnectionDISPO() + Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() + Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() + Case "AVISO" : conn = GetNewOpenConnectionAVISO() + Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() + Case "WEB" : conn = GetNewOpenConnectionWEB() + End Select + + Using cmd As New SqlCommand(sql, conn) + If List IsNot Nothing Then + For Each i In List + 'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + Next + End If + Dim dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + If Not dr.Item(0) Is DBNull.Value Then + s = CStr(dr.Item(0)) + End If + End If + dr.Close() + End Using + conn.Close() + + Return s + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + 'MsgBox("3") + Return defaultReturn + + End Function + Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing) As Boolean + + If conn Is Nothing Then + conn = New SqlConnection + Select Case conn_art + Case "SDL" : conn = GetNewOpenConnectionSDL() + Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() + Case "ADMIN" : conn = GetNewOpenConnectionADMIN() + Case "ATLAS" : conn = GetNewOpenConnectionATLAS() + Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() + Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() + Case "AVISO" : conn = GetNewOpenConnectionAVISO() + Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() + Case "DISPO" : conn = GetNewOpenConnectionDISPO() + Case "WEB" : conn = GetNewOpenConnectionWEB() + + Case "AVISO_ATILLA" + conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" + conn.Open() + End Select + End If + Try + ' MsgBox(sql) + Using cmd As New SqlCommand(sql, conn) + If list IsNot Nothing Then + For Each i In list + 'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + cmd.Parameters.AddWithValue("@" & i.Text.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + Next + End If + cmd.ExecuteNonQuery() + End Using + conn.Close() + Return True + Catch ex As Exception + If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , , , , sql) + End Try + Return False + End Function + + + Public Function doSQLVarList(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of SQLVariable) = Nothing) As Boolean + Dim conn As New SqlConnection + Select Case conn_art + Case "SDL" : conn = GetNewOpenConnectionSDL() + Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() + Case "ADMIN" : conn = GetNewOpenConnectionADMIN() + Case "ATLAS" : conn = GetNewOpenConnectionATLAS() + Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() + Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() + Case "AVISO" : conn = GetNewOpenConnectionAVISO() + Case "DISPO" : conn = GetNewOpenConnectionDISPO() + Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() + Case "WEB" : conn = GetNewOpenConnectionWEB() + End Select + Try + ' MsgBox(sql) + Using cmd As New SqlCommand(sql, conn) + If list IsNot Nothing Then + For Each i In list + 'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + Next + End If + cmd.ExecuteNonQuery() + End Using + conn.Close() + Return True + Catch ex As Exception + If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , , , , sql) + End Try + Return False + End Function + + Public Function doSQLVarListID(ByVal id As Integer, ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of SQLVariable) = Nothing, Optional returnSelectID As Boolean = False, Optional errHinweis As String = "", Optional showErrTimeout As Boolean = True, Optional timeout As Integer = 0) As Integer + + Dim conn As New SqlConnection + Select Case conn_art + Case "SDL" : conn = GetNewOpenConnectionSDL() + Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() + Case "ADMIN" : conn = GetNewOpenConnectionADMIN() + Case "ATLAS" : conn = GetNewOpenConnectionATLAS() + Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() + Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() + Case "AVISO" : conn = GetNewOpenConnectionAVISO() + Case "DISPO" : conn = GetNewOpenConnectionDISPO() + Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() + Case "WEB" : conn = GetNewOpenConnectionWEB() + End Select + Try + Using cmd As New SqlCommand(sql, conn) + If timeout > 0 Then cmd.CommandTimeout = timeout + If list IsNot Nothing Then + For Each i In list + 'If Not i.isonlyForLoad Then + + ' End If + cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + Next + End If + + If returnSelectID Then + Dim dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + If Not dr.Item(0) Is DBNull.Value Then + id = CStr(dr.Item(0)) + End If + End If + dr.Close() + Else + cmd.ExecuteNonQuery() + + If id <= 0 Then + Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn) + id = CInt(newcmd.ExecuteScalar) + End If + + End If + + 'Return True + End Using + conn.Close() + Catch ex As TimeoutException + If showErrTimeout Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & errHinweis, System.Reflection.MethodInfo.GetCurrentMethod.Name, , , , , sql) + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, If(showErr, ERROR_OP.SHOW, ERROR_OP.MAIL), , , , sql) + Return -2 + Catch ex As Exception + If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & errHinweis, System.Reflection.MethodInfo.GetCurrentMethod.Name, , , , , sql) + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, If(showErr, ERROR_OP.SHOW, ERROR_OP.MAIL), , , , sql) + Return -1 + End Try + Return id + End Function + + + Public Function loadDgvBySql_Param(ByVal sql As String, Optional conn_art As String = "SDL", Optional timeout As Integer = 0, Optional list As List(Of SQLVariable) = Nothing, Optional showErr As Boolean = True, Optional ByRef errOccured As Boolean = False) As DataTable + Try + Dim myTable = New DataTable() + Dim conn As New SqlConnection + Select Case conn_art + Case "SDL" : conn = GetNewOpenConnectionSDL() + Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() + Case "ADMIN" : conn = GetNewOpenConnectionADMIN() + Case "ATLAS" : conn = GetNewOpenConnectionATLAS() + Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() + Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() + Case "AVISO" : conn = GetNewOpenConnectionAVISO() + Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() + Case "WEB" : conn = GetNewOpenConnectionWEB() + End Select + + ' Using conn As SqlConnection = GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + If list IsNot Nothing Then + For Each i In list + 'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + Next + End If + If timeout > 0 Then cmd.CommandTimeout = timeout + Dim dr As SqlDataReader = cmd.ExecuteReader() + + myTable.Load(dr) + dr.Close() + End Using + conn.Close() + ' End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , , , , sql) + errOccured = True + End Try + + Return Nothing + End Function + + Function getFirmaWhere() + Dim where = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" : where &= " AND [FilialenNr]='5501' " + Case "UNISPED" : where &= " AND [FilialenNr]='5601' " + Case "AMBAR" : where &= " AND [FilialenNr]='5701' " + Case "FRONTOFFICE" : where &= " AND [FilialenNr]='5801' " + Case Else : where &= " AND isnull([FilialenNr],0) NOT IN ('5501','5601','5701','5801') " + End Select + Return where + End Function + Public Function getFMZOLLKdNrFromEORI(ByVal eori As String, eoriNL As String) As String + Dim s As String = "" + Dim where = getFirmaWhere() + + Try + Dim conn As SqlConnection = GetNewOpenConnectionFMZOLL() + Dim sqlStr = "" + If eoriNL <> "" Then + sqlStr = "SELECT Adressen.AdressenNr FROM Adressen INNER JOIN Kunden ON Adressen.AdressenNr = Kunden.KundenNr WHERE (([EORITIN] = '" & eori & "' AND EORITIN_NL ='" & eoriNL & "') OR ([EORITIN] + '0000' = '" & (eori & eoriNL).Replace(" ", "") & "')) " & where & " ORDER BY AdressenNr DESC" + Else + sqlStr = "SELECT Adressen.AdressenNr FROM Adressen INNER JOIN Kunden ON Adressen.AdressenNr = Kunden.KundenNr WHERE ( ([EORITIN] = '" & eori & "' AND EORITIN_NL ='" & eoriNL & "') OR [EORITIN] = '" & (eori & eoriNL).Replace(" ", "") & "') " & where & " order by EORITIN_NL desc, AdressenNr DESC" + End If + Using cmd As New SqlCommand(sqlStr, conn) + + Dim dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + Dim dt As New DataTable + dt.Load(dr) + If dt.Rows.Count > 1 Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW Then + MsgBox("Die EORI-Nr. " & eori & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", vbCritical) + End If + End If + s = dt.Rows(0).Item(0) + End If + dr.Close() + End Using + conn.Close() + + Return s + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + + + + Public Shared Function SQLDatumZeitSekunden(dat As Date) As String + 'Datum inklusive Zeit für SQLAbfrage umwandeln (31.01.1998 10:15 Uhr --> #1/31/1998 10:15:00#) + SQLDatumZeitSekunden = "" + If Not IsDate(dat) Then Exit Function + SQLDatumZeitSekunden = "'" & DateAndTime.Day(dat) & "." & DateAndTime.Month(dat) & "." & DateAndTime.Year(dat) & " " & + DateAndTime.Hour(dat) & ":" & DateAndTime.Minute(dat) & ":" & DateAndTime.Second(dat) & "'" + End Function + + Public Shared Function SQLNullDate(d As Date) As Object + 'Wenn Datum 00.00.0000, dann wird dbnull zurückgegeben + If d = New Date Then : SQLNullDate = DBNull.Value + Else : SQLNullDate = d : End If + End Function + + Public Shared Function VarToInt(ByVal wert As Object) As Integer + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return 0 + Else + Return CInt(wert) + End If + Catch generatedExceptionName As Exception + Return 0 + End Try + End Function + + + Public Shared Function VarToInt2(ByVal wert As Object) As Integer + Try + If wert Is Nothing OrElse wert Is DBNull.Value OrElse Not IsNumeric(wert) Then + Return -1 + Else + Return CInt(wert) + End If + Catch generatedExceptionName As Exception + Return -1 + End Try + End Function + + Public Shared Function VarToLng(ByVal wert As Object) As Long + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return 0 + Else + Return CLng(wert) + End If + Catch generatedExceptionName As Exception + Return 0 + End Try + End Function + + Public Shared Function VarToDbl(ByVal wert As Object) As Double + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return 0 + Else + Return CDbl(wert) + End If + Catch generatedExceptionName As Exception + Return 0 + End Try + End Function + + Public Shared Function checkNullReturnValue(ByVal o As Object, ByVal returnValue As Object) As Object + If o IsNot Nothing And o IsNot DBNull.Value Then Return (o) + Return returnValue + End Function + + Public Shared Function checkNullIntegerZero(ByVal o As Object) As Integer + If o IsNot Nothing And o IsNot DBNull.Value Then Return CInt(o) + Return 0 + End Function + Public Shared Function checkNulDbl(ByVal o As Object) As Double + If o IsNot Nothing And o IsNot DBNull.Value Then Return CDbl(o) + Return -1 + End Function + + Public Shared Function checkNullBool(ByVal o As Object) As Boolean + If o Is Nothing Or o Is DBNull.Value Then Return 0 + Try + Return CBool(o) + Catch ex As Exception + End Try + Return 0 + End Function + + Public Shared Function checkNullDateReturnValue(ByVal o As Object, ByVal returnValue As Object) As Object + If o IsNot Nothing And o IsNot DBNull.Value Then + If o.ToString <> "" AndAlso IsDate(o) Then + Return CDate(o) + End If + End If + Return returnValue + End Function + Public Shared Function checkNullDate(ByVal o As Object) As Date + If o IsNot Nothing And o IsNot DBNull.Value Then Return CDate(o) + Return Now + End Function + Public Shared Function checkNullDateNothing(ByVal o As Object) As Object + If o Is DBNull.Value Then + Return Nothing + Else + Return CDate(o) + End If + End Function + Public Shared Function checkNullInteger(ByVal o As Object) As Integer + If o IsNot Nothing And o IsNot DBNull.Value Then Return CInt(o) + Return -1 + End Function + Public Shared Function checkNullStr(ByVal o As Object) As String + If o IsNot Nothing And o IsNot DBNull.Value Then Return CStr(o) + Return "" + End Function + + + + + Public Shared Function isDbnullEmpty(o As Object, return_value As Object) As String + If IsDBNull(o) Then : isDbnullEmpty = return_value + ElseIf IsNothing(o) Then : isDbnullEmpty = return_value + Else : isDbnullEmpty = o.ToString + End If + End Function + Public Shared Function isDbnullEmptyCurr(o As Object, return_value As Object) As String + If IsDBNull(o) Then : isDbnullEmptyCurr = return_value + ElseIf IsNothing(o) Then : isDbnullEmptyCurr = return_value + Else : isDbnullEmptyCurr = CDbl(o).ToString("C") + End If + End Function + Public Shared Function isDbnullEmptyDbl(o As Object, kommastellen As Integer, return_value As Object) As String + If IsDBNull(o) Then : isDbnullEmptyDbl = return_value + ElseIf IsNothing(o) Then : isDbnullEmptyDbl = return_value + Else : isDbnullEmptyDbl = CDbl(o).ToString("N" & If(kommastellen > 0, kommastellen, "")) + End If + End Function + + + + Public Shared Function VarToBool(ByVal wert As Object) As Boolean + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return False + Else + Return CBool(wert) + End If + Catch generatedExceptionName As Exception + Return False + End Try + End Function + + Public Shared Function VarToStr(ByVal wert As Object) As String + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return "" + Else + Return Trim(DirectCast(wert, String)) + End If + Catch generatedExceptionName As Exception + Return "" + End Try + End Function + + Public Shared Function VarToDate(ByVal wert As Object) As Nullable(Of DateTime) + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return LeerDatum 'Nothing + Else + Return DirectCast(wert, DateTime) + End If + Catch generatedExceptionName As Exception + Return Nothing + End Try + End Function + + Public Shared Function IstGleich(i As Integer, ParamArray list As Integer()) As Boolean + 'prüft, ob ein Wert in einer Liste enthalten ist - z.B. i = 5 or 7 or 11 or 29 + For x As Integer = 0 To list.Length - 1 + If list(x) = i Then + Return True + End If + On Error Resume Next + Next + Return False + End Function + + Public Shared Function Minuten_auf_Text(hMinuten As Long) As String + Dim hStunden As Long + Dim hMinus As Boolean + Dim hMin As Long + + Minuten_auf_Text = "" + hMin = hMinuten + + If hMin = 0 Then + Minuten_auf_Text = "0:00" + Exit Function + End If + + If hMin < 0 Then + hMinus = True + hMin = hMin * -1 + End If + + hStunden = CLng(Fix(hMin / 60)) + hMin = hMin - (hStunden * 60) + If hMinus Then Minuten_auf_Text = "-" 'Minus wird nur bei Stunden angezeigt + Minuten_auf_Text = Minuten_auf_Text & hStunden & ":" & Format(hMin, "00") + End Function + + Public Shared Function ZeitInMinuten(hDat As Date) As Long + ZeitInMinuten = 0 + If Not IsDate(hDat) Then Exit Function + ZeitInMinuten = Hour(hDat) * 60 + Minute(hDat) + End Function + + + + + + Public Function getATLASKdNrFromZollNr(ByVal ZollNr As String) As String + Dim s As String = "" + Dim where = getFirmaWhere() + + Try + Dim conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL + Using cmd As New SqlCommand("SELECT Adressen.AdressenNr FROM Adressen INNER JOIN Kunden ON Adressen.AdressenNr = Kunden.KundenNr WHERE Zollnummer = '" & String.Format(ZollNr, "0000000") & "' " & where & " ORDER BY AdressenNr DESC", conn) + + Dim dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + Dim dt As New DataTable + dt.Load(dr) + If dt.Rows.Count > 1 Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW Then + MsgBox("Die Zollnummer " & ZollNr & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", vbCritical) + End If + End If + s = dt.Rows(0).Item(0) + End If + dr.Close() + End Using + conn.Close() + + Return s + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + Return "" + End Function + + Public Function getATLASNacherfassungAdresse(ByVal basman_nr As String, ByVal basman_nl As String, ByVal zbant_beznr As String, ByVal zbant_regnr As String, ByVal zbant_korant As String, zbadz_typ As Integer, connArt As String) As String + Dim s As String = "" + + Try + Dim conn As SqlConnection + Select Case connArt + Case "ATLAS" : conn = SQL.GetNewOpenConnectionATLAS + Case "ATLAS_SBG" : conn = SQL.GetNewOpenConnectionATLAS_SBG + End Select + Using cmd As New SqlCommand(" SELECT zbadz_name1, baslnd_alpha, zbadz_plz, zbadz_ort " & + " FROM zbadz WHERE basman_nr='" & basman_nr & "' And basman_nl='" & basman_nl & "' And zbant_beznr='" & zbant_beznr & "' And zbant_regnr='" & zbant_regnr & "' And zbant_korant='" & zbant_korant & "' And zbadz_typ='" & zbadz_typ & "' " & + " ORDER BY basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, zbadz_typ", conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + s = Left(Trim(dr.Item("zbadz_name1")) & Trim(", " & dr.Item("baslnd_alpha")) & Trim(", " & dr.Item("zbadz_plz")) & Trim(", " & dr.Item("zbadz_ort")), 50) + End If + dr.Close() + End Using + conn.Close() + + Return s + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + Return "" + End Function + + + Public Function getATLASNacherfassungAdresseNCTS(ByVal basman_nr As String, ByVal basman_nl As String, ByVal veoant_beznr As String, ByVal intLfdNr As String, ByVal intPosNr As String, lngTyp As String, connArt As String) As String + Dim s As String = "" + Try + Dim conn As SqlConnection = Nothing + Select Case connArt + Case "ATLAS" : conn = SQL.GetNewOpenConnectionATLAS + Case "ATLAS_SBG" : conn = SQL.GetNewOpenConnectionATLAS_SBG + End Select + If conn IsNot Nothing Then + + Using cmd As New SqlCommand("SELECT veoadr_name1, baslnd_alpha, veoadr_plz, veoadr_ort " & + " FROM veoadr WHERE basman_nr='" & basman_nr & "' And basman_nl='" & basman_nl & "' And veoant_beznr='" & veoant_beznr & "' " & + " And veoant_lfdnr=" & intLfdNr & " And veopos_posnr=" & intPosNr & " And veoadr_typ=" & lngTyp & " " & + " ORDER BY basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veopos_posnr, veoadr_typ ", conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + s = Left(Trim(dr.Item("veoadr_name1")) & Trim(", " & dr.Item("baslnd_alpha")) & Trim(", " & dr.Item("veoadr_plz")) & Trim(", " & dr.Item("veoadr_ort")), 50) + End If + dr.Close() + End Using + conn.Close() + + End If + Return s + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + Return "" + End Function + + Public Function getATLASNacherfassungAdresseFrombaskun(ByVal zollNr As String, ByVal basman_nr As String, ByVal basman_nl As String, connArt As String) As String() + Dim s(2) As String + s(0) = "" + s(1) = "" + Try + Dim conn As SqlConnection + Select Case connArt + Case "ATLAS" : conn = SQL.GetNewOpenConnectionATLAS + Case "ATLAS_SBG" : conn = SQL.GetNewOpenConnectionATLAS_SBG + End Select + + Using cmd As New SqlCommand(" SELECT TOP 1 baskun_nr, baskun_kurz,baskun_zbnr " & + " FROM baskun WHERE baskun_zbnr='" & zollNr & "' And basman_nr='" & basman_nr & "' And basman_nl='" & basman_nl & "' " & + " ORDER BY basman_nr, basman_nl, baskun_nr, baskun_lfd", conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + + s(0) = dr.Item("baskun_kurz").ToString + s(1) = dr.Item("baskun_nr").ToString + End If + dr.Close() + End Using + conn.Close() + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + Return s + End Function + + Public Function getATLASNacherfassungAdresseFrombaskunByKuNr(ByVal baskun_nr As String, ByVal basman_nr As String, ByVal basman_nl As String, connArt As String) As String() + Dim s(2) As String + s(0) = "" + s(1) = "" + Try + + Dim conn As SqlConnection + Select Case connArt + Case "ATLAS" : conn = SQL.GetNewOpenConnectionATLAS + Case "ATLAS_SBG" : conn = SQL.GetNewOpenConnectionATLAS_SBG + End Select + Using cmd As New SqlCommand(" SELECT TOP 1 baskun_nr, baskun_kurz, " & + " FROM baskun WHERE baskun_nr='" & baskun_nr & "' And basman_nr='" & basman_nr & "' And basman_nl='" & basman_nl & "' " & + " ORDER BY basman_nr, basman_nl, baskun_nr, baskun_lfd DESC", conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + s(0) = dr.Item("baskun_kurz").ToString + s(1) = dr.Item("baskun_nr").ToString + End If + dr.Close() + End Using + conn.Close() + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + Return s + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/SendFileTo.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/SendFileTo.vb new file mode 100644 index 0000000..b1bd569 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/SendFileTo.vb @@ -0,0 +1,206 @@ +Imports System +Imports System.Runtime.InteropServices +Imports System.IO +Imports System.Collections.Generic +Imports System.Windows.Forms + +Namespace SendFileTo + Public Class MAPI + Public Function AddRecipientTo(ByVal email As String) As Boolean + Return AddRecipient(email, howTo.MAPI_TO) + End Function + + Public Function AddRecipientCC(ByVal email As String) As Boolean + Return AddRecipient(email, howTo.MAPI_TO) + End Function + + Public Function AddRecipientBCC(ByVal email As String) As Boolean + Return AddRecipient(email, howTo.MAPI_TO) + End Function + + Public Sub AddAttachment(ByVal strAttachmentFileName As String) + m_attachments.Add(strAttachmentFileName) + End Sub + + Public Function SendMailPopup(ByVal strSubject As String, ByVal strBody As String) As Integer + Return SendMail(strSubject, strBody, MAPI_LOGON_UI Or MAPI_DIALOG) + End Function + + Public Function SendMailDirect(ByVal strSubject As String, ByVal strBody As String) As Integer + Return SendMail(strSubject, strBody, MAPI_LOGON_UI) + End Function + + + + Private Shared Function MAPISendMail(ByVal sess As IntPtr, ByVal hwnd As IntPtr, ByVal message As MapiMessage, ByVal flg As Integer, ByVal rsv As Integer) As Integer + End Function + + Private Function SendMail(ByVal strSubject As String, ByVal strBody As String, ByVal how As Integer) As Integer + Dim msg As MapiMessage = New MapiMessage() + msg.subject = strSubject + msg.noteText = strBody + + msg.recips = GetRecipients(msg.recipCount) + msg.files = GetAttachments(msg.fileCount) + + m_lastError = MAPISendMail(New IntPtr(0), New IntPtr(0), msg, how, 0) + If m_lastError > 1 Then + MessageBox.Show("MAPISendMail failed! " + GetLastError(), "MAPISendMail") + End If + + Cleanup(msg) + Return m_lastError + End Function + + Private Function AddRecipient(ByVal email As String, ByVal howTo As howTo) As Boolean + Dim recipient As MapiRecipDesc = New MapiRecipDesc() + + recipient.recipClass = CType(howTo, Integer) + recipient.name = email + m_recipients.Add(recipient) + + Return True + End Function + + Private Function GetRecipients(ByRef recipCount As Integer) As IntPtr + recipCount = 0 + If m_recipients.Count = 0 Then + Return 0 + End If + + Dim size As Integer = Marshal.SizeOf(GetType(MapiRecipDesc)) + Dim intPtr As IntPtr = Marshal.AllocHGlobal(m_recipients.Count * size) + + Dim ptr As Integer = CType(intPtr, Integer) + Dim mapiDesc As MapiRecipDesc + For Each mapiDesc In m_recipients + Marshal.StructureToPtr(mapiDesc, CType(ptr, IntPtr), False) + ptr += size + Next + + recipCount = m_recipients.Count + Return intPtr + End Function + + Private Function GetAttachments(ByRef fileCount As Integer) As IntPtr + fileCount = 0 + If m_attachments Is Nothing Then + Return 0 + End If + + If (m_attachments.Count <= 0) Or (m_attachments.Count > maxAttachments) Then + Return 0 + End If + + Dim size As Integer = Marshal.SizeOf(GetType(MapiFileDesc)) + Dim intPtr As IntPtr = Marshal.AllocHGlobal(m_attachments.Count * size) + + Dim mapiFileDesc As MapiFileDesc = New MapiFileDesc() + mapiFileDesc.position = -1 + Dim ptr As Integer = CType(intPtr, Integer) + + Dim strAttachment As String + For Each strAttachment In m_attachments + mapiFileDesc.name = Path.GetFileName(strAttachment) + mapiFileDesc.path = strAttachment + Marshal.StructureToPtr(mapiFileDesc, CType(ptr, IntPtr), False) + ptr += size + Next + + fileCount = m_attachments.Count + Return intPtr + End Function + + Private Sub Cleanup(ByRef msg As MapiMessage) + Dim size As Integer = Marshal.SizeOf(GetType(MapiRecipDesc)) + Dim ptr As Integer = 0 + + If msg.recips <> IntPtr.Zero Then + ptr = CType(msg.recips, Integer) + Dim i As Integer + For i = 0 To msg.recipCount - 1 Step i + 1 + Marshal.DestroyStructure(CType(ptr, IntPtr), GetType(MapiRecipDesc)) + ptr += size + Next + Marshal.FreeHGlobal(msg.recips) + End If + + If msg.files <> IntPtr.Zero Then + size = Marshal.SizeOf(GetType(MapiFileDesc)) + + ptr = CType(msg.files, Integer) + Dim i As Integer + For i = 0 To msg.fileCount - 1 Step i + 1 + Marshal.DestroyStructure(CType(ptr, IntPtr), GetType(MapiFileDesc)) + ptr += size + Next + Marshal.FreeHGlobal(msg.files) + End If + + m_recipients.Clear() + m_attachments.Clear() + m_lastError = 0 + End Sub + + Public Function GetLastError() As String + If m_lastError <= 26 Then + Return errors(m_lastError) + End If + Return "MAPI error [" + m_lastError.ToString() + "]" + End Function + + ReadOnly errors() As String = New String() {"OK [0]", "User abort [1]", "General MAPI failure [2]", "MAPI login failure [3]", "Disk full [4]", "Insufficient memory [5]", "Access denied [6]", "-unknown- [7]", "Too many sessions [8]", "Too many files were specified [9]", "Too many recipients were specified [10]", "A specified attachment was not found [11]", "Attachment open failure [12]", "Attachment write failure [13]", "Unknown recipient [14]", "Bad recipient type [15]", "No messages [16]", "Invalid message [17]", "Text too large [18]", "Invalid session [19]", "Type not supported [20]", "A recipient was specified ambiguously [21]", "Message in use [22]", "Network failure [23]", "Invalid edit fields [24]", "Invalid recipients [25]", "Not supported [26]"} + + Dim m_recipients As New List(Of MapiRecipDesc) + Dim m_attachments As New List(Of String) + Dim m_lastError As Integer = 0 + + Private Const MAPI_LOGON_UI As Integer = &H1 + Private Const MAPI_DIALOG As Integer = &H8 + Private Const maxAttachments As Integer = 20 + + Enum howTo + MAPI_ORIG = 0 + MAPI_TO + MAPI_CC + MAPI_BCC + End Enum + + End Class + + _ + Public Class MapiMessage + Public reserved As Integer + Public subject As String + Public noteText As String + Public messageType As String + Public dateReceived As String + Public conversationID As String + Public flags As Integer + Public originator As IntPtr + Public recipCount As Integer + Public recips As IntPtr + Public fileCount As Integer + Public files As IntPtr + End Class + + _ + Public Class MapiFileDesc + Public reserved As Integer + Public flags As Integer + Public position As Integer + Public path As String + Public name As String + Public type As IntPtr + End Class + + _ + Public Class MapiRecipDesc + Public reserved As Integer + Public recipClass As Integer + Public name As String + Public address As String + Public eIDSize As Integer + Public enTryID As IntPtr + End Class +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb new file mode 100644 index 0000000..63dc065 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb @@ -0,0 +1,320 @@ + +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cUSTVAntrag + + Property UStVAn_ID As Integer + Property UStVAn_KuNr As Object = Nothing ' INT Not NULL, + Property UStVAn_Name As Object = Nothing ' NVARCHAR(80) NULL, + Property UStVAn_Straße As Object = Nothing ' NVARCHAR(40) NULL, + Property UStVAn_LandKz As Object = Nothing ' NVARCHAR(3) NULL, + Property UStVAn_PLZ As Object = Nothing ' NVARCHAR(7) NULL, + Property UStVAn_Ort As Object = Nothing ' NVARCHAR(40) NULL, + Property UStVAn_Land As Object = Nothing ' NVARCHAR(22) NULL, + Property UStVAn_Gewerbe As Object = Nothing ' NVARCHAR(50) NULL, + Property UStVAn_Steuernummer As Object = Nothing ' NVARCHAR(20) NULL, + Property UStVAn_ReDatVon As Object = Nothing ' DATETIME Not NULL, + Property UStVAn_ReDatBis As Object = Nothing ' DATETIME Not NULL, + Property UStVAn_Bankverbindung As Object = Nothing ' NVARCHAR(50) NULL, + Property UStVAn_BLZ As Object = Nothing ' NVARCHAR(8) NULL, + Property UStVAn_KTO As Object = Nothing ' NVARCHAR(12) NULL, + Property UStVAn_Kontoinhaber As Object = Nothing ' NVARCHAR(50) NULL, + Property UStVAn_BIC As Object = Nothing ' NVARCHAR(11) NULL, + Property UStVAn_IBAN As Object = Nothing ' NVARCHAR(27) NULL, + Property UStVAn_Anlagen As Object = Nothing ' SMALLINT NULL, + Property UStVAn_Rechnungen As Object = Nothing ' SMALLINT NULL, + Property UStVAn_Einfuhrdokumente As Object = Nothing ' SMALLINT NULL, + Property UStVAn_Erklärung_9_a As Object = Nothing ' NVARCHAR(50) NULL, + Property UStVAn_Erklärung_9_b_1 As Object = Nothing ' BIT Default ((0)) Not NULL, + Property UStVAn_Erklärung_9_b_2 As Object = Nothing ' BIT Default ((0)) Not NULL, + Property UStVAn_Erklärung_9_b_3 As Object = Nothing ' BIT Default ((0)) Not NULL, + Property UStVAn_Ausstellungsort As Object = Nothing ' NVARCHAR(20) NULL, + Property UStVAn_Ausstellungsdatum As Object = Nothing ' DATETIME NULL, + Property UStVAn_Unterschrift As Object = Nothing ' NVARCHAR(20) NULL, + Property UStVAn_LandNr As Object = Nothing ' SMALLINT Default ((38)) Not NULL, + Property UStVAn_Beleganzahl As Object = Nothing ' SMALLINT NULL, + Property UStVAn_BeleganzahlRetourniert As Object = Nothing ' SMALLINT NULL, + Property UStVAn_Retournierungsgrund As Object = Nothing ' NVARCHAR(255) NULL, + Property UStVAn_AntragEingereichtAm As Object = Nothing ' DATETIME NULL, + Property UStVAn_BelegeWeitergeleitetAm As Object = Nothing ' DATETIME NULL, + Property UStVAn_Vertreter As Object = Nothing ' INT NULL, + Property UStVAn_BezugsNr As Object = Nothing ' NVARCHAR(35) NULL, + Property UStVAn_3470 As Object = Nothing ' MONEY NULL, + Property UStVAn_VZBetrag As Object = Nothing ' MONEY NULL, + Property UStVAn_VZDatum As Object = Nothing ' DATETIME NULL, + Property UStVAn_RZBetragVZ As Object = Nothing ' MONEY NULL, + Property UStVAn_RZDatumVZ As Object = Nothing ' DATETIME NULL, + Property FilialenNr As Object = Nothing ' SMALLINT NULL, + Property AbfertigungsNr As Object = Nothing ' INT NULL, + Property UStVAn_Währungscode As Object = Nothing ' NVARCHAR(3) NULL, + Property UStVAn_USteuerbetrag As Object = Nothing ' MONEY Default ((0)) NULL, + Property UStVAn_Erstattungsbetrag As Object = Nothing ' MONEY Default ((0)) NULL, + Property UStVAn_USteuerbetragEUR As Object = Nothing ' MONEY Default ((0)) NULL, + Property UStVAn_ErstattungsbetragEUR As Object = Nothing ' MONEY Default ((0)) NULL, + Property UStVAn_Sachbearbeiter As Object = Nothing ' NVARCHAR(15) NULL, + Property UStVAn_Zeitstempel As Object = Nothing ' DATETIME Default (getdate()) NULL, + + Property POSITIONEN As New List(Of cUStVPositionen) '= Nothing + + Dim SQL As New SQL + + Sub New() + End Sub + Sub New(UStVAn_ID) + Me.UStVAn_ID = UStVAn_ID + LOAD(UStVAn_ID) + 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("UStVAn_ID", UStVAn_ID,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_KuNr", UStVAn_KuNr)) ' INT Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Name", UStVAn_Name)) ' NVARCHAR(80) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Straße", UStVAn_Straße)) ' NVARCHAR(40) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_LandKz", UStVAn_LandKz)) ' NVARCHAR(3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_PLZ", UStVAn_PLZ)) ' NVARCHAR(7) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Ort", UStVAn_Ort)) ' NVARCHAR(40) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Land", UStVAn_Land)) ' NVARCHAR(22) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Gewerbe", UStVAn_Gewerbe)) ' NVARCHAR(50) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Steuernummer", UStVAn_Steuernummer)) ' NVARCHAR(20) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ReDatVon", UStVAn_ReDatVon)) ' DATETIME Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ReDatBis", UStVAn_ReDatBis)) ' DATETIME Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Bankverbindung", UStVAn_Bankverbindung)) ' NVARCHAR(50) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BLZ", UStVAn_BLZ)) ' NVARCHAR(8) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_KTO", UStVAn_KTO)) ' NVARCHAR(12) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Kontoinhaber", UStVAn_Kontoinhaber)) ' NVARCHAR(50) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BIC", UStVAn_BIC)) ' NVARCHAR(11) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_IBAN", UStVAn_IBAN)) ' NVARCHAR(27) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Anlagen", UStVAn_Anlagen)) ' SMALLINT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Rechnungen", UStVAn_Rechnungen)) ' SMALLINT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Einfuhrdokumente", UStVAn_Einfuhrdokumente)) ' SMALLINT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erklärung_9_a", UStVAn_Erklärung_9_a)) ' NVARCHAR(50) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erklärung_9_b_1", UStVAn_Erklärung_9_b_1)) ' BIT Default ((0)) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erklärung_9_b_2", UStVAn_Erklärung_9_b_2)) ' BIT Default ((0)) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erklärung_9_b_3", UStVAn_Erklärung_9_b_3)) ' BIT Default ((0)) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Ausstellungsort", UStVAn_Ausstellungsort)) ' NVARCHAR(20) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Ausstellungsdatum", UStVAn_Ausstellungsdatum)) ' DATETIME NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Unterschrift", UStVAn_Unterschrift)) ' NVARCHAR(20) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_LandNr", UStVAn_LandNr)) ' SMALLINT Default ((38)) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Beleganzahl", UStVAn_Beleganzahl)) ' SMALLINT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BeleganzahlRetourniert", UStVAn_BeleganzahlRetourniert)) ' SMALLINT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Retournierungsgrund", UStVAn_Retournierungsgrund)) ' NVARCHAR(255) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_AntragEingereichtAm", UStVAn_AntragEingereichtAm)) ' DATETIME NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BelegeWeitergeleitetAm", UStVAn_BelegeWeitergeleitetAm)) ' DATETIME NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Vertreter", UStVAn_Vertreter)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BezugsNr", UStVAn_BezugsNr)) ' NVARCHAR(35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_3470", UStVAn_3470)) ' MONEY NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_VZBetrag", UStVAn_VZBetrag)) ' MONEY NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_VZDatum", UStVAn_VZDatum)) ' DATETIME NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_RZBetragVZ", UStVAn_RZBetragVZ)) ' MONEY NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_RZDatumVZ", UStVAn_RZDatumVZ)) ' DATETIME NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr)) ' SMALLINT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Währungscode", UStVAn_Währungscode)) ' NVARCHAR(3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_USteuerbetrag", UStVAn_USteuerbetrag)) ' MONEY Default ((0)) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erstattungsbetrag", UStVAn_Erstattungsbetrag)) ' MONEY Default ((0)) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_USteuerbetragEUR", UStVAn_USteuerbetragEUR)) ' MONEY Default ((0)) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ErstattungsbetragEUR", UStVAn_ErstattungsbetragEUR)) ' MONEY Default ((0)) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Sachbearbeiter", UStVAn_Sachbearbeiter)) ' NVARCHAR(15) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Zeitstempel", UStVAn_Zeitstempel)) ' DATETIME Default (getdate()) NULL, + + + Return list + End Function + + Public Sub LOAD(UStVAn_ID, Optional loadPos = True) + Try + POSITIONEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblUStVAntrag WHERE UStVAn_ID=@UStVAn_ID ", conn) + cmd.Parameters.AddWithValue("@UStVAn_ID", UStVAn_ID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + 'Dim l As New cOfferte + For Each i In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(i.Text)) + End If + Next + If loadPos Then LOAD_POSITIONEN() + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Sub LOAD_POSITIONEN() + Try + POSITIONEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblUStVPositionen WHERE UStVAn_ID=@UStVAn_ID ", conn) + cmd.Parameters.AddWithValue("@UStVAn_ID", Me.UStVAn_ID) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cUStVPositionen + 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 + POSITIONEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + End Function + + Public Function SAVE() As Boolean + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVAntrag WITH(updlock,serializable) WHERE UStVAn_ID=@UStVAn_ID ) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Function getInsertCmd() As String + Try + 'Me.Eingegeben_am = Now + 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 tblUStVAntrag (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + 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 [tblUStVAntrag] SET " & str & " WHERE UStVAn_ID=@UStVAn_ID ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getMaxPosNr() As Integer + Try + Dim maxPosNr = -1 + + Return SQL.getValueTxtBySql("SELECT isnull(max([UStVPo_ID]),0)+1 FROM [tblUStVPositionen] where UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL",,, "1") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return -1 + End Function + + +End Class + + +Public Class cUStVPositionen + + Property UStVAn_ID As Integer + Property UStVPo_ID As Integer + Property UStVPo_ReDat As Object = Nothing ' DATETIME NULL, + Property UStVPo_ReNr As Object = Nothing ' NVARCHAR(20) NULL, + Property UStVPo_USteuerbetrag As Object = Nothing ' MONEY Not NULL, + Property UStVPo_Leistungsbezeichnung As Object = Nothing ' NVARCHAR(255) NULL, + Property UStVPo_Leistender As Object = Nothing ' NVARCHAR(65) NULL, + Property UStVPo_Schnittstelle As Object = Nothing ' BIT Default ((0)) Not NULL, + Property UStVPo_SchnittstellenNr As Object = Nothing ' SMALLINT Default ((0)) Not NULL, + Property UStVPo_Umrechnungskurs As Object = Nothing ' FLOAT(53) NULL, + Property UStVPo_USteuerbetragEUR As Object = Nothing ' MONEY NULL, + Property UStVPo_Sachbearbeiter As Object = Nothing ' NVARCHAR(15) NULL, + Property UStVPo_Zeitstempel As Object = Nothing ' DATETIME Default (getdate()) NULL, + + Dim SQL As New SQL + + Sub New() + 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("UStVAn_ID", UStVAn_ID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_ID", UStVPo_ID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_ReDat", UStVPo_ReDat)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_ReNr", UStVPo_ReNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_USteuerbetrag", UStVPo_USteuerbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Leistungsbezeichnung", UStVPo_Leistungsbezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Leistender", UStVPo_Leistender)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Schnittstelle", UStVPo_Schnittstelle)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_SchnittstellenNr", UStVPo_SchnittstellenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Umrechnungskurs", UStVPo_Umrechnungskurs)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_USteuerbetragEUR", UStVPo_USteuerbetragEUR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Sachbearbeiter", UStVPo_Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Zeitstempel", UStVPo_Zeitstempel)) + 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) + 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 tblUStVPositionen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/_BASE.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/_BASE.vb new file mode 100644 index 0000000..a0dc3f8 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/_BASE.vb @@ -0,0 +1,110 @@ + +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class _BASE + Property _BASE_id As Integer + Property _BASE_value As Object = Nothing + + + Public hasEntry = False + + Dim SQL As New SQL + + Sub New(_BASE_id) + Me._BASE_id = _BASE_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("_BASE_id", _BASE_id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("_BASE_value", _BASE_value)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTABLE WHERE _BASE_id=@_BASE_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTABLE WHERE _BASE_id=@_BASE_id ", conn) + cmd.Parameters.AddWithValue("@_BASE_id", _BASE_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [tblTABLE] SET " & str & " WHERE _BASE_id=@_BASE_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblTABLE (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbfertigungsarten.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbfertigungsarten.vb new file mode 100644 index 0000000..cd5bb5a --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbfertigungsarten.vb @@ -0,0 +1,7 @@ +Public Class cAbfertigungsarten + Shared SQLtmp As New SQL + Public Shared Function getAbfertigungsartBezById(abfArt As Integer) + Return SQLtmp.getValueTxtBySql("SELECT [Abfertigungsbezeichnung] FROM [Abfertigungsarten] WHERE [Abfertigungsart]=" & abfArt, "FMZOLL") + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb new file mode 100644 index 0000000..9479270 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb @@ -0,0 +1,221 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cAbgaben + + Property [Index] As Integer = -1 + + Property Status As Object = Nothing + Property ZollamtsNr As Object = Nothing + Property Jahr As Object = Nothing + Property KennNr As Object = Nothing + Property Nummer As Object = Nothing + Property Leitzahl As Object = Nothing + Property Belegart As Object = Nothing + Property LeistungsNr As Object = Nothing + Property Betrag As Object = Nothing + Property Eingabedatum As Object = Nothing + Property Abfertigungsdatum As Object = Nothing + Property Übernahmedatum As Object = Nothing + Property Bemerkung As Object = Nothing + Property Sachbearbeiter As Object = Nothing + Property Bezugsnummer As Object = Nothing + Property Registriernummer As Object = Nothing + Property Korrekturnummer As Object = Nothing + Property AOFD As Object = Nothing + Property AKTO As Object = Nothing + Property Fälligkeitsdatum As Object = Nothing + Property Dateiname As Object = Nothing + Property Mandant As Object = Nothing + Property Niederlassung As Object = Nothing + Property LeistungsBez As Object = Nothing + + + Public hasEntry As Boolean = False + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(Index) + If Index IsNot Nothing Then + Me.Index = Index + LOAD() + End If + End Sub + + Sub New(Registriernummer, Belegart, Betrag) + LOAD(Registriernummer, Belegart, Betrag) + End Sub + + + + Public 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("Index", [Index], , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", [Status])) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ZollamtsNr", ZollamtsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Jahr", Jahr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KennNr", KennNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nummer", Nummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leitzahl", Leitzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegart", Belegart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag", Betrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingabedatum", Eingabedatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Übernahmedatum", Übernahmedatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkung", Bemerkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezugsnummer", Bezugsnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Registriernummer", Registriernummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Korrekturnummer", Korrekturnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AOFD", AOFD)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AKTO", AKTO)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Dateiname", Dateiname)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant", Mandant)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Niederlassung", Niederlassung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez)) + + Return list + 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 Zkteing WITH(updlock,serializable) WHERE [Index]=@Index) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + [Index] = SQL.doSQLVarListID([Index], sqlstr, "FMZOLL", , list,, errHinweis) + Return [Index] > 0 + End Function + + Shared Function EXISTS(LeistungsNr, Betrag, Registriernummer, AOFD, AKTO, Fälligkeitsdatum) As Boolean + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag", Betrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Registriernummer", Registriernummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AOFD", AOFD)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AKTO", AKTO)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum)) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim count = SQL.getValueTxtBySqlVarList("SELECT count(*) FROM Zkteing WHERE LeistungsNr=@LeistungsNr AND Betrag=@Betrag AND Registriernummer=@Registriernummer AND AOFD=@AOFD AND AKTO=@AKTO AND Fälligkeitsdatum=@Fälligkeitsdatum ", "FMZOLL", list, 0) + Return (count > 0) + End Function + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Zkteing WHERE [Index]=@Index ", conn) + cmd.Parameters.AddWithValue("@Index", [Index]) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + hasEntry = True + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub LOAD(Registriernummer, Belegart, Betrag) + If Betrag Is Nothing Then Betrag = 0 + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Zkteing WHERE Registriernummer=@Registriernummer AND Belegart=@Belegart AND Betrag=@Betrag ", conn) + cmd.Parameters.AddWithValue("@Registriernummer", Registriernummer) + cmd.Parameters.AddWithValue("@Belegart", Belegart) + cmd.Parameters.AddWithValue("@Betrag", CDbl(Betrag)) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + hasEntry = True + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [Zkteing] SET " & str & " WHERE [Index]=@Index ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 Zkteing (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [Zkteing] WITH(updlock,serializable) WHERE [Index]=" & Me.[Index] + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Shared Function DELETE(id As Integer) As Boolean + Dim SQL As New SQL + Dim sqlstr = " DELETE FROM [Zkteing] WHERE [Index]=" & id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbrechnung_NCTSBrg.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbrechnung_NCTSBrg.vb new file mode 100644 index 0000000..c67f37f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbrechnung_NCTSBrg.vb @@ -0,0 +1,149 @@ + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cAbrechnung_NCTSBrg_LIST + Public LIST As New List(Of cAbrechnung_NCTSBrg) + + Sub New(abrg_Partner) + LOAD_LIST(abrg_Partner) + + End Sub + + Sub LOAD_LIST(abrg_Partner) + Try + LIST.Clear() + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("Select abrg_Id From [tblAbrechnung_NCTSBrg] Where [abrg_Partner] =@abrg_Partner order by abrg_GarantiewertBis", conn) + cmd.Parameters.AddWithValue("@abrg_Partner", abrg_Partner) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim L As New cAbrechnung_NCTSBrg(dr.Item("abrg_Id")) + LIST.Add(L) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + + End Sub +End Class +Public Class cAbrechnung_NCTSBrg + Property abrg_Id As Integer + Property abrg_Partner As String + Property abrg_artAbrechnung As String = "LKW" + Property abrg_GarantiewertBis As Decimal = 0 + Property abrg_bertrag As Decimal = 0 + Property abrg_prozent As Object = Nothing + + Public _ANZAHL As Integer = 0 + Public _BETRAG As Integer = 0 + + Public hasEntry = False + + Dim SQL As New SQL + + Sub New(abrg_Id) + Me.abrg_Id = abrg_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("abrg_Id", abrg_Id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_Partner", abrg_Partner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_artAbrechnung", abrg_artAbrechnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_GarantiewertBis", abrg_GarantiewertBis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_bertrag", abrg_bertrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_prozent", abrg_prozent)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblAbrechnung_NCTSBrg WHERE abrg_Id=@abrg_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblAbrechnung_NCTSBrg WHERE abrg_Id=@abrg_Id ", conn) + cmd.Parameters.AddWithValue("@abrg_Id", abrg_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [tblAbrechnung_NCTSBrg] SET " & str & " WHERE abrg_Id=@abrg_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblAbrechnung_NCTSBrg (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb new file mode 100644 index 0000000..168acb4 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb @@ -0,0 +1,296 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cAdressen + Property Auswahl As Object = Nothing + Property AdressenNr As Object = Nothing + Property Ordnungsbegriff As Object = Nothing + Property Name_1 As Object = Nothing + Property Name_2 As Object = Nothing + Property Postfach As Object = Nothing + Property PLZPF As Object = Nothing + Property Straße As Object = Nothing + Property LandKz As Object = Nothing + Property PLZ As Object = Nothing + Property Ort As Object = Nothing + Property Telefon As Object = Nothing + Property Telefax As Object = Nothing + Property Mobiltelefon As Object = Nothing + Property E_Mail As Object = Nothing + Property E_Mail2 As Object = Nothing + Property Anrede As Object = Nothing + Property Ansprechpartner As Object = Nothing + Property UstIdKz As Object = Nothing + Property UstIdNr As Object = Nothing + Property UstIdGeprüft As Object = Nothing + Property BLZ As Object = Nothing + Property KTO As Object = Nothing + Property Eingegeben_am As Object = Nothing + Property Geändert_am As Object = Nothing + Property Sachbearbeiter As Object = Nothing + Property Rechnungsdruck As Object = Nothing + Property Steuernummer As Object = Nothing + Property IDSKundenNr As Object = Nothing + Property WölflKundenNr As Object = Nothing + Property MSEKundenNr As Object = Nothing + Property MSEExportCSV As Object = Nothing + Property TELEPASS_Kd_Nr As Object = Nothing + Property ASFINAGExportCSV As Object = Nothing + Property UStV_GVAnfDat As Object = Nothing + Property UStV_GVAusDat As Object = Nothing + Property ExportMautberichtCSV As Object = Nothing + Property UTAKundenNr As Object = Nothing + Property UTAExportCSV As Object = Nothing + 'Property SSMA_TimeStamp As Object = Nothing + Property MWSTVorauszahlung As Object = Nothing + Property PLOSEKundenNr As Object = Nothing + + + Public hasEntry = False + Shared SQL As New SQL + + Sub New(AdressenNr) + Me.AdressenNr = AdressenNr + If AdressenNr <= 0 Then + INIT_NEWKD_DATA() + Else + LOAD() + End If + End Sub + + Public Function FullName() As String + Return (If(Name_1, "") & " " & If(Name_2, "")).ToString.Replace(" ", " ") + End Function + + Public Shared Function getHoechsteKdNr(NrKr_von As Integer, NrKr_bis As Integer) As Integer + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL(False) + + Using cmd As New SqlCommand("select isnull(min([AdressenNr]) +1," & NrKr_von & ") as AdressenNr from [Adressen] a INNER JOIN Kunden ON Kundennr=adressennr where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' AND not exists ( select * from [Adressen] b where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' and a.[AdressenNr] +1 = b.[AdressenNr]) AND KundenNr NOT IN (([AdressenNr]) +1) ", conn) + 'Using cmd As New SqlCommand("SELECT isnull(max([AdressenNr])," & NrKr_von & ") as AdressenNr FROM Adressen WHERE AdressenNr BETWEEN '" & NrKr_von & "' AND '" & NrKr_bis & "' ", conn) + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + If IsNumeric(dr.Item("AdressenNr")) Then Return (CInt(dr.Item("AdressenNr"))) + 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) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + Return -1 + End Function + + + 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("Mandant", Mandant)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Auswahl", Auswahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AdressenNr", AdressenNr, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ordnungsbegriff", Ordnungsbegriff)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name 1", Name_1, "Name_1")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name 2", Name_2, "Name_2")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Postfach", Postfach)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PLZPF", PLZPF)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Straße", Straße)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LandKz", LandKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PLZ", PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ort", Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telefon", Telefon)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telefax", Telefax)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mobiltelefon", Mobiltelefon)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("E-Mail", E_Mail, "E_Mail")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("E-Mail2", E_Mail2, "E_Mail2")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anrede", Anrede)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ansprechpartner", Ansprechpartner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstIdKz", UstIdKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstIdNr", UstIdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstIdGeprüft", UstIdGeprüft)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BLZ", BLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KTO", KTO)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingegeben am", Eingegeben_am, "Eingegeben_am")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geändert am", Geändert_am, "Geändert_am")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsdruck", Rechnungsdruck)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuernummer", Steuernummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IDSKundenNr", IDSKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("WölflKundenNr", WölflKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MSEKundenNr", MSEKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MSEExportCSV", MSEExportCSV)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TELEPASS-Kd-Nr", TELEPASS_Kd_Nr, "TELEPASS_Kd_Nr")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ASFINAGExportCSV", ASFINAGExportCSV)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_GVAnfDat", UStV_GVAnfDat)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_GVAusDat", UStV_GVAusDat)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ExportMautberichtCSV", ExportMautberichtCSV)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UTAKundenNr", UTAKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UTAExportCSV", UTAExportCSV)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MWSTVorauszahlung", MWSTVorauszahlung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PLOSEKundenNr", PLOSEKundenNr)) + + Return list + End Function + + Sub INIT_NEWKD_DATA() + If Me.Sachbearbeiter Is Nothing Then Me.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + Me.Eingegeben_am = Now.ToShortDateString + Me.Auswahl = "A" + Me.Rechnungsdruck = 0 + End Sub + + + + Function VALID(ByRef ERROR_TXT) As Boolean + If If(Ordnungsbegriff, "") = "" Then ERROR_TXT = "Bitte geben Sie einen Ordnungsbegriff ein!" : Return False + If If(Name_1, "") = "" Then ERROR_TXT = "Bitte geben Sie den Firmenwortlaut ein!" : Return False + If If(LandKz, "") = "" Then ERROR_TXT = "Bitte geben Sie das Land an!" : Return False + If If(Ort, "") = "" Then ERROR_TXT = "Bitte geben Sie den Ort an!" : Return False + If If(PLZ, "") = "" Then ERROR_TXT = "Bitte geben Sie die PLZ an!" : Return False + If If(Straße, "") = "" Then ERROR_TXT = "Bitte geben Sie die Straße an!" : Return False + Return True + End Function + + Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + If newFlag Then INIT_NEWKD_DATA() + If AdressenNr <= 0 Then + MsgBox("Fehler: KundenNr <= 0!") + Return False + End If + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Adressen WHERE AdressenNr=@AdressenNr) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + 'MsgBox(sqlstr) + + Dim id = SQL.doSQLVarListID(AdressenNr, sqlstr, "FMZOLL", , list,,, False, 2) + If id = -2 Then id = SQL.doSQLVarListID(AdressenNr, sqlstr, "FMZOLL", , list,,, False, 10) '2.Versuch --> Oft Timeout wg.Fmzoll + If id = -2 Then id = SQL.doSQLVarListID(AdressenNr, sqlstr, "FMZOLL", , list) '3.Versuch --> Oft Timeout wg.Fmzoll + + ' Dim id = SQL.doSQLVarListID(, sqlstr, "FMZOLL", , list) + If id > 0 Then AdressenNr = id 'Sonst wird beim Speichern mit Fehler -1 in die AdressenNr übergeben + Return id > 0 + End Function + + Public Sub LOAD() + Dim test = "" + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False) + Using cmd As New SqlCommand("SELECT * FROM Adressen WHERE AdressenNr=@AdressenNr ", conn) + cmd.Parameters.AddWithValue("@AdressenNr", AdressenNr) + + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + ' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text) + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + ' MsgBox(l.Text) + ' MsgBox(propInfo.PropertyType.ToString) + ' propInfo.SetValue(GetType(Object), l.Text) + + 'propInfo.SetValue(Me, l.Text) + + ' Try + test = l.Text + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + ' Catch ex As Exception + + ' End Try + + ' Me.GetType.GetProperty(l.Scalarvariable).setSetValue(GetType(Object), l.Text) + 'If propInfo IsNot Nothing Then + 'propInfo.SetValue(l.Scalarvariable, l.Text) + ' End If + Next + Me.hasEntry = True + End If + dr.Close() + End Using + End Using + 'Return Nothing + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox(test & "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + ' Return Nothing + End Sub + + + + Public Function doesOrdnungsbegriffExist() As Boolean + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False) + Using cmd As New SqlCommand("SELECT count(*) FROM Adressen WHERE Ordnungsbegriff=@Ordnungsbegriff ", conn) + cmd.Parameters.AddWithValue("@Ordnungsbegriff", Ordnungsbegriff) + + Dim dr = cmd.ExecuteReader() + If dr.Read Then + Return dr.Item(0) > 0 + End If + dr.Close() + End Using + End Using + 'Return Nothing + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + 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 & "," 'Text.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [Adressen] SET " & str & " WHERE AdressenNr=@AdressenNr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Shared Function getNewAdressenNr752000() As Integer + Return (New SQL).getValueTxtBySql("SELECT isnull(MAX (Adressennr),752000)+1 FROM [Adressen] where [AdressenNr]>752000 and [AdressenNr]<800000", "FMZOLL") + 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.isonlyForLoad Then 'And (Not i.isPrimaryParam OrElse i.Value > 0) Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," 'Text.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO Adressen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb new file mode 100644 index 0000000..4793c4a --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb @@ -0,0 +1,180 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cAvisoAnhaenge + Property anh_id As Integer + Property anh_AvisoId As Integer + Property anh_SendungsId As Object = Nothing + Property anh_Name As String + Property anh_docId As Integer + Property anh_Art As Object = Nothing + Property anh_Typ As String + Property anh_Reihenfolge As Integer = 99 + Property anh_LaufzettelDruck As Boolean = False + Property anh_GestellungslisteAnfuegen As Boolean = False + + + Public hasEntry As Boolean = False + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(anh_id) + ' If anh_id IsNot Nothing Then + Me.anh_id = anh_id + LOAD() + ' End If + End Sub + + Sub New(anh_AvisoId, anh_Name, anh_docId, anh_Art, anh_Typ, Optional anh_SendungsId = Nothing, Optional anh_Reihenfolge = 99) + Me.anh_AvisoId = anh_AvisoId + Me.anh_SendungsId = anh_SendungsId + Me.anh_Name = anh_Name + Me.anh_docId = anh_docId + Me.anh_Art = anh_Art + Me.anh_Typ = anh_Typ + Me.anh_Reihenfolge = anh_Reihenfolge + + End Sub + + + Public 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("anh_id", anh_id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_AvisoId", anh_AvisoId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_SendungsId", anh_SendungsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Name", anh_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_docId", anh_docId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Art", anh_Art)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Typ", anh_Typ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Reihenfolge", anh_Reihenfolge)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_LaufzettelDruck", anh_LaufzettelDruck)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_GestellungslisteAnfuegen", anh_GestellungslisteAnfuegen)) + + Return list + End Function + + + Shared Sub LOAD_LIST_ByAviso(ByRef ANH_LIST As List(Of cAvisoAnhaenge), anh_AvisoId As Integer) + If ANH_LIST Is Nothing Then ANH_LIST = New List(Of cAvisoAnhaenge) + ANH_LIST.Clear() + Dim SQL As New SQL + For Each r In SQL.loadDgvBySql("SELECT anh_id FROM tblAvisoAnhaenge WHERE anh_AvisoId=" & anh_AvisoId & " ORDER BY anh_Reihenfolge,anh_Name,anh_id", "AVISO").Rows + ANH_LIST.Add(New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(r("anh_id"))) + Next + ' If allowchangeCurrIndex Then CURRENT_INDEX = IIf(ANH_LIST.Count > 0, 0, -1) + End Sub + + Shared Sub LOAD_LIST_BySendung(ByRef ANH_LIST As List(Of cAvisoAnhaenge), anh_SendungsId As Integer) + If ANH_LIST Is Nothing Then ANH_LIST = New List(Of cAvisoAnhaenge) + ANH_LIST.Clear() + Dim SQL As New SQL + For Each r In SQL.loadDgvBySql("SELECT anh_id FROM tblAvisoAnhaenge WHERE anh_SendungsId=" & anh_SendungsId & " ORDER BY anh_Reihenfolge,anh_Name,anh_id", "AVISO").Rows + ANH_LIST.Add(New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(r("anh_id"))) + Next + ' If allowchangeCurrIndex Then CURRENT_INDEX = IIf(ANH_LIST.Count > 0, 0, -1) + End Sub + + 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 tblAvisoAnhaenge WITH(updlock,serializable) WHERE anh_id=@anh_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + anh_id = SQL.doSQLVarListID(anh_id, sqlstr, "AVISO", , list,, errHinweis) + Return anh_id > 0 + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO() + Using cmd As New SqlCommand("SELECT * FROM tblAvisoAnhaenge WHERE anh_id=@anh_id ", conn) + cmd.Parameters.AddWithValue("@anh_id", anh_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + hasEntry = True + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + 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 [tblAvisoAnhaenge] SET " & str & " WHERE anh_id=@anh_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblAvisoAnhaenge (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblAvisoAnhaenge] WITH(updlock,serializable) WHERE anh_id=" & Me.anh_id + Return SQL.doSQL(sqlstr, "AVISO") + End Function + + Public Shared Function DELETE(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblAvisoAnhaenge] WITH(updlock,serializable) WHERE anh_id=" & id + Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO") + End Function + + Public Shared Function toggleLaufzettelDruck(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " UPDATE [tblAvisoAnhaenge] SET [anh_LaufzettelDruck] = 1 - [anh_LaufzettelDruck] WHERE anh_id=" & id + Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO") + End Function + + Public Shared Function toggleGestellungslisteAnfuegen(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " UPDATE [tblAvisoAnhaenge] SET [anh_GestellungslisteAnfuegen] = 1 - [anh_GestellungslisteAnfuegen] WHERE anh_id=" & id + Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO") + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb new file mode 100644 index 0000000..feec3b3 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb @@ -0,0 +1,225 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cAvisoBenachrichtigungen + + + Property ab_id As Integer = -1 + Property ab_AvisoID As Integer = -1 + Property ab_SendungID As Object = Nothing + Property ab_Art As String + Property ab_Datum As Date + Property ab_Status As Integer + Property ab_BenachrichtigungCode As Integer + Property ab_Beschreibung As String + Property ab_Prioritaet As Integer + Property ab_Mitarbeiter As String + Property ab_MitarbeiterId As Integer + + Property ab_TO_Art As Object = Nothing + Property ab_TO_Code As Object = Nothing + Property ab_Bestaetigt_MaId As Object = Nothing + Property ab_Bestaetigt_Datum As Object = Nothing + + Property ab_Firma As Object = Nothing + Property ab_Cluster As Object = Nothing + Property ab_collAnhId As Object = Nothing + Property ab_Vermerk As Object = Nothing + + Shared SQL As New SQL + + Sub New() + End Sub + + ' ab_TO_Art + 'F..irma + 'N..iederlassung + 'A..bteilung + 'T..eam + 'B..enutzer + + Sub New(ab_id) + Me.ab_id = ab_id + LOAD() + End Sub + + Public Shared Function INSERT_BENACHRICHTIGUNG(ab_AvisoID As Integer, ab_SendungID As Object, ab_BenachrichtigungCode As Integer, Optional ab_TO_Art As Object = Nothing, Optional ab_TO_Code As Object = Nothing, Optional ab_Beschreibung As String = "", Optional ab_Prioritaet As Integer = 0, Optional ab_collAnhId As String = "", Optional ab_Vermerk As String = "") As Boolean + Dim AB As New cAvisoBenachrichtigungen + + AB.ab_AvisoID = ab_AvisoID + If ab_SendungID IsNot Nothing AndAlso ab_SendungID > 0 Then + AB.ab_SendungID = ab_SendungID + AB.ab_Art = "S" + Else + AB.ab_SendungID = Nothing + AB.ab_Art = "A" + End If + + AB.ab_TO_Art = ab_TO_Art + AB.ab_TO_Code = ab_TO_Code + + AB.ab_Datum = Now + AB.ab_Status = 0 + AB.ab_BenachrichtigungCode = ab_BenachrichtigungCode + If ab_Beschreibung = "" Then ab_Beschreibung = SQL.getValueTxtBySql("SELECT abc_Bezeichnung FROM tblAvisoBenachrichtigungenCodes WHERE abc_id=" & ab_BenachrichtigungCode, "AVISO") + AB.ab_Beschreibung = ab_Beschreibung + AB.ab_Prioritaet = ab_Prioritaet + AB.ab_Mitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + AB.ab_MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + + AB.ab_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + AB.ab_Cluster = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER + AB.ab_Vermerk = ab_Vermerk + AB.ab_collAnhId = ab_collAnhId + Return AB.SAVE + End Function + + Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG_ALL(ab_AvisoID, onlytype) As Boolean + Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId=-1,ab_Bestaetigt_Datum=getDate() WHERE ab_AvisoID=" & ab_AvisoID & If(onlytype, " and ab_art='A' ", "") + Return SQL.doSQL(sqlstr, "AVISO") + End Function + + Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG_SND([ab_SendungID], onlytype) As Boolean + Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId=-1,ab_Bestaetigt_Datum=getDate() WHERE [ab_SendungID]=" & [ab_SendungID] + Return SQL.doSQL(sqlstr, "AVISO") + End Function + + Public Function BESTAETIGEN_BENACHRICHTIGUNG() As Boolean + Me.ab_Status = 1 + Me.ab_Bestaetigt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + Me.ab_Bestaetigt_Datum = Now + + Return Me.SAVE + End Function + + + Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG(ab_id As Integer) As Boolean + Dim AB As New cAvisoBenachrichtigungen(ab_id) + + AB.ab_Status = 1 + AB.ab_Bestaetigt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + AB.ab_Bestaetigt_Datum = Now + + Return AB.SAVE + End Function + + Public 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("ab_id", ab_id, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_AvisoID", ab_AvisoID)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_SendungID", ab_SendungID)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Art", ab_Art)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Datum", ab_Datum)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Status", ab_Status)) ' VARCHAR(200) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_BenachrichtigungCode", ab_BenachrichtigungCode)) ' VARCHAR(40) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Beschreibung", ab_Beschreibung)) ' VARCHAR(40) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Prioritaet", ab_Prioritaet)) 'VARCHAR(40) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Mitarbeiter", ab_Mitarbeiter)) 'VARCHAR(60) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_MitarbeiterId", ab_MitarbeiterId)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_TO_Art", ab_TO_Art)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_TO_Code", ab_TO_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Bestaetigt_MaId", ab_Bestaetigt_MaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Bestaetigt_Datum", ab_Bestaetigt_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Firma", ab_Firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Cluster", ab_Cluster)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_collAnhId", ab_collAnhId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Vermerk", ab_Vermerk)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblAvisoBenachrichtigungen WITH(updlock,serializable) WHERE ab_id=@ab_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + ab_id = SQL.doSQLVarListID(ab_id, sqlstr, "AVISO", , list) + Return ab_id > 0 + End Function + + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO + Using cmd As New SqlCommand("SELECT * FROM tblAvisoBenachrichtigungen WHERE ab_id=@ab_id ", conn) + cmd.Parameters.AddWithValue("@ab_id", ab_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblAvisoBenachrichtigungen] SET " & str & " WHERE ab_id=@ab_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblAvisoBenachrichtigungen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblAvisoBenachrichtigungen] WITH(updlock,serializable) WHERE ab_id=" & Me.ab_id + Return SQL.doSQL(sqlstr, "AVISO") + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb new file mode 100644 index 0000000..864c494 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb @@ -0,0 +1,182 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cBonitaetsauskunft + + Property ba_id As Integer = -1 + Property ba_KundenNr As Integer + Property ba_Datum As Date + Property ba_MaId As Integer + Property ba_Sachbearbeiter As String = "" + Property ba_CRArt As String = "" + Property ba_CRAnsprechpartnerHerrFrau As String = "" + Property ba_CRAnsprechpartner As String = "" + Property ba_Firma As String = "" + Property ba_Adresse1 As String = "" + Property ba_Adresse2 As String = "" + Property ba_LetztesBearbeitungsDatum As Object = Nothing + Property ba_BonitaetsIndex As Integer + Property ba_GruendundsDatum As Object = Nothing + Property ba_Umsatz As Object = Nothing + Property ba_Mitarbeiter As Object = Nothing + Property ba_Bankverbindung As Object = Nothing + Property ba_Hoechstkredit As Object = Nothing + Property ba_Zahlungsweise As Object = Nothing + Property ba_GFName As Object = Nothing + Property ba_Sonstiges As Object = Nothing + Property ba_Risikostufe As Object = Nothing + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(ba_id) + Me.ba_id = ba_id + LOAD() + End Sub + + Public 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("ba_id", ba_id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_KundenNr", ba_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Datum", ba_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_MaId", ba_MaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Sachbearbeiter", ba_Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CRArt", ba_CRArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CRAnsprechpartnerHerrFrau", ba_CRAnsprechpartnerHerrFrau)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CRAnsprechpartner", ba_CRAnsprechpartner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Firma", ba_Firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Adresse1", ba_Adresse1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Adresse2", ba_Adresse2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_LetztesBearbeitungsDatum", ba_LetztesBearbeitungsDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_BonitaetsIndex", ba_BonitaetsIndex)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GruendundsDatum", ba_GruendundsDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Umsatz", ba_Umsatz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Mitarbeiter", ba_Mitarbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Bankverbindung", ba_Bankverbindung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Hoechstkredit", ba_Hoechstkredit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Zahlungsweise", ba_Zahlungsweise)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GFName", ba_GFName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Sonstiges", ba_Sonstiges)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Risikostufe", ba_Risikostufe)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblBonitaetsauskunft WITH(updlock,serializable) WHERE ba_id=@ba_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + ba_id = SQL.doSQLVarListID(ba_id, sqlstr, "FMZOLL", , list) + Return ba_id > 0 + End Function + + Public Shared Function LOADByKdNrDate(ba_KundenNr As Integer, ba_Datum As Date) As cBonitaetsauskunft + Try + Dim BONI As New cBonitaetsauskunft + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblBonitaetsauskunft WHERE ba_KundenNr=@ba_KundenNr AND cast(ba_Datum as date)=@ba_Datum ", conn) + cmd.Parameters.AddWithValue("@ba_KundenNr", ba_KundenNr) + cmd.Parameters.AddWithValue("@ba_Datum", ba_Datum.ToShortDateString) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In BONI.getParameterList() + Dim propInfo As PropertyInfo = BONI.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(BONI, Nothing) + Else + propInfo.SetValue(BONI, dr.Item(l.Text)) + End If + + Next + dr.Close() + Return BONI + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblBonitaetsauskunft WHERE ba_id=@ba_id ", conn) + cmd.Parameters.AddWithValue("@ba_id", ba_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblBonitaetsauskunft] SET " & str & " WHERE ba_id=@ba_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblBonitaetsauskunft (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb new file mode 100644 index 0000000..bebff68 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb @@ -0,0 +1,127 @@ + + +Public Class MyListItem + Private mText As String + Private mValue As String + + Public Sub New(ByVal pText As String, ByVal pValue As String) + mText = pText + mValue = pValue + End Sub + + Public ReadOnly Property Text() As String + Get + Return mText + End Get + End Property + + Public ReadOnly Property Value() As String + Get + Return mValue + End Get + End Property + + Public Overrides Function ToString() As String + Return mText + End Function + + +End Class + + + +Public Class MyListItem2 + Private mText As Object + Private mValue As Object + + Public Sub New(ByVal pText As Object, ByVal pValue As Object) + mText = pText + mValue = pValue + End Sub + + Public ReadOnly Property Text() As Object + Get + Return mText + End Get + End Property + + Public ReadOnly Property Value() As Object + Get + Return mValue + End Get + End Property + + ' Public Overrides Function ToString() As Object + ' Return mText + ' End Function + + + + + +End Class + + + +Public Class SQLVariable + Private TextSQLName As String + Private ValueSQLVALUE As Object + Private Scalarvariablename As String + Private primaryParam As Boolean + Private onlyForLoad As Boolean + Private onlyForSave As Boolean + + Public Sub New(ByVal Text As String, ByVal Value As Object, Optional Scalarvariablename As String = "", Optional primaryParam As Boolean = False, Optional onlyForLoad As Boolean = False, Optional onlyForSave As Boolean = False) + Me.TextSQLName = Text + Me.ValueSQLVALUE = Value + Me.primaryParam = primaryParam + Me.onlyForLoad = onlyForLoad + Me.onlyForSave = onlyForSave + + If Scalarvariablename <> "" Then Me.Scalarvariablename = Scalarvariablename Else Me.Scalarvariablename = Text + End Sub + + Public ReadOnly Property Text() As String + Get + Return TextSQLName + End Get + End Property + + Public ReadOnly Property Value() As Object + Get + Return ValueSQLVALUE + End Get + End Property + + Public ReadOnly Property Scalarvariable() As Object + Get + Return Scalarvariablename + End Get + End Property + + Public ReadOnly Property isPrimaryParam() As Boolean + Get + Return primaryParam + End Get + End Property + + Public ReadOnly Property isonlyForLoad() As Boolean + Get + Return onlyForLoad + End Get + End Property + + Public ReadOnly Property isonlyForSave() As Boolean + Get + Return onlyForSave + End Get + End Property + + + ' Public Overrides Function ToString() As Object + ' Return mText + ' End Function + + + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cCryptography.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cCryptography.vb new file mode 100644 index 0000000..fa43997 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cCryptography.vb @@ -0,0 +1,155 @@ +Imports System.IO +Imports System.Security.Cryptography +Imports System.Text + +Public Class cCryptography + + 'Dim EncryptionKey As String = "$kldfKFSAK37236780!!*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT$kldfKFSAK37236780!!*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT" + Shared EncryptionKey As String = "$kldfKFSAK37236780!!*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT$kldfKFSAK37236780!!*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT" + + Public Shared Function Encrypt(clearText As String) As String + Dim clearBytes As Byte() = Encoding.Unicode.GetBytes(clearText) + Using encryptor As Aes = Aes.Create() + Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, &H65, &H64, &H76, &H65, &H64, &H65, &H76}) + encryptor.Key = pdb.GetBytes(32) + encryptor.IV = pdb.GetBytes(16) + Using ms As New MemoryStream() + Using cs As New CryptoStream(ms, encryptor.CreateEncryptor(), CryptoStreamMode.Write) + cs.Write(clearBytes, 0, clearBytes.Length) + cs.Close() + End Using + clearText = Convert.ToBase64String(ms.ToArray()) + End Using + End Using + Return clearText + End Function + Public Shared Function Decrypt(cipherText As String) As String + Dim cipherBytes As Byte() = Convert.FromBase64String(cipherText) + Using encryptor As Aes = Aes.Create() + Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, &H65, &H64, &H76, &H65, &H64, &H65, &H76}) + encryptor.Key = pdb.GetBytes(32) + encryptor.IV = pdb.GetBytes(16) + Using ms As New MemoryStream() + Using cs As New CryptoStream(ms, encryptor.CreateDecryptor(), CryptoStreamMode.Write) + cs.Write(cipherBytes, 0, cipherBytes.Length) + cs.Close() + End Using + cipherText = Encoding.Unicode.GetString(ms.ToArray()) + End Using + End Using + Return cipherText + End Function + + + + +End Class + +Public Class cCryptography2 + Shared _key As String = "!#$a54?3" + Public Shared Function Encrypt(ByVal strQueryString As String) As String + Dim oES As New Encryption64() + Return oES.Encrypt(strQueryString, _key) + End Function + + Public Shared Function Decrypt(ByVal strQueryString As String) As String + Dim oES As New Encryption64() + Return oES.Decrypt(strQueryString, _key) + End Function + +End Class + + +Public Class Encryption64 + Private key() As Byte = {} + Private IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF} + + Public Function Decrypt(ByVal stringToDecrypt As String, + ByVal sEncryptionKey As String) As String + Dim inputByteArray(stringToDecrypt.Length) As Byte + Try + key = System.Text.Encoding.UTF8.GetBytes(Left(sEncryptionKey, 8)) + Dim des As New DESCryptoServiceProvider() + inputByteArray = Convert.FromBase64String(stringToDecrypt) + Dim ms As New MemoryStream() + Dim cs As New CryptoStream(ms, des.CreateDecryptor(key, IV), + CryptoStreamMode.Write) + cs.Write(inputByteArray, 0, inputByteArray.Length) + cs.FlushFinalBlock() + Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8 + Return encoding.GetString(ms.ToArray()) + Catch e As Exception + Return e.Message + End Try + End Function + + Public Function Encrypt(ByVal stringToEncrypt As String, + ByVal SEncryptionKey As String) As String + Try + key = System.Text.Encoding.UTF8.GetBytes(Left(SEncryptionKey, 8)) + Dim des As New DESCryptoServiceProvider() + Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes( + stringToEncrypt) + Dim ms As New MemoryStream() + Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV), + CryptoStreamMode.Write) + cs.Write(inputByteArray, 0, inputByteArray.Length) + cs.FlushFinalBlock() + Return Convert.ToBase64String(ms.ToArray()) + Catch e As Exception + Return e.Message + End Try + End Function + +End Class + + +Public Class cCryptography3 + Shared _key As String = "!#?" + + + 'Public Shared Function Encrypt(ByVal strQueryString As String) As String + + ' Using hasher As MD5 = MD5.Create() ' create hash object + + ' ' Convert to byte array and get hash + ' Dim dbytes As Byte() = + ' hasher.ComputeHash(Encoding.UTF8.GetBytes(strQueryString & _key)) + + ' ' sb to create string from bytes + ' Dim sBuilder As New StringBuilder() + + ' ' convert byte data to hex string + ' For n As Integer = 0 To dbytes.Length - 1 + ' sBuilder.Append(dbytes(n).ToString("X2")) + ' Next n + + ' Return sBuilder.ToString() + ' End Using + + 'End Function + + Public Shared Function Encrypt(ByVal input As String) As String + Dim stringBytes As Byte() = System.Text.Encoding.Unicode.GetBytes(input & _key) + Dim sbBytes As StringBuilder = New StringBuilder(stringBytes.Length * 2) + + For Each b As Byte In stringBytes + sbBytes.AppendFormat("{0:X2}", b) + Next + + Return sbBytes.ToString() + End Function + + + Public Shared Function Decrypt(ByVal hexInput As String) As String + Dim numberChars As Integer = hexInput.Length + Dim bytes As Byte() = New Byte(numberChars / 2 - 1) {} + + For i As Integer = 0 To numberChars - 1 Step 2 + bytes(i / 2) = Convert.ToByte(hexInput.Substring(i, 2), 16) + Next + + Return System.Text.Encoding.Unicode.GetString(bytes).Replace(_key, "") + End Function +End Class + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cDEBundeslaenderPLZ.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cDEBundeslaenderPLZ.vb new file mode 100644 index 0000000..fe37de5 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cDEBundeslaenderPLZ.vb @@ -0,0 +1,175 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cDEBundeslaenderPLZ + + Property PLZ As Integer + Property Bundesland As String = "" + Property Kreis As String = "" + Property Typ As String = "" + Property Code As String = "" + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(PLZ) + Me.PLZ = PLZ + LOADByPLZ(PLZ) + End Sub + + Public 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("PLZ", PLZ)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bundesland", Bundesland)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreis", Kreis)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Typ", Typ)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Code", Code)) ' VARCHAR(200) Not NULL, + Return list + End Function + + + + Public Shared Function LOADByPLZ(PLZ As Integer) As cDEBundeslaenderPLZ + Try + Dim VK As New cDEBundeslaenderPLZ + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDEBundeslaenderPLZ WHERE PLZ=@PLZ ", conn) + cmd.Parameters.AddWithValue("@PLZ", PLZ) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In VK.getParameterList() + Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(VK, Nothing) + Else + propInfo.SetValue(VK, dr.Item(l.Text)) + End If + Next + dr.Close() + Return VK + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + + Public Shared Function LOADBundeslandCode_ByPLZ(PLZ As Integer) As String + Try + Dim VK As New cDEBundeslaenderPLZ + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT Code FROM tblDEBundeslaenderPLZ WHERE PLZ=@PLZ ", conn) + cmd.Parameters.AddWithValue("@PLZ", PLZ) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + Return dr.Item("Code") + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + 'Public Function SAVE() As Boolean + ' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + ' Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDEBundeslaenderPLZ WITH(updlock,serializable) WHERE post_id=@post_id) " & + ' " BEGIN " & getUpdateCmd() & " END " & + ' " Else " & + ' " BEGIN " & getInsertCmd() & " END " & + ' " commit tran " + + ' post_id = SQL.doSQLVarListID(post_id, sqlstr, "FMZOLL", , list) + ' Return post_id > 0 + 'End Function + + + + 'Public Sub LOAD() + ' Try + ' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT * FROM tblDEBundeslaenderPLZ WHERE post_id=@post_id ", conn) + ' cmd.Parameters.AddWithValue("@post_id", post_id) + ' Dim dr = cmd.ExecuteReader() + ' If dr.Read Then + ' For Each l In getParameterList() + ' Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + ' If dr.Item(l.Text) Is DBNull.Value Then + ' propInfo.SetValue(Me, Nothing) + ' Else + ' propInfo.SetValue(Me, dr.Item(l.Text)) + ' End If + + ' Next + + ' End If + ' dr.Close() + ' End Using + ' End Using + ' Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + ' End Try + 'End Sub + + + '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 [tblDEBundeslaenderPLZ] SET " & str & " WHERE post_id=@post_id ") + + ' Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + ' 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 tblDEBundeslaenderPLZ (" & str & ") VALUES(" & values & ") ") + ' Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + ' End Try + ' Return "" + 'End Function + + + 'Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim sqlstr = " DELETE FROM [tblDEBundeslaenderPLZ] WITH(updlock,serializable) WHERE post_id=" & Me.post_id + ' Return SQL.doSQL(sqlstr, "FMZOLL") + 'End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb new file mode 100644 index 0000000..52fbe2c --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb @@ -0,0 +1,174 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cDHF_Anhaenge + + Property dhfanh_id As Integer + Property LizenzNr As String + Property Operatorid As Integer + Property AnmID As Integer + Property MsgTyp As String + Property ErstelltAm As DateTime + Property pfad As String + Property LRN As String + Property CRN As String + Property docID As Integer + + Public hasEntry As Boolean = False + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(dhfanh_id) + If dhfanh_id IsNot Nothing Then + Me.dhfanh_id = dhfanh_id + LOAD() + End If + End Sub + + Sub New(AnmID, MsgTyp) + LOAD(AnmID, MsgTyp) + End Sub + + + + Public 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("dhfanh_id", dhfanh_id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LizenzNr", LizenzNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Operatorid", Operatorid)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnmID", AnmID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MsgTyp", MsgTyp)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstelltAm", ErstelltAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pfad", pfad)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LRN", LRN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CRN", CRN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("docID", docID)) + Return list + 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 tblDHF_Anhaenge WITH(updlock,serializable) WHERE dhfanh_id=@dhfanh_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + dhfanh_id = SQL.doSQLVarListID(dhfanh_id, sqlstr, "FMZOLL", , list,, errHinweis) + Return dhfanh_id > 0 + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE dhfanh_id=@dhfanh_id ", conn) + cmd.Parameters.AddWithValue("@dhfanh_id", dhfanh_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + hasEntry = True + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub LOAD(AnmID, MsgTyp) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE AnmID=@AnmID AND MsgTyp=@MsgTyp ", conn) + cmd.Parameters.AddWithValue("@AnmID", AnmID) + cmd.Parameters.AddWithValue("@MsgTyp", MsgTyp) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + hasEntry = True + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 tblDHF_Anhaenge SET " & str & " WHERE dhfanh_id=@dhfanh_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblDHF_Anhaenge (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM tblDHF_Anhaenge WITH(updlock,serializable) WHERE dhfanh_id=" & Me.dhfanh_id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Shared Function DELETE(id As Integer) As Boolean + Dim SQL As New SQL + Dim sqlstr = " DELETE FROM tblDHF_Anhaenge WHERE dhfanh_id=" & id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cERS.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cERS.vb new file mode 100644 index 0000000..f944dc3 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cERS.vb @@ -0,0 +1,168 @@ + + +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cERS + Property ers_id As Integer + Property ers_progId As Integer + Property ers_progName As Object = Nothing + Property ers_progVersion As Object = Nothing + Property ers_datetime As DateTime = Now + Property ers_Testsystem As Boolean + Property ers_Type As Object = Nothing + Property ers_EMail As Object = Nothing + Property ers_maId As Integer = -1 + Property ers_userName As Object = Nothing + Property ers_Firma As Object = Nothing + Property ers_errCode As Object = Nothing + Property ers_errStack As Object = Nothing + Property ers_errMessage As Object = Nothing + Property ers_errMethodName As Object = Nothing + Property ers_infotext As Object = Nothing + + Public hasEntry = False + + Dim SQL As New SQL + + Sub New() + + End Sub + Sub New(ers_id) + Me.ers_id = ers_id + LOAD() + End Sub + + Shared Function saveErr(ers_Type, ers_errMessage, ers_errStack, ers_errCode, ers_errMethodName, Optional ers_EMail = Nothing, Optional ers_infotext = Nothing) As Boolean + Try + Dim ERS As New cERS + ERS.ers_progId = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID + ERS.ers_userName = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + ERS.ers_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + ERS.ers_Testsystem = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM + ERS.ers_progName = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME + ERS.ers_progVersion = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION + + ERS.ers_Type = ers_Type + ERS.ers_EMail = ers_EMail + ERS.ers_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ERS.ers_errMessage = ers_errMessage + ERS.ers_errStack = ers_errStack + ERS.ers_errCode = ers_errCode + ERS.ers_errMethodName = ers_errMethodName + ERS.ers_infotext = ers_infotext + + Return ERS.SAVE() + + Catch ex As Exception + 'was soll hier noch helfen?? + End Try + End Function + + + 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("ers_id", ers_id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_progId", ers_progId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_progVersion", ers_progVersion)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_progName", ers_progName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_datetime", ers_datetime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_Testsystem", ers_Testsystem)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_Type", ers_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_EMail", ers_EMail)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_maId", ers_maId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_userName", ers_userName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_Firma", ers_Firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errCode", ers_errCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errStack", ers_errStack)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errMessage", ers_errMessage)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errMethodName", ers_errMethodName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_infotext", ers_infotext)) + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblERS WHERE ers_id=@ers_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ADMIN", False, list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblERS WHERE ers_id=@ers_id ", conn) + cmd.Parameters.AddWithValue("@ers_id", ers_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [tblERS] SET " & str & " WHERE ers_id=@ers_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblERS (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb new file mode 100644 index 0000000..f6d42d5 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb @@ -0,0 +1,149 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cEZB_Waehrungskurse + + ' Property ezb_id As Integer + Property ezb_waehrungscode As String = "" + Property ezb_waehrungsschluessel As Object = Nothing + Property ezb_datum As Date + Property ezb_kurs As Double + + + + Dim SQL As New SQL + + Sub New() + + End Sub + + ' Sub New(ezb_id As Integer) + ' Me.ezb_id = ezb_id + ' LOAD_ById(ezb_id) + ' End Sub + + Sub New(ezb_waehrungscode As String) + Me.ezb_waehrungscode = ezb_waehrungscode + LOAD_ByWaehrungscode(ezb_waehrungscode) + + End Sub + Public 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("ezb_id", ezb_id, , True, True)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_waehrungscode", ezb_waehrungscode)) + If Me.ezb_waehrungsschluessel Is Nothing Then + Me.ezb_waehrungsschluessel = SQL.getValueTxtBySql(" Select TOP 1 isnull([Währungsschlüssel] ,'') FROM [Währungstabelle] where [Währungscode]='" & Me.ezb_waehrungscode.Replace("TRY", "TRL") & "' ", "FMZOLL") + End If + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_waehrungsschluessel", ezb_waehrungsschluessel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_datum", ezb_datum)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_kurs", ezb_kurs)) + + Return list + End Function + + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEZB_Waehrungskurse WITH(updlock,serializable) WHERE ezb_waehrungscode=@ezb_waehrungscode AND ezb_datum=@ezb_datum) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + ' ezb_id = SQL.doSQLVarListID(ezb_id, sqlstr, "FMZOLL", , list) + ' Return ezb_id > 0 + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + + + Public Sub LOAD_ByWaehrungscode(ezb_waehrungscode As String) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblEZB_Waehrungskurse WHERE ezb_waehrungscode=@ezb_waehrungscode ORDER BY ezb_datum DeSC ", conn) + cmd.Parameters.AddWithValue("@ezb_waehrungscode", ezb_waehrungscode) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblEZB_Waehrungskurse] SET " & str & " WHERE ezb_waehrungscode=@ezb_waehrungscode AND ezb_datum=@ezb_datum ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblEZB_Waehrungskurse (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblEZB_Waehrungskurse] WITH(updlock,serializable) WHERE ezb_waehrungscode='" & ezb_waehrungscode & "' AND ezb_datum='" & ezb_datum & "' " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Shared Function UPDATE_Waehrungstabelle(datum As Date) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " UPDATE [Währungstabelle] SET [Währungstabelle].Eurokurs=tblEZB_Waehrungskurse.ezb_kurs + FROM [Währungstabelle] inner join tblEZB_Waehrungskurse on [Währungstabelle].Währungsschlüssel=tblEZB_Waehrungskurse.ezb_waehrungsschluessel where tblEZB_Waehrungskurse.ezb_datum='" & datum.ToShortDateString & "' " + Return (New SQL).doSQL(sqlstr, "FMZOLL") + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cEZT_ImportCodenummern.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cEZT_ImportCodenummern.vb new file mode 100644 index 0000000..114c81a --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cEZT_ImportCodenummern.vb @@ -0,0 +1,181 @@ + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cEZT_ImportCodenummern + Property ezt_id As Integer + Property ezt_Land As String = "" + Property ezt_Codenummer As String = "" + Property ezt_BesMasseinheit As String = "" + Property ezt_BesMasseinheit2 As String = "" + Property ezt_Start As Date + Property ezt_Ende As Date + Property ezt_Sprache As String = "" + Property ezt_Text As String = "" + + Dim SQL As New SQL + + Public Shared Function delWholeDB() + Dim SQL As New SQL + Return SQL.doSQL("DELETE FROM [tblEZT_Importcodenummern]", "FMZOLL") + End Function + + + Sub New() + End Sub + + Sub New(ezt_id) + Me.ezt_id = ezt_id + LOAD() + End Sub + + Sub New(ezt_Land, ezt_Codenummer, ezt_BesMasseinheit, ezt_BesMasseinheit2, ezt_Start, ezt_Ende, ezt_Sprache, ezt_Text) + Me.ezt_Land = ezt_Land + Me.ezt_BesMasseinheit = ezt_BesMasseinheit + Me.ezt_Codenummer = ezt_Codenummer + Me.ezt_BesMasseinheit = ezt_BesMasseinheit + Me.ezt_BesMasseinheit2 = ezt_BesMasseinheit2 + Me.ezt_Start = ezt_Start + Me.ezt_Ende = ezt_Ende + Me.ezt_Sprache = ezt_Sprache + Me.ezt_Text = ezt_Text + + End Sub + + Public 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("ezt_id", ezt_id, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_Land", ezt_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_Codenummer", ezt_Codenummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_BesMasseinheit", ezt_BesMasseinheit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_BesMasseinheit2", ezt_BesMasseinheit2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_Start", ezt_Start)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_Ende", ezt_Ende)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_Sprache", ezt_Sprache)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_Text", ezt_Text)) + + + Return list + End Function + + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblEZT_Importcodenummern WHERE ezt_id=@ezt_id ", conn) + cmd.Parameters.AddWithValue("@ezt_id", ezt_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Function SAVE_ByID() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEZT_Importcodenummern WITH(updlock,serializable) WHERE ezt_id=@ezt_id) " & + " BEGIN " & getUpdateCmd_ByID() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + ezt_id = SQL.doSQLVarListID(ezt_id, sqlstr, "FMZOLL", , list) + Return ezt_id > 0 + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEZT_Importcodenummern WITH(updlock,serializable) WHERE ezt_Codenummer=@ezt_Codenummer AND ezt_Start=@ezt_Start AND ezt_Ende=@ezt_Ende) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + + 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 [tblEZT_Importcodenummern] SET " & str & " WHERE ezt_Codenummer=@ezt_Codenummer AND ezt_Start=@ezt_Start AND ezt_Ende=@ezt_Ende ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblEZT_Importcodenummern (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function getUpdateCmd_ByID() 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 [tblEZT_Importcodenummern] SET " & str & " WHERE ezt_id=@ezt_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cEasyBinding.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cEasyBinding.vb new file mode 100644 index 0000000..15ee127 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cEasyBinding.vb @@ -0,0 +1,117 @@ +Imports System.Data.SqlClient +Imports Gemeinsames +Imports System.ComponentModel +Imports System.Windows.Forms + +Public Class cEasyBinding + Public WithEvents bindingDataAdapter As New SqlDataAdapter + Public WithEvents bindingdataTable As New DataTable + Public bindingdataSet As New DataSet + Public WithEvents bindingSource As New BindingSource + + Dim connection As SqlConnection + Dim initialized = False + + Public updateImmediately = False + + Sub New(Optional conn As String = "SDL") + Select Case conn + Case "SDL" : connection = cSqlDb.GetNewOpenConnection(False) + Case "FMZOLL" : connection = cSqlDb.GetNewOpenConnectionFMZOLL(False) + Case "ADMIN" : connection = cSqlDb.GetNewOpenConnectionLogin() + Case "AVISO" : connection = cSqlDb.GetNewOpenConnectionAVISO() + End Select + End Sub + + + + Public Sub initBinding(sql, table, Optional List = Nothing) + Try + bindingSource.CancelEdit() + bindingSource = New BindingSource + bindingdataTable.Clear() + bindingdataTable = New DataTable(table) + bindingdataTable.TableName = table + bindingdataSet.Clear() + + Try + + If List IsNot Nothing Then + Dim cmd As New SqlCommand(sql, connection) + + For Each i In List + 'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + Next + Me.bindingDataAdapter = New SqlDataAdapter(cmd) + Else + Me.bindingDataAdapter = New SqlDataAdapter(sql, connection) + End If + + + Catch ex As SqlException + MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.") + End Try + Me.bindingDataAdapter.FillSchema(bindingdataSet, SchemaType.Source, table) + Me.bindingDataAdapter.Fill(bindingdataSet, table) + Me.bindingdataTable = Me.bindingdataSet.Tables(table) + Me.bindingSource.DataSource = Me.bindingdataTable + + Me.bindingdataTable.Locale = System.Globalization.CultureInfo.InvariantCulture + initialized = True + Catch ex As Exception + MsgBox("BindingERR01: " & ex.Message) + End Try + End Sub + + Sub setARITHABORTOn() + Try + Using cmd As New SqlCommand("SET ARITHABORT ON", connection) + cmd.ExecuteNonQuery() + End Using + Catch ex As Exception + MsgBox("BindingERR02: " & "Fehler in setARITHABORTOn: " & ex.Message) + End Try + End Sub + + + Public Function updateBinding(Optional tablename As String = "", Optional ContinueUpdateOnError As Boolean = False) As Boolean + If Not initialized Then Return True + Try + bindingSource.EndEdit() + Dim builder As New SqlCommandBuilder(bindingDataAdapter) + bindingDataAdapter.Update(bindingdataSet, bindingdataTable.TableName) + Me.bindingdataSet.AcceptChanges() + + Return True + Catch ex As Exception + MsgBox("Es ist ein SQL-Fehler beim Updaten der Daten aufgetreten:" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Die Werte werden zurückgesetzt!", MsgBoxStyle.OkCancel, "Datenbank-Fehler") + Me.bindingSource.ResumeBinding() + End Try + Return False + End Function + + + Sub binddata(o As Object, bindingParam As String, bindingSource As BindingSource, dataName As String, Optional bindingNullValue As String = "", Optional formatString As String = "") + o.DataBindings.Clear() + o.DataBindings.Add(New Binding(bindingParam, bindingSource, dataName, True, DataSourceUpdateMode.OnPropertyChanged, bindingNullValue, formatString)) + End Sub + + + Private Sub bindingSource_DataError(sender As Object, e As BindingManagerDataErrorEventArgs) Handles bindingSource.DataError + ' If the data source raises an exception when a cell value is + ' commited, display an error message. + If e.Exception IsNot Nothing Then ' AndAlso e. = DataGridViewDataErrorContexts.Commit Then + MessageBox.Show("Daten-Fehler: " & vbNewLine & vbNewLine & e.Exception.Message) + End If + End Sub + + + 'Private Sub bindingdataTable_ColumnChanged(sender As Object, e As DataColumnChangeEventArgs) Handles bindingdataTable.ColumnChanged + + ' If updateImmediately Then updateBinding() + + 'End Sub + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb new file mode 100644 index 0000000..d9ab8c3 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb @@ -0,0 +1,262 @@ + +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cEmailBenachrichtigungList + Property eb_KundenNr As Object = Nothing + Property eb_ebartId As Object = Nothing + Public LIST As New List(Of cEmailBenachrichtigung) + Dim SQL As New SQL + + Sub New() + + End Sub + + + Sub New(eb_KundenNr, eb_ebartId) + Me.eb_KundenNr = eb_KundenNr + Me.eb_ebartId = eb_ebartId + LOAD(Me.eb_KundenNr, Me.eb_ebartId) + End Sub + Public Sub CLEAR() + LIST.Clear() + End Sub + Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False) + Dim l As New cEmailBenachrichtigung + l.eb_KundenNr = eb_KundenNr + l.eb_ebartId = eb_ebartId + l.eb_EMail = eb_EMail + l.eb_cc = cc + l.eb_bcc = bcc + LIST.Add(l) + End Sub + Public Sub LOAD(eb_KundenNr, eb_ebartId) + Try + LIST.Clear() + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblEmailBenachrichtigung WHERE eb_KundenNr=@eb_KundenNr and eb_ebartId=@eb_ebartId ", conn) + cmd.Parameters.AddWithValue("@eb_KundenNr", eb_KundenNr) + cmd.Parameters.AddWithValue("@eb_ebartId", eb_ebartId) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cEmailBenachrichtigung + l.eb_KundenNr = dr.Item("eb_KundenNr") + l.eb_ebartId = dr.Item("eb_ebartId") + l.eb_EMail = dr.Item("eb_EMail") + l.eb_cc = dr.Item("eb_cc") + l.eb_bcc = dr.Item("eb_bcc") + LIST.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Function SAVE() + If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then + For Each l In LIST + If Not l.INSERT() Then Return False + Next + Return True + Else + Return False + End If + End Function +End Class +Public Class cEmailBenachrichtigung + Property eb_KundenNr As Object = Nothing + Property eb_ebartId As Object = Nothing + Property eb_EMail As Object = Nothing + Property eb_cc As Boolean = False + Property eb_bcc As Boolean = False + + Dim SQL As New SQL + + Sub New() + 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("eb_KundenNr", eb_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_ebartId", eb_ebartId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_EMail", eb_EMail)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_cc", eb_cc)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_bcc", eb_bcc)) + 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) + 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 tblEmailBenachrichtigung (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Shared Sub eMails_einlesen(Kdnr As String, art As Integer, ByRef Emails As String, ByRef Emails_CC As String, ByRef Emails_BCC As String, Emails_list_sent As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList) + 'ART: + '1=Ankunft + '2=Freigabe + '3=Ankunft Export + '4=Freigabe Export + Dim Firmen As New cFirmenDAL + Dim Firma As New cFirma + + Emails = "" + Emails_CC = "" + Emails_BCC = "" + + If Kdnr Is Nothing OrElse Not IsNumeric(Kdnr) Then Exit Sub + ' Dim Avisierer As New cKunde(hAuftraggeber_kdnr) + ' Dim Fraechter As New cKunde(hFrächter_kdnr) + Dim Kdnr_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(Kdnr, art) + ' Dim Fraechter_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hFrächter_kdnr, art) + ' If hAuftraggeber_kdnr <> hFrächter_kdnr Then Fraechter_Mails = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hFrächter_kdnr, art) + + Dim Emails_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList + Dim Emails_CC_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList + Dim Emails_BCC_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList + + 'Dim Emails As String + For Each i In Kdnr_Mails.LIST + If i.eb_bcc Then + If Not existing(Kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(Kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";" + ElseIf i.eb_cc Then + If Not existing(Kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(Kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";" + Else + If Not existing(Kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(Kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";" + End If + Next + 'For Each i In Fraechter_Mails.LIST + ' If i.eb_bcc Then + ' If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";" + ' ElseIf i.eb_cc Then + ' If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";" + ' Else + ' If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";" + ' End If + 'Next + + For Each i In Emails_list.LIST + Emails &= i.eb_EMail & ";" + Next + For Each i In Emails_CC_list.LIST + Emails_CC &= i.eb_EMail & ";" + Next + For Each i In Emails_BCC_list.LIST + Emails_BCC &= i.eb_EMail & ";" + Next + + For Each i In Emails_list.LIST : Emails_list_sent.LIST.Add(i) : Next + For Each i In Emails_CC_list.LIST : Emails_list_sent.LIST.Add(i) : Next + For Each i In Emails_BCC_list.LIST : Emails_list_sent.LIST.Add(i) : Next + + End Sub + + Public Shared Function getAbsenderEmail() As String + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" : Return "noreply@imex-group.at" + Case "ATILLA" : Return "noreply@verag.ag" + Case "UNISPED" : Return "No-Reply@unisped.at" + Case "FRONTOFFICE" : Return "noreply@front-office.eu" + Case "AMBAR" : Return "import@ambarlog.com" + Case Else : Return "noreply@verag.ag" + End Select + End Function + + Shared Sub eMails_einlesenOLD(hFrächter_kdnr As String, hAuftraggeber_kdnr As String, art As Integer, ByRef Emails As String, ByRef Emails_CC As String, ByRef Emails_BCC As String, Emails_list_sent As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList) + 'ART: + '1=Ankunft + '2=Freigabe + '3=Ankunft Export + '4=Freigabe Export + Dim Firmen As New cFirmenDAL + Dim Firma As New cFirma + + Emails = "" + Emails_CC = "" + Emails_BCC = "" + + ' Dim Avisierer As New cKunde(hAuftraggeber_kdnr) + ' Dim Fraechter As New cKunde(hFrächter_kdnr) + Dim Avisierer_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hAuftraggeber_kdnr, art) + Dim Fraechter_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hFrächter_kdnr, art) + If hAuftraggeber_kdnr <> hFrächter_kdnr Then Fraechter_Mails = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hFrächter_kdnr, art) + + Dim Emails_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList + Dim Emails_CC_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList + Dim Emails_BCC_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList + + 'Dim Emails As String + For Each i In Avisierer_Mails.LIST + If i.eb_bcc Then + If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";" + ElseIf i.eb_cc Then + If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";" + Else + If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";" + End If + Next + For Each i In Fraechter_Mails.LIST + If i.eb_bcc Then + If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";" + ElseIf i.eb_cc Then + If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";" + Else + If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";" + End If + Next + + For Each i In Emails_list.LIST + Emails &= i.eb_EMail & ";" + Next + For Each i In Emails_CC_list.LIST + Emails_CC &= i.eb_EMail & ";" + Next + For Each i In Emails_BCC_list.LIST + Emails_BCC &= i.eb_EMail & ";" + Next + + For Each i In Emails_list.LIST : Emails_list_sent.LIST.Add(i) : Next + + End Sub + Shared Function existing(KundenNr As Integer, Email As String, Emails_list As List(Of VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung), Optional ListEmails_CC_list As List(Of VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung) = Nothing, Optional ListEmails_BCC_list As List(Of VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung) = Nothing) As Boolean + If Emails_list IsNot Nothing Then + For Each i In Emails_list + If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True + Next + End If + If ListEmails_CC_list IsNot Nothing Then + For Each i In ListEmails_CC_list + If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True + Next + End If + If ListEmails_BCC_list IsNot Nothing Then + For Each i In ListEmails_BCC_list + If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True + Next + End If + Return False + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb new file mode 100644 index 0000000..56f0b5d --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb @@ -0,0 +1,107 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cFirmen + Property Firma_ID As Integer + Property Firma_Bez As String + Property Firma_BackColor As Object = Nothing ' INT DEFAULT ((16777215)) NOT NULL, + Property Firma_Logo As Object = Nothing ' VARBINARY (MAX) NULL, + Property Firma_Firmenbuch As Object = Nothing ' NVARCHAR (22) NULL, + Property Firma_UID As Object = Nothing ' NVARCHAR (16) NULL, + Property Firma_EORI As Object = Nothing ' NVARCHAR (21) NULL, + Property Firma_Bankverbindung1 As Object = Nothing ' NVARCHAR (50) NULL, + Property Firma_BLZ1 As Object = Nothing ' NVARCHAR (33) NULL, + Property Firma_KTO1 As Object = Nothing ' NVARCHAR (18) NULL, + Property Firma_IBAN1 As Object = Nothing ' NVARCHAR (38) NULL, + Property Firma_BIC1 As Object = Nothing ' NVARCHAR (16) NULL, + Property Firma_Bankverbindung2 As Object = Nothing ' NVARCHAR (50) NULL, + Property Firma_BLZ2 As Object = Nothing ' NVARCHAR (33) NULL, + Property Firma_KTO2 As Object = Nothing ' NVARCHAR (18) NULL, + Property Firma_IBAN2 As Object = Nothing ' NVARCHAR (38) NULL, + Property Firma_BIC2 As Object = Nothing ' NVARCHAR (16) NULL, + Property SSMA_TimeStamp As Object = Nothing ' ROWVERSION NOT NULL, + Property Firma_Ort As Object = Nothing ' NVARCHAR (40) NULL, + Property Firma_Straße As Object = Nothing ' NVARCHAR (40) NULL, + Property Firma_Telefon As Object = Nothing ' NVARCHAR (40) NULL, + Property Firma_Telefax As Object = Nothing ' NVARCHAR (40) NULL, + Property Firma_E_Mail As Object = Nothing ' NVARCHAR (40) NULL, ----- + Property Firma_Webadresse As Object = Nothing ' NVARCHAR (40) NULL, + Property Firma_LandKz As Object = Nothing ' NVARCHAR (40) NULL, + + + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(Firma_ID) + Me.Firma_ID = Firma_ID + LOAD() + End Sub + + Public 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("Firma_ID", Firma_ID, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bez", Firma_Bez)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BackColor", Firma_BackColor)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Logo", Firma_Logo)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Firmenbuch", Firma_Firmenbuch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_UID", Firma_UID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_EORI", Firma_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bankverbindung1", Firma_Bankverbindung1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BLZ1", Firma_BLZ1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_KTO1", Firma_KTO1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_IBAN1", Firma_IBAN1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BIC1", Firma_BIC1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bankverbindung2", Firma_Bankverbindung2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BLZ2", Firma_BLZ2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_KTO2", Firma_KTO2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_IBAN2", Firma_IBAN2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BIC2", Firma_BIC2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Ort", Firma_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Straße", Firma_Straße)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Telefon", Firma_Telefon)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Telefax", Firma_Telefax)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_E-Mail", Firma_E_Mail, "Firma_E_Mail")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Webadresse", Firma_Webadresse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_LandKz", Firma_LandKz)) + + + Return list + End Function + + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblFirma WHERE Firma_ID=@Firma_ID ", conn) + cmd.Parameters.AddWithValue("@Firma_ID", Firma_ID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cFremdSpeditionenZuordnung.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cFremdSpeditionenZuordnung.vb new file mode 100644 index 0000000..9b9d30f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cFremdSpeditionenZuordnung.vb @@ -0,0 +1,139 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cFremdSpeditionenZuordnung + + + Property fremdz_Id As Integer + Property fremdz_firma As Object = Nothing + Property fremdz_KundenNr As Object = Nothing + Property fremdz_plz As Object = Nothing + Property fremdz_ort As Object = Nothing + Property fremdz_verzolltBei As Object = Nothing + Property fremdz_bemerkung As Object = Nothing + Property fremdz_SpeditionKundenNr As Object = Nothing + Property fremdz_Datum As Object = Nothing + Property fremdz_Sachbearbeiter As Object = Nothing + + + Public hasEntry As Boolean = False + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(fremdz_Id) + Me.fremdz_Id = fremdz_Id + LOAD() + End Sub + + Public 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("fremdz_Id", fremdz_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_firma", fremdz_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_KundenNr", fremdz_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_plz", fremdz_plz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_ort", fremdz_ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_verzolltBei", fremdz_verzolltBei)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_bemerkung", fremdz_bemerkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_SpeditionKundenNr", fremdz_SpeditionKundenNr)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblFremdSpeditionenZuordnung WITH(updlock,serializable) WHERE fremdz_Id=@fremdz_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + fremdz_Id = SQL.doSQLVarListID(fremdz_Id, sqlstr, "FMZOLL", , list) + Return fremdz_Id > 0 + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblFremdSpeditionenZuordnung WHERE fremdz_Id=@fremdz_Id ", conn) + cmd.Parameters.AddWithValue("@fremdz_Id", fremdz_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + hasEntry = True + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblFremdSpeditionenZuordnung] SET " & str & " WHERE fremdz_Id=@fremdz_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblFremdSpeditionenZuordnung (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblFremdSpeditionenZuordnung] WITH(updlock,serializable) WHERE fremdz_Id=" & Me.fremdz_Id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Shared Function DELETE(id As Integer) As Boolean + Dim SQL As New SQL + Dim sqlstr = " DELETE FROM [tblFremdSpeditionenZuordnung] WHERE fremdz_Id=" & id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function +End Class + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cGelangensbestaetigung.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cGelangensbestaetigung.vb new file mode 100644 index 0000000..27e277b --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cGelangensbestaetigung.vb @@ -0,0 +1,131 @@ + +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cGelangensbestaetigung + + Property gb_nr As Integer + Property gb_firma As Object = Nothing + Property gb_KdNr As Object = Nothing + Property gb_datetime As Date + Property gb_sachbearbeiter As Object = Nothing + Property gb_sachbearbeiterid As Integer + + + + Dim SQL As New SQL + + Sub New(gb_nr As Integer) + Me.gb_nr = gb_nr + Me.gb_sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + Me.gb_sachbearbeiterid = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + Me.gb_datetime = Now + LOAD() + End Sub + + + Sub New(gb_firma As String, gb_KdNr As Object) + Me.gb_nr = SQL.getValueTxtBySqlVarList("SELECT isnull(MAX([gb_nr])+1,( YEAR( GETDATE() ) % 100 ) * 1000000) FROM [tblGelangensbestaetigung] WHERE left(cast([gb_nr] as VARCHAR),2) = ( YEAR( GETDATE() ) % 100 )", "FMZOLL") + Me.gb_firma = gb_firma + Me.gb_KdNr = gb_KdNr + Me.gb_sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + Me.gb_sachbearbeiterid = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + Me.gb_datetime = Now + 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("gb_nr", gb_nr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_firma", gb_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_KdNr", gb_KdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_datetime", gb_datetime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_sachbearbeiter", gb_sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_sachbearbeiterid", gb_sachbearbeiterid)) + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblGelangensbestaetigung WITH(updlock,serializable) WHERE gb_nr=@gb_nr) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblGelangensbestaetigung WHERE gb_nr=@gb_nr ", conn) + cmd.Parameters.AddWithValue("@gb_nr", gb_nr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [tblGelangensbestaetigung] SET " & str & " WHERE gb_nr=@gb_nr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblGelangensbestaetigung (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + End Class + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb new file mode 100644 index 0000000..ffe1004 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb @@ -0,0 +1,133 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cGestellungsgarantien + Property gg_Id As Integer + Property gg_KundenNr As Integer + Property gg_erhalten_Datum As Date + Property gg_Zollamt As String + Property gg_Info As Object = Nothing + Property gg_datenarchivId As Object = Nothing + + Dim SQL As New SQL + + Sub New() + + End Sub + Sub New(gg_Id) + Me.gg_Id = gg_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("gg_Id", gg_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gg_KundenNr", gg_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gg_erhalten_Datum", gg_erhalten_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gg_Zollamt", gg_Zollamt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gg_Info", gg_Info)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gg_datenarchivId", gg_datenarchivId)) + + Return list + End Function + + Public Shared Function LOAD_LIST(KundenNr As Integer) As DataTable + Return (New SQL).loadDgvBySql("SELECT * FROM tblGestellungsgarantien WHERE gg_KundenNr=" & KundenNr, "FMZOLL") + End Function + + Public Shared Function ENTRY_Exists(KundenNr As Integer, Zollamt As String) As Boolean + Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblGestellungsgarantien WHERE gg_KundenNr=" & KundenNr & " AND gg_Zollamt='" & Zollamt & "'", "FMZOLL")) > 0) + End Function + Public Shared Function ENTRY_Exists(KundenNr As Integer, Zollamt As String, gg_erhalten_Datum As Date) As Boolean + Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblGestellungsgarantien WHERE gg_KundenNr=" & KundenNr & " AND gg_Zollamt='" & Zollamt & "' AND gg_erhalten_Datum='" & gg_erhalten_Datum.ToShortDateString & "'", "FMZOLL")) > 0) + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblGestellungsgarantien With(updlock, serializable) WHERE gg_Id=@gg_Id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("Select * FROM tblGestellungsgarantien WHERE gg_Id=@gg_Id ", conn) + cmd.Parameters.AddWithValue("@gg_Id", gg_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [tblGestellungsgarantien] SET " & str & " WHERE gg_Id=@gg_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblGestellungsgarantien (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblGestellungsgarantien] WITH(updlock,serializable) WHERE gg_Id=" & Me.gg_Id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsmitteilung.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsmitteilung.vb new file mode 100644 index 0000000..9917157 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsmitteilung.vb @@ -0,0 +1,313 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cGestellungsmitteilung + + + Property gstm_id As Integer + Property gstm_AvisoId As Integer + Property gstm_T1Gestellung_ATB As String = "" + Property gstm_BezugsNrSumA As String = "" + Property gstm_LKWKennzeichen As String = "" + Property gstm_GesamtColli As String = "" + Property gstm_GesamtGewicht As String = "" + + + Public hasEntry As Boolean = False + + Public POSITIONEN As New List(Of cGestellungsmitteilungPositionen) + Shared SQL As New SQL + + Sub New() + End Sub + + Sub New(gstm_id) + Me.gstm_id = gstm_id + LOAD() : LOAD_POSITIONEN() + End Sub + + + + Public 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("gstm_id", gstm_id, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstm_AvisoId", gstm_AvisoId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstm_T1Gestellung_ATB", gstm_T1Gestellung_ATB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstm_BezugsNrSumA", gstm_BezugsNrSumA)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstm_LKWKennzeichen", gstm_LKWKennzeichen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstm_GesamtColli", gstm_GesamtColli)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstm_GesamtGewicht", gstm_GesamtGewicht)) + Return list + End Function + + + + + Public Function SAVE(Optional saveAll As Boolean = True) As Boolean + + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblGestellungsmitteilung WHERE gstm_id=@gstm_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + gstm_id = SQL.doSQLVarListID(-1, sqlstr, "FMZOLL", , list) + + If gstm_id > 0 Then + If saveAll Then SAVE_POSITIONEN(gstm_id) ' positionen speicehrn + End If + Return gstm_id > 0 + End Function + + + Public Function SAVE_POSITIONEN(gstm_id) As Boolean + If DELETE_POSITIONEN() Then ' zuerst Einträge löschen... + For Each p In POSITIONEN + If Not p.INSERT(gstm_id) Then Return False ' ... dann insert + Next + Else : Return False + End If + Return True + End Function + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblGestellungsmitteilung WHERE gstm_id=@gstm_id ", conn) + cmd.Parameters.AddWithValue("@gstm_id", gstm_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + LOAD_POSITIONEN() + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Sub LOADFromAvisoId(gstm_AvisoId) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblGestellungsmitteilung WHERE gstm_AvisoId=@gstm_AvisoId ", conn) + cmd.Parameters.AddWithValue("@gstm_AvisoId", gstm_AvisoId) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + LOAD_POSITIONEN() + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + 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 [tblGestellungsmitteilung] SET " & str & " WHERE gstm_id=@gstm_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblGestellungsmitteilung (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE(Optional delPos = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + If delPos Then DELETE_POSITIONEN() + Dim sqlstr = " DELETE FROM [tblGestellungsmitteilung] WHERE gstm_id=" & Me.gstm_id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function DELETE_AVISOID(gstm_AvisoId, Optional delPos = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + If delPos Then DELETE_POSITIONEN_AVISOID(gstm_AvisoId) + Dim sqlstr = " DELETE FROM [tblGestellungsmitteilung] WHERE gstm_AvisoId=" & gstm_AvisoId + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Public Function DELETE_POSITIONEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblGestellungsmitteilung_Positionen] WHERE gstmp_GstmID=" & Me.gstm_id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function DELETE_POSITIONEN_AVISOID([gstmp_AvisoID]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblGestellungsmitteilung_Positionen] WHERE [gstmp_AvisoID]=" & [gstmp_AvisoID] + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Sub LOAD_POSITIONEN() + Try + POSITIONEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("Select * FROM tblGestellungsmitteilung_Positionen WHERE gstmp_GstmID=@gstmp_GstmID order by gstmp_T1Nr", conn) + cmd.Parameters.AddWithValue("@gstmp_GstmID", Me.gstm_id) + + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cGestellungsmitteilungPositionen(gstm_id, gstm_AvisoId) + 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 + POSITIONEN.Add(l) + End While + dr.Close() + End Using + End Using + + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + +End Class + + + +Public Class cGestellungsmitteilungPositionen + + Property gstmp_id As Integer + Property gstmp_GstmID As Integer + Property gstmp_SendungID As Integer + Property gstmp_T1Nr As Object = Nothing + Property gstmp_AvisoID As Integer + Property gstmp_Abfertigungsart_ID As Object = Nothing + Property gstmp_Abfertigungsart As String = "" + Property gstmp_Empfaenger As String = "" + Property gstmp_Bemerkung As String = "" + Property gstmp_FilialenNr As Object = Nothing + Property gstmp_AbfertigungsNr As Object = Nothing + Property gstmp_UnterNr As Object = Nothing + Property gstmp_Colli As String = "" + Property gstmp_Gewicht As String = "" + Property gstmp_Warenbezeichnung As String = "" + Property gstmp_Absender As String = "" + Property gstmp_ATANr As String = "" + + + 'FROM [VERAG].[dbo].[tblGestellungsmitteilung_Positionen] + + + Dim SQL As New SQL + + Sub New(gstmp_GstmID, gstmp_AvisoID, Optional gstmp_SendungID = 0) + Me.gstmp_GstmID = gstmp_GstmID + Me.gstmp_AvisoID = gstmp_AvisoID + Me.gstmp_SendungID = gstmp_SendungID + 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("gstmp_id", gstmp_id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_GstmID", gstmp_GstmID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_SendungID", gstmp_SendungID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_T1Nr", gstmp_T1Nr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_AvisoID", gstmp_AvisoID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Abfertigungsart_ID", gstmp_Abfertigungsart_ID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Abfertigungsart", gstmp_Abfertigungsart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Empfaenger", gstmp_Empfaenger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Bemerkung", gstmp_Bemerkung)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_FilialenNr", gstmp_FilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_AbfertigungsNr", gstmp_AbfertigungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_UnterNr", gstmp_UnterNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Colli", gstmp_Colli)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Gewicht", gstmp_Gewicht)) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Warenbezeichnung", gstmp_Warenbezeichnung)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Absender", gstmp_Absender)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_ATANr", gstmp_ATANr)) + Return list + End Function + + Public Function INSERT(gstmp_GstmID) As Boolean + Me.gstmp_GstmID = gstmp_GstmID + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + End Function + + Public Function getInsertCmd() As String + Try + 'Me.Eingegeben_am = Now + 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 tblGestellungsmitteilung_Positionen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cHandlingssaetzeIntern.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cHandlingssaetzeIntern.vb new file mode 100644 index 0000000..a3be93c --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cHandlingssaetzeIntern.vb @@ -0,0 +1,88 @@ + + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cHandlingssaetzeInternLIST + Property hs_Bezeichnung As Object = Nothing + ' Property OffertenNr As Object = Nothing + Public LIST As New List(Of cHandlingssaetzeIntern) + Dim SQL As New SQL + 'Dim listTodelete As New List(Of cHandlingssaetzeIntern) + + Sub New(hs_Bezeichnung) + Me.hs_Bezeichnung = hs_Bezeichnung + ' Me.OffertenNr = OffertenNr + LOAD_LIST(Me.hs_Bezeichnung) + End Sub + Public Sub CLEAR() + LIST.Clear() + End Sub + + + Public Sub LOAD_LIST(hs_Bezeichnung) + Try + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblHandlingssaetzeIntern WHERE hs_Bezeichnung=@hs_Bezeichnung ", conn) + cmd.Parameters.AddWithValue("@hs_Bezeichnung", hs_Bezeichnung) + ' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cHandlingssaetzeIntern + 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 + + LIST.Add(l) + + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + 'Function SAVE() + ' If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then + ' For Each l In LIST + ' If Not l.INSERT() Then Return False + ' Next + ' Return True + ' Else + ' Return False + ' End If + 'End Function +End Class + +Public Class cHandlingssaetzeIntern + + Property hs_Bezeichnung As Object = Nothing + Property hs_RgVon As Object = Nothing + Property hs_RgAn As Object = Nothing + Property hs_Abfertigungsart As Object = Nothing + Property hs_Preis As Object = Nothing + + Dim SQL As New SQL + + Sub New() + 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("hs_Bezeichnung", hs_Bezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hs_RgVon", hs_RgVon)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hs_RgAn", hs_RgAn)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hs_Abfertigungsart", hs_Abfertigungsart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hs_Preis", hs_Preis)) + Return list + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb new file mode 100644 index 0000000..adab127 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb @@ -0,0 +1,349 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cKunde + Property KundenNr As Object = Nothing + Property KundenNrZentrale As Object = Nothing + Property FilialenNr As Object = Nothing + Property Einmalige_Abfertigung As Boolean = False + Property Neutralisierung As Object = Nothing + Property Avis As Object = Nothing + Property Zollvollmacht As Boolean = False + Property Zollvollmacht_vom As Object = Nothing + Property Lastschrift As Boolean = False + Property Lastschrift_von As Object = Nothing + Property Lastschrift_bis As Object = Nothing + Property Rabattstaffel As Boolean = False + Property SVS As Boolean = False + Property Vorlageprovision As Object = Nothing + Property Kreditaufwendungen As Object = Nothing + Property Bankspesen As Object = Nothing + Property Bankspesen_Mindestbetrag As Object = Nothing + Property Besonderheiten As Object = Nothing + Property Sammelrechnung As Object = Nothing + Property Steuerschlüssel As Object = Nothing + Property Referenznummer As Object = Nothing + Property Antragssumme As Object = Nothing + Property Antrag_vom As Object = Nothing + Property Versicherungssumme As Object = Nothing + Property Entscheidung_vom As Object = Nothing + Property Kreditlimit As Object = Nothing + Property Kreditlimit_vom As Object = Nothing + Property Info As Object = Nothing + Property Überwachungskunde As Boolean = False + Property Abfertigungsverbot As Boolean = False + Property Abfertigungsverbot_seit As Object = Nothing + Property Abfertigungsverbot_Grund As Object = Nothing + Property Rechtsanwalt As Boolean = False + Property Rechtsanwalt_seit As Object = Nothing + Property Eingegeben_am As Object = Nothing + Property Geändert_am As Object = Nothing + Property Sachbearbeiter As Object = Nothing + Property LfdSaldo As Object = Nothing + Property Erste_Abfertigung As Object = Nothing + Property Vorkasse As Boolean = False + Property Zahlungsinformationen As Object = Nothing + Property EORITIN As Object = Nothing + Property EORITIN_NL As Object = Nothing + Property Zollnummer As Object = Nothing + Property ZulassungsNr_ZnV As Object = Nothing + Property Aufschubkonto_EUSt As Object = Nothing + Property Aufschubkonto_Zoll As Object = Nothing + Property Währungscode As Object = Nothing + Property Euroeinführung As Object = Nothing + Property LetzteRechnungsNr As Object = Nothing + Property LetztesRechnungsDatum As Object = Nothing + Property Konzernkonto As Boolean = False + Property FiBuSchnittstelle As Boolean = False + Property Planzahl As Object = Nothing + Property Gesprächsbericht As Object = Nothing + Property Bonität As Object = Nothing + Property Bonitätsdatum As Object = Nothing + Property Zahlungsziel As Object = Nothing + Property UStV_SummeUmsatzsteuerbetragEUR As Object = Nothing + Property UStV_SummeErstattungsbetragEUR As Object = Nothing + Property UStV_Summe3470BetragEUR As Object = Nothing + Property UStV_SummeVZBetragEUR As Object = Nothing + Property UStV_SummeVorschaubetragEUR As Object = Nothing + Property UStV_SummeVorschaubetragEUR_VERAG As Object = Nothing + Property UStV_SummeVorschaubetragEUR_IDS As Object = Nothing + Property Fiskal As Boolean = False + Property Ausfuhr As Boolean = False + Property BankgarantieBetrag As Object = Nothing + Property BankgarantieGültigBis As Object = Nothing + Property KD_Korrespondenz As Object = Nothing + Property Fiskal_Aktiv As Object = Nothing + Property DokumenteLKWFreigabe As Object = Nothing + Property EmailAnkunft As Boolean = False + Property EmailFreigabe As Boolean = False + + Property Höchstkredit As Object = Nothing + Property DakosyExport As Object = Nothing + Property FiBuSchnittstelleNr As Object = Nothing + + + + + + + Public hasEntry As Boolean = False + Dim SQL As New SQL + + Sub New(KundenNr) + Me.KundenNr = KundenNr + If KundenNr <= 0 Then + INIT_NEWKD_DATA() + Else + LOAD() + End If + 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("Mandant", Mandant)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNrZentrale", KundenNrZentrale)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Einmalige Abfertigung", Einmalige_Abfertigung, "Einmalige_Abfertigung")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Neutralisierung", Neutralisierung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avis", Avis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollvollmacht", Zollvollmacht)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollvollmacht vom", Zollvollmacht_vom, "Zollvollmacht_vom")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift", Lastschrift)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift von", Lastschrift_von, "Lastschrift_von")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift bis", Lastschrift_bis, "Lastschrift_bis")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rabattstaffel", Rabattstaffel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SVS", SVS)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision %", Vorlageprovision, "Vorlageprovision")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditaufwendungen %", Kreditaufwendungen, "Kreditaufwendungen")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bankspesen %", Bankspesen, "Bankspesen")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bankspesen Mindestbetrag", Bankspesen_Mindestbetrag, "Bankspesen_Mindestbetrag")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Besonderheiten", Besonderheiten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sammelrechnung", Sammelrechnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerschlüssel", Steuerschlüssel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenznummer", Referenznummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Antragssumme", Antragssumme)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Antrag vom", Antrag_vom, "Antrag_vom")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versicherungssumme", Versicherungssumme)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Entscheidung vom", Entscheidung_vom, "Entscheidung_vom")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditlimit", Kreditlimit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditlimit vom", Kreditlimit_vom, "Kreditlimit_vom")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Info", Info)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Überwachungskunde", Überwachungskunde)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsverbot", Abfertigungsverbot)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsverbot seit", Abfertigungsverbot_seit, "Abfertigungsverbot_seit")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsverbot Grund", Abfertigungsverbot_Grund, "Abfertigungsverbot_Grund")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechtsanwalt", Rechtsanwalt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechtsanwalt seit", Rechtsanwalt_seit, "Rechtsanwalt_seit")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingegeben am", Eingegeben_am, "Eingegeben_am")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geändert am", Geändert_am, "Geändert_am")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LfdSaldo", LfdSaldo)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erste Abfertigung", Erste_Abfertigung, "Erste_Abfertigung")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorkasse", Vorkasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsinformationen", Zahlungsinformationen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EORITIN", EORITIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EORITIN_NL", EORITIN_NL)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollnummer", Zollnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ZulassungsNr ZnV", ZulassungsNr_ZnV, "ZulassungsNr_ZnV")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aufschubkonto EUSt", Aufschubkonto_EUSt, "Aufschubkonto_EUSt")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aufschubkonto Zoll", Aufschubkonto_Zoll, "Aufschubkonto_Zoll")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währungscode", Währungscode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Euroeinführung", Euroeinführung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzteRechnungsNr", LetzteRechnungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetztesRechnungsDatum", LetztesRechnungsDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Konzernkonto", Konzernkonto)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FiBuSchnittstelle", FiBuSchnittstelle)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FiBuSchnittstelleNr", FiBuSchnittstelleNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Planzahl", Planzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesprächsbericht", Gesprächsbericht)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bonität", Bonität)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bonitätsdatum", Bonitätsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsziel", Zahlungsziel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeUmsatzsteuerbetragEUR", UStV_SummeUmsatzsteuerbetragEUR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeErstattungsbetragEUR", UStV_SummeErstattungsbetragEUR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_Summe3470BetragEUR", UStV_Summe3470BetragEUR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVZBetragEUR", UStV_SummeVZBetragEUR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR", UStV_SummeVorschaubetragEUR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_VERAG", UStV_SummeVorschaubetragEUR_VERAG)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_IDS", UStV_SummeVorschaubetragEUR_IDS)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fiskal", Fiskal)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ausfuhr", Ausfuhr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BankgarantieBetrag", BankgarantieBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BankgarantieGültigBis", BankgarantieGültigBis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KD_Korrespondenz", KD_Korrespondenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fiskal_Aktiv", Fiskal_Aktiv)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumenteLKWFreigabe", DokumenteLKWFreigabe)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailAnkunft", EmailAnkunft)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe", EmailFreigabe)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Höchstkredit", Höchstkredit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DakosyExport", DakosyExport)) + + + Return list + End Function + + + + Function VALID(ByRef ERROR_TXT) As Boolean + ' If If(FilialenNr Is Nothing, "", FilialenNr).ToString = "" Then ERROR_TXT = "Bitte geben Sie die zuständige Filiale an!" : Return False 'Es gibt alte Einträge ohne FilialenNr + + Return True + End Function + + + Sub INIT_NEWKD_DATA() + + ' Me.KundenNrZentrale = Me.KundenNr + + If Me.FilialenNr Is Nothing Then Me.FilialenNr = 4803 + If Me.Sachbearbeiter Is Nothing Then Me.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + + Me.Währungscode = "EUR" + Me.Eingegeben_am = Now.ToShortDateString + + Me.Vorlageprovision = 0.01 + Me.Kreditaufwendungen = 0.02 + Me.Bankspesen = 0 + Me.Bankspesen_Mindestbetrag = 0 + + Me.Zahlungsziel = 10 + Me.Sammelrechnung = 0 + Me.Steuerschlüssel = 10 + Me.Kreditlimit = 2600 + Me.Überwachungskunde = 0 + Me.Abfertigungsverbot = 0 + Me.Rechtsanwalt = 0 + Me.Euroeinführung = CDate("01.01.2002") + Me.UStV_Summe3470BetragEUR = 0 + Me.UStV_SummeErstattungsbetragEUR = 0 + Me.UStV_SummeVorschaubetragEUR = 0 + Me.UStV_SummeVorschaubetragEUR_IDS = 0 + Me.UStV_SummeVorschaubetragEUR_VERAG = 0 + Me.UStV_SummeUmsatzsteuerbetragEUR = 0 + Me.UStV_SummeVZBetragEUR = 0 + Me.Fiskal_Aktiv = 0 + Me.SVS = 1 + + End Sub + + Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + If newFlag Then INIT_NEWKD_DATA() + If EORITIN IsNot Nothing Then EORITIN = EORITIN.ToString.Replace(" ", "") 'Falls NL-Nr. mit leer einegegeben wird + + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + If KundenNr <= 0 Then + MsgBox("Fehler: KundenNr <= 0!") + Return False + End If + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Kunden WHERE KundenNr=@KundenNr) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + ' MsgBox(sqlstr) + Dim id = SQL.doSQLVarListID(KundenNr, sqlstr, "FMZOLL", , list,,, False, 2) + If id = -2 Then id = SQL.doSQLVarListID(KundenNr, sqlstr, "FMZOLL", , list,,, False, 10) '2.Versuch --> Oft Timeout wg.Fmzoll + If id = -2 Then id = SQL.doSQLVarListID(KundenNr, sqlstr, "FMZOLL", , list) '3.Versuch --> Oft Timeout wg.Fmzoll + + If id > 0 Then + KundenNr = id 'Sonst wird beim Speichern mit Fehler -1 in die KundenNr übergeben + If If(Me.KundenNrZentrale, 0) <= 0 Then SQL.doSQL("UPDATE Kunden SET KundenNrZentrale=KundenNr WHERE KundenNr=" & id, "FMZOLL") + End If + Return id > 0 + End Function + + Public Sub LOAD() + Dim test = "" + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Kunden WHERE KundenNr=@KundenNr ", conn) + cmd.Parameters.AddWithValue("@KundenNr", KundenNr) + + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + ' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text) + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + ' MsgBox(l.Text) + ' MsgBox(propInfo.PropertyType.ToString) + ' propInfo.SetValue(GetType(Object), l.Text) + + 'propInfo.SetValue(Me, l.Text) + + ' Try + test = l.Text + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + ' Catch ex As Exception + + ' End Try + + ' Me.GetType.GetProperty(l.Scalarvariable).setSetValue(GetType(Object), l.Text) + 'If propInfo IsNot Nothing Then + 'propInfo.SetValue(l.Scalarvariable, l.Text) + ' End If + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + 'Return Nothing + Catch ex As Exception + MsgBox(test & "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + ' Return Nothing + End Sub + + + + 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 [Kunden] SET " & str & " WHERE KundenNr=@KundenNr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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.isonlyForLoad Then 'And (Not i.isPrimaryParam OrElse i.Value > 0) 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 Kunden (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenAufschubkonten.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenAufschubkonten.vb new file mode 100644 index 0000000..c6a039f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenAufschubkonten.vb @@ -0,0 +1,245 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cKundenAufschubkonten + + Property kdAkto_id As Integer = -1 + Property kdAkto_KundenNr As Integer + Property kdAkto_art As Integer + Property kdAkto_hauptzollamt As Object = Nothing + Property kdAkto_kontonummer As Object = Nothing + Property kdAkto_bin As Object = Nothing + Property kdAkto_eori As Object = Nothing + Property kdAkto_eoriNL As Object = Nothing + + Dim SQL As New SQL + + + + Public Shared Function SAVE_LIST(KundenNr As Integer, LIST As List(Of cKundenAufschubkonten)) As Boolean + SAVE_LIST = DELETE_NOT_EXIST(KundenNr, LIST) + For Each l In LIST + If Not l.SAVEByKdNrArt() Then SAVE_LIST = False + Next + End Function + + Public Shared Function DELETE_NOT_EXIST(KundenNr As Integer, LIST As List(Of cKundenAufschubkonten)) As Boolean + Dim SQL As New SQL + Dim ktoNr = "" + For Each a In LIST + ktoNr &= a.kdAkto_art & "," + Next + If ktoNr.EndsWith(",") Then ktoNr = ktoNr.Substring(0, ktoNr.Length - 1) + + Dim sqlstr = " DELETE FROM [tblKundenAufschubkonten] WHERE kdAkto_KundenNr='" & KundenNr & "' " + If ktoNr <> "" Then sqlstr &= " AND [kdAkto_art] NOT IN (" & ktoNr & ") " + + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Sub New() + + End Sub + + Sub New(kdAkto_id) + Me.kdAkto_id = kdAkto_id + LOAD() + End Sub + + Sub New(kdAkto_KundenNr, kdAkto_art) + Me.kdAkto_KundenNr = kdAkto_KundenNr + Me.kdAkto_art = kdAkto_art + LOADByKdNrArt(kdAkto_KundenNr, kdAkto_art) + 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("kdAkto_id", kdAkto_id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_KundenNr", kdAkto_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_art", kdAkto_art)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_hauptzollamt", kdAkto_hauptzollamt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_kontonummer", kdAkto_kontonummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_bin", kdAkto_bin)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_eori", kdAkto_eori)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_eoriNL", kdAkto_eoriNL)) + Return list + End Function + + + Shared Function LOAD_ListAufschubKTOByKdNr(kdAkto_KundenNr) As List(Of cKundenAufschubkonten) + Try + LOAD_ListAufschubKTOByKdNr = New List(Of cKundenAufschubkonten) + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblKundenAufschubkonten WHERE kdAkto_KundenNr=@kdAkto_KundenNr ", conn) + cmd.Parameters.AddWithValue("@kdAkto_KundenNr", kdAkto_KundenNr) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim KTO As New cKundenAufschubkonten + For Each l In KTO.getParameterList() + Dim propInfo As PropertyInfo = KTO.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(KTO, Nothing) + Else + propInfo.SetValue(KTO, dr.Item(l.Text)) + End If + + Next + LOAD_ListAufschubKTOByKdNr.Add(KTO) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + LOAD_ListAufschubKTOByKdNr = Nothing + End Try + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenAufschubkonten WITH(updlock,serializable) WHERE kdAkto_id=@kdAkto_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + kdAkto_id = SQL.doSQLVarListID(kdAkto_id, sqlstr, "FMZOLL", , list) + Return kdAkto_id > 0 + + End Function + + + Public Function SAVEByKdNrArt() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenAufschubkonten WITH(updlock,serializable) WHERE kdAkto_KundenNr=@kdAkto_KundenNr and kdAkto_art=@kdAkto_art) " & + " BEGIN " & getUpdateCmd2() & " " & + " (SELECT kdAkto_id FROM tblKundenAufschubkonten WITH(updlock,serializable) WHERE kdAkto_KundenNr=@kdAkto_KundenNr and kdAkto_art=@kdAkto_art)" & + " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + kdAkto_id = SQL.doSQLVarListID(kdAkto_id, sqlstr, "FMZOLL", , list, True) + Return kdAkto_id > 0 + + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblKundenAufschubkonten WHERE kdAkto_id=@kdAkto_id ", conn) + cmd.Parameters.AddWithValue("@kdAkto_id", kdAkto_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub LOADByKdNrArt(kdAkto_KundenNr, kdAkto_art) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblKundenAufschubkonten WHERE kdAkto_KundenNr=@kdAkto_KundenNr AND kdAkto_art=@kdAkto_art ", conn) + cmd.Parameters.AddWithValue("@kdAkto_KundenNr", kdAkto_KundenNr) + cmd.Parameters.AddWithValue("@kdAkto_art", kdAkto_art) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + 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 [tblKundenAufschubkonten] SET " & str & " WHERE kdAkto_id=@kdAkto_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function getUpdateCmd2() 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 [tblKundenAufschubkonten] SET " & str & " WHERE kdAkto_KundenNr=@kdAkto_KundenNr AND kdAkto_art=@kdAkto_art ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 And Not i.isonlyForLoad 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 tblKundenAufschubkonten (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb new file mode 100644 index 0000000..6dc6d9f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb @@ -0,0 +1,135 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cKundenBesonderheiten + Property kdb_id As Integer + Property kdb_KundenNr As Integer + Property kdb_kategorie As String + Property kdb_text As String + Property kdb_mitId As Integer + Property kdb_mitName As String + Property kdb_EingetragenAm As Date + Property kdb_AenderungAm As Date + Property kdb_visible As Boolean = True + Property kdb_hervorheben As Boolean = False + Property kdb_history As Boolean = False + + Public hasEntry = False + + Dim SQL As New SQL + + Sub New() + + End Sub + Sub New(kdb_id) + Me.kdb_id = kdb_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("kdb_id", kdb_id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_KundenNr", kdb_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_kategorie", kdb_kategorie)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_text", kdb_text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_mitId", kdb_mitId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_mitName", kdb_mitName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_EingetragenAm", kdb_EingetragenAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_AenderungAm", kdb_AenderungAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_visible", kdb_visible)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_hervorheben", kdb_hervorheben)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_history", kdb_history)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenBesonderheiten WHERE kdb_id=@kdb_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblKundenBesonderheiten WHERE kdb_id=@kdb_id ", conn) + cmd.Parameters.AddWithValue("@kdb_id", kdb_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Shared Function DELETE_ALL_KD(kdb_KundenNr As Integer) As Boolean + Dim SQL As New SQL + Dim sqlstr = " DELETE FROM tblKundenBesonderheiten WHERE kdb_KundenNr=" & kdb_KundenNr + Return SQL.doSQL(sqlstr, "FMZOLL") + 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 [tblKundenBesonderheiten] SET " & str & " WHERE kdb_id=@kdb_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblKundenBesonderheiten (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenDatenblatt.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenDatenblatt.vb new file mode 100644 index 0000000..fd5a85f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenDatenblatt.vb @@ -0,0 +1,132 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cKundenDatenblatt + Property kdb_KundenNr As Integer + Property kdb_route As Object = Nothing + Property kdb_buergschaftsgeber As Object = Nothing + Property kdb_anzahlLKW As Object = Nothing + Property kdb_anzahlMA As Object = Nothing + Property kdb_bestimmungslandEU As Object = Nothing + Property kdb_grosskunden As Object = Nothing + Property kdb_gueter As Object = Nothing + Property kdb_grenzen As Object = Nothing + Property kdb_verhaltenAvisierung As Object = Nothing + Property kdb_sonstiges As Object = Nothing + + Dim SQL As New SQL + + Sub New(kdb_KundenNr) + Me.kdb_KundenNr = kdb_KundenNr + LOAD() + End Sub + + Public 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("kdb_KundenNr", kdb_KundenNr)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_route", kdb_route)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_buergschaftsgeber", kdb_buergschaftsgeber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_anzahlLKW", kdb_anzahlLKW)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_anzahlMA", kdb_anzahlMA)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_bestimmungslandEU", kdb_bestimmungslandEU)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_grosskunden", kdb_grosskunden)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_gueter", kdb_gueter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_grenzen", kdb_grenzen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_verhaltenAvisierung", kdb_verhaltenAvisierung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_sonstiges", kdb_sonstiges)) + + + Return list + End Function + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenDatenblatt WHERE kdb_KundenNr=@kdb_KundenNr) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + kdb_KundenNr = SQL.doSQLVarListID(kdb_KundenNr, sqlstr, "FMZOLL", , list) + Return kdb_KundenNr > 0 + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblKundenDatenblatt WHERE kdb_KundenNr=@kdb_KundenNr ", conn) + cmd.Parameters.AddWithValue("@kdb_KundenNr", kdb_KundenNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblKundenDatenblatt] SET " & str & " WHERE kdb_KundenNr=@kdb_KundenNr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblKundenDatenblatt (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblKundenDatenblatt] WHERE kdb_KundenNr=" & Me.kdb_KundenNr + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb new file mode 100644 index 0000000..29bf05c --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -0,0 +1,220 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cKundenErweitert + Property kde_KundenNr As Integer + Property kde_FirmenwortlautFiskal As Object = Nothing + Property kde_VerwendetAuftragsNr As Boolean = False + + Property kde_FixeAuftragsNr As Object = Nothing + Property kde_qsTeamId As Object = Nothing + Property kde_qsTeamMAId As Object = Nothing + Property kde_qsTeamMAName As Object = Nothing + Property kde_qsTeamName As Object = Nothing + Property kde_TeamId As Object = Nothing + Property kde_TeamMAId As Object = Nothing + + 'Property kde_Hoechstkredit As Object = Nothing + Property kde_Versicherung_Deckungsstopp As Boolean = False + Property kde_Versicherung_DeckungsstoppDatum As Object = Nothing + + Property kde_Versicherung_Uebergeben As Boolean = False + Property kde_Versicherung_UebergebenAm As Object = Nothing + Property kde_Versicherung_AnerkennungVersicherungsfall As Boolean = False + Property kde_Versicherung_AnerkennungVersicherungsfallAm As Object = Nothing + Property kde_Versicherung_AnerkennungVersicherungsfallAb As Object = Nothing + Property kde_txtVersicherungDeckungsquote As Object = Nothing + Property kde_txtVersicherungNichtVersicherbar As Object = Nothing + Property kde_Versicherung_GemeldeterBetrag As Object = Nothing + Property kde_txtVersicherungEHNr As Object = Nothing + + + Property kde_Leihgeld_Provision As Object = Nothing + Property kde_Leihgeld_ProvisionPreisstaffel As Object = Nothing + Property kde_Leihgeld_ProvisionAuftraggeber As Object = Nothing + Property EmailFreigabeSendungsListe As Boolean = False + Property EmailFreigabe_SteuerbescheidPDF As Boolean = False + Property EmailFreigabe_SteuerbescheidPDF_Bedingung As Integer + + Property EmailFreigabe_Art As String = "FG" ' STB/VBD/.. bei Freigabe ; BLG --> wenn Beleg da ist. + Property EmailFreigabe_VBDPDF As Boolean = False + Property EmailFreigabe_ABDPDF As Boolean = False + Property Email_AVM As Boolean = False + Property Depot_Kunde As Boolean = False + Property FiBuSchnittstelleLG As Boolean = False + + Property Zahlungsziel2 As Object = Nothing + Property Zahlungsziel3 As Object = Nothing + Property EmailAnkunft_Export As Boolean = False + Property EmailFreigabe_Export As Boolean = False + Property kde_BonitaetsStufe As Object = Nothing + + Property kde_Inkasso_Uebergeben As Boolean = False + Property kde_Inkasso_UebergebenAm As Object = Nothing + Property kde_Inkasso_GemeldeterBetrag As Object = Nothing + Property AutoFakturierung As Boolean = False + Property Veranlagungskunde As Boolean = False + Property Anmerkungen_Warnhinweis As Object = Nothing + Property kde_VERAG_INTERFACE_ID As Object = Nothing + Property kde_BesonderheitenNeu As Boolean = False + + Property kde_InfoAuftragsNr As Object = Nothing + Property kde_KundeFremdspedition As Boolean = False + Property kde_verzolltBei As Object = Nothing + Property kde_API_Tradeshift As Boolean = False + Property kde_FakturierungSR_Details As Boolean = False + Property kde_Fakturierung_Sprache As Object = Nothing + Property kde_TOBB_KundenNr As Object = Nothing + + Dim SQL As New SQL + + Sub New(KundenNr) + Me.kde_KundenNr = KundenNr + 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("kde_KundenNr", kde_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FirmenwortlautFiskal", kde_FirmenwortlautFiskal)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_VerwendetAuftragsNr", kde_VerwendetAuftragsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FixeAuftragsNr", kde_FixeAuftragsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_qsTeamId", kde_qsTeamId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_qsTeamMAId", kde_qsTeamMAId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_qsTeamMAName", kde_qsTeamMAName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_qsTeamName", kde_qsTeamName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_TeamId", kde_TeamId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_TeamMAId", kde_TeamMAId)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Hoechstkredit", kde_Hoechstkredit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_Deckungsstopp", kde_Versicherung_Deckungsstopp)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_DeckungsstoppDatum", kde_Versicherung_DeckungsstoppDatum)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_Uebergeben", kde_Versicherung_Uebergeben)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_UebergebenAm", kde_Versicherung_UebergebenAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_AnerkennungVersicherungsfall", kde_Versicherung_AnerkennungVersicherungsfall)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_AnerkennungVersicherungsfallAm", kde_Versicherung_AnerkennungVersicherungsfallAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_AnerkennungVersicherungsfallAb", kde_Versicherung_AnerkennungVersicherungsfallAb)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_txtVersicherungDeckungsquote", kde_txtVersicherungDeckungsquote)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_txtVersicherungNichtVersicherbar", kde_txtVersicherungNichtVersicherbar)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_GemeldeterBetrag", kde_Versicherung_GemeldeterBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_txtVersicherungEHNr", kde_txtVersicherungEHNr)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Leihgeld_Provision", kde_Leihgeld_Provision)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Leihgeld_ProvisionPreisstaffel", kde_Leihgeld_ProvisionPreisstaffel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Leihgeld_ProvisionAuftraggeber", kde_Leihgeld_ProvisionAuftraggeber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabeSendungsListe", EmailFreigabeSendungsListe)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_SteuerbescheidPDF", EmailFreigabe_SteuerbescheidPDF)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_SteuerbescheidPDF_Bedingung", EmailFreigabe_SteuerbescheidPDF_Bedingung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_Art", EmailFreigabe_Art)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_VBDPDF", EmailFreigabe_VBDPDF)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_ABDPDF", EmailFreigabe_ABDPDF)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Email_AVM", Email_AVM)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Depot_Kunde", Depot_Kunde)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FiBuSchnittstelleLG", FiBuSchnittstelleLG)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsziel2", Zahlungsziel2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsziel3", Zahlungsziel3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailAnkunft_Export", EmailAnkunft_Export)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_Export", EmailFreigabe_Export)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BonitaetsStufe", kde_BonitaetsStufe)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Inkasso_Uebergeben", kde_Inkasso_Uebergeben)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Inkasso_UebergebenAm", kde_Inkasso_UebergebenAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Inkasso_GemeldeterBetrag", kde_Inkasso_GemeldeterBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AutoFakturierung", AutoFakturierung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Veranlagungskunde", Veranlagungskunde)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anmerkungen_Warnhinweis", Anmerkungen_Warnhinweis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_VERAG_INTERFACE_ID", kde_VERAG_INTERFACE_ID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BesonderheitenNeu", kde_BesonderheitenNeu)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_InfoAuftragsNr", kde_InfoAuftragsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_KundeFremdspedition", kde_KundeFremdspedition)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_verzolltBei", kde_verzolltBei)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_API_Tradeshift", kde_API_Tradeshift)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FakturierungSR_Details", kde_FakturierungSR_Details)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Fakturierung_Sprache", kde_Fakturierung_Sprache)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_TOBB_KundenNr", kde_TOBB_KundenNr)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenErweitert WHERE kde_KundenNr=@kde_KundenNr) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblKundenErweitert WHERE kde_KundenNr=@kde_KundenNr ", conn) + cmd.Parameters.AddWithValue("@kde_KundenNr", kde_KundenNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [tblKundenErweitert] SET " & str & " WHERE kde_KundenNr=@kde_KundenNr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblKundenErweitert (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb new file mode 100644 index 0000000..84cdcb3 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb @@ -0,0 +1,271 @@ + + +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cKundenKontakteList + Property kkd_KundenNr As Object = Nothing + Property firma As Object = Nothing + Public LIST As New List(Of cKundenKontakte) + Dim SQL As New SQL + 'Dim listTodelete As New List(Of cOfferte) + + Sub New(kkd_KundenNr) + Me.kkd_KundenNr = kkd_KundenNr + ' Me.OffertenNr = OffertenNr + LOAD_LIST(Me.kkd_KundenNr) + End Sub + + Sub New(kkd_KundenNr, firma) + Me.kkd_KundenNr = kkd_KundenNr + Me.firma = firma + LOAD_LIST(Me.kkd_KundenNr, firma) + End Sub + + Public Sub CLEAR() + LIST.Clear() + End Sub + Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False) + ' Dim l As New cOfferte + 'l.eb_bcc = bcc + 'LIST.Add(l) + End Sub + + Public Sub LOAD_LIST(kkd_KundenNr, Optional firma = "") + Try + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False) + Using cmd As New SqlCommand("SELECT * FROM [tblKundenKontakt] WHERE kkd_KundenNr=@kkd_KundenNr " & If(firma <> "", " AND kkd_firma=@firma", ""), conn) + cmd.Parameters.AddWithValue("@kkd_KundenNr", kkd_KundenNr) + cmd.Parameters.AddWithValue("@firma", firma) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cKundenKontakte + 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 + LIST.Add(l) + + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + 'Public Function GET_KundenKontakte_VALUE(param As String) As String + ' For Each p In LIST + ' If p.bezeichnung = param Then + ' Return p.wert + ' End If + ' Next + ' Return "" + 'End Function + + 'Public Function GET_KundenKontakte_VALUE_BOOL(param As String) As String + ' For Each p In LIST + ' If p.bezeichnung = param Then + ' Return (p.wert = "1" Or p.wert = "true") + ' End If + ' Next + ' Return False + 'End Function + +End Class + +Public Class cKundenKontakte + Property kkd_id As Integer + + Property kkd_KundenNr As Integer + Property kkd_kkaId As Object = Nothing + Property kkd_kkaBez As Object = Nothing + Property kkd_Tel As Object = Nothing + Property kkd_Email As Object = Nothing + Property kkd_Fax As Object = Nothing + Property kkd_Homepage As Object = Nothing + Property kkd_Mobil As Object = Nothing + Property kkd_AnsprechpartnerAnrede As Object = Nothing + Property kkd_AnsprechpartnerVorname As Object = Nothing + Property kkd_AnsprechpartnerNachname As Object = Nothing + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Sub New() + + End Sub + + Sub New(kkd_id) + Me.kkd_id = kkd_id + LOAD(kkd_id) + 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("kkd_id", kkd_id,, True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_KundenNr", kkd_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_kkaId", kkd_kkaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_kkaBez", kkd_kkaBez)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Tel", kkd_Tel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Email", kkd_Email)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Fax", kkd_Fax)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Homepage", kkd_Homepage)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Mobil", kkd_Mobil)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerAnrede", kkd_AnsprechpartnerAnrede)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerVorname", kkd_AnsprechpartnerVorname)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerNachname", kkd_AnsprechpartnerNachname)) + + Return list + End Function + + + + + + Public Sub LOAD(kkd_id) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM [tblKundenKontakt] WHERE kkd_id=@kkd_id ", conn) + cmd.Parameters.AddWithValue("@kkd_id", kkd_id) + + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + End If + dr.Close() + End Using + End Using + 'Return Nothing + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + ' Return Nothing + End Sub + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenKontakt WHERE kkd_id=@kkd_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + kkd_id = SQL.doSQLVarListID(kkd_id, sqlstr, "FMZOLL", , list) + Return (kkd_id > 0) + End Function + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + kkd_id = SQL.doSQLVarListID(kkd_id, getInsertCmd, "FMZOLL", , list) + Return (kkd_id > 0) + 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 [tblKundenKontakt] SET " & str & " WHERE kkd_id=@kkd_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblKundenKontakt] WITH(updlock,serializable) WHERE kkd_id=" & Me.kkd_id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Shared Function DELETE_ALL_KONTAKTE(kkd_KundenNr, Optional kkd_kkaId = -1) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim sqlstr = " DELETE FROM [tblKundenKontakt] WITH(updlock,serializable) WHERE kkd_KundenNr=" & kkd_KundenNr & If(kkd_kkaId > 0, " AND kkd_kkaId='" & kkd_kkaId & "'", "") + Return SQL.doSQL(sqlstr, "FMZOLL") + 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 tblKundenKontakt (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Shared Function getMailAdress(KdNr As Integer, bez As String) As String + If KdNr < 0 Then Return "" + Dim KD_LIST = New cKundenKontakteList(KdNr) + If KD_LIST IsNot Nothing Then + For Each l In KD_LIST.LIST + If l.kkd_kkaBez = bez Then Return l.kkd_Email + Next + End If + Return "" + End Function + + Shared Function getKdNrFromMailAdress(KMail As String, Optional serchInKd As Boolean = True) As Integer + getKdNrFromMailAdress = -1 + If KMail = "" Then Return -1 + If Not KMail.Contains("@") Then Return -1 + + Dim whereFiliale = "" + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then + whereFiliale = " AND [FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' " + Else + 'SQLstr &= " AND isnull([FilialenNr],0)<>'5501' " + whereFiliale = " AND isnull([FilialenNr],0) NOT IN ('5501','5601','5701','5801') " + End If + + Dim SQL As New SQL + getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 [kkd_KundenNr] FROM [tblKundenKontakt] INNER JOIN Kunden ON KundenNr=kkd_KundenNr where kkd_Email LIKE ('%" & KMail & "%') AND kkd_kkaBez='OUTLOOK_AVISO_Eingang' " & whereFiliale, "FMZOLL",,, -1) + + If serchInKd AndAlso getKdNrFromMailAdress < 0 Then + getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [E-Mail] LIKE ('%" & KMail & "%') " & whereFiliale, "FMZOLL",,, -1) + + If getKdNrFromMailAdress < 0 Then + Dim sp = KMail.Split("@") + getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [E-Mail] LIKE ('%" & sp(1) & "%') " & whereFiliale, "FMZOLL",,, -1) + End If + End If + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenSDL.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenSDL.vb new file mode 100644 index 0000000..aa8b95a --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenSDL.vb @@ -0,0 +1,141 @@ + + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cKundenSDL + Property KundenNr As Integer + Property SDLNr As Integer + Property Sperre As Integer + Property Sperrdatum As Object = Nothing + Property Vertretungsvollmacht As Object = Nothing + Property Auszahlungsvollmacht As Object = Nothing + Property Finanzamtbestätigung As Object = Nothing + Property Vermerk As Object = Nothing + Property Antragsdatum As Object = Nothing + Property Erfassungsdatum As Object = Nothing + Property Änderungsdatum As Object = Nothing + Property Sachbearbeiter As Object = Nothing + Property MautDE_FlottenPIN As Object = Nothing + Property MautDE_MasterPIN As Object = Nothing + Property MautDE_BenutzerNr As Object = Nothing + Property MautAT_KartenNr As Object = Nothing + + + Public hasEntry = False + + Dim SQL As New SQL + + Sub New(KundenNr, SDLNr) + Me.KundenNr = KundenNr + Me.SDLNr = SDLNr + 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("KundenNr", KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SDLNr", SDLNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sperre", Sperre)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sperrdatum", Sperrdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vertretungsvollmacht", Vertretungsvollmacht)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Auszahlungsvollmacht", Auszahlungsvollmacht)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Finanzamtbestätigung", Finanzamtbestätigung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Antragsdatum", Antragsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Änderungsdatum", Änderungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MautDE_FlottenPIN", MautDE_FlottenPIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MautDE_MasterPIN", MautDE_MasterPIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MautDE_BenutzerNr", MautDE_BenutzerNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MautAT_KartenNr", MautAT_KartenNr)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM KundenSDL WHERE KundenNr=@KundenNr and SDLNr=@SDLNr) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "SDL", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionSDL() + Using cmd As New SqlCommand("SELECT * FROM KundenSDL WHERE KundenNr=@KundenNr and SDLNr=@SDLNr ", conn) + cmd.Parameters.AddWithValue("@KundenNr", KundenNr) + cmd.Parameters.AddWithValue("@SDLNr", SDLNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [KundenSDL] SET " & str & " WHERE KundenNr=@KundenNr and SDLNr=@SDLNr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 KundenSDL (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb new file mode 100644 index 0000000..cb586da --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb @@ -0,0 +1,280 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cKundenVermerke + Property LIST As New List(Of cKundenVermerkItem) + Dim kvm_KundenNr As Integer + + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New(kvm_KundenNr) + LOAD_LIST(kvm_KundenNr) + End Sub + + Sub New(kvm_KundenNr, kvm_art) + LOAD_LIST(kvm_KundenNr, kvm_art) + End Sub + + + Public Shared Function getDT(kvm_KundenNr As Integer, Optional kvm_art() As String = Nothing) As DataTable + Try + Dim art As String = "" + If kvm_art IsNot Nothing Then + For Each s In kvm_art + art &= "'" & s & "'," + Next + If art.EndsWith(",") Then art = art.Substring(0, art.Length - 1) + End If + + Dim myTable = New DataTable() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL + Using cmd As New SqlCommand("SELECT * FROM [tblKundenVermerke] WHERE [kvm_KundenNr] =@kvm_KundenNr " & If(art <> "", "AND kvm_art IN (" & art & ") ", "") & " ORDER BY [kvm_datum] desc ", conn) + cmd.Parameters.AddWithValue("@kvm_KundenNr", kvm_KundenNr) + Dim dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + Return Nothing + End Function + + Public Sub LOAD_LIST(kvm_KundenNr As Integer, Optional kvm_art() As String = Nothing) + Try + Dim art As String = "" + If kvm_art IsNot Nothing Then + For Each s In kvm_art + art &= "'" & art & "'," + Next + If art.EndsWith(",") Then art = art.Substring(0, art.Length - 1) + End If + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM [tblKundenVermerke] WHERE [kvm_KundenNr] =@kvm_KundenNr " & If(art <> "", "AND kvm_art IN (" & art & ") ", "") & " ORDER BY [kvm_datum] desc ", conn) + cmd.Parameters.AddWithValue("@kvm_KundenNr", kvm_KundenNr) + + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cKundenVermerkItem() + 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 + + LIST.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 + + Shared Function INSERT(kvm_KundenNr, kvm_art, kvm_text) As Boolean + Try + Dim KDV As New cKundenVermerkItem + KDV.kvm_art = kvm_art + KDV.kvm_text = kvm_text + KDV.kvm_KundenNr = kvm_KundenNr + KDV.kvm_datum = Now + KDV.kvm_sb = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + KDV.kvm_sbId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + Return KDV.SAVE() + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + + Public Function ADD(kvm_art, kvm_text) As Boolean + Try + Dim KDV As New cKundenVermerkItem + KDV.kvm_art = kvm_art + KDV.kvm_text = kvm_text + KDV.kvm_datum = Now + KDV.kvm_KundenNr = Me.kvm_KundenNr + KDV.kvm_sb = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + KDV.kvm_sbId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + If KDV.SAVE() Then + LIST.Add(KDV) + Return True + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + + + Public Shared Function DELETE(id) As Boolean + Try + Dim KDV As New cKundenVermerkItem(id) + Return KDV.DELETE() + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + Public Function REMOVE(kvm_id) As Boolean + Try + For Each i In LIST + If i.kvm_id = kvm_id Then + If i.DELETE() Then + LIST.Remove(i) + Return True + End If + End If + Next + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + + + +End Class + +Public Class cKundenVermerkItem + + + Property kvm_id As Integer + Property kvm_KundenNr As Integer + Property kvm_art As String = "" + Property kvm_datum As Date = Now + Property kvm_text As String = "" + Property kvm_sbId As Integer + Property kvm_sb As String = "" + + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(kvm_id) + Me.kvm_id = kvm_id + LOAD() + End Sub + + 'Shared Sub ADD(kvm_art, kvm_text) + ' Me.kvm_datum = Now + ' Me.kvm_sbId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + ' Me.kvm_sb = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + ' 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("kvm_id", kvm_id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kvm_KundenNr", kvm_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kvm_art", kvm_art)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kvm_datum", kvm_datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kvm_text", kvm_text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kvm_sbId", kvm_sbId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kvm_sb", kvm_sb)) + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenVermerke WHERE kvm_id=@kvm_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + kvm_id = SQL.doSQLVarListID(kvm_id, sqlstr, "FMZOLL", , list) + Return kvm_id > 0 + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblKundenVermerke] WHERE kvm_id=" & Me.kvm_id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblKundenVermerke WHERE kvm_id=@kvm_id ", conn) + cmd.Parameters.AddWithValue("@kvm_id", kvm_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + 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 + End Sub + + + + 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 [tblKundenVermerke] SET " & str & " WHERE kvm_id=@kvm_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 tblKundenVermerke (" & 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/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb new file mode 100644 index 0000000..fd207aa --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb @@ -0,0 +1,134 @@ + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cKundenVertraege + Property kv_Id As Integer + Property kv_KundenNr As Integer + Property kv_erhalten_Datum As Date + Property kv_vertragArtId As Integer + Property kv_Info As Object = Nothing + Property kv_datenarchivId As Object = Nothing + Property kv_gueltig As Boolean = True + + + Dim SQL As New SQL + + Sub New() + + End Sub + Sub New(kv_Id) + Me.kv_Id = kv_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("kv_Id", kv_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_KundenNr", kv_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_erhalten_Datum", kv_erhalten_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_vertragArtId", kv_vertragArtId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_Info", kv_Info)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_datenarchivId", kv_datenarchivId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_gueltig", kv_gueltig)) + + Return list + End Function + + Public Shared Function LOAD_LIST(KundenNr As Integer) As DataTable + Return (New SQL).loadDgvBySql("SELECT [kv_Id],[kv_KundenNr],[kv_erhalten_Datum],[kv_vertragArtId],kva_Bezeichnung,[kv_Info],[kv_datenarchivId],[kv_gueltig] FROM tblKundenVertraege INNER JOIN tblKundenVertraegeArten ON kv_vertragArtId=kva_id WHERE kv_KundenNr=" & KundenNr, "FMZOLL") + End Function + + Public Shared Function ENTRY_Exists(KundenNr As Integer, kv_vertragArtId As Integer) As Boolean + Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblKundenVertraege WHERE kv_KundenNr=" & KundenNr & " AND kv_vertragArtId='" & kv_vertragArtId & "'", "FMZOLL")) > 0) + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblKundenVertraege With(updlock, serializable) WHERE kv_Id=@kv_Id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("Select * FROM tblKundenVertraege WHERE kv_Id=@kv_Id ", conn) + cmd.Parameters.AddWithValue("@kv_Id", kv_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [tblKundenVertraege] SET " & str & " WHERE kv_Id=@kv_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblKundenVertraege (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblKundenVertraege] WITH(updlock,serializable) WHERE kv_Id=" & Me.kv_Id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cLanguageText.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cLanguageText.vb new file mode 100644 index 0000000..29c3b41 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cLanguageText.vb @@ -0,0 +1,172 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cLanguageText_LIST + Dim LIST As New List(Of cLanguageText) + + Sub New(tlan_kategorie, tlan_ukategorie1, tlan_ukategorie2, tlan_ukategorie3) + LOAD_LIST(tlan_kategorie, tlan_ukategorie1, tlan_ukategorie2, tlan_ukategorie3) + End Sub + Public Sub LOAD_LIST(tlan_kategorie, tlan_ukategorie1, tlan_ukategorie2, tlan_ukategorie3) + Try + List.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionWEB() + Using cmd As New SqlCommand("SELECT * FROM tblLanguageText WHERE tlan_kategorie=@tlan_kategorie AND tlan_ukategorie1=@tlan_ukategorie1 AND tlan_ukategorie2=@tlan_ukategorie2 AND tlan_ukategorie3=@tlan_ukategorie3 ", conn) + cmd.Parameters.AddWithValue("@tlan_kategorie", tlan_kategorie) + cmd.Parameters.AddWithValue("@tlan_ukategorie1", tlan_ukategorie1) + cmd.Parameters.AddWithValue("@tlan_ukategorie2", tlan_ukategorie2) + cmd.Parameters.AddWithValue("@tlan_ukategorie3", tlan_ukategorie3) + + ' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cLanguageText + 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 + LIST.Add(l) + + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function getTxt(tlan_Id, tlan_language, defaultTXT) As String + For Each l In LIST + If l.tlan_Id = tlan_Id And l.tlan_language = tlan_language Then + Return l.tlan_TEXT + End If + Next + Return defaultTXT + End Function + +End Class + + +Public Class cLanguageText + Property tlan_Id As Integer + Property tlan_kategorie As String = "" + Property tlan_ukategorie1 As String = "" + Property tlan_ukategorie2 As String = "" + Property tlan_ukategorie3 As String = "" + Property tlan_language As String = "" + Property tlan_TEXT As String = "" + + Dim SQL As New SQL + + Sub New() + + End Sub + Sub New(tlan_Id, tlan_language) + Me.tlan_Id = tlan_Id + Me.tlan_language = tlan_language + 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("tlan_Id", tlan_Id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_kategorie", tlan_kategorie)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_ukategorie1", tlan_ukategorie1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_ukategorie2", tlan_ukategorie2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_ukategorie3", tlan_ukategorie3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_language", tlan_language)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_TEXT", tlan_TEXT)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblLanguageText WHERE tlan_Id=@tlan_Id AND tlan_language=@tlan_language) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "WEB", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionWEB() + Using cmd As New SqlCommand("SELECT * FROM tblLanguageText WHERE tlan_Id=@tlan_Id AND tlan_language=@tlan_language ", conn) + cmd.Parameters.AddWithValue("@tlan_Id", tlan_Id) + cmd.Parameters.AddWithValue("@tlan_language", tlan_language) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [tblLanguageText] SET " & str & " WHERE tlan_Id=@tlan_Id AND tlan_language=@tlan_language ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblLanguageText (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cLeistungen.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cLeistungen.vb new file mode 100644 index 0000000..34328a5 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cLeistungen.vb @@ -0,0 +1,163 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cLeistungen + + Property LeistungsNr As Object = Nothing + Property LeistungsBez As Object = Nothing + Property BezeichnungAusListe As Object = Nothing + Property BerechnungsartNr As Object = Nothing + Property Steuerpflichtig As Object = Nothing + Property SKR As Object = Nothing + Property Vorlageprovision As Object = Nothing + Property Kreditaufwendungen As Object = Nothing + Property FixeTaxe As Object = Nothing + Property Abfertigungskosten As Object = Nothing + Property Preissperre As Object = Nothing + Property Kostenstelle As Object = Nothing + Property AufschubkontoNr As Object = Nothing + Property Gl_account As Object = Nothing + Property Analysis_type As Object = Nothing + Property Analysis_code As Object = Nothing + Property SachkontoInlandSteuerpflichtig As Object = Nothing + Property SachkontoInlandSteuerfrei As Object = Nothing + Property SachkontoEUSteuerpflichtig As Object = Nothing + Property SachkontoEUSteuerfrei As Object = Nothing + Property Sachkonto3Land As Object = Nothing + Property BS415 As Object = Nothing + Property BGebUStV As Object = Nothing + + Property IMEX_Gl_account As Object = Nothing + Property IMEX_SachkontoInlandSteuerpflichtig As Object = Nothing + Property IMEX_SachkontoInlandSteuerfrei As Object = Nothing + Property IMEX_SachkontoEUSteuerpflichtig As Object = Nothing + Property IMEX_SachkontoEUSteuerfrei As Object = Nothing + Property IMEX_Sachkonto3Land As Object = Nothing + + Dim SQL As New SQL + + Sub New(LeistungsNr) + Me.LeistungsNr = LeistungsNr + 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("LeistungsNr", LeistungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BezeichnungAusListe", BezeichnungAusListe)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartNr", BerechnungsartNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerpflichtig", Steuerpflichtig)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SKR", SKR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision", Vorlageprovision)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditaufwendungen", Kreditaufwendungen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FixeTaxe", FixeTaxe)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungskosten", Abfertigungskosten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preissperre", Preissperre)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kostenstelle", Kostenstelle)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AufschubkontoNr", AufschubkontoNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gl_account", Gl_account)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Analysis_type", Analysis_type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Analysis_code", Analysis_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoInlandSteuerpflichtig", SachkontoInlandSteuerpflichtig)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoInlandSteuerfrei", SachkontoInlandSteuerfrei)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoEUSteuerpflichtig", SachkontoEUSteuerpflichtig)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoEUSteuerfrei", SachkontoEUSteuerfrei)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachkonto3Land", Sachkonto3Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BS415", BS415)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebUStV", BGebUStV)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IMEX_Gl_account", IMEX_Gl_account)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IMEX_SachkontoInlandSteuerpflichtig", IMEX_SachkontoInlandSteuerpflichtig)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IMEX_SachkontoInlandSteuerfrei", IMEX_SachkontoInlandSteuerfrei)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IMEX_SachkontoEUSteuerpflichtig", IMEX_SachkontoEUSteuerpflichtig)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IMEX_SachkontoEUSteuerfrei", IMEX_SachkontoEUSteuerfrei)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IMEX_Sachkonto3Land", IMEX_Sachkonto3Land)) + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Leistungen WITH(updlock,serializable) WHERE LeistungsNr=@LeistungsNr) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Leistungen WHERE LeistungsNr=@LeistungsNr ", conn) + cmd.Parameters.AddWithValue("@LeistungsNr", LeistungsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [Leistungen] SET " & str & " WHERE LeistungsNr=@LeistungsNr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 Leistungen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cLeistungenBUKonten.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cLeistungenBUKonten.vb new file mode 100644 index 0000000..d569c65 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cLeistungenBUKonten.vb @@ -0,0 +1,127 @@ + + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cLeistungenBUKonten + + + Property LeistungsNr As Integer + Property Firma_ID As Integer + Property Gl_account As Object = Nothing + + Property SachkontoInlandSteuerpflichtig As Object = Nothing + Property SachkontoInlandSteuerfrei As Object = Nothing + Property SachkontoEUSteuerpflichtig As Object = Nothing + Property SachkontoEUSteuerfrei As Object = Nothing + Property Sachkonto3Land As Object = Nothing + + Public hasEntry = False + + Dim SQL As New SQL + + Sub New(LeistungsNr, Firma_ID) + Me.LeistungsNr = LeistungsNr + Me.Firma_ID = Firma_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("LeistungsNr", LeistungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gl_account", Gl_account)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoInlandSteuerpflichtig", SachkontoInlandSteuerpflichtig)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoInlandSteuerfrei", SachkontoInlandSteuerfrei)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoEUSteuerpflichtig", SachkontoEUSteuerpflichtig)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoEUSteuerfrei", SachkontoEUSteuerfrei)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachkonto3Land", Sachkonto3Land)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM LeistungenBUKonten WHERE LeistungsNr=@LeistungsNr and Firma_ID=@Firma_ID) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM LeistungenBUKonten WHERE LeistungsNr=@LeistungsNr and Firma_ID=@Firma_ID ", conn) + cmd.Parameters.AddWithValue("@LeistungsNr", LeistungsNr) + cmd.Parameters.AddWithValue("@Firma_ID", Firma_ID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [LeistungenBUKonten] SET " & str & " WHERE LeistungsNr=@LeistungsNr and Firma_ID=@Firma_ID ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 LeistungenBUKonten (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cMessangerListender.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cMessangerListender.vb new file mode 100644 index 0000000..2896273 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cMessangerListender.vb @@ -0,0 +1,482 @@ + + +Imports System.Net, System.Net.Sockets +Imports System.Text +Imports System.Threading +Imports VERAG_PROG_ALLGEMEIN + + +Public Class cMessangerListender + Dim serverSocket As Socket = Nothing + Dim clientSocket As Socket + Dim byteData(1023) As Byte + + Public Shared boolInitAufschub As Boolean = False + Public Shared boolFSSAtlas As Boolean = False + Public Shared boolDatenserver As Boolean = False + + Dim splitPanelDefaultHeight As Integer = 0 + + Public Sub START() + DIENST_InitSocket() 'initialisieren + End Sub + + Sub DIENST_InitSocket() + Try + + If serverSocket IsNot Nothing AndAlso serverSocket.IsBound Then + Else + If serverSocket IsNot Nothing Then Exit Sub 'Falls es schon läuft + serverSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) + Dim IpEndPoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8800) + serverSocket.Bind(IpEndPoint) + serverSocket.Listen(5) + serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing) + + End If + + Catch ex As Exception + 'LEIDER KEINE ANDRES LÖSUNG + End Try + End Sub + + Private Sub OnAccept(ByVal ar As IAsyncResult) + clientSocket = serverSocket.EndAccept(ar) + serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing) + AddClient(clientSocket) + End Sub + + Delegate Sub _AddClient(ByVal client As Socket) + Private Sub AddClient(ByVal client As Socket) ' Neunen Client hinzufügen + 'If InvokeRequired Then + ' Invoke(New _AddClient(AddressOf AddClient), client) + ' Exit Sub + 'End If + ' writeToFrmLog(client, "", "Verbindungsaufbau.. ") + Send("ConSuccess", client) ' Der Client bekommt die Nachricht, dass die Verbindung steht... + '... jetzt kann der Client senden, der Server horcht... + clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, + New AsyncCallback(AddressOf OnRecieve), clientSocket) + End Sub + + Private Sub Send(ByVal msg As String, ByVal client As Socket) 'An den Client senden + Dim sendBytes As Byte() = Encoding.BigEndianUnicode.GetBytes(msg) + client.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), client) + End Sub + Private Sub OnSend(ByVal ar As IAsyncResult) + Dim client As Socket = ar.AsyncState + client.EndSend(ar) + End Sub + + Private Sub OnRecieve(ByVal ar As IAsyncResult) ' Wenn ein Task-Befehl vom Client empfangen wurde + Dim client As Socket = ar.AsyncState + Try + client.EndReceive(ar) + Dim bytesRec As Byte() = byteData + Dim message As String = Encoding.BigEndianUnicode.GetString(bytesRec) '.Replace(Convert.ToChar(0), "") + Dim s As String = Read(message, client) + If s <> "" Then Send(s, client) ' Die Aufgabe wird abgearbeitet, der Client bekommt bei Fehler eine Antwort... + Catch ex As Exception + client.Shutdown(SocketShutdown.Both) + client.Close() + End Try + End Sub + Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) + + End Sub + + Delegate Function _Read(ByVal msg As String, client As Socket, messageFile() As Byte, fileName As String) + Private Function Read(ByVal msg As String, client As Socket, Optional messageFile() As Byte = Nothing, Optional fileName As String = "") As String + 'If InvokeRequired Then + ' Invoke(New _Read(AddressOf Read), msg, client, messageFile, fileName) + ' Return "" + 'End If + msg = msg.Replace(Convert.ToChar(0), "") + ' MsgBox("MESSSSS:::::::::::: " & msg) + Select Case msg + Case "test" 'nur ein Test, des Ergbnis ist immer Positiv + ' writeToFrmLog(client, "test", "test ") + ' Return "Task successful" + Send("Task successful", client) 'Client-Mittelung + Case "NEW_MESSAGE" 'der Task initAufschubkonten wird aufgerufen + ' MsgBox("NEW_MESSAGE!!!!!") + ' If Not boolInitAufschub Then Me.writeToFrmLog(client, "initAufschubkonten", "Abgebrochen - Task nicht aktiv " & msg) : Return "Task inactive" + + ' die eigentliche Funktion wird in einem Tread aufgrufen + Dim thread As New Thread(AddressOf NEW_MESSAGE) + thread.IsBackground = True + 'thread.Start(client) + thread.Start() + + 'Ein zweiter Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf. + 'Dim st As New Thread(AddressOf stopThread) + 'st.IsBackground = True + 'Dim param_obj(3) As Object + ''Übergabeparameter des 2. Threads + 'param_obj(0) = thread + 'param_obj(1) = client + 'param_obj(2) = 60 + 'st.Start(param_obj) + + 'Send("Task successful", client) 'Client-Mittelung + + Return "" + + + End Select + + Return "Task not found" + ' Me.writeToFrmLog(client, "", "ERROR: Undefinierter Task: " & msg) + + End Function + + Sub NEW_MESSAGE() + VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True + ' MsgBox("jojo") + 'For Each openForm In Application.OpenForms() + ' If TypeOf (openForm) Is frmMessenger Then + ' 'MsgBox("Sendungsfenster bereits geöffnet!") + ' 'CType(openForm, frmSendungsdetailsNEU).BringToFront() + ' 'Return Nothing + ' CType(openForm, frmMessenger).REFRESH_CHAT() + ' CType(openForm, frmMessenger).btnTEST.Visible = True + ' Exit For + ' End If + 'Next + End Sub + + Sub stopThread(param_obj As Object) 'Stoppt einen Hauptthread nach einer gewissen Anzahl von Sekunden; Übergabeparameter: Object { Tread, clientSocket, SekundenToTimeout } + Thread.Sleep(param_obj(2) * 1000) ' Hier wird soviele Senkunden gewartet, wie in den Übergabeparametern definiert wurde. + If param_obj(0).IsAlive Then + param_obj(0).Abort() ' Wenn der Hauptthread noch immer läuft, wird er jetzt beendet. + Else + Exit Sub + End If + Send("Task timeout", param_obj(1)) 'Client-Mittelung + 'Me.writeToFrmLog(param_obj(1), "ERROR: Task wurde aufgrund eines Timeouts abgebrochen.") 'Log-Mittelung + End Sub + + + + + + ''Threadsichere Funktion zum schreiben in die TextBox: + 'Delegate Sub writeToFrmLogCallback(ByVal client As Socket, ByVal nameTask As String, ByVal text As String) + 'Public Sub writeToFrmLog(ByVal client As Socket, ByVal nameTask As String, ByVal text As String) + + ' ' InvokeRequired required compares the thread ID of the + ' ' calling thread to the thread ID of the creating thread. + ' ' If these threads are different, it returns true. + ' If Me.txtLog.InvokeRequired Then + ' Dim d As New writeToFrmLogCallback(AddressOf writeToFrmLog) + ' Me.Invoke(d, New Object() {client, nameTask, text}) + ' Else + ' Dim remoteIpEndPoint As IPEndPoint = client.RemoteEndPoint + ' Me.txtLog.Text &= Now.ToString("dd.MM.yyyy HH:mm ") & nameTask & " (" & remoteIpEndPoint.Address.ToString & "): " & text & vbNewLine + ' If Me.txtLog.Lines.Count > 35 Then + ' Dim arr As String() = Me.txtLog.Lines + ' Me.txtLog.Text = "" + ' For i = arr.Count - 35 To arr.Count - 1 + ' Me.txtLog.Text &= arr(i) & vbNewLine + ' Next i + ' End If + ' End If + ' Me.txtLog.SelectionLength = 0 + 'End Sub + + 'Public Sub writeToFrmLog(ByVal nameTask As String, ByVal text As String) + ' Me.txtLog.Text &= Now.ToString("dd.MM.yyyy HH:mm ") & nameTask & ": " & text & vbNewLine + ' If Me.txtLog.Lines.Count > 35 Then + ' Dim arr As String() = Me.txtLog.Lines + ' Me.txtLog.Text = "" + ' For i = arr.Count - 35 To arr.Count - 1 + ' Me.txtLog.Text &= arr(i) & vbNewLine + ' Next i + ' End If + 'End Sub + + + + 'Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'geht nicht + ' clientSocket.Close() + + ' If clientSocket.Connected Then + ' clientSocket.Shutdown(SocketShutdown.Both) + ' clientSocket.Close() + ' End If + ' clientSocket.Disconnect(True) + + ' txtInitAufschubStatus.Text = "angehalten" + ' txtInitAufschubStatus.ForeColor = Color.DarkRed + 'End Sub + + Public Sub STOP_MSG_LISTENDER() + clientSocket.Shutdown(SocketShutdown.Both) + clientSocket.Close() + serverSocket.Shutdown(SocketShutdown.Both) + serverSocket.Close() + serverSocket = Nothing + DIENST_InitSocket() + End Sub + + + + + + Private Result As Object = Nothing 'Store the worked result of abc() + Private Sub Worker(ByVal state As Object) + Dim are As AutoResetEvent = DirectCast(state, AutoResetEvent) + ' do anything you want here: + + + + + + Dim result As Integer = 0 + 'result = abc(input_val); + + SyncLock Me.Result + Me.Result = result + End SyncLock + are.[Set]() + End Sub + 'Private Sub method() + + ' Const TimeOut As Int32 = 5000 + ' Dim [handles] As WaitHandle() = New WaitHandle() {New AutoResetEvent(False)} + + ' ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf Worker), [handles](0)) + ' Dim finished As Boolean = WaitHandle.WaitAll([handles], TimeOut, True) + ' 'ThreadPool.RegisterWaitForSingleObject () + + ' If finished Then + ' ' step 2 + ' MessageBox.Show("Worker function finished sucessfully, go to Step2") + ' Else + ' ' step 3 + ' MessageBox.Show([String].Format("Worker function time out({0})!, go to Step3", TimeOut)) + ' End If + 'End Sub + + +End Class + +Public Class cServerClient + Dim clientSocket As Socket + Dim byteData(1023) As Byte + Dim doThis As String + Dim params() As String + Public status As String = "begin" + ' Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + ' begin() + ' End Sub + + Public Event FunctionFinished(ByVal sender As Object, ByVal e As FunctionFinishedArgs) + + + Public Sub begin(ip, doThis_tmp, Optional params() = Nothing) + Try + + doThis = doThis_tmp + params = params + Dim timeOut As Integer = 60 + Select Case doThis + Case "test" : timeOut = 5 ' nach 5 Sekunden wird abgebrochen + Case "NEW_MESSAGE" : timeOut = 5 ' nach 120 Sekunden wird abgebrochen + 'Case "initAufschubkonten" : timeOut = 60 ' nach 60 Sekunden wird abgebrochen + End Select + + 'Ein Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf. + 'Dim st As New Thread(AddressOf stopThread) + 'st.IsBackground = True + 'Dim param_obj(1) As Object + ''Übergabeparameter des 2. Threads + 'param_obj(0) = timeOut + 'st.Start(param_obj) + + + clientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) + Dim ipAddress As IPAddress = IPAddress.Parse(ip) + + ' Dim ipAddress As IPAddress = ipAddress.Parse("192.168.0.90") + Dim ipEndPoint As IPEndPoint = New IPEndPoint(ipAddress, 8800) + clientSocket.BeginConnect(ipEndPoint, New AsyncCallback(AddressOf OnConnect), Nothing) + status = "beginConnect" + ' endconnect(clientSocket) + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + End Sub + + Public Sub waitTillFinished() + While Not (status = "TaskError" Or status = "TaskSuccess") + 'wait + End While + 'Return True + End Sub + + Private Sub OnConnect(ByVal ar As IAsyncResult) + Try + clientSocket.EndConnect(ar) + clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, + New AsyncCallback(AddressOf OnRecieve), clientSocket) + Catch ex As Exception + ' MsgBox("Verbindung zum Server konnte nicht aufgebaut werden!") + End Try + End Sub + + Private Sub OnSend(ByVal ar As IAsyncResult) + Dim client As Socket = ar.AsyncState + client.EndSend(ar) + End Sub + Private Sub Send(ByVal msg As String, ByVal client As Socket) + Dim sendBytes As Byte() = Encoding.BigEndianUnicode.GetBytes(msg) + client.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), client) + End Sub + Public Function ByteArrayToTextString(ByRef Barr() As Byte) As String + Dim enc As System.Text.Encoding = Encoding.BigEndianUnicode + Return enc.GetString(Barr) + End Function + + Private Sub OnRecieve(ByVal ar As IAsyncResult) + Try + Dim client As Socket = ar.AsyncState + client.EndReceive(ar) + Dim bytesRec As Byte() = byteData + Dim message As String = Encoding.BigEndianUnicode.GetString(bytesRec) + ' MsgBox("FROM SERVER: " & message) + Dim b(1023) As Byte + + ' MsgBox("SERVER RECIEVE: " & Encoding.BigEndianUnicode.GetString(b)) + + byteData = b + Read(message) + clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, + New AsyncCallback(AddressOf OnRecieve), clientSocket) + + Catch ex As Exception + ' MsgBox("Verbindung zum Server wurde unterbrochen!") + End Try + End Sub + + Delegate Sub _Read(ByVal msg As String) + Private Sub Read(ByVal msg As String) + 'If frmMain.InvokeRequired Then + ' frmMain.Invoke(New _Read(AddressOf Read), msg) + ' Exit Sub + 'End If + + 'frmMain.icoVERAGMonitoring.Visible = False + + 'if richtige nsachricht + ' Dim asciis As Byte() = Encoding.BigEndianUnicode.GetBytes(msg) + ' Dim a As Char = msg(msg.Length - 1) + ' msg = msg.Replace(a, "") + ' MsgBox(msg.Length) + + ' MsgBox(msg(msg.Length - 1)) + ' MsgBox(msg(msg.Length - 1)) + ' MsgBox(Asc(msg(msg.Length - 1))) + ' MsgBox(Asc(msg(msg.Length - 2))) + msg = msg.Replace(Convert.ToChar(0), "") + Try + + ' MsgBox("-" & msg & "-" & vbNewLine & "ConSuccess" & "-") + If msg = "ConSuccess" Then + status = "ConSuccess" + Select Case doThis + Case "test" + Send("test", clientSocket) + status = "sendTask" + Case "NEW_MESSAGE" + Send("NEW_MESSAGE", clientSocket) + status = "sendTask" + End Select + + ' MsgBox("!!!!!ConSuccess --> initAufschubkonten") + ' Send("FSSAtlasStart", clientSocket) + 'Send("test", clientSocket) + 'Send("initAufschubkonten", clientSocket) + + 'ElseIf msg = "Task successful" Then + ' status = "TaskSuccess" + ' clientSocket.Disconnect(False) + ' clientSocket.Shutdown(SocketShutdown.Both) + ' clientSocket.Close() + ' 'endconnect(clientSocket)'geht ned + ' ' MsgBox("Task erfolgreich!", vbSystemModal, doThis) + ' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.OK, "Task erfolgreich!")) + 'ElseIf msg = "Task not found" Then + ' MsgBox("SERVERERROR: Der Dienst wurde nicht gefunden!", vbSystemModal, "NEW_MESSAGE") + ' status = "TaskError" + ' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienst wurde nicht gefunden!")) + 'ElseIf msg = "Task inactive" Then + ' MsgBox("SERVERERROR: Der Dienste ist nicht aktiv!", vbSystemModal, "NEW_MESSAGE") + ' status = "TaskError" + ' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienste ist nicht aktiv!")) + 'ElseIf msg = "Task timeout" Then + ' MsgBox("SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!", vbSystemModal, "NEW_MESSAGE") + ' status = "TaskError" + ' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!")) + 'ElseIf msg = "Task error" Then + ' MsgBox("SERVERERROR: Server-Fehler!", vbSystemModal, "NEW_MESSAGE") + ' status = "TaskError" + ' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Server-Fehler!")) + 'Else + ' MsgBox("SERVER_NACHRICHT NICHT VERSTANDEN: " & msg, vbSystemModal) + ' status = "TaskError" + ' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVER_NACHRICHT NICHT VERSTANDEN: " & msg)) + + ' clientSocket.Shutdown(SocketShutdown.Both) + ' clientSocket.Close() + End If + + Catch ex As Exception + MsgBox("Verbindungs-Fehler beim Senden", vbSystemModal) + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "Verbindungs-Fehler beim Senden")) + clientSocket.Close() + End Try + ' byteData = Encoding.BigEndianUnicode.GetBytes("") + + End Sub + + + + Sub stopThread(param_obj As Object) 'Stoppt einen Hauptthread nach einer gewissen Anzahl von Sekunden; Übergabeparameter: Object { Tread, clientSocket, SekundenToTimeout } + Thread.Sleep(param_obj(0) * 1000) ' Hier wird soviele Senkunden gewartet, wie in den Übergabeparametern definiert wurde. + If status = "TaskError" Or status = "TaskSuccess" Then Exit Sub + status = "TaskError" + Try + clientSocket.Disconnect(False) + clientSocket.Shutdown(SocketShutdown.Both) + clientSocket.Close() + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "Task wurde aufgrund eines Timeouts vom Client abgebrochen.")) + MsgBox("ERROR: Task wurde aufgrund eines Timeouts vom Client abgebrochen.") 'Log-Mittelung + End Sub + + +End Class + +Public Class FunctionFinishedArgs + Inherits EventArgs + 'das was man später unter e sehen kann + Public Result As EventResult + 'hier - als Beispiel - einfach eine Enum + Public Enum EventResult + OK + ERR + End Enum + Public Message As String + 'Zum übergeben der Parameter + Public Sub New(ByVal r As EventResult, m As String) + Result = r + Message = m + End Sub +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb new file mode 100644 index 0000000..2b67fa6 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb @@ -0,0 +1,832 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cMessenger + + Public Shared NEW_MESSGE As Boolean = False + Public Shared UNREAD_MESAGES As Integer = 0 + + Shared SQL As New SQL + + Public Shared Function GEN_NEW_CHAT(chat_name As String, MaIds As List(Of Integer), Optional ByRef CHAT As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat = Nothing) As Boolean + CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat + CHAT.chat_erstelltAm = Now + CHAT.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + CHAT.chat_name = chat_name + + For Each maId In MaIds + Dim MB As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMembers(CHAT.chat_id, maId) + MB.chatMb_maId = maId + CHAT.CHAT_MEMBERS.Add(MB) + Next + Return CHAT.SAVE(True) + + End Function + + Public Shared Function CHECK_EXISTS(MaId As Integer, Optional ByRef toChatID As Integer = -1) As Boolean + Dim sqlStr = "Select TOP 1 chat_id FROM [tblMessenger_Chat] inner join tblMessenger_ChatMembers On chatMb_chatId=chat_id where chat_name='' AND [chat_aktiv]=1 + And (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMb_chatId=chat_id And chatMb_maId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "' ) >0 + And (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMb_chatId=chat_id And chatMb_maId='" & MaId & "' ) >0 + order by chat_id DESC" + + toChatID = SQL.getValueTxtBySql(sqlStr, "ADMIN",,, -1) + Return (toChatID > 0) + End Function + + + Public Shared Function GET_NewMSG_COUNT(Optional maId = -1) 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_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0", "ADMIN",,, 0) + End Function + + Public Shared Function GET_CHAT_LIST() As List(Of cMessenger_Chat) + Dim LIST As New List(Of cMessenger_Chat) + Dim dt = SQL.loadDgvBySql("SELECT [chat_id] FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0", "ADMIN") + + For Each r In dt.Rows + Dim CHAT As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(r("chat_id")) + LIST.Add(CHAT) + Next + Return LIST + + End Function + + Public Class cMessenger_Chat + + Property chat_id As Integer = -1 + Property chat_name As String + Property chat_erstelltAm As Date = Now + Property chat_erstelltMaId As Integer + Property chat_aktiv As Boolean = True + + Public CHAT_MEMBERS As New List(Of cMessenger_ChatMembers) + Public CHAT_MESSAGES As New List(Of cMessenger_ChatMessages) + Dim SQL As New SQL + + Sub New() + Me.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + Me.chat_erstelltAm = Now + LOAD() + End Sub + + + Sub New(chat_id As Integer, Optional topMax As String = "", Optional dateTmp As Object = Nothing) + Me.chat_id = chat_id + Me.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + Me.chat_erstelltAm = Now + LOAD(topMax, dateTmp) + End Sub + + Public 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("chat_id", chat_id,, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_name", chat_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_erstelltAm", chat_erstelltAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_erstelltMaId", chat_erstelltMaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_aktiv", chat_aktiv)) + + Return list + End Function + + + + Public Function SAVE(saveAll As Boolean) As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_Chat WHERE chat_id=@chat_id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + chat_id = SQL.doSQLVarListID(chat_id, sqlstr, "ADMIN", , list) + + If saveAll Then + SAVE_MEMBERS() + End If + + Return chat_id > 0 + End Function + + Public Sub LOAD(Optional topMax As String = "", Optional dateTmp As Object = Nothing) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("Select * FROM tblMessenger_Chat WHERE chat_id=@chat_id ", conn) + cmd.Parameters.AddWithValue("@chat_id", chat_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + Me.LOAD_MEMBERS() + If dateTmp Is Nothing Then + Me.LOAD_MESSAGES(topMax) + Else + Me.LOAD_MESSAGES_DATE(dateTmp) + End If + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function SAVE_MEMBERS() As Boolean + Try + DELETE_MEMBERS() + For Each MB In Me.CHAT_MEMBERS + MB.chatMb_chatId = Me.chat_id + MB.SAVE() + Next + Return True + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + Return False + End Try + End Function + + Public Function READ_ALL_MESSAGES() As Boolean + Dim sqlstr = "UPDATE tblMessenger_ChatMessageStatus SET chatMgSt_gelesen=1 FROM [tblMessenger_Chat] INNER JOIN tblMessenger_ChatMessages ON [chat_id]=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chat_id=" & Me.chat_id & " AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0 " + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + Public Function DELETE_MEMBERS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblMessenger_ChatMembers] WHERE chatMb_chatId=" & Me.chat_id + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + Public Sub LOAD_MEMBERS() + Try + Me.CHAT_MEMBERS.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMembers WHERE chatMb_chatId=@chat_id ", conn) + cmd.Parameters.AddWithValue("@chat_id", chat_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim MB As New cMessenger_ChatMembers(Me.chat_id, dr.Item("chatMb_maId")) + Me.CHAT_MEMBERS.Add(MB) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Sub LOAD_MESSAGES(Optional top As Integer = 100) + Try + Me.CHAT_MESSAGES.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM(SELECT TOP " & top & " * FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id order by chatMg_datetime desc) as T order by chatMg_datetime asc", conn) + cmd.Parameters.AddWithValue("@chat_id", chat_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc + Me.CHAT_MESSAGES.Add(MSG) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub LOAD_MESSAGES_DATE(dateTmp As Date) + Try + Me.CHAT_MESSAGES.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id AND CAST(chatMg_datetime as date)>=@dateTmp order by chatMg_datetime asc", conn) + cmd.Parameters.AddWithValue("@chat_id", chat_id) + cmd.Parameters.AddWithValue("@dateTmp", dateTmp) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc + Me.CHAT_MESSAGES.Add(MSG) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + 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 [tblMessenger_Chat] SET " & str & " WHERE chat_id=@chat_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblMessenger_Chat (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblMessenger_Chat] WHERE chat_id=" & Me.chat_id + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + + End Class + + Public Class cMessenger_ChatMembers + + Property chatMb_chatId As Integer = -1 + Property chatMb_maId As Integer = -1 + Property chatMb_beitritt As Date = Now + + Dim SQL As New SQL + + + + Sub New(chatMb_chatId, chatMb_maId) + Me.chatMb_chatId = chatMb_chatId + Me.chatMb_maId = chatMb_maId + Me.chatMb_beitritt = Now + End Sub + + Public 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("chatMb_chatId", chatMb_chatId)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMb_maId", chatMb_maId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMb_beitritt", chatMb_beitritt)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblMessenger_ChatMembers] WHERE chatMb_chatId=@chatMb_chatId AND chatMb_maId=@chatMb_maId) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ADMIN", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM [tblMessenger_ChatMembers] WHERE chatMb_chatId=@chatMb_chatId AND chatMb_maId=@chatMb_maId ", conn) + cmd.Parameters.AddWithValue("@chatMb_chatId", chatMb_chatId) + cmd.Parameters.AddWithValue("@chatMb_maId", chatMb_maId) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblMessenger_ChatMembers] SET " & str & " WHERE chatMb_chatId=@chatMb_chatId AND chatMb_maId=@chatMb_maId ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 [tblMessenger_ChatMembers] (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE([chatMb_maId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblMessenger_ChatMembers] WHERE [chatMb_chatId]=" & Me.[chatMb_chatId] & " AND [chatMb_maId] ='" & [chatMb_maId] & "'" + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + + End Class + + Public Class cMessenger_ChatStatus + + Property chatMgSt_chatMsgId As Integer + Property chatMgSt_MaId As Integer + Property chatMgSt_gelesen As Boolean = False + Property chatMgSt_datetime As Date = Now + + Dim SQL As New SQL + + + Sub New(chatMgSt_chatMsgId, chatMgSt_MaId, chatMgSt_gelesen) + Me.chatMgSt_chatMsgId = chatMgSt_chatMsgId + Me.chatMgSt_MaId = chatMgSt_MaId + Me.chatMgSt_gelesen = chatMgSt_gelesen + Me.chatMgSt_datetime = Now + End Sub + + Public 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("chatMgSt_chatMsgId", chatMgSt_chatMsgId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_MaId", chatMgSt_MaId)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_gelesen", chatMgSt_gelesen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_datetime", chatMgSt_datetime)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_ChatMessages WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ADMIN", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessages WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ", conn) + cmd.Parameters.AddWithValue("@chatMgSt_chatMsgId", chatMgSt_chatMsgId) + cmd.Parameters.AddWithValue("@chatMgSt_MaId", chatMgSt_MaId) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 tblMessenger_ChatMessages SET " & str & " WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblMessenger_ChatMessages (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE([chatMgSt_MaId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM tblMessenger_ChatMessages WHERE [chatMgSt_chatMsgId]=" & Me.chatMgSt_chatMsgId & " AND [chatMgSt_MaId] ='" & chatMgSt_MaId & "'" + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + + End Class + + + Public Class cMessenger_ChatMessages + + Property chatMg_id As Integer ' INT Not NULL PRIMARY KEY IDENTITY, + + Property chatMg_chatId As Integer ' INT Not NULL, + Property chatMg_maId As Integer ' INT Not NULL, + Property chatMg_datetime As Date = Now + Property chatMg_maName As String = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname + Property chatMg_maFirma As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Property chatMg_type As String = "TEXT" + Property chatMg_text As String = "" + Property chatMg_anhang_docId As Integer ' int NULL, + Property chatMg_referenz_AvisoId As Integer ' int NULL, + Property chatMg_referenz_SendungsId As Integer ' int NULL, + Property chatMg_referenz_KundenNr As Integer ' int NULL + + Public CHAT_MESSAGES_STATUS_LIST As New List(Of cMessenger_ChatMessageStatus) + + Dim SQL As New SQL + + + Sub New(chatMg_id) + Me.chatMg_id = chatMg_id + LOAD() + End Sub + Sub New(chatMg_chatId, chatMg_maId) + Me.chatMg_chatId = chatMg_chatId + Me.chatMg_maId = chatMg_maId + End Sub + + Public 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("chatMg_id", chatMg_id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_maId", chatMg_maId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_chatId", chatMg_chatId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_datetime", chatMg_datetime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_maName", chatMg_maName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_maFirma", chatMg_maFirma)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_type", chatMg_type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_text", chatMg_text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_anhang_docId", chatMg_anhang_docId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_referenz_AvisoId", chatMg_referenz_AvisoId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_referenz_SendungsId", chatMg_referenz_SendungsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_referenz_KundenNr", chatMg_referenz_KundenNr)) + + Return list + End Function + + + + Public Function SAVE(saveStat As Boolean, Optional CHAT_MEMBERS As List(Of cMessenger_ChatMembers) = Nothing) As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_ChatMessages WHERE chatMg_id=@chatMg_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + Dim tmp_id = SQL.doSQLVarListID(Me.chatMg_id, sqlstr, "ADMIN", , list) + If tmp_id > 0 Then + Me.chatMg_id = tmp_id + If saveStat Then SAVE_STATUS_FIRST(CHAT_MEMBERS) + UPDATE_LASTMSG() ' Versucht einen TSTMP der letzten Nachricht einzutragen + Return True + Else + Return False + End If + + + ''Return SQL.doSQLVarList(sqlstr, "ADMIN", , list) + End Function + + + Public Function UPDATE_LASTMSG() As Boolean + Dim sqlstr = " UPDATE tblMessenger_Chat SET chat_lastMsg=getDate() WHERE [chat_id]=" & Me.chatMg_chatId & " " + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessages WHERE chatMg_id=@chatMg_id ", conn) + cmd.Parameters.AddWithValue("@chatMg_id", chatMg_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + LOAD_STATUS() + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 tblMessenger_ChatMessages SET " & str & " WHERE chatMg_id=@chatMg_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblMessenger_ChatMessages (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE([chatMgSt_MaId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM tblMessenger_ChatMessages WHERE [chatMg_id]=" & Me.chatMg_id & " " + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + Public Sub SAVE_STATUS_FIRST(CHAT_MEMBERS As List(Of cMessenger_ChatMembers)) + Try + If CHAT_MEMBERS IsNot Nothing Then + For Each MB In CHAT_MEMBERS + Dim gelesen = False + If MB.chatMb_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + gelesen = True + End If + Dim STAT As New cMessenger_ChatMessageStatus(Me.chatMg_id, MB.chatMb_maId, gelesen) + + STAT.SAVE() + Next + End If + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + 'Public Function DELETE_STATUS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim sqlstr = " DELETE FROM [tblMessenger_ChatMessageStatus] WHERE chatMb_chatId=" & Me.chatMg_chatId + ' Return SQL.doSQL(sqlstr, "ADMIN") + 'End Function + + Public Sub LOAD_STATUS() + Try + Me.CHAT_MESSAGES_STATUS_LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMg_id ", conn) + cmd.Parameters.AddWithValue("@chatMg_id", Me.chatMg_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim MB As New cMessenger_ChatMessageStatus(Me.chatMg_id, dr.Item("chatMgSt_MaId")) + Me.CHAT_MESSAGES_STATUS_LIST.Add(MB) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + End Class + + + + + Public Class cMessenger_ChatMessageStatus + + Property chatMgSt_chatMsgId As Integer + Property chatMgSt_MaId As Integer + Property chatMgSt_datetime As Date = Now + Property chatMgSt_gelesen As Boolean = False + + Dim SQL As New SQL + + + Sub New(chatMgSt_chatMsgId, chatMgSt_MaId) + Me.chatMgSt_chatMsgId = chatMgSt_chatMsgId + Me.chatMgSt_MaId = chatMgSt_MaId + LOAD() + End Sub + Sub New(chatMgSt_chatMsgId, chatMgSt_MaId, chatMgSt_gelesen) + Me.chatMgSt_chatMsgId = chatMgSt_chatMsgId + Me.chatMgSt_MaId = chatMgSt_MaId + Me.chatMgSt_gelesen = chatMgSt_gelesen + End Sub + + Public 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("chatMgSt_chatMsgId", chatMgSt_chatMsgId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_MaId", chatMgSt_MaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_datetime", chatMgSt_datetime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_gelesen", chatMgSt_gelesen)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ADMIN", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ", conn) + cmd.Parameters.AddWithValue("@chatMgSt_chatMsgId", chatMgSt_chatMsgId) + cmd.Parameters.AddWithValue("@chatMgSt_MaId", chatMgSt_MaId) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 tblMessenger_ChatMessageStatus SET " & str & " WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblMessenger_ChatMessageStatus (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE([chatMgSt_MaId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM tblMessenger_ChatMessageStatus WHERE [chatMgSt_chatMsgId]=" & Me.chatMgSt_chatMsgId & " AND [chatMgSt_MaId]=" & Me.chatMgSt_MaId & " " + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + End Class + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb new file mode 100644 index 0000000..2111ba8 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb @@ -0,0 +1,403 @@ +Imports System.Data.SqlClient + + +Public Class cMitarbeiter + Property mit_id As Integer + Property mit_username As String = "" + Property mit_pwd As String = "" + Property mit_geschlecht As String = "" + Property mit_affix As String = "" + Property mit_vname As String = "" + Property mit_nname As String = "" + Property mit_gebdat As String = "" + Property mit_strasse As String = "" + Property mit_hausnr As String = "" + Property mit_land As String = "" + Property mit_plz As String = "" + Property mit_ort As String = "" + Property mit_niederlassung As String = "" + Property mit_abteilung As String = "" + Property mit_position As String = "" + Property mit_durchwahl As String = "" + Property mit_email As String = "" + Property mit_mobiltel As String = "" + Property mit_allowAnruf As Boolean + Property mit_info As String = "" + Property mit_einstiegsdatum As String = "" + Property mit_gekuendigt As Boolean + Property mit_kuendigungsdatum As String = "" + Property mit_foto As String = "" + Property mit_firma As String = "VERAG" + Property mit_firmaFMZoll As Object = Nothing + Property mit_FMZollPersID As Object = Nothing + Property mit_standartFiliale As Integer = -1 + Property mit_standardPreisliste As Integer = -1 + Property mit_FMZollPersIDKasseIsnotSpedBuch As Boolean = False + Property mit_FMZollPersIDSpedBuch As Object = Nothing + Property mit_DpUserStandardDP As Object = Nothing + Property mit_DpUserStandardFirma As Object = Nothing + Property mit_DpUserStandardFirma2 As Object = Nothing + + Property mit_EZOLL_SB As Object = Nothing + Property mit_ATLAS_SB As Object = Nothing + Property mit_pseudoUser As Boolean = False + + Property mit_FirmenDatenAnzeige As Object = Nothing + + Property mit_DAKOSY_SB As Object = Nothing + Property mit_DAKOSY_SBFull As Object = Nothing + Property mit_TESTonly As Object = Nothing + Property mit_PasswortChanged As Object = Nothing + Property mit_TELOTEC_SB As Object = Nothing + + + Property mit_AliasAD_Domain As Object = Nothing + Property mit_AliasAD_Username As Object = Nothing + Property mit_AliasAD_Domain2 As Object = Nothing + Property mit_AliasAD_Username2 As Object = Nothing + + Property mit_teamId As Object = Nothing + Property mit_ChatBenutzer As Boolean = True + Property mit_FirmaHaupt As Object = Nothing + Property mit_ChatEasteregg As Boolean = False + + + + Property mit_MAVerzeichnis_SettingsTstmp As Object = Nothing + Property mit_MAVerzeichnis_allowGebDat As Boolean = False + Property mit_MAVerzeichnis_allowWohnadresse As Boolean = False + Property mit_MAVerzeichnis_allowGebDatOhneJahr As Boolean = False + Property mit_MAVerzeichnis_allowHandynummer As Boolean = False + Property mit_MAVerzeichnis_allowFoto As Boolean = False + + + Property mit_MAVerzeichnis_Motto As Object = Nothing + Property mit_MAVerzeichnis_Spitzname As Object = Nothing + + Property mit_foto_DocId As Object = Nothing + Property mit_sprache As String = "DE" + + + Dim SQL As New SQL + + Sub New() + + End Sub + + Sub New(id) + Me.mit_id = id + LOAD(id) + + End Sub + ' Dim SQL As New SQL + + Public Function Fullname() As String + Return (If(mit_vname, "") & " " & If(mit_nname, "")).Trim + End Function + + + Public Function getFirma() As String + If mit_firma Is Nothing Then Return "" + Select Case mit_firma + Case "ALLE", "BEIDE", "ALL" + Return If(mit_FirmaHaupt, "") + End Select + Return mit_firma + End Function + + 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("mit_id", mit_id,, True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_username", mit_username)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_pwd", mit_pwd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_geschlecht", mit_geschlecht)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_affix", mit_affix)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_vname", mit_vname)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_nname", mit_nname)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_gebdat", mit_gebdat)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_strasse", mit_strasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_hausnr", mit_hausnr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_land", mit_land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_plz", mit_plz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ort", mit_ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_niederlassung", mit_niederlassung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_abteilung", mit_abteilung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_position", mit_position)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_durchwahl", mit_durchwahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_email", mit_email)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_mobiltel", mit_mobiltel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_allowAnruf", mit_allowAnruf)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_info", mit_info)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_einstiegsdatum", mit_einstiegsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_gekuendigt", mit_gekuendigt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_kuendigungsdatum", mit_kuendigungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto", mit_foto)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_firma", mit_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_firmaFMZoll", mit_firmaFMZoll)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FMZollPersID", mit_FMZollPersID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_standartFiliale", mit_standartFiliale)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_standardPreisliste", mit_standardPreisliste)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FMZollPersIDKasseIsnotSpedBuch", mit_FMZollPersIDKasseIsnotSpedBuch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FMZollPersIDSpedBuch", mit_FMZollPersIDSpedBuch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardDP", mit_DpUserStandardDP)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardFirma", mit_DpUserStandardFirma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardFirma2", mit_DpUserStandardFirma2)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_EZOLL_SB", mit_EZOLL_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATLAS_SB", mit_ATLAS_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_pseudoUser", mit_pseudoUser)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FirmenDatenAnzeige", mit_FirmenDatenAnzeige)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DAKOSY_SB", mit_DAKOSY_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DAKOSY_SBFull", mit_DAKOSY_SBFull)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_TESTonly", mit_TESTonly)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_PasswortChanged", mit_PasswortChanged)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_TELOTEC_SB", mit_TELOTEC_SB)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Domain", mit_AliasAD_Domain)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Username", mit_AliasAD_Username)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Domain2", mit_AliasAD_Domain2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Username2", mit_AliasAD_Username2)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_teamId", mit_teamId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ChatBenutzer", mit_ChatBenutzer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FirmaHaupt", mit_FirmaHaupt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ChatEasteregg", mit_ChatEasteregg)) + + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_SettingsTstmp", mit_MAVerzeichnis_SettingsTstmp)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowGebDat", mit_MAVerzeichnis_allowGebDat)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowWohnadresse", mit_MAVerzeichnis_allowWohnadresse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowGebDatOhneJahr", mit_MAVerzeichnis_allowGebDatOhneJahr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowHandynummer", mit_MAVerzeichnis_allowHandynummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowFoto", mit_MAVerzeichnis_allowFoto)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Motto", mit_MAVerzeichnis_Motto)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Spitzname", mit_MAVerzeichnis_Spitzname)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto_DocId", mit_foto_DocId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_sprache", mit_sprache)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMitarbeiter WHERE mit_id=@mit_id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + Dim id = SQL.doSQLVarListID(mit_id, sqlstr, "ADMIN", , list) + If id > 0 Then + mit_id = id + Return mit_id + Else + Return -1 + End If + + 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 [tblMitarbeiter] SET " & str & " WHERE mit_id=@mit_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblMitarbeiter (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblMitarbeiter] WHERE mit_id=" & Me.mit_id + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + + + 'Public Sub LOAD(Optional topMax As String = "") + ' Try + ' Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + ' Using cmd As New SqlCommand("Select * FROM tblMitarbeiter WHERE mit_id=@mit_id ", conn) + ' cmd.Parameters.AddWithValue("@mit_id", mit_id) + ' Dim dr = cmd.ExecuteReader() + ' If dr.Read Then + ' For Each l In getParameterList() + ' Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + ' If dr.Item(l.Text) Is DBNull.Value Then + ' propInfo.SetValue(Me, Nothing) + ' Else + ' propInfo.SetValue(Me, dr.Item(l.Text)) + ' End If + + ' Next + ' Me.LOAD_MEMBERS() + ' Me.LOAD_MESSAGES(topMax) + ' End If + ' dr.Close() + ' End Using + ' End Using + ' Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + ' End Try + 'End Sub + + + Public Function LOAD(ByVal id As Integer) As Boolean + Dim sqlstr As String = "SELECT * FROM tblMitarbeiter WHERE mit_id = " & id & "" + ' adasdas() + ' Dim d As VERAG_PROG_ALLGEMEIN.cMitarbeiter = Nothing + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN + Using cmd As New SqlCommand(sqlstr, conn) + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + ' d = New VERAG_PROG_ALLGEMEIN.cMitarbeiter() + Try + Me.mit_id = dr.Item("mit_id") + Me.mit_username = dr.Item("mit_username") + Me.mit_pwd = dr.Item("mit_pwd") + Me.mit_affix = dr.Item("mit_affix") + If Not dr.Item("mit_geschlecht") Is DBNull.Value Then Me.mit_geschlecht = dr.Item("mit_geschlecht") + Me.mit_vname = dr.Item("mit_vname") + Me.mit_nname = dr.Item("mit_nname") + If Not dr.Item("mit_gebdat") Is DBNull.Value Then Me.mit_gebdat = dr.Item("mit_gebdat") + Me.mit_strasse = dr.Item("mit_strasse") + Me.mit_hausnr = dr.Item("mit_hausnr") + Me.mit_land = dr.Item("mit_land") + Me.mit_plz = dr.Item("mit_plz") + Me.mit_ort = dr.Item("mit_ort") + Me.mit_niederlassung = dr.Item("mit_niederlassung") + Me.mit_abteilung = dr.Item("mit_abteilung") + Me.mit_position = dr.Item("mit_position") + Me.mit_durchwahl = dr.Item("mit_durchwahl") + Me.mit_email = dr.Item("mit_email") + Me.mit_mobiltel = dr.Item("mit_mobiltel") + Me.mit_allowAnruf = dr.Item("mit_allowAnruf") + If Not dr.Item("mit_FMZollPersID") Is DBNull.Value Then Me.mit_FMZollPersID = dr.Item("mit_FMZollPersID") + If Not dr.Item("mit_FMZollPersIDKasseIsnotSpedBuch") Is DBNull.Value Then Me.mit_FMZollPersIDKasseIsnotSpedBuch = dr.Item("mit_FMZollPersIDKasseIsnotSpedBuch") + If Not dr.Item("mit_FMZollPersIDSpedBuch") Is DBNull.Value Then Me.mit_FMZollPersIDSpedBuch = dr.Item("mit_FMZollPersIDSpedBuch") + If Not dr.Item("mit_DpUserStandardDP") Is DBNull.Value Then Me.mit_DpUserStandardDP = dr.Item("mit_DpUserStandardDP") + If Not dr.Item("mit_DpUserStandardFirma") Is DBNull.Value Then Me.mit_DpUserStandardFirma = dr.Item("mit_DpUserStandardFirma") + If Not dr.Item("mit_DpUserStandardFirma2") Is DBNull.Value Then Me.mit_DpUserStandardFirma2 = dr.Item("mit_DpUserStandardFirma2") + + + If Not dr.Item("mit_standartFiliale") Is DBNull.Value Then Me.mit_standartFiliale = dr.Item("mit_standartFiliale") + If Not dr.Item("mit_standardPreisliste") Is DBNull.Value Then Me.mit_standardPreisliste = dr.Item("mit_standardPreisliste") + + Me.mit_info = dr.Item("mit_info") + If Not dr.Item("mit_einstiegsdatum") Is DBNull.Value Then Me.mit_einstiegsdatum = dr.Item("mit_einstiegsdatum") + Me.mit_gekuendigt = dr.Item("mit_gekuendigt") + If Not dr.Item("mit_kuendigungsdatum") Is DBNull.Value Then Me.mit_kuendigungsdatum = dr.Item("mit_kuendigungsdatum") + If Not dr.Item("mit_foto") Is DBNull.Value Then Me.mit_foto = dr.Item("mit_foto") + Me.mit_firma = dr.Item("mit_firma") + If Not dr.Item("mit_firmaFMZoll") Is DBNull.Value Then Me.mit_firmaFMZoll = dr.Item("mit_firmaFMZoll") + If Not dr.Item("mit_EZOLL_SB") Is DBNull.Value Then Me.mit_EZOLL_SB = dr.Item("mit_EZOLL_SB") + If Not dr.Item("mit_ATLAS_SB") Is DBNull.Value Then Me.mit_ATLAS_SB = dr.Item("mit_ATLAS_SB") + Me.mit_pseudoUser = dr.Item("mit_pseudoUser") + If Not dr.Item("mit_DAKOSY_SB") Is DBNull.Value Then Me.mit_DAKOSY_SB = dr.Item("mit_DAKOSY_SB") + If Not dr.Item("mit_DAKOSY_SBFull") Is DBNull.Value Then Me.mit_DAKOSY_SBFull = dr.Item("mit_DAKOSY_SBFull") + If Not dr.Item("mit_TESTonly") Is DBNull.Value Then Me.mit_TESTonly = dr.Item("mit_TESTonly") + If Not dr.Item("mit_PasswortChanged") Is DBNull.Value Then Me.mit_PasswortChanged = dr.Item("mit_PasswortChanged") + + If Not dr.Item("mit_FirmenDatenAnzeige") Is DBNull.Value Then Me.mit_FirmenDatenAnzeige = dr.Item("mit_FirmenDatenAnzeige") + If Not dr.Item("mit_TELOTEC_SB") Is DBNull.Value Then Me.mit_TELOTEC_SB = dr.Item("mit_TELOTEC_SB") + If Not dr.Item("mit_AliasAD_Domain") Is DBNull.Value Then Me.mit_AliasAD_Domain = dr.Item("mit_AliasAD_Domain") + If Not dr.Item("mit_AliasAD_Username") Is DBNull.Value Then Me.mit_AliasAD_Username = dr.Item("mit_AliasAD_Username") + If Not dr.Item("mit_AliasAD_Domain2") Is DBNull.Value Then Me.mit_AliasAD_Domain2 = dr.Item("mit_AliasAD_Domain2") + If Not dr.Item("mit_AliasAD_Username2") Is DBNull.Value Then Me.mit_AliasAD_Username2 = dr.Item("mit_AliasAD_Username2") + If Not dr.Item("mit_teamId") Is DBNull.Value Then Me.mit_teamId = dr.Item("mit_teamId") + + + Me.mit_ChatBenutzer = dr.Item("mit_ChatBenutzer") + Me.mit_ChatEasteregg = dr.Item("mit_ChatEasteregg") + + + If Not dr.Item("mit_FirmaHaupt") Is DBNull.Value Then Me.mit_FirmaHaupt = dr.Item("mit_FirmaHaupt") + + + If Not dr.Item("mit_MAVerzeichnis_SettingsTstmp") Is DBNull.Value Then Me.mit_MAVerzeichnis_SettingsTstmp = dr.Item("mit_MAVerzeichnis_SettingsTstmp") + Me.mit_MAVerzeichnis_allowGebDat = dr.Item("mit_MAVerzeichnis_allowGebDat") + Me.mit_MAVerzeichnis_allowGebDatOhneJahr = dr.Item("mit_MAVerzeichnis_allowGebDatOhneJahr") + Me.mit_MAVerzeichnis_allowWohnadresse = dr.Item("mit_MAVerzeichnis_allowWohnadresse") + Me.mit_MAVerzeichnis_allowHandynummer = dr.Item("mit_MAVerzeichnis_allowHandynummer") + Me.mit_MAVerzeichnis_allowFoto = dr.Item("mit_MAVerzeichnis_allowFoto") + + If Not dr.Item("mit_foto_DocId") Is DBNull.Value Then Me.mit_foto_DocId = dr.Item("mit_foto_DocId") + If Not dr.Item("mit_MAVerzeichnis_Spitzname") Is DBNull.Value Then Me.mit_MAVerzeichnis_Spitzname = dr.Item("mit_MAVerzeichnis_Spitzname") + If Not dr.Item("mit_MAVerzeichnis_Motto") Is DBNull.Value Then Me.mit_MAVerzeichnis_Motto = dr.Item("mit_MAVerzeichnis_Motto") + If Not dr.Item("mit_sprache") Is DBNull.Value Then Me.mit_sprache = dr.Item("mit_sprache") + + + + + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Mitarbeiter-Details " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) + End Try + End If + dr.Close() + End Using + End Using + Return True + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Mitarbeiter-Details:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Return Nothing + End Try + Return False + End Function + + Public Shared Sub UPDATE_EASTEREGG(egg As Boolean, Optional mit_id As Integer = -1) + Try + If cAllgemein.MITARBEITER IsNot Nothing Then + If mit_id <= 0 Then + mit_id = cAllgemein.MITARBEITER.mit_id + End If + End If + Dim sql As New SQL + If mit_id > 0 Then sql.doSQL("UPDATE tblMitarbeiter SET mit_ChatEasteregg='" & If(egg, 1, 0) & "' WHERE mit_id=" & mit_id, "ADMIN") + + Catch ex As Exception + + End Try + End Sub +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb new file mode 100644 index 0000000..8516582 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb @@ -0,0 +1,151 @@ + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cNCTSGestellungsadressen + Property nga_id As Integer + Property nga_name As String = "" + Property nga_strasse As Object = Nothing + Property nga_land As Object = Nothing + Property nga_plz As Object = Nothing + Property nga_ort As Object = Nothing + Property nga_EORI As Object = Nothing + Property nga_EORI_NL As Object = Nothing + Property nga_Ansprechpartner As Object = Nothing + Property nga_bestZollst As Object = Nothing + Property nga_SB As Object = Nothing + Property nga_firma As Object = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Property nga_Aenderungsdatum As Date = Now + + + Dim SQL As New SQL + + Sub New() + nga_SB = If(nga_SB, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) + 'If sms_SachbearbeiterId <= 0 Then sms_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + + End Sub + + Sub New(nga_id) + Me.nga_id = nga_id + LOAD() + End Sub + + Public 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("nga_id", nga_id, , True, True)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_name", nga_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_strasse", nga_strasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_land", nga_land)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_plz", nga_plz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_ort", nga_ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_EORI", nga_EORI)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_EORI_NL", nga_EORI_NL)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_Ansprechpartner", nga_Ansprechpartner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_bestZollst", nga_bestZollst)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_SB", nga_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_firma", nga_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_Aenderungsdatum", nga_Aenderungsdatum)) + + Return list + End Function + + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblNCTSGestellungsadressen WITH(updlock,serializable) WHERE nga_id=@nga_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + nga_id = SQL.doSQLVarListID(nga_id, sqlstr, "FMZOLL", , list) + Return nga_id > 0 + End Function + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTSGestellungsadressen WHERE nga_id=@nga_id ", conn) + cmd.Parameters.AddWithValue("@nga_id", nga_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblNCTSGestellungsadressen] SET " & str & " WHERE nga_id=@nga_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblNCTSGestellungsadressen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTSGestellungsadressen] WITH(updlock,serializable) WHERE nga_id=" & Me.nga_id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb new file mode 100644 index 0000000..bdb318d --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb @@ -0,0 +1,1493 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cNCTS_TR + + Property ncts_Id As Integer + Property ncts_Partnersystem As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00 + Property ncts_Status As Object = Nothing ' DAKOSY_Worker.cDY_Statusliste.S_00 + Property ncts_Status_KEWILL_Equivalent As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_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_VersendungsLandCode As Object = Nothing + Property ncts_BestimmungslandCode As Object = Nothing + Property ncts_ArtAnmeldung As Object = Nothing + Property ncts_BeladungsOrt As Object = Nothing + + Property ncts_DurchgangszollstelleDienststellnummer1 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer2 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer3 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer4 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer5 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer6 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer7 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer8 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer9 As Object = Nothing + + Property ncts_BestimmungsstelleDienststellennummer As Object = Nothing + Property ncts_AbgangsDienststellennummer As Object = Nothing + Property ncts_Wiedergestellungsdatum As Object = Nothing + Property ncts_KzVereinfachtesVerfahren As Object = Nothing + Property ncts_GesamtRohmasse As Object = Nothing + Property ncts_GesamtAnzahlPackstuecke As Object = Nothing + Property ncts_Verschluss_ArtCode As Object = Nothing + Property ncts_Verschluss_Anzahl As Object = Nothing + Property ncts_Verschluss_Zeichen1 As Object = Nothing + Property ncts_Verschluss_Zeichen2 As Object = Nothing + Property ncts_Verschluss_Zeichen3 As Object = Nothing + Property ncts_Verschluss_Zeichen4 As Object = Nothing + Property ncts_Verschluss_Zeichen5 As Object = Nothing + Property ncts_Verschluss_Zeichen6 As Object = Nothing + Property ncts_Verschluss_Zeichen7 As Object = Nothing + Property ncts_Verschluss_Zeichen8 As Object = Nothing + Property ncts_Verschluss_Zeichen9 As Object = Nothing + Property ncts_Verschluss_Zeichen10 As Object = Nothing + Property ncts_Verschluss_Zeichen11 As Object = Nothing + Property ncts_Verschluss_Zeichen12 As Object = Nothing + Property ncts_Verschluss_Zeichen13 As Object = Nothing + Property ncts_Verschluss_Zeichen14 As Object = Nothing + Property ncts_Verschluss_Zeichen15 As Object = Nothing + Property ncts_Verschluss_Zeichen16 As Object = Nothing + Property ncts_Befoerderungsmittel_KennzeichenAbgang As Object = Nothing + Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As Object = Nothing + Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As Object = Nothing + Property ncts_Befoerderungsmittel_ArtGrenzueberschreitung As Object = Nothing + Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As Object = Nothing + Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As Object = Nothing + Property ncts_Versender_EORI As Object = Nothing + Property ncts_Versender_NLNR As Object = Nothing + Property ncts_Versender_TIN As Object = Nothing + Property ncts_Versender_Name As Object = Nothing + Property ncts_Versender_StrasseHausnummer As Object = Nothing + Property ncts_Versender_Ort As Object = Nothing + Property ncts_Versender_PLZ As Object = Nothing + Property ncts_Versender_Land As Object = Nothing + Property ncts_Empfaenger_EORI As Object = Nothing + Property ncts_Empfaenger_NLNR As Object = Nothing + Property ncts_Empfaenger_TIN As Object = Nothing + Property ncts_Empfaenger_Name As Object = Nothing + Property ncts_Empfaenger_StrasseHausnummer As Object = Nothing + Property ncts_Empfaenger_Ort As Object = Nothing + Property ncts_Empfaenger_PLZ As Object = Nothing + Property ncts_Empfaenger_Land As Object = Nothing + Property ncts_Hauptverpflichteter_EORI As Object = Nothing + Property ncts_Hauptverpflichteter_NLNR As Object = Nothing + Property ncts_Hauptverpflichteter_TIN As Object = Nothing + Property ncts_Hauptverpflichteter_Name As Object = Nothing + Property ncts_Hauptverpflichteter_StrasseHausnummer As Object = Nothing + Property ncts_Hauptverpflichteter_Ort As Object = Nothing + Property ncts_Hauptverpflichteter_PLZ As Object = Nothing + Property ncts_Hauptverpflichteter_Land As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_IDCarnet As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_EORI As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_TIN As Object = Nothing + + Property ncts_SumA_KzSumASicherheit As Object = Nothing + Property ncts_SumA_KennnummerSendung As Object = Nothing + Property ncts_SumA_BesondereUmstaende As Object = Nothing + Property ncts_SumA_NummerBefoerderung As Object = Nothing + Property ncts_SumA_Ladeort As Object = Nothing + Property ncts_SumA_Entladeort As Object = Nothing + Property ncts_SumA_BefoerderungskostenZahlungsweise As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand1 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand2 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand3 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand4 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand5 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand6 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand7 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand8 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand9 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand10 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand11 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand12 As Object = Nothing + Property ncts_SumA_Versender_EORI As Object = Nothing + Property ncts_SumA_Versender_NLNR As Object = Nothing + Property ncts_SumA_Versender_TIN As Object = Nothing + Property ncts_SumA_Versender_Name As Object = Nothing + Property ncts_SumA_Versender_StrasseHausnummer As Object = Nothing + Property ncts_SumA_Versender_Land As Object = Nothing + Property ncts_SumA_Versender_PLZ As Object = Nothing + Property ncts_SumA_Versender_Ort As Object = Nothing + + Property ncts_SumA_Empfaenger_EORI As Object = Nothing + Property ncts_SumA_Empfaenger_NLNR As Object = Nothing + Property ncts_SumA_Empfaenger_TIN As Object = Nothing + Property ncts_SumA_Empfaenger_Name As Object = Nothing + Property ncts_SumA_Empfaenger_StrasseHausnummer As Object = Nothing + Property ncts_SumA_Empfaenger_Land As Object = Nothing + Property ncts_SumA_Empfaenger_PLZ As Object = Nothing + Property ncts_SumA_Empfaenger_Ort As Object = Nothing + + Property ncts_SumA_Befoerderer_EORI As Object = Nothing + Property ncts_SumA_Befoerderer_NLNR As Object = Nothing + Property ncts_SumA_Befoerderer_TIN As Object = Nothing + Property ncts_SumA_Befoerderer_Name As Object = Nothing + Property ncts_SumA_Befoerderer_StrasseHausnummer As Object = Nothing + Property ncts_SumA_Befoerderer_Land As Object = Nothing + Property ncts_SumA_Befoerderer_PLZ As Object = Nothing + Property ncts_SumA_Befoerderer_Ort As Object = Nothing + Property ncts_Stammreferenz As Object = Nothing + + Property ncts_GUID As Object = Nothing + Property ncts_Eroeffnung As Object = Nothing + Property ncts_Ankunft As Object = Nothing + Property ncts_Erledigung As Object = Nothing + Property ncts_AVISO_einarbeitet As Boolean = False + + Property ncts_SICHERHEITSANGABEN As New List(Of cNCTS_TR_Sicherheitsangaben) + Property ncts_WARENPOS As New List(Of cNCTS_TR_Warenposition) + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Function GET_SHIPMENTS(Partnersystem, VorpapierArt, VorpapierNr) As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL) + GET_SHIPMENTS = New List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL) + Dim dt = SQL.loadDgvBySql("Select [shTr_id] FROM [tblTR_Shipment] where shTr_Partnersystem='" & Partnersystem & "' AND [PrePaperCode]='" & VorpapierArt & "' and [PrePaperNr]='" & VorpapierNr & "'", "FMZOLL") + ' MsgBox("Select [shTr_id] FROM [tblTR_Shipment] where shTr_Partnersystem='" & Partnersystem & "' AND [PrePaperCode]='" & VorpapierArt & "' and [PrePaperNr]='" & VorpapierNr & "'") + If dt IsNot Nothing Then + For Each r In dt.Rows + Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(CInt(r("shTr_id"))) + If SH IsNot Nothing Then + GET_SHIPMENTS.Add(SH) + End If + Next + End If + + End Function + + Sub New() + + End Sub + + Sub New(ncts_dyaAnmID As Integer, ncts_Erstellung_SB As Integer) + Me.ncts_dyaAnmID = ncts_dyaAnmID + Me.ncts_Erstellung_SB = ncts_Erstellung_SB + Me.ncts_LetzteBearbeitung_SB = ncts_Erstellung_SB + 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_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_VersendungsLandCode", ncts_VersendungsLandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BestimmungslandCode", ncts_BestimmungslandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ArtAnmeldung", ncts_ArtAnmeldung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BeladungsOrt", ncts_BeladungsOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer1", ncts_DurchgangszollstelleDienststellnummer1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer2", ncts_DurchgangszollstelleDienststellnummer2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer3", ncts_DurchgangszollstelleDienststellnummer3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer4", ncts_DurchgangszollstelleDienststellnummer4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer5", ncts_DurchgangszollstelleDienststellnummer5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer6", ncts_DurchgangszollstelleDienststellnummer6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer7", ncts_DurchgangszollstelleDienststellnummer7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer8", ncts_DurchgangszollstelleDienststellnummer8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer9", ncts_DurchgangszollstelleDienststellnummer9)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BestimmungsstelleDienststellennummer", ncts_BestimmungsstelleDienststellennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AbgangsDienststellennummer", ncts_AbgangsDienststellennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Wiedergestellungsdatum", ncts_Wiedergestellungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_KzVereinfachtesVerfahren", ncts_KzVereinfachtesVerfahren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GesamtRohmasse", ncts_GesamtRohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GesamtAnzahlPackstuecke", ncts_GesamtAnzahlPackstuecke)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_ArtCode", ncts_Verschluss_ArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Anzahl", ncts_Verschluss_Anzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen1", ncts_Verschluss_Zeichen1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen2", ncts_Verschluss_Zeichen2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen3", ncts_Verschluss_Zeichen3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen4", ncts_Verschluss_Zeichen4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen5", ncts_Verschluss_Zeichen5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen6", ncts_Verschluss_Zeichen6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen7", ncts_Verschluss_Zeichen7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen8", ncts_Verschluss_Zeichen8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen9", ncts_Verschluss_Zeichen9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen10", ncts_Verschluss_Zeichen10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen11", ncts_Verschluss_Zeichen11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen12", ncts_Verschluss_Zeichen12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen13", ncts_Verschluss_Zeichen13)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen14", ncts_Verschluss_Zeichen14)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen15", ncts_Verschluss_Zeichen15)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen16", ncts_Verschluss_Zeichen16)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_KennzeichenAbgang", ncts_Befoerderungsmittel_KennzeichenAbgang)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_ArtGrenzueberschreitung", ncts_Befoerderungsmittel_ArtGrenzueberschreitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_EORI", ncts_Versender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_NLNR", ncts_Versender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_TIN", ncts_Versender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_Name", ncts_Versender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_StrasseHausnummer", ncts_Versender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_Ort", ncts_Versender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_PLZ", ncts_Versender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_Land", ncts_Versender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_EORI", ncts_Empfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_NLNR", ncts_Empfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_TIN", ncts_Empfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_Name", ncts_Empfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_StrasseHausnummer", ncts_Empfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_Ort", ncts_Empfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_PLZ", ncts_Empfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_Land", ncts_Empfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_EORI", ncts_Hauptverpflichteter_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_NLNR", ncts_Hauptverpflichteter_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_TIN", ncts_Hauptverpflichteter_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_Name", ncts_Hauptverpflichteter_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_StrasseHausnummer", ncts_Hauptverpflichteter_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_Ort", ncts_Hauptverpflichteter_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_PLZ", ncts_Hauptverpflichteter_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_Land", ncts_Hauptverpflichteter_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_IDCarnet", ncts_ZugelassenerEmpfaenger_IDCarnet)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_EORI", ncts_ZugelassenerEmpfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_TIN", ncts_ZugelassenerEmpfaenger_TIN)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_KzSumASicherheit", ncts_SumA_KzSumASicherheit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_KennnummerSendung", ncts_SumA_KennnummerSendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_NummerBefoerderung", ncts_SumA_NummerBefoerderung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BesondereUmstaende", ncts_SumA_BesondereUmstaende)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Ladeort", ncts_SumA_Ladeort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Entladeort", ncts_SumA_Entladeort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungskostenZahlungsweise", ncts_SumA_BefoerderungskostenZahlungsweise)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand1", ncts_SumA_BefoerderungsrouteLand1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand2", ncts_SumA_BefoerderungsrouteLand2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand3", ncts_SumA_BefoerderungsrouteLand3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand4", ncts_SumA_BefoerderungsrouteLand4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand5", ncts_SumA_BefoerderungsrouteLand5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand6", ncts_SumA_BefoerderungsrouteLand6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand7", ncts_SumA_BefoerderungsrouteLand7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand8", ncts_SumA_BefoerderungsrouteLand8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand9", ncts_SumA_BefoerderungsrouteLand9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand10", ncts_SumA_BefoerderungsrouteLand10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand11", ncts_SumA_BefoerderungsrouteLand11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand12", ncts_SumA_BefoerderungsrouteLand12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_EORI", ncts_SumA_Versender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_NLNR", ncts_SumA_Versender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_TIN", ncts_SumA_Versender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_Name", ncts_SumA_Versender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_StrasseHausnummer", ncts_SumA_Versender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_Land", ncts_SumA_Versender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_PLZ", ncts_SumA_Versender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_Ort", ncts_SumA_Versender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_EORI", ncts_SumA_Empfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_NLNR", ncts_SumA_Empfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_TIN", ncts_SumA_Empfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_Name", ncts_SumA_Empfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_StrasseHausnummer", ncts_SumA_Empfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_Land", ncts_SumA_Empfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_PLZ", ncts_SumA_Empfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_Ort", ncts_SumA_Empfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_EORI", ncts_SumA_Befoerderer_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_NLNR", ncts_SumA_Befoerderer_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_TIN", ncts_SumA_Befoerderer_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Name", ncts_SumA_Befoerderer_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_StrasseHausnummer", ncts_SumA_Befoerderer_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Land", ncts_SumA_Befoerderer_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_PLZ", ncts_SumA_Befoerderer_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Ort", ncts_SumA_Befoerderer_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Stammreferenz", ncts_Stammreferenz)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GUID", ncts_GUID)) + 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)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AVISO_einarbeitet", ncts_AVISO_einarbeitet)) + + 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_TR 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 SAVE_ALL(Optional errHinweis = "") As Boolean + If Not SAVE(errHinweis) Then Return False + If Not SAVE_Warenposition() Or Not SAVE_Sicherheitsangaben() Then Return False + + Return True + End Function + + Public Function LOAD(Optional loadALL As Boolean = True) As Boolean + Try + LOAD = False + If loadALL Then + ncts_SICHERHEITSANGABEN.Clear() + ncts_WARENPOS.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR WHERE ncts_Id=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Sicherheitsangaben() + LOAD_Warenposition() + End If + LOAD = True + End If + dr.Close() + + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOAD + End Function + + + + + Shared Function LOADByAnmIDFull(ncts_dyaAnmID As String, loadALL As Boolean) As cNCTS_TR + Try + Dim NCTS As New cNCTS_TR + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_dyaAnmID=@ncts_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + 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_TR] SET ncts_Status_KEWILL_Equivalent=@ncts_Status_KEWILL_Equivalent,ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + Public Function LOADByAnmID(ncts_dyaAnmID As String, loadALL As Boolean) As Boolean + Try + LOADByAnmID = False + If loadALL Then + ncts_SICHERHEITSANGABEN.Clear() + ncts_WARENPOS.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_dyaAnmID=@ncts_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Sicherheitsangaben() + LOAD_Warenposition() + End If + LOADByAnmID = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOADByAnmID + End Function + + Shared Function LOADByBezugsNr_or_GUID_or_MRN(bezugsNr As String, GUID As String, MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR + LOADByBezugsNr_or_GUID_or_MRN = Nothing + + If bezugsNr <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByBezugsNr(bezugsNr, loadALL, checkValidStatus, Partnersystem) + + If LOADByBezugsNr_or_GUID_or_MRN Is Nothing Then + If GUID <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByGUID(GUID, loadALL, checkValidStatus, Partnersystem) + End If + If LOADByBezugsNr_or_GUID_or_MRN Is Nothing Then + If MRN <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByMRN(MRN, loadALL, checkValidStatus, Partnersystem) + End If + End Function + + + Shared Function LOADByMRN(MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR + Try + Dim NCTS As New cNCTS_TR + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_MRN LIKE @MRN " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn) + 'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ") + cmd.Parameters.AddWithValue("@MRN", MRN) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + + End Function + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR + Try + Dim NCTS As New cNCTS_TR + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn) + ' MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE '" & bezugsNr & "' " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc") + cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + Shared Function LOADByGUID(GUID As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR + Try + Dim NCTS As New cNCTS_TR + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_GUID LIKE @GUID " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn) + 'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ") + cmd.Parameters.AddWithValue("@GUID", GUID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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_TR] SET ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + Public Function UPDATE_AVISO_Einarbeitet(ncts_AVISO_einarbeitet As Boolean) 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_AVISO_einarbeitet", ncts_AVISO_einarbeitet)) + ncts_AVISO_einarbeitet = ncts_AVISO_einarbeitet + Return SQL.doSQLVarList(" UPDATE [tblNCTS_TR] SET ncts_AVISO_einarbeitet=@ncts_AVISO_einarbeitet WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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_TR] SET " & str & " WHERE ncts_Id=@ncts_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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_TR (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Sub LOAD_Sicherheitsangaben() + Try + ncts_SICHERHEITSANGABEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_Sicherheitsangaben WHERE nctsSA_NctsId=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_TR_Sicherheitsangaben + 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_SICHERHEITSANGABEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub LOAD_Warenposition() + Try + ncts_WARENPOS.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_Warenposition WHERE nctsWP_NctsId=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_TR_Warenposition() + 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_WarenpositionPackstuecke() + 'l.LOAD_WarenpositionUnterlagen() + ncts_WARENPOS.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Shared Function get_Warenposition(ncts_Id As Integer, Optional loadAll As Boolean = False) As List(Of cNCTS_TR_Warenposition) + Try + Dim ncts_WARENPOS As New List(Of cNCTS_TR_Warenposition) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_Warenposition WHERE nctsWP_NctsId=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_TR_Warenposition() + 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_WarenpositionPackstuecke() + ' l.LOAD_WarenpositionUnterlagen() + ncts_WARENPOS.Add(l) + End While + dr.Close() + End Using + End Using + Return ncts_WARENPOS + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_TR_Warenposition] WHERE nctsWP_NctsId=" & Me.ncts_Id & " " + ' MsgBox(sqlstr) + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_WarenpositionPackstuecke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_TR_WarenpositionPackstuecke] WHERE nctsWpPk_NctsId=" & Me.ncts_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + 'Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim sqlstr = " DELETE FROM [tblNCTS_TR_WarenpositionVorgelegteUnterlagen] WHERE nctsWpUl_NctsId =" & Me.ncts_Id & " " + ' Return SQL.doSQL(sqlstr, "FMZOLL") + 'End Function + + Public Function SAVE_Warenposition() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Warenpositionen() And DELETE_WarenpositionPackstuecke() Then 'And DELETE_WarenpositionUnterlagen() Then + 'jetzt die Standartofferten einfügen + For Each p In ncts_WARENPOS + p.nctsWP_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_Sicherheitsangaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_TR_Sicherheitsangaben] WHERE nctsSA_NctsId=" & Me.ncts_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function SAVE_Sicherheitsangaben() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Sicherheitsangaben() Then + 'jetzt die Standartofferten einfügen + For Each p In ncts_SICHERHEITSANGABEN + p.nctsSA_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 + + + + + Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) + If EORI Is Nothing Then Return Nothing + If If(EORI, "") <> "" Then + Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) + If IsNumeric(kdNrTmp) Then + Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) + Return ADRESSE + End If + End If + Return Nothing + End Function + +End Class + + + +Public Class cNCTS_TR_Sicherheitsangaben + + Property nctsSA_Id As Integer + Property nctsSA_NctsId As Object = Nothing + Property nctsSA_ArtCode As Object = Nothing + Property nctsSA_BezeichnungBescheinigun As Object = Nothing + Property nctsSA_AbgabenBetrag As Object = Nothing + Property nctsSA_GRN As Object = Nothing + Property nctsSA_Zugriffcode As Object = Nothing + Property nctsSA_TIN As Object = Nothing + + + '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("nctsSA_Id", nctsSA_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_NctsId", nctsSA_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_ArtCode", nctsSA_ArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_BezeichnungBescheinigun", nctsSA_BezeichnungBescheinigun)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_AbgabenBetrag", nctsSA_AbgabenBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_GRN", nctsSA_GRN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_Zugriffcode", nctsSA_Zugriffcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_TIN", nctsSA_TIN)) + + 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) + nctsSA_Id = SQL.doSQLVarListID(nctsSA_Id, getInsertCmd, "FMZOLL", , list) + Return nctsSA_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_TR_Sicherheitsangaben (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + +Public Class cNCTS_TR_Warenposition + Property nctsWP_Id As Integer + Property nctsWP_NctsId As Integer + Property nctsWP_PositionsNummer As Object = Nothing + Property nctsWP_Warennummer As Object = Nothing + Property nctsWP_ArtAnmeldungPositionCode As Object = Nothing + Property nctsWP_Warenbezeichnung As Object = Nothing + Property nctsWP_Warenwert As Object = Nothing + Property nctsWP_WarenwertWaehrung As Object = Nothing + Property nctsWP_SchaetzKz As Object = Nothing + Property nctsWP_WarenwertProzent As Object = Nothing + Property nctsWP_VersendungslandPositionCode As Object = Nothing + Property nctsWP_BestimmungslandPositionCode As Object = Nothing + Property nctsWP_Rohmasse As Object = Nothing + Property nctsWP_Eigenmasse As Object = Nothing + + + Property nctsWP_VorpapierTyp As Object = Nothing + Property nctsWP_VorpapierReferenz1 As Object = Nothing + Property nctsWP_VorpapierZusatz1 As Object = Nothing + Property nctsWP_VorpapierReferenz2 As Object = Nothing + Property nctsWP_VorpapierZusatz2 As Object = Nothing + Property nctsWP_VorpapierReferenz3 As Object = Nothing + Property nctsWP_VorpapierZusatz3 As Object = Nothing + Property nctsWP_VorpapierReferenz4 As Object = Nothing + Property nctsWP_VorpapierZusatz4 As Object = Nothing + Property nctsWP_VorpapierReferenz5 As Object = Nothing + Property nctsWP_VorpapierZusatz5 As Object = Nothing + Property nctsWP_VorpapierReferenz6 As Object = Nothing + Property nctsWP_VorpapierZusatz6 As Object = Nothing + Property nctsWP_VorpapierReferenz7 As Object = Nothing + Property nctsWP_VorpapierZusatz7 As Object = Nothing + Property nctsWP_VorpapierReferenz8 As Object = Nothing + Property nctsWP_VorpapierZusatz8 As Object = Nothing + Property nctsWP_VorpapierReferenz9 As Object = Nothing + Property nctsWP_VorpapierZusatz9 As Object = Nothing + + + + Property nctsWP_BesondereVermeke_ExportAusEU As Object = Nothing + Property nctsWP_BesondereVermeke_ExportAusLand As Object = Nothing + Property nctsWP_BesondereVermeke_Export As Object = Nothing + + Property nctsWP_BesondereVermeke_ExportBeschraenkung As Object = Nothing + Property nctsWP_BesondereVermeke_ExportAbgaben As Object = Nothing + Property nctsWP_BesondereVermeke_Vermerk As Object = Nothing + Property nctsWP_BesondereVermeke_Kz10600 As Object = Nothing + + + Property nctsWP_Versender_EORI As Object = Nothing + Property nctsWP_Versender_NLNR As Object = Nothing + Property nctsWP_Versender_TIN As Object = Nothing + Property nctsWP_Versender_Name As Object = Nothing + Property nctsWP_Versender_StrasseHausnummer As Object = Nothing + Property nctsWP_Versender_Ort As Object = Nothing + Property nctsWP_Versender_PLZ As Object = Nothing + Property nctsWP_Versender_Land As Object = Nothing + Property nctsWP_Empfaenger_EORI As Object = Nothing + Property nctsWP_Empfaenger_NLNR As Object = Nothing + Property nctsWP_Empfaenger_TIN As Object = Nothing + Property nctsWP_Empfaenger_Name As Object = Nothing + Property nctsWP_Empfaenger_StrasseHausnummer As Object = Nothing + Property nctsWP_Empfaenger_Ort As Object = Nothing + Property nctsWP_Empfaenger_PLZ As Object = Nothing + Property nctsWP_Empfaenger_Land As Object = Nothing + Property nctsWP_SumAKennnummerSendung As Object = Nothing + Property nctsWP_SumABefoerderungskostenZahlungsweise As Object = Nothing + Property nctsWP_SumAUNGefahrgutnummer As Object = Nothing + Property nctsWP_SumAVersender_EORI As Object = Nothing + Property nctsWP_SumAVersender_NLNR As Object = Nothing + Property nctsWP_SumAVersender_TIN As Object = Nothing + Property nctsWP_SumAVersender_Name As Object = Nothing + Property nctsWP_SumAVersender_StrasseHausnummer As Object = Nothing + Property nctsWP_SumAVersender_Ort As Object = Nothing + Property nctsWP_SumAVersender_PLZ As Object = Nothing + Property nctsWP_SumAVersender_Land As Object = Nothing + Property nctsWP_SumAEmpfaenger_EORI As Object = Nothing + Property nctsWP_SumAEmpfaenger_NLNR As Object = Nothing + Property nctsWP_SumAEmpfaenger_TIN As Object = Nothing + Property nctsWP_SumAEmpfaenger_Name As Object = Nothing + Property nctsWP_SumAEmpfaenger_StrasseHausnummer As Object = Nothing + Property nctsWP_SumAEmpfaenger_Ort As Object = Nothing + Property nctsWP_SumAEmpfaenger_PLZ As Object = Nothing + Property nctsWP_SumAEmpfaenger_Land As Object = Nothing + + + Property nctsWP_KdRefNr As Object = Nothing + + + Property nctsWP_PACKSTUECKE As New List(Of cNCTS_TR_WarenpositionPackstuecke) + Property nctsWP_UNTERLAGEN As New List(Of cNCTS_TR_WarenpositionVorgelegteUnterlagen) 'NOCH NCIHT SQL!! + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWP_NctsId = nctsWP_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("nctsWP_Id", nctsWP_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_NctsId", nctsWP_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_PositionsNummer", nctsWP_PositionsNummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warennummer", nctsWP_Warennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_ArtAnmeldungPositionCode", nctsWP_ArtAnmeldungPositionCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warenbezeichnung", nctsWP_Warenbezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warenwert", nctsWP_Warenwert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_WarenwertWaehrung", nctsWP_WarenwertWaehrung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SchaetzKz", nctsWP_SchaetzKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_WarenwertProzent", nctsWP_WarenwertProzent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VersendungslandPositionCode", nctsWP_VersendungslandPositionCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BestimmungslandPositionCode", nctsWP_BestimmungslandPositionCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Rohmasse", nctsWP_Rohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Eigenmasse", nctsWP_Eigenmasse)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierTyp", nctsWP_VorpapierTyp)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz1", nctsWP_VorpapierReferenz1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz1", nctsWP_VorpapierZusatz1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz2", nctsWP_VorpapierReferenz2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz2", nctsWP_VorpapierZusatz2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz3", nctsWP_VorpapierReferenz3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz3", nctsWP_VorpapierZusatz3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz4", nctsWP_VorpapierReferenz4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz4", nctsWP_VorpapierZusatz4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz5", nctsWP_VorpapierReferenz5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz5", nctsWP_VorpapierZusatz5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz6", nctsWP_VorpapierReferenz6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz6", nctsWP_VorpapierZusatz6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz7", nctsWP_VorpapierReferenz7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz7", nctsWP_VorpapierZusatz7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz8", nctsWP_VorpapierReferenz8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz8", nctsWP_VorpapierZusatz8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz9", nctsWP_VorpapierReferenz9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz9", nctsWP_VorpapierZusatz9)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAusEU", nctsWP_BesondereVermeke_ExportAusEU)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAusLand", nctsWP_BesondereVermeke_ExportAusLand)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Export", nctsWP_BesondereVermeke_Export)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportBeschraenkung", nctsWP_BesondereVermeke_ExportBeschraenkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAbgaben", nctsWP_BesondereVermeke_ExportAbgaben)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Vermerk", nctsWP_BesondereVermeke_Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Kz10600", nctsWP_BesondereVermeke_Kz10600)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_EORI", nctsWP_Versender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_NLNR", nctsWP_Versender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_TIN", nctsWP_Versender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Name", nctsWP_Versender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_StrasseHausnummer", nctsWP_Versender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Ort", nctsWP_Versender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_PLZ", nctsWP_Versender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Land", nctsWP_Versender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_EORI", nctsWP_Empfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_NLNR", nctsWP_Empfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_TIN", nctsWP_Empfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Name", nctsWP_Empfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_StrasseHausnummer", nctsWP_Empfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Ort", nctsWP_Empfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_PLZ", nctsWP_Empfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Land", nctsWP_Empfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAKennnummerSendung", nctsWP_SumAKennnummerSendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumABefoerderungskostenZahlungsweise", nctsWP_SumABefoerderungskostenZahlungsweise)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAUNGefahrgutnummer", nctsWP_SumAUNGefahrgutnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_EORI", nctsWP_SumAVersender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_NLNR", nctsWP_SumAVersender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_TIN", nctsWP_SumAVersender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Name", nctsWP_SumAVersender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_StrasseHausnummer", nctsWP_SumAVersender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Ort", nctsWP_SumAVersender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_PLZ", nctsWP_SumAVersender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Land", nctsWP_SumAVersender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_EORI", nctsWP_SumAEmpfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_NLNR", nctsWP_SumAEmpfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_TIN", nctsWP_SumAEmpfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Name", nctsWP_SumAEmpfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_StrasseHausnummer", nctsWP_SumAEmpfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Ort", nctsWP_SumAEmpfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_PLZ", nctsWP_SumAEmpfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Land", nctsWP_SumAEmpfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_KdRefNr", nctsWP_KdRefNr)) + + + 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) + nctsWP_Id = SQL.doSQLVarListID(nctsWP_Id, getInsertCmd, "FMZOLL", , list) + Return nctsWP_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_TR_Warenposition (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + + + Public Sub LOAD_WarenpositionPackstuecke() + Try + nctsWP_PACKSTUECKE.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_WarenpositionPackstuecke WHERE nctsWpPk_nctsWPId=@nctsWP_Id ", conn) + cmd.Parameters.AddWithValue("@nctsWP_Id", Me.nctsWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_TR_WarenpositionPackstuecke() + 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 + nctsWP_PACKSTUECKE.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function DELETE_WarenpositionPackstuecke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_TR_WarenpositionPackstuecke] WHERE nctsWpPk_nctsWPId=" & Me.nctsWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_WarenpositionPackstuecke(wp_id, ncts_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In nctsWP_PACKSTUECKE + p.nctsWpPk_nctsWPId = wp_id + p.nctsWpPk_NctsId = ncts_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + 'Public Sub LOAD_WarenpositionUnterlagen() + ' Try + ' nctsWP_UNTERLAGEN.Clear() + ' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_WarenpositionVorgelegteUnterlagen WHERE nctsWpUl_nctsWPId=@nctsWP_Id ", conn) + ' cmd.Parameters.AddWithValue("@nctsWP_Id", Me.nctsWP_Id) + ' Dim dr = cmd.ExecuteReader() + ' While dr.Read + ' Dim l As New cNCTS_TR_WarenpositionVorgelegteUnterlagen + ' 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 + ' nctsWP_UNTERLAGEN.Add(l) + ' End While + ' dr.Close() + ' End Using + ' End Using + ' Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + ' End Try + 'End Sub + + 'Public Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim sqlstr = " DELETE FROM [tblNCTS_TR_WarenpositionVorgelegteUnterlagen] WHERE nctsWpUl_nctsWPId=" & Me.nctsWP_Id & " " + ' Return SQL.doSQL(sqlstr, "FMZOLL") + 'End Function + + 'Public Function INSERT_WarenpositionUnterlagen(wp_id, ncts_id) As Boolean + ' 'Zuserst alle OffertenPos von dem Offert löschen + + ' 'jetzt die Standartofferten einfügen + ' For Each p In nctsWP_UNTERLAGEN + ' p.nctsWpUl_nctsWPId = wp_id + ' p.nctsWpUl_NctsId = ncts_id + ' If Not p.INSERT() Then + ' Return False + ' End If + ' Next + + ' Return True + 'End Function + + + + +End Class + + + +Public Class cNCTS_TR_WarenpositionPackstuecke + + Property nctsWpPk_Id As Integer + Property nctsWpPk_nctsWPId As Integer + Property nctsWpPk_NctsId As Integer + + Property nctsWpPk_PackstueckeAnzahl As Object = Nothing + Property nctsWpPk_Verpackungsart As Object = Nothing + Property nctsWpPk_ZeichenNummern 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("nctsWpPk_Id", nctsWpPk_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_nctsWPId", nctsWpPk_nctsWPId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_NctsId", nctsWpPk_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_PackstueckeAnzahl", nctsWpPk_PackstueckeAnzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_Verpackungsart", nctsWpPk_Verpackungsart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_ZeichenNummern", nctsWpPk_ZeichenNummern)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + nctsWpPk_Id = SQL.doSQLVarListID(nctsWpPk_Id, getInsertCmd(), "FMZOLL", , list) + Return nctsWpPk_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_TR_WarenpositionPackstuecke (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + + +'NOCH NCIHT IM SQL!!!!!!!!!!!!!!! +Public Class cNCTS_TR_WarenpositionVorgelegteUnterlagen + + Property nctsWpUl_Id As Integer + Property nctsWpUl_nctsWPId As Integer + Property nctsWpUl_NctsId As Integer + Property nctsWpUl_Typ As Object = Nothing + Property nctsWpUl_Referenz As Object = Nothing + Property nctsWpUl_Zusatz As Object = Nothing + + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWpUl_nctsWPId = nctsWpUl_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("nctsWpUl_Id", nctsWpUl_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_nctsWPId", nctsWpUl_nctsWPId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_NctsId", nctsWpUl_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Typ", nctsWpUl_Typ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Referenz", nctsWpUl_Referenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Zusatz", nctsWpUl_Zusatz)) + Return list + End Function + + + Public Function INSERT() As Boolean + Return True 'NOCH NCIHT!!!!! + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + nctsWpUl_Id = SQL.doSQLVarListID(nctsWpUl_Id, getInsertCmd(), "FMZOLL", , list) + Return nctsWpUl_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_TR_WarenpositionVorgelegteUnterlagen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cOffenePostenDVO.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cOffenePostenDVO.vb new file mode 100644 index 0000000..804fa63 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cOffenePostenDVO.vb @@ -0,0 +1,156 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cOffenePostenDVO + + Property OP_ID As Integer + Property Konto As Integer + Property KundenNr As Integer + Property Rechnung As Object = Nothing + Property Datum As Object = Nothing + Property Buchungsbetrag As Object = Nothing + Property Steuercode As Object = Nothing + Property Ländercode As Object = Nothing + Property Steuerbetrag As Object = Nothing + Property Buchungstext As Object = Nothing + Property Faell_Tage1 As Object = Nothing + Property Faell_Prozent1 As Object = Nothing + Property Faell_Tage2 As Object = Nothing + Property Faell_Prozent2 As Object = Nothing + Property Faell_Tage3 As Object = Nothing + Property Faell_Prozent3 As Object = Nothing + Property Mahnstufe As Object = Nothing + Property Rechnung_Gutschrift As Object = Nothing + Property Storno As Object = Nothing + Property Jahr As Object = Nothing + + + Shared SQL As New SQL + + Sub New() + End Sub + + Sub New(OP_ID) + Me.OP_ID = OP_ID + LOAD() + End Sub + + Public 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("OP_ID", OP_ID, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Konto", Konto)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnung", Rechnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsbetrag", Buchungsbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuercode", Steuercode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ländercode", Ländercode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerbetrag", Steuerbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungstext", Buchungstext)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Tage1", Faell_Tage1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Prozent1", Faell_Prozent1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Tage2", Faell_Tage2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Prozent2", Faell_Prozent2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Tage3", Faell_Tage3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Prozent3", Faell_Prozent3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mahnstufe", Mahnstufe)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnung_Gutschrift", Rechnung_Gutschrift)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Storno", Storno)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Jahr", Jahr)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Offene_Posten_DVO WITH(updlock,serializable) WHERE OP_ID=@OP_ID) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + OP_ID = SQL.doSQLVarListID(OP_ID, sqlstr, "FMZOLL", , list) + Return OP_ID > 0 + End Function + + Public Shared Function LOADByKdNr(KundenNr As Integer) As DataTable + Return SQL.loadDgvBySql("SELECT * FROM Offene_Posten_DVO WHERE KundenNr=@KundenNr ", "FMZOLL") + End Function + + Public Shared Function DELETE_ALL_ENTRYS() As Boolean + Return SQL.doSQL("DELETE FROM Offene_Posten_DVO ", "FMZOLL") + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Offene_Posten_DVO WHERE OP_ID=@OP_ID ", conn) + cmd.Parameters.AddWithValue("@OP_ID", OP_ID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [Offene_Posten_DVO] SET " & str & " WHERE OP_ID=@OP_ID ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 Offene_Posten_DVO (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten_DVO.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten_DVO.vb new file mode 100644 index 0000000..5fabb64 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten_DVO.vb @@ -0,0 +1,170 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cOffene_Posten_DVO + + + Property OP_ID As Integer = -1 + Property Konto As Object = Nothing + Property KontoBez As Object = Nothing + Property KundenNr As Object = Nothing + Property Rechnung As Object = Nothing + Property Datum As Object = Nothing + Property Buchungsbetrag_SOLL As Object = Nothing + Property Buchungsbetrag_HABEN As Object = Nothing + Property Saldo As Object = Nothing + Property Steuercode As Object = Nothing + Property Ländercode As Object = Nothing + Property Steuerbetrag As Object = Nothing + Property Buchungstext As Object = Nothing + Property Faell_Tage1 As Object = Nothing + Property Faell_Prozent1 As Object = Nothing + Property Faell_Tage2 As Object = Nothing + Property Faell_Prozent2 As Object = Nothing + Property Faell_Tage3 As Object = Nothing + Property Faell_Prozent3 As Object = Nothing + Property Mahnstufe As Object = Nothing + Property Rechnung_Gutschrift As Object = Nothing + Property Storno As Object = Nothing + Property Jahr As Object = Nothing + Property Faelligkeit As Object = Nothing + + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(OP_ID) + Me.OP_ID = OP_ID + LOAD() + End Sub + + + Public 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("OP_ID", OP_ID, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Konto", Konto)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KontoBez", KontoBez)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnung", Rechnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsbetrag_SOLL", Buchungsbetrag_SOLL)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsbetrag_HABEN", Buchungsbetrag_HABEN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Saldo", Saldo)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuercode", Steuercode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ländercode", (Ländercode))) '.ToString("N2"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerbetrag", Steuerbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungstext", Buchungstext)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Tage1", Faell_Tage1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Prozent1", Faell_Prozent1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Tage2", Faell_Tage2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Prozent2", Faell_Prozent2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Tage3", Faell_Tage3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Prozent3", Faell_Prozent3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mahnstufe", Mahnstufe)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnung_Gutschrift", Rechnung_Gutschrift)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Storno", Storno)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Jahr", Jahr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faelligkeit", Faelligkeit)) + Return list + End Function + + Public Shared Function DELETE_ALL() As Boolean + Dim SQL As New SQL + Return SQL.doSQL("DELETE FROM Offene_Posten_DVO", "FMZOLL") + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Offene_Posten_DVO WITH(updlock,serializable) WHERE OP_ID=@OP_ID) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + OP_ID = SQL.doSQLVarListID(OP_ID, sqlstr, "FMZOLL", , list) + Return OP_ID > 0 + End Function + + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Offene_Posten_DVO WHERE OP_ID=@OP_ID ", conn) + cmd.Parameters.AddWithValue("@OP_ID", OP_ID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [Offene_Posten_DVO] SET " & str & " WHERE OP_ID=@OP_ID ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 Offene_Posten_DVO (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [Offene_Posten_DVO] WITH(updlock,serializable) WHERE OP_ID=" & Me.OP_ID + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb new file mode 100644 index 0000000..a17255a --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb @@ -0,0 +1,383 @@ + +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cOfferteList + Property KundenNr As Object = Nothing + ' Property OffertenNr As Object = Nothing + Public LIST As New List(Of cOfferte) + Dim SQL As New SQL + 'Dim listTodelete As New List(Of cOfferte) + + Sub New(KundenNr, loadPos) + Me.KundenNr = KundenNr + ' Me.OffertenNr = OffertenNr + LOAD_LIST(Me.KundenNr, loadPos) + End Sub + Public Sub CLEAR() + LIST.Clear() + End Sub + Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False) + ' Dim l As New cOfferte + 'l.eb_bcc = bcc + 'LIST.Add(l) + End Sub + + Public Sub LOAD_LIST(KundenNr, loadPos) + Try + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Offerten WHERE KundenNr=@KundenNr ", conn) + cmd.Parameters.AddWithValue("@KundenNr", KundenNr) + ' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cOfferte + 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 + If loadPos Then l.LOAD_POSITIONEN() + LIST.Add(l) + + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + 'Function SAVE() + ' If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then + ' For Each l In LIST + ' If Not l.INSERT() Then Return False + ' Next + ' Return True + ' Else + ' Return False + ' End If + 'End Function +End Class + +Public Class cOfferte + Property KundenNr As Object = Nothing + Property OffertenNr As Object = Nothing + Property FilialenNr As Object = Nothing + Property Pauschalpreis As Object = Nothing + Property Standardofferte As Object = Nothing + Property Besonderheiten As Object = Nothing + Property Eingegeben_am As Object = Nothing + Property Geändert_am As Object = Nothing + Property Sachbearbeiter As Object = Nothing + Property Gesperrt As Object = Nothing + Property Gesperrt_Datum As Object = Nothing + Property Gesperrt_Grund As Object = Nothing + + Property POSITIONEN As New List(Of cOffertPosition) '= Nothing + + Dim SQL As New SQL + + Sub New() + End Sub + Sub New(KundenNr, OffertenNr, loadPos) + Me.KundenNr = KundenNr + Me.OffertenNr = OffertenNr + LOAD(KundenNr, OffertenNr, loadPos) + 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("KundenNr", KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OffertenNr", OffertenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pauschalpreis", Pauschalpreis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Standardofferte", Standardofferte)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Besonderheiten", Besonderheiten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingegeben am", Eingegeben_am, "Eingegeben_am")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geändert am", Geändert_am, "Geändert_am")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt", Gesperrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt_Datum", Gesperrt_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt_Grund", Gesperrt_Grund)) + + Return list + End Function + + Public Sub LOAD(KundenNr, OffertenNr, loadPos) + Try + POSITIONEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Offerten WHERE KundenNr=@KundenNr AND OffertenNr=@OffertenNr ", conn) + cmd.Parameters.AddWithValue("@KundenNr", KundenNr) + cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + 'Dim l As New cOfferte + For Each i In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(i.Text)) + End If + Next + If loadPos Then LOAD_POSITIONEN() + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Sub LOAD_POSITIONEN() + Try + POSITIONEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Offertenpositionen WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr ", conn) + cmd.Parameters.AddWithValue("@KundenNr", Me.KundenNr) + cmd.Parameters.AddWithValue("@OffertenNr", Me.OffertenNr) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cOffertPosition + 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 + POSITIONEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + End Function + + Public Function SAVE() As Boolean + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Offerten WITH(updlock,serializable) WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr ) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Function getInsertCmd() As String + Try + Me.Eingegeben_am = Now + 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 Offerten (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + 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 [Offerten] SET " & str & " WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Function RESET_STANDARTOFFERTEN(Sachbearbeiter) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If SQL.doSQL("DELETE FROM [Offertenpositionen] WHERE KundenNr=" & Me.KundenNr & " and OffertenNr=" & Me.OffertenNr, "FMZOLL") Then + 'jetzt die Standartofferten einfügen + For Each r In SQL.loadDgvBySql("SELECT * FROM [Standardofferten] WHERE [OffertenNr]=" & Me.OffertenNr, "FMZOLL").Rows + Dim P As New cOffertPosition() + Dim Leistung As New cLeistungen(r("LeistungsNr")) + + + P.KundenNr = Me.KundenNr + P.OffertenNr = Me.OffertenNr + + P.LeistungsNr = r("LeistungsNr") + P.LeistungsBez = r("LeistungsBez") + P.BerechnungsartNr = Leistung.BerechnungsartNr + P.Preis = r("Preis") + P.Anzahl = r("Anzahl") + P.BGebLeistungsNr = r("BGebLeistungsNr") + P.BGebProzent = r("BGebProzent") + P.BGebMinBetrag = r("BGebMinBetrag") + P.Eingegeben_am = Now + 'P.Geändert_am = XXXXXXXXX + If r("BerechnungsartPosInkludiert") IsNot DBNull.Value Then P.BerechnungsartPosInkludiert = r("BerechnungsartPosInkludiert") + If r("BerechnungsartNr") IsNot DBNull.Value Then P.BerechnungsartNr = r("BerechnungsartNr") 'Falls hier, dann übernommen, sonst von Leistung + P.Sachbearbeiter = Sachbearbeiter + 'P.Preisänderung = XXXXXXXXX + 'P.PreisänderungProzent = XXXXXXXXX + 'P.PreisAlt = XXXXXXXXX + If Not P.INSERT() Then + Return False + End If + Next + Else + Return False + End If + Return True + End Function + Public Function RESET_STANDARTOFFERTEN_FIRMA(Sachbearbeiter, Firma) As Boolean + If Firma = "" Or Firma = "VERAG" Then + Return RESET_STANDARTOFFERTEN(Sachbearbeiter) + Else + + 'Zuserst alle OffertenPos von dem Offert löschen + If SQL.doSQL("DELETE FROM [Offertenpositionen] WHERE KundenNr=" & Me.KundenNr & " and OffertenNr=" & Me.OffertenNr, "FMZOLL") Then + 'jetzt die Standartofferten einfügen + For Each r In SQL.loadDgvBySql("SELECT * FROM [StandardoffertenFirma] WHERE Firma='" & Firma & "' AND [OffertenNr]=" & Me.OffertenNr, "FMZOLL").Rows + Dim P As New cOffertPosition() + Dim Leistung As New cLeistungen(r("LeistungsNr")) + + + P.KundenNr = Me.KundenNr + P.OffertenNr = Me.OffertenNr + + P.LeistungsNr = r("LeistungsNr") + P.LeistungsBez = r("LeistungsBez") + P.BerechnungsartNr = Leistung.BerechnungsartNr + P.Preis = r("Preis") + P.Anzahl = r("Anzahl") + P.BGebLeistungsNr = r("BGebLeistungsNr") + P.BGebProzent = r("BGebProzent") + P.BGebMinBetrag = r("BGebMinBetrag") + P.Eingegeben_am = Now + 'P.Geändert_am = XXXXXXXXX + P.Sachbearbeiter = Sachbearbeiter + If r("BerechnungsartPosInkludiert") IsNot DBNull.Value Then P.BerechnungsartPosInkludiert = r("BerechnungsartPosInkludiert") + If r("BerechnungsartNr") IsNot DBNull.Value Then P.BerechnungsartNr = r("BerechnungsartNr") 'Falls hier, dann übernommen, sonst von Leistung + 'P.Preisänderung = XXXXXXXXX + 'P.PreisänderungProzent = XXXXXXXXX + 'P.PreisAlt = XXXXXXXXX + If Not P.INSERT() Then + Return False + End If + Next + Else + Return False + End If + Return True + End If + End Function + + +End Class + + +Public Class cOffertPosition + Property KundenNr As Object = Nothing + Property OffertenNr As Object = Nothing + Property LeistungsNr As Object = Nothing + Property LeistungsBez As Object = Nothing + Property BerechnungsartNr As Object = Nothing + Property Preis As Object = Nothing + Property Anzahl As Object = Nothing + Property BGebLeistungsNr As Object = Nothing + Property BGebProzent As Object = Nothing + Property BGebMinBetrag As Object = Nothing + Property Eingegeben_am As Object = Nothing + Property Geändert_am As Object = Nothing + Property Sachbearbeiter As Object = Nothing + Property Preisänderung As Object = Nothing + Property PreisänderungProzent As Object = Nothing + Property PreisAlt As Object = Nothing + Property BerechnungsartPosInkludiert As Object = Nothing + + Dim SQL As New SQL + + Sub New() + 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("KundenNr", KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OffertenNr", OffertenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartNr", BerechnungsartNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preis", Preis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anzahl", Anzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebLeistungsNr", BGebLeistungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebProzent", BGebProzent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebMinBetrag", BGebMinBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingegeben am", Eingegeben_am, "Eingegeben_am")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geändert am", Geändert_am, "Geändert_am")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preisänderung", Preisänderung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PreisänderungProzent", PreisänderungProzent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PreisAlt", PreisAlt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartPosInkludiert", BerechnungsartPosInkludiert)) + 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) + End Function + + Public Function getInsertCmd() As String + Try + Me.Eingegeben_am = Now + 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 Offertenpositionen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cPDFWriteValues.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cPDFWriteValues.vb new file mode 100644 index 0000000..0200fca --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cPDFWriteValues.vb @@ -0,0 +1,84 @@ + +Public Class cPDFWriteValues + Private sText As String + Private X As Double + Private Y As Double + Private width As Double + Private height As Double + Private mfont As String + Private mSize As Integer + Private maxlength As Integer = -1 + Private align As Integer = iTextSharp.text.Element.ALIGN_LEFT 'PdfContentByte.ALIGN_LEFT + + + Public Sub New(ByVal sText As String, ByVal X As Double, ByVal Y As Double, ByVal width As Double, ByVal height As Double, ByVal mfont As String, ByVal mSize As Integer, Optional ByVal maxlength As Integer = -1, Optional ByVal align As Integer = iTextSharp.text.Element.ALIGN_LEFT) + Me.sText = sText + Me.X = X + Me.Y = Y + Me.width = width + Me.height = height + Me.mfont = mfont + Me.mSize = mSize + Me.maxlength = maxlength + Me.align = align + End Sub + + Public ReadOnly Property Text() As Object + Get + Return sText + End Get + End Property + + Public ReadOnly Property getX() As Object + Get + Return X + End Get + End Property + Public ReadOnly Property getY() As Object + Get + Return Y + End Get + End Property + + Public ReadOnly Property getWidth() As Object + Get + Return width + End Get + End Property + Public ReadOnly Property getHeight() As Object + Get + Return height + End Get + End Property + + Public ReadOnly Property font() As Object + Get + Return mfont + End Get + End Property + + Public ReadOnly Property Size() As Object + Get + Return mSize + End Get + End Property + Public ReadOnly Property getMaxlength() As Object + Get + Return maxlength + End Get + End Property + Public ReadOnly Property getAlign() As Object + Get + Return align + End Get + End Property + + ' Public Overrides Function ToString() As Object + ' Return mText + ' End Function + + + + + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb new file mode 100644 index 0000000..f59f5ba --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb @@ -0,0 +1,105 @@ + + +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cParameterList + Property ProgId As Object = Nothing + Property firma As Object = Nothing + ' Property OffertenNr As Object = Nothing + Public LIST As New List(Of cParameter) + Dim SQL As New SQL + 'Dim listTodelete As New List(Of cOfferte) + + Sub New(ProgId) + Me.ProgId = ProgId + ' Me.OffertenNr = OffertenNr + LOAD_LIST(Me.ProgId) + End Sub + Sub New(ProgId, firma) + Me.ProgId = ProgId + Me.firma = firma + ' Me.OffertenNr = OffertenNr + LOAD_LIST(Me.ProgId, Me.firma) + End Sub + + Public Sub CLEAR() + LIST.Clear() + End Sub + Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False) + ' Dim l As New cOfferte + 'l.eb_bcc = bcc + 'LIST.Add(l) + End Sub + + Public Sub LOAD_LIST(KundenNr, Optional firma = Nothing) + Try + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN + Using cmd As New SqlCommand("SELECT * FROM [tblParameter] WHERE progId IN (0,@ProgId) " & If(firma IsNot Nothing, " AND firma=@firma", ""), conn) + cmd.Parameters.AddWithValue("@ProgId", ProgId) + cmd.Parameters.AddWithValue("@firma", firma) + ' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cParameter + 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 + LIST.Add(l) + + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function GET_PARAMETER_VALUE(param As String) As String + For Each p In LIST + If p.bezeichnung = param Then + Return p.wert + End If + Next + Return "" + End Function + + Public Function GET_PARAMETER_VALUE_BOOL(param As String) As Boolean + For Each p In LIST + If p.bezeichnung = param Then + Return (p.wert = "1" Or p.wert = "true") + End If + Next + Return False + End Function + +End Class + +Public Class cParameter + Property Id As Integer + Property bezeichnung As String + Property wert As String + Property firma As Object = Nothing + Property beschreibung As Object = Nothing + Property progId As Object = Nothing + + + 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("Id", Id,, True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bezeichnung", bezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wert", wert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("firma", firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beschreibung", beschreibung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("progId", progId)) + + Return list + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cPostversand.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cPostversand.vb new file mode 100644 index 0000000..942d038 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cPostversand.vb @@ -0,0 +1,203 @@ +Imports System.Data.SqlClient +Imports System.Reflection + + +Public Class cPostversand + + + Property post_id As Integer = -1 + Property post_AvisoId As Object = Nothing ' INT NULL, + Property post_SendungsId As Object = Nothing ' INT NULL, + Property post_FilialenNr As Object = Nothing ' INT NULL, + Property post_AbfertigungsNr As Object = Nothing ' INT NULL, + Property post_art As Object = Nothing ' VARCHAR(200) Not NULL, + Property post_Empfaenger_Name1 As Object = Nothing ' VARCHAR(40) Not NULL, + Property post_Empfaenger_Name2 As Object = Nothing ' VARCHAR(40) NULL, + Property post_Empfaenger_Adresse1 As Object = Nothing ' VARCHAR(40) Not NULL, + Property post_Empfaenger_Adresse2 As Object = Nothing ' VARCHAR(60) Not NULL, + Property post_Empfaenger_Adresse3 As Object = Nothing ' VARCHAR(40) NULL, + Property post_ReferenzPaketdienst As Object = Nothing ' VARCHAR(200) NULL, + Property post_ContainerLKWNr As Object = Nothing ' VARCHAR(200) Not NULL, + Property post_Datum As Object = Nothing ' DATETIME Default (getdate()) Not NULL, + Property post_Sachbearbeiter As Object = Nothing ' VARCHAR(200) Not NULL, + Property post_SachbearbeiterId As Object = Nothing ' INT Not NULL, + Property post_FirmaInAuftragKdnr As Object = Nothing ' INT NULL, + Property post_FirmaInAuftrag As Object = Nothing ' VARCHAR(200) NULL, + Property post_Rolle As Object = Nothing ' VARCHAR(200) NULL, + 'Property post_LKW As Object = Nothing ' VARCHAR(200) NULL, + Property post_Empfaenger_KdNr As Object = Nothing ' VARCHAR(200) NULL, + ' Property post_Rolle As Object = Nothing ' VARCHAR(200) NULL, + + + + Property post_KdAuftrNrAvisierer As Object = Nothing + Property post_RgEmpfaenger_KdNr As Object = Nothing + Property post_RgEmpfaenger_Name As Object = Nothing + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(post_id) + Me.post_id = post_id + LOAD() + End Sub + + Public 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("post_id", post_id, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_AvisoId", post_AvisoId)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_SendungsId", post_SendungsId)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_FilialenNr", post_FilialenNr)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_AbfertigungsNr", post_AbfertigungsNr)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_art", post_art)) ' VARCHAR(200) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Name1", post_Empfaenger_Name1)) ' VARCHAR(40) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Name2", post_Empfaenger_Name2)) ' VARCHAR(40) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Adresse1", post_Empfaenger_Adresse1)) 'VARCHAR(40) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Adresse2", post_Empfaenger_Adresse2)) 'VARCHAR(60) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Adresse3", post_Empfaenger_Adresse3)) ' VARCHAR(40) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_ReferenzPaketdienst", post_ReferenzPaketdienst)) ' VARCHAR(200) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_ContainerLKWNr", post_ContainerLKWNr)) '# VARCHAR(200) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Datum", post_Datum)) ' DATETIME Default (getdate()) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Sachbearbeiter", post_Sachbearbeiter)) ' VARCHAR(200) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_SachbearbeiterId", post_SachbearbeiterId)) ' INT Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_FirmaInAuftragKdnr", post_FirmaInAuftragKdnr)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_FirmaInAuftrag", post_FirmaInAuftrag)) ' VARCHAR(200) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Rolle", post_Rolle)) ' VARCHAR(200) NULL, + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_LKW", post_LKW)) ' VARCHAR(200) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_KdNr", post_Empfaenger_KdNr)) ' VARCHAR(200) NULL, + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_KdAuftrNrAvisierer", post_KdAuftrNrAvisierer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_RgEmpfaenger_KdNr", post_RgEmpfaenger_KdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_RgEmpfaenger_Name", post_RgEmpfaenger_Name)) + + Return list + End Function + + + + Public Shared Function LOADByFilialeAbfNr(FilialeNr As Integer, AbfertigungsNr As Integer, Optional post_Rolle As String = "") As cPostversand + Try + Dim VK As New cPostversand + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblPostversand WHERE post_AbfertigungsNr=@post_AbfertigungsNr AND post_FilialenNr=@post_FilialenNr " & If(If(post_Rolle, "") <> "", "AND post_Rolle=@post_Rolle ", ""), conn) + cmd.Parameters.AddWithValue("@post_FilialenNr", FilialeNr) + cmd.Parameters.AddWithValue("@post_AbfertigungsNr", AbfertigungsNr) + cmd.Parameters.AddWithValue("@post_Rolle", post_Rolle) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In VK.getParameterList() + Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(VK, Nothing) + Else + propInfo.SetValue(VK, dr.Item(l.Text)) + End If + Next + dr.Close() + Return VK + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblPostversand WITH(updlock,serializable) WHERE post_id=@post_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + post_id = SQL.doSQLVarListID(post_id, sqlstr, "FMZOLL", , list) + Return post_id > 0 + End Function + + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblPostversand WHERE post_id=@post_id ", conn) + cmd.Parameters.AddWithValue("@post_id", post_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblPostversand] SET " & str & " WHERE post_id=@post_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblPostversand (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblPostversand] WITH(updlock,serializable) WHERE post_id=" & Me.post_id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cProgrammeUpdate.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cProgrammeUpdate.vb new file mode 100644 index 0000000..f260220 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cProgrammeUpdate.vb @@ -0,0 +1,254 @@ + +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cProgrammeUpdate + Property pud_progId As Object = Nothing + Property pud_codename As String + Property pud_version As String + Property pud_fileName As String + Property pud_filePathFolder As Object = Nothing + Property pud_datum As Date = Now + + Property pud_file_Verion As String + Property pud_file_Date As Date + Property pud_file_Size As Integer + + Dim SQL As New SQL + + + Shared Function getParameterList(UD As cProgrammeUpdate) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_progId", UD.pud_progId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_codename", UD.pud_codename)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_version", UD.pud_version)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_fileName", UD.pud_fileName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_filePathFolder", UD.pud_filePathFolder)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_datum", UD.pud_datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_file_Verion", UD.pud_file_Verion)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_file_Date", UD.pud_file_Date)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_file_Size", UD.pud_file_Size)) + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(Me) + Return SQL.doSQLVarList(getInsertCmd, "ADMIN", , list) + End Function + + Public Shared Function LOAD_AKT_LIST(pud_progId) As List(Of cProgrammeUpdate) + Dim LIST As New List(Of cProgrammeUpdate) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblProgrammeUpdate WHERE pud_progId=@pud_progId AND pud_version=(SELECT TOP (1) pud_version FROM tblProgrammeUpdate WHERE pud_progId=@pud_progId order by pud_version DESC) ", conn) + cmd.Parameters.AddWithValue("@pud_progId", pud_progId) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim UD As New cProgrammeUpdate + For Each l In cProgrammeUpdate.getParameterList(UD) + Dim propInfo As PropertyInfo = UD.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(UD, Nothing) + Else + propInfo.SetValue(UD, dr.Item(l.Text)) + End If + + Next + LIST.Add(UD) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LIST + End Function + + Public Shared Function SAVE_LIST(pud_progId As Integer, pud_version As String, pud_codename As String, LIST As List(Of cProgrammeUpdate)) As Boolean + Dim SQL As New SQL + SQL.doSQL("DELETE FROM tblProgrammeUpdate WHERE pud_version='" & pud_version & "'", "ADMIN") + SAVE_LIST = True + For Each UD In LIST + UD.pud_progId = pud_progId + UD.pud_version = pud_version + UD.pud_codename = pud_codename + If Not UD.SAVE() Then SAVE_LIST = False + Next + End Function + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(Me) + + 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 [tblProgrammeUpdate] SET " & str & " WHERE gb_nr=@gb_nr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(Me) + 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 tblProgrammeUpdate (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Shared Function isNewFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_DEST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean + For Each l In LIST_DEST + If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then + Return False + End If + Next + Return True + End Function + + Public Shared Function isOldFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_SOURCE As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean + For Each l In LIST_SOURCE + If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then + Return False + End If + Next + Return True + End Function + + + Public Shared Function copyProgramLIST(ByRef sourcePfad As String, ByVal destPfad As String, ignoreFilesBeginWith As String()) As Boolean + Try + + If destPfad.Trim = "" Then Return False + If sourcePfad.Trim = "" Then Return False + + If Not My.Computer.FileSystem.DirectoryExists(sourcePfad) Then + MsgBox("ERROR_COPY_01: Quell-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False + End If + ' MsgBox(destPfad) + If Not My.Computer.FileSystem.DirectoryExists(destPfad) Then + MsgBox("ERROR_COPY_02: Ziel-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False + End If + + Dim LIST_SOURCE As New List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate) + Dim dirNameReplace_SOURCE = "" + Dim DI_SOURCE As New IO.DirectoryInfo(sourcePfad) + RekursivGetFiles(DI_SOURCE, dirNameReplace_SOURCE, LIST_SOURCE, {}) + + Dim LIST_DEST As New List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate) + Dim dirNameReplace_DEST = "" + Dim DI_DEST As New IO.DirectoryInfo(destPfad) + RekursivGetFiles(DI_DEST, dirNameReplace_DEST, LIST_DEST, ignoreFilesBeginWith) + + If LIST_SOURCE.Count = 0 Then + MsgBox("ERROR_COPY_01: Quell-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False + End If + 'If LIST_DEST.Count = 0 Then + ' MsgBox("ERROR_COPY_02: Ziel-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False + 'End If + + 'ORDNER erstellen: + For Each f In LIST_SOURCE + If If(f.pud_filePathFolder, "") <> "" Then + If Not IO.Directory.Exists(dirNameReplace_DEST & "\" & f.pud_filePathFolder) Then '.Replace("\\", "\") + IO.Directory.CreateDirectory(dirNameReplace_DEST & "\" & f.pud_filePathFolder) '.Replace("\\", "\") + End If + End If + Next + + 'Löschen der unbenötigten Files: + For Each f In LIST_DEST + If isOldFile(f, LIST_SOURCE) Then + IO.File.Delete(dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName) '.Replace("\\", "\") + End If + Next + + If dirNameReplace_DEST = "" Then dirNameReplace_DEST = destPfad + 'Kopieren/Überschreiben der neuen Files: + For Each f In LIST_SOURCE + If isNewFile(f, LIST_DEST) Then + Dim s_path = dirNameReplace_SOURCE & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName '.Replace("\\", "\") + Dim d_path = dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName '.Replace("\\", "\") + d_path = d_path '.replace("\\", "\") + IO.File.Copy(s_path, d_path) + End If + Next + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return False + End Try + ' If isNewFile(destPfad) Then Return FileCopier(sourcePfad, destPfad) + Return True + End Function + + Public Shared Function fileStartsWith(fileName As String, ignoreFilesBeginWith As String()) + For Each s In ignoreFilesBeginWith + If fileName.StartsWith(s) Then Return True + Next + Return False + End Function + Public Shared Sub RekursivGetFiles(ByVal oDir As IO.DirectoryInfo, ByRef dirNameReplace As String, ByRef LIST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate), ignoreFilesBeginWith As String()) + Dim oSubDir As IO.DirectoryInfo + Dim FI As IO.FileInfo + + ' zunächst alle Dateien des Ordners aufspüren + For Each FI In oDir.GetFiles() + If Not fileStartsWith(FI.Name, ignoreFilesBeginWith) Then 'DATEIEN beginnen mit betimmten Namen, z.B. UPDATER + + + ' Dim FI As New IO.FileInfo(oFile) + If dirNameReplace = "" Then + dirNameReplace = FI.DirectoryName + End If + + Dim UD As New VERAG_PROG_ALLGEMEIN.cProgrammeUpdate + UD.pud_fileName = FI.Name + UD.pud_filePathFolder = FI.DirectoryName.Replace(dirNameReplace, "") + If UD.pud_filePathFolder = "" Then UD.pud_filePathFolder = Nothing + UD.pud_file_Size = FI.Length + UD.pud_file_Date = FI.LastWriteTime + UD.pud_file_Verion = "" 'FI. + LIST.Add(UD) + + End If + 'With oFile + ' ListBox1.Items.Add(.DirectoryName & "\" & .Name & vbTab & + ' .Length & vbTab & .LastWriteTime) + 'End With + Next + + ' Jetzt alle Unterverzeichnis durchlaufen + ' und die Prozedur rekursiv selbst aufrufen + For Each oSubDir In oDir.GetDirectories() + RekursivGetFiles(oSubDir, dirNameReplace, LIST, {}) + Next + End Sub + +End Class + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cQSTeam.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cQSTeam.vb new file mode 100644 index 0000000..e494b56 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cQSTeam.vb @@ -0,0 +1,247 @@ +Imports System.Data.SqlClient +Imports System.Reflection + + +Public Class cQSTeams + Property LIST As New List(Of cQSTeam) + + Dim SQL As New SQL + + Sub New() + LOAD_LIST() + End Sub + + Public Sub LOAD_LIST() + Try + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT qstm_Id FROM [tblQS_Teams] ", conn) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cQSTeam(dr.Item("qstm_Id")) + LIST.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Function getTeamById(id) + For Each T In LIST + If T.qstm_Id = id Then + Return T + End If + Next + Return Nothing + End Function + + Public Shared Function genNewTeam(teamName) As Boolean + If teamName = "" Then Return False + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("INSERT INTO [tblQS_Teams] ([qstm_bezeichnung]) VALUES('" & teamName & "') ", conn) + cmd.ExecuteNonQuery() + Return True + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + End Function + + +End Class + + + +Public Class cQSTeam + + Property qstm_Id As Integer = -1 + Property qstm_bezeichnung As String + + Property MEMBER As New List(Of cQSTeamMA) + + + 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("qstm_Id", qstm_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qstm_bezeichnung", qstm_bezeichnung)) + + Return list + End Function + + Sub New(qstm_Id) + Me.qstm_Id = qstm_Id + LOAD(qstm_Id) + End Sub + + Sub New() + End Sub + + + + Public Sub LOAD(qstm_Id) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM [tblQS_Teams] WHERE qstm_Id=@qstm_Id ", conn) + cmd.Parameters.AddWithValue("@qstm_Id", qstm_Id) + + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + LOAD_POSITIONEN() + End If + dr.Close() + End Using + End Using + 'Return Nothing + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + ' Return Nothing + End Sub + + + + + Public Sub LOAD_POSITIONEN() + Try + MEMBER.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM [tblQS_TeamsMA] WHERE qtma_QstmId=@qtma_QstmId ", conn) + cmd.Parameters.AddWithValue("@qtma_QstmId", qstm_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cQSTeamMA + 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 + MEMBER.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + +End Class + + +Public Class cQSTeamMA + + Property qtma_Id As Integer = -1 + Property qtma_QstmId As Integer + Property qtma_MaId As Integer + Property qtma_name As String = "" + Property qtma_funktion As Object = Nothing + + Dim SQL As New SQL + Sub New() + End Sub + + Sub New(qtma_Id) + Me.qtma_Id = qtma_Id + LOAD(qtma_Id) + End Sub + + + + + Public Sub LOAD(qtma_Id) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM [tblQS_TeamsMA] WHERE qtma_Id=@qtma_Id ", conn) + cmd.Parameters.AddWithValue("@qtma_Id", qtma_Id) + + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + End If + dr.Close() + End Using + End Using + 'Return Nothing + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + ' Return Nothing + 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("qtma_Id", qtma_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_QstmId", qtma_QstmId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_MaId", qtma_MaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_name", qtma_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_funktion", qtma_funktion)) + + 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) + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblQS_TeamsMA] WITH(updlock,serializable) WHERE qtma_Id=" & Me.qtma_Id + Return SQL.doSQL(sqlstr, "FMZOLL") + 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 tblQS_TeamsMA (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cRKSV_DE.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cRKSV_DE.vb new file mode 100644 index 0000000..ca6a81b --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cRKSV_DE.vb @@ -0,0 +1,33 @@ +Imports System.Threading + +Public Class cRKSV_DE + Sub SignRKSV_DE() + + Dim SC As New cServerClient_RKSV_DE + + + Try + Dim sendString = "RKSV_DE" + + SC.begin("192.168.0.90", sendString, {"VERAG_DE"}) '192.168.0.90 = Developer + + SC.waitTillFinished() + Thread.Sleep(100) + + If SC.status = "TaskSuccess" Then + MsgBox("OK") '& vbNewLine & SC.ev.Message) + Else + MsgBox("FEHLER!") + 'MsgBox(SC.ev.Message) + Exit Sub + End If + + Catch ex As Exception + MsgBox(ex.Message) + End Try + + + + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb new file mode 100644 index 0000000..f069787 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb @@ -0,0 +1,637 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cRechnungsausgang + + Property RK_ID As Integer + Property FilialenNr As Integer + Property AbfertigungsNr As Integer + Property UnterNr As Integer = -1 + Property Abfertigungsdatum As Date + Property RechnungsNr As Object = Nothing + Property RechnungsDatum As Object = Nothing + Property Sammelrechnung As Integer + Property BelegartenNr As Integer = 70 'Nothing + Property BelegartenKz As String = "" + Property BelegartenBez As String = "" + Property Vorzeichen As String = "" + Property BelegNr As Object = Nothing + Property AbsenderLandKz As Object = Nothing + Property AbsenderKundenNr As Object = Nothing + Property AbsenderName_1 As Object = Nothing '!!!! + Property AbsenderName_2 As Object = Nothing '!!!! + Property AbsenderStraße As Object = Nothing + Property AbsenderOrt As Object = Nothing + Property AbsenderOffertenNr As Object = Nothing + Property EmpfängerLandKz As Object = Nothing + Property EmpfängerKundenNr As Object = Nothing + Property EmpfängerName_1 As Object = Nothing '!!!! + Property EmpfängerName_2 As Object = Nothing '!!!! + Property EmpfängerStraße As Object = Nothing + Property EmpfängerOrt As Object = Nothing + Property EmpfängerOffertenNr As Object = Nothing + Property VermittlerLandKz As Object = Nothing + Property VermittlerKundenNr As Object = Nothing + Property VermittlerName_1 As Object = Nothing '!!!! + Property VermittlerName_2 As Object = Nothing '!!!! + Property VermittlerStraße As Object = Nothing + Property VermittlerOrt As Object = Nothing + Property VermittlerOffertenNr As Object = Nothing + Property Rechnung_an As Integer + Property KundenNrZentrale As Object = Nothing + Property RechnungsLandKz As Object = Nothing + Property RechnungsKundenNr As Integer + Property RechnungsName_1 As Object = Nothing '!!!! + Property RechnungsName_2 As Object = Nothing '!!!! + Property RechnungsStraße As Object = Nothing + Property RechnungsOrt As Object = Nothing + Property RechnungsUstIdKz As Object = Nothing + Property RechnungsUstIdNr As Object = Nothing + Property RechnungsUstIdGeprüft As Object = Nothing 'Date = CDate("01.01.2000") + Property Lastschrift As Boolean = False + Property Kunden_SVS As Boolean = False + Property Steuerschlüssel As Integer + Property Steuersatz_Proz As Double + Property LKW_Kennzeichen As Object = Nothing '!!!! + Property WährungsNr As Object = Nothing + Property Wert As Object = Nothing + Property Umrechnungskurs As Object = Nothing + Property Packstücke_und_Warenbezeichnung As Object = Nothing '!!!! + Property Vermerk As Object = Nothing + Property Anlage_1 As Object = Nothing '!!!! + Property Anlage_2 As Object = Nothing '!!!! + Property Anlage_3 As Object = Nothing '!!!! + Property Anlage_4 As Object = Nothing '!!!! + Property Anlage_5 As Object = Nothing '!!!! + Property Anlage_6 As Object = Nothing '!!!! + Property OffertenNr As Object = Nothing + Property Vorlageprovision_Proz As Object = Nothing '!!!!% + Property Kreditaufwendungen_Proz As Object = Nothing '!!!!% + Property Besonderheiten As Object = Nothing + Property Vorkasse As Boolean = False + Property Text As Object = Nothing + Property SteuerpflichtigerGesamtbetrag As Decimal = 0 + Property SteuerfreierGesamtbetrag As Decimal = 0 + Property Status As Object = 0 + Property DruckDatumZeit As Object = Nothing + Property Abfertigungskosten As Object = Nothing + Property Vorkosten As Object = Nothing + Property Erlös As Object = Nothing + Property Buchungsjahr As Object = Nothing + Property Währungscode As Object = "EUR" + Property Sachbearbeiter As Object = Nothing + Property Trdin As Boolean = False + Property KartenNr As Object = Nothing + Property RefFilialenNr As Object = Nothing + Property RefAbfertigungsNr As Object = Nothing + Property RefUnterNr As Object = Nothing + Property Notiz As Object = Nothing + Property Zucker_MRN_Nr As Object = Nothing + Property Zucker_MRN_Datum As Object = Nothing + Property Zucker_Aufschub As Object = Nothing + Property ReErfZeitstempel As Object = Nothing + Property Nettozahlungsziel As Object = Nothing + Property Firma_ID As Integer = 0 + Property SpeditionsbuchUnterNr As Object = Nothing + Property ErfassungsNr As Object = Nothing + 'Property upsize_ts As Object = Nothing + Property AvisiererKundenNr As Object = Nothing + Property Avisierer As Object = Nothing + Property EMailRechnungstext As Object = Nothing + Property AvisoID As Object = Nothing + Property KdAuftragsNr As Object = Nothing + Property Handling As Object = Nothing + Property VorschauID As Object = Nothing + Property Grenze As Object = Nothing + Property RechnungSprache As Object = Nothing + + + ' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing + + Public POSITIONEN As New List(Of cRechnungsausgangPositionen) + Shared SQL As New SQL + + Sub New() + End Sub + + Sub New(RK_ID) + Me.RK_ID = RK_ID + LOAD() : LOAD_POSITIONEN() + End Sub + + Sub New(FilialenNr, AbfertigungsNr) + Me.FilialenNr = FilialenNr + Me.AbfertigungsNr = AbfertigungsNr + LOAD(FilialenNr, AbfertigungsNr) + End Sub + + + + Public Function getMaxRGUnterNr() As Integer + Return getMaxRGUnterNr(FilialenNr, AbfertigungsNr, SpeditionsbuchUnterNr) + End Function + + Public Shared Function getMaxRGUnterNr(FilialenNr As Integer, AbfertigungsNr As Integer, SpeditionsbuchUnterNr As Integer) As Integer + ' Dim Nr = SQL.getValueTxtBySql("Select isnull([UnterNr], -1) + 1 FROM [Rechnungsausgang] where [FilialenNr]='" & FilialenNr & "' And AbfertigungsNr='" & AbfertigungsNr & "' And SpeditionsbuchUnterNr='" & SpeditionsbuchUnterNr & "' ORDER BY [UnterNr] desc", "FMZOLL") + Dim Nr = SQL.getValueTxtBySql("Select TOP 1 isnull([UnterNr], -1) + 1 FROM [Rechnungsausgang] where [FilialenNr]='" & FilialenNr & "' And AbfertigungsNr='" & AbfertigungsNr & "' ORDER BY [UnterNr] desc", "FMZOLL") + Return If(IsNumeric(Nr), Nr, 0) + End Function + + + Public 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("RK_ID", RK_ID, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsNr", RechnungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsDatum", RechnungsDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sammelrechnung", Sammelrechnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegartenNr", BelegartenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegartenKz", BelegartenKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegartenBez", BelegartenBez)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorzeichen", Vorzeichen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderLandKz", AbsenderLandKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderKundenNr", AbsenderKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderName 1", AbsenderName_1, "AbsenderName_1")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderName 2", AbsenderName_2, "AbsenderName_2")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderStraße", AbsenderStraße)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOrt", AbsenderOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOffertenNr", AbsenderOffertenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerLandKz", EmpfängerLandKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerKundenNr", EmpfängerKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerName 1", EmpfängerName_1, "EmpfängerName_1")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerName 2", EmpfängerName_2, "EmpfängerName_2")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerStraße", EmpfängerStraße)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOrt", EmpfängerOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOffertenNr", EmpfängerOffertenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerLandKz", VermittlerLandKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerKundenNr", VermittlerKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerName 1", VermittlerName_1, "VermittlerName_1")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerName 2", VermittlerName_2, "VermittlerName_2")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerStraße", VermittlerStraße)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOrt", VermittlerOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOffertenNr", VermittlerOffertenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnung an", Rechnung_an, "Rechnung_an")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNrZentrale", KundenNrZentrale)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsLandKz", RechnungsLandKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsKundenNr", RechnungsKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsName 1", RechnungsName_1, "RechnungsName_1")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsName 2", RechnungsName_2, "RechnungsName_2")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsStraße", RechnungsStraße)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsOrt", RechnungsOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdKz", RechnungsUstIdKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdNr", RechnungsUstIdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdGeprüft", RechnungsUstIdGeprüft)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift", Lastschrift)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunden-SVS", Kunden_SVS, "Kunden_SVS")) '!!!!- + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerschlüssel", Steuerschlüssel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuersatz %", Steuersatz_Proz, "Steuersatz_Proz")) '!!!! % + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW Kennzeichen", LKW_Kennzeichen, "LKW_Kennzeichen")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("WährungsNr", WährungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Wert", Wert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umrechnungskurs", Umrechnungskurs)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke und Warenbezeichnung", Packstücke_und_Warenbezeichnung, "Packstücke_und_Warenbezeichnung")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 1", Anlage_1, "Anlage_1")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 2", Anlage_2, "Anlage_2")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 3", Anlage_3, "Anlage_3")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 4", Anlage_4, "Anlage_4")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 5", Anlage_5, "Anlage_5")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 6", Anlage_6, "Anlage_6")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OffertenNr", OffertenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision %", Vorlageprovision_Proz, "Vorlageprovision_Proz")) '!!!!% + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditaufwendungen %", Kreditaufwendungen_Proz, "Kreditaufwendungen_Proz")) '!!!!% + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Besonderheiten", Besonderheiten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorkasse", Vorkasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Text", Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerGesamtbetrag", SteuerpflichtigerGesamtbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierGesamtbetrag", SteuerfreierGesamtbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DruckDatumZeit", DruckDatumZeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungskosten", Abfertigungskosten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorkosten", Vorkosten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erlös", Erlös)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsjahr", Buchungsjahr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währungscode", Währungscode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Trdin", Trdin)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenNr", KartenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefFilialenNr", RefFilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefAbfertigungsNr", RefAbfertigungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefUnterNr", RefUnterNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Notiz", Notiz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Nr", Zucker_MRN_Nr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Datum", Zucker_MRN_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_Aufschub", Zucker_Aufschub)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ReErfZeitstempel", ReErfZeitstempel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nettozahlungsziel", Nettozahlungsziel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SpeditionsbuchUnterNr", SpeditionsbuchUnterNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErfassungsNr", ErfassungsNr)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisiererKundenNr", AvisiererKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avisierer", Avisierer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EMailRechnungstext", EMailRechnungstext)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoID", AvisoID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Handling", Handling)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VorschauID", VorschauID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenze", Grenze)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungSprache", RechnungSprache)) + + Return list + End Function + + + + Public Sub LOAD(FilialeNr As Integer, AbfertigungsNr As Integer, Optional loadPos As Boolean = True) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Rechnungsausgang WHERE FilialeNr=@FilialeNr AND AbfertigungsNr=@AbfertigungsNr ", conn) + cmd.Parameters.AddWithValue("@FilialeNr", FilialeNr) + cmd.Parameters.AddWithValue("@AbfertigungsNr", AbfertigungsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadPos Then LOAD_POSITIONEN() + End If + dr.Close() + End Using + doVorzeichen() + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Shared Function LOADByFilialeAbfNrsssasdssssssssss(FilialeNr As Integer, AbfertigungsNr As Integer) As cVorauskasse + Try + Dim VK As New cVorauskasse + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Rechnungsausgang WHERE vk_AbfertigungsNr=@vk_AbfertigungsNr AND vk_FilialeNr=@vk_FilialeNr ", conn) + cmd.Parameters.AddWithValue("@vk_FilialeNr", FilialeNr) + cmd.Parameters.AddWithValue("@vk_AbfertigungsNr", AbfertigungsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In VK.getParameterList() + Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(VK, Nothing) + Else + propInfo.SetValue(VK, dr.Item(l.Text)) + End If + Next + dr.Close() + Return VK + End If + dr.Close() + End Using + 'VOREZEICHENCNENCNECNENCN!!! + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + Public Function SAVE(Optional saveAll As Boolean = True) As Boolean + doVorzeichen() + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Rechnungsausgang WHERE RK_ID=@RK_ID) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + RK_ID = SQL.doSQLVarListID(RK_ID, sqlstr, "FMZOLL", , list) + + + If RK_ID > 0 Then + doVorzeichenPOS() + If saveAll Then SAVE_POSITIONEN(RK_ID) ' positionen speicehrn + doVorzeichenPOS() + End If + doVorzeichen() + Return RK_ID > 0 + End Function + + Public Function SAVE_DruckDatumZeit() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " UPDATE Rechnungsausgang SET DruckDatumZeit=@DruckDatumZeit WHERE RK_ID=@RK_ID " + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + + Public Sub doVorzeichen() + Dim vz = If(Vorzeichen = "-", -1, 1) + Me.SteuerfreierGesamtbetrag *= vz + Me.SteuerpflichtigerGesamtbetrag *= vz + Me.Abfertigungskosten *= vz + End Sub + Public Sub doVorzeichenPOS() + Dim vz = If(Vorzeichen = "-", -1, 1) + For Each p In POSITIONEN + p.doVorzeichen(Vorzeichen) + Next + End Sub + + Public Function CHECK_Validation(ByRef errMsg As String) As Boolean + If Firma_ID <= 0 Then errMsg = "ERROR: Firma auswählen!" : Return False + If Rechnung_an = 0 OrElse CStr(Rechnung_an) = "" Then errMsg = "ERROR: Rechnungsempfänger auswählen!" : Return False + If SpeditionsbuchUnterNr Is Nothing Then errMsg = "ERROR: Speditionsbuch-UnterNr auswählen!" : Return False + ' If Steuerschlüssel Then errMsg = "ERROR: Steuerschlüssel muss angegeben werden!" : Return False + + Return True + End Function + + Public Function SAVE_POSITIONEN(RK_ID) As Boolean + If DELETE_POSITIONEN() Then ' zuerst Einträge löschen... + ORDER_POSITIONEN() ' ... dann ordnen ... + For Each p In POSITIONEN + If Not p.INSERT(RK_ID) Then Return False ' ... dann insert + Next + Else : Return False + End If + Return True + End Function + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Rechnungsausgang WHERE RK_ID=@RK_ID ", conn) + cmd.Parameters.AddWithValue("@RK_ID", RK_ID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + doVorzeichen() + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [Rechnungsausgang] SET " & str & " WHERE RK_ID=@RK_ID ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 Rechnungsausgang (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function SET_DruckdatumUhrzeit() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " UPDATE [Rechnungsausgang] SET DruckDatumZeit=GETDATE WHERE RK_ID=" & Me.RK_ID + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function isReverseChargeSumme() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + 'Wenn selbes Land --> Kein Reversecharge + Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID) + ' MsgBox(RechnungsLandKz & " - " & FIRMA.Firma_LandKz) + If RechnungsLandKz = FIRMA.Firma_LandKz Then + Return False + End If + + + Dim sqlstr = " SELECT SUM(POS.SteuerfreierBetrag) AS ReverseChargeSumme " + sqlstr &= " FROM Rechnungsausgang as RA INNER JOIN RechnungsausgangPositionen as POS ON RA.RK_ID = POS.RK_ID INNER JOIN Leistungen ON POS.LeistungsNr = Leistungen.LeistungsNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] AS LD ON RA.RechnungsUstIdKz = LD.LandKz" + sqlstr &= " WHERE RA.rk_id='" & Me.RK_ID & "' AND LD.ReverseCharge = 1 AND Leistungen.ReverseCharge = 1" + + If Not CBool(SQL.DLookup("isnull([MitgliedslandEU],0)", "Währungstabelle", "LandKz='" & If(RechnungsLandKz, "") & "'", "FMZOLL", 0)) Then + Return False + End If + + Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0) = 0, False, True) + End Function + + Public Function setSPEDBUCH_FAKTURIERT(Optional wert As Boolean = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " UPDATE Speditionsbuch SET Fakturiert='" & If(wert, 1, 0) & "' WHERE FilialenNr = '" & Me.FilialenNr & "' AND AbfertigungsNr = '" & Me.[AbfertigungsNr] & "' AND UnterNr = '" & Me.[SpeditionsbuchUnterNr] & "'" + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [Rechnungsausgang] WHERE RK_ID=" & Me.RK_ID + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function DELETE_POSITIONEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [RechnungsausgangPositionen] WHERE RK_ID=" & Me.RK_ID + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Sub LOAD_POSITIONEN() + Try + POSITIONEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("Select * FROM RechnungsausgangPositionen WHERE RK_ID=@RK_ID ", conn) + cmd.Parameters.AddWithValue("@RK_ID", Me.RK_ID) + + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cRechnungsausgangPositionen + 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 + POSITIONEN.Add(l) + End While + dr.Close() + End Using + End Using + doVorzeichenPOS() + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub ORDER_POSITIONEN() + Try + ' Dim POSITIONEN_Tmp As New List(Of cRechnungsausgangPositionen) + Try + POSITIONEN = POSITIONEN.OrderByDescending(Function(x) x.Preis).ToList() + Catch ex As Exception + 'Preis null?? + End Try + POSITIONEN = POSITIONEN.OrderBy(Function(x) x.LeistungsNr).ToList() + + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + +End Class + + + +Public Class cRechnungsausgangPositionen + + Property RK_ID As Integer + Property LeistungsNr As Integer + Property Steuerpflichtig As Boolean + Property LeistungsBez As String = Nothing + Property IndexZkteing As Integer = 0 + Property BerechnungsartNr As Integer = 1 + Property Preis As Object = Nothing + Property Anzahl As Object = Nothing + Property SteuerpflichtigerBetrag As Decimal = 0 + Property SteuerfreierBetrag As Decimal = 0 + Property AufschubkontoNr As Object = Nothing + Property Aufschubfälligkeit As Object = Nothing + Property Prüfsumme_berechnen As Boolean '!!!! + Property DateiNameAufschub As Object = Nothing + Property Preisbindung As Boolean '!!!! + Property Belegdaten As Object = Nothing + Property Fremdwährung As Object = Nothing + Property BGebLeistungsNr As Object = Nothing + Property BGebProzent As Object = Nothing + Property BGebBgl As Object = Nothing + Property BGebMinBetrag As Object = Nothing + Property RePosZeitstempel As Object = Nothing + + 'FROM [VERAG].[dbo].[RechnungsausgangPositionen] + + + Dim SQL As New SQL + + Sub New() + 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("RK_ID", RK_ID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerpflichtig", Steuerpflichtig)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IndexZkteing", IndexZkteing)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartNr", BerechnungsartNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preis", Preis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anzahl", Anzahl)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetrag", SteuerpflichtigerBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetrag", SteuerfreierBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AufschubkontoNr", AufschubkontoNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aufschubfälligkeit", Aufschubfälligkeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Prüfsumme berechnen", Prüfsumme_berechnen, "Prüfsumme_berechnen")) '!!!! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DateiNameAufschub", DateiNameAufschub)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preisbindung", Preisbindung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegdaten", Belegdaten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fremdwährung", Fremdwährung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebLeistungsNr", BGebLeistungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebProzent", BGebProzent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebBgl", BGebBgl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebMinBetrag", BGebMinBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RePosZeitstempel", RePosZeitstempel)) + + 'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("upsize_ts", XXXXXXXXXXXXX)) + Return list + End Function + + Public Function INSERT(RK_ID) As Boolean + Me.RK_ID = RK_ID + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + End Function + + + Public Sub doVorzeichen(Vorzeichen) + Dim vz = If(Vorzeichen = "-", -1, 1) + Me.Preis *= vz + Me.SteuerfreierBetrag *= vz + Me.SteuerpflichtigerBetrag *= vz + End Sub + + Public Function getInsertCmd() As String + Try + 'Me.Eingegeben_am = Now + 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 RechnungsausgangPositionen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb new file mode 100644 index 0000000..430d349 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb @@ -0,0 +1,170 @@ + +Imports System.Data.SqlClient + +Public Class cRechnungsnummern + Property SpeditionsbuchNr As String = "" 'FIRMA! + Property Buchungsjahr As String = "" + + + Property VonRechnungsNr As Integer = -1 + Property BisRechnungsNr As Integer = -1 + Property LfdRechnungsNr As Integer = 0 + + Dim SQL As New SQL + + Public Sub New(SpeditionsbuchNr As String, Buchungsjahr As String) + Me.SpeditionsbuchNr = SpeditionsbuchNr + Me.Buchungsjahr = Buchungsjahr + + 'Default-Werte: + '------------------------------------- + Select Case SpeditionsbuchNr + Case 1 + VonRechnungsNr = Now.ToString("yy") & "100001" + BisRechnungsNr = Now.ToString("yy") & "199999" + Case 3 + VonRechnungsNr = Now.ToString("yy") & "300001" + BisRechnungsNr = Now.ToString("yy") & "399999" + Case 7 + VonRechnungsNr = Now.ToString("yy") & "700001" + BisRechnungsNr = Now.ToString("yy") & "799999" + Case 11 + VonRechnungsNr = Now.ToString("yy") & "900001" + BisRechnungsNr = Now.ToString("yy") & "999999" + Case 15 + VonRechnungsNr = Now.ToString("yy") & "200001" + BisRechnungsNr = Now.ToString("yy") & "299999" + Case 20 + VonRechnungsNr = Now.ToString("yy") & "400001" + BisRechnungsNr = Now.ToString("yy") & "499999" + Case 17 'FrontOffice + VonRechnungsNr = Now.ToString("yy") & "500001" + BisRechnungsNr = Now.ToString("yy") & "599999" + + Case 21 ' UNISPED AT + VonRechnungsNr = Now.ToString("yy") & "7000000" + BisRechnungsNr = Now.ToString("yy") & "7999999" + Case 22 ' UNISPED DE + VonRechnungsNr = Now.ToString("yy") & "9000000" + BisRechnungsNr = Now.ToString("yy") & "9999999" + Case 23 ' UNISPED Zollservice + VonRechnungsNr = Now.ToString("yy") & "5000000" + BisRechnungsNr = Now.ToString("yy") & "5999999" + End Select + LfdRechnungsNr = VonRechnungsNr + '------------------------------------- + + + LOAD(SpeditionsbuchNr, Buchungsjahr) + End Sub + + + Public Function INCREASE_RGNR() As Integer + If LfdRechnungsNr > 0 Then + LfdRechnungsNr += 1 + Else + LfdRechnungsNr = 1 + End If + SAVE() + Return LfdRechnungsNr + End Function + + + Public Function CHECK_RGNR() As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. + Dim increased = False + While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & LfdRechnungsNr & "' and Firma_ID='" & SpeditionsbuchNr & "' ", "FMZOLL", 0) > 0 + LfdRechnungsNr += 1 + increased = True + End While + If increased Then SAVE() + Return LfdRechnungsNr + End Function + + + Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [Rechnungsnummern] WITH(updlock,serializable) WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + 'MsgBox(sqlstr) + Return SQL.doSQL(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD(SpeditionsbuchNr As String, Buchungsjahr As String) + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Rechnungsnummern WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr ", conn) + cmd.Parameters.AddWithValue("@SpeditionsbuchNr", SpeditionsbuchNr) + cmd.Parameters.AddWithValue("@Buchungsjahr", Buchungsjahr) + + Dim dr = cmd.ExecuteReader() + If dr.Read Then + Me.SpeditionsbuchNr = cSqlDb.checkNullStr(dr.Item("SpeditionsbuchNr")) + Me.Buchungsjahr = cSqlDb.checkNullStr(dr.Item("Buchungsjahr")) + Me.LfdRechnungsNr = cSqlDb.checkNullStr(dr.Item("LfdRechnungsNr")) + Me.VonRechnungsNr = cSqlDb.checkNullInteger(dr.Item("VonRechnungsNr")) + Me.BisRechnungsNr = cSqlDb.checkNullInteger(dr.Item("BisRechnungsNr")) + + End If + dr.Close() + End Using + End Using + 'Return Nothing + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + ' Return Nothing + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("SpeditionsbuchNr", SpeditionsbuchNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Buchungsjahr", Buchungsjahr)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LfdRechnungsNr", LfdRechnungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("VonRechnungsNr", VonRechnungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BisRechnungsNr", BisRechnungsNr)) + Return list + End Function + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList() + + Dim str As String = "" + For Each i In list + str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & "," + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [Rechnungsnummern] SET " & str & " WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + str &= "[" & i.Text & "]," + values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & "," + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO [Rechnungsnummern] (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb new file mode 100644 index 0000000..0fdec61 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb @@ -0,0 +1,249 @@ + + +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cSDL + Property KundenNr As Integer + Property KfzKennzeichen As String = "" + Property SDLNr As Integer + Property History As Integer + Property RefKundenNr As Object = Nothing + Property MSE_Kd_Nr As Object = Nothing + Property TELEPASS_Kd_Nr As Object = Nothing + Property CLIENT_Nr As Object = Nothing + Property BestellNr As Object = Nothing + Property Bestelldatum As Object = Nothing + Property Lieferdatum As Object = Nothing + Property Ausstellungsdatum As Object = Nothing + Property Umstellungsdatum As Object = Nothing + Property KartenNr As Object = Nothing + Property PAN_Nr As Object = Nothing + Property VIACARD As Object = Nothing + Property MOTORWAY_CARD_Nr As Object = Nothing + Property CARD_Nr As Object = Nothing + Property KartenSchlüsselNr As Object = Nothing + Property FREJUS_CARD_Nr As Object = Nothing + Property ECO As Object = Nothing + Property GültigBis As Object = Nothing + Property OBUID As Object = Nothing + Property SERIE_Nr As Object = Nothing + Property TELEPASS_Nr As Object = Nothing + Property Vermerk As Object = Nothing + Property Partner As Object = Nothing + Property BenutzerNr As Object = Nothing + Property PIN As Object = Nothing + Property FlottenPIN As Object = Nothing + Property MasterPIN As Object = Nothing + Property VertragsNr As Object = Nothing + Property Vertragsabschlussdatum As Object = Nothing + Property Kategorie As Object = Nothing + Property Schadstoffklasse As Object = Nothing + Property Status As Object = Nothing + Property Ersatzkarte As Object = Nothing + Property Gesperrt As Object = Nothing + Property Defekt As Object = Nothing + Property Verloren As Object = Nothing + Property Gestohlen As Object = Nothing + Property Erfassungsdatum As Object = Nothing + Property Änderungsdatum As Object = Nothing + Property Sachbearbeiter As Object = Nothing + Property Retourniert As Object = Nothing + Property RetourniertAm As Object = Nothing + + Property GesperrtAm As Object = Nothing + Property DefektAm As Object = Nothing + Property VerlorenAm As Object = Nothing + Property GestohlenAm As Object = Nothing + Property ErsatzkarteAm As Object = Nothing + Property TelepassErsatzkarte As Object = Nothing + Property TelepassErsatzkarteAm As Object = Nothing + Property Archiviert As Boolean = False + Property LKWAbgemeldet As Boolean = False + Property LKWAbgemeldetAM As Object = Nothing + + Property Fahrer As Object = Nothing + Property Kaution As Object = Nothing + Property BelegNr As Object = Nothing + + + Public hasentry + Dim SQL As New SQL + + Sub New() + + End Sub + + Sub New(KundenNr, KfzKennzeichen, SDLNr, History) + Me.KundenNr = KundenNr + Me.KfzKennzeichen = KfzKennzeichen + Me.SDLNr = SDLNr + Me.History = History + LOAD() + End Sub + + + Sub New(KundenNr, KfzKennzeichen, SDLNr) + Me.KundenNr = KundenNr + Me.KfzKennzeichen = KfzKennzeichen + Me.SDLNr = SDLNr + Me.History = SQL.getValueTxtBySql("SELECT TOP 1 History FROM SDL WHERE KundenNr='" & KundenNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "' AND SDLNr='" & SDLNr & "' ORDER BY History DESC", "SDL") + 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("KundenNr", KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KfzKennzeichen", KfzKennzeichen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SDLNr", SDLNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("History", History)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefKundenNr", RefKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MSE-Kd-Nr", MSE_Kd_Nr, "MSE_Kd_Nr")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TELEPASS-Kd-Nr", TELEPASS_Kd_Nr, "TELEPASS_Kd_Nr")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CLIENT-Nr", CLIENT_Nr, "CLIENT_Nr")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BestellNr", BestellNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestelldatum", Bestelldatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferdatum", Lieferdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ausstellungsdatum", Ausstellungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umstellungsdatum", Umstellungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenNr", KartenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PAN-Nr", PAN_Nr, "PAN_Nr")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VIACARD", VIACARD)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MOTORWAY-CARD-Nr", MOTORWAY_CARD_Nr, "MOTORWAY_CARD_Nr")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CARD-Nr", CARD_Nr, "CARD_Nr")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenSchlüsselNr", KartenSchlüsselNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FREJUS-CARD-Nr", FREJUS_CARD_Nr, "FREJUS_CARD_Nr")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ECO", ECO)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GültigBis", GültigBis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OBUID", OBUID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SERIE-Nr", SERIE_Nr, "SERIE_Nr")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TELEPASS-Nr", TELEPASS_Nr, "TELEPASS_Nr")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Partner", Partner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BenutzerNr", BenutzerNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PIN", PIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FlottenPIN", FlottenPIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MasterPIN", MasterPIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VertragsNr", VertragsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vertragsabschlussdatum", Vertragsabschlussdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kategorie", Kategorie)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Schadstoffklasse", Schadstoffklasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ersatzkarte", Ersatzkarte)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt", Gesperrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Defekt", Defekt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verloren", Verloren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gestohlen", Gestohlen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Änderungsdatum", Änderungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Retourniert", Retourniert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RetourniertAm", RetourniertAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GesperrtAm", GesperrtAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DefektAm", DefektAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VerlorenAm", VerlorenAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GestohlenAm", GestohlenAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErsatzkarteAm", ErsatzkarteAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TelepassErsatzkarte", TelepassErsatzkarte)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TelepassErsatzkarteAm", TelepassErsatzkarteAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Archiviert", Archiviert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKWAbgemeldet", LKWAbgemeldet)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKWAbgemeldetAM", LKWAbgemeldetAM)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fahrer", Fahrer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kaution", Kaution)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM SDL WITH(updlock,serializable) WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND History=@History) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "SDL", , list) + End Function + + Public Sub LOAD() + Try + hasentry = False + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM SDL WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND History=@History ", conn) + cmd.Parameters.AddWithValue("@KundenNr", KundenNr) + cmd.Parameters.AddWithValue("@KfzKennzeichen", KfzKennzeichen) + cmd.Parameters.AddWithValue("@SDLNr", SDLNr) + cmd.Parameters.AddWithValue("@History", History) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasentry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [SDL] SET " & str & " WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND History=@History ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 SDL (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSDL_LKW.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSDL_LKW.vb new file mode 100644 index 0000000..ec3c64e --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSDL_LKW.vb @@ -0,0 +1,138 @@ + + + +Imports System.Data.SqlClient + Imports System.Reflection +Public Class cSDL_LKW + Property KundenNr As Integer + Property KfzKennzeichen As String + Property Nationalität As Object = Nothing + Property Verkauft As Object = Nothing + Property Abgemeldet As Object = Nothing + Property Vermerk As Object = Nothing + Property Erfassungsdatum As Object = Nothing + Property Änderungsdatum As Object = Nothing + Property Sachbearbeiter As Object = Nothing + Property KZAenderung As Object = Nothing + Property ts As Object = Nothing + Property Baujahr As Object = Nothing + Property KzMiete As Object = Nothing + Property KzLeasing As Object = Nothing + Property KzFinanzierungBank As Object = Nothing + + Public hasEntry = False + + Dim SQL As New SQL + + Sub New(KundenNr, KfzKennzeichen) + Me.KundenNr = KundenNr + Me.KfzKennzeichen = KfzKennzeichen + 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("KundenNr", KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KfzKennzeichen", KfzKennzeichen)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nationalität", Nationalität)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verkauft", Verkauft)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abgemeldet", Abgemeldet)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Änderungsdatum", Änderungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KZAenderung", KZAenderung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Baujahr", Baujahr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KzMiete", KzMiete)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KzLeasing", KzLeasing)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KzFinanzierungBank", KzFinanzierungBank)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM LKW WHERE KundenNr=@KundenNr and KfzKennzeichen=@KfzKennzeichen) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "SDL", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionSDL() + Using cmd As New SqlCommand("SELECT * FROM LKW WHERE KundenNr=@KundenNr and KfzKennzeichen=@KfzKennzeichen ", conn) + cmd.Parameters.AddWithValue("@KundenNr", KundenNr) + cmd.Parameters.AddWithValue("@KfzKennzeichen", KfzKennzeichen) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [LKW] SET " & str & " WHERE KundenNr=@KundenNr and KfzKennzeichen=@KfzKennzeichen ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 LKW (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb new file mode 100644 index 0000000..b31b2e9 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb @@ -0,0 +1,242 @@ +Imports com.esendex.sdk.messaging +Imports com.esendex.sdk.sent +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cSMS + Property sms_id As Integer + Property sms_Datum As Date = Now + Property sms_Firma As Object = Nothing + Property sms_Account As Object = Nothing + + Property sms_Fahrername As Object = Nothing + Property sms_KundenNr As Object = Nothing + Property sms_Kunde As Object = Nothing + + + + Property sms_Vorwahl As Object = Nothing + Property sms_Handynummer As Object = Nothing + Property sms_Nachricht As Object = Nothing + Property sms_BatchId As Object = Nothing + Property sms_MessageIds As Object = Nothing + Property sms_Uris As Object = Nothing + Property sms_Sachbearbeiter As String = Nothing + Property sms_SachbearbeiterId As Integer + Property sms_AvisoId As Object = Nothing + + Property sms_Status As Integer = -1 + Property sms_Queued As Object = Nothing + Property sms_Sent As Object = Nothing + Property sms_Delivered As Object = Nothing + Property sms_Failure As Object = Nothing + + + Dim ESENDEX_USER As String = "al@verag.ag" + Dim ESENDEX_PWD As String = "Developer#2" + + Dim SQL As New SQL + + Sub New() + sms_Sachbearbeiter = If(sms_Sachbearbeiter, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) + If sms_SachbearbeiterId <= 0 Then sms_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + + End Sub + + Sub New(sms_id) + Me.sms_id = sms_id + LOAD() + End Sub + + Public 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("sms_id", sms_id, , True, True)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Datum", sms_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Firma", sms_Firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Account", sms_Account)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Fahrername", sms_Fahrername)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_KundenNr", sms_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Kunde", sms_Kunde)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Vorwahl", sms_Vorwahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Handynummer", sms_Handynummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Nachricht", sms_Nachricht)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_BatchId", sms_BatchId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_MessageIds", sms_MessageIds)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Uris", sms_Uris)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Sachbearbeiter", sms_Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_SachbearbeiterId", sms_SachbearbeiterId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_AvisoId", sms_AvisoId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Status", sms_Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Queued", sms_Queued)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Sent", sms_Sent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Delivered", sms_Delivered)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Failure", sms_Failure)) + + + Return list + End Function + + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSMS WITH(updlock,serializable) WHERE sms_id=@sms_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + sms_id = SQL.doSQLVarListID(sms_id, sqlstr, "FMZOLL", , list) + Return sms_id > 0 + End Function + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblSMS WHERE sms_id=@sms_id ", conn) + cmd.Parameters.AddWithValue("@sms_id", sms_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblSMS] SET " & str & " WHERE sms_id=@sms_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblSMS (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblSMS] WITH(updlock,serializable) WHERE sms_id=" & Me.sms_id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function sendSMS() As Boolean + Try + + Dim messagingService As New MessagingService(ESENDEX_USER, ESENDEX_PWD) + 'SENDEN DER SMS + Dim result = messagingService.SendMessage(New SmsMessage(Me.sms_Handynummer, Me.sms_Nachricht, Me.sms_Account)) + + Dim Uris As String = "" + Dim msgIDs As String = "" + Try + Me.sms_BatchId = result.BatchId + + If result.MessageIds IsNot Nothing Then + For Each m In result.MessageIds + Uris &= m.Uri & ";;" + msgIDs &= m.Id.ToString & ";;" + Next + End If + Catch ex As Exception + End Try + While Uris.EndsWith(";;") + Uris = Uris.Substring(0, Uris.Length - 2) + End While + While msgIDs.EndsWith(";;") + msgIDs = msgIDs.Substring(0, msgIDs.Length - 2) + End While + + Me.sms_MessageIds = msgIDs + Me.sms_Uris = Uris + + If Not Me.SAVE() Then + MsgBox("Fehler: SMS Daten wurden nicht gespeichert!") + End If + + Return True + Catch ex As Exception + MsgBox("Fehler beim Senden der SMS!" & vbNewLine & ex.Message & ex.StackTrace) + Return False + End Try + + End Function + Function checkSMSStatus() As String + Try + If Me.sms_Status >= 3 Then Return Me.sms_Status ' Bereits finaler Status, keine Abfrage nötig + If If(Me.sms_MessageIds, "") = "" Then MsgBox("Keine MessageId gefunden!") : Return False ' Keine MsgId + + Dim sendService As New SentService(ESENDEX_USER, ESENDEX_PWD) + + 'Send a message and retrieve the message ID + Dim MSG = sendService.GetMessage(New Guid(Me.sms_MessageIds.ToString)) + Dim messageStatus = MSG.Status + MsgBox(MSG.Status) + 'Status in DB Ubdaten + Me.sms_Status = messageStatus + Me.sms_Sent = MSG.SentAt + Me.sms_Delivered = MSG.DeliveredAt + If MSG.FailureReason IsNot Nothing Then Me.sms_Failure = MSG.FailureReason.Description + Me.SAVE() + + Return messageStatus + Catch ex As Exception + MsgBox("Fehler beim Prüfen des SMS Status!" & vbNewLine & ex.Message & ex.StackTrace) + End Try + Return "" + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendMailAttach.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendMailAttach.vb new file mode 100644 index 0000000..2ec9b59 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendMailAttach.vb @@ -0,0 +1,263 @@ +'Imports System.Runtime.InteropServices +'Imports System.Windows.Forms +'Imports System.IO + + +'Namespace SendFileTo +' Public Class cSendMailAttach +' Public Function AddRecipientTo(ByVal email As String) As Boolean +' Return AddRecipient(email, howTo.MAPI_TO) +' End Function + +' Public Function AddRecipientCC(ByVal email As String) As Boolean +' Return AddRecipient(email, howTo.MAPI_TO) +' End Function + +' Public Function AddRecipientBCC(ByVal email As String) As Boolean +' Return AddRecipient(email, howTo.MAPI_TO) +' End Function + +' Public Sub AddAttachment(ByVal strAttachmentFileName As String) +' m_attachments.Add(strAttachmentFileName) +' End Sub + +' Public Function SendMailPopup(ByVal strSubject As String, +' ByVal strBody As String) As Integer +' Return SendMail(strSubject, strBody, MAPI_LOGON_UI Or MAPI_DIALOG) +' End Function + +' Public Function SendMailDirect(ByVal strSubject As String, +' ByVal strBody As String) As Integer +' Return SendMail(strSubject, strBody, MAPI_LOGON_UI) +' End Function + + +' +' Private Shared Function MAPISendMail(ByVal sess As IntPtr, +' ByVal hwnd As IntPtr, ByVal message As MapiMessage, +' ByVal flg As Integer, ByVal rsv As Integer) As Integer +' End Function + +' Private Function SendMail(ByVal strSubject As String, +' ByVal strBody As String, ByVal how As Integer) As Integer +' Dim msg As MapiMessage = New MapiMessage() +' msg.subject = strSubject +' msg.noteText = strBody + +' msg.recips = GetRecipients(msg.recipCount) +' msg.files = GetAttachments(msg.fileCount) + +' m_lastError = MAPISendMail(New IntPtr(0), New IntPtr(0), msg, how, +' 0) +' If m_lastError > 1 Then +' MessageBox.Show("MAPISendMail failed! " + GetLastError(), +' "MAPISendMail") +' End If + +' Cleanup(msg) +' Return m_lastError +' End Function + +' Private Function AddRecipient(ByVal email As String, +' ByVal howTo As howTo) As Boolean +' Dim recipient As MapiRecipDesc = New MapiRecipDesc() + +' recipient.recipClass = CType(howTo, Integer) +' recipient.name = email +' m_recipients.Add(recipient) + +' Return True +' End Function + +' Private Function GetRecipients(ByRef recipCount As Integer) As IntPtr +' recipCount = 0 +' If m_recipients.Count = 0 Then +' Return 0 +' End If + +' Dim size As Integer = Marshal.SizeOf(GetType(MapiRecipDesc)) +' Dim intPtr As IntPtr = Marshal.AllocHGlobal( +' m_recipients.Count * size) + +' Dim ptr As Integer = CType(intPtr, Integer) +' Dim mapiDesc As MapiRecipDesc +' For Each mapiDesc In m_recipients +' Marshal.StructureToPtr(mapiDesc, CType(ptr, IntPtr), False) +' ptr += size +' Next + +' recipCount = m_recipients.Count +' Return intPtr +' End Function + +' Private Function GetAttachments(ByRef fileCount As Integer) As IntPtr +' fileCount = 0 +' If m_attachments Is Nothing Then +' Return 0 +' End If + +' If (m_attachments.Count <= 0) Or (m_attachments.Count > +' maxAttachments) Then +' Return 0 +' End If + +' Dim size As Integer = Marshal.SizeOf(GetType(MapiFileDesc)) +' Dim intPtr As IntPtr = Marshal.AllocHGlobal( +' m_attachments.Count * size) + +' Dim mapiFileDesc As MapiFileDesc = New MapiFileDesc() +' mapiFileDesc.position = -1 +' Dim ptr As Integer = CType(intPtr, Integer) + +' Dim strAttachment As String +' For Each strAttachment In m_attachments +' mapiFileDesc.name = Path.GetFileName(strAttachment) +' mapiFileDesc.path = strAttachment +' Marshal.StructureToPtr(mapiFileDesc, CType(ptr, IntPtr), False) +' ptr += size +' Next + +' fileCount = m_attachments.Count +' Return intPtr +' End Function + +' Private Sub Cleanup(ByRef msg As MapiMessage) +' Dim size As Integer = Marshal.SizeOf(GetType(MapiRecipDesc)) +' Dim ptr As Integer = 0 + +' If msg.recips <> IntPtr.Zero Then +' ptr = CType(msg.recips, Integer) +' Dim i As Integer +' For i = 0 To msg.recipCount - 1 Step i + 1 +' Marshal.DestroyStructure(CType(ptr, IntPtr), +' GetType(MapiRecipDesc)) +' ptr += size +' Next +' Marshal.FreeHGlobal(msg.recips) +' End If + +' If msg.files <> IntPtr.Zero Then +' size = Marshal.SizeOf(GetType(MapiFileDesc)) + +' ptr = CType(msg.files, Integer) +' Dim i As Integer +' For i = 0 To msg.fileCount - 1 Step i + 1 +' Marshal.DestroyStructure(CType(ptr, IntPtr), +' GetType(MapiFileDesc)) +' ptr += size +' Next +' Marshal.FreeHGlobal(msg.files) +' End If + +' m_recipients.Clear() +' m_attachments.Clear() +' m_lastError = 0 +' End Sub + +' Public Function GetLastError() As String +' If m_lastError <= 26 Then +' Return errors(m_lastError) +' End If +' Return "MAPI error [" + m_lastError.ToString() + "]" +' End Function + +' ReadOnly errors() As String = New String() {"OK [0]", "User abort [1]", +' "General MAPI failure [2]", "MAPI login failure [3]", +' "Disk full [4]", "Insufficient memory [5]", "Access denied [6]", +' "-unknown- [7]", "Too many sessions [8]", +' "Too many files were specified [9]", +' "Too many recipients were specified [10]", +' "A specified attachment was not found [11]", +' "Attachment open failure [12]", "Attachment write failure [13]", +' "Unknown recipient [14]", "Bad recipient type [15]", +' "No messages [16]", "Invalid message [17]", "Text too large [18]", +' "Invalid session [19]", "Type not supported [20]", +' "A recipient was specified ambiguously [21]", +' "Message in use [22]", "Network failure [23]", +' "Invalid edit fields [24]", "Invalid recipients [25]", +' "Not supported [26]"} + +' Dim m_recipients As New List(Of MapiRecipDesc) +' Dim m_attachments As New List(Of String) +' Dim m_lastError As Integer = 0 + +' Private Const MAPI_LOGON_UI As Integer = &H1 +' Private Const MAPI_DIALOG As Integer = &H8 +' Private Const maxAttachments As Integer = 20 + +' Enum howTo +' MAPI_ORIG = 0 +' MAPI_TO +' MAPI_CC +' MAPI_BCC +' End Enum + +' End Class + +' +' Public Class MapiMessage +' Public reserved As Integer +' Public subject As String +' Public noteText As String +' Public messageType As String +' Public dateReceived As String +' Public conversationID As String +' Public flags As Integer +' Public originator As IntPtr +' Public recipCount As Integer +' Public recips As IntPtr +' Public fileCount As Integer +' Public files As IntPtr +' End Class + +' +' Public Class MapiFileDesc +' Public reserved As Integer +' Public flags As Integer +' Public position As Integer +' Public path As String +' Public name As String +' Public type As IntPtr +' End Class + +' +' Public Class MapiRecipDesc +' Public reserved As Integer +' Public recipClass As Integer +' Public name As String +' Public address As String +' Public eIDSize As Integer +' Public enTryID As IntPtr +' End Class +'End Namespace + + +Imports System +Imports System.IO +Imports System.Net.Mail +Imports System.Reflection +Imports System.Runtime.CompilerServices + +Namespace Fsolutions.Fbase.Common.Mail + Module MailUtility + + Sub Save(ByVal message As MailMessage, ByVal filename As String, ByVal Optional addUnsentHeader As Boolean = True) + Using filestream = File.Open(filename, FileMode.Create) + + If addUnsentHeader Then + Dim binaryWriter = New BinaryWriter(filestream) + binaryWriter.Write(System.Text.Encoding.UTF8.GetBytes("X-Unsent: 1" & Environment.NewLine)) + End If + + Dim assembly = GetType(SmtpClient).Assembly + Dim mailWriterType = assembly.[GetType]("System.Net.Mail.MailWriter") + Dim mailWriterContructor = mailWriterType.GetConstructor(BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, {GetType(Stream)}, Nothing) + Dim mailWriter = mailWriterContructor.Invoke(New Object() {filestream}) + Dim sendMethod = GetType(MailMessage).GetMethod("Send", BindingFlags.Instance Or BindingFlags.NonPublic) + sendMethod.Invoke(message, BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, New Object() {mailWriter, True, True}, Nothing) + Dim closeMethod = mailWriter.[GetType]().GetMethod("Close", BindingFlags.Instance Or BindingFlags.NonPublic) + closeMethod.Invoke(mailWriter, BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, New Object() {}, Nothing) + End Using + End Sub + End Module +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendVorkosten.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendVorkosten.vb new file mode 100644 index 0000000..9d9b017 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendVorkosten.vb @@ -0,0 +1,129 @@ + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cSendVorkosten + Property sndvk_id As Integer + Property sndvk_sendId As Object = Nothing + Property sndvk_LeistungsNr As Object = Nothing + Property sndvk_LeistungsBez As Object = Nothing + Property sndvk_Preis As Object = Nothing + Property sndvk_Firma As Object = Nothing + + + Public hasEntry = False + + Dim SQL As New SQL + + Sub New() + + End Sub + Sub New(sndvk_id) + Me.sndvk_id = sndvk_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("sndvk_id", sndvk_id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_sendId", sndvk_sendId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_LeistungsNr", sndvk_LeistungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_LeistungsBez", sndvk_LeistungsBez)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_Preis", sndvk_Preis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_Firma", sndvk_Firma)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSendVorkosten WHERE sndvk_id=@sndvk_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "AVISO", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO() + Using cmd As New SqlCommand("SELECT * FROM tblSendVorkosten WHERE sndvk_id=@sndvk_id ", conn) + cmd.Parameters.AddWithValue("@sndvk_id", sndvk_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [tblSendVorkosten] SET " & str & " WHERE sndvk_id=@sndvk_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblSendVorkosten (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function INSERT() As Boolean + Try + Return SQL.doSQLVarList(getInsertCmd, "AVISO", , getParameterList) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb new file mode 100644 index 0000000..575cb0f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -0,0 +1,871 @@ +Imports System.Data.SqlClient + +Public Class cSendungen + Implements ICloneable + Property tblSnd_SendungID As Integer = Nothing + Property tblSnd_PosUnterNr As Integer = Nothing + Property tblSnd_AvisoID As Integer = Nothing + Property tblSnd_Abfertigungsart_ID As Integer = Nothing + Property tblSnd_EmpfaengerKdNr As Integer = Nothing + Property tblSnd_Empfaenger As String = Nothing + Property tblSnd_Ansprechperson As String = Nothing + Property tblSnd_Bonitaet As String = Nothing + Property tblSnd_Anmerkung As String = Nothing + Property tblSnd_AuftraggeberKdNr As Integer = Nothing + Property tblSnd_Auftraggeber As String = Nothing + Property tblSnd_SpeditionsbuchEingetragen As Boolean = False + Property FilialenNr As Integer = Nothing + Property AbfertigungsNr As Integer = Nothing + Property UnterNr As Integer = Nothing + Property tblSnd_Colli As String = Nothing + Property tblSnd_Gewicht As String = Nothing + Property tblSnd_Warenbezeichnung As String = Nothing + Property tblSnd_SachbearbeiterId As Integer = Nothing + Property tblSnd_AbsenderKdNr As Integer = Nothing + Property tblSnd_Absender As String = Nothing + Property tblSnd_AngabeZolltarif As Integer = Nothing + Property tblSnd_inBearbeitung As Boolean = False + Property tblSnd_Bearbeitung_MaId As Integer = Nothing + Property tblSnd_aufschub As String = Nothing + Property tblSnd_anzahlHandling As Object = Nothing + Property tblSnd_anzahlPOS As Object = Nothing + ' Property tblSnd_bar As Object = Nothing + ' Property tblSnd_barBeleg As Object = Nothing + ' Property tblSnd_betrag As Object = Nothing + Property tblSnd_Fremdspedition As Boolean = False + Property tblSnd_FremdspeditionText As String = "" + Property tblSnd_QS_MA As Object = Nothing + Property tblSnd_KdAuftragsNr As Object = "" + Property tblSnd_NCTSVerzollungsadresse As Object = "" + Property tblSnd_NCTSVerzollungsadresseKdNr As Object = "" + + Property NCTS_Verzollungsadresse_Strasse As Object = "" + Property NCTS_Verzollungsadresse_PLZ As Object = "" + Property NCTS_Verzollungsadresse_Ort As Object = "" + Property NCTS_Verzollungsadresse_Land As Object = "" + Property NCTS_Verzollungsadresse_EORI As Object = "" + Property NCTS_Verzollungsadresse_EORI_NL As Object = "" + Property NCTS_ngaId As Object = Nothing + + + Property NCTS_Verzollungsadresse_Ansprechpartner As Object = "" + Property NCTS_Bestimmungszollstelle As Object = "" + + Property tblSnd_Endempfaenger As Object = "" + Property tblSnd_EndempfaengerKdNr As Object = "" + Property tblSnd_EUFiskalEmpfaenger As Object = "" + Property tblSnd_EUFiskalEmpfaengerKdNr As Object = "" + Property tblSnd_BARzuKassieren As Object = Nothing + + Property tblSnd_KdAuftragsNrAvisierer As Object = Nothing + Property tblSnd_KdAuftragsNrEmpfaenger As Object = Nothing + Property tblSnd_KdAuftragsNrFrachtfuehrer As Object = Nothing + Property tblSnd_AnmerkungDispoliste As Object = Nothing + Property tblSnd_ATANr As Object = "" + Property tblSnd_ATCMRN_Fremd As Object = "" + Property tblSnd_Warenwert As Object = Nothing + Property tblSnd_WarenwertWaehrung As Object = Nothing + + + Property tblSnd_Status As Integer = 0 + Property tblSnd_Vorbereitet As Object = Nothing + Property tblSnd_Vorgeschrieben As Object = Nothing + + Property LetzterMitarbeiter As Object = Nothing + Property LetzterMitarbeiterId As Object = Nothing + Property tblSnd_VG_MA As Object = Nothing + Property tblSnd_NCTSaufDISPO As Boolean = True + + Property tblSnd_AvisiererKdNr As Object = Nothing + Property tblSnd_Avisierer As Object = Nothing + Property tblSnd_FrachtfuehrerKdNr As Object = Nothing + Property tblSnd_Frachtfuehrer As Object = Nothing + Property tblSnd_DakosyRef As Object = Nothing + Property tblSnd_TeamId As Object = Nothing + Property tblSnd_Fakturiert As Object = Nothing + Property VORSYSTEM As Object = Nothing + Property VORSYSTEM_Id As Object = Nothing + Property tblSnd_FilialeAbklaerung As Object = Nothing + + Property tblSnd_AbklaerungTR As Object = Nothing + Property tblSnd_AbklaerungTR_MA As Object = Nothing + + Property tblSnd_ATB_Nr As Object = Nothing + Property tblSnd_ATB_T1 As Object = Nothing + + Property tblSnd_Vorpapier As Object = Nothing + Property tblSnd_Vorpapier_Pos As Object = Nothing + Property tblSnd_Vorpapier2 As Object = Nothing + Property tblSnd_Vorpapier2_Pos As Object = Nothing + Property tblSnd_Vorpapier3 As Object = Nothing + Property tblSnd_Vorpapier3_Pos As Object = Nothing + Property tblSnd_Frachtkosten As Object = Nothing + + + Public saveSachbearbeiter As Boolean = False + + Property ABRECHNUNG As New List(Of cSendungAbrechnung) + Property HANDLING As New List(Of cSendHandling) + Property VORKOSTEN As New List(Of cSendVorkosten) + + 'Dim cDatenbank As New cDatenbank + + Public Function Clone() As Object Implements ICloneable.Clone + Return DirectCast(MemberwiseClone(), cSendungen) + End Function + + + Public Function CLEAR_ABRECHNUNG_NotLeistungen() As Boolean + + ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "ZOLL") + ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "EUST") + ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "CLEARING") + ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "ABFKOST") + + Return True + + End Function + + + Dim SQL As New SQL + + Shared Function VP_Enum(ByVal SENDUNG_LIST As List(Of cSendungen)) As List(Of String) + Dim list = New List(Of String) + 'If SENDUNG_LIST IsNot Nothing Then + ' For Each s In SENDUNG_LIST + ' If If(s.tblSnd_Vorpapier, "") <> "" Then + ' Dim found = False + ' For Each l In list + ' If l = s.tblSnd_Vorpapier Then found = True + ' Next + ' If found = False Then list.Add(s.tblSnd_Vorpapier) + ' End If + ' Next + 'End If + + If SENDUNG_LIST IsNot Nothing Then + For Each s In SENDUNG_LIST + If If(s.tblSnd_Vorpapier, "") <> "" Then + Dim found = False + For Each l In list + If l = s.tblSnd_Vorpapier Then found = True + Next + If found = False Then list.Add(s.tblSnd_Vorpapier) + End If + If If(s.tblSnd_Vorpapier2, "") <> "" Then + Dim found = False + For Each l In list + If l = s.tblSnd_Vorpapier2 Then found = True + Next + If found = False Then list.Add(s.tblSnd_Vorpapier2) + End If + If If(s.tblSnd_Vorpapier3, "") <> "" Then + Dim found = False + For Each l In list + If l = s.tblSnd_Vorpapier3 Then found = True + Next + If found = False Then list.Add(s.tblSnd_Vorpapier3) + End If + Next + End If + + Return list + End Function + + Shared Sub LOAD_LIST(ByRef SENDUNG_LIST As List(Of cSendungen), ByRef CURRENT_INDEX As Integer, AvisoId As Integer, Optional allowchangeCurrIndex As Boolean = True) + If SENDUNG_LIST Is Nothing Then SENDUNG_LIST = New List(Of cSendungen) + SENDUNG_LIST.Clear() + Dim SQL As New SQL + For Each r In SQL.loadDgvBySql("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & " ORDER BY tblSnd_PosUnterNr,tblSnd_SendungID", "AVISO").Rows + SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) + Next + If allowchangeCurrIndex Then CURRENT_INDEX = IIf(SENDUNG_LIST.Count > 0, 0, -1) + End Sub + Shared Sub LOAD_LIST_VP(ByRef SENDUNG_LIST As List(Of cSendungen), ByRef CURRENT_INDEX As Integer, AvisoId As Integer, Vorpapier As String, Optional allowchangeCurrIndex As Boolean = True) + If SENDUNG_LIST Is Nothing Then SENDUNG_LIST = New List(Of cSendungen) + SENDUNG_LIST.Clear() + Dim SQL As New SQL + For Each r In SQL.loadDgvBySql("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & " AND (tblSnd_Vorpapier='" & Vorpapier & "' OR tblSnd_Vorpapier2='" & Vorpapier & "' OR tblSnd_Vorpapier3='" & Vorpapier & "' ) ORDER BY tblSnd_PosUnterNr,tblSnd_SendungID", "AVISO").Rows + SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) + Next + If allowchangeCurrIndex Then CURRENT_INDEX = IIf(SENDUNG_LIST.Count > 0, 0, -1) + End Sub + + Shared Sub LOAD_LIST_VP_EMPTY(ByRef SENDUNG_LIST As List(Of cSendungen), ByRef CURRENT_INDEX As Integer, AvisoId As Integer, Optional allowchangeCurrIndex As Boolean = True) + If SENDUNG_LIST Is Nothing Then SENDUNG_LIST = New List(Of cSendungen) + SENDUNG_LIST.Clear() + Dim SQL As New SQL + For Each r In SQL.loadDgvBySql("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & " AND (isnull(tblSnd_Vorpapier,'')='' AND isnull(tblSnd_Vorpapier2,'')='' AND isnull(tblSnd_Vorpapier3,'')='' ) ORDER BY tblSnd_PosUnterNr,tblSnd_SendungID", "AVISO").Rows + SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) + Next + If allowchangeCurrIndex Then CURRENT_INDEX = IIf(SENDUNG_LIST.Count > 0, 0, -1) + End Sub + + Public Sub New(tblSnd_AvisoID, currentHisId, Optional FilialenNr = Nothing, Optional AbfertigungsNr = Nothing, Optional UnterNr = Nothing, Optional tblSnd_anzahlHandling = Nothing) + Me.tblSnd_SendungID = -1 + Me.tblSnd_AvisoID = tblSnd_AvisoID + Me.tblSnd_PosUnterNr = currentHisId + ' row.Item("tblSnd_Empfaenger") = "" + ' row.Item("tblSnd_Ansprechperson") = "" + 'row.Item("tblSnd_Auftraggeber") = "" + 'row.Item("tblSnd_Absender") = "" + Me.tblSnd_Anmerkung = "" + Me.tblSnd_Gewicht = "" + Me.tblSnd_Colli = "" + + 'row.Item("tblSnd_SpeditionsbuchEingetragen") = False + Me.tblSnd_AngabeZolltarif = 2 + Me.tblSnd_inBearbeitung = False + Me.tblSnd_aufschub = "" + + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + Me.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + End If + + Me.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + Me.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + + If FilialenNr IsNot Nothing Then Me.FilialenNr = FilialenNr + If AbfertigungsNr IsNot Nothing Then Me.AbfertigungsNr = AbfertigungsNr + If UnterNr IsNot Nothing Then Me.UnterNr = UnterNr + If tblSnd_anzahlHandling IsNot Nothing Then Me.tblSnd_anzahlHandling = tblSnd_anzahlHandling + End Sub + + + Public Sub New(tblSnd_SendungID) + LOAD(tblSnd_SendungID) + End Sub + + + + Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'WITH(updlock,serializable) + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WHERE tblSnd_SendungID=@tblSnd_SendungID) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + ' MsgBox(sqlstr) + Dim id = SQL.doSQLVarListID(tblSnd_SendungID, sqlstr, "AVISO", , list) + If id > 0 Then + tblSnd_SendungID = id : Return True + End If + Return False + End Function + + 'WITH(updlock,serializable) + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblSendungen] WHERE tblSnd_SendungID=" & Me.tblSnd_SendungID + Return SQL.doSQL(sqlstr, "AVISO") + End Function + + Public Shared Function LOADByFilialenNrAbfertigungsNr(FilialenNr As Integer, AbfertigungsNr As Integer) As cSendungen + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + Dim tblSnd_SendungID = sql.getValueTxtBySql("SELECT TOP 1 tblSnd_SendungID FROM tblSendungen WHERE FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "'", "AVISO") + If tblSnd_SendungID <> "" Then + Return New cSendungen(tblSnd_SendungID) + Else + Return Nothing + End If + End Function + + Public Sub LOAD(tblSnd_SendungID As Integer) + Try + Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO() + Using cmd As New SqlCommand("SELECT * FROM tblSendungen WHERE tblSnd_SendungID=@tblSnd_SendungID ", conn) + cmd.Parameters.AddWithValue("@tblSnd_SendungID", tblSnd_SendungID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + Me.tblSnd_SendungID = SQL.checkNullReturnValue(dr.Item("tblSnd_SendungID"), Nothing) + Me.tblSnd_PosUnterNr = SQL.checkNullReturnValue(dr.Item("tblSnd_PosUnterNr"), Nothing) + Me.tblSnd_AvisoID = SQL.checkNullReturnValue(dr.Item("tblSnd_AvisoID"), Nothing) + Me.tblSnd_Abfertigungsart_ID = SQL.checkNullReturnValue(dr.Item("tblSnd_Abfertigungsart_ID"), Nothing) + Me.tblSnd_EmpfaengerKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_EmpfaengerKdNr"), Nothing) + Me.tblSnd_Empfaenger = SQL.checkNullReturnValue(dr.Item("tblSnd_Empfaenger"), Nothing) + Me.tblSnd_Ansprechperson = SQL.checkNullReturnValue(dr.Item("tblSnd_Ansprechperson"), Nothing) + Me.tblSnd_Bonitaet = SQL.checkNullReturnValue(dr.Item("tblSnd_Bonitaet"), Nothing) + Me.tblSnd_Anmerkung = SQL.checkNullReturnValue(dr.Item("tblSnd_Anmerkung"), Nothing) + Me.tblSnd_AuftraggeberKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_AuftraggeberKdNr"), Nothing) + Me.tblSnd_Auftraggeber = SQL.checkNullReturnValue(dr.Item("tblSnd_Auftraggeber"), Nothing) + Me.tblSnd_SpeditionsbuchEingetragen = SQL.checkNullReturnValue(dr.Item("tblSnd_SpeditionsbuchEingetragen"), Nothing) + Me.FilialenNr = SQL.checkNullReturnValue(dr.Item("FilialenNr"), Nothing) + Me.AbfertigungsNr = SQL.checkNullReturnValue(dr.Item("AbfertigungsNr"), Nothing) + Me.UnterNr = SQL.checkNullReturnValue(dr.Item("UnterNr"), Nothing) + Me.tblSnd_Colli = SQL.checkNullReturnValue(dr.Item("tblSnd_Colli"), Nothing) + Me.tblSnd_Gewicht = SQL.checkNullReturnValue(dr.Item("tblSnd_Gewicht"), Nothing) + Me.tblSnd_Warenbezeichnung = SQL.checkNullReturnValue(dr.Item("tblSnd_Warenbezeichnung"), Nothing) + Me.tblSnd_SachbearbeiterId = SQL.checkNullReturnValue(dr.Item("tblSnd_SachbearbeiterId"), Nothing) + Me.tblSnd_AbsenderKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_AbsenderKdNr"), Nothing) + Me.tblSnd_Absender = SQL.checkNullReturnValue(dr.Item("tblSnd_Absender"), Nothing) + Me.tblSnd_AngabeZolltarif = SQL.checkNullReturnValue(dr.Item("tblSnd_AngabeZolltarif"), Nothing) + Me.tblSnd_inBearbeitung = SQL.checkNullReturnValue(dr.Item("tblSnd_inBearbeitung"), Nothing) + Me.tblSnd_Bearbeitung_MaId = SQL.checkNullReturnValue(dr.Item("tblSnd_Bearbeitung_MaId"), Nothing) + Me.tblSnd_aufschub = SQL.checkNullReturnValue(dr.Item("tblSnd_aufschub"), Nothing) + Me.tblSnd_anzahlHandling = SQL.checkNullReturnValue(dr.Item("tblSnd_anzahlHandling"), Nothing) + Me.tblSnd_anzahlPOS = SQL.checkNullReturnValue(dr.Item("tblSnd_anzahlPOS"), Nothing) + ' Me.tblSnd_bar = SQL.checkNullReturnValue(dr.Item("tblSnd_bar"), Nothing) + ' Me.tblSnd_barBeleg = SQL.checkNullReturnValue(dr.Item("tblSnd_barBeleg"), Nothing) + ' Me.tblSnd_betrag = SQL.checkNullReturnValue(dr.Item("tblSnd_betrag"), Nothing) + Me.tblSnd_Fremdspedition = SQL.checkNullReturnValue(dr.Item("tblSnd_Fremdspedition"), False) + Me.tblSnd_FremdspeditionText = SQL.checkNullReturnValue(dr.Item("tblSnd_FremdspeditionText"), "") + Me.tblSnd_QS_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_QS_MA"), Nothing) + Me.tblSnd_KdAuftragsNr = SQL.checkNullReturnValue(dr.Item("tblSnd_KdAuftragsNr"), "") + Me.tblSnd_NCTSVerzollungsadresse = SQL.checkNullReturnValue(dr.Item("tblSnd_NCTSVerzollungsadresse"), "") + Me.tblSnd_NCTSVerzollungsadresseKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_NCTSVerzollungsadresseKdNr"), Nothing) + + + Me.NCTS_Verzollungsadresse_Strasse = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse_Strasse"), Nothing) + Me.NCTS_Verzollungsadresse_PLZ = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse_PLZ"), Nothing) + Me.NCTS_Verzollungsadresse_Ort = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse_Ort"), Nothing) + Me.NCTS_Verzollungsadresse_Land = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse_Land"), Nothing) + Me.NCTS_Verzollungsadresse_EORI = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse_EORI"), Nothing) + Me.NCTS_Verzollungsadresse_EORI_NL = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse_EORI_NL"), Nothing) + Me.NCTS_ngaId = SQL.checkNullReturnValue(dr.Item("NCTS_ngaId"), Nothing) + + Me.NCTS_Bestimmungszollstelle = SQL.checkNullReturnValue(dr.Item("NCTS_Bestimmungszollstelle"), Nothing) + + Me.tblSnd_Endempfaenger = SQL.checkNullReturnValue(dr.Item("tblSnd_Endempfaenger"), Nothing) + Me.tblSnd_EndempfaengerKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_EndempfaengerKdNr"), Nothing) + Me.tblSnd_EUFiskalEmpfaenger = SQL.checkNullReturnValue(dr.Item("tblSnd_EUFiskalEmpfaenger"), Nothing) + Me.tblSnd_EUFiskalEmpfaengerKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_EUFiskalEmpfaengerKdNr"), Nothing) + Me.tblSnd_BARzuKassieren = SQL.checkNullReturnValue(dr.Item("tblSnd_BARzuKassieren"), Nothing) + + + Me.tblSnd_KdAuftragsNrAvisierer = SQL.checkNullReturnValue(dr.Item("tblSnd_KdAuftragsNrAvisierer"), Nothing) + Me.tblSnd_KdAuftragsNrEmpfaenger = SQL.checkNullReturnValue(dr.Item("tblSnd_KdAuftragsNrEmpfaenger"), Nothing) + Me.tblSnd_KdAuftragsNrFrachtfuehrer = SQL.checkNullReturnValue(dr.Item("tblSnd_KdAuftragsNrFrachtfuehrer"), Nothing) + Me.tblSnd_AnmerkungDispoliste = SQL.checkNullReturnValue(dr.Item("tblSnd_AnmerkungDispoliste"), Nothing) + Me.tblSnd_ATANr = SQL.checkNullReturnValue(dr.Item("tblSnd_ATANr"), Nothing) + Me.tblSnd_ATCMRN_Fremd = SQL.checkNullReturnValue(dr.Item("tblSnd_ATCMRN_Fremd"), Nothing) + Me.tblSnd_Warenwert = SQL.checkNullReturnValue(dr.Item("tblSnd_Warenwert"), Nothing) + Me.tblSnd_WarenwertWaehrung = SQL.checkNullReturnValue(dr.Item("tblSnd_WarenwertWaehrung"), Nothing) + + Me.tblSnd_Status = SQL.checkNullReturnValue(dr.Item("tblSnd_Status"), Nothing) + Me.tblSnd_Vorbereitet = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorbereitet"), Nothing) + Me.tblSnd_Vorgeschrieben = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorgeschrieben"), Nothing) + + Me.LetzterMitarbeiter = SQL.checkNullReturnValue(dr.Item("LetzterMitarbeiter"), Nothing) + Me.LetzterMitarbeiterId = SQL.checkNullReturnValue(dr.Item("LetzterMitarbeiterId"), Nothing) + Me.tblSnd_VG_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_VG_MA"), Nothing) + Me.tblSnd_NCTSaufDISPO = SQL.checkNullReturnValue(dr.Item("tblSnd_NCTSaufDISPO"), Nothing) + + Me.tblSnd_AvisiererKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_AvisiererKdNr"), Nothing) + Me.tblSnd_Avisierer = SQL.checkNullReturnValue(dr.Item("tblSnd_Avisierer"), Nothing) + Me.tblSnd_FrachtfuehrerKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_FrachtfuehrerKdNr"), Nothing) + Me.tblSnd_Frachtfuehrer = SQL.checkNullReturnValue(dr.Item("tblSnd_Frachtfuehrer"), Nothing) + Me.tblSnd_DakosyRef = SQL.checkNullReturnValue(dr.Item("tblSnd_DakosyRef"), Nothing) + Me.tblSnd_TeamId = SQL.checkNullReturnValue(dr.Item("tblSnd_TeamId"), Nothing) + Me.tblSnd_Fakturiert = SQL.checkNullReturnValue(dr.Item("tblSnd_Fakturiert"), Nothing) + Me.tblSnd_FilialeAbklaerung = SQL.checkNullReturnValue(dr.Item("tblSnd_FilialeAbklaerung"), Nothing) + Me.VORSYSTEM = SQL.checkNullReturnValue(dr.Item("VORSYSTEM"), Nothing) + Me.VORSYSTEM_Id = SQL.checkNullReturnValue(dr.Item("VORSYSTEM_Id"), Nothing) + Me.tblSnd_AbklaerungTR = SQL.checkNullReturnValue(dr.Item("tblSnd_AbklaerungTR"), Nothing) + Me.tblSnd_AbklaerungTR_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_AbklaerungTR_MA"), Nothing) + Me.tblSnd_ATB_Nr = SQL.checkNullReturnValue(dr.Item("tblSnd_ATB_Nr"), Nothing) + Me.tblSnd_ATB_T1 = SQL.checkNullReturnValue(dr.Item("tblSnd_ATB_T1"), Nothing) + Me.tblSnd_Vorpapier = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier"), Nothing) + Me.tblSnd_Vorpapier_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier_Pos"), Nothing) + Me.tblSnd_Vorpapier2 = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier2"), Nothing) + Me.tblSnd_Vorpapier2_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier2_Pos"), Nothing) + Me.tblSnd_Vorpapier3 = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3"), Nothing) + Me.tblSnd_Vorpapier3_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3_Pos"), Nothing) + Me.tblSnd_Frachtkosten = SQL.checkNullReturnValue(dr.Item("tblSnd_Frachtkosten"), Nothing) + + End If + + dr.Close() + + ' End Using + conn.Close() + End Using + 'Return Nothing + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + ' Return Nothing + End Sub + + Public Sub LOAD_ABRECHNUNG() + Try + Me.ABRECHNUNG.Clear() + Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO() + Using cmd2 As New SqlCommand("SELECT * FROM tblSendAbrechnung WHERE sndabr_sendId=@sndabr_sendId and sndabr_sendId>0", conn) + cmd2.Parameters.AddWithValue("@sndabr_sendId", Me.tblSnd_SendungID) + Dim dr2 = cmd2.ExecuteReader() + + While dr2.Read + Dim a As New cSendungAbrechnung(Me.tblSnd_SendungID) + + a.sndabr_id = SQL.checkNullReturnValue(dr2.Item("sndabr_id"), Nothing) + 'a.sndabr_sendId = SQL.checkNullReturnValue(dr2.Item("sndabr_sendId"), Nothing) + a.sndabr_beteiligter = SQL.checkNullReturnValue(dr2.Item("sndabr_beteiligter"), Nothing) + a.sndabr_abrArt = SQL.checkNullReturnValue(dr2.Item("sndabr_abrArt"), Nothing) + a.sndabr_wert = SQL.checkNullReturnValue(dr2.Item("sndabr_wert"), Nothing) + a.sndabr_bezeichnung = SQL.checkNullReturnValue(dr2.Item("sndabr_bezeichnung"), Nothing) + a.sndabr_anzahl = SQL.checkNullReturnValue(dr2.Item("sndabr_anzahl"), Nothing) + a.sndabr_einzelPreis = SQL.checkNullReturnValue(dr2.Item("sndabr_einzelPreis"), Nothing) + a.sndabr_preis = SQL.checkNullReturnValue(dr2.Item("sndabr_preis"), Nothing) + + Me.ABRECHNUNG.Add(a) + End While + dr2.Close() + End Using + + conn.Close() + 'End Using + 'Return Nothing + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + ' Return Nothing + End Sub + + Public Sub LOAD_HANDLING() + Try + Me.HANDLING.Clear() + Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO() + Using cmd2 As New SqlCommand("SELECT * FROM tblSendhandling WHERE sndhdg_sendId=@sndhdg_sendId ", conn) + cmd2.Parameters.AddWithValue("@sndhdg_sendId", Me.tblSnd_SendungID) + Dim dr2 = cmd2.ExecuteReader() + + While dr2.Read + Dim a As New cSendHandling(Me.tblSnd_SendungID) + + a.sndhdg_id = SQL.checkNullReturnValue(dr2.Item("sndhdg_id"), Nothing) + 'a.sndhdg_sendId = SQL.checkNullReturnValue(dr2.Item("sndhdg_sendId"), Nothing) + a.sndhdg_abrArt = SQL.checkNullReturnValue(dr2.Item("sndhdg_abrArt"), Nothing) + a.sndhdg_nr = SQL.checkNullReturnValue(dr2.Item("sndhdg_nr"), Nothing) + + a.sndhdg_colli = SQL.checkNullReturnValue(dr2.Item("sndhdg_colli"), 0) + a.sndhdg_gewicht = SQL.checkNullReturnValue(dr2.Item("sndhdg_gewicht"), 0) + Me.HANDLING.Add(a) + End While + dr2.Close() + End Using + + conn.Close() + 'End Using + 'Return Nothing + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + ' Return Nothing + End Sub + + Public Sub LOAD_VORKOSTEN() + Try + Me.VORKOSTEN.Clear() + Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO() + Using cmd2 As New SqlCommand("SELECT * FROM tblSendVorkosten WHERE sndvk_sendId=@sndvk_sendId ", conn) + cmd2.Parameters.AddWithValue("@sndvk_sendId", Me.tblSnd_SendungID) + Dim dr2 = cmd2.ExecuteReader() + + While dr2.Read + Dim a As New cSendVorkosten() + + a.sndvk_LeistungsNr = SQL.checkNullReturnValue(dr2.Item("sndvk_LeistungsNr"), Nothing) + a.sndvk_sendId = SQL.checkNullReturnValue(dr2.Item("sndvk_sendId"), Nothing) + a.sndvk_LeistungsBez = SQL.checkNullReturnValue(dr2.Item("sndvk_LeistungsBez"), Nothing) + a.sndvk_Firma = SQL.checkNullReturnValue(dr2.Item("sndvk_Firma"), Nothing) + + a.sndvk_Preis = SQL.checkNullReturnValue(dr2.Item("sndvk_Preis"), 0) + + Me.VORKOSTEN.Add(a) + End While + dr2.Close() + End Using + + conn.Close() + 'End Using + 'Return Nothing + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + ' Return Nothing + 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("tblSnd_SendungID", tblSnd_SendungID, , True)) 'UPDATE INSERT ISPRIMARY! + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_PosUnterNr", tblSnd_PosUnterNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AvisoID", tblSnd_AvisoID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Abfertigungsart_ID", tblSnd_Abfertigungsart_ID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_EmpfaengerKdNr", tblSnd_EmpfaengerKdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Empfaenger", tblSnd_Empfaenger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Ansprechperson", tblSnd_Ansprechperson)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Bonitaet", tblSnd_Bonitaet)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Anmerkung", tblSnd_Anmerkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AuftraggeberKdNr", tblSnd_AuftraggeberKdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Auftraggeber", tblSnd_Auftraggeber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_SpeditionsbuchEingetragen", tblSnd_SpeditionsbuchEingetragen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Colli", tblSnd_Colli)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Gewicht", tblSnd_Gewicht)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Warenbezeichnung", tblSnd_Warenbezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_SachbearbeiterId", tblSnd_SachbearbeiterId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbsenderKdNr", tblSnd_AbsenderKdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Absender", tblSnd_Absender)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AngabeZolltarif", tblSnd_AngabeZolltarif)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_inBearbeitung", tblSnd_inBearbeitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Bearbeitung_MaId", tblSnd_Bearbeitung_MaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_aufschub", tblSnd_aufschub)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_anzahlHandling", tblSnd_anzahlHandling)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_anzahlPOS", tblSnd_anzahlPOS)) + + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_bar", tblSnd_bar)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_barBeleg", tblSnd_barBeleg)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_betrag", tblSnd_betrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Fremdspedition", tblSnd_Fremdspedition)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_FremdspeditionText", tblSnd_FremdspeditionText)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_KdAuftragsNr", tblSnd_KdAuftragsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_NCTSVerzollungsadresse", tblSnd_NCTSVerzollungsadresse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_NCTSVerzollungsadresseKdNr", tblSnd_NCTSVerzollungsadresseKdNr)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_Strasse", NCTS_Verzollungsadresse_Strasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_PLZ", NCTS_Verzollungsadresse_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_Ort", NCTS_Verzollungsadresse_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_Land", NCTS_Verzollungsadresse_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_EORI", NCTS_Verzollungsadresse_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_EORI_NL", NCTS_Verzollungsadresse_EORI_NL)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_ngaId", NCTS_ngaId)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_Ansprechpartner", NCTS_Verzollungsadresse_Ansprechpartner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Bestimmungszollstelle", NCTS_Bestimmungszollstelle)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Endempfaenger", tblSnd_Endempfaenger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_EndempfaengerKdNr", tblSnd_EndempfaengerKdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_EUFiskalEmpfaenger", tblSnd_EUFiskalEmpfaenger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_EUFiskalEmpfaengerKdNr", tblSnd_EUFiskalEmpfaengerKdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_BARzuKassieren", tblSnd_BARzuKassieren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_KdAuftragsNrAvisierer", tblSnd_KdAuftragsNrAvisierer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_KdAuftragsNrEmpfaenger", tblSnd_KdAuftragsNrEmpfaenger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_KdAuftragsNrFrachtfuehrer", tblSnd_KdAuftragsNrFrachtfuehrer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AnmerkungDispoliste", tblSnd_AnmerkungDispoliste)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATANr", tblSnd_ATANr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATCMRN_Fremd", tblSnd_ATCMRN_Fremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Warenwert", tblSnd_Warenwert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_WarenwertWaehrung", tblSnd_WarenwertWaehrung)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_QS_MA", tblSnd_QS_MA,,, Not saveSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Status", tblSnd_Status,,, Not saveSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorbereitet", tblSnd_Vorbereitet,,, Not saveSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorgeschrieben", tblSnd_Vorgeschrieben,,, Not saveSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_VG_MA", tblSnd_VG_MA,,, Not saveSachbearbeiter)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzterMitarbeiter", LetzterMitarbeiter,,, Not saveSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzterMitarbeiterId", LetzterMitarbeiterId,,, Not saveSachbearbeiter)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_NCTSaufDISPO", tblSnd_NCTSaufDISPO)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AvisiererKdNr", tblSnd_AvisiererKdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Avisierer", tblSnd_Avisierer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_FrachtfuehrerKdNr", tblSnd_FrachtfuehrerKdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Frachtfuehrer", tblSnd_Frachtfuehrer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_DakosyRef", tblSnd_DakosyRef)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_TeamId", tblSnd_TeamId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Fakturiert", tblSnd_Fakturiert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_FilialeAbklaerung", tblSnd_FilialeAbklaerung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VORSYSTEM", VORSYSTEM)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VORSYSTEM_Id", VORSYSTEM_Id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbklaerungTR", tblSnd_AbklaerungTR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbklaerungTR_MA", tblSnd_AbklaerungTR_MA)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATB_Nr", tblSnd_ATB_Nr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATB_T1", tblSnd_ATB_T1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier", tblSnd_Vorpapier)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier_Pos", tblSnd_Vorpapier_Pos)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier2", tblSnd_Vorpapier2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier2_Pos", tblSnd_Vorpapier2_Pos)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3", tblSnd_Vorpapier3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3_Pos", tblSnd_Vorpapier3_Pos)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Frachtkosten", tblSnd_Frachtkosten)) + + + + + Return list + 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 And Not i.isonlyForLoad Then + str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblSendungen] SET " & str & " WHERE tblSnd_SendungID=@tblSnd_SendungID ") + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 And Not i.isonlyForLoad Then + str &= "[" & i.Text & "]," + values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblSendungen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name) + 'MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function SAVE_Abrechnung() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + SAVE_Abrechnung = False + Dim sqlstr = " DELETE FROM tblSendAbrechnung WHERE sndabr_sendId=" & Me.tblSnd_SendungID + If SQL.doSQL(sqlstr, "AVISO") Then + SAVE_Abrechnung = True + For Each a In ABRECHNUNG + If Not a.INSERT() Then SAVE_Abrechnung = False + Next + End If + + ' Return b + End Function + + + Public Function SAVE_HANDLING() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + SAVE_HANDLING = False + Dim sqlstr = " DELETE FROM tblSendHandling WHERE sndhdg_sendId=" & Me.tblSnd_SendungID + ' MsgBox(sqlstr) + If SQL.doSQL(sqlstr, "AVISO") Then + SAVE_HANDLING = True + For Each a In HANDLING + If Not a.INSERT() Then SAVE_HANDLING = False + Next + End If + + ' Return b + End Function + + + Public Function SAVE_VORKOSTEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + SAVE_VORKOSTEN = False + Dim sqlstr = " DELETE FROM tblSendVorkosten WHERE sndvk_sendId=" & Me.tblSnd_SendungID + ' MsgBox(sqlstr) + If SQL.doSQL(sqlstr, "AVISO") Then + SAVE_VORKOSTEN = True + For Each a In VORKOSTEN + a.sndvk_sendId = Me.tblSnd_SendungID + If Not a.INSERT() Then SAVE_VORKOSTEN = False + Next + End If + + ' Return b + End Function + + + Public Shared Function SET_SpedbuchEntry(tblSnd_SendungID As Integer, tblSnd_SpeditionsbuchEingetragen As Boolean) As String + Try + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.doSQL(" UPDATE [tblSendungen] SET tblSnd_SpeditionsbuchEingetragen=" & If(tblSnd_SpeditionsbuchEingetragen, 1, 0) & " WHERE tblSnd_SendungID=" & tblSnd_SendungID & " ", "AVISO") + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function getNCTSAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = True, Optional Bestimmungszollstelle As Boolean = True) As String + Dim adresse = "" + adresse &= If(Me.tblSnd_NCTSVerzollungsadresse, "") & vbNewLine + adresse &= If(Me.NCTS_Verzollungsadresse_Strasse, "") & vbNewLine + adresse &= If(Me.NCTS_Verzollungsadresse_Land, "") & " " & If(Me.NCTS_Verzollungsadresse_PLZ, "") & " " & If(Me.NCTS_Verzollungsadresse_Ort, "") & vbNewLine + + If ansprechpartner Then adresse &= If(Me.NCTS_Verzollungsadresse_Ansprechpartner, "") & vbNewLine + + If Bestimmungszollstelle And If(Me.NCTS_Bestimmungszollstelle, "") <> "" Then + adresse &= SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & Me.NCTS_Bestimmungszollstelle & "' ", "ATLAS") + End If + + If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "
") + Return adresse.Trim + End Function + + + Public Function getEmpfaengerAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = False) As String + If tblSnd_EmpfaengerKdNr > 0 Then + Dim AD As New cAdressen(tblSnd_EmpfaengerKdNr) + Dim adresse = "" + adresse &= If(AD.Name_1, "") & If(AD.Name_2, "") & vbNewLine + If If(AD.Straße, "") <> "" Then adresse &= If(AD.Straße, "") & vbNewLine + adresse &= If(AD.LandKz, "") & " " & If(AD.PLZ, "").ToString.ToUpper.Replace("OHNE", "") & " " & If(AD.Ort, "") + + If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "
") + Return adresse.Trim + Else + Return tblSnd_Empfaenger + End If + + End Function + +End Class + +Public Class cSendungAbrechnung + Property sndabr_id As Integer = Nothing + Property sndabr_sendId As Integer = Nothing + Property sndabr_beteiligter As String = Nothing + Property sndabr_abrArt As String = Nothing + Property sndabr_wert As String = Nothing + Property sndabr_bezeichnung As String = Nothing + Property sndabr_anzahl As Integer = Nothing + Property sndabr_einzelPreis As Object = Nothing + Property sndabr_preis As Object = Nothing + + Dim SQL As New SQL + + Sub New(sndabr_sendId) + Me.sndabr_sendId = sndabr_sendId + End Sub + + Sub New(sndabr_sendId, sndabr_beteiligter, sndabr_abrArt, sndabr_wert) + Me.sndabr_sendId = sndabr_sendId + Me.sndabr_beteiligter = sndabr_beteiligter + Me.sndabr_abrArt = sndabr_abrArt + Me.sndabr_wert = sndabr_wert + End Sub + + Sub New(sndabr_sendId, sndabr_beteiligter, sndabr_abrArt, sndabr_wert, sndabr_bezeichnung, sndabr_anzahl, sndabr_einzelPreis, sndabr_preis) + Me.sndabr_sendId = sndabr_sendId + Me.sndabr_beteiligter = sndabr_beteiligter + Me.sndabr_abrArt = sndabr_abrArt + Me.sndabr_wert = sndabr_wert + Me.sndabr_bezeichnung = sndabr_bezeichnung + Me.sndabr_anzahl = sndabr_anzahl + Me.sndabr_einzelPreis = sndabr_einzelPreis + Me.sndabr_preis = sndabr_preis + 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("sndabr_id", sndabr_id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_sendId", sndabr_sendId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_beteiligter", sndabr_beteiligter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_abrArt", sndabr_abrArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_wert", sndabr_wert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_bezeichnung", sndabr_bezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_anzahl", sndabr_anzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_einzelPreis", sndabr_einzelPreis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_preis", sndabr_preis)) + Return list + End Function + + Public Function INSERT() As Boolean + 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.Text.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return SQL.doSQLVarList(" INSERT INTO [tblSendAbrechnung] (" & str & ") VALUES(" & values & ") ", "AVISO", , list) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + End Function + + + +End Class + + +Public Class cSendHandling + Property sndhdg_id As Integer = Nothing + Property sndhdg_sendId As Integer = Nothing + Property sndhdg_abrArt As String = Nothing + Property sndhdg_nr As String = Nothing + Property sndhdg_colli As Double = 0 + Property sndhdg_gewicht As Double = 0 + + + Dim SQL As New SQL + + Sub New(sndhdg_sendId) + Me.sndhdg_sendId = sndhdg_sendId + End Sub + + Sub New(sndhdg_sendId, sndabr_beteiligter, sndabr_abrArt, sndabr_wert, sndhdg_colli, sndhdg_gewicht) + Me.sndhdg_sendId = sndhdg_sendId + Me.sndhdg_abrArt = sndhdg_abrArt + Me.sndhdg_nr = sndhdg_nr + Me.sndhdg_colli = sndhdg_colli + Me.sndhdg_gewicht = sndhdg_gewicht + End Sub + + Sub New(sndhdg_sendId, sndhdg_abrArt, sndhdg_nr, sndhdg_colli, sndhdg_gewicht) + Me.sndhdg_sendId = sndhdg_sendId + Me.sndhdg_abrArt = sndhdg_abrArt + Me.sndhdg_nr = sndhdg_nr + Me.sndhdg_colli = sndhdg_colli + Me.sndhdg_gewicht = sndhdg_gewicht + 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("sndhdg_id", sndhdg_id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_sendId", sndhdg_sendId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_abrArt", sndhdg_abrArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_nr", sndhdg_nr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_colli", sndhdg_colli)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_gewicht", sndhdg_gewicht)) + Return list + End Function + + Public Function INSERT() As Boolean + 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.Text.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return SQL.doSQLVarList(" INSERT INTO [tblSendHandling] (" & str & ") VALUES(" & values & ") ", "AVISO", , list) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + End Function + + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb new file mode 100644 index 0000000..fa6d54b --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb @@ -0,0 +1,204 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cSession + + Property sess_Id As Integer + Property sess_system As String = "" + Property sess_progId As Object = Nothing + Property sess_progName As String = "" + Property sess_progVersion As String = "" + + Property sess_maName As String = "" + Property sess_maId As Integer + + Property sess_firma As String = "" + Property sess_niederlassung As String = "" + Property sess_ipAddress As String = "" + Property sess_PCName As String = "" + Property sess_PCUserName As String = "" + + + Property sess_login As Object = Nothing = Now + Property sess_logout As Object = Nothing + Property sess_lastRm As Object = Nothing + + Dim SQL As New SQL + + Sub New() + + End Sub + Sub New(sess_Id) + Me.sess_Id = sess_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("sess_Id", sess_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_system", sess_system)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_progId", sess_progId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_progName", sess_progName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_progVersion", sess_progVersion)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_firma", sess_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_niederlassung", sess_niederlassung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_ipAddress", sess_ipAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_PCName", sess_PCName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_PCUserName", sess_PCUserName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_maName", sess_maName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_maId", sess_maId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_login", sess_login)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_logout", sess_logout)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm)) + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSessions WITH(updlock,serializable) WHERE sess_Id=@sess_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim id = SQL.doSQLVarListID(sess_Id, sqlstr, "ADMIN", , list) + Me.sess_Id = id + Return id > 0 + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblSessions WHERE sess_Id=@sess_Id ", conn) + cmd.Parameters.AddWithValue("@sess_Id", sess_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function UPDATE_TIME() As String + If sess_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_Id", sess_Id, , True)) + sess_lastRm = Now + 'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm)) + + Return SQL.doSQLVarList(" UPDATE [tblSessions] SET sess_lastRm=GETDATE() WHERE sess_Id=@sess_Id ", "ADMIN", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + + Public Shared Function GET_IP_FROM_MAID(sess_maId) As String + Dim SQL As New SQL + Return SQL.getValueTxtBySql(" SELECT TOP 1 isnull(sess_ipaddress,'') as sess_ipaddress FROM [tblSessions] where sess_lastRm > DATEADD(SECOND,-70, GETDATE()) AND sess_maId=" & sess_maId, "ADMIN") + End Function + + Public Function LOGIN() As String + Me.sess_system = (If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "T", "E")) + Me.sess_login = Now + Me.sess_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id + Me.sess_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + Me.sess_firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Me.sess_niederlassung = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + Try + Me.sess_ipAddress = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0).ToString() + Me.sess_PCName = System.Environment.MachineName + Me.sess_PCUserName = My.User.Name.ToString + Catch ex As Exception + End Try + Me.sess_lastRm = Now + Me.sess_progId = Nothing + Me.sess_progName = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME + Me.sess_progVersion = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION + + Return SAVE() + End Function + + Public Function LOGOUT() As String + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_Id", sess_Id, , True)) + sess_lastRm = Now + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm)) + sess_logout = Now + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_logout", sess_logout)) + + Return SQL.doSQLVarList(" UPDATE [tblSessions] SET sess_lastRm=GETDATE(),sess_logout=GETDATE() WHERE sess_Id=@sess_Id ", "ADMIN", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + 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 [tblSessions] SET " & str & " WHERE sess_Id=@sess_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblSessions (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb new file mode 100644 index 0000000..46dbd85 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb @@ -0,0 +1,876 @@ +Imports System.Data.SqlClient +Imports System.Reflection + + +Public Class cSpeditionsbuchList + Property FilialenNr As Integer = -1 + Property AbfertigungsNr As Integer = -1 + + Property min As Integer = -1 + Property max As Integer = -1 + + + ' Property OffertenNr As Object = Nothing + Public LIST As New List(Of cSpeditionsbuch) + Dim SQL As New SQL + 'Dim listTodelete As New List(Of cOfferte) + + Sub New(FilialenNr, AbfertigungsNr) + Me.FilialenNr = FilialenNr + Me.AbfertigungsNr = AbfertigungsNr + + LOAD_LIST(Me.FilialenNr, Me.AbfertigungsNr) + End Sub + Public Sub CLEAR() + LIST.Clear() + End Sub + + Public Sub LOAD_LIST() + LOAD_LIST(FilialenNr, AbfertigungsNr) + End Sub + + Public Sub LOAD_LIST(FilialenNr, AbfertigungsNr) + Try + LIST.Clear() + min = 999999 + max = -1 + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Speditionsbuch WHERE FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr ", conn) + cmd.Parameters.AddWithValue("@FilialenNr", FilialenNr) + cmd.Parameters.AddWithValue("@AbfertigungsNr", AbfertigungsNr) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cSpeditionsbuch + l.LOAD(dr.Item("FilialenNr"), dr.Item("AbfertigungsNr"), dr.Item("UnterNr")) + LIST.Add(l) + If l.UnterNr < min Then min = l.UnterNr + If l.UnterNr > max Then max = l.UnterNr + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + 'Function SAVE() + ' If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then + ' For Each l In LIST + ' If Not l.INSERT() Then Return False + ' Next + ' Return True + ' Else + ' Return False + ' End If + 'End Function +End Class + + +Public Class cSpeditionsbuch + Property FilialenNr As Integer = -1 + Property AbfertigungsNr As Integer = -1 + Property UnterNr As Integer = -1 + Property Abfertigungsdatum As Object = CDate(Now.ToShortDateString) + Property Bar As Boolean = False + Property Fakturiert As Boolean = False + Property BelegNr As String = "" + Property ErfassungsNr As String = "" + Property LKW_Kennzeichen As String = "" + ' Property AvisiererKundenNr As Object = Nothing + ' Property Avisierer As String = "" + ' Property AbsenderKundenNr As Object = Nothing + 'Property Absender As String = "" + 'Property AbsenderOffertenNr As Object = Nothing + 'Property EmpfängerKundenNr As Object = Nothing + 'Property Empfänger As String = "" + 'Property EmpfängerOffertenNr As Object = Nothing + 'Property VermittlerKundenNr As Object = Nothing + 'Property Vermittler As String = "" + 'Property VermittlerOffertenNr As Object = Nothing + 'Property FrachtführerKundenNr As Object = Nothing + 'Property Frachtführer As String = "" + + Property AvisiererKundenNr As Object = Nothing + Public Avisierer As String = "" + Property AbsenderKundenNr As Object = Nothing + Public Absender As String = "" + Property AbsenderOffertenNr As Object = Nothing + Property EmpfängerKundenNr As Object = Nothing + Public Empfänger As String = "" + Property EmpfängerOffertenNr As Object = Nothing + Property VermittlerKundenNr As Object = Nothing + Public Vermittler As String = "" + Property VermittlerOffertenNr As Object = Nothing + Property FrachtführerKundenNr As Object = Nothing + Public Frachtführer As String = "" + + + Property AnzahlZA As Integer = 0 + Property AnzahlZAFremd As Integer = 0 + Property AnzahlZnV As Integer = 0 + Property AnzahlZnVFremd As Integer = 0 + Property AnzahlT1 As Integer = 0 + Property AnzahlT2 As Integer = 0 + Property AnzahlAE As Integer = 0 + Property AnzahlCarnetTIR As Integer = 0 + Property AnzahlBarvorlagen As Integer = 0 + Property AnzahlSonstiges As Integer = 0 + Property AnzahlGrenzgebühren As Integer = 0 + Property AvisUhrzeit As String = "" + Property Vermerk As String = "" + Property Bemerkungen As String = "" + Property Währungsschlüssel As Object = Nothing 'int=-1 + Property Rechnungsbetrag As Object = Nothing 'dbl=0 + Property Umrechnungskurs As Object = CDbl(1) 'dbl=1 + Property Packstücke As String = "" + Property Rohmasse As Object = Nothing 'int=0 + Property Zahlungsaufschub As String = "" + Property Löschen As Object = Nothing + Property Abfertigungsart As Object = Nothing + Property Abfertigungsanzahl As Integer = 0 + Property AbfertigungsanzahlPos As Object = Nothing + Property Barzahlungsbetrag As Double = 0 + ' Property Sachbearbeiter As String = "" + Public Sachbearbeiter As String = "" + Property Personalnummer As Object = Nothing 'int=-1 + Property PersonalnummerQS As Object = Nothing 'int=-1 + Property AtlasBezNrEZA As String = "" + Property AtlasBezNrNCTS As String = "" + Property Versendungsland As String = "" + Property SB_CMR As Boolean = False + Property SB_CMRDatum As Object = Nothing + Property SB_CMRNr As Object = Nothing + Property veoerz_basbtg As Double = 0 + Property Zucker_MRN_Nr As Object = Nothing + Property Zucker_MRN_Datum As Object = Nothing + Property Zucker_Aufschub As Object = Nothing + Property Zollsystem As String = Nothing + Property Bestimmungszollstelle As String = "" + Property Bürgschaft As String = "" + Property Sicherheitsbetrag As Double = 0 + Property SgutKompl As Object = Nothing + Property Bestimmungsland As String = "" + Property EuFiskalEmpfänger As String = "" + Property QKN As String = "" + Property EndempfängerKundenNr As Object = Nothing + ' Property Endempfänger As String = "" + Public Endempfänger As String = "" + + Property AvisoID As Object = Nothing + Property SendungID As Object = Nothing + Property Grenzstelle As Object = Nothing + + + Property KdAuftragsNr As Object = Nothing + Property KdAuftragsNrAvisierer As Object = Nothing + Property KdAuftragsNrEmpfaenger As Object = Nothing + Property KdAuftragsNrFrachtfuehrer As Object = Nothing + Property SB_Zeitstempel As Object = Now + + Property NCTS_Verzollungsadresse As Object = Nothing + Property NCTS_VerzollungsadresseKdNr As Object = Nothing + Property AuftraggeberBetragKassiert As Object = Nothing + + Property Lieferantenrechnung As Object = Nothing + Property DokumentId_Steuerbeleg As Object = Nothing + Property DokumentId_Mitteilung As Object = Nothing + Property DokumentId_VBD As Object = Nothing + Property DokumentId_ABD As Object = Nothing + Property DokumentId_AVM As Object = Nothing + Property FilialenNrHandling As Object = Nothing + Property HandlingZuKassieren As Double = 0 + + Property FilialenNrAbklaerung As Object = Nothing + Property PersonalnummerAbklTR As Object = Nothing + Property UK_EIDR_ausstehend As Boolean = False + + + Property UNTERPOS As New List(Of cSpeditionsbuchUnterPos) + Property VORKOSTEN As New List(Of cVorkosten) + Property ENDEMPFAENGER As New List(Of cEndEmpfaener) + + Dim SQL As New SQL + + Public Sub New() + End Sub + + Property hasEntry As Boolean = False + + Public Sub New(FilialenNr As Integer, AbfertigungsNr As Integer, UnterNr As Integer) + Me.FilialenNr = FilialenNr + Me.AbfertigungsNr = AbfertigungsNr + Me.UnterNr = UnterNr + LOAD(FilialenNr, AbfertigungsNr, UnterNr) + End Sub + + Public Sub New(FilialenNr As Integer, AbfertigungsNr As Integer) + Me.FilialenNr = FilialenNr + Me.AbfertigungsNr = AbfertigungsNr + Me.UnterNr = NewUNTER_NR() + LOAD(FilialenNr, AbfertigungsNr, UnterNr) + End Sub + + + Function NewUNTER_NR() As Integer + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr)) + UnterNr = SQL.getValueTxtBySqlVarList("SELECT isnull(MAX(UnterNr)+1,0) FROM Speditionsbuch WHERE [FilialenNr]=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr", "FMZOLL", list) + Return UnterNr + End Function + + + + Public Shared Function existsSpedBuch(FilialenNr As Integer, AbfertigungsNr As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + If FilialenNr <= 0 Then Return False + If AbfertigungsNr <= 0 Then Return False + Dim SQL As New SQL + Return (CInt(SQL.getValueTxtBySql(" SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")) > 0) + End Function + + + Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + ' MsgBox(getUpdateCmd()) + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [Speditionsbuch] WITH(updlock,serializable) WHERE [FilialenNr]=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + If SQL.doSQLVarList(sqlstr, "FMZOLL", , list) Then + If SAVE_VORKOSTEN() And SAVE_ENDEMPFAENGER() Then + Return True + End If + End If + Return False + End Function + Public Sub LOAD() + LOAD(FilialenNr, AbfertigungsNr, UnterNr) + End Sub + Public Sub LOAD(FilialenNr As Integer, AbfertigungsNr As Integer, UnterNr As Integer) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Speditionsbuch WHERE [FilialenNr]=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr ", conn) + cmd.Parameters.AddWithValue("@FilialenNr", FilialenNr) + cmd.Parameters.AddWithValue("@AbfertigungsNr", AbfertigungsNr) + cmd.Parameters.AddWithValue("@UnterNr", UnterNr) + + Dim dr = cmd.ExecuteReader() + If dr.Read Then + Me.FilialenNr = SQL.checkNullInteger(dr.Item("FilialenNr")) + Me.AbfertigungsNr = SQL.checkNullInteger(dr.Item("AbfertigungsNr")) + Me.UnterNr = SQL.checkNullInteger(dr.Item("UnterNr")) + Me.Abfertigungsdatum = SQL.checkNullDateNothing(dr.Item("Abfertigungsdatum")) + Me.Bar = SQL.checkNullBool(dr.Item("Bar")) + Me.Fakturiert = SQL.checkNullBool(dr.Item("Fakturiert")) + Me.BelegNr = SQL.checkNullStr(dr.Item("BelegNr")) + Me.ErfassungsNr = SQL.checkNullStr(dr.Item("ErfassungsNr")) + Me.LKW_Kennzeichen = SQL.checkNullStr(dr.Item("LKW Kennzeichen")) + Me.AvisiererKundenNr = SQL.checkNullReturnValue(dr.Item("AvisiererKundenNr"), Nothing) + Me.Avisierer = SQL.checkNullStr(dr.Item("Avisierer")) + Me.AbsenderKundenNr = SQL.checkNullReturnValue(dr.Item("AbsenderKundenNr"), Nothing) + Me.Absender = SQL.checkNullStr(dr.Item("Absender")) + Me.AbsenderOffertenNr = SQL.checkNullInteger(dr.Item("AbsenderOffertenNr")) + Me.EmpfängerKundenNr = SQL.checkNullReturnValue(dr.Item("EmpfängerKundenNr"), Nothing) + Me.Empfänger = SQL.checkNullStr(dr.Item("Empfänger")) + Me.EmpfängerOffertenNr = SQL.checkNullInteger(dr.Item("EmpfängerOffertenNr")) + Me.VermittlerKundenNr = SQL.checkNullReturnValue(dr.Item("VermittlerKundenNr"), Nothing) + Me.Vermittler = SQL.checkNullStr(dr.Item("Vermittler")) + Me.VermittlerOffertenNr = SQL.checkNullInteger(dr.Item("VermittlerOffertenNr")) + Me.FrachtführerKundenNr = SQL.checkNullReturnValue(dr.Item("FrachtführerKundenNr"), Nothing) + Me.Frachtführer = SQL.checkNullStr(dr.Item("Frachtführer")) + Me.AnzahlZA = SQL.checkNullIntegerZero(dr.Item("AnzahlZA")) + Me.AnzahlZAFremd = SQL.checkNullIntegerZero(dr.Item("AnzahlZAFremd")) + Me.AnzahlZnV = SQL.checkNullIntegerZero(dr.Item("AnzahlZnV")) + Me.AnzahlZnVFremd = SQL.checkNullIntegerZero(dr.Item("AnzahlZnVFremd")) + Me.AnzahlT1 = SQL.checkNullIntegerZero(dr.Item("AnzahlT1")) + Me.AnzahlT2 = SQL.checkNullIntegerZero(dr.Item("AnzahlT2")) + Me.AnzahlAE = SQL.checkNullStr(dr.Item("AnzahlAE")) + Me.AnzahlCarnetTIR = SQL.checkNullIntegerZero(dr.Item("AnzahlCarnetTIR")) + Me.AnzahlBarvorlagen = SQL.checkNullIntegerZero(dr.Item("AnzahlBarvorlagen")) + Me.AnzahlSonstiges = SQL.checkNullIntegerZero(dr.Item("AnzahlSonstiges")) + Me.AnzahlGrenzgebühren = SQL.checkNullIntegerZero(dr.Item("AnzahlGrenzgebühren")) + Me.AvisUhrzeit = SQL.checkNullStr(dr.Item("AvisUhrzeit")) + Me.Vermerk = SQL.checkNullStr(dr.Item("Vermerk")) + Me.Bemerkungen = SQL.checkNullStr(dr.Item("Bemerkungen")) + Me.Währungsschlüssel = SQL.checkNullReturnValue(dr.Item("Währungsschlüssel"), 900) + Me.Rechnungsbetrag = SQL.checkNullReturnValue(dr.Item("Rechnungsbetrag"), Nothing) + Me.Umrechnungskurs = SQL.checkNullReturnValue(dr.Item("Umrechnungskurs"), 1) + Me.Packstücke = SQL.checkNullStr(dr.Item("Packstücke")) + Me.Rohmasse = SQL.checkNullReturnValue(dr.Item("Rohmasse"), Nothing) + Me.Zahlungsaufschub = SQL.checkNullStr(dr.Item("Zahlungsaufschub")) + Me.Löschen = SQL.checkNullDateNothing(dr.Item("Löschen")) + Me.Abfertigungsart = SQL.checkNullInteger(dr.Item("Abfertigungsart")) + Me.Abfertigungsanzahl = SQL.checkNullIntegerZero(dr.Item("Abfertigungsanzahl")) + Me.AbfertigungsanzahlPos = SQL.checkNullInteger(dr.Item("AbfertigungsanzahlPos")) + Me.Barzahlungsbetrag = SQL.checkNulDbl(dr.Item("Barzahlungsbetrag")) + Me.Sachbearbeiter = SQL.checkNullStr(dr.Item("Sachbearbeiter")) + Me.Personalnummer = SQL.checkNullReturnValue(dr.Item("Personalnummer"), Nothing) + Me.PersonalnummerQS = SQL.checkNullReturnValue(dr.Item("PersonalnummerQS"), Nothing) + Me.AtlasBezNrEZA = SQL.checkNullStr(dr.Item("AtlasBezNrEZA")) + Me.AtlasBezNrNCTS = SQL.checkNullStr(dr.Item("AtlasBezNrNCTS")) + Me.Versendungsland = SQL.checkNullStr(dr.Item("Versendungsland")) + Me.SB_CMR = SQL.checkNullBool(dr.Item("SB_CMR")) + Me.SB_CMRDatum = SQL.checkNullDateNothing(dr.Item("SB_CMRDatum")) + Me.veoerz_basbtg = SQL.checkNulDbl(dr.Item("veoerz_basbtg")) + Me.Zucker_MRN_Nr = SQL.checkNullReturnValue(dr.Item("Zucker_MRN_Nr"), Nothing) + Me.Zucker_MRN_Datum = SQL.checkNullDateNothing(dr.Item("Zucker_MRN_Datum")) + Me.Zucker_Aufschub = SQL.checkNullReturnValue(dr.Item("Zucker_Aufschub"), Nothing) + Me.Zollsystem = SQL.checkNullStr(dr.Item("Zollsystem")) + Me.Bestimmungszollstelle = SQL.checkNullStr(dr.Item("Bestimmungszollstelle")) + Me.Bürgschaft = SQL.checkNullStr(dr.Item("Bürgschaft")) + Me.Sicherheitsbetrag = SQL.checkNulDbl(dr.Item("Sicherheitsbetrag")) + Me.SgutKompl = SQL.checkNullStr(dr.Item("SgutKompl")) + Me.Bestimmungsland = SQL.checkNullStr(dr.Item("Bestimmungsland")) + Me.EuFiskalEmpfänger = SQL.checkNullStr(dr.Item("EuFiskalEmpfänger")) + Me.QKN = SQL.checkNullStr(dr.Item("QKN")) + Me.EndempfängerKundenNr = SQL.checkNullReturnValue(dr.Item("EndempfängerKundenNr"), Nothing) + Me.Endempfänger = SQL.checkNullStr(dr.Item("Endempfänger")) + Me.AvisoID = SQL.checkNullReturnValue(dr.Item("AvisoID"), Nothing) + Me.SendungID = SQL.checkNullReturnValue(dr.Item("SendungID"), Nothing) + Me.KdAuftragsNr = SQL.checkNullReturnValue(dr.Item("KdAuftragsNr"), Nothing) + Me.KdAuftragsNrAvisierer = SQL.checkNullReturnValue(dr.Item("KdAuftragsNrAvisierer"), Nothing) + Me.KdAuftragsNrEmpfaenger = SQL.checkNullReturnValue(dr.Item("KdAuftragsNrEmpfaenger"), Nothing) + Me.KdAuftragsNrFrachtfuehrer = SQL.checkNullReturnValue(dr.Item("KdAuftragsNrFrachtfuehrer"), Nothing) + + Me.NCTS_Verzollungsadresse = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse"), "") + Me.NCTS_VerzollungsadresseKdNr = SQL.checkNullReturnValue(dr.Item("NCTS_VerzollungsadresseKdNr"), Nothing) + Me.Grenzstelle = SQL.checkNullReturnValue(dr.Item("Grenzstelle"), Nothing) + Me.AuftraggeberBetragKassiert = SQL.checkNullReturnValue(dr.Item("AuftraggeberBetragKassiert"), Nothing) + Me.Lieferantenrechnung = SQL.checkNullReturnValue(dr.Item("Lieferantenrechnung"), Nothing) + Me.DokumentId_Steuerbeleg = SQL.checkNullReturnValue(dr.Item("DokumentId_Steuerbeleg"), Nothing) + Me.DokumentId_Mitteilung = SQL.checkNullReturnValue(dr.Item("DokumentId_Mitteilung"), Nothing) + Me.DokumentId_VBD = SQL.checkNullReturnValue(dr.Item("DokumentId_VBD"), Nothing) + Me.DokumentId_ABD = SQL.checkNullReturnValue(dr.Item("DokumentId_ABD"), Nothing) + Me.DokumentId_AVM = SQL.checkNullReturnValue(dr.Item("DokumentId_avm"), Nothing) + Me.FilialenNrHandling = SQL.checkNullReturnValue(dr.Item("FilialenNrHandling"), Nothing) + Me.FilialenNrAbklaerung = SQL.checkNullReturnValue(dr.Item("FilialenNrAbklaerung"), Nothing) + Me.HandlingZuKassieren = SQL.checkNulDbl(dr.Item("HandlingZuKassieren")) + Me.PersonalnummerAbklTR = SQL.checkNullReturnValue(dr.Item("PersonalnummerAbklTR"), Nothing) + Me.UK_EIDR_ausstehend = SQL.checkNullBool(dr.Item("UK_EIDR_ausstehend")) + + Me.SB_CMRNr = SQL.checkNullReturnValue(dr.Item("SB_CMRNr"), Nothing) + + LOAD_VORKOSTEN() + LOAD_ENDEMPFAENGER() + + Me.SB_Zeitstempel = SQL.checkNullDateNothing(dr.Item("SB_Zeitstempel")) + + hasEntry = True + End If + dr.Close() + End Using + End Using + 'Return Nothing + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + ' Return Nothing + End Sub + + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cSpeditionsbuch 'PROBLEM! + Try + Dim SPEDBUCH As New cSpeditionsbuch + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM Speditionsbuch WHERE ([AtlasBezNrEZA]=@bezugsNr OR [AtlasBezNrNCTS]=@bezugsNr )", conn) + cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In SPEDBUCH.getParameterList() + Dim propInfo As PropertyInfo = SPEDBUCH.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(SPEDBUCH, Nothing) + Else + propInfo.SetValue(SPEDBUCH, dr.Item(l.Text)) + End If + + Next + If loadALL Then + SPEDBUCH.LOAD_VORKOSTEN() + SPEDBUCH.LOAD_ENDEMPFAENGER() + End If + + dr.Close() + SPEDBUCH.hasEntry = True + Return SPEDBUCH + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + + 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("FilialenNr", FilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bar", Bar)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fakturiert", Fakturiert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErfassungsNr", ErfassungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW Kennzeichen", LKW_Kennzeichen, "LKWKennzeichen")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisiererKundenNr", AvisiererKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avisierer", Avisierer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderKundenNr", AbsenderKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender", Absender)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOffertenNr", AbsenderOffertenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerKundenNr", EmpfängerKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfänger", Empfänger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOffertenNr", EmpfängerOffertenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerKundenNr", VermittlerKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermittler", Vermittler)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOffertenNr", VermittlerOffertenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FrachtführerKundenNr", FrachtführerKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Frachtführer", Frachtführer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZA", AnzahlZA)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZAFremd", AnzahlZAFremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZnV", AnzahlZnV)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZnVFremd", AnzahlZnVFremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlT1", AnzahlT1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlT2", AnzahlT2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlAE", AnzahlAE)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlCarnetTIR", AnzahlCarnetTIR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlBarvorlagen", AnzahlBarvorlagen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlSonstiges", AnzahlSonstiges)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlGrenzgebühren", AnzahlGrenzgebühren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisUhrzeit", AvisUhrzeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkungen", Bemerkungen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währungsschlüssel", Währungsschlüssel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umrechnungskurs", Umrechnungskurs)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke", Packstücke)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasse", Rohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsaufschub", Zahlungsaufschub)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Löschen", Löschen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsart", Abfertigungsart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsanzahl", Abfertigungsanzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsanzahlPos", AbfertigungsanzahlPos)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Barzahlungsbetrag", Barzahlungsbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Personalnummer", Personalnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", PersonalnummerQS)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrEZA", AtlasBezNrEZA)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrNCTS", AtlasBezNrNCTS)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versendungsland", Versendungsland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMR", SB_CMR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRDatum", SB_CMRDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("veoerz_basbtg", veoerz_basbtg)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Nr", Zucker_MRN_Nr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Datum", Zucker_MRN_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_Aufschub", Zucker_Aufschub)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollsystem", Zollsystem)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungszollstelle", Bestimmungszollstelle)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bürgschaft", Bürgschaft)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sicherheitsbetrag", Sicherheitsbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SgutKompl", SgutKompl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungsland", Bestimmungsland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EuFiskalEmpfänger", EuFiskalEmpfänger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("QKN", QKN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EndempfängerKundenNr", EndempfängerKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Endempfänger", Endempfänger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoID", AvisoID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungID", SendungID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrAvisierer", KdAuftragsNrAvisierer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrEmpfaenger", KdAuftragsNrEmpfaenger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrFrachtfuehrer", KdAuftragsNrFrachtfuehrer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_Zeitstempel", SB_Zeitstempel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse", NCTS_Verzollungsadresse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_VerzollungsadresseKdNr", NCTS_VerzollungsadresseKdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenzstelle", Grenzstelle)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AuftraggeberBetragKassiert", AuftraggeberBetragKassiert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferantenrechnung", Lieferantenrechnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Steuerbeleg", DokumentId_Steuerbeleg)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Mitteilung", DokumentId_Mitteilung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_VBD", DokumentId_VBD)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_ABD", DokumentId_ABD)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_AVM", DokumentId_AVM)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrHandling", FilialenNrHandling)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrAbklaerung", FilialenNrAbklaerung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HandlingZuKassieren", HandlingZuKassieren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbklTR", PersonalnummerAbklTR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UK_EIDR_ausstehend", UK_EIDR_ausstehend)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRNr", SB_CMRNr)) + + + Return list + 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 + str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & "," + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [Speditionsbuch] SET " & str & " WHERE [FilialenNr]=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 + str &= "[" & i.Text & "]," + values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & "," + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO [Speditionsbuch] (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Sub LOAD_UNTERPOS() + Try + Dim conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + + 'Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchUnterPos INNER JOIN [Abfertigungsarten] ON sbup_Abfertigungsart=Abfertigungsart WHERE sbup_Filiale=@sbup_Filiale AND sbup_AbfertigungsNr=@sbup_AbfertigungsNr AND sbup_UnterNr=@sbup_UnterNr ", conn) + Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchUnterPos WHERE sbup_Filiale=@sbup_Filiale AND sbup_AbfertigungsNr=@sbup_AbfertigungsNr AND sbup_UnterNr=@sbup_UnterNr ", conn) + cmd2.Parameters.AddWithValue("@sbup_Filiale", Me.FilialenNr) + cmd2.Parameters.AddWithValue("@sbup_AbfertigungsNr", Me.AbfertigungsNr) + cmd2.Parameters.AddWithValue("@sbup_UnterNr", Me.UnterNr) + Dim dr2 = cmd2.ExecuteReader() + Me.UNTERPOS.Clear() + While dr2.Read + Dim a As New cSpeditionsbuchUnterPos() + + a.sbup_id = SQL.checkNullReturnValue(dr2.Item("sbup_id"), -1) + a.sbup_Filiale = SQL.checkNullReturnValue(dr2.Item("sbup_Filiale"), -1) + a.sbup_AbfertigungsNr = SQL.checkNullReturnValue(dr2.Item("sbup_AbfertigungsNr"), -1) + a.sbup_UnterNr = SQL.checkNullReturnValue(dr2.Item("sbup_UnterNr"), -1) + a.sbup_UnterPosArt = SQL.checkNullReturnValue(dr2.Item("sbup_UnterPosArt"), -1) + a.sbup_Anzahl = SQL.checkNullReturnValue(dr2.Item("sbup_Anzahl"), -1) + ' a.Abfertigungsbezeichnung = SQL.checkNullReturnValue(dr2.Item("Abfertigungsbezeichnung"), "-") + + Me.UNTERPOS.Add(a) + End While + dr2.Close() + End Using + + conn.Close() + 'End Using + 'Return Nothing + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Sub LOAD_VORKOSTEN() + Try + Dim conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + + 'Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchUnterPos INNER JOIN [Abfertigungsarten] ON sbup_Abfertigungsart=Abfertigungsart WHERE sbup_Filiale=@sbup_Filiale AND sbup_AbfertigungsNr=@sbup_AbfertigungsNr AND sbup_UnterNr=@sbup_UnterNr ", conn) + Using cmd2 As New SqlCommand("SELECT * FROM Vorkosten WHERE FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr ", conn) + cmd2.Parameters.AddWithValue("@FilialenNr", Me.FilialenNr) + cmd2.Parameters.AddWithValue("@AbfertigungsNr", Me.AbfertigungsNr) + cmd2.Parameters.AddWithValue("@UnterNr", Me.UnterNr) + Dim dr2 = cmd2.ExecuteReader() + Me.VORKOSTEN.Clear() + While dr2.Read + Dim a As New cVorkosten() + + a.FilialenNr = SQL.checkNullReturnValue(dr2.Item("FilialenNr"), -1) + a.AbfertigungsNr = SQL.checkNullReturnValue(dr2.Item("AbfertigungsNr"), -1) + a.UnterNr = SQL.checkNullReturnValue(dr2.Item("UnterNr"), -1) + a.LeistungsNr = SQL.checkNullReturnValue(dr2.Item("LeistungsNr"), -1) + a.LeistungsBez = SQL.checkNullReturnValue(dr2.Item("LeistungsBez"), -1) + a.Preis = SQL.checkNullReturnValue(dr2.Item("Preis"), 0) + ' a.Abfertigungsbezeichnung = SQL.checkNullReturnValue(dr2.Item("Abfertigungsbezeichnung"), "-") + + Me.VORKOSTEN.Add(a) + End While + dr2.Close() + End Using + + conn.Close() + 'End Using + 'Return Nothing + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub LOAD_ENDEMPFAENGER() + Try + Dim conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + + 'Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchUnterPos INNER JOIN [Abfertigungsarten] ON sbup_Abfertigungsart=Abfertigungsart WHERE sbup_Filiale=@sbup_Filiale AND sbup_AbfertigungsNr=@sbup_AbfertigungsNr AND sbup_UnterNr=@sbup_UnterNr ", conn) + Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchEndEmpfaenger WHERE FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr ", conn) + cmd2.Parameters.AddWithValue("@FilialenNr", Me.FilialenNr) + cmd2.Parameters.AddWithValue("@AbfertigungsNr", Me.AbfertigungsNr) + cmd2.Parameters.AddWithValue("@UnterNr", Me.UnterNr) + Dim dr2 = cmd2.ExecuteReader() + Me.ENDEMPFAENGER.Clear() + While dr2.Read + Dim a As New cEndEmpfaener() + + a.FilialenNr = SQL.checkNullReturnValue(dr2.Item("FilialenNr"), -1) + a.AbfertigungsNr = SQL.checkNullReturnValue(dr2.Item("AbfertigungsNr"), -1) + a.UnterNr = SQL.checkNullReturnValue(dr2.Item("UnterNr"), -1) + a.EndEmpfaengerKdNr = SQL.checkNullReturnValue(dr2.Item("EndEmpfaengerKdNr"), -1) + a.EndEmpfaenger = SQL.checkNullReturnValue(dr2.Item("EndEmpfaenger"), "") + a.UstIdKz = SQL.checkNullReturnValue(dr2.Item("UstIdKz"), Nothing) + a.UstIdNr = SQL.checkNullReturnValue(dr2.Item("UstIdNr"), Nothing) + a.Rechnungsbetrag = SQL.checkNullReturnValue(dr2.Item("Rechnungsbetrag"), Nothing) + a.RechnungsNr = SQL.checkNullReturnValue(dr2.Item("RechnungsNr"), Nothing) + ' a.Abfertigungsbezeichnung = SQL.checkNullReturnValue(dr2.Item("Abfertigungsbezeichnung"), "-") + + Me.ENDEMPFAENGER.Add(a) + End While + dr2.Close() + End Using + + conn.Close() + 'End Using + 'Return Nothing + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Function SAVE_UNTERPOS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + SAVE_UNTERPOS = False + Dim sqlstr = " DELETE FROM tblSpeditionsbuchUnterPos WHERE sbup_Filiale=" & Me.FilialenNr & " AND sbup_AbfertigungsNr=" & Me.AbfertigungsNr & " AND sbup_UnterNr=" & Me.UnterNr & " " + If SQL.doSQL(sqlstr, "FMZOLL") Then + SAVE_UNTERPOS = True + For Each a In UNTERPOS + If Not a.INSERT() Then SAVE_UNTERPOS = False + Next + End If + + ' Return b + End Function + Public Function SAVE_VORKOSTEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + SAVE_VORKOSTEN = False + Dim sqlstr = " DELETE FROM Vorkosten WHERE FilialenNr=" & Me.FilialenNr & " AND AbfertigungsNr=" & Me.AbfertigungsNr & " AND UnterNr=" & Me.UnterNr & " " + If SQL.doSQL(sqlstr, "FMZOLL") Then + SAVE_VORKOSTEN = True + For Each a In VORKOSTEN + If Not a.INSERT() Then SAVE_VORKOSTEN = False + Next + End If + + ' Return b + End Function + Public Function SAVE_ENDEMPFAENGER() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + SAVE_ENDEMPFAENGER = False + Dim sqlstr = " DELETE FROM tblSpeditionsbuchEndEmpfaenger WHERE FilialenNr=" & Me.FilialenNr & " AND AbfertigungsNr=" & Me.AbfertigungsNr & " AND UnterNr=" & Me.UnterNr & " " + If SQL.doSQL(sqlstr, "FMZOLL") Then + SAVE_ENDEMPFAENGER = True + For Each a In ENDEMPFAENGER + If Not a.INSERT() Then SAVE_ENDEMPFAENGER = False + Next + End If + + ' Return b + End Function +End Class + + +Public Class cSpeditionsbuchUnterPos + Property sbup_id As Integer = Nothing + Property sbup_Filiale As Integer = Nothing + Property sbup_AbfertigungsNr As Integer = Nothing + Property sbup_UnterNr As Integer = Nothing + Property sbup_UnterPosArt As Integer = Nothing + Property sbup_Anzahl As Integer = Nothing + ' Property Abfertigungsbezeichnung As String = "-" + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(sbup_Filiale, sbup_AbfertigungsNr, sbup_UnterNr, sbup_UnterPosArt, sbup_Anzahl) + Me.sbup_Filiale = sbup_Filiale + Me.sbup_AbfertigungsNr = sbup_AbfertigungsNr + Me.sbup_UnterNr = sbup_UnterNr + Me.sbup_UnterPosArt = sbup_UnterPosArt + Me.sbup_Anzahl = sbup_Anzahl + 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("sbup_id", sbup_id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_Filiale", sbup_Filiale)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_AbfertigungsNr", sbup_AbfertigungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_UnterNr", sbup_UnterNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_UnterPosArt", sbup_UnterPosArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_Anzahl", sbup_Anzahl)) + Return list + End Function + + Public Function INSERT() As Boolean + 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.Text.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + + Return SQL.doSQLVarList(" INSERT INTO [tblSpeditionsbuchUnterPos] (" & str & ") VALUES(" & values & ") ", "FMZOLL", , list) + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + End Function + + + +End Class + + +Public Class cVorkosten + + Property FilialenNr As Integer + Property AbfertigungsNr As Integer + Property UnterNr As Integer + Property LeistungsNr As Integer + Property LeistungsBez As Object = Nothing + Property Preis As Double = 0 + + ' Property Abfertigungsbezeichnung As String = "-" + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(FilialenNr, AbfertigungsNr, UnterNr, LeistungsNr, LeistungsBez, Preis) + Me.FilialenNr = FilialenNr + Me.AbfertigungsNr = AbfertigungsNr + Me.UnterNr = UnterNr + Me.LeistungsNr = LeistungsNr + Me.LeistungsBez = LeistungsBez + Me.Preis = Preis + 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("FilialenNr", FilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preis", Preis)) + Return list + End Function + + Public Function INSERT() As Boolean + 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.Text.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + + Return SQL.doSQLVarList(" INSERT INTO [Vorkosten] (" & str & ") VALUES(" & values & ") ", "FMZOLL", , list) + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + End Function + +End Class + + +Public Class cEndEmpfaener + + Property FilialenNr As Integer + Property AbfertigungsNr As Integer + Property UnterNr As Integer + Property EndEmpfaengerKdNr As Integer + Property EndEmpfaenger As Object = Nothing + Property UstIdKz As Object = Nothing + Property UstIdNr As Object = Nothing + Property Rechnungsbetrag As Object = Nothing + Property RechnungsNr As Object = Nothing + + ' Property Abfertigungsbezeichnung As String = "-" + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(FilialenNr, AbfertigungsNr, UnterNr, EndEmpfaengerKdNr, EndEmpfaenger, UstIdKz, UstIdNr, Rechnungsbetrag, RechnungsNr) + Me.FilialenNr = FilialenNr + Me.AbfertigungsNr = AbfertigungsNr + Me.UnterNr = UnterNr + Me.EndEmpfaengerKdNr = EndEmpfaengerKdNr + Me.EndEmpfaenger = EndEmpfaenger + Me.UstIdKz = UstIdKz + Me.UstIdNr = UstIdNr + Me.Rechnungsbetrag = Rechnungsbetrag + Me.RechnungsNr = RechnungsNr + 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("FilialenNr", FilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EndEmpfaengerKdNr", EndEmpfaengerKdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EndEmpfaenger", EndEmpfaenger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstIdKz", UstIdKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstIdNr", UstIdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsNr", RechnungsNr)) + Return list + End Function + + Public Function INSERT() As Boolean + 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.Text.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + + Return SQL.doSQLVarList(" INSERT INTO [tblSpeditionsbuchEndEmpfaenger] (" & str & ") VALUES(" & values & ") ", "FMZOLL", , list) + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + End Function + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb new file mode 100644 index 0000000..f7cf797 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb @@ -0,0 +1,178 @@ + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cTextkonserve + Property txt_Id As Integer + Property txt_kategorie As String + Property txt_bezeichnung As String + Property txt_sprache As String + Property txt_text As String + Property txt_betreff As String + Property txt_FIRMA As String + Property txt_firmaSig As Integer = 1 + + + Public hasEntry As Boolean = False + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(txt_Id) + ' If txt_Id IsNot Nothing Then + Me.txt_Id = txt_Id + LOAD() + ' End If + End Sub + + Sub New(txt_kategorie, txt_bezeichnung, txt_sprache, txt_FIRMA) + ' If txt_Id IsNot Nothing Then + Me.txt_kategorie = txt_kategorie + Me.txt_bezeichnung = txt_bezeichnung + Me.txt_sprache = txt_sprache + Me.txt_FIRMA = txt_FIRMA + LOAD(txt_kategorie, txt_bezeichnung, txt_sprache, txt_FIRMA) + ' End If + End Sub + + + + Public 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("txt_Id", txt_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_kategorie", txt_kategorie)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_bezeichnung", txt_bezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sprache", txt_sprache)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_text", txt_text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_betreff", txt_betreff)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_FIRMA", txt_FIRMA)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_firmaSig", txt_firmaSig)) + + Return list + 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 tblTextkonserve WITH(updlock,serializable) WHERE txt_Id=@txt_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + txt_Id = SQL.doSQLVarListID(txt_Id, sqlstr, "FMZOLL", , list,, errHinweis) + Return txt_Id > 0 + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL + Using cmd As New SqlCommand("SELECT * FROM tblTextkonserve WHERE txt_Id=@txt_Id ", conn) + cmd.Parameters.AddWithValue("@txt_Id", txt_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + hasEntry = True + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Sub LOAD(txt_kategorie, txt_bezeichnung, txt_sprache, txt_FIRMA) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTextkonserve WHERE txt_kategorie=@txt_kategorie AND txt_bezeichnung=@txt_bezeichnung AND txt_sprache=@txt_sprache AND txt_FIRMA=@txt_FIRMA ", conn) + cmd.Parameters.AddWithValue("@txt_kategorie", txt_kategorie) + cmd.Parameters.AddWithValue("@txt_bezeichnung", txt_bezeichnung) + cmd.Parameters.AddWithValue("@txt_sprache", txt_sprache) + cmd.Parameters.AddWithValue("@txt_FIRMA", txt_FIRMA) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + hasEntry = True + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + 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 [tblTextkonserve] SET " & str & " WHERE txt_Id=@txt_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblTextkonserve (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblTextkonserve] WITH(updlock,serializable) WHERE txt_Id=" & Me.txt_Id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Shared Function DELETE(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblTextkonserve] WITH(updlock,serializable) WHERE txt_Id=" & id + Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "FMZOLL") + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb new file mode 100644 index 0000000..a5ad5fb --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb @@ -0,0 +1,166 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cTranslate_LIST + + Public list As New List(Of cTranslate) + Dim trs_progId + + Sub New(trs_progId) + Me.trs_progId = trs_progId + LOAD() + End Sub + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTranslate WHERE trs_progId=@trs_progId ", conn) + cmd.Parameters.AddWithValue("@trs_progId", trs_progId) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim T As New cTranslate + T.trs_id = dr("trs_id") + T.trs_progName = dr("trs_progName") + T.trs_object = dr("trs_object") + T.trs_control = dr("trs_control") + T.trs_subControl = dr("trs_subControl") + T.trs_sprache = dr("trs_sprache") + T.trs_text = dr("trs_text") + list.Add(T) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + +End Class +Public Class cTranslate + Property trs_id As Integer + Property trs_progId As String + Property trs_progName As String + Property trs_object As String + Property trs_control As String + Property trs_subControl As Object = Nothing + Property trs_sprache As String + Property trs_text As String + + + Public hasEntry = False + + Dim SQL As New SQL + Sub New() + + End Sub + Sub New(trs_id) + Me.trs_id = trs_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("trs_id", trs_id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_progId", trs_progId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_progName", trs_progName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_object", trs_object)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_control", trs_control)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_subControl", trs_subControl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_sprache", trs_sprache)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_text", trs_text)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTranslate WHERE trs_id=@trs_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTranslate WHERE trs_id=@trs_id ", conn) + cmd.Parameters.AddWithValue("@trs_id", trs_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [tblTranslate] SET " & str & " WHERE trs_id=@trs_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblTranslate (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + + End Function + + + + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb new file mode 100644 index 0000000..3c32dfe --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb @@ -0,0 +1,617 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cTrdInvoice + + Property Rechnungsdatum As Date + Property Rechnungsnummer As Integer + Property Speditionsbuch As Object = Nothing + Property FilialenNr As Object = Nothing + Property AbfertigungsNr As Object = Nothing + Property UnterNr As Object = Nothing + Property Abfertigungsdatum As Object = Nothing + Property BelegartenNr As Object = Nothing + Property KundenNrZentrale As Object = Nothing + Property RechnungsKundenNr As Object = Nothing + Property RechnungsLandKz As Object = Nothing + Property RechnungsUstIdKz As Object = Nothing + Property RechnungsUstIdNr As Object = Nothing + Property Lastschrift As Object = Nothing + Property Steuerschlüssel As Object = Nothing + Property Steuersatz As Object = Nothing '[Steuersatz %] + Property WährungLokal As Object = Nothing + Property SteuerpflichtigerBetragLokal As Object = Nothing + Property SteuerfreierBetragLokal As Object = Nothing + Property SteuerbetragLokal As Object = Nothing + Property RechnungsbetragLokal As Object = Nothing + Property WährungFremd As Object = Nothing + Property SteuerpflichtigerBetragFremd As Object = Nothing + Property SteuerfreierBetragFremd As Object = Nothing + Property SteuerbetragFremd As Object = Nothing + Property RechnungsbetragFremd As Object = Nothing + Property TrdinDateiname As Object = Nothing + Property Abgleich_op_debitor As Object = Nothing + Property Nettozahlungsziel As Object = Nothing + Property Firma_ID As Object = Nothing + Property UStVAn_ID As Object = Nothing + + Property hasEntry As Boolean = False + + + Dim SQL As New SQL + + Sub New() + + End Sub + + Sub New(Rechnungsdatum, Rechnungsnummer) + Me.Rechnungsnummer = Rechnungsnummer + Me.Rechnungsdatum = Rechnungsdatum + LOAD() + End Sub + + Public 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("Rechnungsdatum", Rechnungsdatum)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsnummer", Rechnungsnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Speditionsbuch", Speditionsbuch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegartenNr", BelegartenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNrZentrale", KundenNrZentrale)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsKundenNr", RechnungsKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsLandKz", RechnungsLandKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdKz", RechnungsUstIdKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdNr", RechnungsUstIdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift", Lastschrift)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerschlüssel", Steuerschlüssel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuersatz %", Steuersatz, "Steuersatz")) '[Steuersatz %] + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("WährungLokal", WährungLokal)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetragLokal", SteuerpflichtigerBetragLokal)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetragLokal", SteuerfreierBetragLokal)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerbetragLokal", SteuerbetragLokal)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsbetragLokal", RechnungsbetragLokal)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("WährungFremd", WährungFremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetragFremd", SteuerpflichtigerBetragFremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetragFremd", SteuerfreierBetragFremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerbetragFremd", SteuerbetragFremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsbetragFremd", RechnungsbetragFremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TrdinDateiname", TrdinDateiname)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abgleich_op_debitor", Abgleich_op_debitor)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nettozahlungsziel", Nettozahlungsziel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID)) + + + Return list + End Function + + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTrdinInvoice WITH(updlock,serializable) WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTrdinInvoice WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum ", conn) + cmd.Parameters.AddWithValue("@Rechnungsnummer", Rechnungsnummer) + cmd.Parameters.AddWithValue("@Rechnungsdatum", Rechnungsdatum) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + hasEntry = True + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblTrdinInvoice] SET " & str & " WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblTrdinInvoice (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblTrdinInvoice] WITH(updlock,serializable) WHERE Rechnungsnummer=" & Me.Rechnungsnummer & " and Rechnungsdatum='" & Me.Rechnungsdatum.ToShortDateString & "'" + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + +End Class + + + +Public Class cTrdProduct + + Property Rechnungsdatum As Date + Property Rechnungsnummer As Integer + + Property Leistungsnummer As Integer + Property Leistungsbezeichnung As String + Property Steuerpflichtig As Boolean + Property SteuerpflichtigerBetragLokal As Object = Nothing + Property SteuerfreierBetragLokal As Object = Nothing + Property SteuerpflichtigerBetragFremd As Object = Nothing + Property SteuerfreierBetragFremd As Object = Nothing + Property Belegdaten As Object = Nothing + Property Sachkonto As Object = Nothing + Property Buchungstext As Object = Nothing + + + Dim SQL As New SQL + + Sub New() + + End Sub + + + Public 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("Rechnungsdatum", Rechnungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsnummer", Rechnungsnummer)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leistungsnummer", Leistungsnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leistungsbezeichnung", Leistungsbezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerpflichtig", Steuerpflichtig)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetragLokal", SteuerpflichtigerBetragLokal)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetragLokal", SteuerfreierBetragLokal)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetragFremd", SteuerpflichtigerBetragFremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetragFremd", SteuerfreierBetragFremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegdaten", Belegdaten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachkonto", Sachkonto)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungstext", Buchungstext)) + + Return list + End Function + + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTrdinProduct WITH(updlock,serializable) WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum and Leistungsnummer=@Leistungsnummer and Leistungsbezeichnung=@Leistungsbezeichnung and Steuerpflichtig=@Steuerpflichtig) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + + 'Public Sub LOAD() + ' Try + ' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT * FROM tblTrdinProduct WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum ", conn) + ' cmd.Parameters.AddWithValue("@Rechnungsnummer", Rechnungsnummer) + ' cmd.Parameters.AddWithValue("@Rechnungsdatum", Rechnungsdatum) + ' Dim dr = cmd.ExecuteReader() + ' If dr.Read Then + ' For Each l In getParameterList() + ' Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + ' If dr.Item(l.Text) Is DBNull.Value Then + ' propInfo.SetValue(Me, Nothing) + ' Else + ' propInfo.SetValue(Me, dr.Item(l.Text)) + ' End If + + ' Next + + ' End If + ' dr.Close() + ' End Using + ' End Using + ' Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + ' End Try + 'End Sub + + + 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 [tblTrdinProduct] SET " & str & " WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum and Leistungsnummer=@Leistungsnummer and Leistungsbezeichnung=@Leistungsbezeichnung and Steuerpflichtig=@Steuerpflichtig ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblTrdinProduct (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + +End Class + + + +Class TrdInvoice_FUNCTIONS + + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Shared Function TrdinSchreiben(Optional Firma As Integer = -1) As Boolean 'Lädt die Daten aus der Tabelle Rechnungsausgang/RechnungsausgangPositionen in die Tabelle trdInvoice/trdProduct + Try + + Dim LOKALWÄHRUNG = "EUR" + Dim lngSatzzähler As Integer + Dim WährungsdifferenzSteuerpflichtigerBetrag As Double + Dim WährungsdifferenzSteuerfreierBetrag As Integer + + Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma), "FMZOLL") + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + For Each ROW In dt.Rows + Dim TRD_INVOICE As New VERAG_PROG_ALLGEMEIN.cTrdInvoice(ROW("RK_RechnungsDatum"), ROW("RK_RechnungsNr")) + If TRD_INVOICE.hasEntry Then + ' MsgBox("RG-Nr. bereits vorhanden!") + Else + Dim RK_Währungscode = ROW("RK_Währungscode") + If ROW("RK_Währungscode") Is DBNull.Value Then RK_Währungscode = LOKALWÄHRUNG + + If RK_Währungscode = LOKALWÄHRUNG Then + TRD_INVOICE.SteuerpflichtigerBetragLokal = ROW("RK_SteuerpflichtigerBetrag") + TRD_INVOICE.SteuerfreierBetragLokal = ROW("RK_SteuerfreierBetrag") + TRD_INVOICE.SteuerbetragLokal = ROW("RK_Steuerbetrag") + TRD_INVOICE.RechnungsbetragLokal = ROW("RK_Rechnungsbetrag") + + TRD_INVOICE.SteuerpflichtigerBetragFremd = 0 + TRD_INVOICE.SteuerfreierBetragFremd = 0 + TRD_INVOICE.SteuerbetragFremd = 0 + TRD_INVOICE.RechnungsbetragFremd = 0 + + TRD_INVOICE.WährungFremd = Nothing + Else + TRD_INVOICE.SteuerpflichtigerBetragFremd = ROW("RK_SteuerpflichtigerBetrag") + TRD_INVOICE.SteuerfreierBetragFremd = ROW("RK_SteuerfreierBetrag") + TRD_INVOICE.SteuerbetragFremd = ROW("RK_Steuerbetrag") + TRD_INVOICE.RechnungsbetragFremd = ROW("RK_Rechnungsbetrag") + + TRD_INVOICE.SteuerpflichtigerBetragLokal = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ROW("[RK_SteuerpflichtigerBetrag]"), ROW("[RK_Währungscode]"), LOKALWÄHRUNG) + TRD_INVOICE.SteuerfreierBetragLokal = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ROW("[RK_SteuerfreierBetrag]"), ROW("[RK_Währungscode]"), LOKALWÄHRUNG) + TRD_INVOICE.SteuerbetragLokal = CDbl(TRD_INVOICE.SteuerpflichtigerBetragLokal * ROW("[RK_SteuersatzProzent]") * 100) / 100 + TRD_INVOICE.RechnungsbetragLokal = TRD_INVOICE.SteuerpflichtigerBetragLokal + TRD_INVOICE.SteuerfreierBetragLokal + TRD_INVOICE.SteuerbetragLokal + ' Basis zur Feststellung von Rundungsdifferenzen schaffen. + + TRD_INVOICE.SteuerpflichtigerBetragLokal = 0 + TRD_INVOICE.SteuerfreierBetragLokal = 0 + TRD_INVOICE.SteuerbetragLokal = 0 + TRD_INVOICE.RechnungsbetragLokal = 0 + + WährungsdifferenzSteuerpflichtigerBetrag = TRD_INVOICE.SteuerpflichtigerBetragLokal + WährungsdifferenzSteuerfreierBetrag = TRD_INVOICE.SteuerfreierBetragLokal + lngSatzzähler = ROW("RK_Satzzähler") + + TRD_INVOICE.WährungFremd = RK_Währungscode + End If + + + TRD_INVOICE.FilialenNr = ROW("RK_FilialenNr") + TRD_INVOICE.Speditionsbuch = SQL.DLookup("Speditionsbuch", "Filialen", "FilialenNr=" & ROW("RK_FilialenNr"), "FMZOLL", Nothing) ' ROW("Speditionsbuch") + TRD_INVOICE.AbfertigungsNr = ROW("RK_AbfertigungsNr") + TRD_INVOICE.UnterNr = ROW("RK_UnterNr") + TRD_INVOICE.Abfertigungsdatum = ROW("RK_Abfertigungsdatum") + TRD_INVOICE.BelegartenNr = ROW("RK_BelegartenNr") + TRD_INVOICE.KundenNrZentrale = ROW("RK_KundenNrZentrale") + TRD_INVOICE.RechnungsKundenNr = ROW("RK_RechnungsKundenNr") + TRD_INVOICE.RechnungsLandKz = ROW("RK_RechnungsLandKz") + TRD_INVOICE.RechnungsUstIdKz = ROW("RK_RechnungsUstIdKz") + TRD_INVOICE.RechnungsUstIdNr = ROW("RK_RechnungsUstIdNr") + TRD_INVOICE.Lastschrift = ROW("RK_Lastschrift") + TRD_INVOICE.Steuerschlüssel = ROW("RK_Steuerschlüssel") + TRD_INVOICE.Steuersatz = ROW("RK_SteuersatzProzent") + TRD_INVOICE.WährungLokal = LOKALWÄHRUNG + TRD_INVOICE.TrdinDateiname = Nothing + TRD_INVOICE.Abgleich_op_debitor = 0 + TRD_INVOICE.Nettozahlungsziel = ROW("RK_Nettozahlungsziel") + TRD_INVOICE.Firma_ID = ROW("RK_Firma_ID") + TRD_INVOICE.UStVAn_ID = Nothing + + If TRD_INVOICE.SAVE Then + If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), ROW("RK_Buchungstext"), TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag) Then + 'UPDATE rechnugnsausgang + SQL.doSQL("UPDATE [Rechnungsausgang] SET [Trdin] = 1 WHERE convert(date,[RechnungsDatum] ,104) = '" & TRD_INVOICE.Rechnungsdatum.ToShortDateString & "' AND RechnungsNr = " & TRD_INVOICE.Rechnungsnummer & " ", "FMZOLL") + End If + End If + End If + Next + Return True + + Else + Return False + End If + + ' Buchung im Rechnungskopfsatz eintragen. + ' Call SPAktionsabfrageOhneErgebnis("dbo.spTrdinSchreibenUpdateRK", AktuelleVerbindungszeichenfolge(0), rstRK![RK_RechnungsDatum], rstRK![RK_RechnungsNr], 1) + Catch ex As Exception + MsgBox(ex.StackTrace & "" & ex.Message) + Return False + End Try + + End Function + + + + Shared Function TrdinSchreibenProduct(RechnungsDatum, RK_RechnungsNr, RK_Währungscode, RK_RechnungsLandKz, RK_Buchungstext, RK_Firma_ID, ByRef lngSatzzähler, ByRef WährungsdifferenzSteuerpflichtigerBetrag, ByRef WährungsdifferenzSteuerfreierBetrag) As Boolean + Try + + Dim LOKALWÄHRUNG = "EUR" + + Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdProduct(RechnungsDatum, RK_RechnungsNr), "FMZOLL") + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + For Each ROW In dt.Rows + Dim TRD_PRODUCT As New VERAG_PROG_ALLGEMEIN.cTrdProduct() + + TRD_PRODUCT.Rechnungsdatum = RechnungsDatum + TRD_PRODUCT.Rechnungsnummer = RK_RechnungsNr + + + If RK_Währungscode = LOKALWÄHRUNG Then + TRD_PRODUCT.SteuerpflichtigerBetragLokal = ROW("RP_SteuerpflichtigerBetrag") + TRD_PRODUCT.SteuerfreierBetragLokal = ROW("RP_SteuerfreierBetrag") + + TRD_PRODUCT.SteuerpflichtigerBetragFremd = 0 + TRD_PRODUCT.SteuerfreierBetragFremd = 0 + Else + TRD_PRODUCT.SteuerpflichtigerBetragFremd = ROW("RP_SteuerpflichtigerBetrag") + TRD_PRODUCT.SteuerfreierBetragFremd = ROW("RP_SteuerfreierBetrag") + + + TRD_PRODUCT.SteuerpflichtigerBetragLokal = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ROW("RP_SteuerpflichtigerBetrag"), RK_Währungscode, LOKALWÄHRUNG) + TRD_PRODUCT.SteuerfreierBetragLokal = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ROW("RP_SteuerfreierBetrag"), RK_Währungscode, LOKALWÄHRUNG) + + + WährungsdifferenzSteuerpflichtigerBetrag -= TRD_PRODUCT.SteuerpflichtigerBetragLokal + WährungsdifferenzSteuerfreierBetrag -= TRD_PRODUCT.SteuerfreierBetragLokal + + lngSatzzähler = lngSatzzähler - ROW("RP_Satzzähler") + If lngSatzzähler = 0 Then + If WährungsdifferenzSteuerpflichtigerBetrag <> 0 Then + TRD_PRODUCT.SteuerpflichtigerBetragLokal += WährungsdifferenzSteuerpflichtigerBetrag + End If + If WährungsdifferenzSteuerfreierBetrag <> 0 Then + TRD_PRODUCT.SteuerfreierBetragLokal += WährungsdifferenzSteuerfreierBetrag + End If + End If + End If + + + TRD_PRODUCT.Leistungsnummer = ROW("RP_LeistungsNr") + TRD_PRODUCT.Leistungsbezeichnung = ROW("RP_LeistungsBez") + TRD_PRODUCT.Steuerpflichtig = ROW("RP_Steuerpflichtig") + TRD_PRODUCT.Belegdaten = ROW("RP_Belegdaten") + TRD_PRODUCT.Sachkonto = getSachkonto(RK_Firma_ID, ROW("RP_LeistungsNr"), RK_RechnungsLandKz, ROW("RP_Steuerpflichtig"), ROW("AufschubkontoNr")) + TRD_PRODUCT.Buchungstext = RK_Buchungstext + + + + TRD_PRODUCT.SAVE() + Next + + Return True + Else + Return False + End If + + + Catch ex As Exception + MsgBox(ex.StackTrace & "" & ex.Message) + Return False + End Try + End Function + + Shared Function getSachkonto(Firma_Id, RP_LeistungsNr, [RK_RechnungsLandKz], RP_Steuerpflichtig, RP_AufschubkontoNr) + ' Sachkonto ermitteln. + Dim FIRMA = New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_Id) + + Select Case Firma_Id + Case 20 'IMEX --> Andere Sachkonten in Tbl Leistungen! + If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" _ + OrElse [RK_RechnungsLandKz] = "A" _ + OrElse [RK_RechnungsLandKz] = "AT" Then + If CBool([RP_Steuerpflichtig]) Then + getSachkonto = If(SQL.DLookup("[IMEX_SachkontoInlandSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "") + + Else + getSachkonto = If(SQL.DLookup("[IMEX_SachkontoInlandSteuerfrei]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "") + End If + Else + If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & [RK_RechnungsLandKz] & "'", "FMZOLL", False) Then + If [RP_Steuerpflichtig] Then + getSachkonto = If(SQL.DLookup("[IMEX_SachkontoEUSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "") + Else + getSachkonto = If(SQL.DLookup("[IMEX_SachkontoEUSteuerfrei]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "") + End If + Else + getSachkonto = If(SQL.DLookup("[IMEX_Sachkonto3Land]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "") + End If + End If + If getSachkonto = "" Then getSachkonto = "9999" 'DEFAULT! + + Case 21, 22, 23, 24 '--> cLeistungenBUKonten! + Dim BU_KTO As New VERAG_PROG_ALLGEMEIN.cLeistungenBUKonten(RP_LeistungsNr, Firma_Id) + If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" OrElse + [RK_RechnungsLandKz] = FIRMA.Firma_LandKz.ToString.Replace("AT", "A").Replace("DE", "D") Then + + If CBool([RP_Steuerpflichtig]) Then + getSachkonto = BU_KTO.SachkontoInlandSteuerpflichtig + + Else + getSachkonto = BU_KTO.SachkontoInlandSteuerfrei + End If + Else + If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & [RK_RechnungsLandKz] & "'", "FMZOLL", False) Then + If [RP_Steuerpflichtig] Then + getSachkonto = BU_KTO.SachkontoEUSteuerpflichtig + Else + getSachkonto = BU_KTO.SachkontoEUSteuerfrei + End If + Else + getSachkonto = BU_KTO.Sachkonto3Land + End If + End If + If getSachkonto = "" Then getSachkonto = "9999" 'DEFAULT! + + Case Else + If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" _ + OrElse [RK_RechnungsLandKz] = "A" _ + OrElse [RK_RechnungsLandKz] = "AT" Then + If CBool([RP_Steuerpflichtig]) Then + getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "") + + Else + getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerfrei]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "") + End If + Else + If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & [RK_RechnungsLandKz] & "'", "FMZOLL", False) Then + If [RP_Steuerpflichtig] Then + getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "") + Else + getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerfrei]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "") + End If + Else + getSachkonto = If(SQL.DLookup("[Sachkonto3Land]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "") + End If + End If + If getSachkonto = "" Then getSachkonto = "4000" 'DEFAULT! + End Select + Try + + If Firma_Id = 20 Then + If getSachkonto = "3553" Then 'IMEX EUST + If RP_AufschubkontoNr Is DBNull.Value Then RP_AufschubkontoNr = "" + If RP_AufschubkontoNr.ToString.Contains("2719") Then + getSachkonto = "3550" '--> KTO M-2719 + Else + getSachkonto = "3553" '--> KTO M-2718 + End If + End If + End If + Catch ex As Exception + + End Try + getSachkonto = CInt(getSachkonto) + End Function + + Shared Function getSQLString_SELECTForTrdInvoice(Optional Firma As Integer = -1) + getSQLString_SELECTForTrdInvoice = "SELECT Rechnungsausgang.RechnungsDatum AS RK_RechnungsDatum, Rechnungsausgang.RechnungsNr AS RK_RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum) AS RK_Abfertigungsdatum, min(Rechnungsausgang.FilialenNr) AS RK_FilialenNr, + min(Rechnungsausgang.AbfertigungsNr) AS RK_AbfertigungsNr, min(Rechnungsausgang.UnterNr) AS RK_UnterNr, min(Rechnungsausgang.BelegartenNr) AS RK_BelegartenNr, + (min(cast([FilialenNr] as varchar(4))) + '/' + min(cast([AbfertigungsNr] as varchar(8))) + '/' + min(cast([UnterNr] as varchar(2)))) AS RK_Buchungstext, + min(Rechnungsausgang.KundenNrZentrale) AS RK_KundenNrZentrale, min(Rechnungsausgang.RechnungsKundenNr) AS RK_RechnungsKundenNr, min(Rechnungsausgang.RechnungsLandKz) AS RK_RechnungsLandKz, + min(Rechnungsausgang.RechnungsUstIdKz) AS RK_RechnungsUstIdKz, min(Rechnungsausgang.RechnungsUstIdNr) AS RK_RechnungsUstIdNr, min(Rechnungsausgang.Lastschrift+0) AS RK_Lastschrift, + min(Rechnungsausgang.Steuerschlüssel) AS RK_Steuerschlüssel, min(Rechnungsausgang.[Steuersatz %]) AS RK_SteuersatzProzent, min(Rechnungsausgang.Währungscode) AS RK_Währungscode, + min(Rechnungsausgang.Nettozahlungsziel) AS RK_Nettozahlungsziel, min(Rechnungsausgang.Firma_ID) AS RK_Firma_ID, Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag) AS RK_SteuerpflichtigerBetrag, + Sum(RechnungsausgangPositionen.SteuerfreierBetrag) AS RK_SteuerfreierBetrag + , (Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)*min(Rechnungsausgang.[Steuersatz %])*100)/100 AS RK_Steuerbetrag, + Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)+Sum(RechnungsausgangPositionen.SteuerfreierBetrag)+((Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)*min(Rechnungsausgang.[Steuersatz %])*100)/100) AS RK_Rechnungsbetrag, + Count(1) AS RK_Satzzähler + FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID + WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & " + GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr + ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);" + End Function + + + Shared Function getSQLString_SELECTForTrdProduct(RechnungsDatum As Date, RechnungsNr As Integer) + getSQLString_SELECTForTrdProduct = "SELECT Rechnungsausgang.RechnungsDatum AS RP_RechnungsDatum, Rechnungsausgang.RechnungsNr AS RP_RechnungsNr, RechnungsausgangPositionen.LeistungsNr AS RP_LeistungsNr, RechnungsausgangPositionen.LeistungsBez AS RP_LeistungsBez, + RechnungsausgangPositionen.Steuerpflichtig AS RP_Steuerpflichtig, Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag) AS RP_SteuerpflichtigerBetrag, Sum(RechnungsausgangPositionen.SteuerfreierBetrag) AS RP_SteuerfreierBetrag, + min(RechnungsausgangPositionen.Belegdaten) AS RP_Belegdaten, Count(1) AS RP_Satzzähler, min(AufschubkontoNr) as AufschubkontoNr + FROM RechnungsausgangPositionen INNER JOIN Rechnungsausgang ON RechnungsausgangPositionen.RK_ID = Rechnungsausgang.RK_ID + GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.LeistungsBez, RechnungsausgangPositionen.Steuerpflichtig + HAVING (((Rechnungsausgang.RechnungsDatum)='" & RechnungsDatum.ToShortDateString & "') AND ((Rechnungsausgang.RechnungsNr)=" & RechnungsNr & ")) + ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.LeistungsBez, RechnungsausgangPositionen.Steuerpflichtig;" + End Function +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cUIDAbfrage.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cUIDAbfrage.vb new file mode 100644 index 0000000..024b62c --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cUIDAbfrage.vb @@ -0,0 +1,250 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cUIDAbfrage + + + Property uid_id As Integer + Property uid_KundenNr As Integer + Property uid_Datum As Object = Nothing + Property uid_MaId As Integer + Property uid_Sachbearbeiter As Object = Nothing + Property uid_requesterCountryCode As Object = Nothing + Property uid_requesterVatNumber As Object = Nothing + Property uid_countryCode As Object = Nothing + Property uid_vatNumber As Object = Nothing + Property uid_requestDate As Object = Nothing + Property uid_valid As Boolean + Property uid_traderName As Object = Nothing + Property uid_traderCompanyType As Object = Nothing + Property uid_traderAddress As Object = Nothing + Property uid_traderStreet As Object = Nothing + Property uid_traderPostcode As Object = Nothing + Property uid_traderCity As Object = Nothing + Property uid_traderNameMatch As Object = Nothing + Property uid_traderCompanyTypeMatch As Object = Nothing + Property uid_traderStreetMatch As Object = Nothing + Property uid_traderPostcodeMatch As Object = Nothing + Property uid_traderCityMatch As Object = Nothing + Property uid_requestIdentifier As Object = Nothing + + + + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(uid_id) + Me.uid_id = uid_id + LOAD() + End Sub + + Public 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("uid_id", uid_id, , True, True)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_KundenNr", uid_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_Datum", uid_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_MaId", uid_MaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_Sachbearbeiter", uid_Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_requesterCountryCode", uid_requesterCountryCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_requesterVatNumber", uid_requesterVatNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_countryCode", uid_countryCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_vatNumber", uid_vatNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_requestDate", uid_requestDate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_valid", uid_valid)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderName", uid_traderName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderCompanyType", uid_traderCompanyType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderAddress", uid_traderAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderStreet", uid_traderStreet)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderPostcode", uid_traderPostcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderCity", uid_traderCity)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderNameMatch", uid_traderNameMatch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderCompanyTypeMatch", uid_traderCompanyTypeMatch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderStreetMatch", uid_traderStreetMatch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderPostcodeMatch", uid_traderPostcodeMatch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderCityMatch", uid_traderCityMatch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_requestIdentifier", uid_requestIdentifier)) + + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUIDAbfrage WITH(updlock,serializable) WHERE uid_id=@uid_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + uid_id = SQL.doSQLVarListID(uid_id, sqlstr, "FMZOLL", , list) + Return uid_id > 0 + End Function + + Public Shared Function LOADByKdNrDate(uid_KundenNr As Integer, uid_Datum As Date) As cUIDAbfrage + Try + Dim UID As New cUIDAbfrage + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblUIDAbfrage WHERE uid_KundenNr=@uid_KundenNr AND cast(uid_Datum as date)=@uid_Datum ", conn) + cmd.Parameters.AddWithValue("@uid_KundenNr", uid_KundenNr) + cmd.Parameters.AddWithValue("@uid_Datum", uid_Datum.ToShortDateString) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In UID.getParameterList() + Dim propInfo As PropertyInfo = UID.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(UID, Nothing) + Else + propInfo.SetValue(UID, dr.Item(l.Text)) + End If + + Next + dr.Close() + Return UID + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblUIDAbfrage WHERE uid_id=@uid_id ", conn) + cmd.Parameters.AddWithValue("@uid_id", uid_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblUIDAbfrage] SET " & str & " WHERE uid_id=@uid_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblUIDAbfrage (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + + Public Shared Function ABFRAGE(UstIdKz As String, UstIdNr As String, ByRef valid As Boolean) As cUIDAbfrage + + Try + Dim vat As New UIDPruefung.checkVatService + + Dim countryCode As String = UstIdKz + Dim vatNumber As String = UstIdNr + Dim traderName As String + Dim traderCompanyType As String + Dim traderStreet As String + Dim traderPostcode As String + Dim traderCity As String + Dim requesterCountryCode As String = "AT" + Dim requesterVatNumber As String = "U62663022" + 'Dim valid As Boolean + Dim traderAddress As String + Dim traderNameMatch As Integer + Dim traderNameMatchSpecified As Boolean + Dim traderCompanyTypeMatch As Integer + Dim traderCompanyTypeMatchSpecified As Boolean + Dim traderStreetMatch As Integer + Dim traderStreetMatchSpecified As Boolean + Dim traderPostcodeMatch As Integer + Dim traderPostcodeMatchSpecified As Boolean + Dim traderCityMatch As Integer + Dim traderCityMatchSpecified As Boolean + Dim requestIdentifier As String + + + + ' Dim ass As New EU_UID_Pruefung.checkVatPortTypeClient() + + ' ass.checkVatPortTypeClient() + + ' Dim s = EU3t.checkVat("AT", "U53187000", valid, name, adress) + 'Dim s = vat.checkVat(ADRESSE.UstIdKz, ADRESSE.UstIdNr, valid, name, adress) + Dim s As Date = vat.checkVatApprox(countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber, valid, traderAddress, traderNameMatch, traderNameMatchSpecified, traderCompanyTypeMatch, traderCompanyTypeMatchSpecified, traderStreetMatch, traderStreetMatchSpecified, traderPostcodeMatch, traderPostcodeMatchSpecified, traderCityMatch, traderCityMatchSpecified, requestIdentifier) + + + Dim UID As New cUIDAbfrage + + ' UID() + ' MsgBox(requestIdentifier) + ' MsgBox(traderName) + ' MsgBox(traderStreet) + '' MsgBox(traderAddress) + ' ' MsgBox(adress) + ' MsgBox(name) + + + Return UID + Catch ex As Exception + + + Return Nothing + End Try + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb new file mode 100644 index 0000000..ee53712 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb @@ -0,0 +1,341 @@ + +Imports System.Data.SqlClient +Imports System.Reflection +Imports VERAG_PROG_ALLGEMEIN.UIDPruefung +'Imports SDL.eu.europa.ec + +Public Class cUIDPruefung + + Property uid_id As Integer = -1 + Property uid_KundenNr As Integer + Property uid_UstIdKz As String + Property uid_UstIdNr As String + Property uid_Datum As Date = Now + Property uid_valid As Boolean + Property uid_MaId As Object = Nothing + Property uid_Sachbearbeiter As String + Property uid_firma As Object = Nothing + + + Property uid_stufe As Integer = 1 + Property Firma As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Property uid_abfrageUid As Object = Nothing + Property uid_sessionId As Object = Nothing + + + + Property uid_adr1 As Object = Nothing + Property uid_adr2 As Object = Nothing + Property uid_adr3 As Object = Nothing + Property uid_adr4 As Object = Nothing + Property uid_adr5 As Object = Nothing + Property uid_adr6 As Object = Nothing + + + Shared SQL As New SQL + + Sub New() + End Sub + + Sub New(uid_id) + Me.uid_id = uid_id + LOAD() + End Sub + + Public 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("uid_id", uid_id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_KundenNr", uid_KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_UstIdKz", uid_UstIdKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_UstIdNr", uid_UstIdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_Datum", uid_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_valid", uid_valid)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_MaId", uid_MaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_Sachbearbeiter", uid_Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_firma", uid_firma)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_stufe", uid_stufe)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", Firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_abfrageUid", uid_abfrageUid)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_sessionId", uid_sessionId)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr1", uid_adr1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr2", uid_adr2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr3", uid_adr3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr4", uid_adr4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr5", uid_adr5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr6", uid_adr6)) + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUIDPruefung WITH(updlock,serializable) WHERE uid_id=@uid_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + uid_id = SQL.doSQLVarListID(uid_id, sqlstr, "FMZOLL", , list) + Return uid_id > 0 + End Function + + Public Shared Function LOADByKdNrDate(ba_KundenNr As Integer, ba_Datum As Date) As cUIDPruefung + Try + Dim UID As New cUIDPruefung + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblUIDPruefung WHERE ba_KundenNr=@ba_KundenNr AND cast(ba_Datum as date)=@ba_Datum ", conn) + cmd.Parameters.AddWithValue("@ba_KundenNr", ba_KundenNr) + cmd.Parameters.AddWithValue("@ba_Datum", ba_Datum.ToShortDateString) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In UID.getParameterList() + Dim propInfo As PropertyInfo = UID.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(UID, Nothing) + Else + propInfo.SetValue(UID, dr.Item(l.Text)) + End If + + Next + dr.Close() + Return UID + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True) As DataTable + Dim dt As DataTable = Nothing + If datum = Nothing Then datum = CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1) + + Dim where = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701)" + Case "IMEX" : where = " And Filialen.FilialenNr IN (5501)" + Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801)" + Case "UNISPED" : where = " AND Filialen.firma='UNISPED' " + Case Else : where = " AND Filialen.firma='VERAG' " '" And isnull(FilialenNr,'') Not IN (5501,5701)" + End Select + Dim Top = "" + If MaxEintraege > 0 Then + Top = " TOP " & MaxEintraege + End If + + dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr " & + " From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " & + " where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR (Adressen.UstIdKz is not null and Adressen.UstIdNr is not null)) " & + " And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL") + + If dt IsNot Nothing Then + If dt.Rows.Count = 0 Then Return Nothing + If Sciherheitsabfrage Then + If vbYes <> MsgBox("Es werden " & dt.Rows.Count & " Datensätze abgefragt, möchten Sie fortfahren?", vbYesNoCancel) Then + Return Nothing + End If + End If + Dim c As New DataColumn + c.ColumnName = "Ergebnis" + dt.Columns.Add(c) + For Each r As DataRow In dt.Rows + Dim UID_TMP = doUIDPruefung(r("KdNr"),, SaveErgInAdressen, showErr) + If UID_TMP IsNot Nothing Then + If UID_TMP.uid_valid Then + r("Ergebnis") = "OK" + Else + r("Ergebnis") = "UNGÜLTIG" + End If + Else + r("Ergebnis") = "ERROR" + End If + Next + End If + + Return dt + End Function + + + Public Shared Function doUIDPruefung(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True) As cUIDPruefung + + Dim AD As New cAdressen(ba_KundenNr) + If AD IsNot Nothing Then + If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then + + Try + If AskIfDouble Then + If IsDate(AD.UstIdGeprüft) AndAlso CDate(AD.UstIdGeprüft).ToShortDateString = Now.ToShortDateString Then + If vbYes <> MsgBox("Die UID-Nummer wurde heute bereits geprüft. Soll die Prüfung nochmal durchgeführt werden?", vbYesNoCancel) Then + Return Nothing + End If + End If + End If + + Dim vat As New UIDPruefung.checkVatService + + ' Dim EU3t As New SDL.eu.europa.ec.checkVatService("checkVatPort", "http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl") '"urn:ec.europa.eu:taxud:vies:services:checkVat:types") + ' Dim EU4 As New EU_Uid_Pruefung.checkVatPortTyp + ' EU3.checkVatPortType() + ' "EU_Uid_Pruefung.checkVatPortType" + ' Dim valid As Boolean = False + 'Dim name As String = "" + 'Dim adress As String = "" + + Dim countryCode As String = AD.UstIdKz + Dim vatNumber As String = AD.UstIdNr + Dim traderName As String + Dim traderCompanyType As String + Dim traderStreet As String + Dim traderPostcode As String + Dim traderCity As String + + Dim requesterCountryCode As String = "AT" + Dim requesterVatNumber As String = "U62663022" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + requesterCountryCode = "AT" + requesterVatNumber = "U68490714" + End Select + Dim valid As Boolean = False + Dim traderAddress As String + Dim traderNameMatch As matchCode + Dim traderNameMatchSpecified As Boolean + Dim traderCompanyTypeMatch As matchCode + Dim traderCompanyTypeMatchSpecified As Boolean + Dim traderStreetMatch As matchCode + Dim traderStreetMatchSpecified As Boolean + Dim traderPostcodeMatch As matchCode + Dim traderPostcodeMatchSpecified As Boolean + Dim traderCityMatch As matchCode + Dim traderCityMatchSpecified As Boolean + Dim requestIdentifier As String + + + + ' Dim ass As New EU_UID_Pruefung.checkVatPortTypeClient() + + ' ass.checkVatPortTypeClient() + + ' Dim s = EU3t.checkVat("AT", "U53187000", valid, name, adress) + 'Dim s = vat.checkVat(ADRESSE.UstIdKz, ADRESSE.UstIdNr, valid, name, adress) + Dim s = vat.checkVatApprox(countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber, valid, traderAddress, traderNameMatch, traderNameMatchSpecified, traderCompanyTypeMatch, traderCompanyTypeMatchSpecified, traderStreetMatch, traderStreetMatchSpecified, traderPostcodeMatch, traderPostcodeMatchSpecified, traderCityMatch, traderCityMatchSpecified, requestIdentifier) + + If s >= Now.ToShortDateString Then 'If s IsNot Nothing Then + Dim UID_TMP As New cUIDPruefung + UID_TMP.uid_Datum = Now + UID_TMP.uid_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + If If(UID_TMP.uid_Sachbearbeiter, "") = "" Then UID_TMP.uid_Sachbearbeiter = "AUTO" + UID_TMP.uid_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + UID_TMP.uid_valid = valid + UID_TMP.uid_KundenNr = ba_KundenNr + + UID_TMP.uid_UstIdKz = AD.UstIdKz + UID_TMP.uid_UstIdNr = AD.UstIdNr + UID_TMP.uid_stufe = 1 + UID_TMP.Firma = If(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "VERAG") + + UID_TMP.uid_abfrageUid = requesterCountryCode & requesterVatNumber + ' UID.uid_firma = + ' UID.uid_strasse)) + 'UID.uid_plz)) + 'UID.uid_ort)) + + UID_TMP.SAVE() + If valid Then + If SaveErgInAdressen Then + AD.UstIdGeprüft = Now.ToShortDateString + AD.SAVE() + End If + End If + Return UID_TMP + End If + Catch ex As Exception + If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + End If + + Return Nothing + End Function + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblUIDPruefung WHERE uid_id=@uid_id ", conn) + cmd.Parameters.AddWithValue("@uid_id", uid_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblUIDPruefung] SET " & str & " WHERE uid_id=@uid_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblUIDPruefung (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cVoraskasse.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cVoraskasse.vb new file mode 100644 index 0000000..b3db36d --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cVoraskasse.vb @@ -0,0 +1,144 @@ + +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cVoraskasse + + Property vk_id As Integer + Property vk_FilialeNr As Object = Nothing + Property vk_AbfertigungsNr As Object = Nothing + Property vk_Datum As Object = Nothing + Property vk_LKW As Object = Nothing + Property vk_KdNr As Object = Nothing + Property vk_Firma As Object = Nothing + Property vk_Betrag As Object = Nothing + Property vk_QS_SachbearbeiterId As Object = Nothing + Property vk_QS_Sachbearbeiter As Object = Nothing + Property vk_QS_Bemerkung As Object = Nothing + Property vk_GeldEingetroffen As Boolean = False + Property vk_BH_SachbearbeiterId As Object = Nothing + Property vk_BH_Sachbearbeiter As Object = Nothing + Property vk_BH_Bemerkung As Object = Nothing + Property vk_BH_DatumGeldeingang As Object = Nothing + + + Dim SQL As New SQL + + Sub New() + + End Sub + Sub New(vk_id) + Me.vk_id = vk_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("vk_id", vk_id, , True)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_FilialeNr", vk_FilialeNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_AbfertigungsNr", vk_AbfertigungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Datum", vk_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_LKW", vk_LKW)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_KdNr", vk_KdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Firma", vk_Firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Betrag", vk_Betrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_QS_SachbearbeiterId", vk_QS_SachbearbeiterId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_QS_Sachbearbeiter", vk_QS_Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_QS_Bemerkung", vk_QS_Bemerkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_GeldEingetroffen", vk_GeldEingetroffen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_SachbearbeiterId", vk_BH_SachbearbeiterId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_Sachbearbeiter", vk_BH_Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_Bemerkung", vk_BH_Bemerkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_DatumGeldeingang", vk_BH_DatumGeldeingang)) + + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblVorauskasse WITH(updlock,serializable) WHERE vk_id=@vk_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim id = SQL.doSQLVarListID(vk_id, sqlstr, "ADMIN", , list) + Me.vk_id = id + Return id > 0 + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblVorauskasse WHERE vk_id=@vk_id ", conn) + cmd.Parameters.AddWithValue("@vk_id", vk_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 [tblVorauskasse] SET " & str & " WHERE vk_id=@vk_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblVorauskasse (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb new file mode 100644 index 0000000..726c060 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb @@ -0,0 +1,303 @@ +Imports System.Data.SqlClient +Imports System.Reflection + + +Public Class cVorauskasse + + + Property vk_id As Integer = -1 + Property vk_FilialeNr As Object = Nothing + Property vk_AbfertigungsNr As Object = Nothing + Property vk_Datum As Object = Nothing + Property vk_LKW As Object = Nothing + Property vk_KdNr As Object = Nothing + Property vk_Firma As Object = Nothing + Property vk_Betrag As Decimal = 0.0 + Property vk_QS_SachbearbeiterId As Integer + Property vk_QS_Sachbearbeiter As Object = Nothing + Property vk_QS_Bemerkung As Object = Nothing + Property vk_GeldEingetroffen As Boolean = False + Property vk_BH_SachbearbeiterId As Object = Nothing + Property vk_BH_Sachbearbeiter As Object = Nothing + Property vk_BH_Bemerkung As Object = Nothing + Property vk_BH_DatumGeldeingang As Object = Nothing + Property vk_storno As Boolean = False + Property vk_stornoDatum As Object = Nothing + + + Property vk_Rolle As Object = Nothing + Property vk_Anrede As Object = Nothing + Property vk_Firmenwortlauf As Object = Nothing + Property vk_Aresse1 As Object = Nothing + Property vk_Adresse2 As Object = Nothing + Property vk_UID As Object = Nothing + Property vk_EORI As Object = Nothing + Property vk_Tel As Object = Nothing + Property vk_Fax As Object = Nothing + Property vk_Email As Object = Nothing + Property vk_RgNr As Object = Nothing + Property vk_Absender As Object = Nothing + Property vk_ATREUR1 As Object = Nothing + Property vk_Fraechter As Object = Nothing + Property vk_Anzahl As Object = Nothing + Property vk_Warenbezeichnung As Object = Nothing + Property vk_Colli As Object = Nothing + Property vk_FaStNr As Object = Nothing + + Property vk_Berechnung_Rechnungsbetrag As Object = Nothing + Property vk_Berechnung_FrachtkostAusland As Object = Nothing + Property vk_Berechnung_ZollProz As Object = Nothing + Property vk_Berechnung_FrachtkostInland As Object = Nothing + Property vk_Berechnung_AbgabenSonst_Bez As Object = Nothing + Property vk_Berechnung_AbgabenSonst_Betrag As Object = Nothing + Property vk_Berechnung_EUSTProz As Object = Nothing + Property vk_Berechnung_KostenSonst_Bez As Object = Nothing + Property vk_Berechnung_KostenSonst_Betrag As Object = Nothing + Property vk_Berechnung_Verzollung As Object = Nothing + Property vk_Berechnung_jeWeitere As Object = Nothing + Property vk_Berechnung_ATLAS As Object = Nothing + Property vk_Berechnung_Clearing As Object = Nothing + Property vk_Berechnung_korrRg As Object = Nothing + Property vk_Berechnung_Übersetzung As Object = Nothing + Property vk_Berechnung_Aviso As Object = Nothing + Property vk_Berechnung_SVS As Object = Nothing + Property vk_Berechnung_SonstigeKosten As Object = Nothing + Property vk_Berechnung_SonstigeKostenText As Object = Nothing + Property vk_Berechnung_PP As Object = Nothing + Property vk_Freigegeben As Boolean = False + Property vk_SendungId As Object = Nothing + Property vk_AvisoId As Object = Nothing + Property vk_VermerkId As Object = Nothing + + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(vk_id) + Me.vk_id = vk_id + LOAD() + End Sub + + Public 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("vk_id", vk_id, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_FilialeNr", vk_FilialeNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_AbfertigungsNr", vk_AbfertigungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Datum", vk_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_LKW", vk_LKW)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_KdNr", vk_KdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Firma", vk_Firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Betrag", (vk_Betrag))) '.ToString("N2"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_QS_SachbearbeiterId", vk_QS_SachbearbeiterId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_QS_Sachbearbeiter", vk_QS_Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_QS_Bemerkung", vk_QS_Bemerkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_GeldEingetroffen", vk_GeldEingetroffen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_SachbearbeiterId", vk_BH_SachbearbeiterId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_Sachbearbeiter", vk_BH_Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_Bemerkung", vk_BH_Bemerkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_DatumGeldeingang", vk_BH_DatumGeldeingang)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_storno", vk_storno)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_stornoDatum", vk_stornoDatum)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Rolle", vk_Rolle)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Anrede", vk_Anrede)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Firmenwortlauf", vk_Firmenwortlauf)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Aresse1", vk_Aresse1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Adresse2", vk_Adresse2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_UID", vk_UID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_EORI", vk_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Tel", vk_Tel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Fax", vk_Fax)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Email", vk_Email)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_RgNr", vk_RgNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Absender", vk_Absender)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_ATREUR1", vk_ATREUR1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Fraechter", vk_Fraechter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Anzahl", vk_Anzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Warenbezeichnung", vk_Warenbezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Colli", vk_Colli)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_FaStNr", vk_FaStNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_Rechnungsbetrag", vk_Berechnung_Rechnungsbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_FrachtkostAusland", vk_Berechnung_FrachtkostAusland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_ZollProz", vk_Berechnung_ZollProz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_FrachtkostInland", vk_Berechnung_FrachtkostInland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_AbgabenSonst_Bez", vk_Berechnung_AbgabenSonst_Bez)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_AbgabenSonst_Betrag", vk_Berechnung_AbgabenSonst_Betrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_EUSTProz", vk_Berechnung_EUSTProz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_KostenSonst_Bez", vk_Berechnung_KostenSonst_Bez)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_KostenSonst_Betrag", vk_Berechnung_KostenSonst_Betrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_Verzollung", vk_Berechnung_Verzollung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_jeWeitere", vk_Berechnung_jeWeitere)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_ATLAS", vk_Berechnung_ATLAS)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_Clearing", vk_Berechnung_Clearing)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_korrRg", vk_Berechnung_korrRg)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_Übersetzung", vk_Berechnung_Übersetzung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_Aviso", vk_Berechnung_Aviso)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_SVS", vk_Berechnung_SVS)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_SonstigeKosten", vk_Berechnung_SonstigeKosten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_PP", vk_Berechnung_PP)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Freigegeben", vk_Freigegeben)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_SendungId", vk_SendungId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_AvisoId", vk_AvisoId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_VermerkId", vk_VermerkId)) + + Return list + End Function + + + + Public Shared Function LOADByFilialeAbfNr(FilialeNr As Integer, AbfertigungsNr As Integer, Optional vk_Rolle As String = "") As cVorauskasse + Try + Dim VK As New cVorauskasse + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblVorauskassen WHERE vk_AbfertigungsNr=@vk_AbfertigungsNr AND vk_FilialeNr=@vk_FilialeNr " & If(If(vk_Rolle, "") <> "", "AND vk_Rolle=@vk_Rolle ", ""), conn) + cmd.Parameters.AddWithValue("@vk_FilialeNr", FilialeNr) + cmd.Parameters.AddWithValue("@vk_AbfertigungsNr", AbfertigungsNr) + cmd.Parameters.AddWithValue("@vk_Rolle", vk_Rolle) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In VK.getParameterList() + Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(VK, Nothing) + Else + propInfo.SetValue(VK, dr.Item(l.Text)) + End If + Next + dr.Close() + Return VK + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblVorauskassen WITH(updlock,serializable) WHERE vk_id=@vk_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + vk_id = SQL.doSQLVarListID(vk_id, sqlstr, "FMZOLL", , list) + Return vk_id > 0 + End Function + + + Public Function SET_GELDEINGANG(vk_GeldEingetroffen As Boolean, Optional vk_BH_Bemerkung As Object = Nothing) As Boolean + Me.vk_GeldEingetroffen = vk_GeldEingetroffen + Me.vk_Freigegeben = vk_GeldEingetroffen + + If Me.vk_GeldEingetroffen Then + Me.vk_BH_DatumGeldeingang = Now + Me.vk_BH_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id + Me.vk_BH_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + Else + Me.vk_BH_DatumGeldeingang = Nothing + Me.vk_BH_SachbearbeiterId = Nothing + Me.vk_BH_Sachbearbeiter = Nothing + End If + Me.vk_BH_Bemerkung = vk_BH_Bemerkung + + Return SAVE() + End Function + + Public Function SET_FREIGEGEBEN(vk_Freigegeben As Boolean, Optional vk_BH_Bemerkung As Object = Nothing) As Boolean + Me.vk_Freigegeben = vk_Freigegeben + Me.vk_BH_Bemerkung = vk_BH_Bemerkung + Return SAVE() + End Function + + Public Function SET_STORNO() As Boolean + Me.vk_storno = Not Me.vk_storno + Return SAVE() + End Function + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblVorauskassen WHERE vk_id=@vk_id ", conn) + cmd.Parameters.AddWithValue("@vk_id", vk_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblVorauskassen] SET " & str & " WHERE vk_id=@vk_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblVorauskassen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblVorauskassen] WITH(updlock,serializable) WHERE vk_id=" & Me.vk_id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cWarenbezeichnungBegriffe.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cWarenbezeichnungBegriffe.vb new file mode 100644 index 0000000..6b43830 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cWarenbezeichnungBegriffe.vb @@ -0,0 +1,134 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cWarenbezeichnungBegriffe + Property wb_id As Integer + Property wb_begriff As String + Property wb_beispiele As String + Property wb_datum As Date = Now + Property wb_Sachbearbeiter As String + Property wb_SachbearbeiterId As Integer + + + Public hasEntry As Boolean = False + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(wb_id) + If wb_id IsNot Nothing Then + Me.wb_id = wb_id + LOAD() + End If + End Sub + + Public 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("wb_id", wb_id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_begriff", wb_begriff)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_beispiele", wb_beispiele)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_datum", wb_datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_Sachbearbeiter", wb_Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_SachbearbeiterId", wb_SachbearbeiterId)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Me.wb_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + Me.wb_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblWarenbezeichnungBegriffe WITH(updlock,serializable) WHERE wb_id=@wb_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + wb_id = SQL.doSQLVarListID(wb_id, sqlstr, "FMZOLL", , list) + Return wb_id > 0 + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblWarenbezeichnungBegriffe WHERE wb_id=@wb_id ", conn) + cmd.Parameters.AddWithValue("@wb_id", wb_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + hasEntry = True + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [tblWarenbezeichnungBegriffe] SET " & str & " WHERE wb_id=@wb_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblWarenbezeichnungBegriffe (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblWarenbezeichnungBegriffe] WITH(updlock,serializable) WHERE wb_id=" & Me.wb_id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Shared Function DELETE(id As Integer) As Boolean + Dim SQL As New SQL + Dim sqlstr = " DELETE FROM [tblWarenbezeichnungBegriffe] WHERE wb_id=" & id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cZkteing.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cZkteing.vb new file mode 100644 index 0000000..669432b --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cZkteing.vb @@ -0,0 +1,181 @@ + +Imports System.Data.SqlClient + Imports System.Reflection + + +Public Class cZkteing + + Property Index As Integer = -1 + Property Status As Object = Nothing + Property ZollamtsNr As Object = Nothing + Property Jahr As Object = Nothing + Property KennNr As Object = Nothing + Property Nummer As Object = Nothing + Property Leitzahl As Object = Nothing + Property Belegart As Object = Nothing + Property LeistungsNr As Object = Nothing + Property Betrag As Object = Nothing + Property Eingabedatum As Date + Property Abfertigungsdatum As Object = Nothing + Property Übernahmedatum As Date + Property Bemerkung As Object = Nothing + Property Sachbearbeiter As String = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + Property Bezugsnummer As Object = Nothing + Property Registriernummer As Object = Nothing + Property Korrekturnummer As Object = Nothing + Property AOFD As Object = Nothing + Property AKTO As Object = Nothing + Property Fälligkeitsdatum As Object = Nothing + Property Dateiname As Object = Nothing + Property Mandant As Object = Nothing + Property Niederlassung As Object = Nothing + + Property LeistungsBez As Object = Nothing + + Public hasEntry As Boolean = False + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(Index) + Me.Index = Index + LOAD() + End Sub + + Shared Function UPDATE_Status(Status, Zkteing_Index) As Boolean + Dim ZK As New VERAG_PROG_ALLGEMEIN.cZkteing(Zkteing_Index) + If ZK IsNot Nothing AndAlso ZK.hasEntry Then + ZK.Status = Status + Return ZK.SAVE + End If + Return False + End Function + + Public 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("Index", Index, , True, True)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ZollamtsNr", ZollamtsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Jahr", Jahr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KennNr", KennNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nummer", Nummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leitzahl", Leitzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegart", Belegart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag", Betrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingabedatum", Eingabedatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Übernahmedatum", Übernahmedatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkung", Bemerkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezugsnummer", Bezugsnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Registriernummer", Registriernummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Korrekturnummer", Korrekturnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AOFD", AOFD)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AKTO", AKTO)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Dateiname", Dateiname)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant", Mandant)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Niederlassung", Niederlassung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez)) + + Return list + End Function + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Zkteing WITH(updlock,serializable) WHERE [Index]=@Index) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Index = SQL.doSQLVarListID(Index, sqlstr, "FMZOLL", , list) + Return Index > 0 + End Function + + + Public Sub LOAD() + hasEntry = False + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Zkteing WHERE [Index]=@Index ", conn) + cmd.Parameters.AddWithValue("@Index", Index) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 [Zkteing] SET " & str & " WHERE [Index]=@Index ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 Zkteing (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [Zkteing] WITH(updlock,serializable) WHERE Index=" & Me.Index + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + +End Class + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb new file mode 100644 index 0000000..b0db5c2 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb @@ -0,0 +1,173 @@ + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cZollArtikel + + Property zollArt_id As Integer + Property KundenNr As Integer + Property zollArt_Teilsatzschluessel As Object = Nothing + Property zollArt_Verarbeitungskennzeichen As Object = Nothing + Property zollArt_Artikelnummer As Object = Nothing + Property zollArt_Dynamische_Ergaenzung_1 As Object = Nothing + Property zollArt_Dynamische_Ergaenzung_2 As Object = Nothing + Property zollArt_Kundennummer As Object = Nothing + Property zollArt_Warencodenummer As Object = Nothing + Property zollArt_Zusatzcode_1 As Object = Nothing + Property zollArt_Zusatzcode_2 As Object = Nothing + Property zollArt_Kennzeichen_Gueltig As Object = Nothing + Property zollArt_Kurzbezeichnung As Object = Nothing + Property zollArt_Warenbeschreibung As Object = Nothing + Property zollArt_Statistische_Maßeinheit As Object = Nothing + Property zollArt_Statistische_Maßeinheit_Qualifikator As Object = Nothing + Property zollArt_Besondere_Maßeinheit As Object = Nothing + Property zollArt_Besondere_Maßeinheit_Qualifikator As Object = Nothing + Property zollArt_Gewicht As Object = Nothing + Property zollArt_Menge As Object = Nothing + Property Erfassungsdatum As Object = Nothing + Property Aenderungsdatum As Object = Nothing + Property Sachbearbeiter As Object = Nothing + Property zollArt_Status As Object = Nothing + + + Public hasEntry As Boolean = False + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(zollArt_id) + If zollArt_id IsNot Nothing Then + Me.zollArt_id = zollArt_id + LOAD() + End If + End Sub + + + Public 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("zollArt_id", zollArt_id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Teilsatzschluessel", zollArt_Teilsatzschluessel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Verarbeitungskennzeichen", zollArt_Verarbeitungskennzeichen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Artikelnummer", zollArt_Artikelnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Dynamische_Ergaenzung_1", zollArt_Dynamische_Ergaenzung_1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Dynamische_Ergaenzung_2", zollArt_Dynamische_Ergaenzung_2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Kundennummer", zollArt_Kundennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Warencodenummer", zollArt_Warencodenummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Zusatzcode_1", zollArt_Zusatzcode_1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Zusatzcode_2", zollArt_Zusatzcode_2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Kennzeichen_Gueltig", zollArt_Kennzeichen_Gueltig)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Kurzbezeichnung", zollArt_Kurzbezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Warenbeschreibung", zollArt_Warenbeschreibung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Statistische_Maßeinheit", zollArt_Statistische_Maßeinheit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Statistische_Maßeinheit_Qualifikator", zollArt_Statistische_Maßeinheit_Qualifikator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Besondere_Maßeinheit", zollArt_Besondere_Maßeinheit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Besondere_Maßeinheit_Qualifikator", zollArt_Besondere_Maßeinheit_Qualifikator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Gewicht", zollArt_Gewicht)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Menge", zollArt_Menge)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aenderungsdatum", Aenderungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Status", zollArt_Status)) + + + Return list + 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 tblZollArtikel WHERE zollArt_id=@zollArt_id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + zollArt_id = SQL.doSQLVarListID(zollArt_id, sqlstr, "FMZOLL", , list,, errHinweis) + Return zollArt_id > 0 + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("Select * FROM tblZollArtikel WHERE zollArt_id=@zollArt_id ", conn) + cmd.Parameters.AddWithValue("@zollArt_id", zollArt_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + hasEntry = True + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + 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 tblZollArtikel SET " & str & " WHERE zollArt_id=@zollArt_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblZollArtikel (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM tblZollArtikel WITH(updlock,serializable) WHERE zollArt_id=" & Me.zollArt_id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Shared Function DELETE(id As Integer) As Boolean + Dim SQL As New SQL + Dim sqlstr = " DELETE FROM tblZollArtikel WHERE zollArt_id=" & id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Classes/cZollTarifAtlas.vb b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cZollTarifAtlas.vb new file mode 100644 index 0000000..b6cc21c --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Classes/cZollTarifAtlas.vb @@ -0,0 +1,123 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cZollTarifAtlas_LIST + + Property LIST As New List(Of cZollTarifAtlas) + + Dim SQL As New SQL + + Sub New() + LOAD_LIST() + End Sub + + Public Sub LOAD_LIST() + Try + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionATLAS() + Using cmd As New SqlCommand("SELECT * FROM [ezttxt] WHERE [ezttxt_datend] >= getdate() ORDER BY [ezttxt_code] ", conn) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cZollTarifAtlas + 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 + + LIST.Add(l) + + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Function getFullTxt(WCNR As cZollTarifAtlas) As String + getFullTxt = WCNR.ezttxt_text + Dim index = getIndexInList(WCNR.ezttxt_code) + 'Dim hirachie = WCNR.ezttxt_hirnr + For hirachie = WCNR.ezttxt_hirnr To 0 Step -1 'so oft bis alle Hirachieebenen durchgelaufen sind + For i = index To 0 Step -1 + If LIST(i).ezttxt_hirnr = (hirachie - 1) Then + getFullTxt = WCNR.ezttxt_text & " " & getFullTxt + index = i + End If + Next + Next + End Function + + Function getFullTxtByCode(code As String) As String + Dim WCNR As cZollTarifAtlas = getFromList(code) + If WCNR Is Nothing Then Return "" + getFullTxtByCode = WCNR.ezttxt_text + Dim index = getIndexInList(WCNR.ezttxt_code) + + If index < 0 Then Return "" + If WCNR.ezttxt_hirnr > 0 Then + For hirachie = CInt(WCNR.ezttxt_hirnr) To 0 Step -1 'so oft bis alle Hirachieebenen durchgelaufen sind + For i = index To 0 Step -1 + If LIST(i).ezttxt_hirnr = (hirachie - 1) Then + getFullTxtByCode = LIST(i).ezttxt_text & " " & getFullTxtByCode + index = i + Exit For + End If + Next + Next + End If + End Function + + + Function getIndexInList(code) As Integer + For Each i In LIST + If i.ezttxt_code.trim = code.trim Then + Return LIST.IndexOf(i) + End If + Next + Return -1 + End Function + + Function getFromList(code) As cZollTarifAtlas + For Each i In LIST + If i.ezttxt_code = code Then + Return i + End If + Next + Return Nothing + End Function +End Class +Public Class cZollTarifAtlas + + Property ezttxt_code As Object = Nothing + Property ezttxt_hirnr As Object = Nothing + Property ezttxt_cdesid As Object = Nothing + Property ezttxt_datbeg As Object = Nothing + Property ezttxt_datend As Object = Nothing + Property ezttxt_txtart As Object = Nothing + Property ezttxt_text As Object = Nothing + Property ezttxt_edat As Object = Nothing + Property ezttxt_adat As Object = Nothing + Property ezttxt_sb As Object = Nothing + + 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("ezttxt_code", ezttxt_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_hirnr", ezttxt_hirnr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_cdesid", ezttxt_cdesid)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_datbeg", ezttxt_datbeg)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_datend", ezttxt_datend)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_txtart", ezttxt_txtart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_text", ezttxt_text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_edat", ezttxt_edat)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_adat", ezttxt_adat)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_sb", ezttxt_sb)) + + Return list + End Function +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb new file mode 100644 index 0000000..04d1ec0 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -0,0 +1,1919 @@ +Imports System.Data.SqlClient +Imports System.IO +Imports iTextSharp.text.pdf +Imports System.Drawing.Printing +Imports Ghostscript.NET.Processor +Imports System.Runtime.InteropServices +Imports System.Windows.Forms +Imports System.Drawing + + +Public Class cDATENSERVER + + Property da_id As Object = Nothing + Property da_kategorie As String = "" + Property da_ordner As String = "" + Property da_KundenNr As Integer = 0 + Property da_vorlage As Boolean = True + Property da_uOrdner1 As String = "" 'SDL: LKW + Property da_uOrdner2 As String = "" 'SDL: SDL_Leistung/... + Property da_uOrdner3 As String = "" 'SDL: History + Property da_name As String = "" + 'Property da_pfad As Object = Nothing + Property da_info As String = "" + Property da_multifiles As Boolean = False + + Public Property DATA_LIST As New cDatenserverIDCollectionList + + Dim rootDir = "" + Dim SQL As New SQL + ' Public LAST_ID = -1 + + + Sub New(da_id) + Me.da_id = da_id + Me.rootDir = DATENVERVER_OPTIONS.initRootDir() + LOADById() + End Sub + + + + Sub New(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name, Optional da_KundenNr = 0) + Me.rootDir = DATENVERVER_OPTIONS.initRootDir() + Me.da_KundenNr = da_KundenNr + Me.da_vorlage = (da_KundenNr <= 0) + Me.da_kategorie = da_kategorie + Me.da_ordner = da_ordner + Me.da_uOrdner1 = replaceInvalidCahr(If(da_uOrdner1, "")) + Me.da_uOrdner2 = replaceInvalidCahr(If(da_uOrdner2, "")) + Me.da_uOrdner3 = replaceInvalidCahr(If(da_uOrdner3, "")) + Me.da_name = da_name + LOAD() + End Sub + + + Sub New(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name, da_KundenNr, da_multifiles) + Me.rootDir = DATENVERVER_OPTIONS.initRootDir() + Me.da_KundenNr = da_KundenNr + Me.da_vorlage = (da_KundenNr <= 0) + Me.da_kategorie = da_kategorie + Me.da_ordner = da_ordner + Me.da_uOrdner1 = replaceInvalidCahr(If(da_uOrdner1, "")) + Me.da_uOrdner2 = replaceInvalidCahr(If(da_uOrdner2, "")) + Me.da_uOrdner3 = replaceInvalidCahr(If(da_uOrdner3, "")) + Me.da_name = da_name + Me.da_multifiles = da_multifiles + LOAD() + End Sub + + Public Function LOADById() As Boolean + Try + DATA_LIST = New cDatenserverIDCollectionList + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDatenarchiv WHERE da_id=@da_id ", conn) + cmd.Parameters.AddWithValue("@da_id", Me.da_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + ' Me.da_id = dr.Item("da_id") + Me.da_KundenNr = dr.Item("da_KundenNr") + Me.da_vorlage = dr.Item("da_vorlage") + Me.da_kategorie = dr.Item("da_kategorie") + Me.da_ordner = dr.Item("da_ordner") + Me.da_uOrdner1 = dr.Item("da_uOrdner1") + Me.da_uOrdner2 = dr.Item("da_uOrdner2") + Me.da_uOrdner3 = dr.Item("da_uOrdner3") + Me.da_name = dr.Item("da_name") + Me.da_info = dr.Item("da_info") + Me.da_multifiles = dr.Item("da_multifiles") + + DATA_LIST = New cDatenserverIDCollectionList(Me.da_id, rootDir) + End If + dr.Close() + End Using + End Using + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + + Public Function LOAD() As Boolean + Try + DATA_LIST = New cDatenserverIDCollectionList + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + 'MsgBox("SELECT * FROM tblDatenarchiv WHERE da_KundenNr = @da_KundenNr AND da_kategorie = '" & Me.da_kategorie & "' And da_ordner ='" & Me.da_ordner & "' AND da_uOrdner1= '" & Me.da_uOrdner1 & "' AND da_uOrdner2= '" & Me.da_uOrdner2 & "' AND da_uOrdner3= '" & Me.da_uOrdner3 & "' AND da_name='" & Me.da_name & "' ") + Using cmd As New SqlCommand("SELECT * FROM tblDatenarchiv WHERE da_KundenNr = @da_KundenNr AND da_kategorie = @da_kategorie AND da_ordner=@da_ordner AND da_uOrdner1= @da_uOrdner1 AND da_uOrdner2= @da_uOrdner2 AND da_uOrdner3= @da_uOrdner3 AND da_name=@da_name ", conn) + cmd.Parameters.AddWithValue("@da_KundenNr", Me.da_KundenNr) + ' cmd.Parameters.AddWithValue("@da_vorlage", Me.da_vorlage) + cmd.Parameters.AddWithValue("@da_kategorie", Me.da_kategorie) + cmd.Parameters.AddWithValue("@da_ordner", Me.da_ordner) + cmd.Parameters.AddWithValue("@da_uOrdner1", Me.da_uOrdner1) + cmd.Parameters.AddWithValue("@da_uOrdner2", Me.da_uOrdner2) + cmd.Parameters.AddWithValue("@da_uOrdner3", Me.da_uOrdner3) + cmd.Parameters.AddWithValue("@da_name", Me.da_name) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + Me.da_id = dr.Item("da_id") + Me.da_vorlage = dr.Item("da_vorlage") + Me.da_info = dr.Item("da_info") + Me.da_multifiles = dr.Item("da_multifiles") + + DATA_LIST = New cDatenserverIDCollectionList(Me.da_id, rootDir) + End If + dr.Close() + End Using + End Using + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + + 'Function REMANE_FOLDER(new_kategorie, new_ordner, new_uOrdner1, new_uOrdner2, new_uOrdner3, new_kdnr) + Function REMANE_FOLDER(old_kategorie, old_ordner, old_uOrdner1, old_uOrdner2, old_uOrdner3, old_kdnr, new_kategorie, new_ordner, new_uOrdner1, new_uOrdner2, new_uOrdner3, new_kdnr) + Dim oldDIR = DATENVERVER_OPTIONS.getDescPath(rootDir, old_kategorie, old_ordner, old_uOrdner1, old_uOrdner2, old_uOrdner3, old_kdnr, "", "", True) + If new_kategorie IsNot Nothing Then Me.da_kategorie = new_kategorie + If new_ordner IsNot Nothing Then Me.da_ordner = new_ordner + If new_uOrdner1 IsNot Nothing Then Me.da_uOrdner1 = new_uOrdner1 + If new_uOrdner2 IsNot Nothing Then Me.da_uOrdner2 = new_uOrdner2 + If new_uOrdner3 IsNot Nothing Then Me.da_uOrdner3 = new_uOrdner3 + Dim newDIR = DATENVERVER_OPTIONS.getDescPath(rootDir, new_kategorie, new_ordner, new_uOrdner1, new_uOrdner2, new_uOrdner3, new_kdnr, "", "", True) + + Try + ' My.Computer.FileSystem.RenameDirectory(oldDIR, newname) + For Each l In DATA_LIST.LIST + Dim newPfad = l.coll_pfad.Replace(oldDIR, newDIR) + If Not IO.Directory.Exists(newDIR) Then IO.Directory.CreateDirectory(newDIR) + My.Computer.FileSystem.CopyFile(l.coll_pfad, newPfad, True) + My.Computer.FileSystem.DeleteFile(l.coll_pfad) + l.coll_pfad = newPfad + If Not l.UPDATE() Then + Return False + End If + Next + Return UPDATE() + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + + + Function UPDATE() As Boolean + Try + 'If coll_id < 0 Then 'Wenn noch keine ID vergeben + 'Me.coll_id = getMaxId() + 'End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("UPDATE tblDatenarchiv SET da_KundenNr=@da_KundenNr,da_vorlage=@da_vorlage, da_kategorie=@da_kategorie, da_ordner=@da_ordner,da_uOrdner1=@da_uOrdner1, da_uOrdner2=@da_uOrdner2, da_uOrdner3=@da_uOrdner3, da_name=@da_name, da_info=@da_info, da_multifiles=@da_multifiles WHERE da_id=@da_id ", conn) + cmd.Parameters.AddWithValue("@da_KundenNr", da_KundenNr) + cmd.Parameters.AddWithValue("@da_vorlage", da_vorlage) + cmd.Parameters.AddWithValue("@da_kategorie", da_kategorie) + cmd.Parameters.AddWithValue("@da_ordner", da_ordner) + cmd.Parameters.AddWithValue("@da_uOrdner1", da_uOrdner1) + cmd.Parameters.AddWithValue("@da_uOrdner2", da_uOrdner2) + cmd.Parameters.AddWithValue("@da_uOrdner3", da_uOrdner3) + cmd.Parameters.AddWithValue("@da_name", da_name) + cmd.Parameters.AddWithValue("@da_info", da_info) + cmd.Parameters.AddWithValue("@da_multifiles", da_multifiles) + cmd.Parameters.AddWithValue("@da_id", da_id) + cmd.ExecuteNonQuery() + Return True + End Using + End Using + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End Try + End Function + + Public Shared Function replaceInvalidCahr(ByRef s As String) As String + + s = s.Replace("İ", "I") + s = s.Replace("İ", "I") + s = s.Replace("ı", "i") + s = s.Replace("€", "E") + s = s.Replace(",", ".") + s = s.Replace("^", "") ' Es gibt Ü, die so geschreiben werden: Ü .... + s = s.Replace("Ì", ".") + s = s.Replace("Ü", "U") ' .... das zum Beispiel + + + + Dim tempBytes = System.Text.Encoding.GetEncoding("ISO-8859-8").GetBytes(s) + s = System.Text.Encoding.UTF8.GetString(tempBytes) + + Return s + End Function + + Public Function uploadDataToDATENSERVER(srcPath, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False, Optional delteFromFileSystem = True) As Boolean + 'LAST_ID = -1 + If endung = "" Then Dim fi As New IO.DirectoryInfo(srcPath) : endung = fi.Extension + ' If bezeichnung = "" Then bezeichnung = System.IO.Path.GetFileName(srcPath) : endung = "" + If bezeichnung = "" Then bezeichnung = da_name + + Dim destpath = DATENVERVER_OPTIONS.getDescPath(rootDir, da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_KundenNr, replaceInvalidCahr(da_name), endung) + genHEADER_DATA() + + If Not da_multifiles Then + If allowMsg AndAlso DATA_LIST.LIST.Count > 0 Then + If Not vbYes = MsgBox("Die Datei existiert bereits. Soll die Datei ersetzt werden?", vbYesNoCancel) Then + Return False 'NICHT Passiert + End If + End If + DATA_LIST.DELETE_ALL(delteFromFileSystem) 'Wenn nur eine Datei existieren darf, müssen zuerst alle Einträge gelöscht werden + End If + + If DATA_LIST.ADD(srcPath, destpath, bezeichnung, "", coll_archiv) Then + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + + Return (destpath <> "") + End If + Return False + End Function + + Public Function insertDataToDATENSERVER(srcPath, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False) As Boolean + 'Datei musss schon am Datenserver liegen, wird nciht mehr kopiert!!!!! + + If endung = "" Then Dim fi As New IO.DirectoryInfo(srcPath) : endung = fi.Extension + ' If bezeichnung = "" Then bezeichnung = System.IO.Path.GetFileName(srcPath) : endung = "" + If bezeichnung = "" Then bezeichnung = da_name + replaceInvalidCahr(bezeichnung) + + genHEADER_DATA() + + If Not da_multifiles Then + DATA_LIST.DELETE_ALL() 'Wenn nur eine Datei existieren darf, müssen zuerst alle Einträge gelöscht werden + End If + If DATA_LIST.ADD_WOcopy(srcPath, bezeichnung, "", coll_archiv) Then + Return True + End If + Return False + + End Function + + + + Public Function uploadDataToDATENSERVER_fromBytes(bytes, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False) As Boolean + Try + Dim tmpPath = DATENVERVER_OPTIONS.getTMPPath(bezeichnung, endung, , True) ', Now.ToString("TMP_ddMMyyyy_HHmmSS_fff")) + File.WriteAllBytes(tmpPath, bytes) + Return uploadDataToDATENSERVER(tmpPath, bezeichnung, endung, allowMsg, coll_archiv) + Catch ex As Exception + Return False + End Try + End Function + + + Public Function uploadDataToDATENSERVER_fromBase64String(base64String, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False) As Boolean + Try + Dim bytes As Byte() = Convert.FromBase64String(base64String) + Return uploadDataToDATENSERVER_fromBytes(bytes, bezeichnung, endung, allowMsg, coll_archiv) + Catch ex As Exception + Return False + End Try + End Function + + Public Function DELETE_LIST_POS(coll_id) As Boolean + Return DATA_LIST.DELETE_ATPOS(coll_id) + End Function + + + Public Function uploadDataToDATENSERVERFileDialog(Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional typ = "", Optional coll_archiv = False) As String + Dim fd As New OpenFileDialog + ' fd.Filter = "Excel Dateien|*.xls;*.xlsx" + fd.RestoreDirectory = True + Select Case typ + Case "PIC" + fd.Title = "Bild auswählen" + ' fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + + fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG" + fd.FilterIndex = 2 + Case "PDF" + fd.Title = "PDF auswählen" + ' fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + fd.Filter = "PDF|*.PDF" + fd.FilterIndex = 2 + fd.DefaultExt = ".pdf" + End Select + Dim result As DialogResult = fd.ShowDialog() + + If result = System.Windows.Forms.DialogResult.OK And fd.FileName <> "" Then + If bezeichnung = "" Then + bezeichnung = System.IO.Path.GetFileName(fd.FileName).ToString + End If + replaceInvalidCahr(bezeichnung) + If da_name = "" Then Me.da_name = bezeichnung : LOAD() 'Wenn sich der Name ändert, muss eine neuer Header erstellt werden... + Return uploadDataToDATENSERVER(fd.FileName, bezeichnung, endung, allowMsg, coll_archiv) + End If + Return False + End Function + + Dim FD_ID = "" + Public Function uploadDataToDATENSERVERFileDialog_MULTI(Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional typ = "", Optional coll_archiv = False) As Boolean + Dim fd As New OpenFileDialog + fd.RestoreDirectory = True + fd.Multiselect = True + ' fd.Filter = "Excel Dateien|*.xls;*.xlsx" + Select Case typ + Case "PIC" + fd.Title = "Bild auswählen" + ' fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + + fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG" + fd.FilterIndex = 2 + Case "PDF" + fd.Title = "PDF auswählen" + ' fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + fd.Filter = "PDF|*.PDF" + fd.FilterIndex = 2 + fd.DefaultExt = ".pdf" + endung = ".pdf" + Case Else + fd.Title = "Datei auswählen" + + End Select + Dim result As DialogResult = fd.ShowDialog() + If result = System.Windows.Forms.DialogResult.OK And fd.FileNames.Count > 0 Then + FD_ID = fd.InitialDirectory + For Each f In fd.FileNames + Dim bezTmp = bezeichnung + If bezeichnung = "" Then + bezTmp = System.IO.Path.GetFileName(f).ToString + End If + 'If da_name = "" Then Me.da_name = bezeichnung : LOAD() 'Wenn sich der Name ändert, muss eine neuer Header erstellt werden... + uploadDataToDATENSERVER(f, bezTmp, endung, allowMsg, coll_archiv) + Next + Me.LOAD() 'neu laden, damit LIST aktualisiert wird + Return True + End If + Return False + End Function + + + Public Function genHEADER_DATA() As Integer + + Dim sqlstr As String = " begin tran" & + " if NOT EXISTS(select * FROM [tblDatenarchiv] WHERE da_KundenNr = @da_KundenNr AND da_kategorie = @da_kategorie AND da_ordner=@da_ordner AND da_uOrdner1=@da_uOrdner1 AND da_uOrdner2=@da_uOrdner2 AND da_uOrdner3=@da_uOrdner3 AND da_name=@da_name) " & + " begin " & + "INSERT INTO [tblDatenarchiv] " & + " ([da_KundenNr],[da_vorlage],[da_kategorie],[da_ordner],da_uOrdner1,da_uOrdner2,da_uOrdner3,[da_name],da_info,da_multifiles) " & + " VALUES (@da_KundenNr, @da_vorlage, @da_kategorie, @da_ordner, @da_uOrdner1,@da_uOrdner2,@da_uOrdner3,@da_name,@da_info,@da_multifiles)" & + " End " & + " commit tran " + + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sqlstr, conn) + cmd.Parameters.AddWithValue("@da_KundenNr", da_KundenNr) + cmd.Parameters.AddWithValue("@da_vorlage", da_vorlage) + cmd.Parameters.AddWithValue("@da_kategorie", da_kategorie) + cmd.Parameters.AddWithValue("@da_ordner", da_ordner) + cmd.Parameters.AddWithValue("@da_uOrdner1", da_uOrdner1) + cmd.Parameters.AddWithValue("@da_uOrdner2", da_uOrdner2) + cmd.Parameters.AddWithValue("@da_uOrdner3", da_uOrdner3) + cmd.Parameters.AddWithValue("@da_name", da_name) + cmd.Parameters.AddWithValue("@da_info", da_info) + cmd.Parameters.AddWithValue("@da_multifiles", da_multifiles) + cmd.ExecuteNonQuery() + + Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn) + Dim id = (newcmd.ExecuteScalar) + If id Is DBNull.Value Then + Return da_id + Else + 'Wenn insert+ + DATA_LIST.coll_daId = id + Me.da_id = id + Return id + End If + End Using + End Using + Return False + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + Return da_id + End Function + + + Public Function hasITEMS() As Boolean + Return DATA_LIST.LIST.Count > 0 + End Function + + + Public Function OPEN_SINGLE(Optional openFile As Boolean = True, Optional useBezeichnung As Boolean = False) As String + If DATA_LIST.LIST.Count > 0 Then + Return DATA_LIST.LIST(0).OPEN(openFile, useBezeichnung) + End If + Return "" + End Function + Public Function OPEN_SINGLE_ORIG(Optional openFile As Boolean = True) As String + If DATA_LIST.LIST.Count > 0 Then + Return DATA_LIST.LIST(0).OPEN_ORIG(openFile) + End If + Return "" + End Function + + Public Function OPEN(coll_id As Integer, Optional openFile As Boolean = True, Optional useBezeichnung As Boolean = False) As String + For Each l In DATA_LIST.LIST + If l.coll_id = coll_id Then + Return l.OPEN(openFile, useBezeichnung) + End If + Next + Return "" + End Function + + Public Function GET_TOP1_PATH(Optional openFile As Boolean = False) As String + If DATA_LIST.LIST.Count > 0 Then + If openFile Then OPEN(DATA_LIST.LIST(0).coll_id) + Return DATA_LIST.LIST(0).coll_pfad + End If + Return "" + End Function + + Public Shared Function GET_PDFPath_BY_DocID(docId As Integer, Optional openFile As Boolean = False) As String + Dim DS As New cDATENSERVER(docId) + Return DS.GET_TOP1_PATH(openFile) + End Function + + Public Shared Function GET_PDFPath_BY_DocID_onlyPATH(docId As Integer) As String + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql("SELECT TOP (1) [coll_pfad] FROM [tblDatenarchiv_Collection] where coll_daId=" & docId & " ORDER BY coll_date DESC", "FMZOLL") + End Function + + + + ' Public Function getPathByIdTOP1(da_id) As String + ' Try + ' Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([coll_pfad],'') FROM [tblDatenarchiv] INNER JOIN [tblDatenarchiv_Collection] ON [da_id]=[coll_daId] WHERE da_id='" & da_id & "' ", "FMZOLL") + ' Catch ex As Exception + ' Return "" + ' End Try + 'End Function + + + ' Public Function openDataTMPByDatenarchivIdTOP1(id) As Boolean + ' Try + + + ' Dim srcPath = SQL.getValueTxtBySql("SELECT TOP 1 isnull([coll_pfad],'') FROM [tblDatenarchiv] INNER JOIN [tblDatenarchiv_Collection] ON [da_id]=[coll_daId] WHERE da_id='" & da_id & "' ", "FMZOLL") + ' If Not IO.File.Exists(srcPath) Then MsgBox("Die Datei existiert nicht") : Exit Function + + ' Dim fi As New IO.DirectoryInfo(srcPath) + ' Dim destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension) + + + + + ' IO.File.Copy(srcPath, destPath, True) + + ' Process.Start(destPath) + + + ' Return True + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' Return False + ' End Try + 'End Function + + Public Function DELETE_COMPLETE() As Boolean + Try + If DATA_LIST.DELETE_ALL() Then + ' Dim path = SQL.getValueTxtBySql("SELECT TOP 1 isnull([coll_pfad],'') FROM [tblDatenarchiv] INNER JOIN [tblDatenarchiv_Collection] ON [da_id]=[coll_daId] WHERE da_id='" & da_id & "' ", "FMZOLL") + 'If path.Contains(rootDir) Then 'Um sicher zu gehen, dass der pfad im richtigem VZ ist. + ' saveFileToDel(path) + ' IO.File.Delete(path) + 'End If + SQL.doSQL("DELETE FROM [tblDatenarchiv] WHERE [da_id]=" & Me.da_id & " ", "FMZOLL") + 'SQL.doSQL("DELETE FROM [tblDatenarchiv_Collection] WHERE [coll_daId]=" & id & " ", "FMZOLL") + End If + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return False + End Try + Return True + End Function + + + + ' Public Function getLAST_ID(destpath) As Integer + ' Try + ' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + + ' Dim newcmd As New SqlCommand("select isnull(da_id,-1) from tblDatenarchiv with (updlock,serializable) where da_pfad = @da_pfad ", conn) + ' newcmd.Parameters.AddWithValue("@da_pfad", destpath) + ' Return CInt(newcmd.ExecuteScalar) + + ' End Using + ' Return False + ' Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + ' End Try + ' Return -1 + + 'End Function + +End Class + +Public Class cDatenserver_Change_Value + Property da_kategorie As String = "" + Property da_ordner As String = "" + Property da_KundenNr As Integer = 0 + Property da_uOrdner1 As String = "" 'SDL: LKW + Property da_uOrdner2 As String = "" 'SDL: SDL_Leistung/... + Property da_uOrdner3 As String = "" 'SDL: History + Sub New(da_kategorie, da_ordner, da_KundenNr, da_uOrdner1, da_uOrdner2, da_uOrdner3) + Me.da_kategorie = da_kategorie + Me.da_ordner = da_ordner + Me.da_KundenNr = da_KundenNr + Me.da_uOrdner1 = da_uOrdner1 + Me.da_uOrdner2 = da_uOrdner2 + Me.da_uOrdner3 = da_uOrdner3 + End Sub +End Class + +Public Class cFormularManager + 'Dim cDATENSERVER As New cDATENSERVER + + Shared Function open(ds_id, Optional openFile = True) As String + Dim DS As New cDATENSERVER(ds_id) + Return DS.OPEN_SINGLE(openFile) + End Function + + Shared Function open(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name, Optional da_KundenNr = 0, Optional openFile = True) As String + Dim DS As New cDATENSERVER(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name, da_KundenNr) + Return DS.OPEN_SINGLE(openFile) + End Function + + Public Sub fillGestellungsGarantie(kdnr As String, sprache As String) 'list As cKundenFMZOLL) + Dim name = "GenerelleGestellungsgarantieT1_DEUTSCH.pdf" + Select Case sprache + Case "DE" : name = "GenerelleGestellungsgarantieT1_DEUTSCH.pdf" + Case "EN" : name = "GenerelleGestellungsgarantieT1_ENGLISCH.pdf" + Case "NL" : name = "GenerelleGestellungsgarantieT1_NIEDERLAENDISCH.pdf" + Case "FR" : name = "GenerelleGestellungsgarantieT1_FRANZOESISCH.pdf" + End Select + + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + + If IsNumeric(kdnr) AndAlso kdnr > 0 Then + 'Dim KDSQL As New kundenSQL + 'Dim kd As cKundenFMZOLL = KDSQL.getKundeFMZOLLByKdNr(kdnr) + Dim KD As New cAdressen(kdnr) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FaxAn", KD.Telefax)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FaxVon", "")) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("zHd", KD.Ansprechpartner)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datum", Now.ToShortDateString)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firma", (KD.Name_1 & " " & KD.Name_2).Trim)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Adresse1", KD.Straße)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Adresse2", KD.LandKz & " " & KD.PLZ & " " & KD.Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Tel", KD.Telefon)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Fax", KD.Telefax)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ansprechpartner", KD.Ansprechpartner)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bestimmungszollamt", "")) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Anmerkung1", "")) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Anmerkung2", "")) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Anmerkung3", "")) + + End If + fillPDF(name, list, Nothing) + End Sub + + Public Sub fillVollmacht(kdnr As Integer, art As String) 'list As cKundenFMZOLL) + Dim name = "DE-ZOLLVOLLMACHT.pdf" + Dim kd As cKunde = Nothing + Dim ad As cAdressen = Nothing + + If IsNumeric(kdnr) AndAlso kdnr > 0 Then + ad = New cAdressen(kdnr) + kd = New cKunde(kdnr) + End If + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + + Select Case art + Case "ZVM_DE" + name = "DE-ZOLLVOLLMACHT.pdf" + If IsNumeric(kdnr) AndAlso kdnr > 0 Then + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("zHd", ad.Ansprechpartner)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firma", (ad.Name_1 & " " & ad.Name_2).Trim)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechtsform", getRechtsform(ad.Name_1 & " " & ad.Name_2).Trim)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Inhaber", "")) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Straße", ad.Straße)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PLZ_Ort", ad.PLZ & " " & ad.Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TelFax", ad.Telefon.Replace(" ", "") & " / " & ad.Telefax.Replace(" ", ""))) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UIDNr", ad.UstIdKz & ad.UstIdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORINr", kd.EORITIN)) + End If + Case "ZVM_DE_Englisch" + name = "DE-ZOLLVOLLMACHT Englisch.pdf" + If IsNumeric(kdnr) AndAlso kdnr > 0 Then + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Company", (ad.Name_1 & " " & ad.Name_2).Trim)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Street", ad.Straße)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Plz", ad.PLZ & " " & ad.Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TelFax", ad.Telefon.Replace(" ", "") & " / " & ad.Telefax.Replace(" ", ""))) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Email", ad.E_Mail)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TaxID", ad.UstIdKz & ad.UstIdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DutyNo", kd.EORITIN)) + End If + Case "ZVM_CS" + name = "AT-ZOLLVOLLMACHT.pdf" 'Customs Servie + If IsNumeric(kdnr) AndAlso kdnr > 0 Then + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firma", (ad.Name_1 & " " & ad.Name_2).Trim)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Straße", ad.Straße)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PLZ_Ort", ad.PLZ & " " & ad.Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Tel", ad.Telefon)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UIDNr", ad.UstIdKz & ad.UstIdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORINr", kd.EORITIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FA StNr", ad.Steuernummer)) + End If + Case "ZVM_CS_4200" + name = "AT-ZOLLVOLLMACHT 4200.pdf" + If IsNumeric(kdnr) AndAlso kdnr > 0 Then + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("zu Hd", ad.Ansprechpartner)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firmenname", (ad.Name_1 & " " & ad.Name_2).Trim)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechtsform", getRechtsform(ad.Name_1 & " " & ad.Name_2).Trim)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Einzelfirma", "")) 'inhaber + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Straße", ad.Straße)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PLZ_Ort", ad.PLZ & " " & ad.Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TelFax", ad.Telefon.Replace(" ", "") & " / " & ad.Telefax.Replace(" ", ""))) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UIDNr", ad.UstIdKz & ad.UstIdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORINr", kd.EORITIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FA StNr", ad.Steuernummer)) + End If + + End Select + + + + fillPDF(name, list, Nothing) + End Sub + + Sub fillImportaviso(kdnr As Integer, art As String) + Dim kd As cAdressen = Nothing + + If IsNumeric(kdnr) AndAlso kdnr > 0 Then + kd = New cAdressen(kdnr) + End If + Dim name = "Importaviso_Standard.pdf" + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + Select Case art + Case "Standard" + name = "Importaviso_Standard.pdf" + If IsNumeric(kdnr) AndAlso kdnr > 0 Then + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGContact", "")) ' AKT MA + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("To", kd.Ansprechpartner)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Company", (kd.Name_1 & " " & kd.Name_2).Trim)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Road", kd.Straße)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PostTown", kd.LandKz & " " & kd.PLZ & " " & kd.Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TelFax", kd.Telefon.Replace(" ", "") & " / " & kd.Telefax.Replace(" ", ""))) + End If + fillPDF(name, list, Nothing) + Case "Vorauskasse" + name = "Importaviso Vorauszahlung.xlt" 'SONDERFALL DA EXCEL + + Dim DS As New cDATENSERVER("DOKUMENTE", "VORLAGEN", "", "", "", name) + DS.OPEN_SINGLE(True) + + + 'Dim path_src As String = cDATENSERVER.getTOP1Path("DOKUMENTE", "VORLAGEN", , name) + 'If path_src = "" Then Exit Sub + 'Dim path As String = cDATENSERVER.openDataTMP(path_src, True) + 'If path = "" Then Exit Sub + + + End Select + + End Sub + + + Sub fillDispoliste(kdnr As Integer, art As String) + Dim name = "Dispoliste_TR.pdf" + Select Case art + Case "TR" : name = "Dispoliste_TR.pdf" + Case "EN" : name = "Dispoliste_EN.pdf" + End Select + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + If IsNumeric(kdnr) AndAlso kdnr > 0 Then + Dim kd As New cAdressen(kdnr) + ' Dim kd As cKundenFMZOLL = KDSQL.getKundeFMZOLLByKdNr(kdnr) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("zHd", kd.Ansprechpartner)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datum", Now.ToShortDateString)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("An", (kd.Name_1 & " " & kd.Name_2).Trim)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LkwKz", "")) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SB", "")) ' AKT MA + End If + fillPDF(name, list, Nothing) + End Sub + + Sub fillVerzollungspreise() + MsgBox("NOCH NICHT VERFÜGBAR") + Exit Sub + + Dim name = "Verzollungspreise_ohnePreise.pdf" + + Dim f As New Object 'frmVerzollungspreiseFuellen + If f.ShowDialog() = DialogResult.OK Then + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + ' Dim KDSQL As New kundenSQL + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Preis1", f.txtVerzollung.Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Preis2", f.txtTarifnummer.Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Preis3", f.txtPapierePorti.Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Preis4", f.txtSVS.Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Preis5", f.txtATLAS.Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PreisClearing", f.txtClearing.Text)) ' AKT MA + fillPDF(name, list, Nothing, , False) + End If + + End Sub + + + + + Sub fillCreditreform(kdnr As Integer) + Dim name = "Creditreform Bonität mit GF.pdf" + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + If IsNumeric(kdnr) AndAlso kdnr > 0 Then + Dim kd As New cAdressen(kdnr) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Heute", Now.ToShortDateString)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firma1", (kd.Name_1 & " " & kd.Name_2).Trim)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firma2", kd.Straße)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firma3", kd.LandKz & " " & kd.PLZ & " " & kd.Ort)) + End If + + + fillPDF(name, list, Nothing) + End Sub + + + + Public Sub fillPDF(vorlagenname As String, list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem), listToWrite As List(Of cPDFWriteValues), Optional editierbar As Boolean = True, Optional autoDruck As Boolean = False, Optional printerName As String = "", Optional barcode As Image = Nothing, Optional barcodeLKW As Image = Nothing, Optional uo2 As String = "") + Dim DS As New cDATENSERVER("DOKUMENTE", "VORLAGEN", "", uo2, "", vorlagenname) + If Not DS.hasITEMS Then Exit Sub + Dim path_src = DS.OPEN_SINGLE(False) + If path_src = "" Then Exit Sub + + Dim fi As New IO.DirectoryInfo(path_src) + Dim destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, True, False) + Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(path_src) + Using fw As New FileStream(destPath, FileMode.OpenOrCreate) + + Dim stamper = New PdfStamper(pdf, fw) + If True Then + Try + Dim f = stamper.AcroFields + f.GenerateAppearances = True + For Each i In list + f.SetField(i.Text, i.Value) + Next + Catch ex As Exception + + End Try + + If listToWrite IsNot Nothing Then + Dim overStr As PdfContentByte = stamper.GetOverContent(1) + For Each i In listToWrite + If i.Text <> "" Then write(overStr, i, pdf.GetPageSize(1).Height) + Next + + End If + + End If + If barcode IsNot Nothing Then + Try + + Dim n = pdf.NumberOfPages + Dim pagesize As iTextSharp.text.Rectangle + For cnt = 1 To pdf.NumberOfPages + + Dim over As PdfContentByte = stamper.GetOverContent(cnt) + pagesize = pdf.GetPageSize(cnt) + Dim x As Double = 15 'pagesize.Left + 10 + Dim y As Double = pagesize.Height / 2 - 100 'pagesize.Top - 50 + ' barcode = btnScale_Click2(barcode, 40) + barcode.RotateFlip(RotateFlipType.Rotate270FlipNone) + 'MsgBox(mm(pagesize.Height)) + Dim image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(barcode, System.Drawing.Imaging.ImageFormat.Png) + ' Dim image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(New Bitmap(80, 80), System.Drawing.Imaging.ImageFormat.Bmp) + image.SetAbsolutePosition(x, y) + + 'Dim r As iTextSharp.text.Image = iTextSharp.text.Rectangle + + + + 'image.Width = 35 + over.AddImage(image) + Next + + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End If + + + If barcodeLKW IsNot Nothing Then + Try + + Dim n = pdf.NumberOfPages + Dim pagesize As iTextSharp.text.Rectangle + For cnt = 1 To pdf.NumberOfPages + + Dim over As PdfContentByte = stamper.GetOverContent(cnt) + pagesize = pdf.GetPageSize(cnt) + Dim x As Double = 40 'pagesize.Left + 10 + Dim y As Double = pagesize.Top - 80 + + Dim image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(barcodeLKW, System.Drawing.Imaging.ImageFormat.Png) + image.SetAbsolutePosition(x, y) + + over.AddImage(image) + Next + + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End If + + + stamper.FormFlattening = Not editierbar + stamper.Close() + + If autoDruck Then + PrintViaGS(destPath, printerName) + 'If Not PrintFile(destPath, printerName) Then Process.Start(destPath) ' Druck! Wenn Problem, wird das PDF geöffnet + Else + Process.Start(destPath) + End If + fw.Close() + End Using + pdf.Close() + + End Sub + + Public Function fillPDFVorhandenesLokalesPDF_Path(path As String, listToWrite As List(Of cPDFWriteValues), Optional editierbar As Boolean = True, Optional autoDruck As Boolean = False, Optional printerName As String = "", Optional genNewPath As Boolean = True, Optional barcode As List(Of barcodeToPdf) = Nothing) As String + Return fillPDF("", "", "", "", "", "", listToWrite, editierbar, autoDruck, printerName, genNewPath, path, barcode) + End Function + + Public Function fillPDF(da_kategorie As String, da_ordner As String, da_uOrdner1 As String, da_uOrdner2 As String, da_uOrdner3 As String, da_name As String, listToWrite As List(Of cPDFWriteValues), Optional editierbar As Boolean = True, Optional autoDruck As Boolean = False, Optional printerName As String = "", Optional genNewPath As Boolean = True, Optional vorhandenesLokalesPDF_Path As String = "", Optional barcode As List(Of barcodeToPdf) = Nothing) As String + Try + Dim path_src = "" + If vorhandenesLokalesPDF_Path = "" Then + Dim DS As New cDATENSERVER(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name) + If Not DS.hasITEMS Then Return "" + path_src = DS.GET_TOP1_PATH + Else + path_src = vorhandenesLokalesPDF_Path + End If + + Dim fi As New IO.DirectoryInfo(path_src) + Dim destPath = "" + destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, True, False) + + Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(path_src) + Using fw As New FileStream(destPath, FileMode.OpenOrCreate) + + Dim stamper = New PdfStamper(pdf, fw) + If True Then + If listToWrite IsNot Nothing Then + Dim overStr As PdfContentByte = stamper.GetOverContent(1) + For Each i In listToWrite + If i.Text <> "" Then write(overStr, i, pdf.GetPageSize(1).Height) + Next + End If + End If + + If barcode IsNot Nothing Then + For Each bc As barcodeToPdf In barcode + Try + ' Dim n = pdf.NumberOfPages + Dim pagesize As iTextSharp.text.Rectangle + Dim over As PdfContentByte = stamper.GetOverContent(bc.onpage) + pagesize = pdf.GetPageSize(bc.onpage) + 'Dim x As Double = 40 'pagesize.Left + 10 + 'Dim y As Double = pagesize.Top - 80 + bc.image.RotateFlip(bc.rotate) + + Dim image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(bc.image, System.Drawing.Imaging.ImageFormat.Png) + image.SetAbsolutePosition(bc.x, pagesize.Top - bc.y) + over.AddImage(image) + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Next + End If + + + stamper.FormFlattening = Not editierbar + stamper.Close() + + If autoDruck Then + PrintViaGS(destPath, printerName) + Else + 'Process.Start(destPath) + + End If + fw.Close() + End Using + pdf.Close() + Return destPath + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return "" + End Try + + End Function + + + Public Shared f_bold As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA_BOLD, BaseFont.WINANSI, BaseFont.NOT_EMBEDDED) + Public Shared f_normal As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.WINANSI, BaseFont.NOT_EMBEDDED) + Shared Function getFont(t) As BaseFont + If t = "bold" Then Return f_bold + If t = "normal" Then Return f_normal + Return Nothing + End Function + + Shared Function mm(pnt As Double) As Integer + Return CInt(iTextSharp.text.Utilities.MillimetersToPoints(pnt)) + End Function + Public Shared Sub write(ByVal cb As PdfContentByte, i As cPDFWriteValues, pageHeight As Integer) ' ByVal Text As String, ByVal X As Integer, ByVal Y As Integer, ByVal height As Integer, ByVal width As Integer, ByVal font As String, ByVal Size As Integer, Optional maxlength As Integer = -1, Optional align As Integer = PdfContentByte.ALIGN_LEFT) + Dim myCol As New ColumnText(cb) + Dim f As iTextSharp.text.Font = New iTextSharp.text.Font(1, i.Size, 0) + + Select Case i.font + 'Case "normal" + ' f = New iTextSharp.text.Font(1, i.Size, 0) + Case "bold" + f = New iTextSharp.text.Font(1, i.Size, 1) + Case "boldRed" + f = New iTextSharp.text.Font(1, i.Size, 1) + f.Color = iTextSharp.text.BaseColor.RED + Case "italic" + f = New iTextSharp.text.Font(1, i.Size, 2) + Case "underine" + f = New iTextSharp.text.Font(1, i.Size, 4) + End Select + Dim paragraph = New iTextSharp.text.Paragraph(New iTextSharp.text.Chunk(CStr(i.Text), f)) '1=Helvetica + + pageHeight = CInt(iTextSharp.text.Utilities.PointsToMillimeters(pageHeight)) ' in mm + + myCol.SetSimpleColumn(mm(i.getX), mm(pageHeight - i.getY - i.getHeight), mm(i.getX + i.getWidth), mm(pageHeight - i.getY), i.Size, i.getAlign) + + ' + ' 1. the phrase + ' 2. lower -Left() - x + ' 3. lower -Left() - y + ' 4. upper -Right() - x(llx + width) + ' 5. upper -Right() - y(lly + height) + ' 6. leading (The amount of blank space between lines of print) + ' 7. alignment. + + myCol.AddText(paragraph) + myCol.Go() + End Sub + + + Function btnScale_Click(bm_source As Bitmap, height As Integer) As Bitmap + + + Dim width As Integer = bm_source.Width / (bm_source.Height / height) + ' Make a bitmap for the result. + Dim bm_dest As New Bitmap(width, height) + + ' Make a Graphics object for the result Bitmap. + Dim gr_dest As Graphics = Graphics.FromImage(bm_dest) + + ' Copy the source image into the destination bitmap. + gr_dest.DrawImage(bm_source, 0, 0, + bm_dest.Width + 1, + bm_dest.Height + 1) + + ' Display the result. + Return bm_dest + End Function + Function btnScale_Click2(bm_source As Bitmap, height As Integer) As Bitmap + + + Dim width As Integer = bm_source.Width * 0.7 + ' Make a bitmap for the result. + Dim bm_dest As New Bitmap(width, height) + + ' Make a Graphics object for the result Bitmap. + Dim gr_dest As Graphics = Graphics.FromImage(bm_dest) + + ' Copy the source image into the destination bitmap. + gr_dest.DrawImage(bm_source, 0, 0, + bm_dest.Width + 1, + bm_dest.Height + 1) + + ' Display the result. + Return bm_dest + End Function + + Public Shared Function PrintFile(fileName As String, printerName As String) As Boolean + Try + + Dim psi As New ProcessStartInfo + + psi.UseShellExecute = True + psi.CreateNoWindow = True + + psi.Verb = "PrintTo" + + psi.WindowStyle = ProcessWindowStyle.Hidden + + If printerName <> "" Then + psi.Arguments = printerName + Else + Dim p As New PrintDialog + If (p.ShowDialog() = DialogResult.OK) Then + psi.Arguments = p.PrinterSettings.PrinterName + Else + Return False + End If + End If + + psi.FileName = fileName ' Need to replace this with a string based on the textbox1 input and add .pdf to the string and the location of it for printing. + + Using P As New Process + ' P.StartInfo = psi + P.StartInfo.UseShellExecute = True + P.StartInfo.CreateNoWindow = True + P.StartInfo.Arguments = printerName + P.StartInfo.WindowStyle = ProcessWindowStyle.Hidden + P.StartInfo.Verb = "PrintTo" + ' P.StartInfo.FileName = PDFs(PDFs.Count - 1) + 'P.StartInfo.Verb = "Print" + P.Start() + P.WaitForExit() + End Using + + 'Process.Start(psi) + Return True + Catch ex As Exception + Return False + End Try + End Function + + '??????????????????????????????????????????'??????????????????????????????????????????'??????????????????????????????????????????'??????????????????????????????????????????'?????????????????????????????????????????? + 'Dim pdftmp As New Spire.PdfViewer.Forms.PdfViewer + ' pdftmp.LoadFromFile("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf") + ' pdftmp.Print() + + ' Dim docs As PdfDocument() = {New PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")} + ' For Each doc As PdfDocument In docs + ' doc.PageSettings.Size = PdfPageSize.A4 + ' doc.PrintDocument.DefaultPageSettings.Landscape = True + ' doc.PageScaling = PdfPrintPageScaling.FitSize + ' doc.PrinterName = "ES3452 MFP(PCL)" + ' doc.PrintDocument.Print() + ' Next + Public Shared Sub PrintViaSpirePDF(PDFFile As List(Of String), Optional printerName As String = "") + PrintViaSpirePDF(PDFFile.ToArray, printerName) + End Sub + + + Public Shared Sub mergePDFs(files As List(Of String), ByRef outputFile As String) + Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray) + doc.Save(outputFile, Spire.Pdf.FileFormat.PDF) + + End Sub + + + + + Public Shared Sub PrintViaSpirePDF(PDFFile As String(), Optional printerName As String = "") + Try + If printerName = "" Then + Dim oPS As New System.Drawing.Printing.PrinterSettings + printerName = oPS.PrinterName + End If + 'Dim docs As Spire.Pdf.PdfDocument() = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")} + + For Each pdfPath In PDFFile + Dim doc As New Spire.Pdf.PdfDocument(pdfPath) + + doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 + doc.PrintDocument.DefaultPageSettings.Landscape = True + doc.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize + + doc.PrinterName = printerName + doc.PrintDocument.Print() + + + 'Dim doc As New Spire.Pdf.PdfDocument + 'doc.LoadFromFile(pdfPath) + 'doc.Pages(0).TryCompressImage(0) + ''signature.SetSignNameWidth(float width); + 'doc.SaveToFile("C:\Users\DEVELOPER1\Desktop\TEST.pdf", 0, 0, Spire.Pdf.FileFormat.PDF) + + + 'Dim doc2 As New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\TEST.pdf") + 'doc2.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 + 'doc2.PrintDocument.DefaultPageSettings.Landscape = True + 'doc2.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize + + 'doc2.PrinterName = printerName + 'doc2.PrintDocument.Print() + Next + + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + + + 'Public Shared Sub PrintViaitext7(PDFFile As String(), Optional printerName As String = "") + ' Try + + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' End Try + 'End Sub + + + Public Shared Sub Print_PICTURE(File As String(), Optional printerName As String = "") + Try + If printerName = "" Then + Dim oPS As New System.Drawing.Printing.PrinterSettings + printerName = oPS.PrinterName + End If + 'Dim docs As Spire.Pdf.PdfDocument() = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")} + + + + + + + + For Each pdfPath In File + + Dim printer As PrintDocument = New PrintDocument + AddHandler printer.PrintPage, Sub(snd As Object, ev As PrintPageEventArgs) + Dim img As Image = Image.FromFile(pdfPath) + ev.Graphics.DrawImage(img, ev.PageBounds) + End Sub + ' printer.PrinterSettings.DefaultPageSettings.PrintableArea. + printer.Print() + 'Dim PrintDocument1 As PrintDocument = New PrintDocument + 'PrintDocument1.DocumentName = pdfPath + ''PrintDialog1.Document = PrintDocument1 + ''PrintDocument1.PrinterSettings. + 'PrintDocument1.Print() + + Next + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + Public Shared Sub PrintViaSpirePDF_FromURL(URLs As String(), Optional printerName As String = "") + Try + If printerName = "" Then + Dim oPS As New System.Drawing.Printing.PrinterSettings + printerName = oPS.PrinterName + End If + 'Dim docs As Spire.Pdf.PdfDocument() = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")} + + 'For Each doc As Spire.Pdf.PdfDocument In docs + For Each pdfPath In URLs + 'Dim doc As New Spire.Pdf.PdfDocument() + + Using webClient As New Net.WebClient() + Dim data() As Byte = webClient.DownloadData(pdfPath) + Using stream As New MemoryStream(data) + Dim doc As Spire.Pdf.PdfDocument = New Spire.Pdf.PdfDocument(stream) + If doc IsNot Nothing Then + doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 + doc.PrintDocument.DefaultPageSettings.Landscape = True + doc.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize + doc.PrinterName = printerName + doc.PrintDocument.Print() + End If + End Using + End Using + + ' doc.LoadFromHTML(pdfPath, True, True, True) + + Next + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + Shared Function getTMPPath_PDF() As String + Return System.IO.Path.GetTempPath() & Guid.NewGuid().ToString() & ".pdf" + End Function + + Public Shared Function getPDFViaSpirePDF_FromURL(URL As String, Optional targetPath As String = "") As String + Try + If targetPath = "" Then targetPath = getTMPPath_PDF() + + Dim doc As New Spire.Pdf.PdfDocument '= New Spire.Pdf.PdfDocument(URL) + doc.LoadFromHTML(URL, True, True, True) + If doc IsNot Nothing Then + doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 + doc.PrintDocument.DefaultPageSettings.Landscape = True + doc.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize + ' doc.PrinterName = printerName + ' doc.PrintDocument.Print() + doc.SaveToFile(targetPath) + End If + + 'For Each doc As Spire.Pdf.PdfDocument In docs + 'Dim doc As New Spire.Pdf.PdfDocument() + + 'Using webClient As New Net.WebClient() + ' Dim data() As Byte = webClient.DownloadData(URL) + ' Using stream As New MemoryStream(data) + ' Dim doc As Spire.Pdf.PdfDocument = New Spire.Pdf.PdfDocument(stream) + ' If doc IsNot Nothing Then + ' doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 + ' doc.PrintDocument.DefaultPageSettings.Landscape = True + ' doc.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize + ' ' doc.PrinterName = printerName + ' ' doc.PrintDocument.Print() + ' doc.SaveToFile(targetPath) + ' End If + ' End Using + 'End Using + + ' doc.LoadFromHTML(pdfPath, True, True, True) + + + Return targetPath + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return "" + End Function + + + + Public Shared Sub PrintViaGS(PDFFile As String, printerName As String) + Try + Dim assembly = System.Reflection.Assembly.GetExecutingAssembly() + Dim location As String = assembly.CodeBase + Dim fullPath As String = New Uri(location).LocalPath + Dim directoryPath As String = Path.GetDirectoryName(fullPath) + + Dim MyP As New System.Diagnostics.Process + MyP.StartInfo.FileName = directoryPath & "\Resources\GS\gswin32c.exe" + Dim sw As New List(Of String)() + + 'MyP.StartInfo.Arguments = "-dPrinted -dBATCH -dNOPAUSE -dNOSAFER -dPDFFitPage -dNumCopies=1 -dNoCancel -sDEVICE=mswinpr2 " & (Convert.ToString("-sOutputFile=%printer%") & printerName) & " -f" & PDFFile + ' MyP.StartInfo.Arguments = "-dPrinted -dBATCH -dNOPAUSE -dNOSAFER -dPDFFitPage -dNumCopies=1 -dNoCancel -sDEVICE=mswinpr2 -sOutputFile=" & PDFFile ' & " -f" & PDFFile + + 'OK MyP.StartInfo.Arguments = "-dPrinted -dBATCH -dNOPROMPT -dNOSAFER -dPDFFitPage -dNumCopies=1 -dNoCancel -sDEVICE=ppmraw -sOutputFile=""%printer%" & printerName & """ -f " & PDFFile + ' MyP.StartInfo.Arguments = "-dPrinted -dBATCH -dNOPROMPT -dNOSAFER -dQUIET -dNOPAUSE -dNOSAFER -sDEVICE=mswinpr2 -dPDFFitPage -dNumCopies=1 -dNoCancel -sOutputFile=""%printer%" & printerName & """ -f " & PDFFile + MyP.StartInfo.Arguments = "-dPrinted -dBATCH -dNOPROMPT -dNOSAFER -dQUIET -dNOPAUSE -dNOSAFER -sDEVICE=mswinpr2 -dPDFFitPage -dNumCopies=1 -dNoCancel -sOutputFile=""%printer%" & printerName & """ -f " & PDFFile + + '-dQUIET -sDEVICE=jpeg mswinpr2 + ' MsgBox(MyP.StartInfo.Arguments) + MyP.StartInfo.UseShellExecute = False + MyP.StartInfo.CreateNoWindow = True + ' MyP.StartInfo.WindowStyle = ProcessWindowStyle.Hidden + MyP.StartInfo.RedirectStandardOutput = True + MyP.StartInfo.RedirectStandardError = True + MyP.StartInfo.CreateNoWindow = True + + MyP.Start() + + + ' Using processor As New GhostscriptProcessor() + ' Dim switches As New List(Of String)() + ' switches.Add("-empty") + 'switches.Add("-dPrinted") + 'switches.Add("-dBATCH") + 'switches.Add("-dNOPAUSE") + 'switches.Add("-dNOSAFER") + 'switches.Add("-dPDFFitPage") + 'switches.Add("-dNumCopies=1") + 'switches.Add("-sDEVICE=mswinpr2") 'mswinpr2 + 'switches.Add("-dNoCancel") + 'switches.Add(Convert.ToString("-sOutputFile=%printer%") & printerName) + 'switches.Add("-f") + 'switches.Add(PDFFile) + 'processor.StartProcessing(switches.ToArray(), Nothing) + 'End Using + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + + + Public Shared Function PrintFadile2(fileName As String, printerName As String) As Boolean + PrintViaGS(fileName, printerName) + Return True + ' Dim rasterizer As Ghostscript.NET.Rasterizer.GhostscriptRasterizer + + Dim rasterizer = New Ghostscript.NET.Rasterizer.GhostscriptRasterizer + rasterizer.Open(fileName) + '//Image page = rasterizer.GetPage(96,96); <-- this one prints ok + Dim page As Image = rasterizer.GetPage(600, 600, 1) + ' doc.DocumentName = fileName + + Dim doc As New PrintDocument + doc.PrinterSettings.PrinterName = printerName + doc.PrinterSettings.Copies = 1 + ' doc.PrinterSettings.PaperSizes + AddHandler doc.PrintPage, Sub(send As System.Object, ev As System.Drawing.Printing.PrintPageEventArgs) + Dim g As Graphics = ev.Graphics + g.DrawImage(page, 5, 5) + End Sub + doc.Print() + + + End Function + + + + Function getRechtsform(firma) As String + If firma.Trim.Replace(" ", "").ToLower.EndsWith("GMBH&COKG".ToLower) Then Return "GMBH & CO KG" + If firma.Trim.Replace(" ", "").ToLower.EndsWith("GMBH".ToLower) Then Return "GMBH" + If firma.Trim.ToLower.EndsWith(" AG".ToLower) Then Return "Aktiengesellschaft" + If firma.Trim.ToLower.EndsWith(" OG".ToLower) Then Return "Offene Gesellschaft" + If firma.Trim.Replace(" ", "").ToLower.EndsWith("e.U.".ToLower) Then Return "Eingetragenes Einzelunternehmen" + If firma.Trim.Replace(" ", "").ToLower.EndsWith("GesbR".ToLower) Then Return "Gesellschaft bürgerl. Rechts" + If firma.Trim.Replace(" ", "").ToLower.EndsWith("GesmbH".ToLower) Then Return "GMBH" + If firma.Trim.Replace(" ", "").ToLower.EndsWith("Ges.mbH".ToLower) Then Return "GMBH" + If firma.Trim.Replace(" ", "").ToLower.EndsWith("Ges.m.b.H.".ToLower) Then Return "GMBH" + If firma.Trim.ToLower.EndsWith(" KEG".ToLower) Then Return "Kommanditerwerbsgesellschaft" + If firma.Trim.ToLower.EndsWith(" KG".ToLower) Then Return "Kommanditgesellschaft " + If firma.Trim.ToLower.EndsWith(" OEG ".ToLower) Then Return "Offene Erwerbsgesellschaft" + If firma.Trim.ToLower.EndsWith(" OHG ".ToLower) Then Return "Offene Handelsgesellschaft" + If firma.Trim.ToLower.EndsWith(" SCE".ToLower) Then Return "Europäische Genossenschaft" + If firma.Trim.ToLower.EndsWith(" SE".ToLower) Then Return "Europäische Gesellschaft" + Return "" + End Function + +End Class + + + +Public Class cDatenarchiv_Collection + + Property coll_id As Object = Nothing + Property coll_daId As Object = Nothing + Property coll_bezeichnung As String = "" + Property coll_pfad As String = "" + Property coll_info As String = "" + Property coll_date As Date = Now + Property coll_archiv As Boolean = False + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New(coll_daId, coll_pfad, coll_bezeichnung, coll_info, coll_archiv) + Me.coll_daId = coll_daId + Me.coll_pfad = coll_pfad + Me.coll_bezeichnung = coll_bezeichnung + Me.coll_info = coll_info + Me.coll_archiv = coll_archiv + End Sub + + Sub New(coll_id, coll_daId, coll_pfad, coll_bezeichnung, coll_info, coll_archiv) + Me.coll_id = coll_id + Me.coll_daId = coll_daId + Me.coll_pfad = coll_pfad + Me.coll_bezeichnung = coll_bezeichnung + Me.coll_info = coll_info + Me.coll_archiv = coll_archiv + End Sub + + Public Function DELETE() As Boolean + Try + If coll_pfad.Contains(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir) Then '"\\192.168.0.91\DATENARCHIV\") Then 'Um sicher zu gehen, dass der pfad im richtigem VZ ist. + If My.Computer.FileSystem.FileExists(coll_pfad) Then + saveFileToDel(coll_pfad) + Try + IO.File.Delete(coll_pfad) + Catch : End Try + Return SQL.doSQL("DELETE FROM [tblDatenarchiv_Collection] WHERE [coll_id]=" & coll_id & " ", "FMZOLL") + Else + Return True + End If + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + + Sub saveFileToDel(path) + Dim delPath = "" + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + delPath = path.Replace("\DATENARCHIV_TESTSYSTEM\", "\DATENARCHIV_TESTSYSTEM\DELETE\") + Else + delPath = path.Replace("\DATENARCHIV\", "\DATENARCHIV\DELETE\") + '\\192.168.0.91\Datenarchiv\DOKUMENTE\VORLAGEN\FISKALSCHREIBEN + End If + If Not IO.Directory.Exists(delPath.Substring(0, delPath.LastIndexOf("\"))) Then IO.Directory.CreateDirectory(delPath.Substring(0, delPath.LastIndexOf("\"))) + If IO.File.Exists(delPath) Then + If delPath.Contains(".") Then + Dim commaIndex = delPath.LastIndexOf(".") + delPath = delPath.Substring(0, commaIndex) + Now.ToString("_del_ddMMyyyy_HHmmss") + delPath.Substring(commaIndex) ' + 1) + ' delPath = delPath.Substring(0, delPath.LastIndexOf(".") - 1) & Now.ToString("_ddMMyyyy_HHmmss") & delPath.Substring(delPath.LastIndexOf("."), delPath.LastIndexOf(".") - 1) + ' delPath.LastIndexOf(".") + ' delPath.Replace(".", Now.ToString("_ddMMyyyy_HHmmss") & ".") + End If + End If + IO.File.Copy(path, delPath) + End Sub + + Function INSERT() As Integer + Try + 'If coll_id < 0 Then 'Wenn noch keine ID vergeben + 'Me.coll_id = getMaxId() + 'End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("INSERT INTO tblDatenarchiv_Collection (coll_daId,coll_pfad, coll_bezeichnung, coll_info,coll_archiv) VALUES (@coll_daId,@coll_pfad, @coll_bezeichnung, @coll_info,@coll_archiv) ", conn) + cmd.Parameters.AddWithValue("@coll_daId", coll_daId) + cmd.Parameters.AddWithValue("@coll_pfad", coll_pfad) + cmd.Parameters.AddWithValue("@coll_bezeichnung", coll_bezeichnung) + cmd.Parameters.AddWithValue("@coll_info", coll_info) + cmd.Parameters.AddWithValue("@coll_archiv", coll_archiv) + + cmd.ExecuteNonQuery() + Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn) + Dim id = CInt(newcmd.ExecuteScalar) + Me.coll_id = id + Return id + End Using + End Using + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return -1 + End Try + End Function + + Function UPDATE() As Boolean + Try + 'If coll_id < 0 Then 'Wenn noch keine ID vergeben + 'Me.coll_id = getMaxId() + 'End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("UPDATE tblDatenarchiv_Collection SET coll_daId=@coll_daId,coll_pfad=@coll_pfad, coll_bezeichnung=@coll_bezeichnung, coll_info=@coll_info,coll_archiv=@coll_archiv WHERE [coll_id]=@coll_id ", conn) + cmd.Parameters.AddWithValue("@coll_id", coll_id) + cmd.Parameters.AddWithValue("@coll_daId", coll_daId) + cmd.Parameters.AddWithValue("@coll_pfad", coll_pfad) + cmd.Parameters.AddWithValue("@coll_bezeichnung", coll_bezeichnung) + cmd.Parameters.AddWithValue("@coll_info", coll_info) + cmd.Parameters.AddWithValue("@coll_archiv", coll_archiv) + cmd.ExecuteNonQuery() + Return True + End Using + End Using + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End Try + End Function + + Public Function OPEN(Optional openFILE As Boolean = True, Optional useBezeichnung As Boolean = False) As String + If Not IO.File.Exists(coll_pfad) Then MsgBox("Die Datei existiert nicht") : Return "" + + Dim fi As New IO.DirectoryInfo(coll_pfad) + Dim destPath = "" + If useBezeichnung Then + destPath = DATENVERVER_OPTIONS.copyToTmp_KeepFilename(coll_pfad, coll_bezeichnung) + Else + destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, , False) + End If + ' MsgBox(destPath) + IO.File.Copy(coll_pfad, destPath, True) + If openFILE Then Process.Start(destPath) + Return destPath + End Function + + + Public Function OPEN_ORIG(Optional openFILE As Boolean = True) As String + If Not IO.File.Exists(coll_pfad) Then MsgBox("Die Datei existiert nicht") : Return "" + + If openFILE Then Process.Start(coll_pfad) + Return coll_pfad + End Function + + + +End Class + + +Public Class cDatenserverIDCollectionList + Property coll_daId = -1 + Property rootDir = "" + Property LIST As New List(Of cDatenarchiv_Collection) + Public lastID = -1 + + Sub New() + + End Sub + + Sub New(coll_daId, rootDir) + Me.coll_daId = coll_daId + Me.rootDir = rootDir + LOAD() + End Sub + + Public Sub LOAD() + Try + LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + 'Using cmd As New SqlCommand("SELECT coll_id, coll_daId, da_pfad, da_name FROM tblDatenarchiv_Collection INNER JOIN tblDatenarchiv ON coll_daId=da_id WHERE coll_id=@coll_id ", conn) + Using cmd As New SqlCommand("SELECT coll_id, coll_daId, coll_pfad, coll_bezeichnung,coll_info,coll_archiv FROM tblDatenarchiv_Collection WHERE coll_daId=@coll_daId order by coll_bezeichnung ", conn) ' order by [coll_date] desc + cmd.Parameters.AddWithValue("@coll_daId", Me.coll_daId) + Dim dr = cmd.ExecuteReader() + 'LIST = New List(Of cDatenarchiv_Collection) + While dr.Read + LIST.Add(New cDatenarchiv_Collection(dr.Item("coll_id"), dr.Item("coll_daId"), dr.Item("coll_pfad"), dr.Item("coll_bezeichnung"), dr.Item("coll_info"), dr.Item("coll_archiv"))) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + + + Public Function getMaxId() As Integer + getMaxId = -1 + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT isnull(max(coll_id),0)+1 FROM tblDatenarchiv_Collection ", conn) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + getMaxId = dr.Item(0) + End If + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Function + + Function ADD(srcpath, destPath, coll_bezeichnung, coll_info, coll_archiv) As Boolean + Try + Dim l As New cDatenarchiv_Collection(coll_daId, destPath, coll_bezeichnung, coll_info, coll_archiv) + Dim ID = l.INSERT() + If ID > 0 Then + 'COPY + Dim errorMsg = "ERR" + If COPY_FILE(srcpath, destPath, errorMsg) Then + ' Der Eintrag wird in die Liste aufgenommen. + LIST.Add(l) + lastID = l.coll_id + Else + ' Wenn beim Kopieren ein Fehler aufgetreten ist, wird der DB_Eintrag gelöscht, + ' der Eintrag wird nicht in die Liste aufgenommen. + l.DELETE() + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(errorMsg, errorMsg, System.Reflection.MethodInfo.GetCurrentMethod.Name) + + Return False + End If + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End Try + Return True + End Function + + Function ADD_WOcopy(destPath, coll_bezeichnung, coll_info, coll_archiv) As Boolean + Try + Dim l As New cDatenarchiv_Collection(coll_daId, destPath, coll_bezeichnung, coll_info, coll_archiv) + Dim ID = l.INSERT() + If ID > 0 Then + ' Der Eintrag wird in die Liste aufgenommen. + LIST.Add(l) + lastID = l.coll_id + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End Try + Return True + End Function + Function COPY_FILE(srcPath, destPath, ByRef errorMsg) As Boolean + For i = 1 To 3 '3 Versuche + Try + IO.File.Copy(srcPath, destPath, True) ' Kopiert die Dateien Next + Return True + Catch ex As Exception + errorMsg = ex.Message + End Try + System.Threading.Thread.Sleep(500) + Next + Return False + End Function + + + + Function DELETE_ALL(Optional delteFromFileSystem = True) As Boolean + Try + If delteFromFileSystem Then + LIST.Clear() + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.doSQL("DELETE FROM [tblDatenarchiv_Collection] WHERE [coll_daId]=" & coll_daId & " ", "FMZOLL") + Else + While LIST.Count > 0 + If LIST(0).DELETE() Then + LIST.RemoveAt(0) + Else + Return False + End If + + End While + End If + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End Try + End Function + + + + + Function DELETE_ATPOS(coll_id) As Boolean + Try + For Each l In LIST + If l.coll_id = coll_id Then + If l.DELETE() Then + LIST.Remove(l) + Return True + Else + Return False + End If + End If + Next + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End Try + End Function + + + +End Class + +Public Class DATENVERVER_OPTIONS + Public Shared TMP_PATH = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DatenTMP\" + + Shared Function getTMPPath(name As String, extension As String, Optional special As Boolean = False, Optional delete As Boolean = True, Optional unterOrdner As String = "") As String + If Environment.GetFolderPath(Environment.SpecialFolder.Personal) = "" Then ' WEB_SERV + TMP_PATH = Path.GetTempPath() & "\VERAG\DatenTMP\" + End If + + Dim TMP_PATH2 = TMP_PATH & If(unterOrdner <> "", "\" & unterOrdner & "\", "") + TMP_PATH2 = TMP_PATH2.replace("\\", "\") + If Not My.Computer.FileSystem.DirectoryExists(TMP_PATH2) Then + My.Computer.FileSystem.CreateDirectory(TMP_PATH2) + End If + If delete Then clearTMPPath(unterOrdner) + If name = "" Then name = "TMP" + Dim destPath = TMP_PATH2 & name + If special Then destPath = TMP_PATH2 & name & "_" & Now.ToString("yyyyMMddHHmmssfff") & extension + + While IO.File.Exists(destPath) + destPath = TMP_PATH2 & name & "_" & Now.ToString("yyyyMMddHHmmssfff") & extension + End While + + Return destPath + End Function + + Shared Function copyToTmp_KeepFilenameByDS(dId As Integer, bezeichnung As String) As String + Dim DS As New cDATENSERVER(dId) + Dim pfad As String = DS.GET_TOP1_PATH + If pfad = "" Then Return "" + Dim fi As New IO.FileInfo(pfad) + + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(bezeichnung, fi.Extension,, False, "ClipBoard_TMP\ClipBoard_" & Now.ToString("ddMMyyyyHHmmss_sss") & "\") + Try + IO.File.Copy(pfad, tmpPath) + Return tmpPath + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return pfad + End Function + + Shared Function copyToTmp_KeepFilename(pfad As String, bezeichnung As String) As String + Dim fi As New IO.FileInfo(pfad) + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(bezeichnung, fi.Extension,, False, "ClipBoard_TMP\ClipBoard_" & Now.ToString("ddMMyyyyHHmmss_sss") & "\") + Try + IO.File.Copy(pfad, tmpPath) + Return tmpPath + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return pfad + End Function + + Shared Function getTMPAbsolutePath(AbsolutePath As String, extension As String, Optional special As Boolean = False, Optional delete As Boolean = True) As String + + If delete Then + Try : IO.File.Delete(AbsolutePath) : Catch ex As Exception : End Try + End If + Dim destPath = AbsolutePath + If special Then destPath = AbsolutePath.Replace(extension, "") & "_" & Now.ToString("yyyyMMddHHmmssfff") & extension + + While IO.File.Exists(destPath) + destPath = AbsolutePath.Replace(extension, "") & "_" & Now.ToString("yyyyMMddHHmmssfff") & extension + End While + + Return destPath + End Function + + + Shared Sub clearTMPPath(Optional unterOrdner As String = "") + Dim TMP_PATH2 As String = TMP_PATH & If(unterOrdner <> "", "\" & unterOrdner & "\", "") + TMP_PATH2 = TMP_PATH2.Replace("\\", "\") + If My.Computer.FileSystem.DirectoryExists(TMP_PATH2) Then + For Each file As String In IO.Directory.GetFiles(TMP_PATH2) ' Ermittelt alle Dateien des Ordners und löscht diese (sind tmp) + Try : IO.File.Delete(file) : Catch : End Try + Next + For Each dir As String In IO.Directory.GetDirectories(TMP_PATH2) ' Ermittelt alle Dateien des Ordners und löscht diese (sind tmp) + Try : IO.Directory.Delete(dir, True) : Catch : End Try + Next + End If + End Sub + + + Shared Function REMANE_FOLDER_KDNR(OLD_V As cDatenserver_Change_Value, NEW_V As cDatenserver_Change_Value) 'kategorie, ordner, kdnr, da_uOrdner1, da_uOrdner2, da_uOrdner3, new_kategorie, new_ordner, new_kdnr, new_uOrdner1, new_uOrdner2, new_uOrdner3) + Try + If OLD_V Is Nothing Then MsgBox("OLD_V: Keinen Wert angegeben!") : Return False + If NEW_V Is Nothing Then MsgBox("NEW_V: Keinen Wert angegeben!") : Return False + If OLD_V.da_kategorie = "" Then MsgBox("OLD_V: Keine Kategorie!") : Return False + If OLD_V.da_ordner = "" Then MsgBox("OLD_V: Kein Ordner!") : Return False + If NEW_V.da_kategorie = "" Then MsgBox("NEW_V: Keine Kategorie!") : Return False + If NEW_V.da_ordner = "" Then MsgBox("NEW_V: Kein Ordner!") : Return False + + 'Dim oldDIR = getDescPath(initRootDir(), kategorie, ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, kdnr, "", "", True) + ' Dim DS As New cDATENSERVER(kategorie, ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name, kdnr) + 'If IO.Directory.Exists(oldDIR) Then + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim dt As DataTable = Nothing + + If OLD_V.da_uOrdner3 IsNot Nothing Then : dt = SQL.loadDgvBySql("select [da_id] from [tblDatenarchiv] where da_KundenNr = '" & OLD_V.da_KundenNr & "' AND da_kategorie ='" & OLD_V.da_kategorie & "' AND da_ordner='" & OLD_V.da_ordner & "' AND da_uOrdner1= '" & OLD_V.da_uOrdner1 & "' AND da_uOrdner2= '" & OLD_V.da_uOrdner2 & "' AND da_uOrdner3='" & OLD_V.da_uOrdner3 & "' ", "FMZOLL") + ElseIf OLD_V.da_uOrdner2 IsNot Nothing Then : dt = SQL.loadDgvBySql("select [da_id] from [tblDatenarchiv] where da_KundenNr = '" & OLD_V.da_KundenNr & "' AND da_kategorie ='" & OLD_V.da_kategorie & "' AND da_ordner='" & OLD_V.da_ordner & "' AND da_uOrdner1= '" & OLD_V.da_uOrdner1 & "' AND da_uOrdner2= '" & OLD_V.da_uOrdner2 & "' ", "FMZOLL") + ElseIf OLD_V.da_uOrdner1 IsNot Nothing Then : dt = SQL.loadDgvBySql("select [da_id] from [tblDatenarchiv] where da_KundenNr = '" & OLD_V.da_KundenNr & "' AND da_kategorie ='" & OLD_V.da_kategorie & "' AND da_ordner='" & OLD_V.da_ordner & "' AND da_uOrdner1= '" & OLD_V.da_uOrdner1 & "' ", "FMZOLL") + End If + + If dt IsNot Nothing Then + For Each r As DataRow In dt.Rows + Dim DS As New cDATENSERVER(r.Item("da_id")) + DS.REMANE_FOLDER(OLD_V.da_kategorie, OLD_V.da_ordner, OLD_V.da_uOrdner1, OLD_V.da_uOrdner2, OLD_V.da_uOrdner3, OLD_V.da_KundenNr, NEW_V.da_kategorie, NEW_V.da_ordner, NEW_V.da_uOrdner1, NEW_V.da_uOrdner2, NEW_V.da_uOrdner3, NEW_V.da_KundenNr) + Next + End If + + Return True + ' Else + 'MsgBox("Der Ordner existiert nicht!") + ' End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return False + End Function + + Shared Function initRootDir() As String + initRootDir = getRootDir() + End Function + + + Shared Function getRootDir(Optional TESTSYSTEM = Nothing) As String + + + Dim TS = If(TESTSYSTEM IsNot Nothing, TESTSYSTEM, VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then + If TS Then + ' getRootDir = "\\192.168.0.91\DATENARCHIV\DATENARCHIV_TESTSYSTEM\" + getRootDir = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\" + Else + ' getRootDir = "\\192.168.0.91\DATENARCHIV\" + getRootDir = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\" + End If + Else + If TS Then + ' getRootDir = "\\192.168.0.91\DATENARCHIV\DATENARCHIV_TESTSYSTEM\" + getRootDir = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\" + Else + ' getRootDir = "\\192.168.0.91\DATENARCHIV\" + getRootDir = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\" + End If + End If + End Function + + + Shared Function getDescPath(rootDir, kategorie, ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, kdnr, bezeichnung, endung, Optional onlyordner = False) As String + Try + If kdnr Is Nothing Then MsgBox("Keine Kundennummer angegeben!") : Return "" + If ordner Is Nothing Then MsgBox("Kein Ordner angegeben!") : Return "" + Dim dateiName = "" + If Not onlyordner Then + If bezeichnung Is Nothing Then MsgBox("Keine Bezeichnung angegeben!") : Return "" + dateiName = Now.ToString("yyyyMMdd_HHmmss_") & bezeichnung + End If + + Dim kdnr_path = "" + If kdnr IsNot Nothing AndAlso IsNumeric(kdnr) AndAlso kdnr > 0 Then + kdnr_path = kdnr + End If + + If kategorie <> "" Then + Dim dir = "" + dir &= rootDir + dir &= kategorie & "\" + dir &= If(ordner IsNot Nothing AndAlso ordner <> "", ordner & "\", "") + dir &= If(kdnr_path <> "", kdnr_path & "\", "") + dir &= If(da_uOrdner1 IsNot Nothing AndAlso da_uOrdner1 <> "", da_uOrdner1 & "\", "") + dir &= If(da_uOrdner2 IsNot Nothing AndAlso da_uOrdner2 <> "", da_uOrdner2 & "\", "") + dir &= If(da_uOrdner3 IsNot Nothing AndAlso da_uOrdner3 <> "", da_uOrdner3 & "\", "") + If Not onlyordner Then + If Not IO.Directory.Exists(dir) Then + IO.Directory.CreateDirectory(dir) + End If + + + Dim zusatz = "" : Dim zusatzcnt = 1 + While IO.File.Exists(dir & dateiName & zusatz & If(bezeichnung.ToString.EndsWith(endung), "", endung)) + zusatz = "_" & zusatzcnt + zusatzcnt += 1 + End While + + dir &= dateiName & zusatz & If(bezeichnung.ToString.EndsWith(endung), "", endung) + End If + + Return dir + Else + If Not onlyordner Then + If Not IO.Directory.Exists(rootDir & "DOKUMENTE\KEINE_ZUORDNUNG\" & kdnr_path & "\") Then IO.Directory.CreateDirectory(rootDir & "DOKUMENTE\KEINE_ZUORDNUNG\" & kdnr_path & "\") + End If + Return rootDir & "DOKUMENTE\KEINE_ZUORDNUNG\" & kdnr_path & "\" & dateiName + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return "" + End Try + End Function + + Shared Function OPEN_PATH(path As String) As Boolean + Try + If Not IO.File.Exists(path) Then MsgBox("Die Datei existiert nicht") : Return False + + Dim fi As New IO.DirectoryInfo(path) + Dim destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, , False) + + IO.File.Copy(path, destPath, True) + Process.Start(destPath) + Return True + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return False + End Try + End Function + + +End Class + +Public Class barcodeToPdf + Public image As Image = Nothing + Public x As Integer + Public y As Integer + Public width As Integer + Public height As Integer + Public onpage = 1 + Public rotate As Drawing.RotateFlipType = RotateFlipType.RotateNoneFlipNone + + Sub New(image As Image, x As Integer, y As Integer, width As Integer, height As Integer, onpage As Integer, rotate As Drawing.RotateFlipType) + Me.image = image + Me.x = x + Me.y = y + Me.width = width + Me.height = height + Me.onpage = onpage + Me.rotate = rotate + End Sub +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.Designer.vb new file mode 100644 index 0000000..2b708ca --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.Designer.vb @@ -0,0 +1,100 @@ + _ +Partial Class frmVorlagen + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVorlagen)) + Me.Label1 = New System.Windows.Forms.Label() + Me.btnUpload = New System.Windows.Forms.Button() + Me.dgvVolagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.Button1 = New System.Windows.Forms.Button() + CType(Me.dgvVolagen, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(8, 15) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(55, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Kategorie:" + ' + 'btnUpload + ' + Me.btnUpload.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpload.Location = New System.Drawing.Point(12, 609) + Me.btnUpload.Name = "btnUpload" + Me.btnUpload.Size = New System.Drawing.Size(225, 44) + Me.btnUpload.TabIndex = 8 + Me.btnUpload.Text = "Neue Vorlage" + Me.btnUpload.UseVisualStyleBackColor = True + ' + 'dgvVolagen + ' + Me.dgvVolagen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvVolagen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvVolagen.Location = New System.Drawing.Point(11, 31) + Me.dgvVolagen.MultiSelect = False + Me.dgvVolagen.Name = "dgvVolagen" + Me.dgvVolagen.ReadOnly = True + Me.dgvVolagen.RowHeadersVisible = False + Me.dgvVolagen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvVolagen.Size = New System.Drawing.Size(1094, 572) + Me.dgvVolagen.TabIndex = 9 + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(305, 609) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(225, 44) + Me.Button1.TabIndex = 10 + Me.Button1.Text = "Vorlage Ändern" + Me.Button1.UseVisualStyleBackColor = True + ' + 'frmVorlagen + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(1117, 665) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.dgvVolagen) + Me.Controls.Add(Me.btnUpload) + Me.Controls.Add(Me.Label1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmVorlagen" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Vorlage - Upload" + CType(Me.dgvVolagen, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents btnUpload As System.Windows.Forms.Button + Friend WithEvents dgvVolagen As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents Button1 As System.Windows.Forms.Button +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.resx b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.resx new file mode 100644 index 0000000..d584bd9 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.vb b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.vb new file mode 100644 index 0000000..9b67323 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.vb @@ -0,0 +1,56 @@ +Imports System.Windows.Forms + +Public Class frmVorlagen + + + + + Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click + Dim vu As New VERAG_PROG_ALLGEMEIN.frmVorlagenUpload + vu.ShowDialog() + + + + End Sub + + Private Sub frmVorlagenUpload_Load(sender As Object, e As EventArgs) Handles Me.Load + initDGV() + End Sub + Sub initDGV() + With dgvVolagen + .Columns.Clear() + .SET_SQL("SELECT [da_id],[da_kategorie],[da_ordner] ,[da_name],da_uOrdner1,da_uOrdner2,da_uOrdner3 FROM [tblDatenarchiv] where da_vorlage=1", "FMZOLL") + .LOAD() + If .ColumnCount > 0 Then + '.Columns("da_uOrdner1").Visible = False + .Columns("da_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + End If + End With + End Sub + + + + Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles dgvVolagen.DoubleClick + If dgvVolagen.SelectedRows.Count = 0 Then Exit Sub + Dim r As DataGridViewRow = dgvVolagen.SelectedRows(0) + Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(r.Cells("da_kategorie").Value, r.Cells("da_ordner").Value, r.Cells("da_uOrdner1").Value, r.Cells("da_uOrdner2").Value, r.Cells("da_uOrdner3").Value, r.Cells("da_name").Value) + MsgBox(cDATENSERVER.DATA_LIST.LIST.Count) + cDATENSERVER.OPEN_SINGLE() + + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + + If dgvVolagen.SelectedRows.Count = 0 Then Exit Sub + + Try + Dim r As DataGridViewRow = dgvVolagen.SelectedRows(0) + Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(r.Cells("da_kategorie").Value, r.Cells("da_ordner").Value, r.Cells("da_uOrdner1").Value, r.Cells("da_uOrdner2").Value, r.Cells("da_uOrdner3").Value, r.Cells("da_name").Value) + If cDATENSERVER.uploadDataToDATENSERVERFileDialog() <> "" Then + dgvVolagen.RELOAD() + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.Designer.vb new file mode 100644 index 0000000..9fb9c68 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.Designer.vb @@ -0,0 +1,217 @@ + _ +Partial Class frmVorlagenUpload + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVorlagenUpload)) + Me.txtOrdner = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lbl = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.tzxtKategorie = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtName = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnUpload = New System.Windows.Forms.Button() + Me.txtUnterordner1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtUnterordner2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'txtOrdner + ' + Me.txtOrdner._DateTimeOnly = False + Me.txtOrdner._numbersOnly = False + Me.txtOrdner._numbersOnlyKommastellen = "" + Me.txtOrdner._Prozent = False + Me.txtOrdner._ShortDateNew = False + Me.txtOrdner._ShortDateOnly = False + Me.txtOrdner._TimeOnly = False + Me.txtOrdner._value = "VORLAGEN" + Me.txtOrdner._Waehrung = False + Me.txtOrdner.Enabled = False + Me.txtOrdner.ForeColor = System.Drawing.Color.Black + Me.txtOrdner.Location = New System.Drawing.Point(89, 38) + Me.txtOrdner.MaxLineLength = -1 + Me.txtOrdner.MaxLines_Warning = "" + Me.txtOrdner.MaxLines_Warning_Label = Nothing + Me.txtOrdner.Name = "txtOrdner" + Me.txtOrdner.Size = New System.Drawing.Size(357, 20) + Me.txtOrdner.TabIndex = 3 + Me.txtOrdner.Text = "VORLAGEN" + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(8, 41) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(42, 13) + Me.lbl.TabIndex = 2 + Me.lbl.Text = "Ordner:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(8, 15) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(55, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Kategorie:" + ' + 'tzxtKategorie + ' + Me.tzxtKategorie._DateTimeOnly = False + Me.tzxtKategorie._numbersOnly = False + Me.tzxtKategorie._numbersOnlyKommastellen = "" + Me.tzxtKategorie._Prozent = False + Me.tzxtKategorie._ShortDateNew = False + Me.tzxtKategorie._ShortDateOnly = False + Me.tzxtKategorie._TimeOnly = False + Me.tzxtKategorie._value = "DOKUMENTE" + Me.tzxtKategorie._Waehrung = False + Me.tzxtKategorie.Enabled = False + Me.tzxtKategorie.ForeColor = System.Drawing.Color.Black + Me.tzxtKategorie.Location = New System.Drawing.Point(89, 12) + Me.tzxtKategorie.MaxLineLength = -1 + Me.tzxtKategorie.MaxLines_Warning = "" + Me.tzxtKategorie.MaxLines_Warning_Label = Nothing + Me.tzxtKategorie.Name = "tzxtKategorie" + Me.tzxtKategorie.Size = New System.Drawing.Size(357, 20) + Me.tzxtKategorie.TabIndex = 1 + Me.tzxtKategorie.Text = "DOKUMENTE" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(8, 67) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(66, 13) + Me.Label2.TabIndex = 4 + Me.Label2.Text = "Unterordner:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(8, 135) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(38, 13) + Me.Label3.TabIndex = 6 + Me.Label3.Text = "Name:" + ' + 'txtName + ' + Me.txtName._DateTimeOnly = False + Me.txtName._numbersOnly = False + Me.txtName._numbersOnlyKommastellen = "" + Me.txtName._Prozent = False + Me.txtName._ShortDateNew = False + Me.txtName._ShortDateOnly = False + Me.txtName._TimeOnly = False + Me.txtName._value = Nothing + Me.txtName._Waehrung = False + Me.txtName.ForeColor = System.Drawing.Color.Black + Me.txtName.Location = New System.Drawing.Point(89, 132) + Me.txtName.MaxLineLength = -1 + Me.txtName.MaxLines_Warning = "" + Me.txtName.MaxLines_Warning_Label = Nothing + Me.txtName.Name = "txtName" + Me.txtName.Size = New System.Drawing.Size(357, 20) + Me.txtName.TabIndex = 7 + ' + 'btnUpload + ' + Me.btnUpload.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpload.Location = New System.Drawing.Point(221, 158) + Me.btnUpload.Name = "btnUpload" + Me.btnUpload.Size = New System.Drawing.Size(225, 44) + Me.btnUpload.TabIndex = 8 + Me.btnUpload.Text = "Datei Auswählen + Upload" + Me.btnUpload.UseVisualStyleBackColor = True + ' + 'txtUnterordner1 + ' + Me.txtUnterordner1._allowedValuesFreiText = Nothing + Me.txtUnterordner1._allowFreiText = True + Me.txtUnterordner1._value = "" + Me.txtUnterordner1.FormattingEnabled = True + Me.txtUnterordner1.Location = New System.Drawing.Point(89, 63) + Me.txtUnterordner1.Name = "txtUnterordner1" + Me.txtUnterordner1.Size = New System.Drawing.Size(357, 21) + Me.txtUnterordner1.TabIndex = 5 + ' + 'txtUnterordner2 + ' + Me.txtUnterordner2._allowedValuesFreiText = Nothing + Me.txtUnterordner2._allowFreiText = True + Me.txtUnterordner2._value = "" + Me.txtUnterordner2.FormattingEnabled = True + Me.txtUnterordner2.Location = New System.Drawing.Point(89, 90) + Me.txtUnterordner2.Name = "txtUnterordner2" + Me.txtUnterordner2.Size = New System.Drawing.Size(357, 21) + Me.txtUnterordner2.TabIndex = 10 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(8, 94) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(75, 13) + Me.Label4.TabIndex = 9 + Me.Label4.Text = "Unterordner 2:" + ' + 'frmVorlagenUpload + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(462, 213) + Me.Controls.Add(Me.txtUnterordner2) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.txtUnterordner1) + Me.Controls.Add(Me.btnUpload) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtName) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.tzxtKategorie) + Me.Controls.Add(Me.lbl) + Me.Controls.Add(Me.txtOrdner) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmVorlagenUpload" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Vorlage - Upload" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents txtOrdner As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lbl As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents tzxtKategorie As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtName As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnUpload As System.Windows.Forms.Button + Friend WithEvents txtUnterordner1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtUnterordner2 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label4 As System.Windows.Forms.Label +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.resx b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.resx new file mode 100644 index 0000000..d584bd9 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb new file mode 100644 index 0000000..977867e --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb @@ -0,0 +1,30 @@ +Public Class frmVorlagenUpload + + + + + Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click + Try + Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(tzxtKategorie.Text, txtOrdner.Text, txtUnterordner1._value, txtUnterordner2._value, "", txtName.Text) + If cDATENSERVER.uploadDataToDATENSERVERFileDialog() <> "" Then Me.Close() + Catch ex As Exception + MsgBox(ex.Message) + End Try + + End Sub + + Private Sub frmVorlagenUpload_Load(sender As Object, e As EventArgs) Handles Me.Load + txtUnterordner1.Items.Clear() + txtUnterordner1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VOLLMACHTEN", "VOLLMACHTEN")) + txtUnterordner1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GESTELLUNGSGARANTIEN", "GESTELLUNGSGARANTIEN")) + txtUnterordner1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SONSTIGE", "SONSTIGE")) + + + + txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "")) + txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) + txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) + txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED")) + txtUnterordner2.SelectedIndex = 0 + End Sub +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb new file mode 100644 index 0000000..06788b0 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb @@ -0,0 +1,572 @@ +Imports System.Windows.Forms + + +Partial Class frmMessenger + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) + Me.SplitContainer = New System.Windows.Forms.SplitContainer() + Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.btnTEST = New System.Windows.Forms.Button() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.lbl = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() + Me.UsrCntlMessenger_ChatAnhang1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatAnhang() + Me.UsrCntlMessenger_ChatElement2 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() + Me.UsrCntlMessenger_ChatElement3 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Button5 = New System.Windows.Forms.Button() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.lblChatName = New System.Windows.Forms.Label() + Me.lblOnlineOffline = New System.Windows.Forms.Label() + Me.pnl = New System.Windows.Forms.Panel() + Me.pic = New System.Windows.Forms.PictureBox() + Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() + Me.Button3 = New System.Windows.Forms.Button() + Me.btn = New System.Windows.Forms.Button() + Me.rtbChatMessage = New System.Windows.Forms.RichTextBox() + Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components) + Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) + Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Button4 = New System.Windows.Forms.Button() + CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer.Panel1.SuspendLayout() + Me.SplitContainer.Panel2.SuspendLayout() + Me.SplitContainer.SuspendLayout() + CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel2.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.MyFlowLayoutPanel1.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.pnl.SuspendLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.cntxt.SuspendLayout() + Me.SuspendLayout() + ' + 'SplitContainer + ' + Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer.Name = "SplitContainer" + ' + 'SplitContainer.Panel1 + ' + Me.SplitContainer.Panel1.Controls.Add(Me.dgvChats) + Me.SplitContainer.Panel1.Controls.Add(Me.btnTEST) + Me.SplitContainer.Panel1.Controls.Add(Me.Panel2) + Me.SplitContainer.Panel1.Controls.Add(Me.Panel1) + ' + 'SplitContainer.Panel2 + ' + Me.SplitContainer.Panel2.Controls.Add(Me.SplitContainer1) + Me.SplitContainer.Size = New System.Drawing.Size(817, 728) + Me.SplitContainer.SplitterDistance = 271 + Me.SplitContainer.TabIndex = 0 + ' + 'dgvChats + ' + Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvChats.AllowUserToAddRows = False + Me.dgvChats.AllowUserToDeleteRows = False + Me.dgvChats.AllowUserToResizeColumns = False + Me.dgvChats.AllowUserToResizeRows = False + Me.dgvChats.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvChats.ColumnHeadersVisible = False + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvChats.Location = New System.Drawing.Point(0, 63) + Me.dgvChats.Name = "dgvChats" + Me.dgvChats.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvChats.RowHeadersVisible = False + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvChats.RowTemplate.Height = 30 + Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvChats.Size = New System.Drawing.Size(271, 635) + Me.dgvChats.TabIndex = 0 + ' + 'btnTEST + ' + Me.btnTEST.BackColor = System.Drawing.Color.Red + Me.btnTEST.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnTEST.ForeColor = System.Drawing.Color.White + Me.btnTEST.Location = New System.Drawing.Point(94, 273) + Me.btnTEST.Name = "btnTEST" + Me.btnTEST.Size = New System.Drawing.Size(71, 33) + Me.btnTEST.TabIndex = 4 + Me.btnTEST.Text = "!" + Me.btnTEST.UseVisualStyleBackColor = False + Me.btnTEST.Visible = False + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.cbxInaktiveChats) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel2.Location = New System.Drawing.Point(0, 698) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(271, 30) + Me.Panel2.TabIndex = 6 + ' + 'cbxInaktiveChats + ' + Me.cbxInaktiveChats.AutoSize = True + Me.cbxInaktiveChats.Location = New System.Drawing.Point(3, 6) + Me.cbxInaktiveChats.Name = "cbxInaktiveChats" + Me.cbxInaktiveChats.Size = New System.Drawing.Size(93, 17) + Me.cbxInaktiveChats.TabIndex = 7 + Me.cbxInaktiveChats.Text = "inaktive Chats" + Me.cbxInaktiveChats.UseVisualStyleBackColor = True + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.Controls.Add(Me.MyTextBox1) + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Controls.Add(Me.lbl) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(271, 63) + Me.Panel1.TabIndex = 1 + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._value = "" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(20, 40) + Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(2) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(250, 20) + Me.MyTextBox1.TabIndex = 4 + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Location = New System.Drawing.Point(3, 40) + Me.PictureBox1.Margin = New System.Windows.Forms.Padding(2) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(13, 18) + Me.PictureBox1.TabIndex = 5 + Me.PictureBox1.TabStop = False + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbl.Location = New System.Drawing.Point(12, 11) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(127, 20) + Me.lbl.TabIndex = 3 + Me.lbl.Text = "AVISO - CHAT" + ' + 'Button2 + ' + Me.Button2.BackColor = System.Drawing.Color.MediumSeaGreen + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.ForeColor = System.Drawing.Color.White + Me.Button2.Location = New System.Drawing.Point(198, 4) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(71, 33) + Me.Button2.TabIndex = 2 + Me.Button2.Text = "+ NEU" + Me.Button2.UseVisualStyleBackColor = False + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.Color.SteelBlue + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ForeColor = System.Drawing.Color.White + Me.Button1.Location = New System.Drawing.Point(461, 4) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(76, 40) + Me.Button1.TabIndex = 1 + Me.Button1.Text = "Senden" + Me.Button1.UseVisualStyleBackColor = False + ' + 'SplitContainer1 + ' + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer1.Name = "SplitContainer1" + Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.Controls.Add(Me.MyFlowLayoutPanel1) + Me.SplitContainer1.Panel1.Controls.Add(Me.Panel3) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.pnl) + Me.SplitContainer1.Size = New System.Drawing.Size(542, 728) + Me.SplitContainer1.SplitterDistance = 446 + Me.SplitContainer1.TabIndex = 0 + ' + 'MyFlowLayoutPanel1 + ' + Me.MyFlowLayoutPanel1.AutoScroll = True + Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White + Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement1) + Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatAnhang1) + Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement2) + Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement3) + Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 44) + Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1" + Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(542, 402) + Me.MyFlowLayoutPanel1.TabIndex = 0 + ' + 'UsrCntlMessenger_ChatElement1 + ' + Me.UsrCntlMessenger_ChatElement1.BackColor = System.Drawing.Color.White + Me.UsrCntlMessenger_ChatElement1.CHAT_MSG = Nothing + Me.UsrCntlMessenger_ChatElement1.Location = New System.Drawing.Point(4, 5) + Me.UsrCntlMessenger_ChatElement1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlMessenger_ChatElement1.Name = "UsrCntlMessenger_ChatElement1" + Me.UsrCntlMessenger_ChatElement1.Size = New System.Drawing.Size(378, 48) + Me.UsrCntlMessenger_ChatElement1.TabIndex = 4 + ' + 'UsrCntlMessenger_ChatAnhang1 + ' + Me.UsrCntlMessenger_ChatAnhang1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.UsrCntlMessenger_ChatAnhang1.BackColor = System.Drawing.Color.White + Me.UsrCntlMessenger_ChatAnhang1.BG_COLOR = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.UsrCntlMessenger_ChatAnhang1.CHAT_MSG = Nothing + Me.UsrCntlMessenger_ChatAnhang1.Location = New System.Drawing.Point(4, 63) + Me.UsrCntlMessenger_ChatAnhang1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlMessenger_ChatAnhang1.Name = "UsrCntlMessenger_ChatAnhang1" + Me.UsrCntlMessenger_ChatAnhang1.Size = New System.Drawing.Size(378, 72) + Me.UsrCntlMessenger_ChatAnhang1.TabIndex = 3 + ' + 'UsrCntlMessenger_ChatElement2 + ' + Me.UsrCntlMessenger_ChatElement2.BackColor = System.Drawing.Color.White + Me.UsrCntlMessenger_ChatElement2.CHAT_MSG = Nothing + Me.UsrCntlMessenger_ChatElement2.Location = New System.Drawing.Point(4, 145) + Me.UsrCntlMessenger_ChatElement2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlMessenger_ChatElement2.Name = "UsrCntlMessenger_ChatElement2" + Me.UsrCntlMessenger_ChatElement2.Size = New System.Drawing.Size(378, 48) + Me.UsrCntlMessenger_ChatElement2.TabIndex = 5 + ' + 'UsrCntlMessenger_ChatElement3 + ' + Me.UsrCntlMessenger_ChatElement3.BackColor = System.Drawing.Color.White + Me.UsrCntlMessenger_ChatElement3.CHAT_MSG = Nothing + Me.UsrCntlMessenger_ChatElement3.Location = New System.Drawing.Point(4, 203) + Me.UsrCntlMessenger_ChatElement3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlMessenger_ChatElement3.Name = "UsrCntlMessenger_ChatElement3" + Me.UsrCntlMessenger_ChatElement3.Size = New System.Drawing.Size(378, 48) + Me.UsrCntlMessenger_ChatElement3.TabIndex = 6 + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.White + Me.Panel3.Controls.Add(Me.Button5) + Me.Panel3.Controls.Add(Me.Panel4) + Me.Panel3.Controls.Add(Me.lblChatName) + Me.Panel3.Controls.Add(Me.lblOnlineOffline) + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel3.Location = New System.Drawing.Point(0, 0) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(542, 44) + Me.Panel3.TabIndex = 9 + ' + 'Button5 + ' + Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button5.BackColor = System.Drawing.Color.MediumSeaGreen + Me.Button5.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.person + Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.ForeColor = System.Drawing.Color.White + Me.Button5.Location = New System.Drawing.Point(489, 4) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(49, 33) + Me.Button5.TabIndex = 8 + Me.Button5.UseVisualStyleBackColor = False + ' + 'Panel4 + ' + Me.Panel4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel4.BackColor = System.Drawing.Color.Black + Me.Panel4.Location = New System.Drawing.Point(4, 43) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(534, 1) + Me.Panel4.TabIndex = 6 + ' + 'lblChatName + ' + Me.lblChatName.AutoSize = True + Me.lblChatName.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblChatName.Location = New System.Drawing.Point(9, 11) + Me.lblChatName.Name = "lblChatName" + Me.lblChatName.Size = New System.Drawing.Size(15, 20) + Me.lblChatName.TabIndex = 4 + Me.lblChatName.Text = "-" + ' + 'lblOnlineOffline + ' + Me.lblOnlineOffline.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblOnlineOffline.BackColor = System.Drawing.Color.MediumSeaGreen + Me.lblOnlineOffline.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.lblOnlineOffline.ForeColor = System.Drawing.Color.White + Me.lblOnlineOffline.Location = New System.Drawing.Point(377, 4) + Me.lblOnlineOffline.Name = "lblOnlineOffline" + Me.lblOnlineOffline.Size = New System.Drawing.Size(106, 33) + Me.lblOnlineOffline.TabIndex = 5 + Me.lblOnlineOffline.Text = "ONLINE" + Me.lblOnlineOffline.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.lblOnlineOffline.Visible = False + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.Controls.Add(Me.Button4) + Me.pnl.Controls.Add(Me.pic) + Me.pnl.Controls.Add(Me.FlowLayoutPanel) + Me.pnl.Controls.Add(Me.Button3) + Me.pnl.Controls.Add(Me.btn) + Me.pnl.Controls.Add(Me.rtbChatMessage) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(542, 278) + Me.pnl.TabIndex = 0 + ' + 'pic + ' + Me.pic.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Location = New System.Drawing.Point(10, 255) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(524, 20) + Me.pic.TabIndex = 7 + Me.pic.TabStop = False + Me.pic.WaitOnLoad = True + ' + 'FlowLayoutPanel + ' + Me.FlowLayoutPanel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.FlowLayoutPanel.AutoScroll = True + Me.FlowLayoutPanel.Location = New System.Drawing.Point(4, 121) + Me.FlowLayoutPanel.Name = "FlowLayoutPanel" + Me.FlowLayoutPanel.Size = New System.Drawing.Size(534, 136) + Me.FlowLayoutPanel.TabIndex = 6 + ' + 'Button3 + ' + Me.Button3.BackColor = System.Drawing.Color.SteelBlue + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.ForeColor = System.Drawing.Color.White + Me.Button3.Location = New System.Drawing.Point(461, 44) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(76, 40) + Me.Button3.TabIndex = 2 + Me.Button3.Text = "+ Anhang" + Me.Button3.UseVisualStyleBackColor = False + ' + 'btn + ' + Me.btn.BackColor = System.Drawing.Color.SteelBlue + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.ForeColor = System.Drawing.Color.White + Me.btn.Location = New System.Drawing.Point(461, 4) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(76, 40) + Me.btn.TabIndex = 1 + Me.btn.Text = "Senden" + Me.btn.UseVisualStyleBackColor = False + ' + 'rtbChatMessage + ' + Me.rtbChatMessage.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.rtbChatMessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rtbChatMessage.Location = New System.Drawing.Point(3, 3) + Me.rtbChatMessage.Name = "rtbChatMessage" + Me.rtbChatMessage.Size = New System.Drawing.Size(453, 112) + Me.rtbChatMessage.TabIndex = 0 + Me.rtbChatMessage.Text = "" + ' + 'TimerNEW_MESSAGE + ' + ' + 'Timer_REFRESH + ' + Me.Timer_REFRESH.Enabled = True + Me.Timer_REFRESH.Interval = 5000 + ' + 'cntxt + ' + Me.cntxt.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChatDeaktivierenToolStripMenuItem}) + Me.cntxt.Name = "cntxt" + Me.cntxt.Size = New System.Drawing.Size(167, 26) + ' + 'ChatDeaktivierenToolStripMenuItem + ' + Me.ChatDeaktivierenToolStripMenuItem.Name = "ChatDeaktivierenToolStripMenuItem" + Me.ChatDeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(166, 22) + Me.ChatDeaktivierenToolStripMenuItem.Text = "Chat deaktivieren" + ' + 'Button4 + ' + Me.Button4.BackColor = System.Drawing.Color.SteelBlue + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ForeColor = System.Drawing.Color.White + Me.Button4.Location = New System.Drawing.Point(462, 90) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(76, 25) + Me.Button4.TabIndex = 8 + Me.Button4.Text = "Chat History" + Me.Button4.UseVisualStyleBackColor = False + ' + 'frmMessenger + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(817, 728) + Me.Controls.Add(Me.SplitContainer) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmMessenger" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Messenger" + Me.SplitContainer.Panel1.ResumeLayout(False) + Me.SplitContainer.Panel2.ResumeLayout(False) + CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer.ResumeLayout(False) + CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + Me.MyFlowLayoutPanel1.ResumeLayout(False) + Me.Panel3.ResumeLayout(False) + Me.Panel3.PerformLayout() + Me.pnl.ResumeLayout(False) + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.cntxt.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents SplitContainer As SplitContainer + Friend WithEvents dgvChats As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents SplitContainer1 As SplitContainer + Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel + Friend WithEvents pnl As Panel + Friend WithEvents btn As Button + Friend WithEvents rtbChatMessage As RichTextBox + Friend WithEvents Panel1 As Panel + Friend WithEvents lbl As Label + Friend WithEvents Button2 As Button + Friend WithEvents Button1 As Button + Friend WithEvents UsrCntlMessenger_ChatAnhang1 As usrCntlMessenger_ChatAnhang + Friend WithEvents UsrCntlMessenger_ChatElement1 As usrCntlMessenger_ChatElement + Friend WithEvents Button3 As Button + Friend WithEvents UsrCntlMessenger_ChatElement2 As usrCntlMessenger_ChatElement + Friend WithEvents UsrCntlMessenger_ChatElement3 As usrCntlMessenger_ChatElement + Friend WithEvents btnTEST As Button + Friend WithEvents TimerNEW_MESSAGE As Timer + Friend WithEvents Timer_REFRESH As Timer + Friend WithEvents Panel2 As Panel + Friend WithEvents cbxInaktiveChats As CheckBox + Friend WithEvents cntxt As ContextMenuStrip + Friend WithEvents ChatDeaktivierenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents FlowLayoutPanel As FlowLayoutPanel + Friend WithEvents pic As PictureBox + Friend WithEvents lblOnlineOffline As Label + Friend WithEvents Panel3 As Panel + Friend WithEvents lblChatName As Label + Friend WithEvents Panel4 As Panel + Friend WithEvents Button5 As Button + Friend WithEvents PictureBox1 As PictureBox + Friend WithEvents MyTextBox1 As MyTextBox + Friend WithEvents Button4 As Button +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx new file mode 100644 index 0000000..a0f308d --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx @@ -0,0 +1,989 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 106, 17 + + + 242, 17 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb new file mode 100644 index 0000000..722c4e7 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb @@ -0,0 +1,870 @@ +Imports System.Drawing +Imports System.Threading +Imports System.Windows.Forms + +Public Class frmMessenger + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim CHAT As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat = Nothing + Dim MSG_LISTENDER As New cMessangerListender + Dim topMessages As String = "20" + Dim topMessagesDateHistory As Object = Nothing + Dim loaded = False + Public EMOJI_PATH_MAIN = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\" + Public EMOJI_PATH = "" + + Dim alloweasteregg = False + + Public Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub initEMOJI_PATH() + + EMOJI_PATH = EMOJI_PATH_MAIN + Try + Dim IPADDR As System.Net.IPAddress + IPADDR = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0) + + If IPADDR.ToString.Contains("172.16.1.") Then 'WAIDHAUS + EMOJI_PATH = "\\172.16.1.100\f\PROGRAMME\CHAT_EMOJIS\" + End If + + If IPADDR.ToString.Contains("192.168.133.") Then 'SALZBURG + EMOJI_PATH = "\\192.168.133.98\f\Programme\CHAT_EMOJIS\" + End If + + If IPADDR.ToString.Contains("192.168.32.") Then 'NICKELSDORF + EMOJI_PATH = "\\192.168.32.253\Files\Programme\CHAT_EMOJIS\" + End If + + If IPADDR.ToString.Contains("192.168.100") Then 'NEUHAUS + EMOJI_PATH = "\\192.168.100.20\Share\Programme\CHAT_EMOJIS\" + End If + + If Not IO.Directory.Exists(EMOJI_PATH) Then + EMOJI_PATH = EMOJI_PATH_MAIN + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellContentClick, dgvChats.CellClick + If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then + Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1) + intiDGVChats(dgv_ChatID, False) ' Splate ungelesen sol sich ändern + End If + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Dim f As New frmMessenger_NeuerChat + f.ShowDialog(Me) + + If f.chat_id > 0 Then + 'Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1) + intiDGVChats(f.chat_id) + End If + End Sub + + Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load + initEMOJI_PATH() + + rtbChatMessage.AllowDrop = True + MSG_LISTENDER.START() + TimerNEW_MESSAGE.Enabled = True + intiDGVChats() + + If My.Application.Info.AssemblyName = "SDL" Then + lbl.Text = "CHAT" + End If + MyFlowLayoutPanel1.Controls.Clear() + 'loaded = True + alloweasteregg = cAllgemein.MITARBEITER.mit_ChatEasteregg + initEmojis() + End Sub + + Sub initEmojis() + FlowLayoutPanel.Controls.Clear() + If alloweasteregg Then pic.Visible = False + + + + ' If IO.Directory.Exists(My.Application.roo "") Then + + If IO.Directory.Exists(EMOJI_PATH) Then + For Each a In IO.Directory.GetFiles(EMOJI_PATH) '.OrderBy(Function(f) f) + If alloweasteregg Or Not a.Contains("easteregg") Then + If IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then + + Dim p As New PictureBox + p.Size = New Size(40, 40) + p.BackgroundImage = Image.FromFile(a) + p.BackgroundImageLayout = ImageLayout.Zoom + p.Cursor = Cursors.Hand + AddHandler p.Click, Sub() + If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub + If CHAT IsNot Nothing Then + saveEmoji(a) + End If + End Sub + + FlowLayoutPanel.Controls.Add(p) + End If + End If + 'MsgBox(a) + Next + End If + End Sub + + 'Sub initEmojisTEST() + ' FlowLayoutPanel.Controls.Clear() + ' If alloweasteregg Then pic.Visible = False + + ' If IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then + ' Dim EmojiPath = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "CHAT_EMOJIS\" + ' If Not IO.Directory.Exists(EmojiPath) Then IO.Directory.CreateDirectory(EmojiPath) + + ' If VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.copyProgramLIST(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\", EmojiPath, {}) Then + ' For Each a In IO.Directory.GetFiles(EmojiPath) '.OrderBy(Function(f) f) + ' If alloweasteregg Or Not a.Contains("easteregg") Then + ' If IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then + + ' Dim p As New PictureBox + ' p.Size = New Size(40, 40) + ' p.BackgroundImage = Image.FromFile(a) + ' p.BackgroundImageLayout = ImageLayout.Zoom + ' p.Cursor = Cursors.Hand + ' AddHandler p.Click, Sub() + ' If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub + ' If CHAT IsNot Nothing Then + ' saveEmoji(a) + ' End If + ' End Sub + + ' FlowLayoutPanel.Controls.Add(p) + ' End If + ' End If + ' Next + ' End If + ' End If + 'End Sub + + Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True, Optional selFirst = False) + With dgvChats + Dim loadedTmp = loaded + If Not reloadChat Then + loaded = False + End If + + Dim whereName = "" + If MyTextBox1.Text.Trim <> String.Empty Then + whereName = " WHERE chat_name LIKE '%" & MyTextBox1.Text.Trim & "%' " + End If + + .DataSource = SQL.loadDgvBySql("SELECT * FROM( + SELECT [chat_id],CASE WHEN chat_name<>'' THEN chat_name ELSE (SELECT TOP 1 mit_vname + ' ' + mit_nname FROM tblMessenger_ChatMembers INNER JOIN tblMitarbeiter ON mit_id=chatMb_maId where chatMb_chatId=chat_id AND chatMb_maId <>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ") END as chat_name + ,(SELECT REPLACE(COUNT(*),'0','') FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE [chat_id]=chatMg_chatId AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0) as ungelesen ,chat_lastMsg + FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0 + AND chat_aktiv='" & (Not cbxInaktiveChats.Checked) & "' + ) as T " & whereName & " ORDER BY chat_lastMsg DESC", "ADMIN") + + If .Columns.Count = 0 Then Exit Sub + + .Columns("chat_id").Visible = False + .Columns("chat_lastMsg").Visible = False + .Columns("chat_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("ungelesen").Width = 30 + .Columns("ungelesen").HeaderText = "neu" + .Columns("ungelesen").DefaultCellStyle.ForeColor = Color.White + .Columns("ungelesen").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("ungelesen").DefaultCellStyle.Font = New Font(.Font.FontFamily, 7, FontStyle.Bold) + + dgvChats.GetOrder() + + If selFirst Then + dgvChats.ClearSelection() + SplitContainer1.Enabled = False + + If .Rows.Count > 0 Then + loaded = True + SplitContainer1.Enabled = True + .Rows(0).Selected = True + End If + loaded = loadedTmp + Else + + + If Not reloadChat Then + dgvChats.ClearSelection() + If dgv_ChatID > 0 Then + For Each r As DataGridViewRow In .Rows + If r.Cells("chat_id").Value = dgv_ChatID Then + dgvChats.ClearSelection() + r.Selected = True : Exit For + End If + Next + End If + loaded = loadedTmp + Else + + dgvChats.ClearSelection() + SplitContainer1.Enabled = False + + If dgv_ChatID > 0 Then + For Each r As DataGridViewRow In .Rows + If r.Cells("chat_id").Value = dgv_ChatID Then + dgvChats.ClearSelection() + SplitContainer1.Enabled = True + r.Selected = True : Exit For + End If + Next + End If + + End If + End If + dgvChats.SetOrder() + If dgvChats.SelectedRows.Count > 0 Then dgvChats.FirstDisplayedCell = dgvChats.SelectedRows(0).Cells("chat_name") + 'dgvChats.ClearSelection() + 'SplitContainer1.Enabled = False + + 'If dgv_ChatID > 0 Then + ' For Each r As DataGridViewRow In .Rows + ' If r.Cells("chat_id").Value = dgv_ChatID Then + ' dgvChats.ClearSelection() + ' SplitContainer1.Enabled = True + ' r.Selected = True : Exit For + ' End If + ' Next + 'End If + + + End With + If Not selFirst Then rtbChatMessage.Focus() + + End Sub + + + Private Sub dgvChats_SelectionChanged(sender As Object, e As EventArgs) Handles dgvChats.SelectionChanged + If Not loaded Then Exit Sub + topMessagesDateHistory = Nothing ' zurücksetzen des HistoryDate + MyFlowLayoutPanel1.Controls.Clear() + If dgvChats.SelectedRows.Count > 0 Then + CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, topMessages, topMessagesDateHistory) + SplitContainer1.Enabled = True + RELOAD_CHAT() + End If + End Sub + + Sub RELOAD_CHAT() + Try + lblChatName.Text = "-" + ' Dim scrollMax = (MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum) + MyFlowLayoutPanel1.Controls.Clear() + If CHAT IsNot Nothing Then + CHAT.READ_ALL_MESSAGES() + ' CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value) + For Each MSG In CHAT.CHAT_MESSAGES + MyFlowLayoutPanel1.Controls.Add(getControlFromMSG(MSG)) + Next + ' MyFlowLayoutPanel1.VerticalScroll.() + 'MyFlowLayoutPanel1.AutoScrollPosition = New Point(MyFlowLayoutPanel1.Width, MyFlowLayoutPanel1.Height) + ' If MyFlowLayoutPanel1.Controls.Count > 0 Then MyFlowLayoutPanel1.ScrollControlIntoView(MyFlowLayoutPanel1.Controls(MyFlowLayoutPanel1.Controls.Count - 1)) + + ' If scrollMax Then + MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum + + If CHAT.chat_name <> "" Then + lblChatName.Text = CHAT.chat_name + Button5.BackgroundImage = My.Resources.people + Else + lblChatName.Text = SQL.getValueTxtBySql("SELECT isnull(mit_vname,'') + ' ' + isnull(mit_nname,'') FROM [tblMessenger_ChatMembers] inner join tblMitarbeiter on mit_id=chatMb_maId where chatMb_chatId ='" & CHAT.chat_id & "' and chatMb_maId<>'" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'", "ADMIN") + Button5.BackgroundImage = My.Resources.person + End If + End If + checkOnlineOffline() + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + + Sub checkOnlineOffline() + Try + + If CHAT Is Nothing OrElse CHAT.chat_name <> "" Then + lblOnlineOffline.Visible = False + Else + lblOnlineOffline.Visible = True + Dim cntOnline = SQL.getValueTxtBySql("SELECT count(*) FROM [tblMessenger_ChatMembers] inner join tblSessions ON sess_maId=[chatMb_maId] and sess_lastRm > dateadd(MINUTE,-2, getdate()) where chatMb_chatId ='" & CHAT.chat_id & "' and chatMb_maId<>'" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'", "ADMIN") + If cntOnline > 0 Then + lblOnlineOffline.Text = "ONLINE" + lblOnlineOffline.BackColor = Color.MediumSeaGreen + Else + lblOnlineOffline.Text = "OFFLINE" + lblOnlineOffline.BackColor = Color.Red + End If + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + Function getControlFromMSG(MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages) + Select Case MSG.chatMg_type + Case "TEXT" + + Dim CHAT_ITEM As New usrCntlMessenger_ChatElement(MSG) + checkUsrId(MSG, CHAT_ITEM) + + 'CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text + 'CHAT_ITEM.lblName.Text = MSG.chatMg_maId + Return (CHAT_ITEM) + + + + 'CHAT.READ_ALL_MESSAGES() + + Case "ATTACHMENT" + + + Dim CHAT_ITEM As New usrCntlMessenger_ChatAnhang(MSG) + checkUsrId(MSG, CHAT_ITEM) + ' CHAT_ITEM.path = MSG.chatMg_text + ' CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text + 'CHAT_ITEM.lblName.Text = MSG.chatMg_maId + Return (CHAT_ITEM) + + Case "EMOJI" + + + Dim CHAT_ITEM As New usrCntlMessenger_ChatEmoji(Me, MSG) + checkUsrId(MSG, CHAT_ITEM) + ' CHAT_ITEM.path = MSG.chatMg_text + ' CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text + 'CHAT_ITEM.lblName.Text = MSG.chatMg_maId + Return (CHAT_ITEM) + + End Select + Return Nothing + End Function + + Sub REFRESH_CHAT() + Try + + If CHAT IsNot Nothing Then + CHAT.LOAD_MESSAGES(topMessages) + + ' CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value) + Dim newMsg As Boolean = False + For Each MSG In CHAT.CHAT_MESSAGES + Dim found As Boolean = False + For Each I In MyFlowLayoutPanel1.Controls + Select Case I.GetType.ToString + Case GetType(usrCntlMessenger_ChatElement).ToString + If DirectCast(I, usrCntlMessenger_ChatElement).CHAT_MSG.chatMg_id = MSG.chatMg_id Then + found = True + End If + Case GetType(usrCntlMessenger_ChatAnhang).ToString + If DirectCast(I, usrCntlMessenger_ChatAnhang).CHAT_MSG.chatMg_id = MSG.chatMg_id Then + found = True + End If + Case GetType(usrCntlMessenger_ChatEmoji).ToString + If DirectCast(I, usrCntlMessenger_ChatEmoji).CHAT_MSG.chatMg_id = MSG.chatMg_id Then + found = True + End If + End Select + + Next + If Not found Then + newMsg = True + MyFlowLayoutPanel1.Controls.Add(getControlFromMSG(MSG)) + + 'Dim CHAT_ITEM As New usrCntlMessenger_ChatElement(MSG) + 'checkUsrId(MSG, CHAT_ITEM) + + ''CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text + ''CHAT_ITEM.lblName.Text = MSG.chatMg_maId + 'MyFlowLayoutPanel1.Controls.Add(CHAT_ITEM) + CHAT.READ_ALL_MESSAGES() + End If + Next + If newMsg Then + MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum + End If + ' MyFlowLayoutPanel1.VerticalScroll.() + 'MyFlowLayoutPanel1.AutoScrollPosition = New Point(MyFlowLayoutPanel1.Width, MyFlowLayoutPanel1.Height) + ' If MyFlowLayoutPanel1.Controls.Count > 0 Then MyFlowLayoutPanel1.ScrollControlIntoView(MyFlowLayoutPanel1.Controls(MyFlowLayoutPanel1.Controls.Count - 1)) + ' MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum --> nur, wenn neue MSG + End If + checkOnlineOffline() + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + 'Sub ORDER_CHAT_MSG() + ' If Not CHECK_CHATMSG_ORDER() Then + + ' For Each I As usrCntlMessenger_ChatElement In MyFlowLayoutPanel1.Controls + + ' Next + ' End If + + 'End Sub + 'Function CHECK_CHATMSG_ORDER() As Boolean + ' Dim oldItem = Nothing + ' For Each I As usrCntlMessenger_ChatElement In MyFlowLayoutPanel1.Controls + ' If oldItem IsNot Nothing And I.CHAT_MSG.chatMg_datetime < oldItem.CHAT_MSG.chatMg_datetime Then + ' Return False + ' End If + ' oldItem = I + ' Next + ' Return True + 'End Function + Sub checkUsrId(MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages, CHAT_ITEM As usrCntlMessenger_ChatElement) + If MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + CHAT_ITEM.Margin = New Padding(MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30, 0, 0, 0) + 'CHAT_ITEM.Left = (MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30) + 'CHAT_ITEM.Anchor = AnchorStyles.None + 'CHAT_ITEM.Dock = DockStyle.Right + ' CHAT_ITEM.Dock = DockStyle.Right + CHAT_ITEM.setBgCOLOR(Color.FromArgb(192, 255, 192)) + End If + End Sub + Sub checkUsrId(MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages, CHAT_ITEM As usrCntlMessenger_ChatEmoji) + If MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + CHAT_ITEM.Margin = New Padding(MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30, 0, 0, 0) + 'CHAT_ITEM.Left = (MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30) + 'CHAT_ITEM.Anchor = AnchorStyles.None + 'CHAT_ITEM.Dock = DockStyle.Right + ' CHAT_ITEM.Dock = DockStyle.Right + CHAT_ITEM.setBgCOLOR(Color.FromArgb(192, 255, 192)) + End If + End Sub + Sub checkUsrId(MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages, CHAT_ITEM As usrCntlMessenger_ChatAnhang) + If MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + CHAT_ITEM.Margin = New Padding(MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30, 0, 0, 0) + 'CHAT_ITEM.Left = (MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30) + 'CHAT_ITEM.Anchor = AnchorStyles.None + 'CHAT_ITEM.Dock = DockStyle.Right + ' CHAT_ITEM.Dock = DockStyle.Right + CHAT_ITEM.setBgCOLOR(Color.FromArgb(192, 255, 192)) + End If + + End Sub + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub + If rtbChatMessage.Text.Trim <> "" Then + If CHAT IsNot Nothing Then + + Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + MSG.chatMg_text = rtbChatMessage.Text.Trim + MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname + MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then + SEND_TOKEN_NEW_MESSAGE() + ' CHAT.CHAT_MESSAGES.Add(MSG) + SET_ALL_READ() + REFRESH_CHAT() + rtbChatMessage.Text = "" + rtbChatMessage.Focus() + End If + + End If + End If + End Sub + + Sub SET_ALL_READ() + For Each u In MyFlowLayoutPanel1.Controls + Select Case u.GetType.ToString + Case GetType(usrCntlMessenger_ChatElement).ToString + DirectCast(u, usrCntlMessenger_ChatElement).lblNewMsg.Visible = False + Case GetType(usrCntlMessenger_ChatAnhang).ToString + DirectCast(u, usrCntlMessenger_ChatAnhang).lblNewMsg.Visible = False + Case GetType(usrCntlMessenger_ChatEmoji).ToString + DirectCast(u, usrCntlMessenger_ChatEmoji).lblNewMsg.Visible = False + End Select + Next + End Sub + Sub SEND_TOKEN_NEW_MESSAGE() + For Each MB In CHAT.CHAT_MEMBERS + If MB.chatMb_maId <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + + Dim IP = cSession.GET_IP_FROM_MAID(MB.chatMb_maId) + + If IP <> "" Then + Dim SC As New cServerClient ' SC.begin("192.168.0.50", "NEW_MESSAGE") '192.168.0.95 = atlas suben + SC.begin(IP, "NEW_MESSAGE") + ' MsgBox(IP) + End If + End If + Next + + 'SC.waitTillFinished() + 'Thread.Sleep(1000) + + 'If SC.status = "TaskSuccess" Then + + 'Else + + 'End If + + + End Sub + + + Private Sub rtbChatMessage_KeyDown(sender As Object, e As KeyEventArgs) Handles rtbChatMessage.KeyDown + If e.Modifiers = Keys.Control And e.KeyCode = Keys.Return Then + btn.PerformClick() + e.Handled = True + End If + End Sub + + + + Private Sub TimerNEW_MESSAGE_Tick(sender As Object, e As EventArgs) Handles TimerNEW_MESSAGE.Tick + If CHAT IsNot Nothing And VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True Then + VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = False + ' MsgBox("asd") + REFRESH_CHAT() + End If + End Sub + + Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_REFRESH.Tick + loaded = False + REFRESH_CHAT() + Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1) + If checkNewestShit() Then ' prüft, ob neue Nachrichten gekommen sind, sont kein Refresh (stört das scrollen) + intiDGVChats(dgv_ChatID, False) + End If + + loaded = True + End Sub + + + Function checkNewestShit() As Boolean + Try + + Dim Dt_New As DataTable = SQL.loadDgvBySql("SELECT [chat_id],CASE WHEN chat_name<>'' THEN chat_name ELSE (SELECT TOP 1 mit_vname + ' ' + mit_nname FROM tblMessenger_ChatMembers INNER JOIN tblMitarbeiter ON mit_id=chatMb_maId where chatMb_chatId=chat_id AND chatMb_maId <>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ") END as chat_name + ,(SELECT REPLACE(COUNT(*),'0','') FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE [chat_id]=chatMg_chatId AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0) as ungelesen + FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0 + AND chat_aktiv='" & (Not cbxInaktiveChats.Checked) & "' ORDER BY chat_lastMsg DESC", "ADMIN") + Dim Dt_Current As DataTable = dgvChats.DataSource + + If Dt_Current.Rows.Count <> Dt_New.Rows.Count Then Return True + + For Each r As DataRow In Dt_New.Rows + If r("ungelesen") IsNot DBNull.Value AndAlso r("ungelesen") <> "" AndAlso CInt(r("ungelesen")) > 0 Then + Return True + End If + Next + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + Sub initMsg() + Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1) + 'intiDGVChats(dgv_ChatID) + End Sub + + Private Sub frmMessenger_Shown(sender As Object, e As EventArgs) Handles Me.Shown + dgvChats.ClearSelection() + SplitContainer1.Enabled = False + loaded = True + End Sub + + Private Sub cbxInaktiveChats_CheckedChanged(sender As Object, e As EventArgs) Handles cbxInaktiveChats.CheckedChanged + intiDGVChats() + If sender.checked Then + ChatDeaktivierenToolStripMenuItem.Text = "Chat aktivieren" + Else + ChatDeaktivierenToolStripMenuItem.Text = "Chat deaktivieren" + End If + End Sub + + Private Sub ChatDeaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChatDeaktivierenToolStripMenuItem.Click + If dgvChats.SelectedRows.Count > 0 Then + If vbYes = MsgBox("Möchten Sie diesen Chat wirklich deaktivieren?", vbYesNoCancel) Then + + CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, 1) + SplitContainer1.Enabled = True + CHAT.chat_aktiv = Not CHAT.chat_aktiv + CHAT.SAVE(False) + + intiDGVChats() + End If + 'RELOAD_CHAT() + End If + End Sub + + 'Private Sub dgvChats_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellValueChanged + ' Try + + ' If dgvChats.Columns.Count > 0 Then + + ' If e.ColumnIndex = dgvChats.Columns("ungelesen").Index Then + ' If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then + ' dgvChats.Rows(e.RowIndex).Cells("ungelesen").Style.BackColor = Color.Red + ' End If + ' 'For Each r As DataGridViewRow In .Rows + ' ' If r.Cells("chat_id").Value = dgv_ChatID Then + ' ' dgvChats.ClearSelection() + ' ' r.Selected = True : Exit For + ' ' End If + + ' ' If r.Cells("ungelesen").Value <> "" Then + ' ' r.Cells("ungelesen").Style.BackColor = Color.Red + ' ' End If + ' 'Next + ' End If + ' End If + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' End Try + 'End Sub + + Private Sub dgvChats_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles dgvChats.CellPainting + Try + + If dgvChats.Columns.Count > 0 Then + + If e.ColumnIndex = dgvChats.Columns("ungelesen").Index Then + If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then + dgvChats.Rows(e.RowIndex).Cells("ungelesen").Style.BackColor = Color.Red + End If + 'For Each r As DataGridViewRow In .Rows + ' If r.Cells("chat_id").Value = dgv_ChatID Then + ' dgvChats.ClearSelection() + ' r.Selected = True : Exit For + ' End If + + ' If r.Cells("ungelesen").Value <> "" Then + ' r.Cells("ungelesen").Style.BackColor = Color.Red + ' End If + 'Next + End If + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub + If CHAT IsNot Nothing Then + Dim fd As New OpenFileDialog + ' fd.Filter = "Excel Dateien|*.xls;*.xlsx" + fd.RestoreDirectory = True + fd.Title = "Datei auswählen" + + ' fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + + 'fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG" + 'fd.FilterIndex = 2 + + If fd.ShowDialog() = System.Windows.Forms.DialogResult.OK And fd.FileName <> "" Then + saveFileAtt(fd.FileName) + 'Dim fileName = New IO.FileInfo(fd.FileName).Name + 'Dim docId = -1 + 'If saveToDS(fileName, fd.FileName, docId) Then + + ' Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + ' MSG.chatMg_type = "ATTACHMENT" + ' MSG.chatMg_text = fileName + ' MSG.chatMg_anhang_docId = docId + ' MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname + ' MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + ' If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then + ' SEND_TOKEN_NEW_MESSAGE() + ' ' CHAT.CHAT_MESSAGES.Add(MSG) + ' SET_ALL_READ() + ' REFRESH_CHAT() + ' rtbChatMessage.Text = "" + ' rtbChatMessage.Focus() + ' End If + ' End If + End If + + End If + End Sub + + Sub saveFileAtt(filePath) + Dim fileName = New IO.FileInfo(filePath).Name + Dim docId = -1 + If saveToDS(fileName, filePath, docId) Then + + Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + MSG.chatMg_type = "ATTACHMENT" + MSG.chatMg_text = fileName + MSG.chatMg_anhang_docId = docId + MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname + MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then + SEND_TOKEN_NEW_MESSAGE() + ' CHAT.CHAT_MESSAGES.Add(MSG) + SET_ALL_READ() + REFRESH_CHAT() + rtbChatMessage.Text = "" + rtbChatMessage.Focus() + End If + End If + End Sub + Sub saveEmoji(filePath) + ' Dim fileName = New IO.FileInfo(filePath).Name + 'Dim docId = -1 + 'If saveToDS(fileName, filePath, docId) Then + + Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + MSG.chatMg_type = "EMOJI" + MSG.chatMg_text = filePath + 'MSG.chatMg_anhang_docId = docId + MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname + MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then + SEND_TOKEN_NEW_MESSAGE() + ' CHAT.CHAT_MESSAGES.Add(MSG) + SET_ALL_READ() + REFRESH_CHAT() + 'rtbChatMessage.Text = filePath + 'rtbChatMessage.Focus() + End If + ' End If + End Sub + Public Shared Function saveToDS(fileName, sourcePath, Optional ByRef da_id = -1) As Boolean + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "CHAT_ANHAENGE", Now.ToString("ddMMyy_HHmmss.ffff"), "", "", fileName, -1, False) + If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False + If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False + da_id = DS.da_id + ' destPath = DS.GET_TOP1_PATH + Return True + End Function + + + Private Sub dgvChats_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvChats.CellMouseClick + If e.Button = MouseButtons.Right Then + + If e.RowIndex >= 0 Then + If dgvChats.Rows.Count > 0 Then + + 'Dim chatId = dgvChats.Rows(e.RowIndex).Cells("chat_id").Value + 'VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT() + dgvChats.ClearSelection() + SplitContainer1.Enabled = False + CHAT = Nothing + End If + dgvChats.Rows(e.RowIndex).Selected = True + cntxt.Show(Cursor.Position) + End If + End If + End Sub + + + + + Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles rtbChatMessage.DragEnter ', txt.DragEnter, Me.DragEnter, picPDF.DragEnter + e.Effect = DragDropEffects.All + End Sub + Private Sub txt_Click(sender As Object, e As DragEventArgs) Handles rtbChatMessage.DragDrop ', txt.DragDrop, Me.DragDrop, picPDF.DragDrop + Try + If e.Data.GetDataPresent("FileDrop", True) = True Then + Dim FileList As String() = CType(e.Data.GetData("FileDrop"), Object) 'Hier wird der Variable "Wert" das übergeben, was wir auf die Form gezogen haben. Bei einer Datei wäre es dann der Pfad der Datei. + If FileList.Count > 0 Then + 'If Not _MULTI_FILES And FileList.Count > 1 Then + ' MsgBox("Es können nicht mehrere Dateien hochgeladen werden!") + ' Exit Sub + 'End If + For Each W In FileList + If Not W.ToUpper.EndsWith(".EXE") Then + saveFileAtt(W) + End If + Next + End If + End If + Catch ex As Exception + MsgBox(" FEHLER: DragDrop!" & ex.Message & ex.StackTrace) + End Try + End Sub + + Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click + Dim codewort = InputBox("Whoami?", "¿").ToLower + If codewort = "easteregg" Or codewort = "osterhase" Then + cMitarbeiter.UPDATE_EASTEREGG(True) + cAllgemein.MITARBEITER.LOAD(cAllgemein.USRID) + + alloweasteregg = True + initEmojis() + MsgBox("Hurra! Neue Emojis freigeschaltet!") + End If + End Sub + + Private Sub pic_MouseHover(sender As Object, e As EventArgs) Handles pic.MouseEnter + pic.BackgroundImage = My.Resources.easteregg + End Sub + + Private Sub pic_MouseLeave(sender As Object, e As EventArgs) Handles pic.MouseLeave + pic.BackgroundImage = Nothing + + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + If CHAT Is Nothing Then Exit Sub + + If CHAT.chat_name <> "" Then + Dim f As New frmMessenger_Members(CHAT) + f.ShowDialog(Me) + Else + Dim mit_id = SQL.getValueTxtBySql("SELECT mit_id FROM [tblMessenger_ChatMembers] inner join tblMitarbeiter on mit_id=chatMb_maId where chatMb_chatId ='" & CHAT.chat_id & "' and chatMb_maId<>'" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'", "ADMIN") + Dim f As New frmMitarbeitersuche(mit_id) + f.ShowDialog(Me) + End If + + End Sub + + Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.Leave + intiDGVChats(, False, True) + End Sub + + Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyTextBox1.KeyUp + If e.KeyCode = Keys.Return Or MyTextBox1.Text = "" Then + intiDGVChats(, False, True) + End If + End Sub + + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click + MyTextBox1.Text = "" + intiDGVChats(, False, True) + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + Dim dateTmp = InputBox("Bitte geben Sie das Datum ein, ab dem der Chat dargestellt werden soll:",, Now.AddMonths(-1).ToShortDateString) + If IsDate(dateTmp) Then + topMessagesDateHistory = CDate(dateTmp) + CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, 1, topMessagesDateHistory) + RELOAD_CHAT() + Else + MsgBox("Datum ungültig!") + End If + End Sub + + + + 'Private Sub rtbChatMessage_TextChanged(sender As Object, e As EventArgs) Handles rtbChatMessage.TextChanged + ' FlowLayoutPanel.Enabled = (rtbChatMessage.Text = "") + 'End Sub +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.Designer.vb new file mode 100644 index 0000000..aaec229 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.Designer.vb @@ -0,0 +1,184 @@ + +Partial Class frmMessenger_Members + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger_Members)) + Me.dgvChatMembers = New System.Windows.Forms.DataGridView() + Me.lbl = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'dgvChatMembers + ' + Me.dgvChatMembers.AllowUserToAddRows = False + Me.dgvChatMembers.AllowUserToDeleteRows = False + Me.dgvChatMembers.AllowUserToResizeColumns = False + Me.dgvChatMembers.AllowUserToResizeRows = False + Me.dgvChatMembers.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma}) + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvChatMembers.Location = New System.Drawing.Point(12, 24) + Me.dgvChatMembers.Name = "dgvChatMembers" + Me.dgvChatMembers.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChatMembers.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvChatMembers.RowHeadersVisible = False + Me.dgvChatMembers.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvChatMembers.Size = New System.Drawing.Size(327, 323) + Me.dgvChatMembers.TabIndex = 2 + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(9, 8) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(55, 13) + Me.lbl.TabIndex = 4 + Me.lbl.Text = "Mitglieder:" + ' + 'Button2 + ' + Me.Button2.BackColor = System.Drawing.Color.MediumSeaGreen + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.ForeColor = System.Drawing.Color.White + Me.Button2.Location = New System.Drawing.Point(268, 353) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(71, 33) + Me.Button2.TabIndex = 5 + Me.Button2.Text = "+ NEU" + Me.Button2.UseVisualStyleBackColor = False + Me.Button2.Visible = False + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.Color.Red + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ForeColor = System.Drawing.Color.White + Me.Button1.Location = New System.Drawing.Point(179, 353) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(83, 33) + Me.Button1.TabIndex = 6 + Me.Button1.Text = "- Entfernen" + Me.Button1.UseVisualStyleBackColor = False + Me.Button1.Visible = False + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.HeaderText = "Column1" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.Visible = False + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn2.HeaderText = "Name" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.HeaderText = "Firma" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + ' + 'clmnMaId + ' + Me.clmnMaId.HeaderText = "Column1" + Me.clmnMaId.Name = "clmnMaId" + Me.clmnMaId.ReadOnly = True + Me.clmnMaId.Visible = False + ' + 'clmnName + ' + Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnName.HeaderText = "Name" + Me.clmnName.Name = "clmnName" + Me.clmnName.ReadOnly = True + ' + 'clmnFirma + ' + Me.clmnFirma.HeaderText = "Firma" + Me.clmnFirma.Name = "clmnFirma" + Me.clmnFirma.ReadOnly = True + ' + 'frmMessenger_Members + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(347, 394) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.lbl) + Me.Controls.Add(Me.dgvChatMembers) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmMessenger_Members" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Mitglieder" + CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents dgvChatMembers As Windows.Forms.DataGridView + Friend WithEvents lbl As Windows.Forms.Label + Friend WithEvents clmnMaId As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents clmnName As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents clmnFirma As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn1 As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Button2 As Windows.Forms.Button + Friend WithEvents Button1 As Windows.Forms.Button +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.resx b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.resx new file mode 100644 index 0000000..9bddf4e --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.resx @@ -0,0 +1,989 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + True + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.vb b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.vb new file mode 100644 index 0000000..aa5a27d --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.vb @@ -0,0 +1,73 @@ +Imports System.Windows.Forms + +Public Class frmMessenger_Members + + Dim SQL As New SQL + Dim CHAT As New cMessenger.cMessenger_Chat + + Dim loaded = False + Public chat_id As Integer = -1 + + Sub New(CHAT) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.CHAT = CHAT + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Sub initDGV() + With dgvChatMembers + .Rows.Clear() + + For Each MB In CHAT.CHAT_MEMBERS + Dim MA As New cMitarbeiter(MB.chatMb_maId) + .Rows.Add({MB.chatMb_maId, MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)}) + Next + .ClearSelection() + End With + End Sub + + Private Sub frmMessenger_Members_Load(sender As Object, e As EventArgs) Handles Me.Load + initDGV() + If CHAT.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = 4 Then + Button1.Visible = True + Button2.Visible = True + End If + End Sub + + Private Sub dgvChatMembers_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChatMembers.CellDoubleClick, dgvChatMembers.CellContentDoubleClick + If dgvChatMembers.SelectedRows.Count > 0 Then + Dim mit_id = dgvChatMembers.SelectedRows(0).Cells("clmnMaId").Value + Dim f As New frmMitarbeitersuche(mit_id) + f.ShowDialog(Me) + End If + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Dim f As New frmMessenger_NeuerChat(CHAT) + f.ShowDialog() + initDGV() + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + If dgvChatMembers.SelectedRows.Count > 1 Then + Dim ol As New List(Of Object) + For Each r As DataGridViewRow In dgvChatMembers.SelectedRows + If r.Cells("clmnMaId").Value <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + For Each MB In CHAT.CHAT_MEMBERS + If r.Cells("clmnMaId").Value = MB.chatMb_maId Then + ol.Add(MB) + End If + Next + End If + Next + For Each o In ol + CHAT.CHAT_MEMBERS.Remove(o) + If CHAT.SAVE_MEMBERS() Then + initDGV() + End If + Next + End If + End Sub +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.Designer.vb new file mode 100644 index 0000000..426acc0 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.Designer.vb @@ -0,0 +1,246 @@ + _ +Partial Class frmMessenger_NeuerChat + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger_NeuerChat)) + Me.dgvMitarbeiter = New System.Windows.Forms.DataGridView() + Me.dgvChatMembers = New System.Windows.Forms.DataGridView() + Me.btn = New System.Windows.Forms.Button() + Me.lbl = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + CType(Me.dgvMitarbeiter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'dgvMitarbeiter + ' + Me.dgvMitarbeiter.AllowUserToAddRows = False + Me.dgvMitarbeiter.AllowUserToDeleteRows = False + Me.dgvMitarbeiter.AllowUserToResizeColumns = False + Me.dgvMitarbeiter.AllowUserToResizeRows = False + Me.dgvMitarbeiter.BackgroundColor = System.Drawing.Color.White + Me.dgvMitarbeiter.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMitarbeiter.Location = New System.Drawing.Point(13, 46) + Me.dgvMitarbeiter.MultiSelect = False + Me.dgvMitarbeiter.Name = "dgvMitarbeiter" + Me.dgvMitarbeiter.RowHeadersVisible = False + Me.dgvMitarbeiter.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvMitarbeiter.Size = New System.Drawing.Size(304, 393) + Me.dgvMitarbeiter.TabIndex = 1 + ' + 'dgvChatMembers + ' + Me.dgvChatMembers.AllowUserToAddRows = False + Me.dgvChatMembers.BackgroundColor = System.Drawing.Color.White + Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma}) + Me.dgvChatMembers.Location = New System.Drawing.Point(323, 62) + Me.dgvChatMembers.Name = "dgvChatMembers" + Me.dgvChatMembers.ReadOnly = True + Me.dgvChatMembers.RowHeadersVisible = False + Me.dgvChatMembers.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvChatMembers.Size = New System.Drawing.Size(327, 323) + Me.dgvChatMembers.TabIndex = 2 + ' + 'btn + ' + Me.btn.BackColor = System.Drawing.Color.SteelBlue + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.ForeColor = System.Drawing.Color.White + Me.btn.Location = New System.Drawing.Point(323, 392) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(327, 47) + Me.btn.TabIndex = 3 + Me.btn.Text = "Chat eröffnen" + Me.btn.UseVisualStyleBackColor = False + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(320, 46) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(117, 13) + Me.lbl.TabIndex = 4 + Me.lbl.Text = "Eingeladene Mitglieder:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(10, 7) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(41, 13) + Me.Label1.TabIndex = 5 + Me.Label1.Text = "Suche:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(320, 7) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(58, 13) + Me.Label2.TabIndex = 7 + Me.Label2.Text = "Chatname:" + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.HeaderText = "Column1" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.Visible = False + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn2.HeaderText = "Name" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.HeaderText = "Firma" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(240, 23) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(77, 21) + Me.MyComboBox1.TabIndex = 8 + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = False + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.Enabled = False + Me.MyTextBox2.ForeColor = System.Drawing.Color.Black + Me.MyTextBox2.Location = New System.Drawing.Point(323, 23) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(327, 20) + Me.MyTextBox2.TabIndex = 6 + ' + 'clmnMaId + ' + Me.clmnMaId.HeaderText = "Column1" + Me.clmnMaId.Name = "clmnMaId" + Me.clmnMaId.ReadOnly = True + Me.clmnMaId.Visible = False + ' + 'clmnName + ' + Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnName.HeaderText = "Name" + Me.clmnName.Name = "clmnName" + Me.clmnName.ReadOnly = True + ' + 'clmnFirma + ' + Me.clmnFirma.HeaderText = "Firma" + Me.clmnFirma.Name = "clmnFirma" + Me.clmnFirma.ReadOnly = True + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._value = "" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(13, 23) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(228, 20) + Me.MyTextBox1.TabIndex = 0 + ' + 'frmMessenger_NeuerChat + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(662, 451) + Me.Controls.Add(Me.MyComboBox1) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.MyTextBox2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.lbl) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.dgvChatMembers) + Me.Controls.Add(Me.dgvMitarbeiter) + Me.Controls.Add(Me.MyTextBox1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmMessenger_NeuerChat" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Neuer Chat" + CType(Me.dgvMitarbeiter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents MyTextBox1 As MyTextBox + Friend WithEvents dgvMitarbeiter As Windows.Forms.DataGridView + Friend WithEvents dgvChatMembers As Windows.Forms.DataGridView + Friend WithEvents btn As Windows.Forms.Button + Friend WithEvents lbl As Windows.Forms.Label + Friend WithEvents Label1 As Windows.Forms.Label + Friend WithEvents Label2 As Windows.Forms.Label + Friend WithEvents MyTextBox2 As MyTextBox + Friend WithEvents clmnMaId As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents clmnName As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents clmnFirma As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents MyComboBox1 As MyComboBox + Friend WithEvents DataGridViewTextBoxColumn1 As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.resx b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.resx new file mode 100644 index 0000000..9bddf4e --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.resx @@ -0,0 +1,989 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + True + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb new file mode 100644 index 0000000..2ec6774 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb @@ -0,0 +1,180 @@ +Imports System.Windows.Forms + +Public Class frmMessenger_NeuerChat + + Dim SQL As New SQL + Dim CHAT As cMessenger.cMessenger_Chat = Nothing + Dim loaded = False + Public chat_id As Integer = -1 + + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + + Sub New(CHAT As cMessenger.cMessenger_Chat) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.CHAT = CHAT + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub initDGV() + If Not loaded Then Exit Sub + With dgvMitarbeiter + Dim FirmaTMP = MyComboBox1._value + Dim sqlStr = "SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname,CASE WHEN mit_firma='ALL' THEN mit_firmaHaupt ELSE mit_firma END as mit_firma FROM [tblMitarbeiter]" + sqlStr &= " WHERE mit_gekuendigt=0 AND /*mit_abteilung IN ('QS','ZOLL','DISPO') AND*/ [mit_TESTonly]=0 AND [mit_pseudoUser]=0 AND [mit_ChatBenutzer]=1 " + If MyComboBox1._value <> "" Then sqlStr &= " AND mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL')" + If MyTextBox1.Text <> "" Then sqlStr &= " AND (mit_nname LIKE '" & MyTextBox1.Text & "%' OR mit_vname LIKE '" & MyTextBox1.Text & "%' )" + + sqlStr &= " order by mit_nname,mit_vname" + + .DataSource = SQL.loadDgvBySql(sqlStr, "ADMIN") + + If .Columns.Count = 0 Then Exit Sub + + .Columns("mit_id").Visible = False + .AutoSizeColumnsMode = Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + End With + End Sub + + Private Sub frmMessenger_NeuerChat_Load(sender As Object, e As EventArgs) Handles Me.Load + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED")) + MyComboBox1.changeItem("") + loaded = True + initDGV() + If CHAT IsNot Nothing Then + Me.Text = "Neue Benutzer hinzufügen" + Me.MyTextBox2.Text = CHAT.chat_name + Me.MyTextBox2.Enabled = False + btn.Text = "Hinzufügen" + End If + End Sub + + Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged + initDGV() + End Sub + + Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyTextBox1.KeyDown + If dgvMitarbeiter.Rows.Count = 0 Then Exit Sub + + If e.KeyCode = Keys.Down Then + If dgvMitarbeiter.SelectedRows.Count = 0 Then dgvMitarbeiter.Rows(0).Selected = True + If dgvMitarbeiter.Rows.Count > dgvMitarbeiter.SelectedRows(0).Index + 1 Then + Dim newIndex = dgvMitarbeiter.SelectedRows(0).Index + 1 + dgvMitarbeiter.ClearSelection() + dgvMitarbeiter.Rows(newIndex).Selected = True + MyTextBox1.Focus() + End If + End If + + If e.KeyCode = Keys.Up Then + If dgvMitarbeiter.SelectedRows.Count = 0 Then dgvMitarbeiter.Rows(0).Selected = True + If dgvMitarbeiter.SelectedRows(0).Index > 0 Then + Dim newIndex = dgvMitarbeiter.SelectedRows(0).Index - 1 + dgvMitarbeiter.ClearSelection() + dgvMitarbeiter.Rows(newIndex).Selected = True + MyTextBox1.Focus() + End If + End If + If e.KeyCode = Keys.Return Then + addSelMA() + End If + End Sub + + Sub addSelMA() + If dgvMitarbeiter.SelectedRows.Count > 0 Then + dgvChatMembers.Rows.Add(dgvMitarbeiter.SelectedRows(0).Cells("mit_id").Value, dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value, dgvMitarbeiter.SelectedRows(0).Cells("mit_firma").Value) + initAddRemoveDGV() + MyTextBox1.Text = "" + MyTextBox1.Focus() + End If + End Sub + + Sub initAddRemoveDGV() + If dgvChatMembers.Rows.Count = 1 Then + MyTextBox2.Text = dgvChatMembers.Rows(0).Cells("clmnName").Value 'dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value + MyTextBox2.Enabled = False + Else + MyTextBox2.Text = "" + MyTextBox2.Enabled = True + End If + End Sub + + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + If dgvChatMembers.Rows.Count = 0 Then + MsgBox("Mitglieder eingeben!") + Exit Sub + End If + + If CHAT IsNot Nothing Then + + For Each r As DataGridViewRow In dgvChatMembers.Rows + Dim MB As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMembers(CHAT.chat_id, r.Cells("clmnMaId").Value) + MB.chatMb_maId = r.Cells("clmnMaId").Value + CHAT.CHAT_MEMBERS.Add(MB) + Next + + If CHAT.SAVE_MEMBERS Then + Me.Close() + End If + + Else + + If MyTextBox2.Enabled And MyTextBox2.Text = "" Then + MsgBox("Chat-Name eingeben!") + Exit Sub + End If + + Dim chatName = If(MyTextBox2.Enabled, MyTextBox2.Text, "") + + Dim MB_LIST As New List(Of Integer) + For Each r As DataGridViewRow In dgvChatMembers.Rows + MB_LIST.Add(r.Cells("clmnMaId").Value) + Next + If chatName = "" And MB_LIST.Count = 1 Then + If VERAG_PROG_ALLGEMEIN.cMessenger.CHECK_EXISTS(MB_LIST(0), chat_id) Then + If vbYes <> MsgBox("Ein Chat mit diesem Mitarbetier existiert bereits. Möchten Sie wirklich einen neuen öffnen?", vbYesNoCancel) Then + Me.DialogResult = DialogResult.OK + Me.Close() + Exit Sub + End If + End If + End If + MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst! + + Dim CHAT As cMessenger.cMessenger_Chat = Nothing + If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT) Then + If CHAT IsNot Nothing Then chat_id = CHAT.chat_id + Me.Close() + End If + End If + + End Sub + + Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged + initDGV() + End Sub + + Private Sub dgvMitarbeiter_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvMitarbeiter.CellDoubleClick + addSelMA() + End Sub + + + Private Sub dgvChatMembers_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles dgvChatMembers.RowsRemoved + initAddRemoveDGV() + End Sub +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.Designer.vb new file mode 100644 index 0000000..982d338 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.Designer.vb @@ -0,0 +1,151 @@ +Imports System.Windows.Forms + + +Partial Class usrCntlMessenger_ChatAnhang + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.pnl = New System.Windows.Forms.Panel() + Me.pic = New System.Windows.Forms.PictureBox() + Me.lblDateTime = New System.Windows.Forms.Label() + Me.lblNewMsg = New System.Windows.Forms.Label() + Me.lblName = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.pnl.SuspendLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.Controls.Add(Me.Panel1) + Me.pnl.Controls.Add(Me.txtChatmessage) + Me.pnl.Controls.Add(Me.pic) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(378, 72) + Me.pnl.TabIndex = 0 + ' + 'pic + ' + Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic.Location = New System.Drawing.Point(7, 4) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(100, 50) + Me.pic.TabIndex = 2 + Me.pic.TabStop = False + ' + 'lblDateTime + ' + Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.lblDateTime.ForeColor = System.Drawing.Color.Black + Me.lblDateTime.Location = New System.Drawing.Point(226, 58) + Me.lblDateTime.Name = "lblDateTime" + Me.lblDateTime.Size = New System.Drawing.Size(132, 13) + Me.lblDateTime.TabIndex = 5 + Me.lblDateTime.Text = "01.01.2020 10:12:00" + Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'lblNewMsg + ' + Me.lblNewMsg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblNewMsg.AutoSize = True + Me.lblNewMsg.BackColor = System.Drawing.Color.Red + Me.lblNewMsg.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold) + Me.lblNewMsg.ForeColor = System.Drawing.Color.White + Me.lblNewMsg.Location = New System.Drawing.Point(364, 58) + Me.lblNewMsg.Name = "lblNewMsg" + Me.lblNewMsg.Size = New System.Drawing.Size(11, 14) + Me.lblNewMsg.TabIndex = 6 + Me.lblNewMsg.Text = "!" + Me.lblNewMsg.Visible = False + ' + 'lblName + ' + Me.lblName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblName.AutoSize = True + Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold) + Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.lblName.Location = New System.Drawing.Point(4, 58) + Me.lblName.Name = "lblName" + Me.lblName.Size = New System.Drawing.Size(155, 13) + Me.lblName.TabIndex = 4 + Me.lblName.Text = "Max Mustermann (VERAG)" + ' + 'Panel1 + ' + Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.BackColor = System.Drawing.Color.Azure + Me.Panel1.Location = New System.Drawing.Point(2, 55) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(375, 3) + Me.Panel1.TabIndex = 4 + ' + 'txtChatmessage + ' + Me.txtChatmessage.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.txtChatmessage.BackColor = System.Drawing.Color.White + Me.txtChatmessage.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtChatmessage.Cursor = System.Windows.Forms.Cursors.Hand + Me.txtChatmessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) + Me.txtChatmessage.Location = New System.Drawing.Point(113, 17) + Me.txtChatmessage.MaxLineLength = -1 + Me.txtChatmessage.MaxLines_Warning = "" + Me.txtChatmessage.MaxLines_Warning_Label = Nothing + Me.txtChatmessage.Name = "txtChatmessage" + Me.txtChatmessage.ReadOnly = True + Me.txtChatmessage.Size = New System.Drawing.Size(260, 37) + Me.txtChatmessage.TabIndex = 1 + Me.txtChatmessage.Text = "Anhangdokument.pdf" + ' + 'usrCntlMessenger_ChatAnhang + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.lblDateTime) + Me.Controls.Add(Me.lblName) + Me.Controls.Add(Me.lblNewMsg) + Me.Controls.Add(Me.pnl) + Me.Name = "usrCntlMessenger_ChatAnhang" + Me.Size = New System.Drawing.Size(378, 72) + Me.pnl.ResumeLayout(False) + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents pnl As Panel + Friend WithEvents pic As PictureBox + Friend WithEvents txtChatmessage As MyRichTextBox + Friend WithEvents lblDateTime As Label + Friend WithEvents lblNewMsg As Label + Friend WithEvents lblName As Label + Friend WithEvents Panel1 As Panel +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.resx b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.vb b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.vb new file mode 100644 index 0000000..2f30ec3 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.vb @@ -0,0 +1,66 @@ +Imports System.Drawing + +Public Class usrCntlMessenger_ChatAnhang + Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure + Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages + + 'Public FI As String = "" + + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.CHAT_MSG = CHAT_MSG + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Sub setBgCOLOR(BG_COLOR) + ' Me.BG_COLOR = BG_COLOR + ' txtChatmessage.BackColor = BG_COLOR + Panel1.BackColor = BG_COLOR + End Sub + + Private Sub usrCntlMessenger_ChatAnhang_Load(sender As Object, e As EventArgs) Handles Me.Load + init() + End Sub + + Sub init() + If CHAT_MSG IsNot Nothing Then + txtChatmessage.Text = CHAT_MSG.chatMg_text + lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss") + lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")" + + Dim cnt = 0 + While (txtChatmessage.Size.Width - txtChatmessage.ClientSize.Width > 10) And cnt < 20 ' (txtChatmessage.Height - txtChatmessage.ClientSize.Height) > MyRTBInnerSize Or cnt > 100 + Me.Height += 20 : cnt += 1 + End While + setRead() + End If + End Sub + + Sub setRead() + For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST + If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + lblNewMsg.Visible = Not ST.chatMgSt_gelesen + End If + Next + End Sub + + Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, txtChatmessage.Click + If CHAT_MSG IsNot Nothing Then + Dim PATH = cDATENSERVER.GET_PDFPath_BY_DocID(CHAT_MSG.chatMg_anhang_docId, True) + 'Process.Start(PATH) + End If + End Sub + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.Designer.vb new file mode 100644 index 0000000..b7f0ccc --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.Designer.vb @@ -0,0 +1,138 @@ +Imports System.Windows.Forms + + +Partial Class usrCntlMessenger_ChatElement + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.pnl = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.lblDateTime = New System.Windows.Forms.Label() + Me.lblName = New System.Windows.Forms.Label() + Me.lblNewMsg = New System.Windows.Forms.Label() + Me.pnl.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.Controls.Add(Me.Panel1) + Me.pnl.Controls.Add(Me.lblDateTime) + Me.pnl.Controls.Add(Me.lblName) + Me.pnl.Controls.Add(Me.lblNewMsg) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(378, 48) + Me.pnl.TabIndex = 0 + ' + 'Panel1 + ' + Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.BackColor = System.Drawing.Color.Azure + Me.Panel1.Controls.Add(Me.txtChatmessage) + Me.Panel1.Location = New System.Drawing.Point(3, 3) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(375, 32) + Me.Panel1.TabIndex = 2 + ' + 'txtChatmessage + ' + Me.txtChatmessage.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtChatmessage.BackColor = System.Drawing.Color.Azure + Me.txtChatmessage.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtChatmessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) + Me.txtChatmessage.Location = New System.Drawing.Point(4, 4) + Me.txtChatmessage.MaxLineLength = -1 + Me.txtChatmessage.MaxLines_Warning = "" + Me.txtChatmessage.MaxLines_Warning_Label = Nothing + Me.txtChatmessage.Name = "txtChatmessage" + Me.txtChatmessage.ReadOnly = True + Me.txtChatmessage.Size = New System.Drawing.Size(368, 25) + Me.txtChatmessage.TabIndex = 0 + Me.txtChatmessage.Text = "Hallo, wie gehts?" + ' + 'lblDateTime + ' + Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.lblDateTime.ForeColor = System.Drawing.Color.Black + Me.lblDateTime.Location = New System.Drawing.Point(226, 34) + Me.lblDateTime.Name = "lblDateTime" + Me.lblDateTime.Size = New System.Drawing.Size(132, 13) + Me.lblDateTime.TabIndex = 1 + Me.lblDateTime.Text = "01.01.2020 10:12:00" + Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'lblName + ' + Me.lblName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblName.AutoSize = True + Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold) + Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.lblName.Location = New System.Drawing.Point(4, 34) + Me.lblName.Name = "lblName" + Me.lblName.Size = New System.Drawing.Size(155, 13) + Me.lblName.TabIndex = 0 + Me.lblName.Text = "Max Mustermann (VERAG)" + ' + 'lblNewMsg + ' + Me.lblNewMsg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblNewMsg.AutoSize = True + Me.lblNewMsg.BackColor = System.Drawing.Color.Red + Me.lblNewMsg.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold) + Me.lblNewMsg.ForeColor = System.Drawing.Color.White + Me.lblNewMsg.Location = New System.Drawing.Point(364, 34) + Me.lblNewMsg.Name = "lblNewMsg" + Me.lblNewMsg.Size = New System.Drawing.Size(11, 14) + Me.lblNewMsg.TabIndex = 3 + Me.lblNewMsg.Text = "!" + Me.lblNewMsg.Visible = False + ' + 'usrCntlMessenger_ChatElement + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.pnl) + Me.Name = "usrCntlMessenger_ChatElement" + Me.Size = New System.Drawing.Size(378, 48) + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents pnl As Panel + Friend WithEvents lblDateTime As Label + Friend WithEvents lblName As Label + Friend WithEvents Panel1 As Panel + Friend WithEvents txtChatmessage As VERAG_PROG_ALLGEMEIN.MyRichTextBox + Friend WithEvents lblNewMsg As Label +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.resx b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.vb b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.vb new file mode 100644 index 0000000..0d46d9f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.vb @@ -0,0 +1,51 @@ +Imports System.Drawing + +Public Class usrCntlMessenger_ChatElement + Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages + 'Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure + + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.CHAT_MSG = CHAT_MSG + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Sub setBgCOLOR(BG_COLOR) + ' Me.BG_COLOR = BG_COLOR + txtChatmessage.BackColor = BG_COLOR + Panel1.BackColor = BG_COLOR + End Sub + + Private Sub usrCntlMessenger_ChatElement_Load(sender As Object, e As EventArgs) Handles Me.Load + ' setBgCOLOR(Color.Azure) + If CHAT_MSG IsNot Nothing Then + lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss") + lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")" + txtChatmessage.Text = CHAT_MSG.chatMg_text + Dim cnt = 0 + While (txtChatmessage.Size.Width - txtChatmessage.ClientSize.Width > 10) And cnt < 20 ' (txtChatmessage.Height - txtChatmessage.ClientSize.Height) > MyRTBInnerSize Or cnt > 100 + Me.Height += 20 : cnt += 1 + End While + setRead() + End If + End Sub + + Sub setRead() + For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST + If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + lblNewMsg.Visible = Not ST.chatMgSt_gelesen + End If + Next + End Sub +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.Designer.vb new file mode 100644 index 0000000..ba67c0c --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.Designer.vb @@ -0,0 +1,132 @@ +Imports System.Windows.Forms + + +Partial Class usrCntlMessenger_ChatEmoji + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.pnl = New System.Windows.Forms.Panel() + Me.pic = New System.Windows.Forms.PictureBox() + Me.lblDateTime = New System.Windows.Forms.Label() + Me.lblNewMsg = New System.Windows.Forms.Label() + Me.lblName = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.pnl.SuspendLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.Controls.Add(Me.Panel1) + Me.pnl.Controls.Add(Me.pic) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(378, 72) + Me.pnl.TabIndex = 0 + ' + 'pic + ' + Me.pic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic.Location = New System.Drawing.Point(145, 5) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(100, 50) + Me.pic.TabIndex = 2 + Me.pic.TabStop = False + ' + 'lblDateTime + ' + Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.lblDateTime.ForeColor = System.Drawing.Color.Black + Me.lblDateTime.Location = New System.Drawing.Point(226, 58) + Me.lblDateTime.Name = "lblDateTime" + Me.lblDateTime.Size = New System.Drawing.Size(132, 13) + Me.lblDateTime.TabIndex = 5 + Me.lblDateTime.Text = "01.01.2020 10:12:00" + Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'lblNewMsg + ' + Me.lblNewMsg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblNewMsg.AutoSize = True + Me.lblNewMsg.BackColor = System.Drawing.Color.Red + Me.lblNewMsg.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold) + Me.lblNewMsg.ForeColor = System.Drawing.Color.White + Me.lblNewMsg.Location = New System.Drawing.Point(364, 58) + Me.lblNewMsg.Name = "lblNewMsg" + Me.lblNewMsg.Size = New System.Drawing.Size(11, 14) + Me.lblNewMsg.TabIndex = 6 + Me.lblNewMsg.Text = "!" + Me.lblNewMsg.Visible = False + ' + 'lblName + ' + Me.lblName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblName.AutoSize = True + Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold) + Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.lblName.Location = New System.Drawing.Point(4, 58) + Me.lblName.Name = "lblName" + Me.lblName.Size = New System.Drawing.Size(155, 13) + Me.lblName.TabIndex = 4 + Me.lblName.Text = "Max Mustermann (VERAG)" + ' + 'Panel1 + ' + Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.BackColor = System.Drawing.Color.Azure + Me.Panel1.Location = New System.Drawing.Point(2, 55) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(375, 3) + Me.Panel1.TabIndex = 3 + ' + 'usrCntlMessenger_ChatEmoji + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.lblDateTime) + Me.Controls.Add(Me.lblName) + Me.Controls.Add(Me.lblNewMsg) + Me.Controls.Add(Me.pnl) + Me.Name = "usrCntlMessenger_ChatEmoji" + Me.Size = New System.Drawing.Size(378, 72) + Me.pnl.ResumeLayout(False) + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents pnl As Panel + Friend WithEvents pic As PictureBox + Friend WithEvents lblDateTime As Label + Friend WithEvents lblNewMsg As Label + Friend WithEvents lblName As Label + Friend WithEvents Panel1 As Panel +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.resx b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.vb b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.vb new file mode 100644 index 0000000..1fd2e77 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.vb @@ -0,0 +1,85 @@ +Imports System.Drawing + +Public Class usrCntlMessenger_ChatEmoji + Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure + Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages + Dim frmM As frmMessenger + 'Public FI As String = "" + + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub New(frmM As frmMessenger, CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.CHAT_MSG = CHAT_MSG + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.frmM = frmM + End Sub + Sub setBgCOLOR(BG_COLOR) + ' Me.BG_COLOR = BG_COLOR + ' txtChatmessage.BackColor = BG_COLOR + Panel1.BackColor = BG_COLOR + End Sub + + Private Sub usrCntlMessenger_ChatAnhang_Load(sender As Object, e As EventArgs) Handles Me.Load + init() + End Sub + + Sub init() + If CHAT_MSG IsNot Nothing Then + ' txtChatmessage.Text = CHAT_MSG.chatMg_text + + Dim imgPath = CHAT_MSG.chatMg_text + Try + 'Dim frmM As frmMessenger = DirectCast(Me.Parent, frmMessenger) + If frmM.EMOJI_PATH <> frmM.EMOJI_PATH_MAIN Then + If IO.File.Exists(imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH)) Then + imgPath = imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH) + End If + End If + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + Try + pic.BackgroundImage = Image.FromFile(imgPath) + pic.BackgroundImageLayout = Windows.Forms.ImageLayout.Zoom + Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + End Try + lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss") + lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")" + + Dim cnt = 0 + + setRead() + + + End If + End Sub + + Sub setRead() + For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST + If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + lblNewMsg.Visible = Not ST.chatMgSt_gelesen + End If + Next + End Sub + + Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click + If CHAT_MSG IsNot Nothing Then + Dim PATH = cDATENSERVER.GET_PDFPath_BY_DocID(CHAT_MSG.chatMg_anhang_docId, True) + 'Process.Start(PATH) + End If + End Sub + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb new file mode 100644 index 0000000..3ec1002 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb @@ -0,0 +1,611 @@ + +Partial Class frmMitarbeitersuche + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMitarbeitersuche)) + Me.pnlSrch = New System.Windows.Forms.Panel() + Me.Button4 = New System.Windows.Forms.Button() + Me.btnClose = New System.Windows.Forms.Button() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.pnlMain = New System.Windows.Forms.Panel() + Me.pnl = New System.Windows.Forms.Panel() + Me.pnlWohnadresse = New System.Windows.Forms.Panel() + Me.lblWohnadresse = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.lblSpitzname = New System.Windows.Forms.Label() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.pnlMotto = New System.Windows.Forms.Panel() + Me.lblMotto = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.btn = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.picGeschlecht = New System.Windows.Forms.PictureBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.pic = New System.Windows.Forms.PictureBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.lblHandyNr = New System.Windows.Forms.Label() + Me.lblMail = New System.Windows.Forms.Label() + Me.lblTelefon = New System.Windows.Forms.Label() + Me.lblName = New System.Windows.Forms.Label() + Me.pnlGeburtstag = New System.Windows.Forms.Panel() + Me.lblGeburtstag = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) + Me.lblPosition = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.lblAbteilung = New System.Windows.Forms.Label() + Me.lblNiederlassung = New System.Windows.Forms.Label() + Me.lblFirma = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.pnlSrch.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlMain.SuspendLayout() + Me.pnl.SuspendLayout() + Me.pnlWohnadresse.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlMotto.SuspendLayout() + CType(Me.picGeschlecht, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlGeburtstag.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MyPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'pnlSrch + ' + Me.pnlSrch.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnlSrch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlSrch.Controls.Add(Me.Button4) + Me.pnlSrch.Controls.Add(Me.btnClose) + Me.pnlSrch.Controls.Add(Me.PictureBox2) + Me.pnlSrch.Controls.Add(Me.sbMitarbeiter) + Me.pnlSrch.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlSrch.Location = New System.Drawing.Point(0, 0) + Me.pnlSrch.Name = "pnlSrch" + Me.pnlSrch.Size = New System.Drawing.Size(776, 48) + Me.pnlSrch.TabIndex = 0 + ' + 'Button4 + ' + Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button4.BackColor = System.Drawing.SystemColors.Highlight + Me.Button4.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.people + Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ForeColor = System.Drawing.Color.White + Me.Button4.Location = New System.Drawing.Point(633, 11) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(49, 29) + Me.Button4.TabIndex = 20 + Me.Button4.UseVisualStyleBackColor = False + ' + 'btnClose + ' + Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnClose.BackColor = System.Drawing.Color.Red + Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.White + Me.btnClose.FlatAppearance.BorderSize = 0 + Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnClose.ForeColor = System.Drawing.Color.White + Me.btnClose.Location = New System.Drawing.Point(712, -1) + Me.btnClose.Name = "btnClose" + Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.btnClose.Size = New System.Drawing.Size(63, 28) + Me.btnClose.TabIndex = 19 + Me.btnClose.Text = "X" + Me.btnClose.UseVisualStyleBackColor = False + ' + 'PictureBox2 + ' + Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox2.Location = New System.Drawing.Point(7, 11) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(32, 29) + Me.PictureBox2.TabIndex = 18 + Me.PictureBox2.TabStop = False + ' + 'sbMitarbeiter + ' + Me.sbMitarbeiter._allowFreitext = False + Me.sbMitarbeiter._AllowSetValue = False + Me.sbMitarbeiter._allowSpaceAsSplitter = True + Me.sbMitarbeiter._autoSizeGross = False + Me.sbMitarbeiter._hideIfListEmpty = True + Me.sbMitarbeiter._value = Nothing + Me.sbMitarbeiter.conn_art = "FMZOLL" + Me.sbMitarbeiter.dgvpos = "LEFT" + Me.sbMitarbeiter.DISPLAY_PARAM = Nothing + Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing + Me.sbMitarbeiter.key_visible = False + Me.sbMitarbeiter.KEYPARAM = Nothing + Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11) + Me.sbMitarbeiter.Name = "sbMitarbeiter" + Me.sbMitarbeiter.searchActive = True + Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29) + Me.sbMitarbeiter.SQL_ORDER_BY = Nothing + Me.sbMitarbeiter.SQL_SELECT = Nothing + Me.sbMitarbeiter.SQL_WHERE = Nothing + Me.sbMitarbeiter.SQL_WhereParamList = Nothing + Me.sbMitarbeiter.TabIndex = 0 + Me.sbMitarbeiter.usrcntl = Nothing + ' + 'pnlMain + ' + Me.pnlMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlMain.Controls.Add(Me.pnl) + Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlMain.Location = New System.Drawing.Point(0, 48) + Me.pnlMain.Name = "pnlMain" + Me.pnlMain.Size = New System.Drawing.Size(776, 439) + Me.pnlMain.TabIndex = 1 + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(254, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.pnl.Controls.Add(Me.pnlWohnadresse) + Me.pnl.Controls.Add(Me.lblSpitzname) + Me.pnl.Controls.Add(Me.Panel4) + Me.pnl.Controls.Add(Me.Panel3) + Me.pnl.Controls.Add(Me.PictureBox3) + Me.pnl.Controls.Add(Me.pnlMotto) + Me.pnl.Controls.Add(Me.btn) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.picGeschlecht) + Me.pnl.Controls.Add(Me.Label10) + Me.pnl.Controls.Add(Me.pic) + Me.pnl.Controls.Add(Me.Label11) + Me.pnl.Controls.Add(Me.lblHandyNr) + Me.pnl.Controls.Add(Me.lblMail) + Me.pnl.Controls.Add(Me.lblTelefon) + Me.pnl.Controls.Add(Me.lblName) + Me.pnl.Controls.Add(Me.pnlGeburtstag) + Me.pnl.Controls.Add(Me.MyPanel1) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(774, 437) + Me.pnl.TabIndex = 24 + ' + 'pnlWohnadresse + ' + Me.pnlWohnadresse.Controls.Add(Me.lblWohnadresse) + Me.pnlWohnadresse.Controls.Add(Me.Label6) + Me.pnlWohnadresse.Location = New System.Drawing.Point(203, 353) + Me.pnlWohnadresse.Name = "pnlWohnadresse" + Me.pnlWohnadresse.Size = New System.Drawing.Size(701, 34) + Me.pnlWohnadresse.TabIndex = 20 + ' + 'lblWohnadresse + ' + Me.lblWohnadresse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.lblWohnadresse.Location = New System.Drawing.Point(152, 3) + Me.lblWohnadresse.Name = "lblWohnadresse" + Me.lblWohnadresse.Size = New System.Drawing.Size(411, 25) + Me.lblWohnadresse.TabIndex = 11 + Me.lblWohnadresse.Text = "A 4975 Suben" + ' + 'Label6 + ' + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label6.Location = New System.Drawing.Point(7, 3) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(139, 25) + Me.Label6.TabIndex = 10 + Me.Label6.Text = "Wohnort:" + ' + 'lblSpitzname + ' + Me.lblSpitzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!) + Me.lblSpitzname.Location = New System.Drawing.Point(13, 9) + Me.lblSpitzname.Name = "lblSpitzname" + Me.lblSpitzname.Size = New System.Drawing.Size(551, 42) + Me.lblSpitzname.TabIndex = 2 + Me.lblSpitzname.Text = """Maxl""" + Me.lblSpitzname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Panel4 + ' + Me.Panel4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel4.Location = New System.Drawing.Point(8, 93) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(758, 1) + Me.Panel4.TabIndex = 27 + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel3.Location = New System.Drawing.Point(0, 424) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(774, 13) + Me.Panel3.TabIndex = 26 + ' + 'PictureBox3 + ' + Me.PictureBox3.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.Verag_AG_Logopng + Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox3.Location = New System.Drawing.Point(8, 340) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(191, 50) + Me.PictureBox3.TabIndex = 18 + Me.PictureBox3.TabStop = False + ' + 'pnlMotto + ' + Me.pnlMotto.Controls.Add(Me.lblMotto) + Me.pnlMotto.Controls.Add(Me.Label7) + Me.pnlMotto.Location = New System.Drawing.Point(203, 307) + Me.pnlMotto.Name = "pnlMotto" + Me.pnlMotto.Size = New System.Drawing.Size(701, 83) + Me.pnlMotto.TabIndex = 21 + ' + 'lblMotto + ' + Me.lblMotto.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.lblMotto.Location = New System.Drawing.Point(152, 3) + Me.lblMotto.Name = "lblMotto" + Me.lblMotto.Size = New System.Drawing.Size(411, 63) + Me.lblMotto.TabIndex = 11 + Me.lblMotto.Text = "-" + ' + 'Label7 + ' + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label7.Location = New System.Drawing.Point(7, 3) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(139, 25) + Me.Label7.TabIndex = 10 + Me.Label7.Text = "Motto:" + ' + 'btn + ' + Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.stift + Me.btn.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btn.Location = New System.Drawing.Point(702, 9) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(70, 58) + Me.btn.TabIndex = 9 + Me.btn.Text = "Bearbeiten" + Me.btn.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btn.UseVisualStyleBackColor = True + Me.btn.Visible = False + ' + 'Label1 + ' + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label1.Location = New System.Drawing.Point(210, 153) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(139, 25) + Me.Label1.TabIndex = 21 + Me.Label1.Text = "Handy-Nr:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'picGeschlecht + ' + Me.picGeschlecht.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.männlich + Me.picGeschlecht.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picGeschlecht.Location = New System.Drawing.Point(647, 25) + Me.picGeschlecht.Name = "picGeschlecht" + Me.picGeschlecht.Size = New System.Drawing.Size(46, 36) + Me.picGeschlecht.TabIndex = 23 + Me.picGeschlecht.TabStop = False + ' + 'Label10 + ' + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label10.Location = New System.Drawing.Point(210, 102) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(139, 25) + Me.Label10.TabIndex = 15 + Me.Label10.Text = "E-Mail:" + Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pic + ' + Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Location = New System.Drawing.Point(10, 100) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(192, 198) + Me.pic.TabIndex = 0 + Me.pic.TabStop = False + ' + 'Label11 + ' + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label11.Location = New System.Drawing.Point(210, 127) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(139, 25) + Me.Label11.TabIndex = 14 + Me.Label11.Text = "Telefon-Nr:" + Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'lblHandyNr + ' + Me.lblHandyNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.lblHandyNr.Location = New System.Drawing.Point(353, 153) + Me.lblHandyNr.Name = "lblHandyNr" + Me.lblHandyNr.Size = New System.Drawing.Size(411, 25) + Me.lblHandyNr.TabIndex = 22 + Me.lblHandyNr.Text = "+43 7711 / 2777 0" + Me.lblHandyNr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'lblMail + ' + Me.lblMail.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblMail.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.lblMail.Location = New System.Drawing.Point(353, 102) + Me.lblMail.Name = "lblMail" + Me.lblMail.Size = New System.Drawing.Size(411, 25) + Me.lblMail.TabIndex = 17 + Me.lblMail.Text = "info@verag.ag" + Me.lblMail.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'lblTelefon + ' + Me.lblTelefon.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.lblTelefon.Location = New System.Drawing.Point(353, 127) + Me.lblTelefon.Name = "lblTelefon" + Me.lblTelefon.Size = New System.Drawing.Size(411, 25) + Me.lblTelefon.TabIndex = 16 + Me.lblTelefon.Text = "+43 7711 / 2777 0" + Me.lblTelefon.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'lblName + ' + Me.lblName.BackColor = System.Drawing.Color.Transparent + Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 22.0!) + Me.lblName.Location = New System.Drawing.Point(12, 38) + Me.lblName.Name = "lblName" + Me.lblName.Size = New System.Drawing.Size(695, 52) + Me.lblName.TabIndex = 1 + Me.lblName.Text = "Max Mustermann" + Me.lblName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pnlGeburtstag + ' + Me.pnlGeburtstag.Controls.Add(Me.lblGeburtstag) + Me.pnlGeburtstag.Controls.Add(Me.PictureBox1) + Me.pnlGeburtstag.Location = New System.Drawing.Point(8, 301) + Me.pnlGeburtstag.Name = "pnlGeburtstag" + Me.pnlGeburtstag.Size = New System.Drawing.Size(183, 33) + Me.pnlGeburtstag.TabIndex = 19 + ' + 'lblGeburtstag + ' + Me.lblGeburtstag.AutoSize = True + Me.lblGeburtstag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.lblGeburtstag.Location = New System.Drawing.Point(38, 6) + Me.lblGeburtstag.Name = "lblGeburtstag" + Me.lblGeburtstag.Size = New System.Drawing.Size(89, 20) + Me.lblGeburtstag.TabIndex = 12 + Me.lblGeburtstag.Text = "01.01.2020" + Me.lblGeburtstag.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.cake + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Location = New System.Drawing.Point(5, 3) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(27, 24) + Me.PictureBox1.TabIndex = 13 + Me.PictureBox1.TabStop = False + ' + 'MyPanel1 + ' + Me.MyPanel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(254, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.MyPanel1.Controls.Add(Me.lblPosition) + Me.MyPanel1.Controls.Add(Me.Label8) + Me.MyPanel1.Controls.Add(Me.Label2) + Me.MyPanel1.Controls.Add(Me.lblAbteilung) + Me.MyPanel1.Controls.Add(Me.lblNiederlassung) + Me.MyPanel1.Controls.Add(Me.lblFirma) + Me.MyPanel1.Controls.Add(Me.Label4) + Me.MyPanel1.Controls.Add(Me.Label3) + Me.MyPanel1.Location = New System.Drawing.Point(197, 181) + Me.MyPanel1.Name = "MyPanel1" + Me.MyPanel1.Size = New System.Drawing.Size(578, 116) + Me.MyPanel1.TabIndex = 28 + ' + 'lblPosition + ' + Me.lblPosition.BackColor = System.Drawing.Color.Transparent + Me.lblPosition.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.lblPosition.Location = New System.Drawing.Point(158, 87) + Me.lblPosition.Name = "lblPosition" + Me.lblPosition.Size = New System.Drawing.Size(411, 25) + Me.lblPosition.TabIndex = 10 + Me.lblPosition.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label8 + ' + Me.Label8.BackColor = System.Drawing.Color.Transparent + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label8.Location = New System.Drawing.Point(13, 87) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(139, 25) + Me.Label8.TabIndex = 9 + Me.Label8.Text = "Position:" + Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Label8.Visible = False + ' + 'Label2 + ' + Me.Label2.BackColor = System.Drawing.Color.Transparent + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label2.Location = New System.Drawing.Point(13, 5) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(139, 25) + Me.Label2.TabIndex = 3 + Me.Label2.Text = "Firma:" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'lblAbteilung + ' + Me.lblAbteilung.BackColor = System.Drawing.Color.Transparent + Me.lblAbteilung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.lblAbteilung.Location = New System.Drawing.Point(158, 55) + Me.lblAbteilung.Name = "lblAbteilung" + Me.lblAbteilung.Size = New System.Drawing.Size(411, 25) + Me.lblAbteilung.TabIndex = 8 + Me.lblAbteilung.Text = "IT" + Me.lblAbteilung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'lblNiederlassung + ' + Me.lblNiederlassung.BackColor = System.Drawing.Color.Transparent + Me.lblNiederlassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.lblNiederlassung.Location = New System.Drawing.Point(158, 30) + Me.lblNiederlassung.Name = "lblNiederlassung" + Me.lblNiederlassung.Size = New System.Drawing.Size(411, 25) + Me.lblNiederlassung.TabIndex = 7 + Me.lblNiederlassung.Text = "SUBEN" + Me.lblNiederlassung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'lblFirma + ' + Me.lblFirma.BackColor = System.Drawing.Color.Transparent + Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.lblFirma.Location = New System.Drawing.Point(158, 5) + Me.lblFirma.Name = "lblFirma" + Me.lblFirma.Size = New System.Drawing.Size(411, 25) + Me.lblFirma.TabIndex = 6 + Me.lblFirma.Text = "VERAG" + Me.lblFirma.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label4 + ' + Me.Label4.BackColor = System.Drawing.Color.Transparent + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label4.Location = New System.Drawing.Point(13, 55) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(139, 25) + Me.Label4.TabIndex = 5 + Me.Label4.Text = "Abteilung:" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label3 + ' + Me.Label3.BackColor = System.Drawing.Color.Transparent + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label3.Location = New System.Drawing.Point(13, 30) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(139, 25) + Me.Label3.TabIndex = 4 + Me.Label3.Text = "Niederlassung:" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel1.Location = New System.Drawing.Point(214, 230) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(553, 1) + Me.Panel1.TabIndex = 29 + ' + 'frmMitarbeitersuche + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.WhiteSmoke + Me.ClientSize = New System.Drawing.Size(776, 487) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.pnlMain) + Me.Controls.Add(Me.pnlSrch) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmMitarbeitersuche" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "frmMitarbeitersuche" + Me.pnlSrch.ResumeLayout(False) + Me.pnlSrch.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlMain.ResumeLayout(False) + Me.pnl.ResumeLayout(False) + Me.pnlWohnadresse.ResumeLayout(False) + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlMotto.ResumeLayout(False) + CType(Me.picGeschlecht, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlGeburtstag.ResumeLayout(False) + Me.pnlGeburtstag.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.MyPanel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents pnlSrch As Windows.Forms.Panel + Friend WithEvents pnlMain As Windows.Forms.Panel + Friend WithEvents btn As Windows.Forms.Button + Friend WithEvents lblAbteilung As Windows.Forms.Label + Friend WithEvents lblNiederlassung As Windows.Forms.Label + Friend WithEvents lblFirma As Windows.Forms.Label + Friend WithEvents Label4 As Windows.Forms.Label + Friend WithEvents Label3 As Windows.Forms.Label + Friend WithEvents Label2 As Windows.Forms.Label + Friend WithEvents lblSpitzname As Windows.Forms.Label + Friend WithEvents lblName As Windows.Forms.Label + Friend WithEvents pic As Windows.Forms.PictureBox + Friend WithEvents PictureBox1 As Windows.Forms.PictureBox + Friend WithEvents lblGeburtstag As Windows.Forms.Label + Friend WithEvents lblWohnadresse As Windows.Forms.Label + Friend WithEvents Label6 As Windows.Forms.Label + Friend WithEvents lblMail As Windows.Forms.Label + Friend WithEvents lblTelefon As Windows.Forms.Label + Friend WithEvents Label10 As Windows.Forms.Label + Friend WithEvents Label11 As Windows.Forms.Label + Friend WithEvents PictureBox2 As Windows.Forms.PictureBox + Friend WithEvents sbMitarbeiter As MySearchBox + Friend WithEvents btnClose As Windows.Forms.Button + Friend WithEvents PictureBox3 As Windows.Forms.PictureBox + Friend WithEvents pnlGeburtstag As Windows.Forms.Panel + Friend WithEvents pnlWohnadresse As Windows.Forms.Panel + Friend WithEvents Label1 As Windows.Forms.Label + Friend WithEvents lblHandyNr As Windows.Forms.Label + Friend WithEvents picGeschlecht As Windows.Forms.PictureBox + Friend WithEvents pnlMotto As Windows.Forms.Panel + Friend WithEvents lblMotto As Windows.Forms.Label + Friend WithEvents Label7 As Windows.Forms.Label + Friend WithEvents pnl As Windows.Forms.Panel + Friend WithEvents Panel4 As Windows.Forms.Panel + Friend WithEvents Panel3 As Windows.Forms.Panel + Friend WithEvents Button4 As Windows.Forms.Button + Friend WithEvents MyPanel1 As MyPanel + Friend WithEvents lblPosition As Windows.Forms.Label + Friend WithEvents Label8 As Windows.Forms.Label + Friend WithEvents Panel1 As Windows.Forms.Panel +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.resx b/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.resx new file mode 100644 index 0000000..d584bd9 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb new file mode 100644 index 0000000..1160b60 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb @@ -0,0 +1,198 @@ +Imports System.ComponentModel +Imports System.Drawing + +Public Class frmMitarbeitersuche + Dim mit_id As Integer = -1 + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Sub New(mit_id As Integer) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.mit_id = mit_id + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub lblMail_Click(sender As Object, e As EventArgs) Handles lblMail.Click + If lblMail.Text <> "" Then Process.Start("Mailto:" & lblMail.Text) + End Sub + + Private Sub frmMitarbeitersuche_Load(sender As Object, e As EventArgs) Handles Me.Load + pnl.Visible = False + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then + MsgBox("Noch nicht verfügbar!") + Me.Close() + End If + + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_MAVerzeichnis_SettingsTstmp Is Nothing And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pseudoUser Then + MsgBox("Sie müssen Ihren Benutzer erstmal konfigurieren, um das Verzeichnis einsehen zu können. Sie können die Einstellungen jederzeit ändern.") + + Dim f As New frmMitarbeitersucheBearbeiten(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + Else + Me.Close() + End If + initMA() + End If + + + sbMitarbeiter.initSearchBox(Me.FindForm, " [mit_id] ,[mit_username] ,(mit_vname + ' ' + mit_nname ) AS Name , CASE WHEN mit_firma='ALL' THEN mit_firmaHaupt ELSE mit_firma END as Firma, mit_niederlassung as Niederlassung FROM tblMitarbeiter", {"mit_vname", "mit_nname"}, " 1=1 AND mit_gekuendigt=0 AND [mit_TESTonly]=0 AND [mit_pseudoUser]=0 ", "mit_id", "mit_id", "Name", "ADMIN", , 400, 200, {"mit_id", "mit_username"}) + initMA() + + End Sub + + + Private Sub sbMitarbeiter_PropertyChanged() Handles sbMitarbeiter.VALUE_CHANGED + initMA() + End Sub + + Sub initMA() + btn.Visible = False + pnl.Visible = False + Dim MA As cMitarbeiter = Nothing + If sbMitarbeiter._value <> "" Then + MA = New cMitarbeiter(sbMitarbeiter._value) + End If + + If MA Is Nothing Then + clearMA() + Else + + pnl.Visible = True + lblName.Text = If(MA.mit_vname, "") & " " & If(MA.mit_nname, "") + lblSpitzname.Text = If(MA.mit_MAVerzeichnis_Spitzname, "") + lblFirma.Text = MA.getFirma + lblNiederlassung.Text = If(MA.mit_niederlassung, "") + + lblTelefon.Text = If(MA.mit_durchwahl, "") + lblMail.Text = If(MA.mit_email, "") + ' lblWohnadresse.Text = (If(MA.mit_land, "") & " " & If(MA.mit_plz, "") & " " & If(MA.mit_ort, "")).Trim + lblWohnadresse.Text = (If(MA.mit_plz, "") & " " & If(MA.mit_ort, "")).Trim + + pnlWohnadresse.Visible = MA.mit_MAVerzeichnis_allowWohnadresse + + lblMotto.Text = MA.mit_MAVerzeichnis_Motto + If lblMotto.Text.Trim <> "" Then lblMotto.Text = """" & lblMotto.Text & """" + pnlMotto.Visible = (lblMotto.Text <> "") + + lblHandyNr.Visible = MA.mit_MAVerzeichnis_allowHandynummer + lblHandyNr.Text = If(MA.mit_mobiltel, "") + + + Select Case If(MA.mit_abteilung, "") + Case "GF" : lblAbteilung.Text = "Geschäftsführung" + If MA.mit_vname = "Johann" And MA.mit_nname = "Luxbauer" Then lblAbteilung.Text = "VORSTAND / Geschäftsführung" + Case "VRR" : lblAbteilung.Text = "Verrechnung" + Case "BH", "BU" : lblAbteilung.Text = "Buchhaltung" + Case "MDM" : lblAbteilung.Text = "Maut/Diesel/Mehrwertsteuer" + Case "FISKAL" : lblAbteilung.Text = "Fiskalabteilung" + Case "ZOLL", "QS" : lblAbteilung.Text = "Zollabteilung" + If MA.mit_teamId IsNot Nothing Then + Dim team = SQL.DLookup("team_bezeichnung", "tblTeams", "team_id='" & MA.mit_teamId & "'", "ADMIN", "") + If team <> "" Then + lblAbteilung.Text &= " / " & team + End If + End If + Case Else : lblAbteilung.Text = If(MA.mit_abteilung, "") + End Select + + If MA.mit_MAVerzeichnis_allowGebDat Then + pnlGeburtstag.Visible = True + If MA.mit_MAVerzeichnis_allowGebDatOhneJahr AndAlso IsDate(If(MA.mit_gebdat, "")) Then + lblGeburtstag.Text = CDate(MA.mit_gebdat).ToString("dd.MM.") + Else + lblGeburtstag.Text = If(MA.mit_gebdat, "") + End If + Else + pnlGeburtstag.Visible = False + End If + + pic.BackgroundImage = My.Resources.personGray_m + picGeschlecht.Visible = True + If MA.mit_geschlecht = "w" Then + pic.BackgroundImage = My.Resources.personGray_w + picGeschlecht.BackgroundImage = My.Resources.weiblich + Else + pic.BackgroundImage = My.Resources.personGray_m + picGeschlecht.BackgroundImage = My.Resources.männlich + End If + + If MA.mit_MAVerzeichnis_allowFoto AndAlso MA.mit_foto_DocId IsNot Nothing Then + Try + pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_foto_DocId)) + Catch ex As Exception + pic.BackgroundImage = My.Resources.personGray_m + End Try + End If + + Select Case MA.getFirma + Case "VERAG" : PictureBox3.BackgroundImage = My.Resources.Verag_AG_Logopng + Case "UNISPED" : PictureBox3.BackgroundImage = My.Resources.Unisped_logo + Case "ATILLA" : PictureBox3.BackgroundImage = My.Resources.Atilla + Case "AMBAR" : PictureBox3.BackgroundImage = My.Resources.ambar_simple + Case "IMEX" : PictureBox3.BackgroundImage = My.Resources.IMEX_LOGO_simple + Case "FRONTOFFICE" : PictureBox3.BackgroundImage = My.Resources.FrontOfficeSUB_Horizontal + Case Else + PictureBox3.BackgroundImage = Nothing + End Select + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then + btn.Visible = True + End If + If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then + + btn.Visible = True + End If + End If + End Sub + + + Sub clearMA() + + lblName.Text = "" + lblSpitzname.Text = "" + lblFirma.Text = "" + lblNiederlassung.Text = "" + lblAbteilung.Text = "" + lblTelefon.Text = "" + lblMail.Text = "" + lblHandyNr.Text = "" + lblWohnadresse.Text = "" + pnlWohnadresse.Visible = False + pnlGeburtstag.Visible = False + pnlMotto.Visible = False + pic.BackgroundImage = My.Resources.personGray_m + picGeschlecht.Visible = False + End Sub + + Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click + Me.Close() + End Sub + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + If sbMitarbeiter._value = "" Then Exit Sub + Dim f As New frmMitarbeitersucheBearbeiten(sbMitarbeiter._value) + f.ShowDialog(Me) + initMA() + End Sub + + Private Sub frmMitarbeitersuche_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If mit_id > 0 Then + sbMitarbeiter.SET_VALUE(mit_id) + initMA() + End If + End Sub + + Private Sub pnl_Paint(sender As Object, e As Windows.Forms.PaintEventArgs) Handles pnl.Paint + + End Sub + + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb new file mode 100644 index 0000000..834b91b --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb @@ -0,0 +1,294 @@ + +Partial Class frmMitarbeitersucheBearbeiten + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMitarbeitersucheBearbeiten)) + Me.pnlSrch = New System.Windows.Forms.Panel() + Me.btnClose = New System.Windows.Forms.Button() + Me.pnlMain = New System.Windows.Forms.Panel() + Me.btn = New System.Windows.Forms.Button() + Me.txtMotto = New System.Windows.Forms.TextBox() + Me.cbxMotto = New System.Windows.Forms.CheckBox() + Me.cbxGeburtsdatumOhneJahr = New System.Windows.Forms.CheckBox() + Me.txtHandynummer = New System.Windows.Forms.TextBox() + Me.txtSpitzname = New System.Windows.Forms.TextBox() + Me.lblGeburtstag = New System.Windows.Forms.Label() + Me.cbxHandynummer = New System.Windows.Forms.CheckBox() + Me.cbxSpitzname = New System.Windows.Forms.CheckBox() + Me.cbxGeburtsdatum = New System.Windows.Forms.CheckBox() + Me.cbxWohnort = New System.Windows.Forms.CheckBox() + Me.lblWohnadresse = New System.Windows.Forms.Label() + Me.lblName = New System.Windows.Forms.Label() + Me.pic = New System.Windows.Forms.PictureBox() + Me.cbxAllowFoto = New System.Windows.Forms.CheckBox() + Me.pnlSrch.SuspendLayout() + Me.pnlMain.SuspendLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnlSrch + ' + Me.pnlSrch.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnlSrch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlSrch.Controls.Add(Me.btnClose) + Me.pnlSrch.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlSrch.Location = New System.Drawing.Point(0, 0) + Me.pnlSrch.Name = "pnlSrch" + Me.pnlSrch.Size = New System.Drawing.Size(703, 29) + Me.pnlSrch.TabIndex = 0 + ' + 'btnClose + ' + Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnClose.BackColor = System.Drawing.Color.Red + Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.White + Me.btnClose.FlatAppearance.BorderSize = 0 + Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnClose.ForeColor = System.Drawing.Color.White + Me.btnClose.Location = New System.Drawing.Point(639, -1) + Me.btnClose.Name = "btnClose" + Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.btnClose.Size = New System.Drawing.Size(63, 28) + Me.btnClose.TabIndex = 19 + Me.btnClose.Text = "X" + Me.btnClose.UseVisualStyleBackColor = False + ' + 'pnlMain + ' + Me.pnlMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlMain.Controls.Add(Me.cbxAllowFoto) + Me.pnlMain.Controls.Add(Me.btn) + Me.pnlMain.Controls.Add(Me.txtMotto) + Me.pnlMain.Controls.Add(Me.cbxMotto) + Me.pnlMain.Controls.Add(Me.cbxGeburtsdatumOhneJahr) + Me.pnlMain.Controls.Add(Me.txtHandynummer) + Me.pnlMain.Controls.Add(Me.txtSpitzname) + Me.pnlMain.Controls.Add(Me.lblGeburtstag) + Me.pnlMain.Controls.Add(Me.cbxHandynummer) + Me.pnlMain.Controls.Add(Me.cbxSpitzname) + Me.pnlMain.Controls.Add(Me.cbxGeburtsdatum) + Me.pnlMain.Controls.Add(Me.cbxWohnort) + Me.pnlMain.Controls.Add(Me.lblWohnadresse) + Me.pnlMain.Controls.Add(Me.lblName) + Me.pnlMain.Controls.Add(Me.pic) + Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlMain.Location = New System.Drawing.Point(0, 29) + Me.pnlMain.Name = "pnlMain" + Me.pnlMain.Size = New System.Drawing.Size(703, 335) + Me.pnlMain.TabIndex = 1 + ' + 'btn + ' + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.btn.Location = New System.Drawing.Point(357, 261) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(333, 51) + Me.btn.TabIndex = 32 + Me.btn.Text = "Speichern" + Me.btn.UseVisualStyleBackColor = True + ' + 'txtMotto + ' + Me.txtMotto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.txtMotto.Location = New System.Drawing.Point(357, 210) + Me.txtMotto.Name = "txtMotto" + Me.txtMotto.Size = New System.Drawing.Size(333, 29) + Me.txtMotto.TabIndex = 31 + ' + 'cbxMotto + ' + Me.cbxMotto.AutoSize = True + Me.cbxMotto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.cbxMotto.Location = New System.Drawing.Point(186, 212) + Me.cbxMotto.Name = "cbxMotto" + Me.cbxMotto.Size = New System.Drawing.Size(75, 28) + Me.cbxMotto.TabIndex = 30 + Me.cbxMotto.Text = "Motto" + Me.cbxMotto.UseVisualStyleBackColor = True + ' + 'cbxGeburtsdatumOhneJahr + ' + Me.cbxGeburtsdatumOhneJahr.AutoSize = True + Me.cbxGeburtsdatumOhneJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.cbxGeburtsdatumOhneJahr.Location = New System.Drawing.Point(489, 110) + Me.cbxGeburtsdatumOhneJahr.Name = "cbxGeburtsdatumOhneJahr" + Me.cbxGeburtsdatumOhneJahr.Size = New System.Drawing.Size(114, 28) + Me.cbxGeburtsdatumOhneJahr.TabIndex = 29 + Me.cbxGeburtsdatumOhneJahr.Text = "ohne Jahr" + Me.cbxGeburtsdatumOhneJahr.UseVisualStyleBackColor = True + ' + 'txtHandynummer + ' + Me.txtHandynummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.txtHandynummer.Location = New System.Drawing.Point(357, 176) + Me.txtHandynummer.Name = "txtHandynummer" + Me.txtHandynummer.Size = New System.Drawing.Size(333, 29) + Me.txtHandynummer.TabIndex = 28 + ' + 'txtSpitzname + ' + Me.txtSpitzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.txtSpitzname.Location = New System.Drawing.Point(357, 142) + Me.txtSpitzname.Name = "txtSpitzname" + Me.txtSpitzname.Size = New System.Drawing.Size(333, 29) + Me.txtSpitzname.TabIndex = 27 + ' + 'lblGeburtstag + ' + Me.lblGeburtstag.AutoSize = True + Me.lblGeburtstag.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold) + Me.lblGeburtstag.Location = New System.Drawing.Point(353, 111) + Me.lblGeburtstag.Name = "lblGeburtstag" + Me.lblGeburtstag.Size = New System.Drawing.Size(110, 24) + Me.lblGeburtstag.TabIndex = 12 + Me.lblGeburtstag.Text = "01.01.2020" + Me.lblGeburtstag.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'cbxHandynummer + ' + Me.cbxHandynummer.AutoSize = True + Me.cbxHandynummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.cbxHandynummer.Location = New System.Drawing.Point(186, 178) + Me.cbxHandynummer.Name = "cbxHandynummer" + Me.cbxHandynummer.Size = New System.Drawing.Size(155, 28) + Me.cbxHandynummer.TabIndex = 26 + Me.cbxHandynummer.Text = "Handynummer" + Me.cbxHandynummer.UseVisualStyleBackColor = True + ' + 'cbxSpitzname + ' + Me.cbxSpitzname.AutoSize = True + Me.cbxSpitzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.cbxSpitzname.Location = New System.Drawing.Point(186, 144) + Me.cbxSpitzname.Name = "cbxSpitzname" + Me.cbxSpitzname.Size = New System.Drawing.Size(117, 28) + Me.cbxSpitzname.TabIndex = 25 + Me.cbxSpitzname.Text = "Spitzname" + Me.cbxSpitzname.UseVisualStyleBackColor = True + ' + 'cbxGeburtsdatum + ' + Me.cbxGeburtsdatum.AutoSize = True + Me.cbxGeburtsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.cbxGeburtsdatum.Location = New System.Drawing.Point(186, 110) + Me.cbxGeburtsdatum.Name = "cbxGeburtsdatum" + Me.cbxGeburtsdatum.Size = New System.Drawing.Size(147, 28) + Me.cbxGeburtsdatum.TabIndex = 24 + Me.cbxGeburtsdatum.Text = "Geburtsdatum" + Me.cbxGeburtsdatum.UseVisualStyleBackColor = True + ' + 'cbxWohnort + ' + Me.cbxWohnort.AutoSize = True + Me.cbxWohnort.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.cbxWohnort.Location = New System.Drawing.Point(186, 76) + Me.cbxWohnort.Name = "cbxWohnort" + Me.cbxWohnort.Size = New System.Drawing.Size(101, 28) + Me.cbxWohnort.TabIndex = 23 + Me.cbxWohnort.Text = "Wohnort" + Me.cbxWohnort.UseVisualStyleBackColor = True + ' + 'lblWohnadresse + ' + Me.lblWohnadresse.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold) + Me.lblWohnadresse.Location = New System.Drawing.Point(353, 76) + Me.lblWohnadresse.Name = "lblWohnadresse" + Me.lblWohnadresse.Size = New System.Drawing.Size(341, 28) + Me.lblWohnadresse.TabIndex = 11 + Me.lblWohnadresse.Text = "A 4975 Suben" + ' + 'lblName + ' + Me.lblName.BackColor = System.Drawing.Color.Transparent + Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!) + Me.lblName.Location = New System.Drawing.Point(178, 6) + Me.lblName.Name = "lblName" + Me.lblName.Size = New System.Drawing.Size(452, 52) + Me.lblName.TabIndex = 1 + Me.lblName.Text = "Max Mustermann" + Me.lblName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pic + ' + Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic.Location = New System.Drawing.Point(7, 3) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(165, 178) + Me.pic.TabIndex = 0 + Me.pic.TabStop = False + ' + 'cbxAllowFoto + ' + Me.cbxAllowFoto.AutoSize = True + Me.cbxAllowFoto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.cbxAllowFoto.Location = New System.Drawing.Point(7, 187) + Me.cbxAllowFoto.Name = "cbxAllowFoto" + Me.cbxAllowFoto.Size = New System.Drawing.Size(150, 28) + Me.cbxAllowFoto.TabIndex = 33 + Me.cbxAllowFoto.Text = "Foto anzeigen" + Me.cbxAllowFoto.UseVisualStyleBackColor = True + ' + 'frmMitarbeitersucheBearbeiten + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(703, 364) + Me.Controls.Add(Me.pnlMain) + Me.Controls.Add(Me.pnlSrch) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmMitarbeitersucheBearbeiten" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "frmMitarbeitersuche" + Me.pnlSrch.ResumeLayout(False) + Me.pnlMain.ResumeLayout(False) + Me.pnlMain.PerformLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents pnlSrch As Windows.Forms.Panel + Friend WithEvents pnlMain As Windows.Forms.Panel + Friend WithEvents lblName As Windows.Forms.Label + Friend WithEvents pic As Windows.Forms.PictureBox + Friend WithEvents lblGeburtstag As Windows.Forms.Label + Friend WithEvents lblWohnadresse As Windows.Forms.Label + Friend WithEvents btnClose As Windows.Forms.Button + Friend WithEvents btn As Windows.Forms.Button + Friend WithEvents txtMotto As Windows.Forms.TextBox + Friend WithEvents cbxMotto As Windows.Forms.CheckBox + Friend WithEvents cbxGeburtsdatumOhneJahr As Windows.Forms.CheckBox + Friend WithEvents txtHandynummer As Windows.Forms.TextBox + Friend WithEvents txtSpitzname As Windows.Forms.TextBox + Friend WithEvents cbxHandynummer As Windows.Forms.CheckBox + Friend WithEvents cbxSpitzname As Windows.Forms.CheckBox + Friend WithEvents cbxGeburtsdatum As Windows.Forms.CheckBox + Friend WithEvents cbxWohnort As Windows.Forms.CheckBox + Friend WithEvents cbxAllowFoto As Windows.Forms.CheckBox +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.resx b/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.resx new file mode 100644 index 0000000..d584bd9 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb b/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb new file mode 100644 index 0000000..7007004 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb @@ -0,0 +1,162 @@ +Imports System.ComponentModel +Imports System.Drawing + +Public Class frmMitarbeitersucheBearbeiten + Dim MA As cMitarbeiter = Nothing + + + Sub New(mit_id) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + MA = New cMitarbeiter(mit_id) + End Sub + + + + Private Sub frmMitarbeitersuche_Load(sender As Object, e As EventArgs) Handles Me.Load + If MA Is Nothing Then Me.Close() + initMA() + End Sub + + + + Sub initMA() + If MA Is Nothing OrElse MA.mit_id <= 0 Then MsgBox("Fehler Benutzer!") : Exit Sub + + lblName.Text = If(MA.mit_vname, "") & " " & If(MA.mit_nname, "") + + cbxSpitzname.Checked = Not (MA.mit_MAVerzeichnis_Spitzname Is Nothing) + cbxMotto.Checked = Not (MA.mit_MAVerzeichnis_Motto Is Nothing) + cbxHandynummer.Checked = MA.mit_MAVerzeichnis_allowHandynummer + cbxGeburtsdatumOhneJahr.Checked = MA.mit_MAVerzeichnis_allowGebDatOhneJahr + cbxGeburtsdatum.Checked = MA.mit_MAVerzeichnis_allowGebDat + cbxWohnort.Checked = MA.mit_MAVerzeichnis_allowWohnadresse + cbxAllowFoto.Checked = MA.mit_MAVerzeichnis_allowFoto + + + + txtSpitzname.Text = If(MA.mit_MAVerzeichnis_Spitzname, "") + txtHandynummer.Text = If(MA.mit_mobiltel, "") + txtMotto.Text = If(MA.mit_MAVerzeichnis_Motto, "") + + lblWohnadresse.Text = (If(MA.mit_land, "") & " " & If(MA.mit_plz, "") & " " & If(MA.mit_ort, "")).Trim + lblGeburtstag.Text = If(MA.mit_gebdat, "") + + pic.BackgroundImage = My.Resources.personGray_m + + If MA.mit_foto_DocId IsNot Nothing Then + Try + pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_foto_DocId)) + Catch ex As Exception + pic.BackgroundImage = My.Resources.personGray_m + End Try + ElseIf MA.mit_geschlecht = "w" Then + pic.BackgroundImage = My.Resources.personGray_w + Else + pic.BackgroundImage = My.Resources.personGray_m + End If + + End Sub + + Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click + Me.Close() + End Sub + + Private Sub cbxSpitzname_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSpitzname.CheckedChanged + txtSpitzname.Enabled = sender.Checked + If Not sender.Checked Then txtSpitzname.Text = "" + End Sub + + Private Sub cbxHandynummer_CheckedChanged(sender As Object, e As EventArgs) Handles cbxHandynummer.CheckedChanged + txtHandynummer.Enabled = sender.Checked + End Sub + + Private Sub cbxMotto_CheckedChanged(sender As Object, e As EventArgs) Handles cbxMotto.CheckedChanged + txtMotto.Enabled = sender.Checked + If Not sender.Checked Then txtMotto.Text = "" + End Sub + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + + If cbxSpitzname.Checked Then + MA.mit_MAVerzeichnis_Spitzname = txtSpitzname.Text + Else + MA.mit_MAVerzeichnis_Spitzname = Nothing + End If + + If cbxHandynummer.Checked Then + MA.mit_mobiltel = txtHandynummer.Text + Else + MA.mit_mobiltel = "" + End If + If cbxMotto.Checked Then + MA.mit_MAVerzeichnis_Motto = txtMotto.Text + Else + MA.mit_MAVerzeichnis_Motto = Nothing + End If + + MA.mit_MAVerzeichnis_allowGebDat = cbxGeburtsdatum.Checked + MA.mit_MAVerzeichnis_allowGebDatOhneJahr = cbxGeburtsdatumOhneJahr.Checked + MA.mit_MAVerzeichnis_allowWohnadresse = cbxWohnort.Checked + MA.mit_MAVerzeichnis_allowHandynummer = cbxHandynummer.Checked + MA.mit_MAVerzeichnis_allowFoto = cbxAllowFoto.Checked + + If MA.mit_id = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + MA.mit_MAVerzeichnis_SettingsTstmp = Now + End If + + If MA.mit_id <= 0 Then MsgBox("Fehler ID!") : Exit Sub + + If MA.SAVE Then + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + End If + End Sub + + Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click + Dim fd As Windows.Forms.OpenFileDialog = New Windows.Forms.OpenFileDialog() + + fd.Title = "Bild auswählen" + ' fd.InitialDirectory = "F:\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\" + fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG" + fd.FilterIndex = 2 + fd.RestoreDirectory = True + + If fd.ShowDialog() = DialogResult.OK AndAlso fd.FileName <> "" Then + + Dim Extension = New IO.FileInfo(fd.FileName).Extension + Dim docId = -1 + If saveToDS(Extension, fd.FileName, docId) Then + + MA.mit_foto_DocId = docId + Try + pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_foto_DocId)) + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End If + End If + End Sub + + Public Function saveToDS(Extension, sourcePath, Optional ByRef da_id = -1) As Boolean + + Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing + If da_id > 0 Then + DS = New cDATENSERVER(da_id) + Else + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id & Extension, -1, False) + End If + + ' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id, -1, False) + ' MsgBox(DS.da_id) + If Not DS.uploadDataToDATENSERVER(sourcePath,,, False,, False) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False + If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False + da_id = DS.da_id + ' destPath = DS.GET_TOP1_PATH + Return True + End Function + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/My Project/Application.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/My Project/Application.Designer.vb new file mode 100644 index 0000000..8ab460b --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/My Project/Application.myapp b/SDL/VERAG_PROG_ALLGEMEIN/My Project/Application.myapp new file mode 100644 index 0000000..e62f1a5 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 2 + true + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/My Project/AssemblyInfo.vb b/SDL/VERAG_PROG_ALLGEMEIN/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..210db16 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die mit einer Assembly verknüpft sind. + +' Die Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern +' übernehmen, indem Sie "*" eingeben: +' + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb new file mode 100644 index 0000000..b8d5d94 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb @@ -0,0 +1,563 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("VERAG_PROG_ALLGEMEIN.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ambar_simple() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ambar_simple", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property android_note1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("android-note1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Atilla() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Atilla", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol). + ''' + Friend ReadOnly Property Aviso() As System.Drawing.Icon + Get + Dim obj As Object = ResourceManager.GetObject("Aviso", resourceCulture) + Return CType(obj,System.Drawing.Icon) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property cake() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("cake", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property del() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("del", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property docAllgemein() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("docAllgemein", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property easteregg() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("easteregg", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property fremdSped() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("fremdSped", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property FrontOfficeSUB_Horizontal() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("FrontOfficeSUB_Horizontal", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property house() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("house", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property house1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("house1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property IMEX_LOGO_simple() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("IMEX-LOGO_simple", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property männlich() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("männlich", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ok() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ok", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property pdf() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("pdf", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property pdf_gray() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("pdf_gray", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property people() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("people", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property person() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("person", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property personGray_m() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("personGray_m", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property personGray_w() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("personGray_w", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property pfeil_links() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("pfeil_links", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property pfeil_oben() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("pfeil_oben", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property pfeil_rechts() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("pfeil_rechts", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property pfeil_unten() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("pfeil_unten", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property picboxNext_Enter() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("picboxNext_Enter", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property picboxPrevious_Enter() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("picboxPrevious_Enter", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property picboxRotateLeft_Enter() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("picboxRotateLeft_Enter", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property picboxRotateRight_Enter() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("picboxRotateRight_Enter", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property picboxZoomIn_Enter() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("picboxZoomIn_Enter", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property picboxZoomOut_Enter() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("picboxZoomOut_Enter", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property plus() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("plus", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property scanner() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("scanner", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property scanner1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("scanner1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property seal() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("seal", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property seal2() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("seal2", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property seal3() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("seal3", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property search() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("search", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property sicherheit() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("sicherheit", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property sicherheit1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("sicherheit1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property stift() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("stift", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property today() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("today", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property uhr_green() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("uhr_green", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property uhr_notime() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("uhr_notime", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property uhr_red() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("uhr_red", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Unisped_logo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Unisped_logo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Verag_AG_Logopng() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Verag-AG-Logopng", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Verag_Customs_Service_GMBH_Logo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Verag_Customs_Service_GMBH_Logo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Verag_Spedition_GMBH_Logo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Verag_Spedition_GMBH_Logo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property weiblich() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("weiblich", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Module +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx b/SDL/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx new file mode 100644 index 0000000..65d41c3 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx @@ -0,0 +1,271 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pfeil_links.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\seal2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\docAllgemein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxPrevious_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\seal3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\people.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ok.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\fremdSped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxZoomIn_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\android-note1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\easteregg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\uhr_notime.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\cake.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\uhr_red.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 + + + ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pfeil_unten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\personGray_m.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\personGray_w.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\männlich.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\weiblich.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Atilla.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Verag-Spedition-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb new file mode 100644 index 0000000..5434652 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb @@ -0,0 +1,323 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Public NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Automatische My.Settings-Speicherfunktion" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + + _ + Public ReadOnly Property ATLASConnectionString() As String + Get + Return CType(Me("ATLASConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property FMZOLL_PRODConnectionString() As String + Get + Return CType(Me("FMZOLL_PRODConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property ADMINConnectionString() As String + Get + Return CType(Me("ADMINConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property SDL_PRODConnectionString() As String + Get + Return CType(Me("SDL_PRODConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property FMZOLLConnectionString() As String + Get + Return CType(Me("FMZOLLConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property AVISOConnectionString() As String + Get + Return CType(Me("AVISOConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property SDLConnectionString() As String + Get + Return CType(Me("SDLConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property EZOLLConnectionString() As String + Get + Return CType(Me("EZOLLConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property AVISOConnectionStringTEST() As String + Get + Return CType(Me("AVISOConnectionStringTEST"),String) + End Get + End Property + + _ + Public ReadOnly Property ATLAS_SBGConnectionString() As String + Get + Return CType(Me("ATLAS_SBGConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property UID_PRODConnectionString() As String + Get + Return CType(Me("UID_PRODConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property UIDConnectionString() As String + Get + Return CType(Me("UIDConnectionString"),String) + End Get + End Property + + _ + Public Property SCANCANON_PRODConnectionString() As String + Get + Return CType(Me("SCANCANON_PRODConnectionString"),String) + End Get + Set + Me("SCANCANON_PRODConnectionString") = value + End Set + End Property + + _ + Public ReadOnly Property FDConnectionString() As String + Get + Return CType(Me("FDConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property FD_PRODConnectionString() As String + Get + Return CType(Me("FD_PRODConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService() As String + Get + Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"),String) + End Get + End Property + + _ + Public Property DISPOConnectionString() As String + Get + Return CType(Me("DISPOConnectionString"),String) + End Get + Set + Me("DISPOConnectionString") = value + End Set + End Property + + _ + Public ReadOnly Property DISPOConnectionStringTEST() As String + Get + Return CType(Me("DISPOConnectionStringTEST"),String) + End Get + End Property + + _ + Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService() As String + Get + Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"),String) + End Get + End Property + + _ + Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService() As String + Get + Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"),String) + End Get + End Property + + _ + Public Property asdadasdasdasdasdasd() As String + Get + Return CType(Me("asdadasdasdasdasdasd"),String) + End Get + Set + Me("asdadasdasdasdasdasd") = value + End Set + End Property + + _ + Public ReadOnly Property AVISO_ATILLAConnectionString() As String + Get + Return CType(Me("AVISO_ATILLAConnectionString"),String) + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.VERAG_PROG_ALLGEMEIN.My.MySettings + Get + Return Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings b/SDL/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings new file mode 100644 index 0000000..6300f9f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings @@ -0,0 +1,136 @@ + + + + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> +</SerializableConnectionString> + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</ConnectionString> +</SerializableConnectionString> + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCertificate=False</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCertificate=False + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> +</SerializableConnectionString> + Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> +</SerializableConnectionString> + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956 + + + Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> +</SerializableConnectionString> + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + http://ec.europa.eu/taxation_customs/vies/services/checkVatService + + + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 + + + https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/ + + + https://finanzonline.bmf.gv.at:443/fonws/ws/session + + + + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</ConnectionString> +</SerializableConnectionString> + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/My Project/license.elic.xml b/SDL/VERAG_PROG_ALLGEMEIN/My Project/license.elic.xml new file mode 100644 index 0000000..dac3c48 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/My Project/license.elic.xml @@ -0,0 +1,24 @@ + + + Runtime + VERAG Spedition AG + al@verag.ag + VERAG Spedition AG + 2020-08-12T00:00:00Z + 2021-08-12T00:00:00Z + + + Spire.PDF Platinum + 6.5 + + 1 + 1 + + + + + e-iceblue + sales@e-iceblue.com + http://www.e-iceblue.com + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/RKSV_DE/cServerClient_RKSV_DE.vb b/SDL/VERAG_PROG_ALLGEMEIN/RKSV_DE/cServerClient_RKSV_DE.vb new file mode 100644 index 0000000..1a694b6 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/RKSV_DE/cServerClient_RKSV_DE.vb @@ -0,0 +1,226 @@ +Imports System.Net, System.Net.Sockets +Imports System.Text +Imports System.Threading + +Public Class cServerClient_RKSV_DE + Dim clientSocket As Socket + Dim byteData(1023) As Byte + Dim doThis As String + Dim params() As String + Public status As String = "begin" + ' Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + ' begin() + ' End Sub + + Public Event FunctionFinished(ByVal sender As Object, ByVal e As FunctionFinishedArgs_RKSV_DE) + + + Public Sub begin(ip, doThis_tmp, params) + doThis = doThis_tmp + Me.params = params + Dim timeOut As Integer = 60 + Select Case doThis + Case "test" : timeOut = 5 ' nach 5 Sekunden wird abgebrochen + Case "RKSV_DE" : timeOut = 10 ' nach 10 Sekunden wird abgebrochen + End Select + + 'Ein Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf. + Dim st As New Thread(AddressOf stopThread) + st.IsBackground = True + Dim param_obj(1) As Object + 'Übergabeparameter des 2. Threads + param_obj(0) = timeOut + st.Start(param_obj) + + + clientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) + Dim ipAddress As IPAddress = IPAddress.Parse(ip) + + ' Dim ipAddress As IPAddress = ipAddress.Parse("192.168.0.90") + Dim ipEndPoint As IPEndPoint = New IPEndPoint(ipAddress, 8800) + clientSocket.BeginConnect(ipEndPoint, New AsyncCallback(AddressOf OnConnect), Nothing) + status = "beginConnect" + ' endconnect(clientSocket) + + + End Sub + + Public Sub waitTillFinished() + While Not (status = "TaskError" Or status = "TaskSuccess") + 'wait + End While + 'Return True + End Sub + + Private Sub OnConnect(ByVal ar As IAsyncResult) + Try + clientSocket.EndConnect(ar) + clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, + New AsyncCallback(AddressOf OnRecieve), clientSocket) + Catch ex As Exception + ' MsgBox("Verbindung zum Server konnte nicht aufgebaut werden!") + End Try + End Sub + + Private Sub OnSend(ByVal ar As IAsyncResult) + Dim client As Socket = ar.AsyncState + client.EndSend(ar) + End Sub + Private Sub Send(ByVal msg As String, ByVal client As Socket) + Dim sendBytes As Byte() = Encoding.BigEndianUnicode.GetBytes(msg) + client.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), client) + End Sub + Public Function ByteArrayToTextString(ByRef Barr() As Byte) As String + Dim enc As System.Text.Encoding = Encoding.BigEndianUnicode + Return enc.GetString(Barr) + End Function + + Private Sub OnRecieve(ByVal ar As IAsyncResult) + Try + Dim client As Socket = ar.AsyncState + client.EndReceive(ar) + Dim bytesRec As Byte() = byteData + Dim message As String = Encoding.BigEndianUnicode.GetString(bytesRec) + ' MsgBox("FROM SERVER: " & message) + Dim b(1023) As Byte + + ' MsgBox("SERVER RECIEVE: " & Encoding.BigEndianUnicode.GetString(b)) + + byteData = b + Read(message) + clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, + New AsyncCallback(AddressOf OnRecieve), clientSocket) + + Catch ex As Exception + ' MsgBox("Verbindung zum Server wurde unterbrochen!") + End Try + End Sub + + Delegate Sub _Read(ByVal msg As String) + Private Sub Read(ByVal msg As String) + 'If frmMain.InvokeRequired Then + ' frmMain.Invoke(New _Read(AddressOf Read), msg) + ' Exit Sub + 'End If + + 'frmMain.icoVERAGMonitoring.Visible = False + + 'if richtige nsachricht + ' Dim asciis As Byte() = Encoding.BigEndianUnicode.GetBytes(msg) + ' Dim a As Char = msg(msg.Length - 1) + ' msg = msg.Replace(a, "") + ' MsgBox(msg.Length) + + ' MsgBox(msg(msg.Length - 1)) + ' MsgBox(msg(msg.Length - 1)) + ' MsgBox(Asc(msg(msg.Length - 1))) + ' MsgBox(Asc(msg(msg.Length - 2))) + msg = msg.Replace(Convert.ToChar(0), "") + Try + + MsgBox("-" & msg & "-" & vbNewLine & "ConSuccess" & "-" & doThis) + If msg = "ConSuccess" Then + status = "ConSuccess" + Select Case doThis + Case "test" + Send("test", clientSocket) + status = "sendTask" + + Case "RKSV_DE" + MsgBox("RKSV_DE" & paramsToString()) + Send("RKSV_DE" & paramsToString(), clientSocket) + status = "sendTask" + End Select + + ' MsgBox("!!!!!ConSuccess --> initAufschubkonten") + ' Send("FSSAtlasStart", clientSocket) + 'Send("test", clientSocket) + 'Send("initAufschubkonten", clientSocket) + + ElseIf msg = "Task successful" Then + status = "TaskSuccess" + clientSocket.Disconnect(False) + clientSocket.Shutdown(SocketShutdown.Both) + clientSocket.Close() + 'endconnect(clientSocket)'geht ned + ' MsgBox("Task erfolgreich!", vbSystemModal, doThis) + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.OK, "Task erfolgreich!")) + ElseIf msg = "Task not found" Then + MsgBox("SERVERERROR: Der Dienst wurde nicht gefunden!", vbSystemModal, "FSSAtlas") + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "SERVERERROR: Der Dienst wurde nicht gefunden!")) + ElseIf msg = "Task inactive" Then + MsgBox("SERVERERROR: Der Dienste ist nicht aktiv!", vbSystemModal, "FSSAtlas") + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "SERVERERROR: Der Dienste ist nicht aktiv!")) + ElseIf msg = "Task timeout" Then + MsgBox("SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!", vbSystemModal, "FSSAtlas") + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!")) + ElseIf msg = "Task error" Then + MsgBox("SERVERERROR: Server-Fehler!", vbSystemModal, "FSSAtlas") + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "SERVERERROR: Server-Fehler!")) + Else + MsgBox("SERVER_NACHRICHT NICHT VERSTANDEN: " & msg, vbSystemModal) + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "SERVER_NACHRICHT NICHT VERSTANDEN: " & msg)) + + clientSocket.Shutdown(SocketShutdown.Both) + clientSocket.Close() + End If + + Catch ex As Exception + MsgBox("Verbindungs-Fehler beim Senden", vbSystemModal) + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "Verbindungs-Fehler beim Senden")) + clientSocket.Close() + End Try + ' byteData = Encoding.BigEndianUnicode.GetBytes("") + + End Sub + + Function paramsToString() + paramsToString = "" + If params IsNot Nothing Then + For Each p In params + paramsToString &= "|||" & p + Next + End If + End Function + + Sub stopThread(param_obj As Object) 'Stoppt einen Hauptthread nach einer gewissen Anzahl von Sekunden; Übergabeparameter: Object { Tread, clientSocket, SekundenToTimeout } + Thread.Sleep(param_obj(0) * 1000) ' Hier wird soviele Senkunden gewartet, wie in den Übergabeparametern definiert wurde. + If status = "TaskError" Or status = "TaskSuccess" Then Exit Sub + status = "TaskError" + Try + clientSocket.Disconnect(False) + clientSocket.Shutdown(SocketShutdown.Both) + clientSocket.Close() + Catch ex As Exception + MsgBox(ex.Message) + End Try + + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "Task wurde aufgrund eines Timeouts vom Client abgebrochen.")) + MsgBox("ERROR: Task wurde aufgrund eines Timeouts vom Client abgebrochen.") 'Log-Mittelung + End Sub + + +End Class + +Public Class FunctionFinishedArgs_RKSV_DE + Inherits EventArgs + 'das was man später unter e sehen kann + Public Result As EventResult + 'hier - als Beispiel - einfach eine Enum + Public Enum EventResult + OK + ERR + End Enum + Public Message As String + 'Zum übergeben der Parameter + Public Sub New(ByVal r As EventResult, m As String) + Result = r + Message = m + End Sub +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/Atilla.jpg b/SDL/VERAG_PROG_ALLGEMEIN/Resources/Atilla.jpg new file mode 100644 index 0000000..8e011c7 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/Atilla.jpg differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/IMEX-LOGO_simple.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/IMEX-LOGO_simple.png new file mode 100644 index 0000000..19411e8 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/IMEX-LOGO_simple.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/Logo_blue_globe_Horizontal.jpg b/SDL/VERAG_PROG_ALLGEMEIN/Resources/Logo_blue_globe_Horizontal.jpg new file mode 100644 index 0000000..c837375 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/Logo_blue_globe_Horizontal.jpg differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/Unisped_logo.jpg b/SDL/VERAG_PROG_ALLGEMEIN/Resources/Unisped_logo.jpg new file mode 100644 index 0000000..b36b587 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/Unisped_logo.jpg differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/Verag-AG-Logopng.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/Verag-AG-Logopng.png new file mode 100644 index 0000000..a87a0f0 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/Verag-AG-Logopng.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/Verag-Customs-Service-GMBH-Logo.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/Verag-Customs-Service-GMBH-Logo.png new file mode 100644 index 0000000..f5c3702 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/Verag-Customs-Service-GMBH-Logo.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/Verag-Spedition-GMBH-Logo.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/Verag-Spedition-GMBH-Logo.png new file mode 100644 index 0000000..9d440b8 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/Verag-Spedition-GMBH-Logo.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/ambar_simple.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/ambar_simple.png new file mode 100644 index 0000000..12946ee Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/ambar_simple.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/android-note1.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/android-note1.png new file mode 100644 index 0000000..13ef9fe Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/android-note1.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/aviso.ico b/SDL/VERAG_PROG_ALLGEMEIN/Resources/aviso.ico new file mode 100644 index 0000000..a13f14d Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/aviso.ico differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/cake.jpg b/SDL/VERAG_PROG_ALLGEMEIN/Resources/cake.jpg new file mode 100644 index 0000000..f9a2f5a Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/cake.jpg differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/del.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/del.png new file mode 100644 index 0000000..2e2a6b2 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/del.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/docAllgemein.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/docAllgemein.png new file mode 100644 index 0000000..283d346 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/docAllgemein.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/easteregg.jpg b/SDL/VERAG_PROG_ALLGEMEIN/Resources/easteregg.jpg new file mode 100644 index 0000000..2044f34 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/easteregg.jpg differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/fremdSped.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/fremdSped.png new file mode 100644 index 0000000..c7ba1d9 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/fremdSped.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/house.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/house.png new file mode 100644 index 0000000..f8ba7ab Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/house.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/house1.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/house1.png new file mode 100644 index 0000000..a60c7c8 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/house1.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/männlich.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/männlich.png new file mode 100644 index 0000000..50bd66e Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/männlich.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/ok.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/ok.png new file mode 100644 index 0000000..8e4a706 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/ok.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/pdf.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/pdf.png new file mode 100644 index 0000000..5ecfeae Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/pdf.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/pdf_gray.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/pdf_gray.png new file mode 100644 index 0000000..30b8686 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/pdf_gray.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/people.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/people.png new file mode 100644 index 0000000..b18f033 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/people.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/person.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/person.png new file mode 100644 index 0000000..116cb78 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/person.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/personGray_m.jpg b/SDL/VERAG_PROG_ALLGEMEIN/Resources/personGray_m.jpg new file mode 100644 index 0000000..6733e6e Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/personGray_m.jpg differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/personGray_w.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/personGray_w.png new file mode 100644 index 0000000..0b2aace Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/personGray_w.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/pfeil_links.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/pfeil_links.png new file mode 100644 index 0000000..f94150e Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/pfeil_links.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/pfeil_oben.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/pfeil_oben.png new file mode 100644 index 0000000..a50f622 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/pfeil_oben.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/pfeil_rechts.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/pfeil_rechts.png new file mode 100644 index 0000000..793e34b Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/pfeil_rechts.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/pfeil_unten.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/pfeil_unten.png new file mode 100644 index 0000000..de013c9 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/pfeil_unten.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxNext_Enter.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxNext_Enter.png new file mode 100644 index 0000000..d04edae Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxNext_Enter.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxPrevious_Enter.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxPrevious_Enter.png new file mode 100644 index 0000000..fee4bf4 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxPrevious_Enter.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxRotateLeft_Enter.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxRotateLeft_Enter.png new file mode 100644 index 0000000..91740a5 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxRotateLeft_Enter.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxRotateRight_Enter.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxRotateRight_Enter.png new file mode 100644 index 0000000..1aa23a3 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxRotateRight_Enter.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxZoomIn_Enter.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxZoomIn_Enter.png new file mode 100644 index 0000000..2aee59a Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxZoomIn_Enter.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxZoomOut_Enter.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxZoomOut_Enter.png new file mode 100644 index 0000000..dfdd35f Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/picboxZoomOut_Enter.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/plus.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/plus.png new file mode 100644 index 0000000..a9f8289 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/plus.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/scanner.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/scanner.png new file mode 100644 index 0000000..35575dc Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/scanner.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/scanner1.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/scanner1.png new file mode 100644 index 0000000..e41fb42 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/scanner1.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/seal.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/seal.png new file mode 100644 index 0000000..319861b Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/seal.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/seal1.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/seal1.png new file mode 100644 index 0000000..a48f111 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/seal1.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/seal2.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/seal2.png new file mode 100644 index 0000000..e5cc59a Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/seal2.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/seal3.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/seal3.png new file mode 100644 index 0000000..34c5149 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/seal3.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/search.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/search.png new file mode 100644 index 0000000..32b371d Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/search.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/sicherheit.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/sicherheit.png new file mode 100644 index 0000000..afbb99f Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/sicherheit.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/sicherheit1.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/sicherheit1.png new file mode 100644 index 0000000..67839d2 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/sicherheit1.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/stift.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/stift.png new file mode 100644 index 0000000..761e9f3 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/stift.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/today.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/today.png new file mode 100644 index 0000000..89769c9 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/today.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/uhr_green.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/uhr_green.png new file mode 100644 index 0000000..420ce46 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/uhr_green.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/uhr_notime.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/uhr_notime.png new file mode 100644 index 0000000..0b814d5 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/uhr_notime.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/uhr_red.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/uhr_red.png new file mode 100644 index 0000000..6f4d107 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/uhr_red.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Resources/weiblich.png b/SDL/VERAG_PROG_ALLGEMEIN/Resources/weiblich.png new file mode 100644 index 0000000..7be6278 Binary files /dev/null and b/SDL/VERAG_PROG_ALLGEMEIN/Resources/weiblich.png differ diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb new file mode 100644 index 0000000..e1d6e3d --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb @@ -0,0 +1,205 @@ +Public Class HEAHEA + Public Property RefNumHEA4 As String + Public Property TypOfDecHEA24 As String + Public Property CouOfDesCodHEA30 As String + Public Property PlaOfLoaCodHEA46 As String + Public Property CouOfDisCodHEA55 As String + Public Property TraModAtBorHEA76 As String + Public Property IdeOfMeaOfTraAtDHEA78 As String + Public Property IdeOfMeaOfTraAtDHEA78LNG As String + Public Property NatOfMeaOfTraAtDHEA80 As String + Public Property IdeOfMeaOfTraCroHEA85 As String + Public Property IdeOfMeaOfTraCroHEA85LNG As String + Public Property NatOfMeaOfTraCroHEA87 As String + Public Property ConIndHEA96 As String + Public Property NCTSAccDocHEA601LNG As String + Public Property TotNumOfIteHEA305 As String + Public Property TotNumOfPacHEA306 As String + Public Property TotGroMasHEA307 As String + Public Property DecDatHEA383 As String + Public Property DecPlaHEA394 As String + Public Property DecPlaHEA394LNG As String + Public Property SecHEA358 As String + Public Property CodPlUnHEA357 As String + Public Property Tanker As String + Public Property ComRefNumHEA As String +End Class + +Public Class REPREP + Public Property NamREP5 As String +End Class + +Public Class GUAREFREF + Public Property GuaRefNumGRNREF1 As String + Public Property OthGuaRefREF4 As String + Public Property AccCodREF6 As String + Public Property CurREF8 As String + Public Property AmoConREF7 As String +End Class + +Public Class GUAGUA + Public Property GuaTypGUA1 As String + Public Property GUAREFREF As GUAREFREF +End Class + +Public Class TRAPRIPC1 + Public Property NamCO17 As String + Public Property StrAndNumCO122 As String + Public Property PosCodCO123 As String + Public Property CitCO124 As String + Public Property CouCO125 As String + Public Property NADLNGCO As String + Public Property TINCO159 As String +End Class + +Public Class TRACONCO1 + Public Property NamCO17 As String + Public Property StrAndNumCO122 As String + Public Property PosCodCO123 As String + Public Property CitCO124 As String + Public Property CouCO125 As String + Public Property NADLNGCO As String + Public Property TINCO159 As String +End Class + +Public Class TRACONCE1 + Public Property NamCO17 As String + Public Property StrAndNumCO122 As String + Public Property PosCodCO123 As String + Public Property CitCO124 As String + Public Property CouCO125 As String + Public Property NADLNGCO As String + Public Property TINCO159 As String +End Class + + +Public Class TRACONSEC029 + Public Property NameTRACONSEC033 As String + Public Property StrNumTRACONSEC035 As String + Public Property PosCodTRACONSEC034 As String + Public Property CitTRACONSEC030 As String + Public Property CouCodTRACONSEC031 As String + Public Property TRACONSEC029LNG As String + Public Property TINTRACONSEC036 As String +End Class + +Public Class CUSOFFDEPEPT + Public Property RefNumEPT1 As String +End Class + +Public Class CUSOFFTRARNS + Public Property RefNumRNS1 As String + Public Property ArrTimTRACUS085 As String +End Class + +Public Class CUSOFFDESEST + Public Property RefNumEST1 As String +End Class + +Public Class PRODOCDC2 + Public Property DocTypDC21 As String + Public Property DocRefDC23 As String + Public Property DocRefDCLNG As String + Public Property ComOfInfDC25 As String + Public Property ComOfInfDC25LNG As String +End Class + +Public Class PREADMREFAR2 + Public Property PreDocTypAR21 As String + Public Property PreDocRefAR26 As String + Public Property PreDocRefLNG As String + Public Property ComOfInfAR29 As String + Public Property ComOfInfAR29LNG As String +End Class + +Public Class CONNR2 + Public Property ConNumNR21 As String +End Class + +Public Class PACGS2 + Public Property MarNumOfPacGS21 As String + Public Property MarNumOfPacGS21LNG As String + Public Property KinOfPacGS23 As String + Public Property NumOfPacGS24 As String +End Class + +Public Class TRACONCE2 + Public Property NamCE27 As String + Public Property StrAndNumCE222 As String + Public Property PosCodCE223 As String + Public Property CitCE224 As String + Public Property CouCE225 As String + Public Property NADLNGGICE As String + Public Property TINCE259 As String +End Class + +Public Class GOOITEGD + Public Property IteNumGDS7 As String + Public Property ComCodTarCodGDS10 As String + Public Property GooDesGDS23 As String + Public Property GooDesGDS23LNG As String + Public Property GroMasGDS46 As String + Public Property NetMasGDS48 As String + Public Property IhrBeyanNo As String + Public Property IhrBeyanTip As String + Public Property IhrBeyanParcali As String + Public Property PRODOCDC2 As PRODOCDC2() + Public Property PREADMREFAR2 As PREADMREFAR2 + Public Property CONNR2 As CONNR2() + Public Property PACGS2 As PACGS2() + Public Property CouOfDesGDS59 As String + Public Property CouOfDisGDS58 As String + Public Property TRACONCO2 As String + Public Property TRACONCE2 As TRACONCE2 + Public Property TRACORSECGOO021 As String + Public Property TRACONSECGOO013 As String +End Class + +Public Class ITI + Public Property CouOfRouCodITI1 As String +End Class + +Public Class CARTRA100 + Public Property NamCARTRA121 As String + Public Property StrAndNumCARTRA254 As String + Public Property PosCodCARTRA121 As String + Public Property CitCARTRA789 As String + Public Property CouCodCARTRA587 As String + Public Property NADCARTRA121 As String + Public Property TINCARTRA254 As String +End Class + +Public Class TRACORSEC037 + Public Property NamTRACORSEC041 As String + Public Property StrNumTRACORSEC043 As String + Public Property PosCodTRACORSEC042 As String + Public Property CitTRACORSEC038 As String + Public Property CouCodTRACORSEC039 As String + Public Property TRACORSEC037LNG As String + Public Property TINTRACORSEC044 As String +End Class + +Public Class CC015B + Public Property RefId As String + Public Property MRNNumber As String + Public Property HEAHEA As HEAHEA + Public Property REPREP As REPREP + Public Property SEAINFSLI As String + Public Property GUAGUA As GUAGUA + + Public Property TRAPRIPC1 As TRAPRIPC1 + Public Property TRACONCO1 As TRACONCO1 + Public Property TRACONCE1 As TRACONCE1 + Public Property CUSOFFDEPEPT As CUSOFFDEPEPT + Public Property CUSOFFTRARNS As CUSOFFTRARNS() + Public Property CUSOFFDESEST As CUSOFFDESEST + Public Property GOOITEGDS As GOOITEGD() + Public Property ITI As ITI() + Public Property CARTRA100 As CARTRA100 + Public Property TRACORSEC037 As TRACORSEC037 + Public Property TRACONSEC029 As TRACONSEC029 +End Class + +Public Class cATEZ_NCTS + Public Property CC015B As CC015B +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/GASTON_SCHUL/agsCustomsExchange.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/GASTON_SCHUL/agsCustomsExchange.Designer.vb new file mode 100644 index 0000000..fa9bcea --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/GASTON_SCHUL/agsCustomsExchange.Designer.vb @@ -0,0 +1,7681 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' agsCustomsExchangeListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace agsCustomsExchange + + + Partial Public Class exchangeRequestType + +#Region "Private fields" + Private _uuid As String + + Private _version As String + + Private _requestDateTime As Date + + Private _creationDateTime As Date + + Private _dispatchCountry As String + + Private _destinationCountry As String + + Private _localReferenceNumber As String + + Private _movementReferenceNumber As String + + Private _declaration As declarationType + + Private _goodsShipment As goodsShipmentType + + Private _attachments As List(Of attachmentType) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._attachments = New List(Of attachmentType)() + Me._goodsShipment = New goodsShipmentType() + Me._declaration = New declarationType() + End Sub + + Public Property uuid() As String + Get + Return Me._uuid + End Get + Set + Me._uuid = Value + End Set + End Property + + Public Property version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Public Property requestDateTime() As Date + Get + Return Me._requestDateTime + End Get + Set + Me._requestDateTime = Value + End Set + End Property + + Public Property creationDateTime() As Date + Get + Return Me._creationDateTime + End Get + Set + Me._creationDateTime = Value + End Set + End Property + + Public Property dispatchCountry() As String + Get + Return Me._dispatchCountry + End Get + Set + Me._dispatchCountry = Value + End Set + End Property + + Public Property destinationCountry() As String + Get + Return Me._destinationCountry + End Get + Set + Me._destinationCountry = Value + End Set + End Property + + Public Property localReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set + Me._localReferenceNumber = Value + End Set + End Property + + Public Property movementReferenceNumber() As String + Get + Return Me._movementReferenceNumber + End Get + Set + Me._movementReferenceNumber = Value + End Set + End Property + + Public Property declaration() As declarationType + Get + Return Me._declaration + End Get + Set + Me._declaration = Value + End Set + End Property + + Public Property goodsShipment() As goodsShipmentType + Get + Return Me._goodsShipment + End Get + Set + Me._goodsShipment = Value + End Set + End Property + + + Public Property attachments() As List(Of attachmentType) + Get + Return Me._attachments + End Get + Set + Me._attachments = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(exchangeRequestType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current exchangeRequestType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an exchangeRequestType object + ''' + ''' string workflow markup to deserialize + ''' Output exchangeRequestType 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 exchangeRequestType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, exchangeRequestType) + 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 exchangeRequestType) 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 exchangeRequestType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), exchangeRequestType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As exchangeRequestType + Return CType(Serializer.Deserialize(s), exchangeRequestType) + End Function +#End Region + + ''' + ''' Serializes current exchangeRequestType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an exchangeRequestType object + ''' + ''' string xml file to load and deserialize + ''' Output exchangeRequestType 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 exchangeRequestType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, exchangeRequestType) + 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 exchangeRequestType) 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 exchangeRequestType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 declarationType + +#Region "Private fields" + Private _declarationOffice As String + + Private _declarationCode As declarationCode + + Private _declarationTypeCode As declarationTypeCode + + Private _procedure As procedure + + Private _commercialReferenceNumber As String + + Private _invoiceAmount As priceType_18_2 + + Private _deductibleAmount As priceType_16_2 + + Private _transportCostsAmount As priceType_16_2 + + Private _insuranceCostsAmount As priceType_16_2 + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._insuranceCostsAmount = New priceType_16_2() + Me._transportCostsAmount = New priceType_16_2() + Me._deductibleAmount = New priceType_16_2() + Me._invoiceAmount = New priceType_18_2() + End Sub + + + Public Property declarationOffice() As String + Get + Return Me._declarationOffice + End Get + Set + Me._declarationOffice = Value + End Set + End Property + + Public Property declarationCode() As declarationCode + Get + Return Me._declarationCode + End Get + Set + Me._declarationCode = Value + End Set + End Property + + Public Property declarationTypeCode() As declarationTypeCode + Get + Return Me._declarationTypeCode + End Get + Set + Me._declarationTypeCode = Value + End Set + End Property + + Public Property procedure() As procedure + Get + Return Me._procedure + End Get + Set + Me._procedure = Value + End Set + End Property + + Public Property commercialReferenceNumber() As String + Get + Return Me._commercialReferenceNumber + End Get + Set + Me._commercialReferenceNumber = Value + End Set + End Property + + Public Property invoiceAmount() As priceType_18_2 + Get + Return Me._invoiceAmount + End Get + Set + Me._invoiceAmount = Value + End Set + End Property + + Public Property deductibleAmount() As priceType_16_2 + Get + Return Me._deductibleAmount + End Get + Set + Me._deductibleAmount = Value + End Set + End Property + + Public Property transportCostsAmount() As priceType_16_2 + Get + Return Me._transportCostsAmount + End Get + Set + Me._transportCostsAmount = Value + End Set + End Property + + Public Property insuranceCostsAmount() As priceType_16_2 + Get + Return Me._insuranceCostsAmount + End Get + Set + Me._insuranceCostsAmount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(declarationType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current declarationType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an declarationType object + ''' + ''' string workflow markup to deserialize + ''' Output declarationType 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 declarationType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, declarationType) + 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 declarationType) 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 declarationType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), declarationType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As declarationType + Return CType(Serializer.Deserialize(s), declarationType) + End Function +#End Region + + ''' + ''' Serializes current declarationType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an declarationType object + ''' + ''' string xml file to load and deserialize + ''' Output declarationType 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 declarationType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, declarationType) + 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 declarationType) 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 declarationType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 declarationCode + + ''' + CO + + ''' + EU + + ''' + EX + + ''' + IM + End Enum + + + Public Enum declarationTypeCode + + ''' + A + + ''' + B + + ''' + D + + ''' + E + + ''' + X + + ''' + Y + + ''' + Z + End Enum + + + Public Enum procedure + + ''' + A + + ''' + B + + ''' + C + + ''' + D + + ''' + E + + ''' + H + + ''' + I + + ''' + J + + ''' + K + End Enum + + + Partial Public Class priceType_18_2 + +#Region "Private fields" + Private _currency As String + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property currency() As String + Get + Return Me._currency + End Get + Set + Me._currency = Value + End Set + End Property + + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(priceType_18_2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current priceType_18_2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an priceType_18_2 object + ''' + ''' string workflow markup to deserialize + ''' Output priceType_18_2 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 priceType_18_2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, priceType_18_2) + 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 priceType_18_2) 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 priceType_18_2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), priceType_18_2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As priceType_18_2 + Return CType(Serializer.Deserialize(s), priceType_18_2) + End Function +#End Region + + ''' + ''' Serializes current priceType_18_2 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an priceType_18_2 object + ''' + ''' string xml file to load and deserialize + ''' Output priceType_18_2 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 priceType_18_2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, priceType_18_2) + 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 priceType_18_2) 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 priceType_18_2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 attachmentType + +#Region "Private fields" + Private _attachmentName As String + + Private _attachmentType1 As String + + Private _attachmentReference As String + + Private _binaryAttachmentData() As Byte + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property attachmentName() As String + Get + Return Me._attachmentName + End Get + Set + Me._attachmentName = Value + End Set + End Property + + + Public Property attachmentType1() As String + Get + Return Me._attachmentType1 + End Get + Set + Me._attachmentType1 = Value + End Set + End Property + + Public Property attachmentReference() As String + Get + Return Me._attachmentReference + End Get + Set + Me._attachmentReference = Value + End Set + End Property + + + Public Property binaryAttachmentData() As Byte() + Get + Return Me._binaryAttachmentData + End Get + Set + Me._binaryAttachmentData = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(attachmentType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current attachmentType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an attachmentType object + ''' + ''' string workflow markup to deserialize + ''' Output attachmentType 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 attachmentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, attachmentType) + 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 attachmentType) 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 attachmentType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), attachmentType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As attachmentType + Return CType(Serializer.Deserialize(s), attachmentType) + End Function +#End Region + + ''' + ''' Serializes current attachmentType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an attachmentType object + ''' + ''' string xml file to load and deserialize + ''' Output attachmentType 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 attachmentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, attachmentType) + 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 attachmentType) 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 attachmentType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 weightType_16_6 + +#Region "Private fields" + Private _massUnit As String + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._massUnit = "kg" + End Sub + + + Public Property massUnit() As String + Get + Return Me._massUnit + End Get + Set + Me._massUnit = Value + End Set + End Property + + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(weightType_16_6)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current weightType_16_6 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an weightType_16_6 object + ''' + ''' string workflow markup to deserialize + ''' Output weightType_16_6 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 weightType_16_6, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, weightType_16_6) + 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 weightType_16_6) 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 weightType_16_6 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), weightType_16_6) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As weightType_16_6 + Return CType(Serializer.Deserialize(s), weightType_16_6) + End Function +#End Region + + ''' + ''' Serializes current weightType_16_6 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an weightType_16_6 object + ''' + ''' string xml file to load and deserialize + ''' Output weightType_16_6 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 weightType_16_6, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, weightType_16_6) + 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 weightType_16_6) 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 weightType_16_6 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 quantityType + +#Region "Private fields" + Private _unitCode As String + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property unitCode() As String + Get + Return Me._unitCode + End Get + Set + Me._unitCode = Value + End Set + End Property + + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(quantityType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current quantityType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an quantityType object + ''' + ''' string workflow markup to deserialize + ''' Output quantityType 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 quantityType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, quantityType) + 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 quantityType) 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 quantityType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), quantityType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As quantityType + Return CType(Serializer.Deserialize(s), quantityType) + End Function +#End Region + + ''' + ''' Serializes current quantityType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an quantityType object + ''' + ''' string xml file to load and deserialize + ''' Output quantityType 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 quantityType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, quantityType) + 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 quantityType) 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 quantityType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemType + +#Region "Private fields" + Private _sequenceNumeric As Decimal + + Private _customsValueAmount As priceType_16_2 + + Private _statisticalValueAmount As priceType_16_2 + + Private _additionalDocumentType As List(Of goodsItemTypeAdditionalDocumentType) + + Private _additionalInformationType As List(Of goodsItemTypeAdditionalInformationType) + + Private _commodityType As goodsItemTypeCommodityType + + Private _goodsMeasureType As goodsItemTypeGoodsMeasureType + + Private _governmentProcedureType As List(Of goodsItemTypeGovernmentProcedureType) + + Private _manufacturerType As goodsItemTypeManufacturerType + + Private _originType As goodsItemTypeOriginType + + Private _packagingType As List(Of goodsItemTypePackagingType) + + Private _previousDocumentType As List(Of goodsItemTypePreviousDocumentType) + + Private _refundRecipientPartyType As goodsItemTypeRefundRecipientPartyType + + Private _valuationAdjustmentType As List(Of goodsItemTypeValuationAdjustmentType) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._valuationAdjustmentType = New List(Of goodsItemTypeValuationAdjustmentType)() + Me._refundRecipientPartyType = New goodsItemTypeRefundRecipientPartyType() + Me._previousDocumentType = New List(Of goodsItemTypePreviousDocumentType)() + Me._packagingType = New List(Of goodsItemTypePackagingType)() + Me._originType = New goodsItemTypeOriginType() + Me._manufacturerType = New goodsItemTypeManufacturerType() + Me._governmentProcedureType = New List(Of goodsItemTypeGovernmentProcedureType)() + Me._goodsMeasureType = New goodsItemTypeGoodsMeasureType() + Me._commodityType = New goodsItemTypeCommodityType() + Me._additionalInformationType = New List(Of goodsItemTypeAdditionalInformationType)() + Me._additionalDocumentType = New List(Of goodsItemTypeAdditionalDocumentType)() + Me._statisticalValueAmount = New priceType_16_2() + Me._customsValueAmount = New priceType_16_2() + End Sub + + Public Property sequenceNumeric() As Decimal + Get + Return Me._sequenceNumeric + End Get + Set + Me._sequenceNumeric = Value + End Set + End Property + + Public Property customsValueAmount() As priceType_16_2 + Get + Return Me._customsValueAmount + End Get + Set + Me._customsValueAmount = Value + End Set + End Property + + Public Property statisticalValueAmount() As priceType_16_2 + Get + Return Me._statisticalValueAmount + End Get + Set + Me._statisticalValueAmount = Value + End Set + End Property + + + Public Property additionalDocumentType() As List(Of goodsItemTypeAdditionalDocumentType) + Get + Return Me._additionalDocumentType + End Get + Set + Me._additionalDocumentType = Value + End Set + End Property + + + Public Property additionalInformationType() As List(Of goodsItemTypeAdditionalInformationType) + Get + Return Me._additionalInformationType + End Get + Set + Me._additionalInformationType = Value + End Set + End Property + + Public Property commodityType() As goodsItemTypeCommodityType + Get + Return Me._commodityType + End Get + Set + Me._commodityType = Value + End Set + End Property + + Public Property goodsMeasureType() As goodsItemTypeGoodsMeasureType + Get + Return Me._goodsMeasureType + End Get + Set + Me._goodsMeasureType = Value + End Set + End Property + + + Public Property governmentProcedureType() As List(Of goodsItemTypeGovernmentProcedureType) + Get + Return Me._governmentProcedureType + End Get + Set + Me._governmentProcedureType = Value + End Set + End Property + + Public Property manufacturerType() As goodsItemTypeManufacturerType + Get + Return Me._manufacturerType + End Get + Set + Me._manufacturerType = Value + End Set + End Property + + Public Property originType() As goodsItemTypeOriginType + Get + Return Me._originType + End Get + Set + Me._originType = Value + End Set + End Property + + + Public Property packagingType() As List(Of goodsItemTypePackagingType) + Get + Return Me._packagingType + End Get + Set + Me._packagingType = Value + End Set + End Property + + + Public Property previousDocumentType() As List(Of goodsItemTypePreviousDocumentType) + Get + Return Me._previousDocumentType + End Get + Set + Me._previousDocumentType = Value + End Set + End Property + + Public Property refundRecipientPartyType() As goodsItemTypeRefundRecipientPartyType + Get + Return Me._refundRecipientPartyType + End Get + Set + Me._refundRecipientPartyType = Value + End Set + End Property + + + Public Property valuationAdjustmentType() As List(Of goodsItemTypeValuationAdjustmentType) + Get + Return Me._valuationAdjustmentType + End Get + Set + Me._valuationAdjustmentType = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemType 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 goodsItemType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemType) + 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 goodsItemType) 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 goodsItemType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemType + Return CType(Serializer.Deserialize(s), goodsItemType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemType 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 goodsItemType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemType) + 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 goodsItemType) 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 goodsItemType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 priceType_16_2 + +#Region "Private fields" + Private _currency As String + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property currency() As String + Get + Return Me._currency + End Get + Set + Me._currency = Value + End Set + End Property + + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(priceType_16_2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current priceType_16_2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an priceType_16_2 object + ''' + ''' string workflow markup to deserialize + ''' Output priceType_16_2 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 priceType_16_2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, priceType_16_2) + 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 priceType_16_2) 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 priceType_16_2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), priceType_16_2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As priceType_16_2 + Return CType(Serializer.Deserialize(s), priceType_16_2) + End Function +#End Region + + ''' + ''' Serializes current priceType_16_2 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an priceType_16_2 object + ''' + ''' string xml file to load and deserialize + ''' Output priceType_16_2 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 priceType_16_2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, priceType_16_2) + 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 priceType_16_2) 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 priceType_16_2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemTypeAdditionalDocumentType + +#Region "Private fields" + Private _documentCode As String + + Private _documentReference As String + + Private _amount As priceType_16_2 + + Private _quantity As quantityType + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._quantity = New quantityType() + Me._amount = New priceType_16_2() + End Sub + + + Public Property documentCode() As String + Get + Return Me._documentCode + End Get + Set + Me._documentCode = Value + End Set + End Property + + Public Property documentReference() As String + Get + Return Me._documentReference + End Get + Set + Me._documentReference = Value + End Set + End Property + + Public Property amount() As priceType_16_2 + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Public Property quantity() As quantityType + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypeAdditionalDocumentType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypeAdditionalDocumentType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypeAdditionalDocumentType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypeAdditionalDocumentType 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 goodsItemTypeAdditionalDocumentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeAdditionalDocumentType) + 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 goodsItemTypeAdditionalDocumentType) 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 goodsItemTypeAdditionalDocumentType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypeAdditionalDocumentType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypeAdditionalDocumentType + Return CType(Serializer.Deserialize(s), goodsItemTypeAdditionalDocumentType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypeAdditionalDocumentType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypeAdditionalDocumentType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypeAdditionalDocumentType 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 goodsItemTypeAdditionalDocumentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeAdditionalDocumentType) + 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 goodsItemTypeAdditionalDocumentType) 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 goodsItemTypeAdditionalDocumentType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemTypeAdditionalInformationType + +#Region "Private fields" + Private _statementCode As String + + Private _statementDescription As String + + Private _statementTypeCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property statementCode() As String + Get + Return Me._statementCode + End Get + Set + Me._statementCode = Value + End Set + End Property + + Public Property statementDescription() As String + Get + Return Me._statementDescription + End Get + Set + Me._statementDescription = Value + End Set + End Property + + + Public Property statementTypeCode() As String + Get + Return Me._statementTypeCode + End Get + Set + Me._statementTypeCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypeAdditionalInformationType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypeAdditionalInformationType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypeAdditionalInformationType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypeAdditionalInformationType 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 goodsItemTypeAdditionalInformationType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeAdditionalInformationType) + 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 goodsItemTypeAdditionalInformationType) 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 goodsItemTypeAdditionalInformationType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypeAdditionalInformationType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypeAdditionalInformationType + Return CType(Serializer.Deserialize(s), goodsItemTypeAdditionalInformationType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypeAdditionalInformationType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypeAdditionalInformationType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypeAdditionalInformationType 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 goodsItemTypeAdditionalInformationType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeAdditionalInformationType) + 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 goodsItemTypeAdditionalInformationType) 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 goodsItemTypeAdditionalInformationType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemTypeCommodityType + +#Region "Private fields" + Private _sequenceNumeric As Decimal + + Private _description As String + + Private _valueAmount As priceType_16_2 + + Private _classificationType As List(Of goodsItemTypeCommodityTypeClassificationType) + + Private _transportEquipmentType As List(Of goodsItemTypeCommodityTypeTransportEquipmentType) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transportEquipmentType = New List(Of goodsItemTypeCommodityTypeTransportEquipmentType)() + Me._classificationType = New List(Of goodsItemTypeCommodityTypeClassificationType)() + Me._valueAmount = New priceType_16_2() + End Sub + + Public Property sequenceNumeric() As Decimal + Get + Return Me._sequenceNumeric + End Get + Set + Me._sequenceNumeric = Value + End Set + End Property + + Public Property description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Public Property valueAmount() As priceType_16_2 + Get + Return Me._valueAmount + End Get + Set + Me._valueAmount = Value + End Set + End Property + + + Public Property classificationType() As List(Of goodsItemTypeCommodityTypeClassificationType) + Get + Return Me._classificationType + End Get + Set + Me._classificationType = Value + End Set + End Property + + + Public Property transportEquipmentType() As List(Of goodsItemTypeCommodityTypeTransportEquipmentType) + Get + Return Me._transportEquipmentType + End Get + Set + Me._transportEquipmentType = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypeCommodityType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypeCommodityType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypeCommodityType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypeCommodityType 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 goodsItemTypeCommodityType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeCommodityType) + 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 goodsItemTypeCommodityType) 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 goodsItemTypeCommodityType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypeCommodityType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypeCommodityType + Return CType(Serializer.Deserialize(s), goodsItemTypeCommodityType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypeCommodityType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypeCommodityType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypeCommodityType 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 goodsItemTypeCommodityType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeCommodityType) + 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 goodsItemTypeCommodityType) 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 goodsItemTypeCommodityType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemTypeCommodityTypeClassificationType + +#Region "Private fields" + Private _commodityCode As String + + Private _unitedNationsDangerousGoodCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property commodityCode() As String + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + Public Property unitedNationsDangerousGoodCode() As String + Get + Return Me._unitedNationsDangerousGoodCode + End Get + Set + Me._unitedNationsDangerousGoodCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypeCommodityTypeClassificationType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypeCommodityTypeClassificationType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypeCommodityTypeClassificationType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypeCommodityTypeClassificationType 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 goodsItemTypeCommodityTypeClassificationType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeCommodityTypeClassificationType) + 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 goodsItemTypeCommodityTypeClassificationType) 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 goodsItemTypeCommodityTypeClassificationType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypeCommodityTypeClassificationType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypeCommodityTypeClassificationType + Return CType(Serializer.Deserialize(s), goodsItemTypeCommodityTypeClassificationType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypeCommodityTypeClassificationType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypeCommodityTypeClassificationType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypeCommodityTypeClassificationType 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 goodsItemTypeCommodityTypeClassificationType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeCommodityTypeClassificationType) + 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 goodsItemTypeCommodityTypeClassificationType) 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 goodsItemTypeCommodityTypeClassificationType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemTypeCommodityTypeTransportEquipmentType + +#Region "Private fields" + Private _sequenceNumeric As Decimal + + Private _equipmentIdentificationNumberId As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property sequenceNumeric() As Decimal + Get + Return Me._sequenceNumeric + End Get + Set + Me._sequenceNumeric = Value + End Set + End Property + + Public Property equipmentIdentificationNumberId() As String + Get + Return Me._equipmentIdentificationNumberId + End Get + Set + Me._equipmentIdentificationNumberId = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypeCommodityTypeTransportEquipmentType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypeCommodityTypeTransportEquipmentType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypeCommodityTypeTransportEquipmentType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypeCommodityTypeTransportEquipmentType 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 goodsItemTypeCommodityTypeTransportEquipmentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeCommodityTypeTransportEquipmentType) + 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 goodsItemTypeCommodityTypeTransportEquipmentType) 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 goodsItemTypeCommodityTypeTransportEquipmentType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypeCommodityTypeTransportEquipmentType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypeCommodityTypeTransportEquipmentType + Return CType(Serializer.Deserialize(s), goodsItemTypeCommodityTypeTransportEquipmentType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypeCommodityTypeTransportEquipmentType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypeCommodityTypeTransportEquipmentType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypeCommodityTypeTransportEquipmentType 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 goodsItemTypeCommodityTypeTransportEquipmentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeCommodityTypeTransportEquipmentType) + 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 goodsItemTypeCommodityTypeTransportEquipmentType) 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 goodsItemTypeCommodityTypeTransportEquipmentType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemTypeGoodsMeasureType + +#Region "Private fields" + Private _grossMassMeasure As weightType_16_6 + + Private _netNetWeightMeasure As weightType_16_6 + + Private _tariffQuantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._netNetWeightMeasure = New weightType_16_6() + Me._grossMassMeasure = New weightType_16_6() + End Sub + + Public Property grossMassMeasure() As weightType_16_6 + Get + Return Me._grossMassMeasure + End Get + Set + Me._grossMassMeasure = Value + End Set + End Property + + Public Property netNetWeightMeasure() As weightType_16_6 + Get + Return Me._netNetWeightMeasure + End Get + Set + Me._netNetWeightMeasure = Value + End Set + End Property + + Public Property tariffQuantity() As Decimal + Get + Return Me._tariffQuantity + End Get + Set + Me._tariffQuantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypeGoodsMeasureType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypeGoodsMeasureType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypeGoodsMeasureType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypeGoodsMeasureType 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 goodsItemTypeGoodsMeasureType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeGoodsMeasureType) + 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 goodsItemTypeGoodsMeasureType) 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 goodsItemTypeGoodsMeasureType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypeGoodsMeasureType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypeGoodsMeasureType + Return CType(Serializer.Deserialize(s), goodsItemTypeGoodsMeasureType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypeGoodsMeasureType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypeGoodsMeasureType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypeGoodsMeasureType 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 goodsItemTypeGoodsMeasureType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeGoodsMeasureType) + 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 goodsItemTypeGoodsMeasureType) 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 goodsItemTypeGoodsMeasureType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemTypeGovernmentProcedureType + +#Region "Private fields" + Private _currentCode As String + + Private _previousCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property currentCode() As String + Get + Return Me._currentCode + End Get + Set + Me._currentCode = Value + End Set + End Property + + + Public Property previousCode() As String + Get + Return Me._previousCode + End Get + Set + Me._previousCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypeGovernmentProcedureType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypeGovernmentProcedureType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypeGovernmentProcedureType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypeGovernmentProcedureType 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 goodsItemTypeGovernmentProcedureType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeGovernmentProcedureType) + 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 goodsItemTypeGovernmentProcedureType) 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 goodsItemTypeGovernmentProcedureType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypeGovernmentProcedureType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypeGovernmentProcedureType + Return CType(Serializer.Deserialize(s), goodsItemTypeGovernmentProcedureType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypeGovernmentProcedureType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypeGovernmentProcedureType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypeGovernmentProcedureType 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 goodsItemTypeGovernmentProcedureType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeGovernmentProcedureType) + 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 goodsItemTypeGovernmentProcedureType) 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 goodsItemTypeGovernmentProcedureType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemTypeManufacturerType + +#Region "Private fields" + Private _name As String + + Private _id As String + + Private _address As addressType + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New addressType() + End Sub + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property id() As String + Get + Return Me._id + End Get + Set + Me._id = Value + End Set + End Property + + Public Property address() As addressType + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypeManufacturerType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypeManufacturerType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypeManufacturerType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypeManufacturerType 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 goodsItemTypeManufacturerType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeManufacturerType) + 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 goodsItemTypeManufacturerType) 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 goodsItemTypeManufacturerType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypeManufacturerType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypeManufacturerType + Return CType(Serializer.Deserialize(s), goodsItemTypeManufacturerType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypeManufacturerType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypeManufacturerType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypeManufacturerType 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 goodsItemTypeManufacturerType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeManufacturerType) + 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 goodsItemTypeManufacturerType) 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 goodsItemTypeManufacturerType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 addressType + +#Region "Private fields" + Private _postalCode As String + + Private _streetAndNumber As String + + Private _city As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property postalCode() As String + Get + Return Me._postalCode + End Get + Set + Me._postalCode = Value + End Set + End Property + + Public Property streetAndNumber() As String + Get + Return Me._streetAndNumber + End Get + Set + Me._streetAndNumber = 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 Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(addressType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current addressType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an addressType object + ''' + ''' string workflow markup to deserialize + ''' Output addressType 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 addressType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, addressType) + 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 addressType) 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 addressType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), addressType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As addressType + Return CType(Serializer.Deserialize(s), addressType) + End Function +#End Region + + ''' + ''' Serializes current addressType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an addressType object + ''' + ''' string xml file to load and deserialize + ''' Output addressType 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 addressType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, addressType) + 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 addressType) 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 addressType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemTypeOriginType + +#Region "Private fields" + Private _countryCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property countryCode() As String + Get + Return Me._countryCode + End Get + Set + Me._countryCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypeOriginType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypeOriginType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypeOriginType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypeOriginType 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 goodsItemTypeOriginType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeOriginType) + 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 goodsItemTypeOriginType) 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 goodsItemTypeOriginType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypeOriginType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypeOriginType + Return CType(Serializer.Deserialize(s), goodsItemTypeOriginType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypeOriginType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypeOriginType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypeOriginType 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 goodsItemTypeOriginType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeOriginType) + 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 goodsItemTypeOriginType) 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 goodsItemTypeOriginType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemTypePackagingType + +#Region "Private fields" + Private _sequenceNumeric As Decimal + + Private _marksNumbersID As String + + Private _packagingQuantity As Decimal + + Private _typeCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property sequenceNumeric() As Decimal + Get + Return Me._sequenceNumeric + End Get + Set + Me._sequenceNumeric = Value + End Set + End Property + + Public Property MarksNumbersID() As String + Get + Return Me._marksNumbersID + End Get + Set + Me._marksNumbersID = Value + End Set + End Property + + Public Property packagingQuantity() As Decimal + Get + Return Me._packagingQuantity + End Get + Set + Me._packagingQuantity = Value + End Set + End Property + + + Public Property typeCode() As String + Get + Return Me._typeCode + End Get + Set + Me._typeCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypePackagingType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypePackagingType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypePackagingType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypePackagingType 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 goodsItemTypePackagingType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypePackagingType) + 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 goodsItemTypePackagingType) 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 goodsItemTypePackagingType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypePackagingType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypePackagingType + Return CType(Serializer.Deserialize(s), goodsItemTypePackagingType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypePackagingType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypePackagingType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypePackagingType 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 goodsItemTypePackagingType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypePackagingType) + 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 goodsItemTypePackagingType) 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 goodsItemTypePackagingType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemTypePreviousDocumentType + +#Region "Private fields" + Private _docTypeCode As prevDocTypeCode + + Private _docSortCode As String + + Private _docNr As String + + Private _lineNumeric As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property DocTypeCode() As prevDocTypeCode + Get + Return Me._docTypeCode + End Get + Set + Me._docTypeCode = Value + End Set + End Property + + + Public Property DocSortCode() As String + Get + Return Me._docSortCode + End Get + Set + Me._docSortCode = Value + End Set + End Property + + Public Property DocNr() As String + Get + Return Me._docNr + End Get + Set + Me._docNr = Value + End Set + End Property + + Public Property lineNumeric() As Decimal + Get + Return Me._lineNumeric + End Get + Set + Me._lineNumeric = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypePreviousDocumentType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypePreviousDocumentType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypePreviousDocumentType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypePreviousDocumentType 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 goodsItemTypePreviousDocumentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypePreviousDocumentType) + 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 goodsItemTypePreviousDocumentType) 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 goodsItemTypePreviousDocumentType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypePreviousDocumentType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypePreviousDocumentType + Return CType(Serializer.Deserialize(s), goodsItemTypePreviousDocumentType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypePreviousDocumentType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypePreviousDocumentType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypePreviousDocumentType 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 goodsItemTypePreviousDocumentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypePreviousDocumentType) + 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 goodsItemTypePreviousDocumentType) 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 goodsItemTypePreviousDocumentType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 prevDocTypeCode + + ''' + X + + ''' + Y + + ''' + Z + End Enum + + + Partial Public Class goodsItemTypeRefundRecipientPartyType + +#Region "Private fields" + Private _name As String + + Private _id As String + + Private _address As addressType + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New addressType() + End Sub + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property id() As String + Get + Return Me._id + End Get + Set + Me._id = Value + End Set + End Property + + Public Property address() As addressType + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypeRefundRecipientPartyType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypeRefundRecipientPartyType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypeRefundRecipientPartyType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypeRefundRecipientPartyType 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 goodsItemTypeRefundRecipientPartyType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeRefundRecipientPartyType) + 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 goodsItemTypeRefundRecipientPartyType) 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 goodsItemTypeRefundRecipientPartyType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypeRefundRecipientPartyType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypeRefundRecipientPartyType + Return CType(Serializer.Deserialize(s), goodsItemTypeRefundRecipientPartyType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypeRefundRecipientPartyType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypeRefundRecipientPartyType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypeRefundRecipientPartyType 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 goodsItemTypeRefundRecipientPartyType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeRefundRecipientPartyType) + 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 goodsItemTypeRefundRecipientPartyType) 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 goodsItemTypeRefundRecipientPartyType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsItemTypeValuationAdjustmentType + +#Region "Private fields" + Private _additionCode As String + + Private _valuationAdjustmentAmount As priceType_16_2 + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._valuationAdjustmentAmount = New priceType_16_2() + End Sub + + + Public Property additionCode() As String + Get + Return Me._additionCode + End Get + Set + Me._additionCode = Value + End Set + End Property + + Public Property valuationAdjustmentAmount() As priceType_16_2 + Get + Return Me._valuationAdjustmentAmount + End Get + Set + Me._valuationAdjustmentAmount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsItemTypeValuationAdjustmentType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsItemTypeValuationAdjustmentType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsItemTypeValuationAdjustmentType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsItemTypeValuationAdjustmentType 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 goodsItemTypeValuationAdjustmentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeValuationAdjustmentType) + 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 goodsItemTypeValuationAdjustmentType) 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 goodsItemTypeValuationAdjustmentType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsItemTypeValuationAdjustmentType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsItemTypeValuationAdjustmentType + Return CType(Serializer.Deserialize(s), goodsItemTypeValuationAdjustmentType) + End Function +#End Region + + ''' + ''' Serializes current goodsItemTypeValuationAdjustmentType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsItemTypeValuationAdjustmentType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsItemTypeValuationAdjustmentType 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 goodsItemTypeValuationAdjustmentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsItemTypeValuationAdjustmentType) + 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 goodsItemTypeValuationAdjustmentType) 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 goodsItemTypeValuationAdjustmentType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 portType + +#Region "Private fields" + Private _portCode As String + + Private _portCountry As String + + Private _portLocationName As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property portCode() As String + Get + Return Me._portCode + End Get + Set + Me._portCode = Value + End Set + End Property + + Public Property portCountry() As String + Get + Return Me._portCountry + End Get + Set + Me._portCountry = Value + End Set + End Property + + Public Property portLocationName() As String + Get + Return Me._portLocationName + End Get + Set + Me._portLocationName = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(portType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current portType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an portType object + ''' + ''' string workflow markup to deserialize + ''' Output portType 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 portType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, portType) + 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 portType) 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 portType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), portType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As portType + Return CType(Serializer.Deserialize(s), portType) + End Function +#End Region + + ''' + ''' Serializes current portType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an portType object + ''' + ''' string xml file to load and deserialize + ''' Output portType 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 portType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, portType) + 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 portType) 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 portType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 inCoTermType + +#Region "Private fields" + Private _inCoTerm As inCoTerm + + Private _inCoTermCountryRelationship As UShort + + Private _inCoTermPlaceCode As String + + Private _inCoTermPlaceName As String + + Private _inCoTermPlaceDescription As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property inCoTerm() As inCoTerm + Get + Return Me._inCoTerm + End Get + Set + Me._inCoTerm = Value + End Set + End Property + + Public Property inCoTermCountryRelationship() As UShort + Get + Return Me._inCoTermCountryRelationship + End Get + Set + Me._inCoTermCountryRelationship = Value + End Set + End Property + + Public Property inCoTermPlaceCode() As String + Get + Return Me._inCoTermPlaceCode + End Get + Set + Me._inCoTermPlaceCode = Value + End Set + End Property + + Public Property inCoTermPlaceName() As String + Get + Return Me._inCoTermPlaceName + End Get + Set + Me._inCoTermPlaceName = Value + End Set + End Property + + Public Property inCoTermPlaceDescription() As String + Get + Return Me._inCoTermPlaceDescription + End Get + Set + Me._inCoTermPlaceDescription = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(inCoTermType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current inCoTermType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an inCoTermType object + ''' + ''' string workflow markup to deserialize + ''' Output inCoTermType 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 inCoTermType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, inCoTermType) + 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 inCoTermType) 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 inCoTermType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), inCoTermType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As inCoTermType + Return CType(Serializer.Deserialize(s), inCoTermType) + End Function +#End Region + + ''' + ''' Serializes current inCoTermType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an inCoTermType object + ''' + ''' string xml file to load and deserialize + ''' Output inCoTermType 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 inCoTermType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, inCoTermType) + 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 inCoTermType) 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 inCoTermType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 inCoTerm + + ''' + CFR + + ''' + CIF + + ''' + CIP + + ''' + CPT + + ''' + DAF + + ''' + DAP + + ''' + DAT + + ''' + DDP + + ''' + DDU + + ''' + DEQ + + ''' + DES + + ''' + EXW + + ''' + FAS + + ''' + FCA + + ''' + FOB + + ''' + XXX + End Enum + + + Partial Public Class consignmentType + +#Region "Private fields" + Private _borderTransportMeansType As consignmentTypeBorderTransportMeansType + + Private _departureTransportMeansType As consignmentTypeDepartureTransportMeansType + + Private _arrivalTransportMeansType As consignmentTypeArrivalTransportMeansType + + Private _freightType As consignmentTypeFreightType + + Private _goodsLocationName As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._freightType = New consignmentTypeFreightType() + Me._arrivalTransportMeansType = New consignmentTypeArrivalTransportMeansType() + Me._departureTransportMeansType = New consignmentTypeDepartureTransportMeansType() + Me._borderTransportMeansType = New consignmentTypeBorderTransportMeansType() + End Sub + + Public Property borderTransportMeansType() As consignmentTypeBorderTransportMeansType + Get + Return Me._borderTransportMeansType + End Get + Set + Me._borderTransportMeansType = Value + End Set + End Property + + Public Property departureTransportMeansType() As consignmentTypeDepartureTransportMeansType + Get + Return Me._departureTransportMeansType + End Get + Set + Me._departureTransportMeansType = Value + End Set + End Property + + Public Property arrivalTransportMeansType() As consignmentTypeArrivalTransportMeansType + Get + Return Me._arrivalTransportMeansType + End Get + Set + Me._arrivalTransportMeansType = Value + End Set + End Property + + Public Property freightType() As consignmentTypeFreightType + Get + Return Me._freightType + End Get + Set + Me._freightType = Value + End Set + End Property + + Public Property goodsLocationName() As String + Get + Return Me._goodsLocationName + End Get + Set + Me._goodsLocationName = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(consignmentType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current consignmentType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an consignmentType object + ''' + ''' string workflow markup to deserialize + ''' Output consignmentType 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 consignmentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consignmentType) + 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 consignmentType) 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 consignmentType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), consignmentType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As consignmentType + Return CType(Serializer.Deserialize(s), consignmentType) + End Function +#End Region + + ''' + ''' Serializes current consignmentType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an consignmentType object + ''' + ''' string xml file to load and deserialize + ''' Output consignmentType 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 consignmentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consignmentType) + 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 consignmentType) 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 consignmentType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 consignmentTypeBorderTransportMeansType + +#Region "Private fields" + Private _modeCrossing As modeTransport + + Private _nationalityCrossing As String + + Private _identificationCrossingBorder As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property modeCrossing() As modeTransport + Get + Return Me._modeCrossing + End Get + Set + Me._modeCrossing = Value + End Set + End Property + + Public Property nationalityCrossing() As String + Get + Return Me._nationalityCrossing + End Get + Set + Me._nationalityCrossing = Value + End Set + End Property + + Public Property identificationCrossingBorder() As String + Get + Return Me._identificationCrossingBorder + End Get + Set + Me._identificationCrossingBorder = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(consignmentTypeBorderTransportMeansType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current consignmentTypeBorderTransportMeansType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an consignmentTypeBorderTransportMeansType object + ''' + ''' string workflow markup to deserialize + ''' Output consignmentTypeBorderTransportMeansType 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 consignmentTypeBorderTransportMeansType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consignmentTypeBorderTransportMeansType) + 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 consignmentTypeBorderTransportMeansType) 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 consignmentTypeBorderTransportMeansType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), consignmentTypeBorderTransportMeansType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As consignmentTypeBorderTransportMeansType + Return CType(Serializer.Deserialize(s), consignmentTypeBorderTransportMeansType) + End Function +#End Region + + ''' + ''' Serializes current consignmentTypeBorderTransportMeansType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an consignmentTypeBorderTransportMeansType object + ''' + ''' string xml file to load and deserialize + ''' Output consignmentTypeBorderTransportMeansType 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 consignmentTypeBorderTransportMeansType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consignmentTypeBorderTransportMeansType) + 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 consignmentTypeBorderTransportMeansType) 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 consignmentTypeBorderTransportMeansType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 modeTransport + + ''' + AIR + + ''' + HUMAN + + ''' + POSTAL + + ''' + RAIL + + ''' + ROAD + + ''' + SEA + + ''' + INLAND_WATERWAYS + End Enum + + + Partial Public Class consignmentTypeDepartureTransportMeansType + +#Region "Private fields" + Private _modeTransport As modeTransport + + Private _identificationDeparture As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property modeTransport() As modeTransport + Get + Return Me._modeTransport + End Get + Set + Me._modeTransport = Value + End Set + End Property + + Public Property identificationDeparture() As String + Get + Return Me._identificationDeparture + End Get + Set + Me._identificationDeparture = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(consignmentTypeDepartureTransportMeansType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current consignmentTypeDepartureTransportMeansType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an consignmentTypeDepartureTransportMeansType object + ''' + ''' string workflow markup to deserialize + ''' Output consignmentTypeDepartureTransportMeansType 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 consignmentTypeDepartureTransportMeansType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consignmentTypeDepartureTransportMeansType) + 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 consignmentTypeDepartureTransportMeansType) 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 consignmentTypeDepartureTransportMeansType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), consignmentTypeDepartureTransportMeansType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As consignmentTypeDepartureTransportMeansType + Return CType(Serializer.Deserialize(s), consignmentTypeDepartureTransportMeansType) + End Function +#End Region + + ''' + ''' Serializes current consignmentTypeDepartureTransportMeansType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an consignmentTypeDepartureTransportMeansType object + ''' + ''' string xml file to load and deserialize + ''' Output consignmentTypeDepartureTransportMeansType 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 consignmentTypeDepartureTransportMeansType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consignmentTypeDepartureTransportMeansType) + 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 consignmentTypeDepartureTransportMeansType) 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 consignmentTypeDepartureTransportMeansType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 consignmentTypeArrivalTransportMeansType + +#Region "Private fields" + Private _modeTransport As modeTransport + + Private _identificationArrival As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property modeTransport() As modeTransport + Get + Return Me._modeTransport + End Get + Set + Me._modeTransport = Value + End Set + End Property + + Public Property identificationArrival() As String + Get + Return Me._identificationArrival + End Get + Set + Me._identificationArrival = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(consignmentTypeArrivalTransportMeansType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current consignmentTypeArrivalTransportMeansType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an consignmentTypeArrivalTransportMeansType object + ''' + ''' string workflow markup to deserialize + ''' Output consignmentTypeArrivalTransportMeansType 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 consignmentTypeArrivalTransportMeansType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consignmentTypeArrivalTransportMeansType) + 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 consignmentTypeArrivalTransportMeansType) 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 consignmentTypeArrivalTransportMeansType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), consignmentTypeArrivalTransportMeansType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As consignmentTypeArrivalTransportMeansType + Return CType(Serializer.Deserialize(s), consignmentTypeArrivalTransportMeansType) + End Function +#End Region + + ''' + ''' Serializes current consignmentTypeArrivalTransportMeansType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an consignmentTypeArrivalTransportMeansType object + ''' + ''' string xml file to load and deserialize + ''' Output consignmentTypeArrivalTransportMeansType 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 consignmentTypeArrivalTransportMeansType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consignmentTypeArrivalTransportMeansType) + 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 consignmentTypeArrivalTransportMeansType) 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 consignmentTypeArrivalTransportMeansType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 consignmentTypeFreightType + +#Region "Private fields" + Private _paymentMethod As modePaymentTransport + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property paymentMethod() As modePaymentTransport + Get + Return Me._paymentMethod + End Get + Set + Me._paymentMethod = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(consignmentTypeFreightType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current consignmentTypeFreightType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an consignmentTypeFreightType object + ''' + ''' string workflow markup to deserialize + ''' Output consignmentTypeFreightType 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 consignmentTypeFreightType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consignmentTypeFreightType) + 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 consignmentTypeFreightType) 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 consignmentTypeFreightType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), consignmentTypeFreightType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As consignmentTypeFreightType + Return CType(Serializer.Deserialize(s), consignmentTypeFreightType) + End Function +#End Region + + ''' + ''' Serializes current consignmentTypeFreightType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an consignmentTypeFreightType object + ''' + ''' string xml file to load and deserialize + ''' Output consignmentTypeFreightType 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 consignmentTypeFreightType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consignmentTypeFreightType) + 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 consignmentTypeFreightType) 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 consignmentTypeFreightType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 modePaymentTransport + + ''' + CASH + + ''' + CREDIT_CARD + + ''' + CHECK + + ''' + OTHER + + ''' + ELECTRONIC + + ''' + ACCOUNT_HOLDER + + ''' + NOT_PAYED_BEFOREHAND + End Enum + + + Partial Public Class consignorType + +#Region "Private fields" + Private _name As String + + Private _address As addressType + + Private _eoriNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New addressType() + End Sub + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property address() As addressType + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + + Public Property eoriNumber() As String + Get + Return Me._eoriNumber + End Get + Set + Me._eoriNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(consignorType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current consignorType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an consignorType object + ''' + ''' string workflow markup to deserialize + ''' Output consignorType 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 consignorType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consignorType) + 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 consignorType) 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 consignorType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), consignorType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As consignorType + Return CType(Serializer.Deserialize(s), consignorType) + End Function +#End Region + + ''' + ''' Serializes current consignorType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an consignorType object + ''' + ''' string xml file to load and deserialize + ''' Output consignorType 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 consignorType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consignorType) + 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 consignorType) 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 consignorType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 consigneeType + +#Region "Private fields" + Private _name As String + + Private _address As addressType + + Private _eoriNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New addressType() + End Sub + + Public Property name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property address() As addressType + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + + Public Property eoriNumber() As String + Get + Return Me._eoriNumber + End Get + Set + Me._eoriNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(consigneeType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current consigneeType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an consigneeType object + ''' + ''' string workflow markup to deserialize + ''' Output consigneeType 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 consigneeType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consigneeType) + 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 consigneeType) 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 consigneeType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), consigneeType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As consigneeType + Return CType(Serializer.Deserialize(s), consigneeType) + End Function +#End Region + + ''' + ''' Serializes current consigneeType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an consigneeType object + ''' + ''' string xml file to load and deserialize + ''' Output consigneeType 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 consigneeType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, consigneeType) + 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 consigneeType) 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 consigneeType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 goodsShipmentType + +#Region "Private fields" + Private _countryOfExportation As String + + Private _natureOfTransaction As UShort + + Private _deliveryDestination As String + + Private _consignee As consigneeType + + Private _consignor As consignorType + + Private _consignment As consignmentType + + Private _exitOffice As String + + Private _internationalCommercialTerms As inCoTermType + + Private _portOfLoading As portType + + Private _portOfDischarge As portType + + Private _shippingLine As String + + Private _goodsItem As List(Of goodsItemType) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of goodsItemType)() + Me._portOfDischarge = New portType() + Me._portOfLoading = New portType() + Me._internationalCommercialTerms = New inCoTermType() + Me._consignment = New consignmentType() + Me._consignor = New consignorType() + Me._consignee = New consigneeType() + End Sub + + Public Property countryOfExportation() As String + Get + Return Me._countryOfExportation + End Get + Set + Me._countryOfExportation = Value + End Set + End Property + + Public Property natureOfTransaction() As UShort + Get + Return Me._natureOfTransaction + End Get + Set + Me._natureOfTransaction = Value + End Set + End Property + + Public Property deliveryDestination() As String + Get + Return Me._deliveryDestination + End Get + Set + Me._deliveryDestination = Value + End Set + End Property + + Public Property consignee() As consigneeType + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + Public Property consignor() As consignorType + Get + Return Me._consignor + End Get + Set + Me._consignor = Value + End Set + End Property + + Public Property consignment() As consignmentType + Get + Return Me._consignment + End Get + Set + Me._consignment = Value + End Set + End Property + + + Public Property exitOffice() As String + Get + Return Me._exitOffice + End Get + Set + Me._exitOffice = Value + End Set + End Property + + Public Property internationalCommercialTerms() As inCoTermType + Get + Return Me._internationalCommercialTerms + End Get + Set + Me._internationalCommercialTerms = Value + End Set + End Property + + Public Property portOfLoading() As portType + Get + Return Me._portOfLoading + End Get + Set + Me._portOfLoading = Value + End Set + End Property + + Public Property portOfDischarge() As portType + Get + Return Me._portOfDischarge + End Get + Set + Me._portOfDischarge = Value + End Set + End Property + + Public Property shippingLine() As String + Get + Return Me._shippingLine + End Get + Set + Me._shippingLine = Value + End Set + End Property + + + Public Property goodsItem() As List(Of goodsItemType) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(goodsShipmentType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current goodsShipmentType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an goodsShipmentType object + ''' + ''' string workflow markup to deserialize + ''' Output goodsShipmentType 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 goodsShipmentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsShipmentType) + 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 goodsShipmentType) 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 goodsShipmentType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), goodsShipmentType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As goodsShipmentType + Return CType(Serializer.Deserialize(s), goodsShipmentType) + End Function +#End Region + + ''' + ''' Serializes current goodsShipmentType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an goodsShipmentType object + ''' + ''' string xml file to load and deserialize + ''' Output goodsShipmentType 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 goodsShipmentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, goodsShipmentType) + 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 goodsShipmentType) 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 goodsShipmentType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 principalType + +#Region "Private fields" + Private _nameType As principalTypeNameType + + Private _address As addressType + + Private _taxIdentificationNumber As String + + Private _contactPersonType As principalTypeContactPersonType + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPersonType = New principalTypeContactPersonType() + Me._address = New addressType() + Me._nameType = New principalTypeNameType() + End Sub + + Public Property nameType() As principalTypeNameType + Get + Return Me._nameType + End Get + Set + Me._nameType = Value + End Set + End Property + + Public Property address() As addressType + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Public Property taxIdentificationNumber() As String + Get + Return Me._taxIdentificationNumber + End Get + Set + Me._taxIdentificationNumber = Value + End Set + End Property + + Public Property contactPersonType() As principalTypeContactPersonType + Get + Return Me._contactPersonType + End Get + Set + Me._contactPersonType = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(principalType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current principalType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an principalType object + ''' + ''' string workflow markup to deserialize + ''' Output principalType 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 principalType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, principalType) + 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 principalType) 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 principalType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), principalType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As principalType + Return CType(Serializer.Deserialize(s), principalType) + End Function +#End Region + + ''' + ''' Serializes current principalType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an principalType object + ''' + ''' string xml file to load and deserialize + ''' Output principalType 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 principalType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, principalType) + 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 principalType) 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 principalType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 principalTypeNameType + +#Region "Private fields" + Private _language As String + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property language() As String + Get + Return Me._language + End Get + Set + Me._language = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(principalTypeNameType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current principalTypeNameType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an principalTypeNameType object + ''' + ''' string workflow markup to deserialize + ''' Output principalTypeNameType 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 principalTypeNameType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, principalTypeNameType) + 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 principalTypeNameType) 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 principalTypeNameType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), principalTypeNameType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As principalTypeNameType + Return CType(Serializer.Deserialize(s), principalTypeNameType) + End Function +#End Region + + ''' + ''' Serializes current principalTypeNameType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an principalTypeNameType object + ''' + ''' string xml file to load and deserialize + ''' Output principalTypeNameType 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 principalTypeNameType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, principalTypeNameType) + 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 principalTypeNameType) 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 principalTypeNameType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 principalTypeContactPersonType + +#Region "Private fields" + Private _contactPersonName As String + + Private _contactPersonCommunicationNumber As String + + Private _contactPersonEmail As String + + Private _contactPersonFaxNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property contactPersonName() As String + Get + Return Me._contactPersonName + End Get + Set + Me._contactPersonName = Value + End Set + End Property + + Public Property contactPersonCommunicationNumber() As String + Get + Return Me._contactPersonCommunicationNumber + End Get + Set + Me._contactPersonCommunicationNumber = Value + End Set + End Property + + Public Property contactPersonEmail() As String + Get + Return Me._contactPersonEmail + End Get + Set + Me._contactPersonEmail = Value + End Set + End Property + + Public Property contactPersonFaxNumber() As String + Get + Return Me._contactPersonFaxNumber + End Get + Set + Me._contactPersonFaxNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(principalTypeContactPersonType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current principalTypeContactPersonType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an principalTypeContactPersonType object + ''' + ''' string workflow markup to deserialize + ''' Output principalTypeContactPersonType 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 principalTypeContactPersonType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, principalTypeContactPersonType) + 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 principalTypeContactPersonType) 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 principalTypeContactPersonType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), principalTypeContactPersonType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As principalTypeContactPersonType + Return CType(Serializer.Deserialize(s), principalTypeContactPersonType) + End Function +#End Region + + ''' + ''' Serializes current principalTypeContactPersonType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an principalTypeContactPersonType object + ''' + ''' string xml file to load and deserialize + ''' Output principalTypeContactPersonType 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 principalTypeContactPersonType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, principalTypeContactPersonType) + 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 principalTypeContactPersonType) 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 principalTypeContactPersonType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/GASTON_SCHUL/agsCustomsExchange.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/GASTON_SCHUL/agsCustomsExchange.xsd new file mode 100644 index 0000000..4cf6d07 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/GASTON_SCHUL/agsCustomsExchange.xsd @@ -0,0 +1,939 @@ + + + + + + + + + Customs approved data for creating an export declaration. + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + European Union registration and identification number for businesses + which undertake the import or export of goods into or out of the EU. + It comprises of the ISO 3166 Alpha-2 country code followed by + a code or number that is unique in the member state. + + + + + + + + + + + + + + European Union registration and identification number for businesses + which undertake the import or export of goods into or out of the EU. + It comprises of the ISO 3166 Alpha-2 country code followed by + a code or number that is unique in the member state. + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Must have an extension so the user can open it with the corresponding program + + + + + + + + + + + Example 380 for invoice,... + + + + + + Contains the invoice number, MRN or other reference markers + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + A universally unique type 4 identifier (UUID) is a 128-bit number used to identify a single exchange document. + The term globally unique identifier (GUID) is also used, typically in software created by Microsoft. + + + + + + + + + + + + Version of the schema used. + + + + + + + + + + + + ISO 8601 Date and time with timezone added relative to UTC. For example, 2019-01-01T12:00:00+01:00 for UK time + Content is yyyy-mm-ddThh:mm:ssphh:mm where p is + or -. Note that the time zone is required. + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a03.html + + + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a04.html + + + + + + + + + + + + + + + + + https://www.belastingdienst.nl/wps/wcm/connect/bldcontenten/belastingdienst/customs/customs-processes/special-procedures/special-procedures-for-goods/special-procedures-for-goods + + + + + + + + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%20sagitta%2C%20onderdeel%20algemeen-a27.html + + + + + + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-116.html + + + + + + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a14.html + + + + + + + + + + + + + + + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a22.html + + + + + + + + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a89.html + + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a35.html + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a11.html + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a28.html + + + + + + + + + + + + UN IDs are four-digit numbers that identify dangerous goods, hazardous substances and articles + in the framework of international transport. + They are assigned by the United Nations Committee of Experts on the Transport of Dangerous Goods. + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-t03.html + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a12.html + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a25.html + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-s20.html + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%20sagitta%2C%20onderdeel%20algemeen-s03.html + + + + + + + + + + + + X - Summiere Aangifte + Y - Oorspronkelijke Aangifte + Z - Voorafgaand Document + + + + + + + + + + + + + https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%20sagitta%2C%20onderdeel%20transit-014.html + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Placeholder for container nr, train, barge, plane etc. + + + + + + + + + + + + ISO 4217 currency code, + like GBP for pound sterling or EUR for Euro + + + + + + + + + + + ISO 3166 Alpha-2 country code, + like GB for the United Kingdom of Great Britain and Northern Ireland, + and NL for the Kingdom of the Netherlands + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Copyright 2020 gaston-schul.com and/or its affiliates. All rights reserved. + Marcel Mullenders + + + End-User License Agreement (EULA) of ags customs exchange + + This End-User License Agreement ("EULA") is a legal agreement between you and Gaston Schul + This EULA agreement governs your acquisition and use of our ags customs exchange software ("Software") + directly from Gaston Schul or indirectly through a Gaston Schul authorized reseller or distributor (a "Reseller"). + Please read this EULA agreement carefully before completing the installation process and using the ags customs exchange software. + It provides a license to use the ags customs exchange software and contains warranty information and liability disclaimers. + + If you are entering into this EULA agreement on behalf of a company or other legal entity, + you represent that you have the authority to bind such entity and its affiliates to these terms and conditions. + If you do not have such authority or if you do not agree with the terms and conditions of this EULA agreement, + do not install or use the Software, and you must not accept this EULA agreement. + + This EULA agreement shall apply only to the Software supplied by Gaston Schul herewith regardless of whether other + software is referred to or described herein. The terms also apply to any Gaston Schul updates, supplements, Internet-based services, + and support services for the Software, unless other terms accompany those items on delivery. If so, those terms apply. + + License Grant + + Gaston Schul hereby grants you a personal, non-transferable, non-exclusive licence to use the v software on your devices + in accordance with the terms of this EULA agreement. You are permitted to load the ags customs exchange software (for example a PC, laptop, mobile or tablet) + under your control. You are responsible for ensuring your device meets the minimum requirements of the ags customs exchange software. + + You are not permitted to: + + Edit, alter, modify, adapt or otherwise change the whole or any part of the Software + Attempt to do any such things as to distribute or resell the Software + Allow any third party to use the Software on behalf of or for the benefit of any third party + Use the Software in any way which breaches any applicable local, national or international law + Use the Software for any purpose that Gaston Schul considers is a breach of this EULA agreement + + Intellectual Property and Ownership + + Gaston Schul shall at all times retain ownership of the Software as originally downloaded by you and all subsequent downloads of the Software by you. + The Software (and the copyright, and other intellectual property rights of whatever nature in the Software, including any modifications made thereto) + are and shall remain the property of Gaston Schul. + Gaston Schul reserves the right to grant licences to use the Software to third parties. + + Termination + + This EULA agreement is effective from the date you first use the Software and shall continue until terminated. + You may terminate it at any time. + It will also terminate immediately if you fail to comply with any term of this EULA agreement. + Upon such termination, the licenses granted by this EULA agreement will immediately terminate and you agree to stop all access and use of the Software. + The provisions that by their nature continue and survive will survive any termination of this EULA agreement. + + Governing Law + + This EULA agreement, and any dispute arising out of or in connection with this EULA agreement, + shall be governed by and construed in accordance with the laws of the Netherlands. + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.Designer.vb new file mode 100644 index 0000000..057e7fc --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.Designer.vb @@ -0,0 +1,88 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' MIC_EXPORT_BasicListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace MIC_EXPORT_Basic + + + Public Enum ShipmentType + + ''' + E + + ''' + B + + ''' + I + + ''' + X + + ''' + N + End Enum + + + Public Enum ContainerCode + + ''' + + Item1 + + ''' + + Item0 + End Enum + + + Public Enum PartnerTyp + + ''' + EX + + ''' + DT + + ''' + AE + + ''' + EV + End Enum + + + Public Enum AddCostsSplitType + + ''' + V + + ''' + Q + End Enum +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.xsd new file mode 100644 index 0000000..7cfba80 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.xsd @@ -0,0 +1,1122 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + item number + + + + + + item description + + + + + + + + + additional code + + + + + + + + address number + + + + + + + + address name + + + + + + + + address street + + + + + + + + + + + + + + + + + + + + + + + + + + + + TIN + + + + + + + + VAT ID + + + + + + + + + + + + + + + + + + + invoice Value + + + + + + + + + currency + + + + + + + + account number + + + + + + + + Stock Type + + + + + + + + type of transaction + + + + + + + + statistical code customs procedure + + + + + + + + customs procedure code + + + + + + + + customs office + + + + + + + + ModeOfTransport + + + + + + + + quantity + + + + + + + + + unit of measurement + + + + + + + + Shipment ID + + + + + + + + Partial number of shipment + + + + + + + + Shipment typeValid values:E … Third countriesB … EU (Intrastat)I … DomesticX … Conversion end product + + + + + + + + + + + + + + IsoCode of country + + + + + + + + place of destination + + + + + + + + Place Of Loading + + + + + + + + container code + + + + + + + + + + + number( 17,2) + + + + + + + + + invoice type + + + + + + + + + + + + + loading list + + + + + + + + number(15,6) + + + + + + + + + number(12,3) + + + + + + + + + number( 17,4) + + + + + + + + + number(13,4) + + + + + + + + + number(13,4) + + + + + + + + + Flag Additional costs + + + + + + + + + type of addtional cost + + + + + + + + GroupId + + + + + + + + sign mot + + + + + + + + additional Text + + + + + + + + Envelope:Unique transactionId used for communication with client + + + + + + + + Envelope:running count + + + + + + envelope:Unique Message ID used for communication in message envelope + + + + + + + + + Envelope:code of message schema version + + + + + + Envelope: communication partner + + + + + + + + + Generic key (key value) + + + + + + + + + Generic value (key value) + + + + + + + + + source system of error + + + + + + + + + Error Code returned to client + + + + + + error categories: severe, warning,... + + + + + + + + + errortext in local language + + + + + + + + action requested from web service + + + + + + + + + mime type of attachement eg. pdf + + + + + + + + binary file endocded + + + + + + Creator of attachment + + + + + + + + Envelope:connect ID + + + + + + + + + HintTexts + + + + + + + + type of representation + + + + + + + + + registration number in an external system + + + + + + + + + type of attribute + + + + + + text of attribute + + + + + + + + type of partner + + + + + + + + + + + + + relation of partner + + + + + + + + + operator of reference + + + + + + + + + reference number + + + + + + + + + unit price + + + + + + + + + party constellation + + + + + + + + location of goods code + + + + + + + + location of goods addition + + + + + + + + national tin flag + + + + + + + + national additional code + + + + + + + + statistical value + + + + + + + + + MovementReferenceNumber + + + + + + + + container type + + + + + + + + type of mean of transport + + + + + + + + additional splitt costs + + + + + + + + + + special Circumstances + + + + + + + + carriage costs + + + + + + + + Shipment Identifaction Number + + + + + + + + ContactType + + + + + + + + Dangerous Goods + + + + + + + + + + + + + Import Reference Type + + + + + + + + Customs Authorisation Number + + + + + + + + Shipment Reference Number + + + + + + + + Line Number of the Import Declaration + + + + + + + + Customs Reference Number of the Import Declaration + + + + + + + + Flag for Usual Treatment + + + + + + + + + Flag for Import into Atlas + + + + + + + + + additional Information + + + + + + + + qualifier + + + + + + + + EUCode + + + + + + + + Express + + + + + + + + Defaultname for the routing information (Default stored in MIC-Cust) + + + + + + + + customs authorisation number (will overwrite the authoritsation number for a declaration) + + + + + + + + INCO term + + + + + + + + additional code for national declaration + + + + + + + + flag no license required noegkz + + + + + + + + date of license egdat + + + + + + license number egnr + + + + + + + + product group + + + + + + + + The HS tariff code + + + + + + + + VAT code + + + + + + + + Excise tax code + + + + + + + + The unit of measure for complQuantity besmeh + + + + + + + + The reporting quantity if HS code requires specific statistical UOM. besm + + + + + + + + + number(11,4) + + + + + + + + + number( 16,4) + + + + + + + + + The statistical code of the customs procedure evkz + + + + + + + + document type + + + + + + + + document number + + + + + + + + buyer number + + + + + + + + registration number arrival + + + + + + + + + The preference request code that indicates if a preferential duty rate should be applied. pac + + + + + + + + Import quota kontgt + + + + + + + + The number of packages for this invoice + + + + + + + + The types of packages + + + + + + + + The date of the preference document wpdat + + + + + + The number of the preference document wnr + + + + + + + + The type of the preference document wpn + + + + + + + + order line number + + + + + + + + order number + + + + + + + + order number + + + + + + + + Flag for end use indicator + + + + + + + + + Flag for end use usage + + + + + + + + + Type of inf form + + + + + + + + number(6,3) + + + + + + + + + Global Trade - Configure To Order - ID + + + + + + + + bm code bmcode + + + + + + + + date for ipr continued processing + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.Designer.vb new file mode 100644 index 0000000..3842736 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.Designer.vb @@ -0,0 +1,9501 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' MIC_EXPORT_ComponentsListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic +Imports VERAG_PROG_ALLGEMEIN.MIC_EXPORT_Basic + +Namespace MIC_EXPORT_Components + + + Partial Public Class TItem + +#Region "Private fields" + Private _itemNo As String + + Private _itemDesc As String + + Private _commCode As String + + Private _prodGr As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property itemNo() As String + Get + Return Me._itemNo + End Get + Set + Me._itemNo = Value + End Set + End Property + + Public Property itemDesc() As String + Get + Return Me._itemDesc + End Get + Set + Me._itemDesc = Value + End Set + End Property + + Public Property commCode() As String + Get + Return Me._commCode + End Get + Set + Me._commCode = Value + End Set + End Property + + Public Property prodGr() As String + Get + Return Me._prodGr + End Get + Set + Me._prodGr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TItem object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TItem object + ''' + ''' string workflow markup to deserialize + ''' Output TItem 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 TItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TItem) + 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 TItem) 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 TItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TItem + Return CType(Serializer.Deserialize(s), TItem) + End Function +#End Region + + ''' + ''' Serializes current TItem 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TItem object + ''' + ''' string xml file to load and deserialize + ''' Output TItem 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 TItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TItem) + 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 TItem) 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 TItem + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAddress + +#Region "Private fields" + Private _addrNo As String + + Private _addrName As List(Of String) + + Private _addrStreet As String + + Private _addrLoc As String + + Private _addrCtry As String + + Private _addrState As String + + Private _addrZip As String + + Private _addrTin As String + + Private _addrVatId As String + + Private _addrEori As String + + Private _addrNatT As String + + Private _branchNo As String + + Private _addrKvb As String + + Private _contactPerson As TContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New TContactPerson() + Me._addrName = New List(Of String)() + End Sub + + Public Property addrNo() As String + Get + Return Me._addrNo + End Get + Set + Me._addrNo = Value + End Set + End Property + + + Public Property addrName() As List(Of String) + Get + Return Me._addrName + End Get + Set + Me._addrName = Value + End Set + End Property + + Public Property addrStreet() As String + Get + Return Me._addrStreet + End Get + Set + Me._addrStreet = Value + End Set + End Property + + Public Property addrLoc() As String + Get + Return Me._addrLoc + End Get + Set + Me._addrLoc = Value + End Set + End Property + + Public Property addrCtry() As String + Get + Return Me._addrCtry + End Get + Set + Me._addrCtry = Value + End Set + End Property + + Public Property addrState() As String + Get + Return Me._addrState + End Get + Set + Me._addrState = Value + End Set + End Property + + Public Property addrZip() As String + Get + Return Me._addrZip + End Get + Set + Me._addrZip = Value + End Set + End Property + + Public Property addrTin() As String + Get + Return Me._addrTin + End Get + Set + Me._addrTin = Value + End Set + End Property + + Public Property addrVatId() As String + Get + Return Me._addrVatId + End Get + Set + Me._addrVatId = Value + End Set + End Property + + Public Property addrEori() As String + Get + Return Me._addrEori + End Get + Set + Me._addrEori = Value + End Set + End Property + + Public Property addrNatT() As String + Get + Return Me._addrNatT + End Get + Set + Me._addrNatT = Value + End Set + End Property + + Public Property branchNo() As String + Get + Return Me._branchNo + End Get + Set + Me._branchNo = Value + End Set + End Property + + Public Property addrKvb() As String + Get + Return Me._addrKvb + End Get + Set + Me._addrKvb = Value + End Set + End Property + + Public Property contactPerson() As TContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAddress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAddress object + ''' + ''' string workflow markup to deserialize + ''' Output TAddress 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 TAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAddress) + 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 TAddress) 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 TAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAddress + Return CType(Serializer.Deserialize(s), TAddress) + End Function +#End Region + + ''' + ''' Serializes current TAddress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAddress object + ''' + ''' string xml file to load and deserialize + ''' Output TAddress 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 TAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAddress) + 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 TAddress) 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 TAddress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TContactPerson + +#Region "Private fields" + Private _job As String + + Private _name As String + + Private _email As String + + Private _phone As String + + Private _fax As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property job() As String + Get + Return Me._job + End Get + Set + Me._job = 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 email() As String + Get + Return Me._email + End Get + Set + Me._email = Value + End Set + End Property + + Public Property phone() As String + Get + Return Me._phone + End Get + Set + Me._phone = Value + End Set + End Property + + Public Property fax() As String + Get + Return Me._fax + End Get + Set + Me._fax = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TContactPerson object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output TContactPerson 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 TContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TContactPerson) + 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 TContactPerson) 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 TContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TContactPerson + Return CType(Serializer.Deserialize(s), TContactPerson) + End Function +#End Region + + ''' + ''' Serializes current TContactPerson 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output TContactPerson 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 TContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TContactPerson) + 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 TContactPerson) 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 TContactPerson + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomsOffice + +#Region "Private fields" + Private _codeOff As String + + Private _offCtry As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property codeOff() As String + Get + Return Me._codeOff + End Get + Set + Me._codeOff = Value + End Set + End Property + + Public Property offCtry() As String + Get + Return Me._offCtry + End Get + Set + Me._offCtry = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomsOffice object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomsOffice 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 TCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomsOffice) + 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 TCustomsOffice) 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 TCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomsOffice + Return CType(Serializer.Deserialize(s), TCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current TCustomsOffice 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomsOffice 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 TCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomsOffice) + 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 TCustomsOffice) 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 TCustomsOffice + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TMotInl + +#Region "Private fields" + Private _mot As String + + Private _nat As String + + Private _type As String + + Private _licNo As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property mot() As String + Get + Return Me._mot + End Get + Set + Me._mot = Value + End Set + End Property + + Public Property nat() As String + Get + Return Me._nat + End Get + Set + Me._nat = 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 licNo() As String + Get + Return Me._licNo + End Get + Set + Me._licNo = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TMotInl)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TMotInl object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TMotInl object + ''' + ''' string workflow markup to deserialize + ''' Output TMotInl 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 TMotInl, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMotInl) + 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 TMotInl) 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 TMotInl + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TMotInl) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TMotInl + Return CType(Serializer.Deserialize(s), TMotInl) + End Function +#End Region + + ''' + ''' Serializes current TMotInl 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TMotInl object + ''' + ''' string xml file to load and deserialize + ''' Output TMotInl 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 TMotInl, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMotInl) + 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 TMotInl) 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 TMotInl + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TMot + +#Region "Private fields" + Private _mot As String + + Private _nat As String + + Private _type As String + + Private _licNo As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property mot() As String + Get + Return Me._mot + End Get + Set + Me._mot = Value + End Set + End Property + + Public Property nat() As String + Get + Return Me._nat + End Get + Set + Me._nat = 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 licNo() As String + Get + Return Me._licNo + End Get + Set + Me._licNo = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TMot)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TMot object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TMot object + ''' + ''' string workflow markup to deserialize + ''' Output TMot 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 TMot, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMot) + 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 TMot) 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 TMot + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TMot) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TMot + Return CType(Serializer.Deserialize(s), TMot) + End Function +#End Region + + ''' + ''' Serializes current TMot 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TMot object + ''' + ''' string xml file to load and deserialize + ''' Output TMot 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 TMot, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMot) + 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 TMot) 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 TMot + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TFreight + +#Region "Private fields" + Private _flag As String + + Private _amount As Decimal + + Private _curr As String + + Private _noneu As Decimal + + Private _eunat As Decimal + + Private _nat As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property flag() As String + Get + Return Me._flag + End Get + Set + Me._flag = Value + End Set + End Property + + Public Property amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Public Property curr() As String + Get + Return Me._curr + End Get + Set + Me._curr = Value + End Set + End Property + + Public Property noneu() As Decimal + Get + Return Me._noneu + End Get + Set + Me._noneu = Value + End Set + End Property + + Public Property eunat() As Decimal + Get + Return Me._eunat + End Get + Set + Me._eunat = Value + End Set + End Property + + Public Property nat() As Decimal + Get + Return Me._nat + End Get + Set + Me._nat = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TFreight)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TFreight object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TFreight object + ''' + ''' string workflow markup to deserialize + ''' Output TFreight 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 TFreight, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TFreight) + 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 TFreight) 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 TFreight + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TFreight) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TFreight + Return CType(Serializer.Deserialize(s), TFreight) + End Function +#End Region + + ''' + ''' Serializes current TFreight 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TFreight object + ''' + ''' string xml file to load and deserialize + ''' Output TFreight 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 TFreight, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TFreight) + 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 TFreight) 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 TFreight + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAssurance + +#Region "Private fields" + Private _flag As String + + Private _amount As Decimal + + Private _curr As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property flag() As String + Get + Return Me._flag + End Get + Set + Me._flag = Value + End Set + End Property + + Public Property amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Public Property curr() As String + Get + Return Me._curr + End Get + Set + Me._curr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAssurance)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAssurance object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAssurance object + ''' + ''' string workflow markup to deserialize + ''' Output TAssurance 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 TAssurance, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAssurance) + 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 TAssurance) 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 TAssurance + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAssurance) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAssurance + Return CType(Serializer.Deserialize(s), TAssurance) + End Function +#End Region + + ''' + ''' Serializes current TAssurance 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAssurance object + ''' + ''' string xml file to load and deserialize + ''' Output TAssurance 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 TAssurance, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAssurance) + 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 TAssurance) 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 TAssurance + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAddCosts + +#Region "Private fields" + Private _type As String + + Private _flag As TAddCostsFlag + + Private _amount As Decimal + + Private _curr As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property flag() As TAddCostsFlag + Get + Return Me._flag + End Get + Set + Me._flag = Value + End Set + End Property + + Public Property amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Public Property curr() As String + Get + Return Me._curr + End Get + Set + Me._curr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAddCosts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAddCosts object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAddCosts object + ''' + ''' string workflow markup to deserialize + ''' Output TAddCosts 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 TAddCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAddCosts) + 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 TAddCosts) 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 TAddCosts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAddCosts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAddCosts + Return CType(Serializer.Deserialize(s), TAddCosts) + End Function +#End Region + + ''' + ''' Serializes current TAddCosts 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAddCosts object + ''' + ''' string xml file to load and deserialize + ''' Output TAddCosts 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 TAddCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAddCosts) + 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 TAddCosts) 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 TAddCosts + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAddCostsFlag + + ''' + P + + ''' + V + End Enum + + + Partial Public Class TAddCostsShipment + +#Region "Private fields" + Private _curr As String + + Private _amount As Decimal + + Private _flag As TAddCostsShipmentFlag + + Private _type As String + + Private _splitFlag As AddCostsSplitType + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property curr() As String + Get + Return Me._curr + End Get + Set + Me._curr = Value + End Set + End Property + + Public Property amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Public Property flag() As TAddCostsShipmentFlag + Get + Return Me._flag + End Get + Set + Me._flag = 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 splitFlag() As AddCostsSplitType + Get + Return Me._splitFlag + End Get + Set + Me._splitFlag = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAddCostsShipment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAddCostsShipment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAddCostsShipment object + ''' + ''' string workflow markup to deserialize + ''' Output TAddCostsShipment 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 TAddCostsShipment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAddCostsShipment) + 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 TAddCostsShipment) 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 TAddCostsShipment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAddCostsShipment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAddCostsShipment + Return CType(Serializer.Deserialize(s), TAddCostsShipment) + End Function +#End Region + + ''' + ''' Serializes current TAddCostsShipment 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAddCostsShipment object + ''' + ''' string xml file to load and deserialize + ''' Output TAddCostsShipment 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 TAddCostsShipment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAddCostsShipment) + 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 TAddCostsShipment) 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 TAddCostsShipment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAddCostsShipmentFlag + + ''' + P + + ''' + V + End Enum + + + Partial Public Class TDelTerm + +#Region "Private fields" + Private _code As String + + Private _desc As String + + Private _code2 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + Public Property desc() As String + Get + Return Me._desc + End Get + Set + Me._desc = Value + End Set + End Property + + Public Property code2() As String + Get + Return Me._code2 + End Get + Set + Me._code2 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDelTerm)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDelTerm object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDelTerm object + ''' + ''' string workflow markup to deserialize + ''' Output TDelTerm 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 TDelTerm, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDelTerm) + 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 TDelTerm) 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 TDelTerm + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDelTerm) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDelTerm + Return CType(Serializer.Deserialize(s), TDelTerm) + End Function +#End Region + + ''' + ''' Serializes current TDelTerm 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDelTerm object + ''' + ''' string xml file to load and deserialize + ''' Output TDelTerm 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 TDelTerm, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDelTerm) + 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 TDelTerm) 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 TDelTerm + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDelNote + +#Region "Private fields" + Private _delNo As String + + Private _position As Long + + Private _delDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property delNo() As String + Get + Return Me._delNo + End Get + Set + Me._delNo = Value + End Set + End Property + + Public Property position() As Long + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property delDate() As Date + Get + Return Me._delDate + End Get + Set + Me._delDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDelNote)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDelNote object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDelNote object + ''' + ''' string workflow markup to deserialize + ''' Output TDelNote 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 TDelNote, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDelNote) + 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 TDelNote) 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 TDelNote + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDelNote) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDelNote + Return CType(Serializer.Deserialize(s), TDelNote) + End Function +#End Region + + ''' + ''' Serializes current TDelNote 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDelNote object + ''' + ''' string xml file to load and deserialize + ''' Output TDelNote 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 TDelNote, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDelNote) + 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 TDelNote) 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 TDelNote + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TOrder + +#Region "Private fields" + Private _ordNo As String + + Private _ordDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property ordNo() As String + Get + Return Me._ordNo + End Get + Set + Me._ordNo = Value + End Set + End Property + + + Public Property ordDate() As Date + Get + Return Me._ordDate + End Get + Set + Me._ordDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TOrder)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TOrder object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TOrder object + ''' + ''' string workflow markup to deserialize + ''' Output TOrder 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 TOrder, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TOrder) + 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 TOrder) 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 TOrder + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TOrder) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TOrder + Return CType(Serializer.Deserialize(s), TOrder) + End Function +#End Region + + ''' + ''' Serializes current TOrder 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TOrder object + ''' + ''' string xml file to load and deserialize + ''' Output TOrder 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 TOrder, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TOrder) + 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 TOrder) 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 TOrder + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TBomNo + +#Region "Private fields" + Private _no As String + + Private _var As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property no() As String + Get + Return Me._no + End Get + Set + Me._no = Value + End Set + End Property + + Public Property var() As String + Get + Return Me._var + End Get + Set + Me._var = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TBomNo)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TBomNo object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TBomNo object + ''' + ''' string workflow markup to deserialize + ''' Output TBomNo 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 TBomNo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TBomNo) + 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 TBomNo) 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 TBomNo + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TBomNo) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TBomNo + Return CType(Serializer.Deserialize(s), TBomNo) + End Function +#End Region + + ''' + ''' Serializes current TBomNo 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TBomNo object + ''' + ''' string xml file to load and deserialize + ''' Output TBomNo 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 TBomNo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TBomNo) + 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 TBomNo) 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 TBomNo + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAttribute + +#Region "Private fields" + Private _attribType As String + + Private _attribText As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property attribType() As String + Get + Return Me._attribType + End Get + Set + Me._attribType = Value + End Set + End Property + + Public Property attribText() As String + Get + Return Me._attribText + End Get + Set + Me._attribText = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAttribute)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAttribute object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAttribute object + ''' + ''' string workflow markup to deserialize + ''' Output TAttribute 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 TAttribute, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAttribute) + 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 TAttribute) 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 TAttribute + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAttribute) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAttribute + Return CType(Serializer.Deserialize(s), TAttribute) + End Function +#End Region + + ''' + ''' Serializes current TAttribute 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAttribute object + ''' + ''' string xml file to load and deserialize + ''' Output TAttribute 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 TAttribute, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAttribute) + 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 TAttribute) 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 TAttribute + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPartner + +#Region "Private fields" + Private _partnerTyp As String + + Private _partnerAddress As TPartnerPartnerAddress + + Private _partnerRelation As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._partnerAddress = New TPartnerPartnerAddress() + End Sub + + Public Property partnerTyp() As String + Get + Return Me._partnerTyp + End Get + Set + Me._partnerTyp = Value + End Set + End Property + + Public Property partnerAddress() As TPartnerPartnerAddress + Get + Return Me._partnerAddress + End Get + Set + Me._partnerAddress = Value + End Set + End Property + + Public Property partnerRelation() As String + Get + Return Me._partnerRelation + End Get + Set + Me._partnerRelation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPartner)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPartner object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPartner object + ''' + ''' string workflow markup to deserialize + ''' Output TPartner 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 TPartner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPartner) + 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 TPartner) 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 TPartner + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPartner) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPartner + Return CType(Serializer.Deserialize(s), TPartner) + End Function +#End Region + + ''' + ''' Serializes current TPartner 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPartner object + ''' + ''' string xml file to load and deserialize + ''' Output TPartner 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 TPartner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPartner) + 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 TPartner) 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 TPartner + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPartnerPartnerAddress + +#Region "Private fields" + Private _addrNo As String + + Private _addrNoType As String + + Private _addrName As List(Of String) + + Private _addrStreet As String + + Private _addrStreet2 As String + + Private _addrLoc As String + + Private _addrCtry As String + + Private _addrState As String + + Private _addrZip As String + + Private _addrTin As String + + Private _addrEori As String + + Private _addrNatT As String + + Private _branchNo As String + + Private _addrKvb As String + + Private _addrInfo As String + + Private _contactPerson As TContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New TContactPerson() + Me._addrName = New List(Of String)() + End Sub + + Public Property addrNo() As String + Get + Return Me._addrNo + End Get + Set + Me._addrNo = Value + End Set + End Property + + Public Property addrNoType() As String + Get + Return Me._addrNoType + End Get + Set + Me._addrNoType = Value + End Set + End Property + + + Public Property addrName() As List(Of String) + Get + Return Me._addrName + End Get + Set + Me._addrName = Value + End Set + End Property + + Public Property addrStreet() As String + Get + Return Me._addrStreet + End Get + Set + Me._addrStreet = Value + End Set + End Property + + Public Property addrStreet2() As String + Get + Return Me._addrStreet2 + End Get + Set + Me._addrStreet2 = Value + End Set + End Property + + Public Property addrLoc() As String + Get + Return Me._addrLoc + End Get + Set + Me._addrLoc = Value + End Set + End Property + + Public Property addrCtry() As String + Get + Return Me._addrCtry + End Get + Set + Me._addrCtry = Value + End Set + End Property + + Public Property addrState() As String + Get + Return Me._addrState + End Get + Set + Me._addrState = Value + End Set + End Property + + Public Property addrZip() As String + Get + Return Me._addrZip + End Get + Set + Me._addrZip = Value + End Set + End Property + + Public Property addrTin() As String + Get + Return Me._addrTin + End Get + Set + Me._addrTin = Value + End Set + End Property + + Public Property addrEori() As String + Get + Return Me._addrEori + End Get + Set + Me._addrEori = Value + End Set + End Property + + Public Property addrNatT() As String + Get + Return Me._addrNatT + End Get + Set + Me._addrNatT = Value + End Set + End Property + + Public Property branchNo() As String + Get + Return Me._branchNo + End Get + Set + Me._branchNo = Value + End Set + End Property + + Public Property addrKvb() As String + Get + Return Me._addrKvb + End Get + Set + Me._addrKvb = Value + End Set + End Property + + Public Property addrInfo() As String + Get + Return Me._addrInfo + End Get + Set + Me._addrInfo = Value + End Set + End Property + + Public Property contactPerson() As TContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPartnerPartnerAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPartnerPartnerAddress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPartnerPartnerAddress object + ''' + ''' string workflow markup to deserialize + ''' Output TPartnerPartnerAddress 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 TPartnerPartnerAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPartnerPartnerAddress) + 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 TPartnerPartnerAddress) 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 TPartnerPartnerAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPartnerPartnerAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPartnerPartnerAddress + Return CType(Serializer.Deserialize(s), TPartnerPartnerAddress) + End Function +#End Region + + ''' + ''' Serializes current TPartnerPartnerAddress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPartnerPartnerAddress object + ''' + ''' string xml file to load and deserialize + ''' Output TPartnerPartnerAddress 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 TPartnerPartnerAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPartnerPartnerAddress) + 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 TPartnerPartnerAddress) 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 TPartnerPartnerAddress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDeclType + +#Region "Private fields" + Private _type1 As String + + Private _type2 As String + + Private _type3 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property type1() As String + Get + Return Me._type1 + End Get + Set + Me._type1 = Value + End Set + End Property + + Public Property type2() As String + Get + Return Me._type2 + End Get + Set + Me._type2 = Value + End Set + End Property + + Public Property type3() As String + Get + Return Me._type3 + End Get + Set + Me._type3 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDeclType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDeclType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDeclType object + ''' + ''' string workflow markup to deserialize + ''' Output TDeclType 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 TDeclType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDeclType) + 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 TDeclType) 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 TDeclType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDeclType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDeclType + Return CType(Serializer.Deserialize(s), TDeclType) + End Function +#End Region + + ''' + ''' Serializes current TDeclType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDeclType object + ''' + ''' string xml file to load and deserialize + ''' Output TDeclType 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 TDeclType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDeclType) + 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 TDeclType) 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 TDeclType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TLocationOfGoods + +#Region "Private fields" + Private _code As String + + Private _street As String + + Private _zip As String + + Private _loc As String + + Private _addit As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + Public Property street() As String + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Public Property zip() As String + Get + Return Me._zip + End Get + Set + Me._zip = Value + End Set + End Property + + Public Property loc() As String + Get + Return Me._loc + End Get + Set + Me._loc = Value + End Set + End Property + + Public Property addit() As String + Get + Return Me._addit + End Get + Set + Me._addit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TLocationOfGoods)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TLocationOfGoods object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TLocationOfGoods object + ''' + ''' string workflow markup to deserialize + ''' Output TLocationOfGoods 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 TLocationOfGoods, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TLocationOfGoods) + 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 TLocationOfGoods) 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 TLocationOfGoods + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TLocationOfGoods) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TLocationOfGoods + Return CType(Serializer.Deserialize(s), TLocationOfGoods) + End Function +#End Region + + ''' + ''' Serializes current TLocationOfGoods 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TLocationOfGoods object + ''' + ''' string xml file to load and deserialize + ''' Output TLocationOfGoods 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 TLocationOfGoods, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TLocationOfGoods) + 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 TLocationOfGoods) 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 TLocationOfGoods + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TImportQuantity + +#Region "Private fields" + Private _qualifier As String + + Private _unit As String + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Public Property unit() As String + Get + Return Me._unit + End Get + Set + Me._unit = Value + End Set + End Property + + Public Property value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TImportQuantity)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TImportQuantity object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TImportQuantity object + ''' + ''' string workflow markup to deserialize + ''' Output TImportQuantity 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 TImportQuantity, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TImportQuantity) + 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 TImportQuantity) 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 TImportQuantity + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TImportQuantity) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TImportQuantity + Return CType(Serializer.Deserialize(s), TImportQuantity) + End Function +#End Region + + ''' + ''' Serializes current TImportQuantity 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TImportQuantity object + ''' + ''' string xml file to load and deserialize + ''' Output TImportQuantity 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 TImportQuantity, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TImportQuantity) + 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 TImportQuantity) 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 TImportQuantity + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TImportReference + +#Region "Private fields" + Private _type As String + + Private _authNr As String + + Private _impShpNr As String + + Private _lineNo As String + + Private _authRegistryNo As String + + Private _commCode As String + + Private _usualTreatment As String + + Private _importAtlas As String + + Private _addInfo As String + + Private _quantity As TImportQuantity + + Private _tradeQuantity As TImportQuantity + + Private _packageQuantity As Decimal + + Private _netMass As Decimal + + Private _grossMass As Decimal + + Private _statisticalQuantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._tradeQuantity = New TImportQuantity() + Me._quantity = New TImportQuantity() + End Sub + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property authNr() As String + Get + Return Me._authNr + End Get + Set + Me._authNr = Value + End Set + End Property + + Public Property impShpNr() As String + Get + Return Me._impShpNr + End Get + Set + Me._impShpNr = Value + End Set + End Property + + + Public Property lineNo() As String + Get + Return Me._lineNo + End Get + Set + Me._lineNo = Value + End Set + End Property + + Public Property authRegistryNo() As String + Get + Return Me._authRegistryNo + End Get + Set + Me._authRegistryNo = Value + End Set + End Property + + Public Property commCode() As String + Get + Return Me._commCode + End Get + Set + Me._commCode = Value + End Set + End Property + + Public Property usualTreatment() As String + Get + Return Me._usualTreatment + End Get + Set + Me._usualTreatment = Value + End Set + End Property + + Public Property importAtlas() As String + Get + Return Me._importAtlas + End Get + Set + Me._importAtlas = Value + End Set + End Property + + Public Property addInfo() As String + Get + Return Me._addInfo + End Get + Set + Me._addInfo = Value + End Set + End Property + + Public Property quantity() As TImportQuantity + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property tradeQuantity() As TImportQuantity + Get + Return Me._tradeQuantity + End Get + Set + Me._tradeQuantity = Value + End Set + End Property + + Public Property packageQuantity() As Decimal + Get + Return Me._packageQuantity + End Get + Set + Me._packageQuantity = 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 grossMass() As Decimal + Get + Return Me._grossMass + End Get + Set + Me._grossMass = Value + End Set + End Property + + Public Property statisticalQuantity() As Decimal + Get + Return Me._statisticalQuantity + End Get + Set + Me._statisticalQuantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TImportReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TImportReference object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TImportReference object + ''' + ''' string workflow markup to deserialize + ''' Output TImportReference 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 TImportReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TImportReference) + 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 TImportReference) 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 TImportReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TImportReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TImportReference + Return CType(Serializer.Deserialize(s), TImportReference) + End Function +#End Region + + ''' + ''' Serializes current TImportReference 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TImportReference object + ''' + ''' string xml file to load and deserialize + ''' Output TImportReference 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 TImportReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TImportReference) + 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 TImportReference) 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 TImportReference + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRoute + +#Region "Private fields" + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRoute)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRoute object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRoute object + ''' + ''' string workflow markup to deserialize + ''' Output TRoute 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 TRoute, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRoute) + 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 TRoute) 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 TRoute + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRoute) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRoute + Return CType(Serializer.Deserialize(s), TRoute) + End Function +#End Region + + ''' + ''' Serializes current TRoute 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRoute object + ''' + ''' string xml file to load and deserialize + ''' Output TRoute 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 TRoute, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRoute) + 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 TRoute) 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 TRoute + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TMotArrivalDispatch + +#Region "Private fields" + Private _mot As String + + Private _nat As String + + Private _licNo As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property mot() As String + Get + Return Me._mot + End Get + Set + Me._mot = Value + End Set + End Property + + Public Property nat() As String + Get + Return Me._nat + End Get + Set + Me._nat = Value + End Set + End Property + + Public Property licNo() As String + Get + Return Me._licNo + End Get + Set + Me._licNo = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TMotArrivalDispatch)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TMotArrivalDispatch object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TMotArrivalDispatch object + ''' + ''' string workflow markup to deserialize + ''' Output TMotArrivalDispatch 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 TMotArrivalDispatch, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMotArrivalDispatch) + 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 TMotArrivalDispatch) 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 TMotArrivalDispatch + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TMotArrivalDispatch) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TMotArrivalDispatch + Return CType(Serializer.Deserialize(s), TMotArrivalDispatch) + End Function +#End Region + + ''' + ''' Serializes current TMotArrivalDispatch 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TMotArrivalDispatch object + ''' + ''' string xml file to load and deserialize + ''' Output TMotArrivalDispatch 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 TMotArrivalDispatch, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMotArrivalDispatch) + 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 TMotArrivalDispatch) 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 TMotArrivalDispatch + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDelTermArrival + +#Region "Private fields" + Private _code As String + + Private _code2 As String + + Private _desc As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + Public Property code2() As String + Get + Return Me._code2 + End Get + Set + Me._code2 = Value + End Set + End Property + + Public Property desc() As String + Get + Return Me._desc + End Get + Set + Me._desc = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDelTermArrival)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDelTermArrival object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDelTermArrival object + ''' + ''' string workflow markup to deserialize + ''' Output TDelTermArrival 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 TDelTermArrival, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDelTermArrival) + 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 TDelTermArrival) 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 TDelTermArrival + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDelTermArrival) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDelTermArrival + Return CType(Serializer.Deserialize(s), TDelTermArrival) + End Function +#End Region + + ''' + ''' Serializes current TDelTermArrival 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDelTermArrival object + ''' + ''' string xml file to load and deserialize + ''' Output TDelTermArrival 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 TDelTermArrival, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDelTermArrival) + 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 TDelTermArrival) 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 TDelTermArrival + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TItemNdp + +#Region "Private fields" + Private _partNumber As String + + Private _partDescription As String + + Private _prodGr As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property partNumber() As String + Get + Return Me._partNumber + End Get + Set + Me._partNumber = Value + End Set + End Property + + Public Property partDescription() As String + Get + Return Me._partDescription + End Get + Set + Me._partDescription = Value + End Set + End Property + + Public Property prodGr() As String + Get + Return Me._prodGr + End Get + Set + Me._prodGr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TItemNdp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TItemNdp object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TItemNdp object + ''' + ''' string workflow markup to deserialize + ''' Output TItemNdp 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 TItemNdp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TItemNdp) + 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 TItemNdp) 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 TItemNdp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TItemNdp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TItemNdp + Return CType(Serializer.Deserialize(s), TItemNdp) + End Function +#End Region + + ''' + ''' Serializes current TItemNdp 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TItemNdp object + ''' + ''' string xml file to load and deserialize + ''' Output TItemNdp 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 TItemNdp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TItemNdp) + 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 TItemNdp) 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 TItemNdp + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TLicenseArrival + +#Region "Private fields" + Private _licenseNo As String + + Private _licenseDate As Date + + Private _licenseNotRequired As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property licenseNo() As String + Get + Return Me._licenseNo + End Get + Set + Me._licenseNo = Value + End Set + End Property + + + Public Property licenseDate() As Date + Get + Return Me._licenseDate + End Get + Set + Me._licenseDate = Value + End Set + End Property + + Public Property licenseNotRequired() As String + Get + Return Me._licenseNotRequired + End Get + Set + Me._licenseNotRequired = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TLicenseArrival)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TLicenseArrival object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TLicenseArrival object + ''' + ''' string workflow markup to deserialize + ''' Output TLicenseArrival 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 TLicenseArrival, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TLicenseArrival) + 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 TLicenseArrival) 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 TLicenseArrival + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TLicenseArrival) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TLicenseArrival + Return CType(Serializer.Deserialize(s), TLicenseArrival) + End Function +#End Region + + ''' + ''' Serializes current TLicenseArrival 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TLicenseArrival object + ''' + ''' string xml file to load and deserialize + ''' Output TLicenseArrival 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 TLicenseArrival, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TLicenseArrival) + 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 TLicenseArrival) 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 TLicenseArrival + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TTariffCode + +#Region "Private fields" + Private _hsCode As String + + Private _vatCode As String + + Private _exciseTaxCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property hsCode() As String + Get + Return Me._hsCode + End Get + Set + Me._hsCode = Value + End Set + End Property + + Public Property vatCode() As String + Get + Return Me._vatCode + End Get + Set + Me._vatCode = Value + End Set + End Property + + Public Property exciseTaxCode() As String + Get + Return Me._exciseTaxCode + End Get + Set + Me._exciseTaxCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TTariffCode)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TTariffCode object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TTariffCode object + ''' + ''' string workflow markup to deserialize + ''' Output TTariffCode 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 TTariffCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TTariffCode) + 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 TTariffCode) 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 TTariffCode + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TTariffCode) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TTariffCode + Return CType(Serializer.Deserialize(s), TTariffCode) + End Function +#End Region + + ''' + ''' Serializes current TTariffCode 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TTariffCode object + ''' + ''' string xml file to load and deserialize + ''' Output TTariffCode 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 TTariffCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TTariffCode) + 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 TTariffCode) 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 TTariffCode + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDocumentArrival + +#Region "Private fields" + Private _docType As String + + Private _docNo As String + + Private _docDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property docType() As String + Get + Return Me._docType + End Get + Set + Me._docType = Value + End Set + End Property + + Public Property docNo() As String + Get + Return Me._docNo + End Get + Set + Me._docNo = Value + End Set + End Property + + + Public Property docDate() As Date + Get + Return Me._docDate + End Get + Set + Me._docDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDocumentArrival)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDocumentArrival object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDocumentArrival object + ''' + ''' string workflow markup to deserialize + ''' Output TDocumentArrival 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 TDocumentArrival, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDocumentArrival) + 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 TDocumentArrival) 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 TDocumentArrival + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDocumentArrival) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDocumentArrival + Return CType(Serializer.Deserialize(s), TDocumentArrival) + End Function +#End Region + + ''' + ''' Serializes current TDocumentArrival 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDocumentArrival object + ''' + ''' string xml file to load and deserialize + ''' Output TDocumentArrival 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 TDocumentArrival, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDocumentArrival) + 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 TDocumentArrival) 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 TDocumentArrival + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPackageArrival + +#Region "Private fields" + Private _packageCount As Integer + + Private _packageType As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property packageCount() As Integer + Get + Return Me._packageCount + End Get + Set + Me._packageCount = Value + End Set + End Property + + Public Property packageType() As String + Get + Return Me._packageType + End Get + Set + Me._packageType = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPackageArrival)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPackageArrival object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPackageArrival object + ''' + ''' string workflow markup to deserialize + ''' Output TPackageArrival 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 TPackageArrival, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPackageArrival) + 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 TPackageArrival) 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 TPackageArrival + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPackageArrival) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPackageArrival + Return CType(Serializer.Deserialize(s), TPackageArrival) + End Function +#End Region + + ''' + ''' Serializes current TPackageArrival 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPackageArrival object + ''' + ''' string xml file to load and deserialize + ''' Output TPackageArrival 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 TPackageArrival, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPackageArrival) + 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 TPackageArrival) 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 TPackageArrival + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAdditionalCodes + +#Region "Private fields" + Private _addCode1 As String + + Private _addCode2 As String + + Private _addCode3 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property addCode1() As String + Get + Return Me._addCode1 + End Get + Set + Me._addCode1 = Value + End Set + End Property + + Public Property addCode2() As String + Get + Return Me._addCode2 + End Get + Set + Me._addCode2 = Value + End Set + End Property + + Public Property addCode3() As String + Get + Return Me._addCode3 + End Get + Set + Me._addCode3 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAdditionalCodes)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAdditionalCodes object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAdditionalCodes object + ''' + ''' string workflow markup to deserialize + ''' Output TAdditionalCodes 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 TAdditionalCodes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAdditionalCodes) + 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 TAdditionalCodes) 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 TAdditionalCodes + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAdditionalCodes) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAdditionalCodes + Return CType(Serializer.Deserialize(s), TAdditionalCodes) + End Function +#End Region + + ''' + ''' Serializes current TAdditionalCodes 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAdditionalCodes object + ''' + ''' string xml file to load and deserialize + ''' Output TAdditionalCodes 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 TAdditionalCodes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAdditionalCodes) + 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 TAdditionalCodes) 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 TAdditionalCodes + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPrefDocumentArrival + +#Region "Private fields" + Private _prefType As String + + Private _prefNo As String + + Private _prefDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property prefType() As String + Get + Return Me._prefType + End Get + Set + Me._prefType = Value + End Set + End Property + + Public Property prefNo() As String + Get + Return Me._prefNo + End Get + Set + Me._prefNo = Value + End Set + End Property + + + Public Property prefDate() As Date + Get + Return Me._prefDate + End Get + Set + Me._prefDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPrefDocumentArrival)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPrefDocumentArrival object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPrefDocumentArrival object + ''' + ''' string workflow markup to deserialize + ''' Output TPrefDocumentArrival 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 TPrefDocumentArrival, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPrefDocumentArrival) + 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 TPrefDocumentArrival) 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 TPrefDocumentArrival + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPrefDocumentArrival) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPrefDocumentArrival + Return CType(Serializer.Deserialize(s), TPrefDocumentArrival) + End Function +#End Region + + ''' + ''' Serializes current TPrefDocumentArrival 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPrefDocumentArrival object + ''' + ''' string xml file to load and deserialize + ''' Output TPrefDocumentArrival 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 TPrefDocumentArrival, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPrefDocumentArrival) + 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 TPrefDocumentArrival) 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 TPrefDocumentArrival + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TOrderArrival + +#Region "Private fields" + Private _ordNo As String + + Private _ordLineNo As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property ordNo() As String + Get + Return Me._ordNo + End Get + Set + Me._ordNo = Value + End Set + End Property + + + Public Property ordLineNo() As String + Get + Return Me._ordLineNo + End Get + Set + Me._ordLineNo = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TOrderArrival)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TOrderArrival object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TOrderArrival object + ''' + ''' string workflow markup to deserialize + ''' Output TOrderArrival 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 TOrderArrival, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TOrderArrival) + 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 TOrderArrival) 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 TOrderArrival + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TOrderArrival) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TOrderArrival + Return CType(Serializer.Deserialize(s), TOrderArrival) + End Function +#End Region + + ''' + ''' Serializes current TOrderArrival 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TOrderArrival object + ''' + ''' string xml file to load and deserialize + ''' Output TOrderArrival 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 TOrderArrival, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TOrderArrival) + 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 TOrderArrival) 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 TOrderArrival + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInf + +#Region "Private fields" + Private _inf As String + + Private _infDutyAmount As Decimal + + Private _infDutyAmountCurr As String + + Private _infDutyBasis As Decimal + + Private _infDutyBet1 As Decimal + + Private _infInterestAmount As Decimal + + Private _infInterestAmountCurr As String + + Private _infEndUseAmount As Decimal + + Private _infEndUseAmountCurr As String + + Private _infDuty1Type As String + + Private _infDuty1Bet As Decimal + + Private _infDuty1Curr As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property inf() As String + Get + Return Me._inf + End Get + Set + Me._inf = Value + End Set + End Property + + Public Property infDutyAmount() As Decimal + Get + Return Me._infDutyAmount + End Get + Set + Me._infDutyAmount = Value + End Set + End Property + + Public Property infDutyAmountCurr() As String + Get + Return Me._infDutyAmountCurr + End Get + Set + Me._infDutyAmountCurr = Value + End Set + End Property + + Public Property infDutyBasis() As Decimal + Get + Return Me._infDutyBasis + End Get + Set + Me._infDutyBasis = Value + End Set + End Property + + Public Property infDutyBet1() As Decimal + Get + Return Me._infDutyBet1 + End Get + Set + Me._infDutyBet1 = Value + End Set + End Property + + Public Property infInterestAmount() As Decimal + Get + Return Me._infInterestAmount + End Get + Set + Me._infInterestAmount = Value + End Set + End Property + + Public Property infInterestAmountCurr() As String + Get + Return Me._infInterestAmountCurr + End Get + Set + Me._infInterestAmountCurr = Value + End Set + End Property + + Public Property infEndUseAmount() As Decimal + Get + Return Me._infEndUseAmount + End Get + Set + Me._infEndUseAmount = Value + End Set + End Property + + Public Property infEndUseAmountCurr() As String + Get + Return Me._infEndUseAmountCurr + End Get + Set + Me._infEndUseAmountCurr = Value + End Set + End Property + + Public Property infDuty1Type() As String + Get + Return Me._infDuty1Type + End Get + Set + Me._infDuty1Type = Value + End Set + End Property + + Public Property infDuty1Bet() As Decimal + Get + Return Me._infDuty1Bet + End Get + Set + Me._infDuty1Bet = Value + End Set + End Property + + Public Property infDuty1Curr() As String + Get + Return Me._infDuty1Curr + End Get + Set + Me._infDuty1Curr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInf)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInf object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInf object + ''' + ''' string workflow markup to deserialize + ''' Output TInf 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 TInf, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInf) + 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 TInf) 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 TInf + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInf) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInf + Return CType(Serializer.Deserialize(s), TInf) + End Function +#End Region + + ''' + ''' Serializes current TInf 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInf object + ''' + ''' string xml file to load and deserialize + ''' Output TInf 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 TInf, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInf) + 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 TInf) 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 TInf + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerFields + +#Region "Private fields" + Private _texts As List(Of TCustomerText) + + Private _dates As List(Of TCustomerDate) + + Private _flags As List(Of TCustomerFlag) + + Private _numbers As List(Of TCustomerNumber) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._numbers = New List(Of TCustomerNumber)() + Me._flags = New List(Of TCustomerFlag)() + Me._dates = New List(Of TCustomerDate)() + Me._texts = New List(Of TCustomerText)() + End Sub + + + Public Property texts() As List(Of TCustomerText) + Get + Return Me._texts + End Get + Set + Me._texts = Value + End Set + End Property + + + Public Property dates() As List(Of TCustomerDate) + Get + Return Me._dates + End Get + Set + Me._dates = Value + End Set + End Property + + + Public Property flags() As List(Of TCustomerFlag) + Get + Return Me._flags + End Get + Set + Me._flags = Value + End Set + End Property + + + Public Property numbers() As List(Of TCustomerNumber) + Get + Return Me._numbers + End Get + Set + Me._numbers = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerFields)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerFields object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerFields object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerFields 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 TCustomerFields, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerFields) + 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 TCustomerFields) 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 TCustomerFields + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerFields) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerFields + Return CType(Serializer.Deserialize(s), TCustomerFields) + End Function +#End Region + + ''' + ''' Serializes current TCustomerFields 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerFields object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerFields 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 TCustomerFields, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerFields) + 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 TCustomerFields) 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 TCustomerFields + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerText + +#Region "Private fields" + Private _key As Integer + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property key() As Integer + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + Public Property value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerText)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerText object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerText object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerText 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 TCustomerText, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerText) + 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 TCustomerText) 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 TCustomerText + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerText) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerText + Return CType(Serializer.Deserialize(s), TCustomerText) + End Function +#End Region + + ''' + ''' Serializes current TCustomerText 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerText object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerText 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 TCustomerText, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerText) + 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 TCustomerText) 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 TCustomerText + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerDate + +#Region "Private fields" + Private _key As Integer + + Private _value As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property key() As Integer + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + Public Property value() As Date + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerDate)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerDate object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerDate object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerDate 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 TCustomerDate, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerDate) + 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 TCustomerDate) 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 TCustomerDate + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerDate) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerDate + Return CType(Serializer.Deserialize(s), TCustomerDate) + End Function +#End Region + + ''' + ''' Serializes current TCustomerDate 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerDate object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerDate 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 TCustomerDate, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerDate) + 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 TCustomerDate) 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 TCustomerDate + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerFlag + +#Region "Private fields" + Private _key As Integer + + Private _value As Boolean + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property key() As Integer + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + Public Property value() As Boolean + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerFlag)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerFlag object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerFlag object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerFlag 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 TCustomerFlag, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerFlag) + 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 TCustomerFlag) 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 TCustomerFlag + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerFlag) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerFlag + Return CType(Serializer.Deserialize(s), TCustomerFlag) + End Function +#End Region + + ''' + ''' Serializes current TCustomerFlag 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerFlag object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerFlag 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 TCustomerFlag, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerFlag) + 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 TCustomerFlag) 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 TCustomerFlag + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerNumber + +#Region "Private fields" + Private _key As Integer + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property key() As Integer + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + Public Property value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerNumber)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerNumber object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerNumber object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerNumber 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 TCustomerNumber, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerNumber) + 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 TCustomerNumber) 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 TCustomerNumber + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerNumber) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerNumber + Return CType(Serializer.Deserialize(s), TCustomerNumber) + End Function +#End Region + + ''' + ''' Serializes current TCustomerNumber 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerNumber object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerNumber 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 TCustomerNumber, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerNumber) + 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 TCustomerNumber) 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 TCustomerNumber + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerTexts + +#Region "Private fields" + Private _text As List(Of TCustomerText) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._text = New List(Of TCustomerText)() + End Sub + + + Public Property text() As List(Of TCustomerText) + Get + Return Me._text + End Get + Set + Me._text = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerTexts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerTexts object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerTexts object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerTexts 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 TCustomerTexts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerTexts) + 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 TCustomerTexts) 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 TCustomerTexts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerTexts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerTexts + Return CType(Serializer.Deserialize(s), TCustomerTexts) + End Function +#End Region + + ''' + ''' Serializes current TCustomerTexts 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerTexts object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerTexts 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 TCustomerTexts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerTexts) + 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 TCustomerTexts) 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 TCustomerTexts + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerDates + +#Region "Private fields" + Private _date As List(Of TCustomerDate) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._date = New List(Of TCustomerDate)() + End Sub + + + Public Property [date]() As List(Of TCustomerDate) + Get + Return Me._date + End Get + Set + Me._date = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerDates)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerDates object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerDates object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerDates 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 TCustomerDates, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerDates) + 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 TCustomerDates) 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 TCustomerDates + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerDates) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerDates + Return CType(Serializer.Deserialize(s), TCustomerDates) + End Function +#End Region + + ''' + ''' Serializes current TCustomerDates 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerDates object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerDates 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 TCustomerDates, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerDates) + 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 TCustomerDates) 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 TCustomerDates + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerFlags + +#Region "Private fields" + Private _flag As List(Of TCustomerFlag) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._flag = New List(Of TCustomerFlag)() + End Sub + + + Public Property flag() As List(Of TCustomerFlag) + Get + Return Me._flag + End Get + Set + Me._flag = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerFlags)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerFlags object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerFlags object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerFlags 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 TCustomerFlags, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerFlags) + 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 TCustomerFlags) 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 TCustomerFlags + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerFlags) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerFlags + Return CType(Serializer.Deserialize(s), TCustomerFlags) + End Function +#End Region + + ''' + ''' Serializes current TCustomerFlags 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerFlags object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerFlags 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 TCustomerFlags, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerFlags) + 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 TCustomerFlags) 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 TCustomerFlags + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerNumbers + +#Region "Private fields" + Private _number As List(Of TCustomerNumber) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._number = New List(Of TCustomerNumber)() + End Sub + + + Public Property number() As List(Of TCustomerNumber) + Get + Return Me._number + End Get + Set + Me._number = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerNumbers)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerNumbers object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerNumbers object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerNumbers 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 TCustomerNumbers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerNumbers) + 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 TCustomerNumbers) 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 TCustomerNumbers + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerNumbers) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerNumbers + Return CType(Serializer.Deserialize(s), TCustomerNumbers) + End Function +#End Region + + ''' + ''' Serializes current TCustomerNumbers 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerNumbers object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerNumbers 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 TCustomerNumbers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerNumbers) + 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 TCustomerNumbers) 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 TCustomerNumbers + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TErpShipmentData + +#Region "Private fields" + Private _erpSystemId As String + + Private _client As String + + Private _companyCode As String + + Private _customerId As String + + Private _consolidationCompanyId As String + + Private _accountGroup As String + + Private _shippingPoint As String + + Private _loadingPoint As String + + Private _offshore As Boolean + + Private _route As String + + Private _salesOrganization As String + + Private _distributionChannel As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property erpSystemId() As String + Get + Return Me._erpSystemId + End Get + Set + Me._erpSystemId = Value + End Set + End Property + + Public Property client() As String + Get + Return Me._client + End Get + Set + Me._client = Value + End Set + End Property + + Public Property companyCode() As String + Get + Return Me._companyCode + End Get + Set + Me._companyCode = Value + End Set + End Property + + Public Property customerId() As String + Get + Return Me._customerId + End Get + Set + Me._customerId = Value + End Set + End Property + + Public Property consolidationCompanyId() As String + Get + Return Me._consolidationCompanyId + End Get + Set + Me._consolidationCompanyId = Value + End Set + End Property + + Public Property accountGroup() As String + Get + Return Me._accountGroup + End Get + Set + Me._accountGroup = Value + End Set + End Property + + Public Property shippingPoint() As String + Get + Return Me._shippingPoint + End Get + Set + Me._shippingPoint = Value + End Set + End Property + + Public Property loadingPoint() As String + Get + Return Me._loadingPoint + End Get + Set + Me._loadingPoint = Value + End Set + End Property + + Public Property offshore() As Boolean + Get + Return Me._offshore + End Get + Set + Me._offshore = Value + End Set + End Property + + Public Property route() As String + Get + Return Me._route + End Get + Set + Me._route = Value + End Set + End Property + + Public Property salesOrganization() As String + Get + Return Me._salesOrganization + End Get + Set + Me._salesOrganization = Value + End Set + End Property + + Public Property distributionChannel() As String + Get + Return Me._distributionChannel + End Get + Set + Me._distributionChannel = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TErpShipmentData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TErpShipmentData object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TErpShipmentData object + ''' + ''' string workflow markup to deserialize + ''' Output TErpShipmentData 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 TErpShipmentData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TErpShipmentData) + 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 TErpShipmentData) 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 TErpShipmentData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TErpShipmentData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TErpShipmentData + Return CType(Serializer.Deserialize(s), TErpShipmentData) + End Function +#End Region + + ''' + ''' Serializes current TErpShipmentData 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TErpShipmentData object + ''' + ''' string xml file to load and deserialize + ''' Output TErpShipmentData 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 TErpShipmentData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TErpShipmentData) + 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 TErpShipmentData) 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 TErpShipmentData + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TErpLineData + +#Region "Private fields" + Private _legalRegulation As String + + Private _exportControlClass As String + + Private _embargo As String + + Private _licenseType As String + + Private _licenseNumber As String + + Private _profitCenter As String + + Private _vZTA As String + + Private _erpInvoicelinenumber As String + + Private _erpPartnumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property legalRegulation() As String + Get + Return Me._legalRegulation + End Get + Set + Me._legalRegulation = Value + End Set + End Property + + Public Property exportControlClass() As String + Get + Return Me._exportControlClass + End Get + Set + Me._exportControlClass = Value + End Set + End Property + + Public Property embargo() As String + Get + Return Me._embargo + End Get + Set + Me._embargo = Value + End Set + End Property + + Public Property licenseType() As String + Get + Return Me._licenseType + End Get + Set + Me._licenseType = Value + End Set + End Property + + Public Property licenseNumber() As String + Get + Return Me._licenseNumber + End Get + Set + Me._licenseNumber = Value + End Set + End Property + + Public Property profitCenter() As String + Get + Return Me._profitCenter + End Get + Set + Me._profitCenter = Value + End Set + End Property + + Public Property vZTA() As String + Get + Return Me._vZTA + End Get + Set + Me._vZTA = Value + End Set + End Property + + + Public Property erpInvoicelinenumber() As String + Get + Return Me._erpInvoicelinenumber + End Get + Set + Me._erpInvoicelinenumber = Value + End Set + End Property + + Public Property erpPartnumber() As String + Get + Return Me._erpPartnumber + End Get + Set + Me._erpPartnumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TErpLineData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TErpLineData object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TErpLineData object + ''' + ''' string workflow markup to deserialize + ''' Output TErpLineData 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 TErpLineData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TErpLineData) + 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 TErpLineData) 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 TErpLineData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TErpLineData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TErpLineData + Return CType(Serializer.Deserialize(s), TErpLineData) + End Function +#End Region + + ''' + ''' Serializes current TErpLineData 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TErpLineData object + ''' + ''' string xml file to load and deserialize + ''' Output TErpLineData 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 TErpLineData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TErpLineData) + 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 TErpLineData) 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 TErpLineData + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.xsd new file mode 100644 index 0000000..696acc0 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.xsd @@ -0,0 +1,3721 @@ + + + + + + item + + + + + + stock type + Artikelnummer + Stocktype of deduction + Wird eine Artikelnummer gemeldet, muss der Artikel auch in den Stammdaten angelegt sein. Ist dieser Artikelcode nicht vorhanden wird eine Fehlermeldung ausgegeben. + false + String1..30 + + MIC_ALL_AAVPOS + Aapartnr + MIC_AUSPOS + Afpartnr + + + + + + + + + + + + + + goods description + Warenbezeichnung + +Ref: EH-Pap Feld 31 + Detailed descriptions of the goods (Language: German) + Sprechende (deutsche) Artikelbeschreibung. + +Die Bezeichnung muss die zum Erkennen der Waren erforderlichen Angaben enthalten. Sie muss so genau sein, dass die Einreihung der Ware in das „Warenverzeichnis für die Außenhandelsstatistik“ möglich ist. Dieses Datenfeld muss ferner die für etwaige spezifische Regelungen (Verbrauchsteuern, Verbote und Beschränkungen für den Warenverkehr über die Grenze usw.) verlangten Angaben enthalten. +Bei Personenkraftwagen ist auch die Fahrgestell-Nummer (auch Fahrzeugidentifizierungsnummer - VIN [Vehicle Identification Number]) anzugeben. +Bei der Ausfuhr von Chemikalien empfiehlt es sich die CAS-Nummer [Chemical Abstract Service] anzugeben. Ist die CAS-Nummer nicht bekannt oder ist die Zuordnung zu einer CAS-Nummer nicht möglich, ist die Angabe entbehrlich + + + + false + String1..240 + + MIC_ALL_AAVPOS + Aapartbez + MIC_AUSPOS + Afpartbez + + + + + + + + + + + + + + stat. part number (8-digit) + stat. Warennummer(8-stellig) + CN8 +Need not be provided, if part number ist provided in field <item> and German tariff code is maintained for that item in MIC-CCS. + KN8 +Muß nicht angegeben werden, wenn die Artikelnummer im Feld <item> angegeben ist und in MIC-CUST der DE Taric dafür in MIC-CCS eingepflegt ist. + + + false + String1..13 + + MIC_ALL_AAVPOS + Aaptarnr + MIC_AUSPOS + Afptarnr + + + + + + + + + + + + + + product family + Produktgruppe + + + false + String10 + + MIC_ALL_AAVPOS + Aapprodgr + MIC_AUSPOS + Afpprodgr + + + + + + + + + + + + + + + address + + + + + + address number in MIC-CUST + Adressnummer in MIC-CUST + Only insert the adressnumber if it is stored in the MIC Masterdata. MIC Cust will validate the number while closing the shipment: is the number not known bei MIC Cust a Errormessage will occur. + Addressnummer nur dann befüllen, wenn die Adresse in den Stammdaten von MIC-Cust angelegt sind. MIC-Cust sucht diese Adresse beim Abschluss. Ist diese nicht vorhanden, wird eine Fehlermeldung ausgegeben. + true + String1..20 + + + ___nr + + ___nr + + + + + + + + + + + + name + Name + + + false + String1..40 + 0..4 + + ___nm1-4 + + ___nm1-4 + + + + + + + + + + + + Street and house number + Strasse und HausNr + + + false + String1..80 + + + ___str + + ___str + + + + + + + + + + + + City + Ort + + + false + String1..35 + + + ___ort + + ___ort + + + + + + + + + country + Land + + + false + String2 + + + ___ld + + ___ld + + + + + + + + + + + + + + region + Bundesland/Region + + + false + String1..10 + + + ___region + + ___region + + + + + + + + + zip code + PLZ + + + false + String1..10 + + + ___plz + + ___plz + + + + + + + + + + + + TIN + Zollnummer + + + false + String1..17 + + + ___tin + + ___tin + + + + + + + + + + + + VAT ID + Ust. ID + + + false + String1..20 + + + ___ust + + ___ust + + + + + + + + + + + + EORI + EORI + + + false + String1..17 + + + ___eori + + ___eori + + + + + + + + + + + + + + Alternative 3: National Tin indicator + Alternative 3: Indikator für Nationale Tin. + if "0" equals addrNatT + set Avpeori = addrTin +else + set Avptin = addrTin + Not used at the moment + true + String1 + + + + + + + + + + + + + + Branchnumber assigned to EORI + Laufende Nummer der Niederlassung + Relevant only if element <adrNatT> = "2" (EORI-number) + Die Angabe des Datenfeldes ist nur relevant wenn das Datenfeld <addrNatT> mit dem Wert „2“ (EORI) angegeben wird. + false + String4 + + + ___branchno + + ___branchno + + + + + + + + + + + + + + Related-company-indicator + Verbundenheitskennzeichen + + + false + String1 + + + ___kvb + + ___kvb + + + + + + + + + Contact Person + Ansprechpartner + + Kontaktdaten des beauftragten Sachbearbeiter + false + + 1 + MIC_CUST_AVPARTNER + + + + + + + + + + + + + customs office + + + + + + National number of customs office (6-digits). + Nationale Zollstellennummer (6 stellig). + + + + true + String1..6 + + + + + + 1234 + + + + + + + + + + Country code of the customs office + Länderkürzel der Zollstelle + + + true + String2 + + + + + + + + + + + + + + + + + mode of transport Inland + + + + + + Code for Mode of transport inland + Code Verkehrszweig im Inland. +Ref: EH-Pap. Feld 26 + LOV: +10=Sea transport +12=railway carriage on seagoing vessel +16=road vehicle on seagoing vessel +17=trailer/semi trailer on seagoing vessel +18=barge on seagoing vessel +20=Rail transport +23=road vehicle on railroad +30=Road transport +40=Air transport +50=Postal consignment +80=Inland waterway transport +90=own propulsion + LOV: (DE-Codeliste C0018) +10=Seeverkehr +12=Waggon auf Seeschiff +16=Straßenfahrzeug auf Seeschiff +17=Anhänger/Auflieger auf Seeschiff +18=Binnenschiff auf Seeschiff +20=Eisenbahnverkehr +23=Straßenfahrzeug auf Eisenbahn +30=Straßenverkehr +40=Luftverkehr +50=Postsendungen +80=Binnenschifffahrt +90=Eigener Antrieb + false + String1..2 + + MIC_AAVSDG + Aasvkzin + MIC_AUSSDG + Afsvkzin + + + + + + + + Nationality of active means of transport inland + Staatszugehörigkeit des Beförderungsmittels Inland + + + false + String 2 + + MIC_AAVSDG + Aasvkmld + MIC_AUSSDG + Afsvkmld + + + + + + + + + + + + false + String2 + + MIC_AAVSDG + + MIC_AUSSDG + + + + + + + + + Identity of active means of transport inland + Kennzeichen des grenzüberschreitenden aktiven Beförderungsmittels. + + + false + String1..30 + + MIC_AAVSDG + Aasvkmink + MIC_AUSSDG + Afsvkmink + + + + + + + + + mode of transport + + + + + + Code for Mode of transport of at the border + Code Verkehrszweig an der Grenze. +Ref: EH-Pap. Feld 25 + LOV: +10=Sea transport +12=railway carriage on seagoing vessel +16=road vehicle on seagoing vessel +17=trailer/semi trailer on seagoing vessel +18=barge on seagoing vessel +20=Rail transport +23=road vehicle on railroad +30=Road transport +40=Air transport +50=Postal consignment +80=Inland waterway transport +90=own propulsion + LOV: (DE-Codeliste C0018) +10=Seeverkehr +12=Waggon auf Seeschiff +16=Straßenfahrzeug auf Seeschiff +17=Anhänger/Auflieger auf Seeschiff +18=Binnenschiff auf Seeschiff +20=Eisenbahnverkehr +23=Straßenfahrzeug auf Eisenbahn +30=Straßenverkehr +40=Luftverkehr +50=Postsendungen +80=Binnenschifffahrt +90=Eigener Antrieb + + true + String1..2 + + MIC_AAVSDG + Aasvkzgr + MIC_AUSSDG + Afsvkzgr + MS-Schiff + + + + + + + Nationality of active means of transport crossing the border + Staatszugehörigkeit des Beförderungsmittels an der Grenze +Ref: EH-Pap. Feld 21.2 + Condition C1: +Value required for all means of transport at the boarder rail and own propulsion + +LOV: +ISO-Alpha-2 Country code +"QU" in case of country not known + + Bedingung C1: +Die Angabe des Datenfeldes ist immer erforderlich. +Ausnahme: Bei Beförderungen im Eisenbahnverkehr oder durch eigenen Antrieb entfällt die Angabe der Staatszugehörigkeit. + +Gültige Werte: +ISO-Alpha2 Ländercode, +"QU", falls Land nicht ermittelt werden kann + false + String2 + + MIC_AAVSDG + Aasvkmgrl + MIC_AUSSDG + Afsvkmgrl + + + + + + + + Mean Of Transport (z.B. LKW mit Auflieger) + Art des grenzüberschreitenden aktiven Beförderungsmittels +( lt. AES1.0 IHB Ref: EH-Pap. Feld 21.1, aber am EH-Pap nicht gefunden) + LOV: 10, 20, 31, …, 60: +10 sea +20 railroad +31 passenger car +32 passenger car with trailer +33 truck +34 truck with trailer +35 tractor with semitrailer +40 plane +50 inland waterway +60 own propulsion + LOV: (DE-Codeliste A0108) +10 Seeschiff +20 Waggon +31 Pkw +32 Pkw mit Anhänger +33 Lkw +34 Lkw mit Anhänger +35 Zugmaschine mit Auflieger +40 Flugzeug +50 Binnenschiff +60 Eigener Antrieb + true + String.2 + + MIC_AAVSDG + Aasvkzgrart + MIC_AUSSDG + Afsvkzgrart + R + + + + + + + Identity of active means of transport crossing the boarder + Kennzeichen des grenzüberschreitenden aktiven Beförderungsmittels. +Ref: EH-Pap. Feld 21.1 + Condition C1: +For sea transport (mot=10), the name of the ship must be declared. + Bedingung C1: +Bei Seeverkehr (mot=10) muss der Schniffsname angegeben werden. + false + String1..30 + + MIC_AAVSDG + Aasvkmgrk + MIC_AUSSDG + Afsvkmgrk + 1 + + + + + + + + freight costs + + + + + + flag + Frachtkostenkennzeichen + + + true + String1 + + MIC_AAVSDG + Aasfrakz + MIC_AUSSDG + Afsfrakz + + + + + + + + amount + Betrag + + + true + Number(17,2) + + MIC_AAVSDG + Aasfrawrt + MIC_AUSSDG + Afsfrawrt + + + + + + + + + + + + + currency + Währung der Frachtkosten + + + false + String1..3 + + MIC_AAVSDG + Aasfrawae + MIC_AUSSDG + Afsfrawae + + + + + + + + Non-EU propotion + Non-EU Anteil + + + false + Number(13,4) + + MIC_AAVSDG + Aasnoneu + MIC_AUSSDG + Afsnoneu + + + + + + + + EU propotion + EU Anteil + + + false + Number(13,4) + + MIC_AAVSDG + Aaseunat + MIC_AUSSDG + Afseunat + + + + + + + + National propotion + Nationaler Anteil + + + false + Number(13,4) + + MIC_AAVSDG + Aasnat + MIC_AUSSDG + Afsnat + + + + + + + + + assurance costs + + + + + + flag + Versicherungskennzeichen + + + true + String1 + + MIC_AAVSDG + Aasverskz + MIC_AUSSDG + Afsverskz + + + + + + + + amount + Versicherungsbetrag + + + true + Number(13,4) + + MIC_AAVSDG + Aasverswrt + MIC_AUSSDG + Afsverswrt + + + + + + + + currency + Währung + + + false + String1..3 + + MIC_AAVSDG + Aasverswae + MIC_AUSSDG + Afsverswae + + + + + + + + + additional costs + + + + + + type + Nebenkostentyp + + + true + String1..10 + + + ___abart1-2 + + ___abart1-2 + + + + + + + + + + + + + + + flag + Nebenkostenart + + + true + String1 + + + ___abkz1-2, ___kbk1-2flg + + ___abkz1-2, ___kbk1-2flg + + + + + + + + + + + + + + + + amount + Nebenkostenbetrag + + + true + Number(13,4) + + + ___abwrt1-2 + + ___abwrt1-2 + + + + + + + + + + Currency (ISO-Code) + Währung (ISO Code) + + + false + String1..3 + + + ____bk1-2Wae + + ____bk1-2Wae + + + + + + + + + + + + + + + + addtional costs on shipment level + + + + + currency + + + + + amount + + + + + flag + + + + + + + + + + + type of additional cost + + + + + flag of splitting + + + + + + + term of delivery + + + + + + Delivery term Incoterm + Lieferbedingung Incoterm + + + true + String 3 + + MIC_ALL_AAVKOP + Aakalicode + MIC_AUSKOP + Afkalicode + + + + + + + + + + + + + Place of delivery term + Lieferbedinung Ort + + + false + String0..35 + + MIC_ALL_AAVKOP + Aakalibez + MIC_AUSKOP + Afkalibez + + + + + + + + + + + + + Delivery term Incoterm Code2 + Lieferbedingung Incoterm Code2 + + + false + String 1 + + MIC_ALL_AAVKOP + Aakalicod2 + MIC_AUSKOP + Afkalicod2 + + + + + + + + + delivery note + + + + + + delivery note number + Lieferscheinnummer + + + true + String0..15 + + MIC_ALL_AAVPOS + Aaplsnr + MIC_AUSPOS + Afplsnr + + + + + + + + + + + + + delivery note position + Lieferscheinposition + + + false + xs:long + + MIC_ALL_AAVPOS + aaplsnrpos + MIC_AUSPOS + AFPLSNRPOS + + + + + + + + date of delivery note + Lieferscheindatum + + + false + Xs:date + + MIC_ALL_AAVPOS + Aaplsdat + MIC_AUSPOS + Afplsdat + + + + + + + + + order + + + + + + order number + Bestellnummer + + + true + String0..22 + + MIC_ALL_AAVPOS + Aapbsnr + MIC_AUSPOS + Afpbsnr + + + + + + + + + + + + + order date + Bestelldatum + + + true + Xs:date + + MIC_ALL_AAVPOS + Aapbsdat + MIC_AUSPOS + Afpbsdat + + + + + + + + + number bill of material + + + + + + Stücklistennr. + Stücklistennr. + + + true + String0..40 + + MIC_ALL_AAVPOS + Aapreznr + MIC_AUSPOS + Afpreznr + + + + + + + + + + + + + Variante + Variante + + + true + String0..10 + + MIC_ALL_AAVPOS + Aaprezvar + MIC_AUSPOS + Afprezvar + + + + + + + + + + + + + + additional attributes + + + + + + Attributtype + Attributtyp + + + true + String1..20 + + MIC_AVATTRIBUTE + Avatyp + MIC_ATTRIBUTE + Atrtyp + + + + + + + + + + + + + + + + + Attributtext + Attributtext + + + false + String1..20000 + + MIC_AVATTRIBUTE + Avatext + MIC_ATTRIBUTE + Atrtext + + + + + + + + + + + + + + + + + partners + + + + + + Code of type of partner involved in this export + Partnertyp (Code) + + + + Typ of partners +EX = Exporter SAD Field 2 +DT = Declarant SAD Field 14 +AE = Representative SAD Field 14 +EV = Subcontractor SAD Field 2 + +Depending on the party constellation (field <partyConst>), one to 4 partners must be declared. +The declarant (DT) always has to be provided by the interface, as this one always has to be declared. + +Further partner declarations required: +- Exporter (EX) if <partyConst> = 1000, 1010, 1100 or 1110 +- Representative of Declarant (AE) if <partyConst> = 0100, 0110, 1100 or 1110 +- Subcontractor (EV) if <partyConst> = 0010, 0110, 1010 or 1110 + + + Gültige Werte: +EX = Ausführer, EH-Papier Feld 2 +DT = Anmelder, EH-Papier Feld 14 +AE = Vertreter, EH-Papier Feld 14 +EV = Subunternehmer, EH-Papier Feld 2 + +Abhänging von der Beteiligtenkonstellation (Feld <partyConst>), müssen verschiedenen Partner angegeben werden. +Der Anmelder (DT) ist immer zu melden und daher immer von der Schnittstelle anzugeben. + +Folgende Partner sind ganau dann anzugegeben: +- Ausführer (EX) wenn <partyConst> = 1000, 1010, 1100 oder 1110 + (Anmelder ist indirekter Vertreter des Ausführers) +- Vertreter des Anmelders (AE) wenn <partyConst> = 0100, 0110, 1100 oder 1110 + (Anmelder lässt sich direkt vertreten) +- Subunternehmer (EV) wenn <partyConst> = 0010, 0110, 1010 oder 1110 + (Anmelder beauftragt Subunternehmer) + true + String1..2 + + MIC_CUST_AVPARTNER + Avpreftyp + MIC_CUST_PARTNER + Parreftyp + + + + + + + + + + + + + + Address of the involved parties + Beteiligtenadresse + + + true + + + + + + + + + + + + + + + Alternative 1: +Existing MIC-CUST Address number + Alternative 1: +Existierende MIC-CUST Adressnummer. + ERP systems usually do not have knowledge of MIC-CUST address numbers + Vorsysteme kennen die Adressnummern i.d.R. nicht +Vorschlag: Leer lassen + false + String1..15 + + MIC_CUST_AVPARTNER + Avpnr + MIC_CUST_PARTNER + Parnr + + + + + + + + + + + + + Address Number Type + Adressnummerntyp + + + false + String1..10 + + MIC_CUST_AVPARTNER + AVPNRTYP + MIC_CUST_PARTNER + PARNRTYP + + + + + + + + + + + + + Alternative 2: +Company name + Alternative 2: +Name oder Firmenbezeichnung + Name of the concerned person, if no customs number is existent. + Name des Beteiligten + false + String1..40 + 0..3 + MIC_CUST_AVPARTNER + Avpname1-3 + MIC_CUST_PARTNER + Parname1-3 + + + + + + + + + + + + + Alternative 2: +Street and house number + Alternative 2: +Straße und Hausnummer + Street and house number, it no customs number is existent. + Strasse und Hausnummer + false + String1..80 + + MIC_CUST_AVPARTNER + avpstr1 + MIC_CUST_PARTNER + parstr1 + + + + + + + + + + + + + Street and house number - Line 2 + Straße und Hausnummer - Zeile 2 + + + false + String1..80 + + MIC_CUST_AVPARTNER + avpstr2 + MIC_CUST_PARTNER + parstr2 + + + + + + + + + + + + + Alternative 2: +City + Alternative 2: +Ort + Location, if no customs number is existent. + Ort + false + String1..35 + + MIC_CUST_AVPARTNER + Avport + MIC_CUST_PARTNER + Parort + + + + + + + + + + + + + Alternative 2: +Country + Alternative 2: +Land + Country code (ISO-Alpha), if no customs number is existent. + Ländercode (ISO-Alpha2) + false + String1..2 + + MIC_CUST_AVPARTNER + Avpld + MIC_CUST_PARTNER + Parld + + + + + + + + + + + + + Alternative 2: +Federal state/region + Alternative 2: +Bundesland/Region + + + false + String1..10 + + MIC_CUST_AVPARTNER + Avpregion + MIC_CUST_PARTNER + Parregion + 9000283 + + + + + + + + + + + + Alternative 2: +Zip code + Alternative 2: +Postleitzahl + Zip code, if no customs number is existent. + PLZ + false + String1..10 + + MIC_CUST_AVPARTNER + Avpplz + MIC_CUST_PARTNER + Parplz + + + + + + + + + + + + + Alternative 3: +Teilnehmer Identifikationsnummer + Alternative 3: +Teilnehmer Identifikationsnummer oder Zollnummer + Customs number (oder TIN) of the concerned person. + Zollnummer (oder TIN) des Beteiligten + false + String..17 + + MIC_CUST_AVPARTNER + Avptin + MIC_CUST_PARTNER + Partin + + + + + + + + + + + + + Eori + Eori + Eori + Eori + false + String1..17 + + MIC_CUST_AVPARTNER + Avpeori + MIC_CUST_PARTNER + Pareori + + + + + + + + + + + + + + Alternative 3: +National Tin indicator + + if "0" equals addrNatT + set Avpeori = addrTin +else + set Avptin = addrTin + false + String1 + + + + + + + + + + + + + Branchnumber assigned to EORI + Laufende Nummer der Niederlassung + Relevant only if element "EORI" is assigned + Die Angabe des Datenfeldes ist nur relevant wenn das Datenfeld (EORI) angegeben wird. + false + String4 + + MIC_CUST_AVPARTNER + Avpbranchno + MIC_CUST_PARTNER + Parbranchno + + + + + + + + + + + + + Related-company-indicator + Verbundenheitskennzeichen + + + false + String1 + + MIC_CUST_AVPARTNER + Avpkvb + MIC_CUST_PARTNER + Parkvb + + + + + + + + + + + + + Additonal information + Zusätzliche Informationen + + + false + String1..50 + + MIC_CUST_AVPARTNER + AVPINFO + MIC_CUST_PARTNER + PARINFO + + + + + + + + + + + + + + Ansprechpartner + + Kontaktdaten des beauftragten Sachbearbeiter + false + + 1 + + + + + + + + + + + + + + + Flag of alliance + Verbundenheitskennzeichen + + + false + String1..1 + + + + + + + + + + + + + + + + + + + + declaration type (SAD) + + + + + + Declaration type(EU/EX) + Anmeldungstyp (EU/EX) + Determined by MIC-CUST out of country of destination + Vorbelegung durch MIC mit EX oder EU. +(Wird von MIC-CUST automatisch aus dem Bestimmungsland ermittelt) + false + String..2 + + + + + + + + + + + + + + + + + + Type of export procedure with use of simplifications + + Art des Ausfuhrverfahrens mit +Inanspruchnahme von Vereinfachungen + a ... Complete export declaration in the two-stage standard procedure +b ... Incomplete export declaration in the two-stage standard procedure +c ... Complete export declaration in the two-stage standard procedure with order for presentation beyond customs premises according to §9(2) AWV +d ... Incomplete export declaration in the two-stage standard procedure with order for presentation beyond customs premises according to §9(2) AWV +e ... Complete export declaration in the two-stage simplified procedure ZA +f ... Incomplete export declaration in the two-stage simplified procedure ZA +g ... Complete export declaration in the single-stage procedure at low value +i ... Complete export declaration in the singe-stage procedure in reasonable stages + a ... Vollständige Ausfuhranmeldung zum zweistufigen Normalverfahren +b ... Unvollständige Ausfuhranmeldung zum zweistufigen Normalverfahren +c ... Vollständige Ausfuhranmeldung zum zweistufigen Normalverfahren mit Antrag auf Gestellung außerhalb des Amtsplatzes nach §9(2) AWV +d ... Unvollständige Ausfuhranmeldung zum zweistufigen Normalverfahren mit Antrag auf Gestellung außerhalb des Amtsplatzes nach §9(2) AWV +e ... Vollständige Ausfuhranmeldung zum zweistufigen Vereinfachten Verfahren ZA +f ... Unvollständige Ausfuhranmeldung zum zweistufigen Vereinfachten Verfahren ZA +g ... Vollständige Ausfuhranmeldung zum einstufigen Verfahren bei geringem Wert +i ... Vollständige Ausfuhranmeldung zum einstufigen Verfahren in begründeten Fällen + false + String..1 + + MIC_AAVSDG + Aasmessvorzkz + MIC_AUSSDG + Afsmessvorzkz + + + + + + + + + + + + + Type of export procedure (category) + Art des Ausfuhrverfahrens (kategorisch) + Codelist A0122 + Codeliste A0122 + false + String2 + + MIC_AAVSDG + Aastypedeclproc + MIC_AUSSDG + Afstypedeclproc + + + + + + + + + + + + + + location of goods + + + + + + code for place of loading and packing as defined in export authorization + Ladeortcode lt. Bewilligung + Condition C1 (simplyfied explanation) +In case of non authorized place of loading this must be declared inside tags <street>, <zip>, <loc> and <addit>. + +- Alternative 1: autorized code for place of loading +- Alternative 2: <code>must be empty. + Bedingung C1 (vereinfachte Darstellung) +Weicht der Ladeort von der Bewilligung ab, muss anstatt des Ladeortscode die Adresse angegeben werden. +Hierzu die Tags <street>, <zip>, <loc> und <addit> befüllen. + +- Alternative 1: Ein bewilligter Ladeort-Code ist einzutragen +- Alternative 2: <code> leer lassen. + + false + String1..20 + + MIC_AAVSDG + Aasladeort + MIC_AUSSDG + Afsladeort + + + + + + + + + + + + + Place of loading - street name and number + Straße und Hausnummer des Ladeortes + Condition C1 +- Alternative 1: empty +- Alternative 2: fill + Bedingung C1 +- Alternative 1: leer lassen +- Alternative 2: ausfüllen + false + String1..80 + + MIC_CUST_AVPARTNER(nur wenn locGoods.code nicht befüllt) + Avpstr1 + MIC_CUST_PARTNER(nur wenn locGoods.code nicht befüllt) + Parstr1 + + + + + + + + Place of loading zip code + Postleitzahl des Ladeortes + Condition C1 +- Alternative 1: empty +- Alternative 2: fill + Bedingung C1 +- Alternative 1: leer lassen +- Alternative 2: ausfüllen + false + String1..10 + + MIC_CUST_AVPARTNER(nur wenn locGoods.code nicht befüllt) + Avpplz + MIC_CUST_PARTNER(nur wenn locGoods.code nicht befüllt) + Parplz + + + + + + + + place of loading city + Name der Stadt des Ladeortes + Condition C1 +- Alternative 1: empty +- Alternative 2: fill + Bedingung C1 +- Alternative 1: leer lassen +- Alternative 2: ausfüllen + false + String1..80 + + MIC_CUST_AVPARTNER(nur wenn locGoods.code nicht befüllt) + Avport + MIC_CUST_PARTNER(nur wenn locGoods.code nicht befüllt) + Parort + 005866 + + + + + + + additional information of the place of loading + Zusatzangaben zum Ladeort + Condition C1 +- Alternative 1: empty +- Alternative 2: fill + Bedingung C1 +- Alternative 1: leer lassen +- Alternative 2: ausfüllen + false + String1..35 + + MIC_CUST_AVPARTNER(nur wenn locGoods.code nicht befüllt) + Avpinfo + MIC_CUST_PARTNER(nur wenn locGoods.code nicht befüllt) + Parinfo + DE + + + + + + + + ContactPerson + + + + + + + Stellung des Ansprechpartners + + + false + String..35 + + MIC_CUST_AVPARTNER + Avpsachstellung + MIC_CUST_PARTNER + Parsachstellung + + + + + + + + + + + + Name des Ansprechpartners + + + false + String..35 + + MIC_CUST_AVPARTNER + Avpsachname + MIC_CUST_PARTNER + Parsachname + + + + + + + + + Email Adresse des Ansprechpartners + + + false + String..256 + + MIC_CUST_AVPARTNER + Avpsachmail + MIC_CUST_PARTNER + Parsachmail + + + + + + + + + + + + + + Telefonnr. des Ansprechpartners + + + false + String..35 + + MIC_CUST_AVPARTNER + Avptelnr + MIC_CUST_PARTNER + Partelnr + + + + + + + + + Faxnr. des Ansprechpartners + + + false + String..35 + + MIC_CUST_AVPARTNER + Avpsachfax + MIC_CUST_PARTNER + Parsachfax + + + + + + + + + Import DeclarationQuantity + + + + + + qualifier + Qualifikator + Qualifier of measurement + Qualifikator zur Maßeinheit der Handelsmenge + false + String1 + + MIC_CUST_AVBEENDIGUNG + ___qual + MIC_CUST_BEENDIGUNG + ___qual + + + + + + + + + + + + + unit + Maßeinheit + Unit of measurement of the deduction quantity + Maßeinheit für den Wert der Handelsmenge + false + String3 + + MIC_CUST_AVBEENDIGUNG + ___meh + MIC_CUST_BEENDIGUNG + ___meh + + + + + + + + + + + + + value + Warenmenge + Quantity + Warenmenge, die aus dem Zolllager entnommen wird + false + Number(12,3) + + MIC_CUST_AVBEENDIGUNG + ___menge + MIC_CUST_BEENDIGUNG + ___menge + + + + + + + + + Reference to the Importdeclaration + + + + + + Type of Reference: +AV … IPR +ZL … BHW + Mögliche Werte: +AV... Beendigungsanteile für die AV +ZL.... Beendigungsanteile für ZL + + + true + String1..3 + + MIC_CUST_AVBEENDIGUNG + Mcbart + MIC_CUST_BEENDIGUNG + Ecbart + + + + + + + + + + + + + Authorisationnumber + Bewilligungsnummer Import + Authorizationnumber of the customs warehouse - BHW or IPR (Import) + Nummer der Bewilligung zum Führen eines Zolllagers + true + String1..12 + + MIC_CUST_AVBEENDIGUNG + Mcbbewillnr + MIC_CUST_BEENDIGUNG + Ecbbewillnr + + + + + + + + + + + + + + + + + false + String1..35 + + MIC_CUST_AVBEENDIGUNG + Mcbbezugnr + MIC_CUST_BEENDIGUNG + Ecbbezugnr + + + + + + + + + + + + + Import Line Number + Nummer der Position des Zugangs zum Quellverfahren AV/UV + Linenumber of the BWH or IPR Import + Angaben zu den in ZL abzuschreibenden Positionen + true + Number(5) + + MIC_CUST_AVBEENDIGUNG + Mcbzugposnr + MIC_CUST_BEENDIGUNG + Ecbzugposnr + + + + + + + + + + + + + Registrationnumber of the Authorities + Registriernummer des Zugangs zum Quellverfahren AV/UV + Registrationnumber of the inward movement (BHW or IPR) + Registriernummer des Zugangs zum Quellverfahren ZL + true + String1..35 + + MIC_CUST_AVBEENDIGUNG + Mcbregnr + MIC_CUST_BEENDIGUNG + Ecbregnr + + + + + + + + + + + + + Commodity code + Warennummer + Valid Commodity code + Warennummer nach dem EZT für die abzufertigende Nichtgemeinschaftsware + false + String1..13 + + MIC_CUST_AVBEENDIGUNG + Mcbtarnr + MIC_CUST_BEENDIGUNG + Ecbtarnr + + + + + + + + + + + + + + Usual Treatment + Kennzeichen für die Übliche Behandlung + Sign of the usual treatment of BHW goods + Kennzeichen, ob die Ware einer üblichen Behandlung unterzogen wurde + false + String1 + + MIC_CUST_AVBEENDIGUNG + Mcbkzueblbeh + MIC_CUST_BEENDIGUNG + Ecbkzueblbeh + + + + + + + + Import Atlas + Kennzeichen Zugang in Atlas + Import into BWH or IPR is happen through the Atlas system? + Kennzeichen, ob der referenzierte Zugang im IT-Verfahren ATLAS angemeldet wurde + true + String1 + + MIC_CUST_AVBEENDIGUNG + Mcbkzatlas + MIC_CUST_BEENDIGUNG + Ecbkzatlas + + + + + + + + additional Information + ZL: +Zusatz + +AV: +Warenbezogene Angaben + + Beendigungsanteile ZL: +Zusatzinformationen des Inhabers des Zolllagerverfahrens zu einer Position des Beendigungsanteils (z.B. über eine durchgeführte übliche Behandlung) + true + ZL: +String1..100 + +AV: +String1.350 + + MIC_CUST_AVBEENDIGUNG + Mcbinfo + MIC_CUST_BEENDIGUNG + Ecbinfo + + + + + + + + Trading Quantity + HANDELSMENGE + + + false + + 1 + MIC_CUST_AVBEENDIGUNG + MCB___ + MIC_CUST_BEENDIGUNG + ECB___ + + + + + + + + Trading Quantity + HANDELSMENGE + + + false + + 1 + MIC_CUST_AVBEENDIGUNG + MCBH___ + MIC_CUST_BEENDIGUNG + ECBH__ + + + + + + + + Number of Packages + Packstückanzahl + + + false + Number + + MIC_CUST_AVBEENDIGUNG + MCBKOLANZ + MIC_CUST_BEENDIGUNG + ECBKOLANZ + + + + + + + + Net Mass + Eigengewicht + + + false + Number(13,4) + + MIC_CUST_AVBEENDIGUNG + MCBEIGMAS + MIC_CUST_BEENDIGUNG + ECBEIGMAS + + + + + + + + + + + + + + Gross Mass + Bruttogewicht + + + false + Number(13,4) + + MIC_CUST_AVBEENDIGUNG + MCBROHMAS + MIC_CUST_BEENDIGUNG + ECBROHMAS + + + + + + + + + + + + + + Statistical Quanity + Statistische Menge + + + false + Number(13,3) + + MIC_CUST_AVBEENDIGUNG + MCBBESM + MIC_CUST_BEENDIGUNG + ECBBESM + + + + + + + + + + + + + + + Transit Route + + + + + + country of transport + Beförderungsland + Countrycodes of those countries, which were crossed through the transportation + Kennungen der Länder, die die Waren zwischen dem ursprünglichen Ausfuhrland und dem Bestimmungsland durchqueren (in chronologischer Reihenfolge einschließlich Ausfuhr- und Bestimmungsland) + true + String2 + + MIC_CUST_AVROUTEPOS + Rpabefld + MIC_CUST_ROUTEPOS + Brpbefld + + + + + + + + + Mode of transportation information + + + + + mode of transport + + + + + nationality means of transport + + + + + license number + + + + + + + term of delivery + + + + + INCO term + + + + + additional code for national declaration + + + + + The terms of delivery description. Mapped to eagelibez + + + + + + + + + + + + item with no, desc and prodgr + + + + + part number + + + + + part description + + + + + product group + + + + + + + License arrival + + + + + import license number + + + + + import license date + + + + + import license not required + + + + + + + Tariff code information for part + + + + + HS tariff code + + + + + VAT code + + + + + excise tax code + + + + + + + document data + + + + description + + + + document type + + + + + document number + + + + + document date + + + + + + + Package arrival + + + + + number of packages + + + + + type of packages + + + + + + + addtional codes on article level + + + + + additional code 1 + + + + + additional code 2 + + + + + additional code 3 + + + + + + + prefernce document arrival + + + + + The type of the preference document + + + + + The number of the preference document + + + + + The date of the preference document + + + + + + + order for arrival + + + + + order number + + + + + order line number + + + + + + + information for INF form + + + + + type of INF form + + + + + INF form duty amount + + + + + INF form duty amount currency + + + + + INF form duty basis + + + + + INF form duty rate + + + + + INF form interest amount + + + + + INF form interest amount currency + + + + + INF form enduse amount + + + + + INF form enduse amount currency + + + + + INF form additional duty type + + + + + INF form additional duty amount + + + + + INF form additional duty amount currency + + + + + + + + + + + + + Customer-specific fields + + + + + + Customer Text Fields + Freie Textfelder + + + false + + + + + + + + + + + + + + Customer Date Fields + Freie Datumsfelder + + + false + + + + + + + + + + + + + + Customer Flag Fields + Freie Flags + + + false + + + + + + + + + + + + + + Customer Number Fields + Freie numerische Felder + + + false + + + + + + + + + + + + + + + + + + + + + + false + + 1..X + + + + + + + + + + + + + + + + Index-Field(1..X) + Index-Feld(1..X) + + + false + Xs:int + + + + + + + + + + + + + Free Text Value + Freitextwert + + + false + 1..4 = String 1..80; 5..X = String1..400 + + + _TEXT1..X + + __TEXT1..X + + + + + + + + + + + + + + + + + + + + + false + + 1..X + + + + + + + + + + + + + + + + Index-Field(1..X) + Index-Feld(1..X) + + + false + Xs:int + + + + + + + + + + + + + Free Date Value + Freier Datumswert + + + false + Xs:dateTime + + + _DATE1..X + + __DATE1..X + + + + + + + + + + + + + + + + + + + false + + 1..X + + + + + + + + + + + + + + + + Index-Field(1..X) + Index-Feld(1..X) + + + false + Xs:int + + + + + + + + + + + + + Free Boolean Value + Freier Boolescher Wert + + + false + Boolean + + + _FLAG1..X + + __FLAG1..X + + + + + + + + + + + + + + + + false + + 1..X + + + + + + + + + + + + + + + + Index-Field(1..X) + Index-Feld(1..X) + + + false + Xs:int + + + + + + + + + + + + + Free Numeric Value + Freier numerischer Wert + + + false + Number(15,4) + + + _NUM1..X + + __NUM1..X + + + + + + + + + + + + + + + + ERP Data on Shipment + + + + + + ERP SystemId + ERP System ID + + + + String1..3 + + ASDERPSYSTEMID + MIC_CUST_SHIPMENT_ERP_DATA + ASDERPSYSTEMID + MIC_CUST_SHIPMENT_ERP_DATA + + + + + + + + + + + + + ERP Client + ERP Mandant + + + + String1..3 + + ASDCLIENT + MIC_CUST_SHIPMENT_ERP_DATA + ASDCLIENT + MIC_CUST_SHIPMENT_ERP_DATA + + + + + + + + + + + + + Company Code + Buchungskreis + + + + String1..4 + + ASDCOMPANYCODE + MIC_CUST_SHIPMENT_ERP_DATA + ASDCOMPANYCODE + MIC_CUST_SHIPMENT_ERP_DATA + + + + + + + + + + + + + Customer ID number + Kundennummer + + + + String1..10 + + ASDCUSTOMERIDNUMBER + MIC_CUST_SHIPMENT_ERP_DATA + ASDCUSTOMERIDNUMBER + MIC_CUST_SHIPMENT_ERP_DATA + + + + + + + + + + + + + Consolidation company ID + Verbundkennzeichen + + + + String1..6 + + ASDCONSOLIDATIONCOMPANYID + MIC_CUST_SHIPMENT_ERP_DATA + ASDCONSOLIDATIONCOMPANYID + MIC_CUST_SHIPMENT_ERP_DATA + + + + + + + + + + + + + Account group + Kontengruppe + + + + String1..4 + + ASDACCOUNTGROUP + MIC_CUST_SHIPMENT_ERP_DATA + ASDACCOUNTGROUP + MIC_CUST_SHIPMENT_ERP_DATA + + + + + + + + + + + + + Shipping point + Versandstelle + + + + String1..4 + + ASDSHIPPINGPOINT + MIC_CUST_SHIPMENT_ERP_DATA + ASDSHIPPINGPOINT + MIC_CUST_SHIPMENT_ERP_DATA + + + + + + + + + + + + + Loading point + Ladestelle + + + + String1..2 + + ASDLOADINGPOINT + MIC_CUST_SHIPMENT_ERP_DATA + ASDLOADINGPOINT + MIC_CUST_SHIPMENT_ERP_DATA + + + + + + + + + + + + + Offshore + Offshore + + + + boolean + + ASDOFFSHORE + MIC_CUST_SHIPMENT_ERP_DATA + ASDOFFSHORE + MIC_CUST_SHIPMENT_ERP_DATA + + + + + + + + Route + Route + + + + String1..6 + + ASDROUTE + MIC_CUST_SHIPMENT_ERP_DATA + ASDROUTE + MIC_CUST_SHIPMENT_ERP_DATA + + + + + + + + + + + + + Sales Organization + Verkaufs Organisation + + + + String1..4 + + ASDSALEORGANIZATION + MIC_CUST_SHIPMENT_ERP_DATA + ASDSALEORGANIZATION + MIC_CUST_SHIPMENT_ERP_DATA + + + + + + + + + + + + + Distribution Channel + Vetriebsweg  + + + + String1..2 + + ASDDISTRIBUTIONCHANNEL + MIC_CUST_SHIPMENT_ERP_DATA + ASDDISTRIBUTIONCHANNEL + MIC_CUST_SHIPMENT_ERP_DATA + + + + + + + + + + + + + + ERP Data on Transmitted Line + + + + + + Legal regulation + Gesetzliche Grundlage + + + + String1..2 + + MIC_CUST_LINE_ERP_DATA + APDLEGALREGULATION + MIC_CUST_LINE_ERP_DATA + APDLEGALREGULATION + + + + + + + + + + + + + Export control class + Mat. Klassifizierung + + + + String1..14 + + MIC_CUST_LINE_ERP_DATA + APDEXPORTCONTROLCLASS + MIC_CUST_LINE_ERP_DATA + APDEXPORTCONTROLCLASS + + + + + + + + + + + + + Embargo + Embargo + + + + String1..14 + + MIC_CUST_LINE_ERP_DATA + APDEMBARGO + MIC_CUST_LINE_ERP_DATA + APDEMBARGO + + + + + + + + + + + + + License type + Bewilligungsart + + + + String1..4 + + MIC_CUST_LINE_ERP_DATA + APDLICENSETYPE + MIC_CUST_LINE_ERP_DATA + APDLICENSETYPE + + + + + + + + + + + + + License number + Genehmigungsnummer + + + + String1..10 + + MIC_CUST_LINE_ERP_DATA + APDLICENSENUMBER + MIC_CUST_LINE_ERP_DATA + APDLICENSENUMBER + + + + + + + + + + + + + Profit center + Profit Center + + + + String1..10 + + MIC_CUST_LINE_ERP_DATA + APDPROFITCENTER + MIC_CUST_LINE_ERP_DATA + APDPROFITCENTER + + + + + + + + + + + + + vZTA Number + vZTA Nummer + + + + String1..30 + + MIC_CUST_LINE_ERP_DATA + APDVZTA + MIC_CUST_LINE_ERP_DATA + APDVZTA + + + + + + + + + + + + + ERP-Invoicelinenumber + ERP Belegpositionsnummer + + + + number(6) + + MIC_CUST_LINE_ERP_DATA + APDERPINVOICELINENUMBER + MIC_CUST_LINE_ERP_DATA + APDERPINVOICELINENUMBER + + + + + + + + + + + + + + ERP-Partnumber + ERP-Materialnummer + + + + String1..40 + + MIC_CUST_LINE_ERP_DATA + APDERPPARTNUMBER + MIC_CUST_LINE_ERP_DATA + APDERPPARTNUMBER + + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.Designer.vb new file mode 100644 index 0000000..18440c7 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.Designer.vb @@ -0,0 +1,4333 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' MIC_EXPORT_InvoiceTypesListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic +Imports VERAG_PROG_ALLGEMEIN.MIC_EXPORT_Components + +Namespace MIC_EXPORT_InvoiceTypes + + + Partial Public Class TInvoiceHead + +#Region "Private fields" + Private _invoiceNo As String + + Private _invoiceDate As Date + + Private _invType As String + + Private _totAmount As Decimal + + Private _curr As String + + Private _shipTo As TAddress + + Private _endUser As TInvoiceHeadEndUser + + Private _delTerm As TDelTerm + + Private _billTo As TAddress + + Private _ref As String + + Private _tradeCtry As String + + Private _gWeight As Decimal + + Private _nWeight As Decimal + + Private _addCosts As List(Of TAddCosts) + + Private _bol As String + + Private _transpNr As String + + Private _addtext As List(Of String) + + Private _documents As List(Of TDocuments) + + Private _mrnExt As String + + Private _numberOfPackages As Decimal + + Private _transportType As String + + Private _customerFields As TCustomerFields + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._customerFields = New TCustomerFields() + Me._documents = New List(Of TDocuments)() + Me._addtext = New List(Of String)() + Me._addCosts = New List(Of TAddCosts)() + Me._billTo = New TAddress() + Me._delTerm = New TDelTerm() + Me._endUser = New TInvoiceHeadEndUser() + Me._shipTo = New TAddress() + End Sub + + Public Property invoiceNo() As String + Get + Return Me._invoiceNo + End Get + Set + Me._invoiceNo = Value + End Set + End Property + + + Public Property invoiceDate() As Date + Get + Return Me._invoiceDate + End Get + Set + Me._invoiceDate = Value + End Set + End Property + + Public Property invType() As String + Get + Return Me._invType + End Get + Set + Me._invType = Value + End Set + End Property + + Public Property totAmount() As Decimal + Get + Return Me._totAmount + End Get + Set + Me._totAmount = Value + End Set + End Property + + Public Property curr() As String + Get + Return Me._curr + End Get + Set + Me._curr = Value + End Set + End Property + + Public Property shipTo() As TAddress + Get + Return Me._shipTo + End Get + Set + Me._shipTo = Value + End Set + End Property + + Public Property endUser() As TInvoiceHeadEndUser + Get + Return Me._endUser + End Get + Set + Me._endUser = Value + End Set + End Property + + Public Property delTerm() As TDelTerm + Get + Return Me._delTerm + End Get + Set + Me._delTerm = Value + End Set + End Property + + Public Property billTo() As TAddress + Get + Return Me._billTo + End Get + Set + Me._billTo = Value + End Set + End Property + + Public Property ref() As String + Get + Return Me._ref + End Get + Set + Me._ref = Value + End Set + End Property + + Public Property tradeCtry() As String + Get + Return Me._tradeCtry + End Get + Set + Me._tradeCtry = Value + End Set + End Property + + Public Property gWeight() As Decimal + Get + Return Me._gWeight + End Get + Set + Me._gWeight = Value + End Set + End Property + + Public Property nWeight() As Decimal + Get + Return Me._nWeight + End Get + Set + Me._nWeight = Value + End Set + End Property + + + Public Property addCosts() As List(Of TAddCosts) + Get + Return Me._addCosts + End Get + Set + Me._addCosts = Value + End Set + End Property + + Public Property bol() As String + Get + Return Me._bol + End Get + Set + Me._bol = Value + End Set + End Property + + Public Property transpNr() As String + Get + Return Me._transpNr + End Get + Set + Me._transpNr = Value + End Set + End Property + + + Public Property addtext() As List(Of String) + Get + Return Me._addtext + End Get + Set + Me._addtext = Value + End Set + End Property + + + Public Property documents() As List(Of TDocuments) + Get + Return Me._documents + End Get + Set + Me._documents = Value + End Set + End Property + + Public Property mrnExt() As String + Get + Return Me._mrnExt + End Get + Set + Me._mrnExt = Value + End Set + End Property + + Public Property numberOfPackages() As Decimal + Get + Return Me._numberOfPackages + End Get + Set + Me._numberOfPackages = Value + End Set + End Property + + Public Property transportType() As String + Get + Return Me._transportType + End Get + Set + Me._transportType = Value + End Set + End Property + + Public Property customerFields() As TCustomerFields + Get + Return Me._customerFields + End Get + Set + Me._customerFields = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceHead)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInvoiceHead object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInvoiceHead object + ''' + ''' string workflow markup to deserialize + ''' Output TInvoiceHead 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 TInvoiceHead, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceHead) + 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 TInvoiceHead) 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 TInvoiceHead + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInvoiceHead) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInvoiceHead + Return CType(Serializer.Deserialize(s), TInvoiceHead) + End Function +#End Region + + ''' + ''' Serializes current TInvoiceHead 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInvoiceHead object + ''' + ''' string xml file to load and deserialize + ''' Output TInvoiceHead 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 TInvoiceHead, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceHead) + 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 TInvoiceHead) 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 TInvoiceHead + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDocuments + +#Region "Private fields" + Private _docNo As String + + Private _docDate As Date + + Private _docType As String + + Private _docQual As String + + Private _docValidFrom As Date + + Private _docValidTo As Date + + Private _docAddText As String + + Private _docQuantity As Decimal + + Private _docUnit As String + + Private _docDetail As String + + Private _docValue As Decimal + + Private _docStatUnit As String + + Private _docDepreciateQuantity As Decimal + + Private _docSupplier As String + + Private _docCategory As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property docNo() As String + Get + Return Me._docNo + End Get + Set + Me._docNo = Value + End Set + End Property + + + Public Property docDate() As Date + Get + Return Me._docDate + End Get + Set + Me._docDate = Value + End Set + End Property + + Public Property docType() As String + Get + Return Me._docType + End Get + Set + Me._docType = Value + End Set + End Property + + Public Property docQual() As String + Get + Return Me._docQual + End Get + Set + Me._docQual = Value + End Set + End Property + + + Public Property docValidFrom() As Date + Get + Return Me._docValidFrom + End Get + Set + Me._docValidFrom = Value + End Set + End Property + + + Public Property docValidTo() As Date + Get + Return Me._docValidTo + End Get + Set + Me._docValidTo = Value + End Set + End Property + + Public Property docAddText() As String + Get + Return Me._docAddText + End Get + Set + Me._docAddText = Value + End Set + End Property + + Public Property docQuantity() As Decimal + Get + Return Me._docQuantity + End Get + Set + Me._docQuantity = Value + End Set + End Property + + Public Property docUnit() As String + Get + Return Me._docUnit + End Get + Set + Me._docUnit = Value + End Set + End Property + + Public Property docDetail() As String + Get + Return Me._docDetail + End Get + Set + Me._docDetail = Value + End Set + End Property + + Public Property docValue() As Decimal + Get + Return Me._docValue + End Get + Set + Me._docValue = Value + End Set + End Property + + Public Property docStatUnit() As String + Get + Return Me._docStatUnit + End Get + Set + Me._docStatUnit = Value + End Set + End Property + + Public Property docDepreciateQuantity() As Decimal + Get + Return Me._docDepreciateQuantity + End Get + Set + Me._docDepreciateQuantity = Value + End Set + End Property + + Public Property docSupplier() As String + Get + Return Me._docSupplier + End Get + Set + Me._docSupplier = Value + End Set + End Property + + Public Property docCategory() As String + Get + Return Me._docCategory + End Get + Set + Me._docCategory = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDocuments)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDocuments object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDocuments object + ''' + ''' string workflow markup to deserialize + ''' Output TDocuments 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 TDocuments, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDocuments) + 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 TDocuments) 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 TDocuments + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDocuments) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDocuments + Return CType(Serializer.Deserialize(s), TDocuments) + End Function +#End Region + + ''' + ''' Serializes current TDocuments 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDocuments object + ''' + ''' string xml file to load and deserialize + ''' Output TDocuments 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 TDocuments, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDocuments) + 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 TDocuments) 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 TDocuments + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInvoiceHeadEndUser + +#Region "Private fields" + Private _addrNo As String + + Private _addrName As List(Of String) + + Private _addrStreet As String + + Private _addrLoc As String + + Private _addrCtry As String + + Private _addrZip As String + + Private _addrTin As String + + Private _addrEori As String + + Private _addrNatT As String + + Private _branchNo As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._addrName = New List(Of String)() + End Sub + + Public Property addrNo() As String + Get + Return Me._addrNo + End Get + Set + Me._addrNo = Value + End Set + End Property + + + Public Property addrName() As List(Of String) + Get + Return Me._addrName + End Get + Set + Me._addrName = Value + End Set + End Property + + Public Property addrStreet() As String + Get + Return Me._addrStreet + End Get + Set + Me._addrStreet = Value + End Set + End Property + + Public Property addrLoc() As String + Get + Return Me._addrLoc + End Get + Set + Me._addrLoc = Value + End Set + End Property + + Public Property addrCtry() As String + Get + Return Me._addrCtry + End Get + Set + Me._addrCtry = Value + End Set + End Property + + Public Property addrZip() As String + Get + Return Me._addrZip + End Get + Set + Me._addrZip = Value + End Set + End Property + + Public Property addrTin() As String + Get + Return Me._addrTin + End Get + Set + Me._addrTin = Value + End Set + End Property + + Public Property addrEori() As String + Get + Return Me._addrEori + End Get + Set + Me._addrEori = Value + End Set + End Property + + Public Property addrNatT() As String + Get + Return Me._addrNatT + End Get + Set + Me._addrNatT = Value + End Set + End Property + + Public Property branchNo() As String + Get + Return Me._branchNo + End Get + Set + Me._branchNo = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceHeadEndUser)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInvoiceHeadEndUser object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInvoiceHeadEndUser object + ''' + ''' string workflow markup to deserialize + ''' Output TInvoiceHeadEndUser 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 TInvoiceHeadEndUser, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceHeadEndUser) + 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 TInvoiceHeadEndUser) 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 TInvoiceHeadEndUser + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInvoiceHeadEndUser) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInvoiceHeadEndUser + Return CType(Serializer.Deserialize(s), TInvoiceHeadEndUser) + End Function +#End Region + + ''' + ''' Serializes current TInvoiceHeadEndUser 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInvoiceHeadEndUser object + ''' + ''' string xml file to load and deserialize + ''' Output TInvoiceHeadEndUser 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 TInvoiceHeadEndUser, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceHeadEndUser) + 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 TInvoiceHeadEndUser) 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 TInvoiceHeadEndUser + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInvoiceLine + +#Region "Private fields" + Private _lineNo As String + + Private _unitPrice As Decimal + + Private _amount As Decimal + + Private _nWeight As Decimal + + Private _gWeight As Decimal + + Private _statQuant As Decimal + + Private _statUnit As String + + Private _statVal As Decimal + + Private _custProc As String + + Private _eUCode As String + + Private _statCode As String + + Private _transType As String + + Private _coo As String + + Private _cooState As String + + Private _addText As List(Of String) + + Private _prevDoc As List(Of TPreviousDocument) + + Private _item As TItem + + Private _documents As List(Of TDocuments) + + Private _delTerm As TInvoiceLineDelTerm + + Private _quantity As Decimal + + Private _unit As String + + Private _delnote As TDelNote + + Private _order As TOrder + + Private _itemRef As String + + Private _addCosts As List(Of TAddCosts) + + Private _addCode As List(Of String) + + Private _natCode As List(Of String) + + Private _stockTypeAdd As String + + Private _stockTypeDed As String + + Private _bom As TBomNo + + Private _accountNo As String + + Private _customerFields As TCustomerFields + + Private _attributes As List(Of TAttribute) + + Private _containers As List(Of TContainer) + + Private _shipmentIdentification As String + + Private _uNDG As String + + Private _consigneeEndUserFlag As String + + Private _endUserInEam As TInvoiceLineEndUserInEam + + Private _carriageCosts As String + + Private _shipTo As TInvoiceLineShipTo + + Private _endUser As TInvoiceLineEndUser + + Private _importReference As List(Of TImportReference) + + Private _registrationInfo As TRegInfo + + Private _serialNo As String + + Private _referenceValue As Decimal + + Private _model As String + + Private _brand As String + + Private _addedValue As Decimal + + Private _ctoId As String + + Private _infoText2 As String + + Private _branchNo As String + + Private _additionalInformation As List(Of TAttribute) + + Private _trackingNumber As String + + Private _erpData As TErpLineData + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._erpData = New TErpLineData() + Me._additionalInformation = New List(Of TAttribute)() + Me._registrationInfo = New TRegInfo() + Me._importReference = New List(Of TImportReference)() + Me._endUser = New TInvoiceLineEndUser() + Me._shipTo = New TInvoiceLineShipTo() + Me._containers = New List(Of TContainer)() + Me._attributes = New List(Of TAttribute)() + Me._customerFields = New TCustomerFields() + Me._bom = New TBomNo() + Me._natCode = New List(Of String)() + Me._addCode = New List(Of String)() + Me._addCosts = New List(Of TAddCosts)() + Me._order = New TOrder() + Me._delnote = New TDelNote() + Me._delTerm = New TInvoiceLineDelTerm() + Me._documents = New List(Of TDocuments)() + Me._item = New TItem() + Me._prevDoc = New List(Of TPreviousDocument)() + Me._addText = New List(Of String)() + End Sub + + + Public Property lineNo() As String + Get + Return Me._lineNo + End Get + Set + Me._lineNo = Value + End Set + End Property + + Public Property unitPrice() As Decimal + Get + Return Me._unitPrice + End Get + Set + Me._unitPrice = Value + End Set + End Property + + Public Property amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Public Property nWeight() As Decimal + Get + Return Me._nWeight + End Get + Set + Me._nWeight = Value + End Set + End Property + + Public Property gWeight() As Decimal + Get + Return Me._gWeight + End Get + Set + Me._gWeight = Value + End Set + End Property + + Public Property statQuant() As Decimal + Get + Return Me._statQuant + End Get + Set + Me._statQuant = Value + End Set + End Property + + Public Property statUnit() As String + Get + Return Me._statUnit + End Get + Set + Me._statUnit = Value + End Set + End Property + + Public Property statVal() As Decimal + Get + Return Me._statVal + End Get + Set + Me._statVal = Value + End Set + End Property + + Public Property custProc() As String + Get + Return Me._custProc + End Get + Set + Me._custProc = Value + End Set + End Property + + Public Property EUCode() As String + Get + Return Me._eUCode + End Get + Set + Me._eUCode = Value + End Set + End Property + + Public Property statCode() As String + Get + Return Me._statCode + End Get + Set + Me._statCode = Value + End Set + End Property + + Public Property transType() As String + Get + Return Me._transType + End Get + Set + Me._transType = Value + End Set + End Property + + Public Property coo() As String + Get + Return Me._coo + End Get + Set + Me._coo = Value + End Set + End Property + + Public Property cooState() As String + Get + Return Me._cooState + End Get + Set + Me._cooState = Value + End Set + End Property + + + Public Property addText() As List(Of String) + Get + Return Me._addText + End Get + Set + Me._addText = Value + End Set + End Property + + + Public Property prevDoc() As List(Of TPreviousDocument) + Get + Return Me._prevDoc + End Get + Set + Me._prevDoc = Value + End Set + End Property + + Public Property item() As TItem + Get + Return Me._item + End Get + Set + Me._item = Value + End Set + End Property + + + Public Property documents() As List(Of TDocuments) + Get + Return Me._documents + End Get + Set + Me._documents = Value + End Set + End Property + + Public Property delTerm() As TInvoiceLineDelTerm + Get + Return Me._delTerm + End Get + Set + Me._delTerm = 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 unit() As String + Get + Return Me._unit + End Get + Set + Me._unit = Value + End Set + End Property + + Public Property delnote() As TDelNote + Get + Return Me._delnote + End Get + Set + Me._delnote = Value + End Set + End Property + + Public Property order() As TOrder + Get + Return Me._order + End Get + Set + Me._order = Value + End Set + End Property + + Public Property itemRef() As String + Get + Return Me._itemRef + End Get + Set + Me._itemRef = Value + End Set + End Property + + + Public Property addCosts() As List(Of TAddCosts) + Get + Return Me._addCosts + End Get + Set + Me._addCosts = Value + End Set + End Property + + + Public Property addCode() As List(Of String) + Get + Return Me._addCode + End Get + Set + Me._addCode = Value + End Set + End Property + + + Public Property natCode() As List(Of String) + Get + Return Me._natCode + End Get + Set + Me._natCode = Value + End Set + End Property + + Public Property stockTypeAdd() As String + Get + Return Me._stockTypeAdd + End Get + Set + Me._stockTypeAdd = Value + End Set + End Property + + Public Property stockTypeDed() As String + Get + Return Me._stockTypeDed + End Get + Set + Me._stockTypeDed = Value + End Set + End Property + + Public Property bom() As TBomNo + Get + Return Me._bom + End Get + Set + Me._bom = Value + End Set + End Property + + Public Property accountNo() As String + Get + Return Me._accountNo + End Get + Set + Me._accountNo = Value + End Set + End Property + + Public Property customerFields() As TCustomerFields + Get + Return Me._customerFields + End Get + Set + Me._customerFields = Value + End Set + End Property + + + Public Property attributes() As List(Of TAttribute) + Get + Return Me._attributes + End Get + Set + Me._attributes = Value + End Set + End Property + + + Public Property containers() As List(Of TContainer) + Get + Return Me._containers + End Get + Set + Me._containers = Value + End Set + End Property + + Public Property shipmentIdentification() As String + Get + Return Me._shipmentIdentification + End Get + Set + Me._shipmentIdentification = Value + End Set + End Property + + Public Property UNDG() As String + Get + Return Me._uNDG + End Get + Set + Me._uNDG = Value + End Set + End Property + + Public Property consigneeEndUserFlag() As String + Get + Return Me._consigneeEndUserFlag + End Get + Set + Me._consigneeEndUserFlag = Value + End Set + End Property + + Public Property endUserInEam() As TInvoiceLineEndUserInEam + Get + Return Me._endUserInEam + End Get + Set + Me._endUserInEam = Value + End Set + End Property + + Public Property carriageCosts() As String + Get + Return Me._carriageCosts + End Get + Set + Me._carriageCosts = Value + End Set + End Property + + Public Property shipTo() As TInvoiceLineShipTo + Get + Return Me._shipTo + End Get + Set + Me._shipTo = Value + End Set + End Property + + Public Property endUser() As TInvoiceLineEndUser + Get + Return Me._endUser + End Get + Set + Me._endUser = Value + End Set + End Property + + + Public Property importReference() As List(Of TImportReference) + Get + Return Me._importReference + End Get + Set + Me._importReference = Value + End Set + End Property + + Public Property registrationInfo() As TRegInfo + Get + Return Me._registrationInfo + End Get + Set + Me._registrationInfo = Value + End Set + End Property + + Public Property serialNo() As String + Get + Return Me._serialNo + End Get + Set + Me._serialNo = Value + End Set + End Property + + Public Property referenceValue() As Decimal + Get + Return Me._referenceValue + End Get + Set + Me._referenceValue = Value + End Set + End Property + + Public Property model() As String + Get + Return Me._model + End Get + Set + Me._model = Value + End Set + End Property + + Public Property brand() As String + Get + Return Me._brand + End Get + Set + Me._brand = Value + End Set + End Property + + Public Property addedValue() As Decimal + Get + Return Me._addedValue + End Get + Set + Me._addedValue = Value + End Set + End Property + + Public Property ctoId() As String + Get + Return Me._ctoId + End Get + Set + Me._ctoId = Value + End Set + End Property + + Public Property infoText2() As String + Get + Return Me._infoText2 + End Get + Set + Me._infoText2 = Value + End Set + End Property + + Public Property branchNo() As String + Get + Return Me._branchNo + End Get + Set + Me._branchNo = Value + End Set + End Property + + + Public Property additionalInformation() As List(Of TAttribute) + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + Public Property trackingNumber() As String + Get + Return Me._trackingNumber + End Get + Set + Me._trackingNumber = Value + End Set + End Property + + Public Property erpData() As TErpLineData + Get + Return Me._erpData + End Get + Set + Me._erpData = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLine)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInvoiceLine object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInvoiceLine object + ''' + ''' string workflow markup to deserialize + ''' Output TInvoiceLine 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 TInvoiceLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceLine) + 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 TInvoiceLine) 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 TInvoiceLine + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInvoiceLine) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInvoiceLine + Return CType(Serializer.Deserialize(s), TInvoiceLine) + End Function +#End Region + + ''' + ''' Serializes current TInvoiceLine 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInvoiceLine object + ''' + ''' string xml file to load and deserialize + ''' Output TInvoiceLine 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 TInvoiceLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceLine) + 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 TInvoiceLine) 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 TInvoiceLine + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPreviousDocument + +#Region "Private fields" + Private _docType As String + + Private _docNo As String + + Private _docAddText As String + + Private _docCategory As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property docType() As String + Get + Return Me._docType + End Get + Set + Me._docType = Value + End Set + End Property + + Public Property docNo() As String + Get + Return Me._docNo + End Get + Set + Me._docNo = Value + End Set + End Property + + Public Property docAddText() As String + Get + Return Me._docAddText + End Get + Set + Me._docAddText = Value + End Set + End Property + + Public Property docCategory() As String + Get + Return Me._docCategory + End Get + Set + Me._docCategory = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPreviousDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPreviousDocument object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPreviousDocument object + ''' + ''' string workflow markup to deserialize + ''' Output TPreviousDocument 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 TPreviousDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPreviousDocument) + 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 TPreviousDocument) 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 TPreviousDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPreviousDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPreviousDocument + Return CType(Serializer.Deserialize(s), TPreviousDocument) + End Function +#End Region + + ''' + ''' Serializes current TPreviousDocument 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPreviousDocument object + ''' + ''' string xml file to load and deserialize + ''' Output TPreviousDocument 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 TPreviousDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPreviousDocument) + 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 TPreviousDocument) 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 TPreviousDocument + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInvoiceLineDelTerm + +#Region "Private fields" + Private _code As String + + Private _desc As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + Public Property desc() As String + Get + Return Me._desc + End Get + Set + Me._desc = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLineDelTerm)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInvoiceLineDelTerm object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInvoiceLineDelTerm object + ''' + ''' string workflow markup to deserialize + ''' Output TInvoiceLineDelTerm 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 TInvoiceLineDelTerm, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceLineDelTerm) + 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 TInvoiceLineDelTerm) 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 TInvoiceLineDelTerm + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInvoiceLineDelTerm) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInvoiceLineDelTerm + Return CType(Serializer.Deserialize(s), TInvoiceLineDelTerm) + End Function +#End Region + + ''' + ''' Serializes current TInvoiceLineDelTerm 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInvoiceLineDelTerm object + ''' + ''' string xml file to load and deserialize + ''' Output TInvoiceLineDelTerm 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 TInvoiceLineDelTerm, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceLineDelTerm) + 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 TInvoiceLineDelTerm) 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 TInvoiceLineDelTerm + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TContainer + +#Region "Private fields" + Private _contNo As String + + Private _contType As String + + Private _sealNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property contNo() As String + Get + Return Me._contNo + End Get + Set + Me._contNo = Value + End Set + End Property + + Public Property contType() As String + Get + Return Me._contType + End Get + Set + Me._contType = Value + End Set + End Property + + Public Property sealNumber() As String + Get + Return Me._sealNumber + End Get + Set + Me._sealNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TContainer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TContainer object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TContainer object + ''' + ''' string workflow markup to deserialize + ''' Output TContainer 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 TContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TContainer) + 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 TContainer) 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 TContainer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TContainer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TContainer + Return CType(Serializer.Deserialize(s), TContainer) + End Function +#End Region + + ''' + ''' Serializes current TContainer 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TContainer object + ''' + ''' string xml file to load and deserialize + ''' Output TContainer 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 TContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TContainer) + 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 TContainer) 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 TContainer + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInvoiceLineEndUserInEam + + ''' + + Item + + ''' + + Item0 + + ''' + + Item1 + End Enum + + + Partial Public Class TInvoiceLineShipTo + +#Region "Private fields" + Private _addrNo As String + + Private _addrName As List(Of String) + + Private _addrStreet As String + + Private _addrLoc As String + + Private _addrCtry As String + + Private _addrState As String + + Private _addrZip As String + + Private _addrTin As String + + Private _addrEori As String + + Private _addrNatT As String + + Private _branchNo As String + + Private _addrKvb As String + + Private _contactPerson As TContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New TContactPerson() + Me._addrName = New List(Of String)() + End Sub + + Public Property addrNo() As String + Get + Return Me._addrNo + End Get + Set + Me._addrNo = Value + End Set + End Property + + + Public Property addrName() As List(Of String) + Get + Return Me._addrName + End Get + Set + Me._addrName = Value + End Set + End Property + + Public Property addrStreet() As String + Get + Return Me._addrStreet + End Get + Set + Me._addrStreet = Value + End Set + End Property + + Public Property addrLoc() As String + Get + Return Me._addrLoc + End Get + Set + Me._addrLoc = Value + End Set + End Property + + Public Property addrCtry() As String + Get + Return Me._addrCtry + End Get + Set + Me._addrCtry = Value + End Set + End Property + + Public Property addrState() As String + Get + Return Me._addrState + End Get + Set + Me._addrState = Value + End Set + End Property + + Public Property addrZip() As String + Get + Return Me._addrZip + End Get + Set + Me._addrZip = Value + End Set + End Property + + Public Property addrTin() As String + Get + Return Me._addrTin + End Get + Set + Me._addrTin = Value + End Set + End Property + + Public Property addrEori() As String + Get + Return Me._addrEori + End Get + Set + Me._addrEori = Value + End Set + End Property + + Public Property addrNatT() As String + Get + Return Me._addrNatT + End Get + Set + Me._addrNatT = Value + End Set + End Property + + Public Property branchNo() As String + Get + Return Me._branchNo + End Get + Set + Me._branchNo = Value + End Set + End Property + + Public Property addrKvb() As String + Get + Return Me._addrKvb + End Get + Set + Me._addrKvb = Value + End Set + End Property + + Public Property contactPerson() As TContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLineShipTo)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInvoiceLineShipTo object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInvoiceLineShipTo object + ''' + ''' string workflow markup to deserialize + ''' Output TInvoiceLineShipTo 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 TInvoiceLineShipTo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceLineShipTo) + 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 TInvoiceLineShipTo) 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 TInvoiceLineShipTo + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInvoiceLineShipTo) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInvoiceLineShipTo + Return CType(Serializer.Deserialize(s), TInvoiceLineShipTo) + End Function +#End Region + + ''' + ''' Serializes current TInvoiceLineShipTo 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInvoiceLineShipTo object + ''' + ''' string xml file to load and deserialize + ''' Output TInvoiceLineShipTo 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 TInvoiceLineShipTo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceLineShipTo) + 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 TInvoiceLineShipTo) 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 TInvoiceLineShipTo + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInvoiceLineEndUser + +#Region "Private fields" + Private _addrNo As String + + Private _addrName As List(Of String) + + Private _addrStreet As String + + Private _addrLoc As String + + Private _addrCtry As String + + Private _addrZip As String + + Private _addrTin As String + + Private _addrEori As String + + Private _addrNatT As String + + Private _branchNo As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._addrName = New List(Of String)() + End Sub + + Public Property addrNo() As String + Get + Return Me._addrNo + End Get + Set + Me._addrNo = Value + End Set + End Property + + + Public Property addrName() As List(Of String) + Get + Return Me._addrName + End Get + Set + Me._addrName = Value + End Set + End Property + + Public Property addrStreet() As String + Get + Return Me._addrStreet + End Get + Set + Me._addrStreet = Value + End Set + End Property + + Public Property addrLoc() As String + Get + Return Me._addrLoc + End Get + Set + Me._addrLoc = Value + End Set + End Property + + Public Property addrCtry() As String + Get + Return Me._addrCtry + End Get + Set + Me._addrCtry = Value + End Set + End Property + + Public Property addrZip() As String + Get + Return Me._addrZip + End Get + Set + Me._addrZip = Value + End Set + End Property + + Public Property addrTin() As String + Get + Return Me._addrTin + End Get + Set + Me._addrTin = Value + End Set + End Property + + Public Property addrEori() As String + Get + Return Me._addrEori + End Get + Set + Me._addrEori = Value + End Set + End Property + + Public Property addrNatT() As String + Get + Return Me._addrNatT + End Get + Set + Me._addrNatT = Value + End Set + End Property + + Public Property branchNo() As String + Get + Return Me._branchNo + End Get + Set + Me._branchNo = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLineEndUser)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInvoiceLineEndUser object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInvoiceLineEndUser object + ''' + ''' string workflow markup to deserialize + ''' Output TInvoiceLineEndUser 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 TInvoiceLineEndUser, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceLineEndUser) + 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 TInvoiceLineEndUser) 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 TInvoiceLineEndUser + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInvoiceLineEndUser) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInvoiceLineEndUser + Return CType(Serializer.Deserialize(s), TInvoiceLineEndUser) + End Function +#End Region + + ''' + ''' Serializes current TInvoiceLineEndUser 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInvoiceLineEndUser object + ''' + ''' string xml file to load and deserialize + ''' Output TInvoiceLineEndUser 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 TInvoiceLineEndUser, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceLineEndUser) + 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 TInvoiceLineEndUser) 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 TInvoiceLineEndUser + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRegInfo + +#Region "Private fields" + Private _registrationNumber1 As String + + Private _registrationNumber2 As String + + Private _registrationNumber3 As String + + Private _referenceNumber1 As String + + Private _referenceNumber2 As String + + Private _referenceNumber3 As String + + Private _registrationDate As Date + + Private _acceptanceDate As Date + + Private _releaseDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property registrationNumber1() As String + Get + Return Me._registrationNumber1 + End Get + Set + Me._registrationNumber1 = Value + End Set + End Property + + Public Property registrationNumber2() As String + Get + Return Me._registrationNumber2 + End Get + Set + Me._registrationNumber2 = Value + End Set + End Property + + Public Property registrationNumber3() As String + Get + Return Me._registrationNumber3 + End Get + Set + Me._registrationNumber3 = Value + End Set + End Property + + Public Property referenceNumber1() As String + Get + Return Me._referenceNumber1 + End Get + Set + Me._referenceNumber1 = Value + End Set + End Property + + Public Property referenceNumber2() As String + Get + Return Me._referenceNumber2 + End Get + Set + Me._referenceNumber2 = Value + End Set + End Property + + Public Property referenceNumber3() As String + Get + Return Me._referenceNumber3 + End Get + Set + Me._referenceNumber3 = Value + End Set + End Property + + + Public Property registrationDate() As Date + Get + Return Me._registrationDate + End Get + Set + Me._registrationDate = Value + End Set + End Property + + + Public Property acceptanceDate() As Date + Get + Return Me._acceptanceDate + End Get + Set + Me._acceptanceDate = Value + End Set + End Property + + + Public Property releaseDate() As Date + Get + Return Me._releaseDate + End Get + Set + Me._releaseDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRegInfo)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRegInfo object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRegInfo object + ''' + ''' string workflow markup to deserialize + ''' Output TRegInfo 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 TRegInfo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRegInfo) + 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 TRegInfo) 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 TRegInfo + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRegInfo) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRegInfo + Return CType(Serializer.Deserialize(s), TRegInfo) + End Function +#End Region + + ''' + ''' Serializes current TRegInfo 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRegInfo object + ''' + ''' string xml file to load and deserialize + ''' Output TRegInfo 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 TRegInfo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRegInfo) + 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 TRegInfo) 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 TRegInfo + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TSeal + +#Region "Private fields" + Private _type As String + + Private _quantity As UInteger + + Private _sign As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property quantity() As UInteger + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property sign() As String + Get + Return Me._sign + End Get + Set + Me._sign = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TSeal)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TSeal object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TSeal object + ''' + ''' string workflow markup to deserialize + ''' Output TSeal 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 TSeal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TSeal) + 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 TSeal) 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 TSeal + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TSeal) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TSeal + Return CType(Serializer.Deserialize(s), TSeal) + End Function +#End Region + + ''' + ''' Serializes current TSeal 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TSeal object + ''' + ''' string xml file to load and deserialize + ''' Output TSeal 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 TSeal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TSeal) + 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 TSeal) 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 TSeal + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInvoice + +#Region "Private fields" + Private _invoiceHead As TInvoiceHead + + Private _invoiceLine As List(Of TInvoiceLine) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._invoiceLine = New List(Of TInvoiceLine)() + Me._invoiceHead = New TInvoiceHead() + End Sub + + Public Property InvoiceHead() As TInvoiceHead + Get + Return Me._invoiceHead + End Get + Set + Me._invoiceHead = Value + End Set + End Property + + + Public Property InvoiceLine() As List(Of TInvoiceLine) + Get + Return Me._invoiceLine + End Get + Set + Me._invoiceLine = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInvoice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInvoice object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInvoice object + ''' + ''' string workflow markup to deserialize + ''' Output TInvoice 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 TInvoice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoice) + 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 TInvoice) 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 TInvoice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInvoice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInvoice + Return CType(Serializer.Deserialize(s), TInvoice) + End Function +#End Region + + ''' + ''' Serializes current TInvoice 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInvoice object + ''' + ''' string xml file to load and deserialize + ''' Output TInvoice 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 TInvoice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoice) + 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 TInvoice) 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 TInvoice + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPackageHead + +#Region "Private fields" + Private _packageNo As String + + Private _pType As String + + Private _unit As String + + Private _packageNoExt As String + + Private _gWeight As Decimal + + Private _nWeight As Decimal + + Private _tara As Decimal + + Private _unitWeight As String + + Private _volume As Decimal + + Private _grossVolume As Decimal + + Private _netVolume As Decimal + + Private _unitVolume As String + + Private _length As Decimal + + Private _width As Decimal + + Private _height As Decimal + + Private _unitlwh As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property packageNo() As String + Get + Return Me._packageNo + End Get + Set + Me._packageNo = Value + End Set + End Property + + Public Property pType() As String + Get + Return Me._pType + End Get + Set + Me._pType = Value + End Set + End Property + + Public Property unit() As String + Get + Return Me._unit + End Get + Set + Me._unit = Value + End Set + End Property + + Public Property packageNoExt() As String + Get + Return Me._packageNoExt + End Get + Set + Me._packageNoExt = Value + End Set + End Property + + Public Property gWeight() As Decimal + Get + Return Me._gWeight + End Get + Set + Me._gWeight = Value + End Set + End Property + + Public Property nWeight() As Decimal + Get + Return Me._nWeight + End Get + Set + Me._nWeight = Value + End Set + End Property + + Public Property tara() As Decimal + Get + Return Me._tara + End Get + Set + Me._tara = Value + End Set + End Property + + Public Property unitWeight() As String + Get + Return Me._unitWeight + End Get + Set + Me._unitWeight = Value + End Set + End Property + + Public Property volume() As Decimal + Get + Return Me._volume + End Get + Set + Me._volume = Value + End Set + End Property + + Public Property grossVolume() As Decimal + Get + Return Me._grossVolume + End Get + Set + Me._grossVolume = Value + End Set + End Property + + Public Property netVolume() As Decimal + Get + Return Me._netVolume + End Get + Set + Me._netVolume = Value + End Set + End Property + + Public Property unitVolume() As String + Get + Return Me._unitVolume + End Get + Set + Me._unitVolume = Value + End Set + End Property + + Public Property length() As Decimal + Get + Return Me._length + End Get + Set + Me._length = Value + End Set + End Property + + Public Property width() As Decimal + Get + Return Me._width + End Get + Set + Me._width = Value + End Set + End Property + + Public Property height() As Decimal + Get + Return Me._height + End Get + Set + Me._height = Value + End Set + End Property + + Public Property unitlwh() As String + Get + Return Me._unitlwh + End Get + Set + Me._unitlwh = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPackageHead)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPackageHead object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPackageHead object + ''' + ''' string workflow markup to deserialize + ''' Output TPackageHead 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 TPackageHead, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPackageHead) + 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 TPackageHead) 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 TPackageHead + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPackageHead) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPackageHead + Return CType(Serializer.Deserialize(s), TPackageHead) + End Function +#End Region + + ''' + ''' Serializes current TPackageHead 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPackageHead object + ''' + ''' string xml file to load and deserialize + ''' Output TPackageHead 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 TPackageHead, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPackageHead) + 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 TPackageHead) 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 TPackageHead + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPackageLine + +#Region "Private fields" + Private _invNo As String + + Private _invPos As String + + Private _quantity As Decimal + + Private _unit As String + + Private _nWeight As Decimal + + Private _numberOfPackages As Long + + Private _itemQuantity As Long + + Private _itemUnit As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property invNo() As String + Get + Return Me._invNo + End Get + Set + Me._invNo = Value + End Set + End Property + + + Public Property invPos() As String + Get + Return Me._invPos + End Get + Set + Me._invPos = 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 unit() As String + Get + Return Me._unit + End Get + Set + Me._unit = Value + End Set + End Property + + Public Property nWeight() As Decimal + Get + Return Me._nWeight + End Get + Set + Me._nWeight = Value + End Set + End Property + + Public Property numberOfPackages() As Long + Get + Return Me._numberOfPackages + End Get + Set + Me._numberOfPackages = Value + End Set + End Property + + Public Property itemQuantity() As Long + Get + Return Me._itemQuantity + End Get + Set + Me._itemQuantity = Value + End Set + End Property + + Public Property itemUnit() As String + Get + Return Me._itemUnit + End Get + Set + Me._itemUnit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPackageLine)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPackageLine object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPackageLine object + ''' + ''' string workflow markup to deserialize + ''' Output TPackageLine 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 TPackageLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPackageLine) + 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 TPackageLine) 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 TPackageLine + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPackageLine) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPackageLine + Return CType(Serializer.Deserialize(s), TPackageLine) + End Function +#End Region + + ''' + ''' Serializes current TPackageLine 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPackageLine object + ''' + ''' string xml file to load and deserialize + ''' Output TPackageLine 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 TPackageLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPackageLine) + 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 TPackageLine) 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 TPackageLine + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.xsd new file mode 100644 index 0000000..1314919 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.xsd @@ -0,0 +1,3907 @@ + + + + + + + + + Invoice number + Fakturanummer + alternatively delivery note number or UCR, .. + auch Lieferscheinnummer oder UCR + true + String25 + + MIC_ALL_AAVKOP + Aakfaktnr + MIC_AUSKOP + Afkfaktnr + + + + + + + + Invoice date + Fakturadatum + Format: <yyyy-mm-dd>T<hh:mm> + Format: <jjjj-mm-tt>T<hh:mm> + true + Date + + MIC_ALL_AAVKOP + Aakfaktdat + MIC_AUSKOP + Afkfaktdat + + + + + + + + Invoice type + Fakturatyp + + + false + String1..3 + + MIC_ALL_AAVKOP + Aakfakttyp + MIC_AUSKOP + Afkfakttyp + + + + + + + + Invoice value + Gesamtbetrag der Rechnung + + + false + Number(17,4) + + MIC_ALL_AAVKOP + Aakliewert + MIC_AUSKOP + Afkliewert + + + + + + + + Currency (ISO-Code) + Währung (ISO-Code) + + + true + String 3 + + MIC_ALL_AAVKOP + Aakliewae + MIC_AUSKOP + Afkliewae + + + + + + + + Consignee +SAD Field 8 + (Waren) Empfänger +Referenz: EH-Pap. Feld 8 + + Die Daten des Empfängers können etweder auf Fakturakopf oder auf der Position angegeben werden. Beides ist nicht zulässig. Werden die Daten auf dem Fakturakopf angegeben, gilt dieser Empfänger für alle Positionen. + true + + + MIC_ALL_AAVKOP + Aakemp___ + MIC_AUSKOP + Afkemp___ + + + + + + + + Address number in MIC-CUST + Endverwender + + + false + + 0..1 + + + + + + + + + + + + + Address number in MIC-CUST + MIC-CUST Adressnummer + + + true + String1..15 + + MIC_ALL_AAVKOP + Aakeusernr + MIC_AUSKOP + Afkeusernr + + + + + + + + + + + End-user name + Endverwender Name + + + true + String1..40 + 1..3 + MIC_ALL_AAVKOP + Aakeusernm1 + MIC_AUSKOP + Afkeusernm1 + + + + + + + + + + + + + End-user Street and house number + Endverwender Strasse und HausNr + + + true + String1..70 + + MIC_ALL_AAVKOP + Aakeuserstreet + MIC_AUSKOP + Afkeuserstreet + + + + + + + + + + + + + End-user City + Endverwender Ort + + + true + String1..35 + + MIC_ALL_AAVKOP + Aakeusercity + MIC_AUSKOP + Afkeusercity + + + + + + + + + + + + + End-user Country + Endverwender Land + + + true + String2 + + MIC_ALL_AAVKOP + Aakeusercountry + MIC_AUSKOP + Afkeusercountry + + + + + + + + + + + + + End-user ZIP Code + Endverwender PLZ + + + true + String1..9 + + MIC_ALL_AAVKOP + Aakeuserzip + MIC_AUSKOP + Afkeuserzip + + + + + + + + + + + + + End-user participant ID (TIN) + Endverwender TIN + + + false + String1..17 + + MIC_ALL_AAVKOP + Aakeusertin + MIC_AUSKOP + Afkeusertin + + + + + + + + + + + + + End-user EORI + Endverwender EORI + Relevant only if element "EORI" is assigned + + false + String1..17 + + MIC_ALL_AAVKOP + Aakeusereori + MIC_AUSKOP + Afkeusereori + + + + + + + + + + + + + Alternative 3: +National Tin indicator + Alternative 3: +Indikator für Nationale Tin. + if "0" equals addrNatT + set Avpeori = addrTin +else + set Avptin = addrTin + if "0" equals addrNatT + set Avpeori = addrTin +else + set Avptin = addrTin + true + String1 + + + + + + + + + + + + + Branchnumber assigned to EORI + Laufende Nummer der Niederlassung + Relevant only if element <adrNatT> = "2" (EORI-number) + Die Angabe des Datenfeldes ist nur relevant wenn das Datenfeld <addrNatT> mit dem Wert "2" (EORI) angegeben wird. + false + String4 + + MIC_ALL_AAVKOP + Aakeuserbranchno + MIC_AUSKOP + Afkeuserbranchno + + + + + + + + + + + + + + + + Terms of delivery + Lieferbedingung + + + true + + + + + + + + + + + + + + Invoice recipient + Rechungsempfängers + + + true + + + MIC_ALL_AAVKOP + Aakknd___ + MIC_AUSKOP + Afkknd___ + + + + + + + + internal reference + Interne Referenz + + + false + String1..20 + + MIC_ALL_AAVKOP + Aakrefi + MIC_AUSKOP + Afkrefi + + + + + + + + + + + + + trading country + Handelsland + + + false + String..3 + + MIC_ALL_AAVKOP + Aakhald + MIC_AUSKOP + Afkhald + + + + + + + + + + + + + gross weight + Rohmasse + + + false + Number(13,4) + + MIC_ALL_AAVKOP + Aakrohmas + MIC_AUSKOP + Afkrohmas + + + + + + + + net weight + Nettogewicht + + + false + Number(13,4) + + MIC_ALL_AAVKOP + Aakgewsum + MIC_AUSKOP + Afkgewsum + + + + + + + + Additional Cost + Nebenkosten + + + false + + 0..2 + MIC_ALL_AAVKOP + + MIC_AUSKOP + + + + + + + + + bill of lading + Ladeliste + + + false + String0..20 + + MIC_ALL_AAVKOP + Aakbol + MIC_AUSKOP + Afkbol + + + + + + + + transport number (AES US) + Transport Nummer (AES US) + AES US: Required for ocean shipments only + AES US: Nur für Seeverkehr verpflichtend + false + String0..10 + + MIC_ALL_AAVKOP + Aaktranspnr + MIC_AUSKOP + Afktranspnr + + + + + + + + additional text + Zusätzlicher Text + + addText1 wird in AAKINFO gemappt, der Rest wird in AAKTEXT1..4 geladen. + false + String0..80 + 0..5 + MIC_ALL_AAVKOP + Aakinfo, Aaktext1..4 + MIC_AUSKOP + Afkinfo, Afktext1..4 + + + + + + + + Documents +Ref: SAD Paper Field 44 + Unterlagen +Ref: EH-Pap Feld 44 + Note: +Documents can be provided on shipment level, invoice level or invoice line level. Documents provided on shipment level or invoice level are declared on invoice line level to Atlas. + +Condition C1: +Value required for chapter 98 of the CN8 + +Condition C2: +Value required due to individual certificates, authorizations, etc. such as export lizcences, ... + +MIC proposes documents to be provided at invoice line level within the interface as they are reported to ATLAS on invoice line level too. + Anmerkung: +Unterlagen können auf Sendungsebene angegeben werden oder auf Fakturenebene oder auf Positionsebene. +Unterlagen, die auf Sendungsebene oder Fakturenebene angegeben werden, werden an ATLAS für JEDE Position gemeldet (zusätzlich zu Unterlagen auf Positionsebene) + +Bedingung C1: +Erforderlich für Waren der Kapitel 98 + +Bedingung C2: +Hier sind insbesondere Genehmigungen und Bescheinigungen nach den VuB-Vorschriften, MO-Unterlagen/Genehmigungen, Genehmigungen und Bescheinigungen nach der Außenwirtschaftsverordnung und sonstige Unterlagen/Genehmigungen zu vermerken. Besondere Vermerke sind hier ebenfalls in codierter Form anzugeben + +MIC bevorzugt die Angabe der Unterlagen auf Positionsebene, da Atlas grundsätzlich jede Unterlage auf Positionsebene verlangt. + false + + 1..∞ + + + + + + + + + + + + External MRN-Nr + Externe MRN-Nummer + Not relevant for AES + für AES nicht relevant + false + String18 + + + + + + + + + + + + + Number of Packages + Packstück Anzahl + + + false + Number(6) + + MIC_AAVKOP + aakkolanz + MIC_AUSKOP + afkkolanz + + + + + + + + + + + + + + Type of Transport + Transportart + + + false + VARCHAR2(10) + + MIC_AAVKOP + AAKTRANSPTYP + MIC_AUSKOP + AFKTRANSPTYP + + + + + + + + + + + + + Customer Fields + Freie kundenspezifische Felder + + + false + + + MIC_AAVKOP + aak___1..10 (X=10) + MIC_AUSKOP + afk___1..10 (X=10) + + + + + + + + + Invoice Line + + + + + + Invoice line number + Fakturaposition, Lieferscheinposition, etc. +Ref: EH-Pap Feld 32 + Running line number beginning with 1, increment by 1. +No gaps allowed. + Laufende Positionsnummer der Ausfuhranmeldung beginnend bei 1, Inkrement 1. +Keine Lücken erlaubt + true + Number(4) + + MIC_ALL_AAVPOS + Aapfaktpos + MIC_AUSPOS + Afpfaktpos + + + + + + + + Unit Value + Stückpreis + + + false + Number(19,6) + + MIC_ALL_AAVPOS + aappreis + MIC_AUSPOS + Afppreis + + + + + + + + + + + + + + Item value +(Net total price for the item) + Wert der Position +(Netto Gesamtpreis für die Position) + Value of the item. + Wert der Position. + false + Number(16,4) + + MIC_ALL_AAVPOS + Aapwert + MIC_AUSPOS + Afpwert + + + + + + + + Net mass + Eigenmasse +Ref: EH-Pap Feld 38 + Net mass of the invoice line in [kg] + Eigenmasse der Position in [kg] + false + Number(13,4) + + MIC_ALL_AAVPOS + Aapeigmas + MIC_AUSPOS + Afpeigmas + + + + + + + + Gross mass + Rohmasse +Ref: EH-Pap Feld 35 + Gross mass of the invoice line in [kg] + Sofern das Datenfeld "Art der Anmeldung (Überführung)" mit einem der Werte "a", "b", "c", "d", "e", "f", "g" oder "i" angegeben wird, gilt: +⏺ Die Angabe des Datenfeldes ist erforderlich, wenn das Datenfeld "Besondere Umstände" nicht oder mit einem anderen Wert als "E" angegeben wird. +⏺ Die Angabe des Datenfeldes ist erforderlich, wenn nicht sowohl der Ausführer als ggf. auch seine indirekten und direkten Vertreter als zugelassene Wirtschaftsbeteiligte für den Bereich Sicherheit zertifiziert sind. + + false + Number(13,4) + + MIC_ALL_AAVPOS + Aaprohmas + MIC_AUSPOS + Afprohmas + + + + + + + + statistical quantity + + + Menge in statistischer Masseinheit +Ref: EH-Pap Feld 41 + Condition 1: +If CN8 requires provision of statistical values, then the interface must provide values in fields <statQuant>, <statUnit> und <statVal>. + +ALTERNATIVELY the statistical data can be calculated in MIC-CUST. +Prerequisites are +- provision of value for field <item>.<itemnumber> containing existing part number as maintained in MIC-CCS, +- provision of line items <quantity>, <unit> and <unitPrice> +- provision of line items for additional costs <addCosts> being relevant for stat. value +- Maintainance of German tarriff oder at least CN8 in MIC-CCS +- Maintainance of Calculation rules to calculate statistical quantities out of company specific quantities (transformations of units of quantities) + +For stat. Units o.measurm = NAR, NCL or NPR only integer values allowed + Menge für die AH-Statistik in vorgegebener Maßeinheit (z.B. in m² statt in Stück). + +Bedingung 1: +Erfordert der KN8 die Angabe von statistischen Werten, dann sind <statQuant>, <statUnit> und <statVal> in der Schnittstelle anzugeben. + +ALTERNATIV können diese Daten auch in MIC-CUST errechnet werden. Voraussetzung ist dann +- die Belegung von <item>.<itemnumber> mit der in MIC-CCS gepflegten und existierenden Artikelnummer , +- die Belegung der Positionsfelder <quantity>, <unit> und <unitPrice> +- die Belegung der Positions - Zusatzkosten <addCosts> +- die Pflege des DE-Tarifes oder zumindest des KN8 in MIC-CCS +- die Pflege der Umrechnungsfaktoren der firmenspezifischen Maßeinheiten in die statistischen Maßeinheiten + +Enthält im EZT zur angegebenen Warennummer das Feld "Maßeinheit" einen der Werte "NAR", "NCL" oder "NPR", dann ist die Angabe von Nachkommastellen unzulässig + false + Number(13,4) + + MIC_ALL_AAVPOS + Aapbesm + MIC_AUSPOS + Afpbesm + + + + + + + + statistical unit of measurement + Besondere Maßeinheit + according to tarriff + stat. Masseinheit (laut Tarif) + +Bedingung 1: +siehe Feld <statQuant> + false + String0..3 + + MIC_ALL_AAVPOS + Aapbesmeh + MIC_AUSPOS + Afpbesmeh + + + + + + + + Statistical value of invoice line + Statistischer Wert +Ref: EH-Pap Feld 46 + Stat. value (invoice line value + additional costs) + stat. Wert (Lieferwert + alle Nebenkosten) + +Bedingung 1: +Kann in MIC errechnet werden, wenn Positionswert, Zusatzkoste, Frachtkosten und Versicherungskosten mitgeliefert werden + false + Number(13,4) + + MIC_ALL_AAVPOS + Aapstatwert + MIC_AUSPOS + Afpstatwert + + + + + + + + Customs procedure + Zollverfahren +Ref: EH-Pap Feld 37 + 4-digit customs procedure according to bulletin of the SAD +offset1+2: current customs procedure for export +offset3+4: previous customs procedure + 4-stelliges Zollverfahren lt. Merkblatt zum Einheitspapier. +Stellen 1+2: Aktuelles Zollverfahren +Stellen 3+4: Vorangegangenes Zollverfahren + +Gültige Werte (ATLAS Codeliste I0100) + + false + String1..6 + + MIC_ALL_AAVPOS + Aapavcase + MIC_AUSPOS + Afpavcase + + + + + + + + National Procedurecode + Nationaler Verfahrenscode + Codelist: I0100 + Codeliste:I0100 + + false + String3 + + MIC_ALL_AAVPOS + Aapeucode + MIC_AUSPOS + Afpeucode + + + + + + + + Statistical procedure + Statistisches Verfahren + determined by MIC-CUST + ermittelt MIC-CUST + false + String0..5 + + MIC_ALL_AAVPOS + Aapcctr + MIC_AUSPOS + Afpcctr + + + + + + + + + + + + + Nature Of Transaction +Ref: SAD Field 24 + Art des Geschäfts +Ref: EH-Pap Feld 24 + 11 Outright Purchase of Sales +12 Supply for sale on approval +13 Barter Trade (compensation in kind) +14 Personal purchases by travellers +15 Financial leasing +21 Return of goods +22 Replacement of returned goods +23 Replacement (e.g. under warranty) for go +31 Goods delivered under aid programmes ope +32 Other general government-aid deliveries +33 Other aid deliveries (individuals, non-g +41 Before processing under contract +51 After processing under contract +52 After repair and maintenance against pay +53 After repair and maintenance free of cha +61 Hire, loan, operational leasing + + + Gültige Werte (Codeliste A1150) + + 11 Endgültiger Kauf/Verkauf + 12 Ansichts- oder Probesendungen + 13 Kompensationsgeschäfte (Tauschhandel) + 14 Verkauf an ausländische Reisende für deren persönlichen Bedarf + 15 Finanzierungsleasing (Mietkauf) + 21 Rücksendung von Waren + 22 Ersatz für zurückgesandte Waren + 23 Ersatz für nicht zurückgesandte Waren + 31 Warenlieferungen im Rahmen von durch die EU finanzierten Hilfsprogrammen + 32 Andere Hilfslieferungen öffentlicher Stellen + 33 Sonstige Hilfslieferungen + 34 Sonstige Geschäfte + 41 Warensendung zur Lohnveredelung + 51 Warensendung nach Lohnveredelungen + 63 Vorübergehende Warenverkehre + 64 Vorübergehende Warenverkehre + + false + String0..2 + + MIC_ALL_AAVPOS + F + MIC_AUSPOS + Afpgsart + + + + + + + + Origin of goods (ISO-alpha 2 country code) + Warenursprung (ISO Ursprungsland.) + + + false + String0..2 + + MIC_ALL_AAVPOS + Aapurld + MIC_AUSPOS + Afpurld + + + + + + + + + + + + + region of origin + Ursprungsbundesland +Ref: EH-Pap Feld 34.2 + 2-digit code for German regions, 99 for foreign county of origin + +Codelist: A1270 +01 Schleswig-Holstein +02 Hamburg +03 Niedersachsen +04 Bremen +05 Nordrhein-Westfalen +06 Hessen +07 Rheinland-Pfalz +08 Baden-Württemberg +09 Bayern +10 Saarland +11 Berlin +12 Brandenburg +13 Mecklenburg-Vorpommern +14 Sachsen +15 Sachsen-Anhalt +16 Thüringen 25 Für das Ausland bestimmt +99 Ursprungsausland + Code deutsches Ursprungsbundesland + +Gültige Werte: A1270 + 01 Schleswig-Holstein + 02 Hamburg + 03 Niedersachsen + 04 Bremen + 05 Nordrhein-Westfalen + 06 Hessen + 07 Rheinland-Pfalz + 08 Baden-Württemberg + 09 Bayern + 10 Saarland + 11 Berlin + 12 Brandenburg + 13 Mecklenburg-Vorpommern + 14 Sachsen + 15 Sachsen-Anhalt + 16 Thüringen 25 Für das Ausland bestimmt + 99 Ursprungsausland + false + String0..50 + + MIC_ALL_AAVPOS + Aapregion + MIC_AUSPOS + Afpregion + + + + + + + + + + + + + Infofield + Infofeld + AddText1 will be mapped in Aapinfo, the rest will be mapped in Aaptext1..4 + AddText1 wird in Aaoinfo geladen, die restlichen 4 in AapText1..4 + false + String0..80 + 0..5 + MIC_ALL_AAVPOS + Aapinfo(1), AapText1..4 + MIC_AUSPOS + Afpinfo(1), AfpText1..4 + + + + + + + + + + + + + Previous document + Vorpapier + + + false + + 0..9 + + + + + + + + + + + + Part data + Artikeldaten + + + false + + + + + + + + + + + + + + Documents +Ref: SAD Paper Field 44 + Unterlagen +Ref: EH-Pap Feld 44 + Note: +Documents can be provided on shipment level, invoice level or invoice line level. Documents provided on shipment level or invoice level are declared on invoice line level to Atlas. + +Condition C1: +Value required for chapter 98 of the CN8 + +Condition C2: +Value required due to individual certificates, authorizations, etc. such as export lizcences, ... + +MIC proposes documents to be provided at invoice line level within the interface as they are reported to ATLAS on invoice line level too. + Anmerkung: +Unterlagen können auf Sendungsebene angegeben werden oder auf Fakturenebene oder auf Positionsebene. +Unterlagen, die auf Sendungsebene oder Fakturenebene angegeben werden, werden an ATLAS für JEDE Position gemeldet (zusätzlich zu Unterlagen auf Positionsebene) + +Bedingung C1: +Erforderlich für Waren der Kapitel 98 + +Bedingung C2: +Hier sind insbesondere Genehmigungen und Bescheinigungen nach den VuB-Vorschriften, MO-Unterlagen/Genehmigungen, Genehmigungen und Bescheinigungen nach der Außenwirtschaftsverordnung und sonstige Unterlagen/Genehmigungen zu vermerken. Besondere Vermerke sind hier ebenfalls in codierter Form anzugeben + +MIC bevorzugt die Angabe der Unterlagen auf Positionsebene, da Atlas grundsätzlich jede Unterlage auf Positionsebene verlangt. + false + + 1..∞ + + + + + + + + + + + + + + + + false + + 0..1 + + + + + + + + + + + + + + + + + true + String 3 + + MIC_ALL_AAVPOS + Aapalicode + MIC_AUSPOS + Afpalicode + + + + + + + + + + + + + + + + + + false + String0..35 + + MIC_ALL_AAVPOS + Aapalibez + MIC_AUSPOS + Afpalibez + + + + + + + + + + + + + + + + + Quantity + Menge + + + false + Number(13,4) + + MIC_ALL_AAVPOS + Aapmenge + MIC_AUSPOS + Afpmenge + + + + + + + + Unit of measurement + Mengeneinheit + + + false + String1..3 + + MIC_ALL_AAVPOS + Aapmeh + MIC_AUSPOS + Afpmeh + + + + + + + + + + + + + Delivery note + Lieferschein + + + false + + 1 + + + + + + + + + + + + Order + Bestellung + + + false + + 1 + + + + + + + + + + + + item reference + Artikelreferenz + + + false + String0..20 + + + + + + + + + + + + + + + + + + Additional cost invoice line leve + Nebenkosten Postion + + + false + + 0..2 + MIC_ALL_AAVPOS + + + + + + + + + + + Addition for tarriff number + Zusatzcode zur Tarifnummer. + + + false + String0..4 + 0..3 + MIC_ALL_AAVPOS + Aapzuscd1-3 + MIC_AUSPOS + Afpzuscd1-3 + + + + + + + + + + + National addition for tarriff number + nationaler Zusatzcode zur Tarifnummer. + + + false + String0..4 + 0..4 + + + + + + + + + + + + + + + stock type + Bestandsart + Stocktype of income + Bestandsart der Zubuchung + false + String0..20 + + MIC_ALL_AAVPOS + Aapbestart1 + MIC_AUSPOS + Afpbestart1 + + + + + + + + + + + + + stock type + Bestandsart + Stocktype of deduction + Bestandsart der Abbuchung + false + String0..20 + + MIC_ALL_AAVPOS + Aapbestart2 + MIC_AUSPOS + Afpbestart2 + + + + + + + + + + + + + Stücklisten + Stücklisten + + + false + + 1 + + + + + + + + + + + + Kontonummer + Kontonummer + + + false + String0..50 + + MIC_ALL_AAVPOS + Aapkonto + MIC_AUSPOS + Afpkonto + + + + + + + + Customer Fields + Freie kundenspezifische Felder + + + false + + + MIC_ALL_AAVPOS + aap___1..15 (X=15) + MIC_AUSPOS + afp___1..15 (X=15) + + + + + + + + Attribute Position + Attribute Position + + + false + + 1..∞ + + + + + + + + + + + + Container Position + Container Position + + + false + + 1..∞ + + + + + + + + + + + + Shipmend-Identification + Kennnummer der Sendung + Unique Identificationnumber of the shipment. The data field is invalid, if the identificationnumber is already entered on shipmentlevel + Eindeutige Identifikation der Sendung, wie beispielsweise die UCR oder eine Frachtpapiernummer + false + String1..70 + + MIC_ALL_AAVPOS + Aapsdgkennnr + MIC_AUSPOS + Afpsdgkennnr + + + + + + + + + + + + + Number of dangerous goods + Gefahrgutnummer + The UN Dangerous Goods number is a unique four-digit serial number, which the United Nations in a list of the most commonly carried dangerous goods assigned. + Die UN-Gefahrgutnummer ist eine eindeutige vierstellige Seriennummer, die die Vereinten Nationen den in einer Liste der am häufigsten beförderten Gefahrgüter enthaltenen Stoffen und Artikeln zuweisen. + false + String1..4 + + MIC_ALL_AAVPOS + Aapgefahrnr + MIC_AUSPOS + Afpgefahrnr + + + + + + + + + + + + + + + + + false + String1 + + MIC_ALL_AAVPOS + Aapenduserid + MIC_AUSPOS + Afpenduserid + + + + + + + + + + + + + 1 wenn die Adressatenkonstellation und ggf. der Endverwender in der EAM übermittelt werden soll. + 1 wenn die Adressatenkonstellation und ggf. der Endverwender in der EAM übermittelt werden soll. + "0" or "1" + "0" oder "1" + false + Integer(1) + + MIC_ALL_AAVPOS + Aapsendenduserineam + MIC_AUSPOS + Afpsendenduserineam + 0 + + + + + + + + + + + + + + + carriage costs + Beförderungskosten (Zahlungsweise) + The data field is invalid if the carriage costs were already entered on shipment level + Die Angabe des Datenfeldes ist unzulässig, wenn das Datenfeld bereits auf der Sendungsebene eingeben wurden. + false + String1 + + MIC_ALL_AAVPOS + Aapbefkosten + MIC_AUSPOS + Afpbefkosten + + + + + + + + (goods) Consignee +SAD Field 8 + (Waren) Empfänger +Referenz: EH-Pap. Feld 8 + + + true + + 0..1 + + + + + + + + + + + + + Address number in MIC-CUST + MIC-CUST Adressnummer + + + true + String1..15 + + MIC_ALL_AAVPOS + Aapempnr + MIC_AUSPOS + Afpempnr + + + + + + + + + + + Consignee name + Empfänger Name + + + false + String1..40 + 0..3 + MIC_ALL_AAVPOS + Aapempname (Substr(Addrname1..4), 1, 40) + MIC_AUSPOS + Afpempname (Substr(Addrname1..4), 1,, 40) + + + + + + + + + + + Street and house number + Empfänger Strasse und HausNr + + + false + String1..80 + + MIC_ALL_AAVPOS + Aapempstr + MIC_AUSPOS + Afpempstr + + + + + + + + + + + City + Empfänger Ort + + + false + String1..35 + + MIC_ALL_AAVPOS + Aapemport + MIC_AUSPOS + Afpemport + + + + + + + + Country + Empfänger Land + + + false + String3 + + MIC_ALL_AAVPOS + Aapempld + MIC_AUSPOS + Afpempld + 1 + + + + + + + + + + + + + + + + false + String1..10 + + + + + + CT + + + + + + + Region + Empfänger PLZ + + + false + String1..10 + + MIC_ALL_AAVPOS + Aapempplz + MIC_AUSPOS + Afpempplz + + + + + + + + + + + TIN (participant ID in ATLAS) + Empfänger TIN + + + false + String1..17 + + MIC_ALL_AAVPOS + Aapemptin + MIC_AUSPOS + Afpemptin + 1234567890 + + + + + + + + + + EORI + EORI + + + false + String..17 + + MIC_ALL_AAVPOS + Aapempeori + MIC_AUSPOS + Afpempeori + + + + + + + + + + + + + Alternative 3: +National Tin indicator + Alternative 3: +Indikator für Nationale Tin. + if "0" equals addrNatT + set Avpeori = addrTin +else + set Avptin = addrTin + if "0" equals addrNatT + set Avpeori = addrTin +else + set Avptin = addrTin + false + String1 + + + + + + + + + + + + + Branchnumber assigned to EORI + Laufende Nummer der Niederlassung + Relevant only if element <adrNatT> = "2" (EORI-number) + Die Angabe des Datenfeldes ist nur relevant wenn das Datenfeld <addrNatT> mit dem Wert "2" (EORI) angegeben wird. + false + String4 + + MIC_ALL_AAVPOS + Aapempbranchno + MIC_AUSPOS + Afpempbranchno + + + + + + + + + + + + + + + + + false + String1 + + + + + + + + + + + + + + Ansprechpartner + + Kontaktdaten des beauftragten Sachbearbeiter + false + + 1 + + + + + + + + + + + + + + + + Endverwender + + + false + + 0..1 + + + + + + + + + + + + + Address number in MIC-CUST + MIC-CUST Adressnummer + + + true + String1..15 + + MIC_ALL_AAVPOS + Aapeusernr + MIC_AUSPOS + Afpeusernr + + + + + + + + + + + End-user name + Endverwender Name + + + true + String1..40 + 1..3 + MIC_ALL_AAVPOS + Aapeusernm1 + MIC_AUSPOS + Afpeusernm1 + AESTEST001 + + + + + + + + + + + + Street and house number + Endverwender Strasse und HausNr + + + true + String1..70 + + MIC_ALL_AAVPOS + Aapeuserstreet + MIC_AUSPOS + Afpeuserstreet + 1 + + + + + + + + + + + + City + Endverwender Ort + + + true + String1..35 + + MIC_ALL_AAVPOS + Aapeusercity + MIC_AUSPOS + Afpeusercity + 1 + + + + + + + + + + + + Country + Endverwender Land + + + true + String2 + + MIC_ALL_AAVPOS + Aapeusercountry + MIC_AUSPOS + Afpeusercountry + + + + + + + + + + + + + Region + Endverwender PLZ + + + true + String1..9 + + MIC_ALL_AAVPOS + Aapeuserzip + MIC_AUSPOS + Afpeuserzip + + + + + + + + + + + + + TIN (participant ID in ATLAS) + Endverwender TIN + + + false + String1..17 + + MIC_ALL_AAVPOS + Aapeusertin + MIC_AUSPOS + Afpeusertin + + + + + + + + + + + + + EORI + EORI + + + false + String..17 + + MIC_ALL_AAVPOS + Aapeusereori + MIC_AUSPOS + Afpeusereori + + + + + + + + + + + + + Alternative 3: +National Tin indicator + Alternative 3: +Indikator für Nationale Tin. + Relevant only if element "EORI" is assigned + if "0" equals addrNatT + set Avpeori = addrTin +else + set Avptin = addrTin + false + String1 + + + + + + + + + + + + + Branchnumber assigned to EORI + Laufende Nummer der Niederlassung + Relevant only if element <adrNatT> = "2" (EORI-number) + Die Angabe des Datenfeldes ist nur relevant wenn das Datenfeld <addrNatT> mit dem Wert "2" (EORI) angegeben wird. + false + String4 + + MIC_ALL_AAVPOS + Aapeuserbranchno + MIC_AUSPOS + Afpeuserbranchno + + + + + + + + + + + + + + + + IPR and BWH Import Reference + AV und ZL Beendigungsanteile + + + false + + 0..999 + + + + + + + + + + + + Registration information + Informationen zur Registrierung + + + false + + 1 + + + + + + + + + + + + Serial Number + Seriennummer + AES US: VIN / Produkt ID Number + AES US: VIN / Produkt ID Nummer + false + String1..400 + + MIC_ALL_AAVPOS + Aapsernr + MIC_AUSPOS + Afpsernr + + + + + + + + + + + + + Reference Value + Referenz Wert + + + false + Number(18,6) + + MIC_ALL_AAVPOS + AAPREFWERT + MIC_AUSPOS + AFPREFWERT + + + + + + + + + + + + + + Model + Modell + + + false + String1..400 + + MIC_ALL_AAVPOS + AAPMODEL + MIC_AUSPOS + AFPMODEL + + + + + + + + + + + + + + Brand + Marke + + + false + String1..400 + + MIC_ALL_AAVPOS + AAPBRAND + MIC_AUSPOS + AFPBRAND + + + + + + + + + + + + + + Added Value + Zusätzlicher Wert + + + false + Number(17,4) + + MIC_ALL_AAVPOS + AAPADDEDVALUE + MIC_AUSPOS + AFPADDEDVALUE + + + + + + + + + + + + + + CTO ID + CTO ID + + + false + String1..41 + + MIC_ALL_AAVPOS + AAPGTCTOID + MIC_AUSPOS + AFPGTCTOID + + + + + + + + + + + + + + Information 2 + Information 2 + + + false + String1..80 + + MIC_ALL_AAVPOS + AAPINFO2 + MIC_AUSPOS + AFPINFO2 + + + + + + + + + + + + + + + + + + false + + + + + + + + + + + + + + + + + + + + + + + + false + + + + + + + + + + + + + + Tracking Number + Nachverfolgungsnummer + + + false + String1..50 + + MIC_ALL_AAVPOS + AAPTRACKINGNR + MIC_AUSPOS + AFPTRACKINGNR + + + + + + + + + + + + + + ERP Specific Data + ERP spezifische Daten + + + false + + + + + + + + + + + + + + + documents + + + + + + Documentnumber (Reference) + Unterlagennummer (Referenz) + Condition C1: Value required/allowed if required by Atlas Codelist I0134 (Column Referenz = R) + Bedingung C1: Die Angabe des Datenfeldes ist erforderlich und nur zulässig, wenn die Atlas Codeliste I0134 zu dem Unterlagentyp eine Referenz verlangt. (Spalte Referenz) + false + String1..35 + + MIC_EINSDGDOC + Esdnr + MIC_EINSDGDOC + Esdnr + + + + + + + + + + + + + + Date of issue + Ausstellungsdatum + Condition C1: Value required/allowed if required by Atlas Codelist I0134 (Column Ausstellung = R) + Bedingung C1: Die Angabe des Datenfeldes ist erforderlich und nur zulässig, wenn die Atlas Codeliste I0134 zu dem Unterlagentyp ein Ausstellungsdatum verlangt. (Spalte Ausstellung) + false + Xs:date + + MIC_EINSDGDOC + Esddat + MIC_EINSDGDOC + Esddat + + + + + + + + Documenttype + Unterlagentyp + LOV: - Atlas Codeliste I0134: +https://www.ausfuhr.internetzollanmeldung.de/ffw240/action/invoke.do?id=CODELISTEN + Gültige Werte - Atlas Codeliste I0134: +https://www.ausfuhr.internetzollanmeldung.de/ffw240/action/invoke.do?id=CODELISTEN + true + String1..6 + + MIC_EINSDGDOC + Esdart + MIC_EINSDGDOC + Esdart + + + + + + + + + + + + + + Documenttype Qualifier + Qualifikator des Unterlagentyps + Condition C1: Value required/allowed if required by Atlas Codelist I0134 (Column Qualilfikator = value of Column) + Bedingung C1: Die Angabe des Datenfeldes ist erforderlich und nur zulässig, wenn die Atlas Codeliste I0134 zu dem Unterlagentyp eine Qualifikation verlangt. (Spalte Qualifikator) + false + String1..3 + + MIC_EINSDGDOC + Esdqual + MIC_EINSDGDOC + Esdqual + + + + + + + + + + + + + + Date valid from + Unterlage ist gültig von ... + Not relevant for AES + für AES nicht relevant + false + Xs:date + + MIC_EINSDGDOC + Esdavaildat + MIC_EINSDGDOC + Esdavaildat + + + + + + + + Date valid to + Gültigkeitsendedatum + Condition C1: Value required/allowed if required by Atlas Codelist I0134 (Column Gültigkeitsende= R) + Bedingung C1: Die Angabe des Datenfeldes ist erforderlich und nur zulässig, wenn die Atlas Codeliste I0134 zu dem Unterlagentyp ein Gültigkeitsendedatum verlangt. (Spalte Gültigkeitsende) + false + Xs:date + + MIC_EINSDGDOC + Esdenddat + MIC_EINSDGDOC + Esdenddat + + + + + + + + Additional text + Zusatztext für die Unterlage (Zusatz) + Condition C1: Value required/allowed if required by Atlas Codelist I0134 (Column Zusatz = R) + Bedingung C1: Die Angabe des Datenfeldes ist erforderlich und nur zulässig, wenn die Atlas Codeliste I0134 zu dem Unterlagentyp einen Zusatz verlangt. (Spalte Zusatz) + false + String1..35 + + MIC_EINSDGDOC + Esdinfo + MIC_EINSDGDOC + Esdinfo + + + + + + + + + + + + + + Quantity + Menge + + + false + Number(13,3) + + MIC_EINSDGDOC + Esdmenge + MIC_EINSDGDOC + Esdmenge + + + + + + + + Unit of measurement + Mengeneinheit + + + false + String1..3 + + MIC_EINSDGDOC + Esdmeh + MIC_EINSDGDOC + Esdmeh + + + + + + + + + + + + + Unit of measurement + Details + Detailinformation about referenced document + Detailangaben zu einem referenzierten Dokument + false + String1..10 + + MIC_EINSDGDOC + Esddetail + MIC_EINSDGDOC + Esddetail + + + + + + + + + + + + + + Value + Wert + Export value of the item, specified by the document is approved. +Commodity value, based on the export permit or export license should be written off. + Ausfuhrwert desjenigen Anteils an der Warenposition, der durch die angegebene Unterlage genehmigt wird. +Warenwert, der auf der Ausfuhrgenehmigung bzw. Ausfuhrlizenz abgeschrieben werden soll. + false + Number(16,6) + + MIC_EINSDGDOC + Esdwert + MIC_EINSDGDOC + Esdwert + + + + + + + + + + + + + + Unit of measurement + Maßeinheit + Unit of measurement of the deduction quantity + Maßeinheit für die Abschreibungsmenge + false + String1..10 + + MIC_EINSDGDOC + Esdabmeh + MIC_EINSDGDOC + Esdabmeh + + + + + + + + + + + + + + Quantity of deduction + Abschreibungsmenge + There are only integer values allowed if the data field "unit" with a value of "Los", "Mio", "Paar", "Satz", "St" or "Syst" + Ausfuhrmenge desjenigen Anteils an der Warenposition, der durch die angegebene Unterlage genehmigt wird. + +Es sind nur ganzzahlige Werte erlaubt, wenn das Datenfeld "Maßeinheit" mit einem der Werte "Los", "Mio", "Paar", "Satz", "St" oder "Syst" angegeben wird. + false + Number(12,3) + + MIC_EINSDGDOC + Esdabmenge + MIC_EINSDGDOC + Esdabmenge + + + + + + + + + + + + + + + + + + false + String1..15 + + MIC_EINSDGDOC + Esdausstellernr + MIC_EINSDGDOC + Esdausstellernr + + + + + + + + + + + + + + + + + + false + String1..8 + + MIC_EINSDGDOC + Esdbereich + MIC_EINSDGDOC + Esdbereich + + + + + + + + + + + + + + + previous document + + + + + + Previous document type + Vorpapiertyp + If a previous document is used, the type of the previous document must be entered here, else "ohne". + Wird ein Vorpapier verwendet, muss der Typ des Vorpapiers hier eingetragen werden ansonsten "ohne" + true + String0..6 + + MIC_ALL_AAVEXPDOC + ACPTYP + MICCUSTEXPDOC + EPCTYP + + + + + + + + + + + + + Previous document number + Vorparpiernummer + If a previous document is used, the number of the previous document must be entered here. + Wenn ein Vorpapier vorliegt, muss die Vorpapiernummer hier eingetragen werden. + true + String0..35 + + MIC_ALL_AAVEXPDOC + ACPREFERENZ + MICCUSTEXPDOC + EPCREFERENZ + + + + + + + + + + + + + Infotext + Infotext + If a previous document is used, additional information can be entered here. + Wenn ein Vorpapier vorliegt, können hier zusätzliche Angaben gemacht werden. + false + String0..26 + + MIC_ALL_AAVEXPDOC + ACPZUSATZ + MICCUSTEXPDOC + EPCZUSATZ + + + + + + + + + + + + + Previous document category + Vorpapier Dokumentkategorie + If a previous document is used, document category can be entered here. + Wenn ein Vorpapier vorliegt, können hier die Dokumentkategorie angeben + false + String0..1 + + MIC_ALL_AAVEXPDOC + ACPKATEGORIE + MICCUSTEXPDOC + EPCKATEGORIE + + + + + + + + + + + + + + seal + + + + + + Encodes declaration of the type of the installed seals. + Verschlüsselte Angabe der Art der angebrachten Verschlüsse + P = Packverschluss +R = Raumverschluss + P = Packverschluss +R = Raumverschluss + false + String1..4 + + MIC_CUST_AVSEALS + Saatype + MIC_CUST_SEALS + Seatype + + + + + + + + + + + + + Number of installed seals. + Anzahl der angebrachten Verschlüsse + + + false + number(4) + + MIC_CUST_AVSEALS + Saacnt + MIC_CUST_SEALS + Seacnt + + + + + + + + + + + + + sign of seal + Zeichen eines Verschlusses +Ref: EH-Pap Feld D + If there are many seals with a serial number (e.g. Tyden-Seals) used, then enter them with a continous number. On the authorities accompanying document is only the first and the last number printed. + Werden mehrere mit einer Seriennummer versehene Verschlüsse (z.B. Tyden-Seals) verwendet, so sind diese mit fortlaufender Nummerierung einzutragen. Auf dem Begleitdokument der Behörden wird jedoch nur die erste und letzte dieser Nummern ausgedruckt + false + String1..20 + + MIC_CUST_AVSEALS + Saatext, Saaidnt + MIC_CUST_SEALS + Seatext, Seaidnt + e + + + + + + + + + + + + + + Container + + + + + + Containe rnumber + Containernummer + If the container code is set and the container is not yet entered at shipment level, this must be done for every invoice line separately + Wurde das Containerkennzeichen gesetzt und der Container nicht bereits auf der Sendung eingetragen, muss diese für jede Position gemeldet werden. + true + String1..17 + + MIC_CUST_AVCONT + Coacontnr + MIC_CUST_CONT + Concontnr + + + + + + + + + + + + + + Containertyp (z.b. 40F) + Containertyp (z.b. 40F) + + + false + String1..3 + + + + + + + + + + + + + + + + + + Container Seal Number + Kontainer Verschlussnummer + + + false + String1..20 + + MIC_CUST_AVCONT + COASEALNR + MIC_CUST_CONT + CONSEALNR + + + + + + + + + + + + + + registration information + + + + + + Registration number 1 + Registriernummer 1 + + + false + String1..35 + + MIC_ALL_AAVPOS + Aapmessregnr + MIC_AUSPOS + APFMESSREGNR + + + + + + + + + + + + + Registration number 2 + Registriernummer 2 + + + false + String1..35 + + MIC_ALL_AAVPOS + Aapmessregnr2 + MIC_AUSPOS + Afpmessregnr2 + + + + + + + + + + + + + Registration number 3 + Registriernummer 3 + + + false + String1..35 + + MIC_ALL_AAVPOS + Aapmessregnr3 + MIC_AUSPOS + Afpmessregnr3 + + + + + + + + + + + + + Reference number 1 + Referenznummer 1 + + + false + String1..22 + + MIC_ALL_AAVPOS + Aapmessrefnr + MIC_AUSPOS + Afpmessrefnr + + + + + + + + + + + + + Reference number 2 + Referenznummer 2 + + + false + String1..52 + + MIC_ALL_AAVPOS + Aapmessrefnr2 + MIC_AUSPOS + Afpmessrefnr2 + + + + + + + + + + + + + Reference number 3 + Referenznummer 3 + + + false + String1..22 + + MIC_ALL_AAVPOS + Aapmessrefnr3 + MIC_AUSPOS + Afpmessrefnr3 + + + + + + + + + + + + + Registration date + Datum der Entgegennahme + + + false + Xs:date + + MIC_ALL_AAVPOS + Aapentgegennahmedat + MIC_AUSPOS + Afpentgegennahmedat + + + + + + + + Acceptance date + Datum der Annahme + + + false + Xs:date + + MIC_ALL_AAVPOS + Aapannahmedat + MIC_AUSPOS + Afpannahmedat + + + + + + + + Release date + Datum der Überlassung + + + false + Xs:date + + MIC_ALL_AAVPOS + Aapueberlassdat + MIC_AUSPOS + Afpueberlassdat + + + + + + + + + + + + + + + + true + + 1 + + + + + + + + + + + + + + + + true + + 0..999 + + + + + + + + + + + + + + + + + + + + + + + + + + + + Packages of the shipment + + + + + + Package Header + Packstück Kopf + + Packstücknummer, die auch auf dem Packstück angedruckt ist. Zöllner muss die Möglichkeit haben, das Packstück zu finden. + +Option 1: Je Packstück ein Eintrag: Angabe 1 Kollinummer +Option 2: Je Packstückart ein Eintrag. Angabe aller Kollinummern (Bereich NrVon - NrBis erlaubt). + Beispiel siehe 'Packing example 1' Reiter +Option 3: Beipacklogik - ist Packstückartübergreifend erlaubt, d.h. der Packstückheader enthält eine korrekte Packstückart + Beispiel siehe 'Packing example 2' Reiter +Achtung Aufbau der Packstückangaben am AES Ausfuhrbegleitdokument (ABD) ist völlig unterschieldich zum EH-Papier + true + + + + + + + + + + + + + + Package details + Packstück Positionen + Number of packages +"0" for 'Beipack' positions + Anzahl der Packstücke. +"0" für Beipackpositionen + false + + + + + + + + + + + + + + + Package Header + + + + + + package number + Fortlaufende Nummer des Packstücks. + + + true + String1..35 + + MIC_ALL_AAVKOLLI + AALPCKNR and AALVENUM (if packageNoExt = Null) + MIC_AUSKOLLI + AKOPCKNR (AALPCKNR) and AKOSIGNO (AALVENUM) + + + + + + + + + + + + + + package type + Verpackungstyp + + + true + String 1..3 + + MIC_ALL_AAVKOLLI + Aalart + MIC_AUSKOLLI + Akoart + + + + + + + + + + + + + + unit of measurement + Einheit + + + false + String 1..3 + + + + + + + + + + + + + + + + + + external package no + Packstücknummer, Kollinummer +Ref: EH-Pap Feld 31 + + + false + String 1..42 + + MIC_ALL_AAVKOLLI + Aalvenum + MIC_AUSKOLLI + Akosigno + + + + + + + + + + + + + + gross weight + Rohmasse d. Packstücks in [kg] + + + false + Number(18,3) + + MIC_ALL_AAVKOLLI + Aalbtgew + MIC_AUSKOLLI + Akorohmas + + + + + + + + net weight + Eigenmasse d. Packstücks in [kg] + + + false + Number(18,3) + + MIC_ALL_AAVKOLLI + Aalntgew + MIC_AUSKOLLI + Akoeigmas + + + + + + + + tara weight + Gewicht der Verpackung + + + false + Number(18,3) + + MIC_ALL_AAVKOLLI + Aaltarag + MIC_AUSKOLLI + Akotara + + + + + + + + unit of weight + Gewichtseinheit + + + false + String 1..3 + + MIC_ALL_AAVKOLLI + Aalgewei + MIC_AUSKOLLI + Akogewei + + + + + + + + + + + + + Package Volume (Tare) + Packstück Volumen (Tara) + + + false + Number(18,3) + + MIC_ALL_AAVKOLLI + AALTAVOL + MIC_AUSKOLLI + Akotavol + + + + + + + + Package Gross Volume + Packstück Brutto Volumen + + + false + Number(18,3) + + MIC_ALL_AAVKOLLI + AALBTVOL + MIC_AUSKOLLI + Akobtvol + + + + + + + + Package Net Volume + Packstück Netto Volumen + + + false + Number(18,3) + + MIC_ALL_AAVKOLLI + AALNTVOL + MIC_AUSKOLLI + Akontvol + + + + + + + + unit of volume + Volumeneinheit + + + false + String 1..3 + + MIC_ALL_AAVKOLLI + Aalvoleh + MIC_AUSKOLLI + Akovoleh + + + + + + + + length of package + Länge + + + false + Number 18,3 + + MIC_ALL_AAVKOLLI + AALLAENG + MIC_AUSKOLLI + Akolaenge + + + + + + + + width of package + Breite + + + false + Number(18,3) + + MIC_ALL_AAVKOLLI + Aalbreit + MIC_AUSKOLLI + Akobreite + + + + + + + + height of package + Höhe + + + false + Number(18,3) + + MIC_ALL_AAVKOLLI + Aalhoehe + MIC_AUSKOLLI + Akohoehe + + + + + + + + unit of length width, height + Einheit + + Faktura Positionsnummer, deren Inhalt im Kolli enthalten ist + false + String 1..3 + + MIC_ALL_AAVKOLLI + AALMEABM + MIC_AUSKOLLI + Akomeabm + + + + + + + + + Package details + + + + + + invoice number + zugehörige Faktura + invoice number of content in package + Fakturanummer, deren Inhalt im Kolli enthalten ist + true + String1..30 + + MIC_ALL_AAVINHALT + Aaifaktnr + MIC_AUSINHALT + Akifaktnr + + + + + + + + invoice line + zugehörige Fakturaposition + + Faktura Positionsnummer, deren Inhalt im Kolli enthalten ist + true + Number(4) + + MIC_ALL_AAVINHALT + Aaifaktpos + MIC_AUSINHALT + Akifaktpos + + + + + + + + quantity + Anzahl der Packstücke + + Anzahl der Packstücke. +"0" für Beipackpositionen + false + Number(13,4) + + MIC_ALL_AAVINHALT + MIC_ALL_AAVKOLLI + Aaivemng + Aalanzar + MIC_AUSINHALT + MIC_AUSKOLLI + Akimenge + Akoanzar + + + + + + + + unit of quantity + Einheit + + + false + String 1..3 + + MIC_ALL_AAVINHALT + Aaivemeh + MIC_AUSINHALT + Akimeh + + + + + + + + + + + + + net weight + Eigenmasse + + + false + Number(13,4) + + MIC_ALL_AAVINHALT + Aaintgew + MIC_AUSINHALT + Akieigmas + + + + + + + + number of packages + Anzahl der Packstücke + when filled, used instead of quantity for Akoanzar + wenn befüllt, statt quantity für Akoanzar verwendet + false + Number(15,0) + + MIC_ALL_AAVINHALT + Aaianzar + MIC_AUSKOLLI + Akoanzar + + + + + + + + + + + + + number of items per package + Anzahl Artikel pro Packstück + + + false + Number(15,0) + + MIC_ALL_AAVINHALT + Aaiitemquantity + MIC_AUSKOLLI + Akoitemquantity + + + + + + + + + + + + + unit of items per package + Einheit der Artikel pro Packstück + + + false + String 1..3 + + MIC_ALL_AAVINHALT + Aaiitemunit + MIC_AUSKOLLI + Akoitemunit + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.Designer.vb new file mode 100644 index 0000000..c53b532 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.Designer.vb @@ -0,0 +1,2348 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' MIC_EXPORT_ShipmentListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic +Imports VERAG_PROG_ALLGEMEIN.MIC_EXPORT_Basic +Imports VERAG_PROG_ALLGEMEIN.MIC_EXPORT_Components +Imports VERAG_PROG_ALLGEMEIN.MIC_EXPORT_InvoiceTypes + + + +Namespace MIC_EXPORT_Shipment + + + Partial Public Class ExportShipment + +#Region "Private fields" + Private _shipmentHead As TShipmentHead + + Private _invoices As List(Of TInvoice) + + Private _packages As List(Of TPackageHead) + + Private _schemaVersion As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._packages = New List(Of TPackageHead)() + Me._invoices = New List(Of TInvoice)() + Me._shipmentHead = New TShipmentHead() + End Sub + + Public Property ShipmentHead() As TShipmentHead + Get + Return Me._shipmentHead + End Get + Set + Me._shipmentHead = Value + End Set + End Property + + + Public Property Invoices() As List(Of TInvoice) + Get + Return Me._invoices + End Get + Set + Me._invoices = Value + End Set + End Property + + + Public Property Packages() As List(Of TPackageHead) + Get + Return Me._packages + End Get + Set + Me._packages = Value + End Set + End Property + + + Public Property schemaVersion() As Decimal + Get + Return Me._schemaVersion + End Get + Set + Me._schemaVersion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ExportShipment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ExportShipment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ExportShipment object + ''' + ''' string workflow markup to deserialize + ''' Output ExportShipment 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 ExportShipment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ExportShipment) + 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 ExportShipment) 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 ExportShipment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ExportShipment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ExportShipment + Return CType(Serializer.Deserialize(s), ExportShipment) + End Function +#End Region + + ''' + ''' Serializes current ExportShipment 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ExportShipment object + ''' + ''' string xml file to load and deserialize + ''' Output ExportShipment 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 ExportShipment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ExportShipment) + 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 ExportShipment) 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 ExportShipment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TShipmentHead + +#Region "Private fields" + Private _company As String + + Private _plant As String + + Private _shipmentId As String + + Private _shipmentIdPart As String + + Private _shipmentType As String + + Private _mrn As String + + Private _deliveryDate As Date + + Private _cod As String + + Private _exportCountry As String + + Private _contCode As ContainerCode + + Private _gWeight As Decimal + + Private _dateStartPack As Date + + Private _dateEndPack As Date + + Private _partyConst As String + + Private _consigneeEndUserFlag As String + + Private _endUserInEam As TShipmentHeadEndUserInEam + + Private _estimatedArrivalDate As Date + + Private _nctsIndicator As Boolean + + Private _motInl As TMotInl + + Private _text As List(Of String) + + Private _partners As List(Of TPartner) + + Private _locGoods As TLocationOfGoods + + Private _officeDepart As TCustomsOffice + + Private _officeBorder As TCustomsOffice + + Private _motBorder As TMot + + Private _seals As List(Of TSeal) + + Private _declType As TDeclType + + Private _placeDest As String + + Private _authLocation As String + + Private _declPlace As String + + Private _agreedLocationOfGoodsCd As String + + Private _agreedLocationOfGoods As String + + Private _custSubPlace As String + + Private _codFirst As String + + Private _officeDest As TCustomsOffice + + Private _carrier As String + + Private _containers As List(Of TContainer) + + Private _freightCost As TFreight + + Private _addCosts As List(Of TAddCosts) + + Private _assurCost As TAssurance + + Private _groupID As String + + Private _documents As List(Of TDocuments) + + Private _regNoExt As String + + Private _customerFields As TCustomerFields + + Private _attributes As List(Of TAttribute) + + Private _coe As String + + Private _specCircum As String + + Private _carriageCosts As String + + Private _shipmentIdentification As String + + Private _conveyRefNr As String + + Private _unloadingPlace As String + + Private _route As List(Of TRoute) + + Private _express As String + + Private _routeName As String + + Private _authorisationNo As String + + Private _authorisation As TShipmentHeadAuthorisation + + Private _postExportDeclaration As TShipmentHeadPostExportDeclaration + + Private _oprData As TShipmentHeadOprData + + Private _additionalInformation As List(Of TAttribute) + + Private _stateOfAffairs As List(Of String) + + Private _erpData As TErpShipmentData + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._erpData = New TErpShipmentData() + Me._stateOfAffairs = New List(Of String)() + Me._additionalInformation = New List(Of TAttribute)() + Me._oprData = New TShipmentHeadOprData() + Me._postExportDeclaration = New TShipmentHeadPostExportDeclaration() + Me._authorisation = New TShipmentHeadAuthorisation() + Me._route = New List(Of TRoute)() + Me._attributes = New List(Of TAttribute)() + Me._customerFields = New TCustomerFields() + Me._documents = New List(Of TDocuments)() + Me._assurCost = New TAssurance() + Me._addCosts = New List(Of TAddCosts)() + Me._freightCost = New TFreight() + Me._containers = New List(Of TContainer)() + Me._officeDest = New TCustomsOffice() + Me._declType = New TDeclType() + Me._seals = New List(Of TSeal)() + Me._motBorder = New TMot() + Me._officeBorder = New TCustomsOffice() + Me._officeDepart = New TCustomsOffice() + Me._locGoods = New TLocationOfGoods() + Me._partners = New List(Of TPartner)() + Me._text = New List(Of String)() + Me._motInl = New TMotInl() + End Sub + + Public Property company() As String + Get + Return Me._company + End Get + Set + Me._company = Value + End Set + End Property + + Public Property plant() As String + Get + Return Me._plant + End Get + Set + Me._plant = Value + End Set + End Property + + Public Property shipmentId() As String + Get + Return Me._shipmentId + End Get + Set + Me._shipmentId = Value + End Set + End Property + + Public Property shipmentIdPart() As String + Get + Return Me._shipmentIdPart + End Get + Set + Me._shipmentIdPart = Value + End Set + End Property + + Public Property shipmentType() As String + Get + Return Me._shipmentType + End Get + Set + Me._shipmentType = Value + End Set + End Property + + Public Property mrn() As String + Get + Return Me._mrn + End Get + Set + Me._mrn = Value + End Set + End Property + + Public Property deliveryDate() As Date + Get + Return Me._deliveryDate + End Get + Set + Me._deliveryDate = Value + End Set + End Property + + Public Property cod() As String + Get + Return Me._cod + End Get + Set + Me._cod = Value + End Set + End Property + + Public Property exportCountry() As String + Get + Return Me._exportCountry + End Get + Set + Me._exportCountry = Value + End Set + End Property + + Public Property contCode() As ContainerCode + Get + Return Me._contCode + End Get + Set + Me._contCode = Value + End Set + End Property + + Public Property gWeight() As Decimal + Get + Return Me._gWeight + End Get + Set + Me._gWeight = Value + End Set + End Property + + Public Property dateStartPack() As Date + Get + Return Me._dateStartPack + End Get + Set + Me._dateStartPack = Value + End Set + End Property + + Public Property dateEndPack() As Date + Get + Return Me._dateEndPack + End Get + Set + Me._dateEndPack = Value + End Set + End Property + + Public Property partyConst() As String + Get + Return Me._partyConst + End Get + Set + Me._partyConst = Value + End Set + End Property + + Public Property consigneeEndUserFlag() As String + Get + Return Me._consigneeEndUserFlag + End Get + Set + Me._consigneeEndUserFlag = Value + End Set + End Property + + Public Property endUserInEam() As TShipmentHeadEndUserInEam + Get + Return Me._endUserInEam + End Get + Set + Me._endUserInEam = Value + End Set + End Property + + Public Property estimatedArrivalDate() As Date + Get + Return Me._estimatedArrivalDate + End Get + Set + Me._estimatedArrivalDate = Value + End Set + End Property + + Public Property nctsIndicator() As Boolean + Get + Return Me._nctsIndicator + End Get + Set + Me._nctsIndicator = Value + End Set + End Property + + Public Property motInl() As TMotInl + Get + Return Me._motInl + End Get + Set + Me._motInl = Value + End Set + End Property + + + Public Property text() As List(Of String) + Get + Return Me._text + End Get + Set + Me._text = Value + End Set + End Property + + + Public Property partners() As List(Of TPartner) + Get + Return Me._partners + End Get + Set + Me._partners = Value + End Set + End Property + + Public Property locGoods() As TLocationOfGoods + Get + Return Me._locGoods + End Get + Set + Me._locGoods = Value + End Set + End Property + + Public Property officeDepart() As TCustomsOffice + Get + Return Me._officeDepart + End Get + Set + Me._officeDepart = Value + End Set + End Property + + Public Property officeBorder() As TCustomsOffice + Get + Return Me._officeBorder + End Get + Set + Me._officeBorder = Value + End Set + End Property + + Public Property motBorder() As TMot + Get + Return Me._motBorder + End Get + Set + Me._motBorder = Value + End Set + End Property + + + Public Property seals() As List(Of TSeal) + Get + Return Me._seals + End Get + Set + Me._seals = Value + End Set + End Property + + Public Property declType() As TDeclType + Get + Return Me._declType + End Get + Set + Me._declType = Value + End Set + End Property + + Public Property placeDest() As String + Get + Return Me._placeDest + End Get + Set + Me._placeDest = Value + End Set + End Property + + Public Property authLocation() As String + Get + Return Me._authLocation + End Get + Set + Me._authLocation = Value + End Set + End Property + + Public Property declPlace() As String + Get + Return Me._declPlace + End Get + Set + Me._declPlace = Value + End Set + End Property + + Public Property agreedLocationOfGoodsCd() As String + Get + Return Me._agreedLocationOfGoodsCd + End Get + Set + Me._agreedLocationOfGoodsCd = Value + End Set + End Property + + Public Property agreedLocationOfGoods() As String + Get + Return Me._agreedLocationOfGoods + End Get + Set + Me._agreedLocationOfGoods = Value + End Set + End Property + + Public Property custSubPlace() As String + Get + Return Me._custSubPlace + End Get + Set + Me._custSubPlace = Value + End Set + End Property + + Public Property codFirst() As String + Get + Return Me._codFirst + End Get + Set + Me._codFirst = Value + End Set + End Property + + Public Property officeDest() As TCustomsOffice + Get + Return Me._officeDest + End Get + Set + Me._officeDest = Value + End Set + End Property + + Public Property carrier() As String + Get + Return Me._carrier + End Get + Set + Me._carrier = Value + End Set + End Property + + + Public Property containers() As List(Of TContainer) + Get + Return Me._containers + End Get + Set + Me._containers = Value + End Set + End Property + + Public Property freightCost() As TFreight + Get + Return Me._freightCost + End Get + Set + Me._freightCost = Value + End Set + End Property + + + Public Property addCosts() As List(Of TAddCosts) + Get + Return Me._addCosts + End Get + Set + Me._addCosts = Value + End Set + End Property + + Public Property assurCost() As TAssurance + Get + Return Me._assurCost + End Get + Set + Me._assurCost = Value + End Set + End Property + + Public Property groupID() As String + Get + Return Me._groupID + End Get + Set + Me._groupID = Value + End Set + End Property + + + Public Property documents() As List(Of TDocuments) + Get + Return Me._documents + End Get + Set + Me._documents = Value + End Set + End Property + + Public Property regNoExt() As String + Get + Return Me._regNoExt + End Get + Set + Me._regNoExt = Value + End Set + End Property + + Public Property customerFields() As TCustomerFields + Get + Return Me._customerFields + End Get + Set + Me._customerFields = Value + End Set + End Property + + + Public Property attributes() As List(Of TAttribute) + Get + Return Me._attributes + End Get + Set + Me._attributes = Value + End Set + End Property + + Public Property coe() As String + Get + Return Me._coe + End Get + Set + Me._coe = Value + End Set + End Property + + Public Property specCircum() As String + Get + Return Me._specCircum + End Get + Set + Me._specCircum = Value + End Set + End Property + + Public Property carriageCosts() As String + Get + Return Me._carriageCosts + End Get + Set + Me._carriageCosts = Value + End Set + End Property + + Public Property shipmentIdentification() As String + Get + Return Me._shipmentIdentification + End Get + Set + Me._shipmentIdentification = Value + End Set + End Property + + Public Property conveyRefNr() As String + Get + Return Me._conveyRefNr + End Get + Set + Me._conveyRefNr = Value + End Set + End Property + + Public Property unloadingPlace() As String + Get + Return Me._unloadingPlace + End Get + Set + Me._unloadingPlace = Value + End Set + End Property + + + Public Property route() As List(Of TRoute) + Get + Return Me._route + End Get + Set + Me._route = Value + End Set + End Property + + + Public Property express() As String + Get + Return Me._express + End Get + Set + Me._express = Value + End Set + End Property + + Public Property routeName() As String + Get + Return Me._routeName + End Get + Set + Me._routeName = Value + End Set + End Property + + Public Property authorisationNo() As String + Get + Return Me._authorisationNo + End Get + Set + Me._authorisationNo = Value + End Set + End Property + + Public Property authorisation() As TShipmentHeadAuthorisation + Get + Return Me._authorisation + End Get + Set + Me._authorisation = Value + End Set + End Property + + Public Property postExportDeclaration() As TShipmentHeadPostExportDeclaration + Get + Return Me._postExportDeclaration + End Get + Set + Me._postExportDeclaration = Value + End Set + End Property + + Public Property oprData() As TShipmentHeadOprData + Get + Return Me._oprData + End Get + Set + Me._oprData = Value + End Set + End Property + + + Public Property additionalInformation() As List(Of TAttribute) + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + + Public Property stateOfAffairs() As List(Of String) + Get + Return Me._stateOfAffairs + End Get + Set + Me._stateOfAffairs = Value + End Set + End Property + + Public Property erpData() As TErpShipmentData + Get + Return Me._erpData + End Get + Set + Me._erpData = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHead)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TShipmentHead object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TShipmentHead object + ''' + ''' string workflow markup to deserialize + ''' Output TShipmentHead 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 TShipmentHead, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHead) + 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 TShipmentHead) 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 TShipmentHead + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TShipmentHead) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TShipmentHead + Return CType(Serializer.Deserialize(s), TShipmentHead) + End Function +#End Region + + ''' + ''' Serializes current TShipmentHead 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TShipmentHead object + ''' + ''' string xml file to load and deserialize + ''' Output TShipmentHead 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 TShipmentHead, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHead) + 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 TShipmentHead) 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 TShipmentHead + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TShipmentHeadEndUserInEam + + ''' + + Item + + ''' + + Item0 + + ''' + + Item1 + End Enum + + + Partial Public Class TShipmentHeadAuthorisation + +#Region "Private fields" + Private _oprEntryInTheRecords As String + + Private _opr As String + + Private _trustworthyExporter As String + + Private _authorisedExporter As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property oprEntryInTheRecords() As String + Get + Return Me._oprEntryInTheRecords + End Get + Set + Me._oprEntryInTheRecords = Value + End Set + End Property + + Public Property opr() As String + Get + Return Me._opr + End Get + Set + Me._opr = Value + End Set + End Property + + Public Property trustworthyExporter() As String + Get + Return Me._trustworthyExporter + End Get + Set + Me._trustworthyExporter = Value + End Set + End Property + + Public Property authorisedExporter() As String + Get + Return Me._authorisedExporter + End Get + Set + Me._authorisedExporter = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TShipmentHeadAuthorisation object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TShipmentHeadAuthorisation object + ''' + ''' string workflow markup to deserialize + ''' Output TShipmentHeadAuthorisation 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 TShipmentHeadAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHeadAuthorisation) + 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 TShipmentHeadAuthorisation) 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 TShipmentHeadAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TShipmentHeadAuthorisation + Return CType(Serializer.Deserialize(s), TShipmentHeadAuthorisation) + End Function +#End Region + + ''' + ''' Serializes current TShipmentHeadAuthorisation 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TShipmentHeadAuthorisation object + ''' + ''' string xml file to load and deserialize + ''' Output TShipmentHeadAuthorisation 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 TShipmentHeadAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHeadAuthorisation) + 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 TShipmentHeadAuthorisation) 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 TShipmentHeadAuthorisation + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TShipmentHeadPostExportDeclaration + +#Region "Private fields" + Private _dateOfExit As Date + + Private _dateOfExport As Date + + Private _statisticDecl As String + + Private _officeExit As TCustomsOffice + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._officeExit = New TCustomsOffice() + End Sub + + Public Property dateOfExit() As Date + Get + Return Me._dateOfExit + End Get + Set + Me._dateOfExit = Value + End Set + End Property + + Public Property dateOfExport() As Date + Get + Return Me._dateOfExport + End Get + Set + Me._dateOfExport = Value + End Set + End Property + + Public Property statisticDecl() As String + Get + Return Me._statisticDecl + End Get + Set + Me._statisticDecl = Value + End Set + End Property + + Public Property officeExit() As TCustomsOffice + Get + Return Me._officeExit + End Get + Set + Me._officeExit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadPostExportDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TShipmentHeadPostExportDeclaration object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TShipmentHeadPostExportDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output TShipmentHeadPostExportDeclaration 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 TShipmentHeadPostExportDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHeadPostExportDeclaration) + 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 TShipmentHeadPostExportDeclaration) 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 TShipmentHeadPostExportDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadPostExportDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TShipmentHeadPostExportDeclaration + Return CType(Serializer.Deserialize(s), TShipmentHeadPostExportDeclaration) + End Function +#End Region + + ''' + ''' Serializes current TShipmentHeadPostExportDeclaration 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TShipmentHeadPostExportDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output TShipmentHeadPostExportDeclaration 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 TShipmentHeadPostExportDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHeadPostExportDeclaration) + 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 TShipmentHeadPostExportDeclaration) 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 TShipmentHeadPostExportDeclaration + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TShipmentHeadOprData + +#Region "Private fields" + Private _reimportDeadline As Date + + Private _standardExchange As String + + Private _reImport As List(Of TShipmentHeadOprDataReImport) + + Private _meansOfIdentification As List(Of TShipmentHeadOprDataMeansOfIdentification) + + Private _product As List(Of TShipmentHeadOprDataProduct) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._product = New List(Of TShipmentHeadOprDataProduct)() + Me._meansOfIdentification = New List(Of TShipmentHeadOprDataMeansOfIdentification)() + Me._reImport = New List(Of TShipmentHeadOprDataReImport)() + End Sub + + Public Property reimportDeadline() As Date + Get + Return Me._reimportDeadline + End Get + Set + Me._reimportDeadline = Value + End Set + End Property + + Public Property standardExchange() As String + Get + Return Me._standardExchange + End Get + Set + Me._standardExchange = Value + End Set + End Property + + + Public Property reImport() As List(Of TShipmentHeadOprDataReImport) + Get + Return Me._reImport + End Get + Set + Me._reImport = Value + End Set + End Property + + + Public Property meansOfIdentification() As List(Of TShipmentHeadOprDataMeansOfIdentification) + Get + Return Me._meansOfIdentification + End Get + Set + Me._meansOfIdentification = Value + End Set + End Property + + + Public Property product() As List(Of TShipmentHeadOprDataProduct) + Get + Return Me._product + End Get + Set + Me._product = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadOprData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TShipmentHeadOprData object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TShipmentHeadOprData object + ''' + ''' string workflow markup to deserialize + ''' Output TShipmentHeadOprData 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 TShipmentHeadOprData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHeadOprData) + 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 TShipmentHeadOprData) 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 TShipmentHeadOprData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadOprData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TShipmentHeadOprData + Return CType(Serializer.Deserialize(s), TShipmentHeadOprData) + End Function +#End Region + + ''' + ''' Serializes current TShipmentHeadOprData 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TShipmentHeadOprData object + ''' + ''' string xml file to load and deserialize + ''' Output TShipmentHeadOprData 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 TShipmentHeadOprData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHeadOprData) + 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 TShipmentHeadOprData) 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 TShipmentHeadOprData + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TShipmentHeadOprDataReImport + +#Region "Private fields" + Private _ctry As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property ctry() As String + Get + Return Me._ctry + End Get + Set + Me._ctry = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadOprDataReImport)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TShipmentHeadOprDataReImport object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TShipmentHeadOprDataReImport object + ''' + ''' string workflow markup to deserialize + ''' Output TShipmentHeadOprDataReImport 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 TShipmentHeadOprDataReImport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHeadOprDataReImport) + 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 TShipmentHeadOprDataReImport) 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 TShipmentHeadOprDataReImport + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadOprDataReImport) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TShipmentHeadOprDataReImport + Return CType(Serializer.Deserialize(s), TShipmentHeadOprDataReImport) + End Function +#End Region + + ''' + ''' Serializes current TShipmentHeadOprDataReImport 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TShipmentHeadOprDataReImport object + ''' + ''' string xml file to load and deserialize + ''' Output TShipmentHeadOprDataReImport 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 TShipmentHeadOprDataReImport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHeadOprDataReImport) + 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 TShipmentHeadOprDataReImport) 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 TShipmentHeadOprDataReImport + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TShipmentHeadOprDataMeansOfIdentification + +#Region "Private fields" + Private _type As String + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadOprDataMeansOfIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TShipmentHeadOprDataMeansOfIdentification object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TShipmentHeadOprDataMeansOfIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output TShipmentHeadOprDataMeansOfIdentification 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 TShipmentHeadOprDataMeansOfIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHeadOprDataMeansOfIdentification) + 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 TShipmentHeadOprDataMeansOfIdentification) 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 TShipmentHeadOprDataMeansOfIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadOprDataMeansOfIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TShipmentHeadOprDataMeansOfIdentification + Return CType(Serializer.Deserialize(s), TShipmentHeadOprDataMeansOfIdentification) + End Function +#End Region + + ''' + ''' Serializes current TShipmentHeadOprDataMeansOfIdentification 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TShipmentHeadOprDataMeansOfIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output TShipmentHeadOprDataMeansOfIdentification 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 TShipmentHeadOprDataMeansOfIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHeadOprDataMeansOfIdentification) + 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 TShipmentHeadOprDataMeansOfIdentification) 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 TShipmentHeadOprDataMeansOfIdentification + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TShipmentHeadOprDataProduct + +#Region "Private fields" + Private _commodityCode As String + + Private _partDescription As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property commodityCode() As String + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + Public Property partDescription() As String + Get + Return Me._partDescription + End Get + Set + Me._partDescription = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHeadOprDataProduct)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TShipmentHeadOprDataProduct object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TShipmentHeadOprDataProduct object + ''' + ''' string workflow markup to deserialize + ''' Output TShipmentHeadOprDataProduct 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 TShipmentHeadOprDataProduct, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHeadOprDataProduct) + 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 TShipmentHeadOprDataProduct) 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 TShipmentHeadOprDataProduct + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TShipmentHeadOprDataProduct) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TShipmentHeadOprDataProduct + Return CType(Serializer.Deserialize(s), TShipmentHeadOprDataProduct) + End Function +#End Region + + ''' + ''' Serializes current TShipmentHeadOprDataProduct 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TShipmentHeadOprDataProduct object + ''' + ''' string xml file to load and deserialize + ''' Output TShipmentHeadOprDataProduct 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 TShipmentHeadOprDataProduct, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHeadOprDataProduct) + 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 TShipmentHeadOprDataProduct) 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 TShipmentHeadOprDataProduct + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.xsd new file mode 100644 index 0000000..aeeb7b0 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.xsd @@ -0,0 +1,1862 @@ + + + + + + + + + + + + + + + + + false + + + + + + + + + + + + + + + + + + + true + + + + + + + + + + + + + + + + + + true + + 0..∞ + + + + + + + + + + + + Einheit + + + + false + + 1..99 + + + + + + + + + + + + + + + Export shipment Header + + + + + + MIC-CUST Company + MIC-CUST Mandant + + + true + String1..2 + + MIC_AAVSDG + Aasmandant + MIC_AUSSDG + Afssmandant + TA + + + + + + + MIC-CUST Plant + MIC-CUST Werk + + + true + String1..2 + + MIC_AAVSDG + Aaswerk + MIC_AUSSDG + Afswerk + BP + + + + + + + Unique reference number of export declaration + Eindeutige Bezugsnummer der Ausfuhranmeldung. +Ref: EH-Pap Feld 7 + + + false + String1..50 + + MIC_AAVSDG + Aassdgid + MIC_AUSSDG + Afssdgid + AESTEST001 + + + + + + + + + + + + + shipment part + Teil der Sendung + + + false + String1..2 + + MIC_AAVSDG + Aassdgpart + MIC_AUSSDG + Afssdgpart + + + + + + + + + + + + + + MIC-CUST Shipment Type + MIC-CUST Sendungstyp + Constant Value: E…Export + Konstante: E...Export + true + String1 + + MIC_AAVSDG + Aastyp + MIC_AUSSDG + Afstyp + E + + + + + + + + + + + + + Movement Reference Number (MRN) + Movement Reference Number (MRN) + MRN is necessary by supplementary declaration + MRN muss bei Ergänzender Anmeldung angegeben werden. + false + String18 + + MIC_ALL_AAVPOS + Aapmessregnr + MIC_AUSPOS + Afpmessregnr + 2007-06-28T14:00 + + + + + + + + + + + + Date and Time of declaration + + Zeitpunkt der Anmeldung + + Format: yyyy-mm-ddThh:mm:ss (Use "T" as termination character between date and time part) + +This date is relevant as validation date of tarriff codes, etc. + Format: jjjj-mm-ttThh:mm:ss (Trennzeichen zw. Datum und Uhrzeit ist das "T") + +Dieses Datum ist relevant als Gültigkeitdatum von Tarifnummern etc. + false + Xs:dateTime + + MIC_AAVSDG + Aasliedat + MIC_AUSSDG + Afsliedat + CH + + + + + + + Country of destination +Ref: SAD Field 17 + Bestimmungsland der Ausfuhranmeldung +Ref: EH-Pap Feld 17 + LOV: +ISO-Alpha-2 Country code, no EU-Country allowed + Gültige Werte: +ISO-Alpha2 Ländercode, kein EU-Land zulässig + false + String2 + + MIC_AAVSDG + Aasbeld + MIC_AUSSDG + Afsbeld + 1 + + + + + + + + Abgangszollland + + + false + String2 + + MIC_AAVSDG + Aasazld + MIC_AUSSDG + Afsazld + CH + + + + + + + Container code + Containerkennzeichen +Ref: EH-Pap Feld 19 + LOV: +0 ... Transport not in container (Standard, cases of doubt) +1 ... Transport in container(s) + gültige Werte: +0 ... nicht in Containern (Standard, Zweifelsfälle) +1 ... in Containern befördert + false + String1 + + MIC_AAVSDG + Aascon + MIC_AUSSDG + Afscon + 444 + + + + + + + Total gross mass + Gesamt-Rohmasse +Ref: EH-Pap Feld 35 + Gross mass without container weight + Gesamtgewicht der Ausfuhrsendung (ohne Container). +Gültige Werte: > 0 + false + Number(13,4) + + MIC_AAVSDG + Aasrohmas + MIC_AUSSDG + Afsrohmas + + + + + + + + Begin of presentation/packing + + Begin der Gestellung / Verpackung + + Format: <yyyy-mm-dd>T<hh:mm> + +Note: +Field must remain empty unless Type of declaration (clearance) =c,d + + Format: <jjjj-mm-tt>T<hh:mm> + +Bedingung C1: +Prinzipiell ist das Feld leer zu lassen. +Nur für Art der Anmeldung = c,d (Normalverfahren und Antrag auf Gestellung außerhalb Amtsplatz beantragt) ist hier ein Wert anzugeben; + + false + Xs:dateTime + + MIC_AAVSDG + Aasgestellbegin + MIC_AUSSDG + Afsgestellbegin + + + + + + + + End of presentation/packing (time limit) + + Ende der Gestellung / Verpackung + + Format: <yyyy-mm-dd>T<hh:mm> + +Note: +Field must remain empty unless Type of declaration (clearance) =c,d + + Format: <jjjj-mm-tt>T<hh:mm> + +Bedingung C1: +Prinzipiell ist das Feld leer zu lassen. +Nur für Art der Anmeldung = c,d (Normalverfahren und Antrag auf Gestellung außerhalb Amtsplatz beantragt) ist hier ein Wert anzugeben; + +dateStartPack < dateEndPack + + false + Xs:dateTime + + MIC_AAVSDG + Aasgestellend + MIC_AUSSDG + Afsgestellend + 0000 + + + + + + + Parties involved (Consignor/Exporter/Declarant) + Beteiligtenkonstellation Versender/Ausführer/Anmelder + 0000 ... Declarant is exporter. Declarant has no direct representative. Exporter mandate no subcontractor. +0010 ... Declarant is exporter. Declarant has no direct representative. Exporter mandate a subcontractor. +0100 ... Declarant is exporter. Declarant has a direct representative. Exporter mandate no subcontractor. +0110 ... Declarant is exporter. Declarant has a direct representative. Exporter mandate a subcontractor. +1000 ... Declarant is an indirect representative of the exporter. Declarant has no direct representative. Exporter mandate no subcontractor. +1010 ... Declarant is an indirect representative of the exporter. Declarant has no direct representative. Exporter mandate a subcontractor. +1100 ... Declarant is an indirect representative of the exporter. Declarant has a direct representative. Exporter mandate no subcontractor. +1110 ... Declarant is an indirect representative of the exporter. Declarant has a direct representative. Exporter mandate a subcontractor. + +At declaration to the simplified procedure ZA (cp. Data field "header / type of declaration (clearance)") the encodings +"0110" and "1110" signify particularly, that the representative +represents the declarant. + 0000 ... Anmelder ist Ausführer. Anmelder lässt sich nicht direkt vertreten. Ausführer beauftragt keinen Subunternehmer. +0010 ... Anmelder ist Ausführer. Anmelder lässt sich nicht direkt vertreten. Ausführer beauftragt Subunternehmer. +0100 ... Anmelder ist Ausführer. Anmelder lässt sich direkt vertreten. Ausführer beauftragt keinen Subunternehmer. +0110 ... Anmelder ist Ausführer. Anmelder lässt sich direkt vertreten. Ausführer beauftragt Subunternehmer. +1000 ... Anmelder ist indirekter Vertreter des Ausführers. Anmelder lässt sich nicht direkt vertreten. Ausführer beauftragt keinen Subunternehmer. +1010 ... Anmelder ist indirekter Vertreter des Ausführers. Anmelder lässt sich nicht direkt vertreten. Ausführer beauftragt Subunternehmer. +1100 ... Anmelder ist indirekter Vertreter des Ausführers. Anmelder lässt sich direkt vertreten. Ausführer beauftragt keinen Subunternehmer. +1110 ... Anmelder ist indirekter Vertreter des Ausführers. Anmelder lässt sich direkt vertreten. Ausführer beauftragt Subunternehmer. + +Bei Anmeldung zum Vereinfachten Verfahren ZA (vgl. Datenfeld „KOPF / Art der Anmeldung (Überführung)“) bedeuten +die Codierungen „0110“ und „1110“ insbesondere auch, dass +sich der Anmelder durch den Subunternehmer direkt vertreten lässt. + + false + Number(4) + + MIC_AAVSDG + Aasvertrkz + MIC_AUSSDG + Afsvertrkz + 30 + + + + + + + Consignee End-user Flag + Adressaten-Konstellation + Describes the relation between the consignee and the end-user. + +0… End-user is equal to consignee +1… End-user different to consignee +2… End-user unknown + Dieses Kennzeichen beschreibt die Beziehung zwischen Empfänger und Endverwender. + +0… Endverwender ist Empfänger. +1… Endverwender ist nicht Empfänger. +2… Endverwender ist nicht bekannt. + false + String1 + + MIC_AAVSDG + Aasenduserid + MIC_AUSSDG + Afsenduserid + + + + + + + + + + + + + + 1 wenn die Adressatenkonstellation und ggf. der Endverwender in der EAM übermittelt werden soll. + + 1 wenn die Adressatenkonstellation und ggf. der Endverwender in der EAM übermittelt werden soll. + false + Integer(1) + + MIC_AAVSDG + Aassendenduserineam + MIC_AUSSDG + Afssendenduserineam + 0 + + + + + + + + + + + + + + + Estimated Arrival Date + Geschätztes Ankunftsdatum + + + false + xs:datetime + + MIC_AAVSDG + AASESTDAT + MIC_AUSSDG + AFSESTDAT + + + + + + + + NCTS Indicator + NCTS Indikator + + + false + xs:boolean + + MIC_AAVSDG + AASNCTSINDICATOR + MIC_AUSSDG + AFSNCTSINDICATOR + + + + + + + + Inland mode of transport + Genutzter (inländischer) Verkehrszweig bis zur Außengrenze der Gemeinschaft + +Ref: EH-Pap Feld 26 + LOV: (DE-Codeliste C0018) +10=Sea transport +12=railway carriage on seagoing vessel +16=road vehicle on seagoing vessel +17=trailer/semi trailer on seagoing vessel +18=barge on seagoing vessel +20=Rail transport +23=road vehicle on railroad +30=Road transport +50=Postal consignment +80=Inland waterway transport +90=own propulsion + LOV: (DE-Codeliste C0018) +10=Seeverkehr +12=Waggon auf Seeschiff +16=Straßenfahrzeug auf Seeschiff +17=Anhänger/Auflieger auf Seeschiff +18=Binnenschiff auf Seeschiff +20=Eisenbahnverkehr +23=Straßenfahrzeug auf Eisenbahn +30=Straßenverkehr; 40=Luftverkehr +50=Postsendungen +80=Binnenschifffahrt +90=Eigener Antrieb + +Gruppe/Feld muss entweder in der uAM oder in der eAM angegeben werden. + false + + 1 + + + + + + + + + + + + Atlas notification + Atlas Vermerk + free text for notification of the customs authorities. +Proposal: do not fill field ! +Note: +free text requires manual processing by the customs authorities +--> loss of time + addText1 wird in Aasinfo geladen, der Rest wird in AasText1..4 geladen. + +Vorschlag: Leer lassen ! +Wird hier etwas angetragen, muss der Zöllner den Vorgang händisch freigeben. längere Abwicklung. + false + String1..80 + 0..5 + MIC_AAVSDG + Aasinfo, AasText1..4 + MIC_AUSSDG + Afsinfo + + + + + + + + + + + + + Partners + Beteiligte + + + true + + 0..∞ + + + + + + + + + + + + Place of loading + Ladeort +Ref: EH-Pap Feld 30 + + Ort, an dem die Waren verladen und ggf. Verschlüsse angebracht werden + false + + 1 + + + + + + + + + + + + Customs office of export + Ausfuhrzollstelle +Ref: EH-Pap Feld A + local customs office of export being responsible for the declaration + Lokale Dienststelle, die als Ausfuhrzollstelle für diese Anmeldung zuständig ist + true + + 1 + MIC_AAVSDG + aasausfzost(offCtry+codeOff) + MIC_AUSSDG + afsausfzost(offCtry+codeOff) + + + + + + + + Expected office of exit + Vorgesehene Ausgangszollstelle +Ref: EH-Pap Feld 29 + + Dienststelle, die zum Zeitpunkt der Überlassung als Ausgangszollstelle vorgesehen ist. + false + + 1 + MIC_AAVSDG + aasabgzost(offCtry+codeOff) + MIC_AUSSDG + Afsabgzost(offCtry+codeOff) + + + + + + + + Mode of transport at the border + Verkehrszweig Grenze + + Mode of transport of the active mean of transport at the border + Verkehrszweig des aktiven Beförderungsmittels an der Grenze. + false + + 1 + + + + + 10 + + + + + + + Seals + Verschlüsse + + + false + + 1..∞ + + + + + A234 + + + + + + + Declaration type + Declarationstyp + + + false + + + + + + + + + + + + + + Place of destination + Bestimmungsort + + + false + String1..20 + + MIC_AAVSDG + Aasbstort + MIC_AUSSDG + Afsbstort + + + + + + + + + + + + + Authorised location of goods, code + Authorised location of goods, code + For NCTS dispatch only + Nur für NCTS Versand + false + String1..17 + + MIC_AAVKOP + Aakbewillort + + + + + + + + + + + + + + + + Place of Declaration + Place of Declaration + For NCTS dispatch only + Nur für NCTS Versand + false + String1..35 + + MIC_AAVKOP + Aakdeklort + + + + + + + + + + + + + + + + Agreed location of goods, code + Agreed location of goods, code + For NCTS dispatch only + Nur für NCTS Versand + false + String1..17 + + MIC_AAVKOP + Aakverladeortcd + + + + + + + + + + + + + + + + Agreed location of goods + Agreed location of goods + For NCTS dispatch only + Nur für NCTS Versand + false + String1..35 + + MIC_AAVKOP + Aakverladeort + + + 005866 + + + + + + + + + + + + + Customs sub place + Customs sub place + For NCTS dispatch only + Nur für NCTS Versand + false + String1..17 + + MIC_AAVKOP + Aakabfertstelle + + + DE + + + + + + + + + + + + + Country first destination +Ref: SAD Field 10 + Erstes Bestimmungsland +Ref: EH-Pap Feld 10 + + + false + String2 + + MIC_AAVSDG + Aaserstbeld + MIC_AUSSDG + Afserstbeld + + + + + + + + Customs office supplementary declaration + Zollstelle Ergänzende Ausfuhranmeldung + Note: This field (officeDest = office of destination) is not used in the original semantic but as 'office of destination of the supplementary export declaration'. + Zollstelle, die für die ergänzende Anmeldung zuständig ist. + +Hinweis: Dieses Feld (officeDest = office of destination, 'Bestimmungszollstelle') wird hier nicht in seiner Ursprungsbedeutung verwendet, sondern als Bestimmungszollstelle für die ergänzende Ausfuhranmeldung. + false + + 1 + MIC_AAVSDG + aasbstzost(offCtry + codeOff) + MIC_AUSSDG + Afsbstzost(offCtry + codeOff) + + + + + + + + Suppliers address number + Adressnummer des Spedieurs + + + false + String1..20 + + MIC_AAVSDG + Aasspednr + MIC_AUSSDG + Afsspednr + + + + + + + + + + + + + + Container shipment + Container Sendung + + + false + + 0..99 + + + + + + + + + + + + Freight Cost + Frachtkosten + + + false + + 1 + + + + + + + + + + + + Additional Cost + Nebenkosten + + + false + + 0..2 + MIC_AAVSDG + + MIC_AUSSDG + + + + + + + + + Insurance costs + Versicherungskosten + + + false + + + + + + + + + + + + + + groupID + GruppenID + + + false + String0..100 + + + + + + + + + + + + + + + + + + Documents +Ref: SAD Paper Field 44 + Unterlagen +Ref: EH-Pap Feld 44 + Note: +Documents can be provided on shipment level, invoice level or invoice line level. Documents provided on shipment level or invoice level are declared on invoice line level to Atlas. + +Condition C1: +Value required for chapter 98 of the CN8 + +Condition C2: +Value required due to individual certificates, authorizations, etc. such as export lizcences, ... + +MIC proposes documents to be provided at invoice line level within the interface as they are reported to ATLAS on invoice line level too. + Anmerkung: +Unterlagen können auf Sendungsebene angegeben werden oder auf Fakturenebene oder auf Positionsebene. +Unterlagen, die auf Sendungsebene oder Fakturenebene angegeben werden, werden an ATLAS für JEDE Position gemeldet (zusätzlich zu Unterlagen auf Positionsebene) + +Bedingung C1: +Erforderlich für Waren der Kapitel 98 + +Bedingung C2: +Hier sind insbesondere Genehmigungen und Bescheinigungen nach den VuB-Vorschriften, MO-Unterlagen/Genehmigungen, Genehmigungen und Bescheinigungen nach der Außenwirtschaftsverordnung und sonstige Unterlagen/Genehmigungen zu vermerken. Besondere Vermerke sind hier ebenfalls in codierter Form anzugeben + +MIC bevorzugt die Angabe der Unterlagen auf Positionsebene, da Atlas grundsätzlich jede Unterlage auf Positionsebene verlangt. + false + + 0..99 + + + + + + + + + + + + external registry number + Registrierungsnummer extern + + + false + String1..70 + + MIC_AAVSDG + Aasfremdnr + MIC_AUSSDG + Afsfremdnr + + + + + + + + + + + Customer Fields + Freie kundenspezifische Felder + + + false + + + MIC_AAVSDG + aas___1..10 (X=10) + MIC_AUSSDG + afs___1..10 (X=10) + + + + + + + + Attributes + Attributte + + + false + + 1..∞ + + + + + + + + + + + + Country of exit +Ref: SAD Field 15 + Ausfuhrland +Ref: EH-Papier Feld 15 + EU-Countrycode (ISO-Alpha) from where the goods leave the EU. +Codelist C0010 + Anzugeben ist das Nationalitätskennzeichen des EU-Landes, von dem aus die Waren zwecks Ausfuhr versandt werden / worden sind. Codeliste: C0010 + false + String2 + + MIC_AAVSDG + Aasausfld + MIC_AUSSDG + Afsausfld + + + + + + + + Special Circumstances + Besondere Umstände + Flag of special circumstances (codelist: C0096) + Kennzeichen für das Vorliegen besonderer Umstände +Codeliste: C0096 + false + String1 + + MIC_AAVSDG + Aasbesumstaende + MIC_AUSSDG + Afsbesumstaende + + + + + + + + Costs of Carriage + Beförderungskosten (Zahlungsweise) + + Die Datenfelder auf Warenpositions- und hier auf Kopfebene schließen sich gegenseitig aus. +Bei nur einer Zahlungsweise für den gesamten Ausfuhrvorgang muss die Angabe auf der Kopfebene erfolgen. + + false + String1 + + MIC_AAVSDG + Aasbefkosten + MIC_AUSSDG + Afsbefkosten + + + + + + + + Shipmend-Identification + Kennnummer der Sendung + + Die Datenfelder auf Warenpositions- und hier auf Kopfebene schließen sich gegenseitig aus. +Bei nur einer Kennnummer für den gesamten Ausfuhrvorgang muss die Angabe auf der Kopfebene erfolgen. + + false + String1..70 + + MIC_AAVSDG + Aassdgkennnr + MIC_AUSSDG + Afssdgkennnr + + + + + + + + + + Not used at the moment + Im Moment nicht verwendet + false + + + + + + + + + + + + + + + + Not used at the moment + Im Moment nicht verwendet + false + String1..35 + + + + + + + + + + + + + + + + + + + route of transport + Beförderungsroute + + + false + + 0..99 + + + + + + + + + + + + + + + + false + Integer(1) + + MIC_AAVSDG + Aasexpress + MIC_AUSSDG + Afsexpress + + + + + + + + Name of the predefined route in MIC-CUST + Name der vordefinierten Route in MIC-CUST. + MIC-CUST grants you the possiblity to predefine routes with unique routenames. To select such a route in MIC-CUST the routename has to be entered here. MIC-CUST validates the routename while taking over the shipmentdate from the workbuffer to the finale tables. The closure of the shipment faile, if the routename doesn't exists. + MIC-Cust bietet die Möglichkeit Routen im Vorfeld zu definieren. Jede vordefinierte Route wird mit einem eindeutigen Namen für die Mandant/Werk Kombination versehen. Wird der Name der Route in diesem Tag angegeben, sucht MIC-CUST bei der Übernahme der Daten automatisch nach der Route. Ist die Route nicht vorhanden, läuft der Beleg auf Fehler. + false + String1..100 + + MIC_AAVSDG + Aasbefroutename + MIC_AUSSDG + Afsbefroutename + AESTEST001 + + + + + + + + customs authorisation number + + This Tag overwrites the customs authority number of the actual shipment. + false + String1..12 + + MIC_AAVSDG + AASBEWILLNR + MIC_AUSSDG + AFSBEWILLNR + + + + + + + + customs authorisation number + Bewilliungsnummern für die Anmeldung zur Ausfuhr + This Tag overwrites the customs authority number of the actual shipment. + Solle eine Exportanmeldung mit einer anderen Bewilligungsnummer als die, die im Mandaten hinterlegt wurde, angemeldet werden, kann die Bewilligungsnummer in diesem Tag angegeben werden. Sie überschreibt somit die hinterlegte Bewilligung. Diese Bewilligungsnummer bezieht sich nur auf diesen Vorgang. + false + + + + + + + + + + + + + + + Authorisationnumber for entry in the records for OPR + Bewilligungsnummer zum Anschreibeverfahren in der Passiven Veredelung + + + false + String1..12 + + MIC_AAVSDG + Aasauthnooprlcp + MIC_AUSSDG + Afsauthnooprlcp + 123.45 + + + + + + + + + + + + Authorisationnumber for OPR + Bewilligungsnummer zur Passiven Veredelung + + + false + String1..12 + + MIC_AAVSDG + Aasauthnoopr + MIC_AUSSDG + Afsauthnoopr + EUR + + + + + + + + + + + + Authorisationnumber for trustworthy exporter + Bewilligungsnummer des Vertrauenswürdigen Ausführers + Not used at the moment + Im Moment nicht verwendet + false + String1..12 + + MIC_AAVSDG + + + + + + + + + + + + + + + + Authorisationnumber for authorised exporter + Bewilligungsnummer des Zugelassenen Ausführers + + + false + String1..12 + + MIC_AAVSDG + + + + + + + + + + + + + + + + + + + Post Export Declaration + Nachtägliche Anmeldung + + + false + + + + + + + Rütli + + + + + + + + Date of Exit + Datum des Ausgangs + + Datum des körperlichen Ausgangs der Waren aus dem Zollgebiet der Gemeinschaft + false + Xs:date + + MIC_AAVSDG + Aasdateexit + MIC_AUSSDG + Afsdateexit + Zürichseestrasse 10 + + + + + + + Date of acceptance of Export Declaration + Maßgebliches Datum + + Für die nachträgliche Ausfuhranmeldung maßgebliches Datum + false + Xs:date + + MIC_AAVSDG + Aasreldate + MIC_AUSSDG + Afsreldate + Zürich + + + + + + + Statistic Declaration Flag + Statistische Meldung + + Kennzeichen, ob zu einer nachträglichen Ausfuhranmeldung aus dem Notfallverfahren noch eine Meldung zur Außenhandelsstatistik (Extrastat/Intrastat) seitens ATLAS/Ausfuhr an das Statistische Bundesamt erfolgen soll + false + String1 + + MIC_AAVSDG + Aasstatdecl + MIC_AUSSDG + Afsstatdecl + CH + + + + + + + + + + + + Actual Office of Exit + Tatsächliche Ausgangszollstelle + + + false + + + MIC_AAVSDG + Aasofficeofexit (Offctry+Codeoff) + MIC_AUSSDG + Afsofficeofexit (Offctry+Codeoff) + + + + + + + + + + + OPR + Passive Veredelung + + Informationen zur Überführung in die Passive Veredelung + false + + + + + + + + + + + + + + + Date of re-import + Datum der Wiedereinfuhr + Deadline für re-import + Letztmöglicher Tag für die Wiedereinfuhr der Veredelungserzeugnisse + false + Xs:date + + MIC_AAVSDG + Aasoprdateofreimport + MIC_AUSSDG + Afsoprdateofreimport + + + + + + + + Standard exchange + Standardaustausch + Flag for application to standard exchange + Kennzeichen, ob ein Standardaustausch im Rahmen der Passiven Veredelung beantragt wird + false + String1 + + MIC_AAVSDG + Aasoprstdexchange + MIC_AUSSDG + Afsoprstdexchange + + + + + + + + + + + + + Re-import + Wiedereinfuhr + + + false + + 0..99 + + + + + + + + + + + + + Country + Land + + Verschlüsselung des Landes der Wiedereinfuhr + true + String2 + + MIC_CUST_WB_OPR_REIMPORT + Oiwcountry + MIC_CUST_OPR_REIMPORT + Oricountry + + + + + + + + + + + + + + + + Means of identification + Nämlichkeitsmittel + + Art und Beschreibung der Nämlichkeitsmittel + false + + 0..8 + + + + + + + + + + + + + Type + Art + + Verschlüsselung für die Art des verwendeten Nämlichkeitsmittels + false + String1 + + MIC_CUST_WB_OPR_REFERENCE + Orwtype + MIC_CUST_OPR_REFERENCE + Omrtype + + + + + + + + + + + + + Desciption + Textliche Beschreibung + + Textliche Beschreibung des verwendeten Nämlichkeitsmittels + false + String1..350 + + MIC_CUST_WB_OPR_REFERENCE + Orwdescription + MIC_CUST_OPR_REFERENCE + Omrdescription + + + + + + + + + + + + + + + + Products + Erzeugnis + + Die Veredelungserzeugnisse müssen vorab durch eine Warennummer und eine Warenbeschreibung bezeichnet werden. + false + + 0..999 + + + + + + + + + + + + + Commodity code + Warennummer + + Warennummer nach dem Warenverzeichnis für die Außenhandelsstatistik (HS4, HS6 oder KN8) + false + String1..13 + + MIC_CUST_WB_OPR_FINISHEDGOOD + Ofwcodenumber + MIC_CUST_OPR_FINISHEDGOOD + Ofgcodenumber + DES + + + + + + + + + + + + Desciption + Warenbezeichnung + + Textuelle Beschreibung der Ware + false + String1..280 + + MIC_CUST_WB_OPR_FINISHEDGOOD + Ofwgoodsdescription + MIC_CUST_OPR_FINISHEDGOOD + Ofggoodsdescription + Fürth + + + + + + + + + + + + + + + + + + + + + + false + + + + + + + + + + + + + + + + + + false + + + + + + + + + + + + + + + + + + + false + + + + + + + + + + + + + + + + + + + + + + + ERP Specific Data + ERP spezifische Daten + + + false + + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.Designer.vb new file mode 100644 index 0000000..e73e955 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.Designer.vb @@ -0,0 +1,18285 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' MIC_IMPORT_InvoiceListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace MIC_IMPORT_Invoice + + + Partial Public Class TInvoice + +#Region "Private fields" + Private _invoiceNumber As String + + Private _invoiceVersion As String + + Private _invoiceDate As Date + + Private _invoiceHead As TInvoiceHead + + Private _attributes As List(Of TAttribute) + + Private _documents As List(Of TDocument) + + Private _partners As List(Of TPartner) + + Private _atlasCompletionSumDs As List(Of TAtlasCompSumDEntry) + + Private _intra As TCustIntra + + Private _invoiceLines As List(Of TInvoiceLine) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._invoiceLines = New List(Of TInvoiceLine)() + Me._intra = New TCustIntra() + Me._atlasCompletionSumDs = New List(Of TAtlasCompSumDEntry)() + Me._partners = New List(Of TPartner)() + Me._documents = New List(Of TDocument)() + Me._attributes = New List(Of TAttribute)() + Me._invoiceHead = New TInvoiceHead() + End Sub + + Public Property invoiceNumber() As String + Get + Return Me._invoiceNumber + End Get + Set + Me._invoiceNumber = Value + End Set + End Property + + Public Property invoiceVersion() As String + Get + Return Me._invoiceVersion + End Get + Set + Me._invoiceVersion = Value + End Set + End Property + + + Public Property invoiceDate() As Date + Get + Return Me._invoiceDate + End Get + Set + Me._invoiceDate = Value + End Set + End Property + + Public Property InvoiceHead() As TInvoiceHead + Get + Return Me._invoiceHead + End Get + Set + Me._invoiceHead = Value + End Set + End Property + + + Public Property Attributes() As List(Of TAttribute) + Get + Return Me._attributes + End Get + Set + Me._attributes = Value + End Set + End Property + + + Public Property Documents() As List(Of TDocument) + Get + Return Me._documents + End Get + Set + Me._documents = Value + End Set + End Property + + + Public Property Partners() As List(Of TPartner) + Get + Return Me._partners + End Get + Set + Me._partners = Value + End Set + End Property + + + Public Property AtlasCompletionSumDs() As List(Of TAtlasCompSumDEntry) + Get + Return Me._atlasCompletionSumDs + End Get + Set + Me._atlasCompletionSumDs = Value + End Set + End Property + + Public Property Intra() As TCustIntra + Get + Return Me._intra + End Get + Set + Me._intra = Value + End Set + End Property + + + Public Property InvoiceLines() As List(Of TInvoiceLine) + Get + Return Me._invoiceLines + End Get + Set + Me._invoiceLines = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInvoice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInvoice object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInvoice object + ''' + ''' string workflow markup to deserialize + ''' Output TInvoice 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 TInvoice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoice) + 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 TInvoice) 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 TInvoice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInvoice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInvoice + Return CType(Serializer.Deserialize(s), TInvoice) + End Function +#End Region + + ''' + ''' Serializes current TInvoice 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInvoice object + ''' + ''' string xml file to load and deserialize + ''' Output TInvoice 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 TInvoice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoice) + 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 TInvoice) 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 TInvoice + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInvoiceHead + +#Region "Private fields" + Private _invoiceType As String + + Private _contractDate As Date + + Private _countryOfTrade As String + + Private _supplier As TAddress + + Private _grossWeight As Decimal + + Private _netWeight As Decimal + + Private _invoiceValue As Decimal + + Private _invoiceCurrency As String + + Private _deliveryTerms As TDelTerm + + Private _rebate As TRebate + + Private _discount As Decimal + + Private _additionalCost As List(Of TAddCosts) + + Private _text As String + + Private _text2 As String + + Private _freight As TFreightCostsInv + + Private _insurance As TInsuranceCostsInv + + Private _referenceNumber As String + + Private _transportNumber As String + + Private _transportType As String + + Private _acceptanceDate As Date + + Private _disposalDate As Date + + Private _timeLimit As Date + + Private _registrationNumber As String + + Private _sealNumber As String + + Private _billOfLading As String + + Private _packageCount As Decimal + + Private _packageType As String + + Private _buyer As String + + Private _consignee As String + + Private _paymentInformation As TImportPaymentInfo + + Private _customerFields As TCustomerFields + + Private _seller As TAddress + + Private _exchangeRate As Decimal + + Private _creationUser As String + + Private _creationDate As Date + + Private _modificationUser As String + + Private _modificationDate As Date + + Private _containerInfo As TContainer + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._containerInfo = New TContainer() + Me._seller = New TAddress() + Me._customerFields = New TCustomerFields() + Me._paymentInformation = New TImportPaymentInfo() + Me._insurance = New TInsuranceCostsInv() + Me._freight = New TFreightCostsInv() + Me._additionalCost = New List(Of TAddCosts)() + Me._rebate = New TRebate() + Me._deliveryTerms = New TDelTerm() + Me._supplier = New TAddress() + End Sub + + Public Property invoiceType() As String + Get + Return Me._invoiceType + End Get + Set + Me._invoiceType = Value + End Set + End Property + + + Public Property contractDate() As Date + Get + Return Me._contractDate + End Get + Set + Me._contractDate = Value + End Set + End Property + + Public Property countryOfTrade() As String + Get + Return Me._countryOfTrade + End Get + Set + Me._countryOfTrade = Value + End Set + End Property + + Public Property Supplier() As TAddress + Get + Return Me._supplier + End Get + Set + Me._supplier = Value + End Set + End Property + + Public Property grossWeight() As Decimal + Get + Return Me._grossWeight + End Get + Set + Me._grossWeight = Value + End Set + End Property + + Public Property netWeight() As Decimal + Get + Return Me._netWeight + End Get + Set + Me._netWeight = Value + End Set + End Property + + Public Property invoiceValue() As Decimal + Get + Return Me._invoiceValue + End Get + Set + Me._invoiceValue = Value + End Set + End Property + + Public Property invoiceCurrency() As String + Get + Return Me._invoiceCurrency + End Get + Set + Me._invoiceCurrency = Value + End Set + End Property + + Public Property deliveryTerms() As TDelTerm + Get + Return Me._deliveryTerms + End Get + Set + Me._deliveryTerms = Value + End Set + End Property + + Public Property Rebate() As TRebate + Get + Return Me._rebate + End Get + Set + Me._rebate = Value + End Set + End Property + + Public Property discount() As Decimal + Get + Return Me._discount + End Get + Set + Me._discount = Value + End Set + End Property + + + Public Property AdditionalCost() As List(Of TAddCosts) + Get + Return Me._additionalCost + End Get + Set + Me._additionalCost = Value + End Set + End Property + + Public Property text() As String + Get + Return Me._text + End Get + Set + Me._text = Value + End Set + End Property + + Public Property text2() As String + Get + Return Me._text2 + End Get + Set + Me._text2 = Value + End Set + End Property + + Public Property Freight() As TFreightCostsInv + Get + Return Me._freight + End Get + Set + Me._freight = Value + End Set + End Property + + Public Property Insurance() As TInsuranceCostsInv + Get + Return Me._insurance + End Get + Set + Me._insurance = 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 transportNumber() As String + Get + Return Me._transportNumber + End Get + Set + Me._transportNumber = Value + End Set + End Property + + Public Property transportType() As String + Get + Return Me._transportType + End Get + Set + Me._transportType = Value + End Set + End Property + + + Public Property acceptanceDate() As Date + Get + Return Me._acceptanceDate + End Get + Set + Me._acceptanceDate = Value + End Set + End Property + + + Public Property disposalDate() As Date + Get + Return Me._disposalDate + End Get + Set + Me._disposalDate = Value + End Set + End Property + + + Public Property timeLimit() As Date + Get + Return Me._timeLimit + End Get + Set + Me._timeLimit = Value + End Set + End Property + + Public Property registrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set + Me._registrationNumber = Value + End Set + End Property + + Public Property sealNumber() As String + Get + Return Me._sealNumber + End Get + Set + Me._sealNumber = Value + End Set + End Property + + Public Property billOfLading() As String + Get + Return Me._billOfLading + End Get + Set + Me._billOfLading = Value + End Set + End Property + + Public Property packageCount() As Decimal + Get + Return Me._packageCount + End Get + Set + Me._packageCount = Value + End Set + End Property + + Public Property packageType() As String + Get + Return Me._packageType + End Get + Set + Me._packageType = Value + End Set + End Property + + Public Property buyer() As String + Get + Return Me._buyer + End Get + Set + Me._buyer = Value + End Set + End Property + + Public Property consignee() As String + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + Public Property PaymentInformation() As TImportPaymentInfo + Get + Return Me._paymentInformation + End Get + Set + Me._paymentInformation = Value + End Set + End Property + + Public Property CustomerFields() As TCustomerFields + Get + Return Me._customerFields + End Get + Set + Me._customerFields = Value + End Set + End Property + + Public Property seller() As TAddress + Get + Return Me._seller + End Get + Set + Me._seller = Value + End Set + End Property + + Public Property exchangeRate() As Decimal + Get + Return Me._exchangeRate + End Get + Set + Me._exchangeRate = Value + End Set + End Property + + Public Property creationUser() As String + Get + Return Me._creationUser + End Get + Set + Me._creationUser = Value + End Set + End Property + + Public Property creationDate() As Date + Get + Return Me._creationDate + End Get + Set + Me._creationDate = Value + End Set + End Property + + Public Property modificationUser() As String + Get + Return Me._modificationUser + End Get + Set + Me._modificationUser = Value + End Set + End Property + + Public Property modificationDate() As Date + Get + Return Me._modificationDate + End Get + Set + Me._modificationDate = Value + End Set + End Property + + Public Property ContainerInfo() As TContainer + Get + Return Me._containerInfo + End Get + Set + Me._containerInfo = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceHead)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInvoiceHead object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInvoiceHead object + ''' + ''' string workflow markup to deserialize + ''' Output TInvoiceHead 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 TInvoiceHead, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceHead) + 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 TInvoiceHead) 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 TInvoiceHead + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInvoiceHead) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInvoiceHead + Return CType(Serializer.Deserialize(s), TInvoiceHead) + End Function +#End Region + + ''' + ''' Serializes current TInvoiceHead 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInvoiceHead object + ''' + ''' string xml file to load and deserialize + ''' Output TInvoiceHead 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 TInvoiceHead, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceHead) + 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 TInvoiceHead) 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 TInvoiceHead + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAddress + +#Region "Private fields" + Private _addrNo As String + + Private _addrNoType As String + + Private _addrName As List(Of String) + + Private _addrStreet As String + + Private _addrLoc As String + + Private _addrCtry As String + + Private _addrState As String + + Private _addrZip As String + + Private _addrTin As String + + Private _addrEori As String + + Private _partnerRelation As String + + Private _addrDistrict As String + + Private _addrBranchNo As String + + Private _email As String + + Private _addrVatNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._addrName = New List(Of String)() + End Sub + + Public Property addrNo() As String + Get + Return Me._addrNo + End Get + Set + Me._addrNo = Value + End Set + End Property + + Public Property addrNoType() As String + Get + Return Me._addrNoType + End Get + Set + Me._addrNoType = Value + End Set + End Property + + + Public Property addrName() As List(Of String) + Get + Return Me._addrName + End Get + Set + Me._addrName = Value + End Set + End Property + + Public Property addrStreet() As String + Get + Return Me._addrStreet + End Get + Set + Me._addrStreet = Value + End Set + End Property + + Public Property addrLoc() As String + Get + Return Me._addrLoc + End Get + Set + Me._addrLoc = Value + End Set + End Property + + Public Property addrCtry() As String + Get + Return Me._addrCtry + End Get + Set + Me._addrCtry = Value + End Set + End Property + + Public Property addrState() As String + Get + Return Me._addrState + End Get + Set + Me._addrState = Value + End Set + End Property + + Public Property addrZip() As String + Get + Return Me._addrZip + End Get + Set + Me._addrZip = Value + End Set + End Property + + Public Property addrTin() As String + Get + Return Me._addrTin + End Get + Set + Me._addrTin = Value + End Set + End Property + + Public Property addrEori() As String + Get + Return Me._addrEori + End Get + Set + Me._addrEori = Value + End Set + End Property + + Public Property partnerRelation() As String + Get + Return Me._partnerRelation + End Get + Set + Me._partnerRelation = Value + End Set + End Property + + Public Property addrDistrict() As String + Get + Return Me._addrDistrict + End Get + Set + Me._addrDistrict = Value + End Set + End Property + + Public Property addrBranchNo() As String + Get + Return Me._addrBranchNo + End Get + Set + Me._addrBranchNo = Value + End Set + End Property + + Public Property email() As String + Get + Return Me._email + End Get + Set + Me._email = Value + End Set + End Property + + Public Property addrVatNumber() As String + Get + Return Me._addrVatNumber + End Get + Set + Me._addrVatNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAddress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAddress object + ''' + ''' string workflow markup to deserialize + ''' Output TAddress 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 TAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAddress) + 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 TAddress) 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 TAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAddress + Return CType(Serializer.Deserialize(s), TAddress) + End Function +#End Region + + ''' + ''' Serializes current TAddress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAddress object + ''' + ''' string xml file to load and deserialize + ''' Output TAddress 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 TAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAddress) + 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 TAddress) 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 TAddress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPackageData + +#Region "Private fields" + Private _signo As String + + Private _numberOfPackages As Long + + Private _packageType As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property signo() As String + Get + Return Me._signo + End Get + Set + Me._signo = Value + End Set + End Property + + Public Property numberOfPackages() As Long + Get + Return Me._numberOfPackages + End Get + Set + Me._numberOfPackages = Value + End Set + End Property + + Public Property packageType() As String + Get + Return Me._packageType + End Get + Set + Me._packageType = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPackageData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPackageData object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPackageData object + ''' + ''' string workflow markup to deserialize + ''' Output TPackageData 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 TPackageData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPackageData) + 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 TPackageData) 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 TPackageData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPackageData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPackageData + Return CType(Serializer.Deserialize(s), TPackageData) + End Function +#End Region + + ''' + ''' Serializes current TPackageData 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPackageData object + ''' + ''' string xml file to load and deserialize + ''' Output TPackageData 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 TPackageData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPackageData) + 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 TPackageData) 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 TPackageData + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPackagesData + +#Region "Private fields" + Private _packageData As List(Of TPackageData) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._packageData = New List(Of TPackageData)() + End Sub + + + Public Property PackageData() As List(Of TPackageData) + Get + Return Me._packageData + End Get + Set + Me._packageData = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPackagesData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPackagesData object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPackagesData object + ''' + ''' string workflow markup to deserialize + ''' Output TPackagesData 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 TPackagesData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPackagesData) + 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 TPackagesData) 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 TPackagesData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPackagesData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPackagesData + Return CType(Serializer.Deserialize(s), TPackagesData) + End Function +#End Region + + ''' + ''' Serializes current TPackagesData 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPackagesData object + ''' + ''' string xml file to load and deserialize + ''' Output TPackagesData 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 TPackagesData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPackagesData) + 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 TPackagesData) 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 TPackagesData + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRefPrevProcedure + +#Region "Private fields" + Private _referenceType As String + + Private _referenceNumber As String + + Private _authorisationNumber As String + + Private _registrationNumber As String + + Private _positionNumber As Long + + Private _partNumber As String + + Private _tariffNumber As String + + Private _tradeQuantity As Decimal + + Private _tradeUnitOfMeasurement As String + + Private _tradeQualifier As String + + Private _deductionQuantity As Decimal + + Private _deductionUnitOfMeasurement As String + + Private _deductionQualifier As String + + Private _additionalInformation As String + + Private _normalTreatmentFlag As Boolean + + Private _atlasFlag As Boolean + + Private _customsNumber As String + + Private _statisticalQuantity As Decimal + + Private _netMass As Decimal + + Private _grossMass As Decimal + + Private _packageQuantity As Decimal + + Private _simpleIprApplication As Boolean + + Private _supervisingOffice As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property referenceType() As String + Get + Return Me._referenceType + End Get + Set + Me._referenceType = 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 authorisationNumber() As String + Get + Return Me._authorisationNumber + End Get + Set + Me._authorisationNumber = Value + End Set + End Property + + Public Property registrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set + Me._registrationNumber = Value + End Set + End Property + + Public Property positionNumber() As Long + Get + Return Me._positionNumber + End Get + Set + Me._positionNumber = Value + End Set + End Property + + Public Property partNumber() As String + Get + Return Me._partNumber + End Get + Set + Me._partNumber = Value + End Set + End Property + + Public Property tariffNumber() As String + Get + Return Me._tariffNumber + End Get + Set + Me._tariffNumber = Value + End Set + End Property + + Public Property tradeQuantity() As Decimal + Get + Return Me._tradeQuantity + End Get + Set + Me._tradeQuantity = Value + End Set + End Property + + Public Property tradeUnitOfMeasurement() As String + Get + Return Me._tradeUnitOfMeasurement + End Get + Set + Me._tradeUnitOfMeasurement = Value + End Set + End Property + + Public Property tradeQualifier() As String + Get + Return Me._tradeQualifier + End Get + Set + Me._tradeQualifier = Value + End Set + End Property + + Public Property deductionQuantity() As Decimal + Get + Return Me._deductionQuantity + End Get + Set + Me._deductionQuantity = Value + End Set + End Property + + Public Property deductionUnitOfMeasurement() As String + Get + Return Me._deductionUnitOfMeasurement + End Get + Set + Me._deductionUnitOfMeasurement = Value + End Set + End Property + + Public Property deductionQualifier() As String + Get + Return Me._deductionQualifier + End Get + Set + Me._deductionQualifier = Value + End Set + End Property + + Public Property additionalInformation() As String + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + Public Property normalTreatmentFlag() As Boolean + Get + Return Me._normalTreatmentFlag + End Get + Set + Me._normalTreatmentFlag = Value + End Set + End Property + + Public Property atlasFlag() As Boolean + Get + Return Me._atlasFlag + End Get + Set + Me._atlasFlag = Value + End Set + End Property + + Public Property customsNumber() As String + Get + Return Me._customsNumber + End Get + Set + Me._customsNumber = Value + End Set + End Property + + Public Property statisticalQuantity() As Decimal + Get + Return Me._statisticalQuantity + End Get + Set + Me._statisticalQuantity = 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 grossMass() As Decimal + Get + Return Me._grossMass + End Get + Set + Me._grossMass = Value + End Set + End Property + + Public Property packageQuantity() As Decimal + Get + Return Me._packageQuantity + End Get + Set + Me._packageQuantity = Value + End Set + End Property + + Public Property simpleIprApplication() As Boolean + Get + Return Me._simpleIprApplication + End Get + Set + Me._simpleIprApplication = Value + End Set + End Property + + Public Property supervisingOffice() As String + Get + Return Me._supervisingOffice + End Get + Set + Me._supervisingOffice = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRefPrevProcedure)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRefPrevProcedure object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRefPrevProcedure object + ''' + ''' string workflow markup to deserialize + ''' Output TRefPrevProcedure 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 TRefPrevProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRefPrevProcedure) + 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 TRefPrevProcedure) 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 TRefPrevProcedure + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRefPrevProcedure) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRefPrevProcedure + Return CType(Serializer.Deserialize(s), TRefPrevProcedure) + End Function +#End Region + + ''' + ''' Serializes current TRefPrevProcedure 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRefPrevProcedure object + ''' + ''' string xml file to load and deserialize + ''' Output TRefPrevProcedure 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 TRefPrevProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRefPrevProcedure) + 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 TRefPrevProcedure) 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 TRefPrevProcedure + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPreSupplier + +#Region "Private fields" + Private _infDutyValue As Decimal + + Private _infDutyRate As Decimal + + Private _infDuty As Decimal + + Private _infDutyCurrency As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property infDutyValue() As Decimal + Get + Return Me._infDutyValue + End Get + Set + Me._infDutyValue = Value + End Set + End Property + + Public Property infDutyRate() As Decimal + Get + Return Me._infDutyRate + End Get + Set + Me._infDutyRate = Value + End Set + End Property + + Public Property infDuty() As Decimal + Get + Return Me._infDuty + End Get + Set + Me._infDuty = Value + End Set + End Property + + Public Property infDutyCurrency() As String + Get + Return Me._infDutyCurrency + End Get + Set + Me._infDutyCurrency = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPreSupplier)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPreSupplier object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPreSupplier object + ''' + ''' string workflow markup to deserialize + ''' Output TPreSupplier 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 TPreSupplier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPreSupplier) + 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 TPreSupplier) 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 TPreSupplier + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPreSupplier) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPreSupplier + Return CType(Serializer.Deserialize(s), TPreSupplier) + End Function +#End Region + + ''' + ''' Serializes current TPreSupplier 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPreSupplier object + ''' + ''' string xml file to load and deserialize + ''' Output TPreSupplier 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 TPreSupplier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPreSupplier) + 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 TPreSupplier) 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 TPreSupplier + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustIntraLine + +#Region "Private fields" + Private _status As String + + Private _invoiceDate As Date + + Private _period As Long + + Private _region As String + + Private _statisticalProcedure As String + + Private _statisticalValue As Decimal + + Private _additionalCostsCurrency1 As String + + Private _additionalCostsType1 As String + + Private _additionalCostsCurrency2 As String + + Private _additionalCostsType2 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property status() As String + Get + Return Me._status + End Get + Set + Me._status = Value + End Set + End Property + + + Public Property invoiceDate() As Date + Get + Return Me._invoiceDate + End Get + Set + Me._invoiceDate = Value + End Set + End Property + + Public Property period() As Long + Get + Return Me._period + End Get + Set + Me._period = Value + End Set + End Property + + Public Property region() As String + Get + Return Me._region + End Get + Set + Me._region = Value + End Set + End Property + + Public Property statisticalProcedure() As String + Get + Return Me._statisticalProcedure + End Get + Set + Me._statisticalProcedure = Value + End Set + End Property + + Public Property statisticalValue() As Decimal + Get + Return Me._statisticalValue + End Get + Set + Me._statisticalValue = Value + End Set + End Property + + Public Property additionalCostsCurrency1() As String + Get + Return Me._additionalCostsCurrency1 + End Get + Set + Me._additionalCostsCurrency1 = Value + End Set + End Property + + Public Property additionalCostsType1() As String + Get + Return Me._additionalCostsType1 + End Get + Set + Me._additionalCostsType1 = Value + End Set + End Property + + Public Property additionalCostsCurrency2() As String + Get + Return Me._additionalCostsCurrency2 + End Get + Set + Me._additionalCostsCurrency2 = Value + End Set + End Property + + Public Property additionalCostsType2() As String + Get + Return Me._additionalCostsType2 + End Get + Set + Me._additionalCostsType2 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustIntraLine)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustIntraLine object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustIntraLine object + ''' + ''' string workflow markup to deserialize + ''' Output TCustIntraLine 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 TCustIntraLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustIntraLine) + 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 TCustIntraLine) 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 TCustIntraLine + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustIntraLine) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustIntraLine + Return CType(Serializer.Deserialize(s), TCustIntraLine) + End Function +#End Region + + ''' + ''' Serializes current TCustIntraLine 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustIntraLine object + ''' + ''' string xml file to load and deserialize + ''' Output TCustIntraLine 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 TCustIntraLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustIntraLine) + 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 TCustIntraLine) 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 TCustIntraLine + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TOprInfo + +#Region "Private fields" + Private _dutyGroup1 As String + + Private _reductionAmount1 As Decimal + + Private _dutyGroup2 As String + + Private _reductionAmount2 As Decimal + + Private _dutyGroup3 As String + + Private _reductionAmount3 As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property dutyGroup1() As String + Get + Return Me._dutyGroup1 + End Get + Set + Me._dutyGroup1 = Value + End Set + End Property + + Public Property reductionAmount1() As Decimal + Get + Return Me._reductionAmount1 + End Get + Set + Me._reductionAmount1 = Value + End Set + End Property + + Public Property dutyGroup2() As String + Get + Return Me._dutyGroup2 + End Get + Set + Me._dutyGroup2 = Value + End Set + End Property + + Public Property reductionAmount2() As Decimal + Get + Return Me._reductionAmount2 + End Get + Set + Me._reductionAmount2 = Value + End Set + End Property + + Public Property dutyGroup3() As String + Get + Return Me._dutyGroup3 + End Get + Set + Me._dutyGroup3 = Value + End Set + End Property + + Public Property reductionAmount3() As Decimal + Get + Return Me._reductionAmount3 + End Get + Set + Me._reductionAmount3 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TOprInfo)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TOprInfo object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TOprInfo object + ''' + ''' string workflow markup to deserialize + ''' Output TOprInfo 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 TOprInfo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TOprInfo) + 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 TOprInfo) 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 TOprInfo + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TOprInfo) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TOprInfo + Return CType(Serializer.Deserialize(s), TOprInfo) + End Function +#End Region + + ''' + ''' Serializes current TOprInfo 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TOprInfo object + ''' + ''' string xml file to load and deserialize + ''' Output TOprInfo 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 TOprInfo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TOprInfo) + 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 TOprInfo) 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 TOprInfo + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDutySaving + +#Region "Private fields" + Private _additionalCostsType As String + + Private _code As String + + Private _calculatedCustDuties As Decimal + + Private _amount As Decimal + + Private _creationFlag As String + + Private _unitOfMeasurment As String + + Private _calculationBase As Decimal + + Private _countryOfDuties As String + + Private _calculatedDuties As Decimal + + Private _calculatedAssessmentBasis As Decimal + + Private _measuresType As String + + Private _dutyRate As Decimal + + Private _addition As Decimal + + Private _preferentialFlag As String + + Private _creationUser As String + + Private _creationDate As Date + + Private _modificationUser As String + + Private _modificationDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property additionalCostsType() As String + Get + Return Me._additionalCostsType + End Get + Set + Me._additionalCostsType = 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 calculatedCustDuties() As Decimal + Get + Return Me._calculatedCustDuties + End Get + Set + Me._calculatedCustDuties = Value + End Set + End Property + + Public Property amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Public Property creationFlag() As String + Get + Return Me._creationFlag + End Get + Set + Me._creationFlag = Value + End Set + End Property + + Public Property unitOfMeasurment() As String + Get + Return Me._unitOfMeasurment + End Get + Set + Me._unitOfMeasurment = Value + End Set + End Property + + Public Property calculationBase() As Decimal + Get + Return Me._calculationBase + End Get + Set + Me._calculationBase = Value + End Set + End Property + + Public Property countryOfDuties() As String + Get + Return Me._countryOfDuties + End Get + Set + Me._countryOfDuties = Value + End Set + End Property + + Public Property calculatedDuties() As Decimal + Get + Return Me._calculatedDuties + End Get + Set + Me._calculatedDuties = Value + End Set + End Property + + Public Property calculatedAssessmentBasis() As Decimal + Get + Return Me._calculatedAssessmentBasis + End Get + Set + Me._calculatedAssessmentBasis = Value + End Set + End Property + + Public Property measuresType() As String + Get + Return Me._measuresType + End Get + Set + Me._measuresType = Value + End Set + End Property + + Public Property dutyRate() As Decimal + Get + Return Me._dutyRate + End Get + Set + Me._dutyRate = Value + End Set + End Property + + Public Property addition() As Decimal + Get + Return Me._addition + End Get + Set + Me._addition = Value + End Set + End Property + + Public Property preferentialFlag() As String + Get + Return Me._preferentialFlag + End Get + Set + Me._preferentialFlag = Value + End Set + End Property + + Public Property creationUser() As String + Get + Return Me._creationUser + End Get + Set + Me._creationUser = Value + End Set + End Property + + Public Property creationDate() As Date + Get + Return Me._creationDate + End Get + Set + Me._creationDate = Value + End Set + End Property + + Public Property modificationUser() As String + Get + Return Me._modificationUser + End Get + Set + Me._modificationUser = Value + End Set + End Property + + Public Property modificationDate() As Date + Get + Return Me._modificationDate + End Get + Set + Me._modificationDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDutySaving)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDutySaving object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDutySaving object + ''' + ''' string workflow markup to deserialize + ''' Output TDutySaving 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 TDutySaving, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDutySaving) + 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 TDutySaving) 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 TDutySaving + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDutySaving) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDutySaving + Return CType(Serializer.Deserialize(s), TDutySaving) + End Function +#End Region + + ''' + ''' Serializes current TDutySaving 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDutySaving object + ''' + ''' string xml file to load and deserialize + ''' Output TDutySaving 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 TDutySaving, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDutySaving) + 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 TDutySaving) 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 TDutySaving + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDutyTax + +#Region "Private fields" + Private _additionalCostsType As String + + Private _code As String + + Private _calculatedCustDuties As Decimal + + Private _amount As Decimal + + Private _creationFlag As String + + Private _unitOfMeasurment As String + + Private _calculationBase As Decimal + + Private _countryOfDuties As String + + Private _calculatedDuties As Decimal + + Private _calculatedAssessmentBasis As Decimal + + Private _areaCode As String + + Private _measuresType As String + + Private _dutyCodeCustomsOffice As String + + Private _indentureNumber As String + + Private _dutyRate As Decimal + + Private _stornoFlag As String + + Private _dutyAmountIncreaseOrDecrease As Decimal + + Private _typeOfAdditionalCode As String + + Private _noOfAdditionalCode As String + + Private _calculatedDutyRate As Decimal + + Private _creationUser As String + + Private _creationDate As Date + + Private _modificationUser As String + + Private _modificationDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property additionalCostsType() As String + Get + Return Me._additionalCostsType + End Get + Set + Me._additionalCostsType = 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 calculatedCustDuties() As Decimal + Get + Return Me._calculatedCustDuties + End Get + Set + Me._calculatedCustDuties = Value + End Set + End Property + + Public Property amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Public Property creationFlag() As String + Get + Return Me._creationFlag + End Get + Set + Me._creationFlag = Value + End Set + End Property + + Public Property unitOfMeasurment() As String + Get + Return Me._unitOfMeasurment + End Get + Set + Me._unitOfMeasurment = Value + End Set + End Property + + Public Property calculationBase() As Decimal + Get + Return Me._calculationBase + End Get + Set + Me._calculationBase = Value + End Set + End Property + + Public Property countryOfDuties() As String + Get + Return Me._countryOfDuties + End Get + Set + Me._countryOfDuties = Value + End Set + End Property + + Public Property calculatedDuties() As Decimal + Get + Return Me._calculatedDuties + End Get + Set + Me._calculatedDuties = Value + End Set + End Property + + Public Property calculatedAssessmentBasis() As Decimal + Get + Return Me._calculatedAssessmentBasis + End Get + Set + Me._calculatedAssessmentBasis = Value + End Set + End Property + + Public Property areaCode() As String + Get + Return Me._areaCode + End Get + Set + Me._areaCode = Value + End Set + End Property + + Public Property measuresType() As String + Get + Return Me._measuresType + End Get + Set + Me._measuresType = Value + End Set + End Property + + Public Property dutyCodeCustomsOffice() As String + Get + Return Me._dutyCodeCustomsOffice + End Get + Set + Me._dutyCodeCustomsOffice = Value + End Set + End Property + + Public Property indentureNumber() As String + Get + Return Me._indentureNumber + End Get + Set + Me._indentureNumber = Value + End Set + End Property + + Public Property dutyRate() As Decimal + Get + Return Me._dutyRate + End Get + Set + Me._dutyRate = Value + End Set + End Property + + Public Property stornoFlag() As String + Get + Return Me._stornoFlag + End Get + Set + Me._stornoFlag = Value + End Set + End Property + + Public Property dutyAmountIncreaseOrDecrease() As Decimal + Get + Return Me._dutyAmountIncreaseOrDecrease + End Get + Set + Me._dutyAmountIncreaseOrDecrease = Value + End Set + End Property + + Public Property typeOfAdditionalCode() As String + Get + Return Me._typeOfAdditionalCode + End Get + Set + Me._typeOfAdditionalCode = Value + End Set + End Property + + Public Property noOfAdditionalCode() As String + Get + Return Me._noOfAdditionalCode + End Get + Set + Me._noOfAdditionalCode = Value + End Set + End Property + + Public Property calculatedDutyRate() As Decimal + Get + Return Me._calculatedDutyRate + End Get + Set + Me._calculatedDutyRate = Value + End Set + End Property + + Public Property creationUser() As String + Get + Return Me._creationUser + End Get + Set + Me._creationUser = Value + End Set + End Property + + Public Property creationDate() As Date + Get + Return Me._creationDate + End Get + Set + Me._creationDate = Value + End Set + End Property + + Public Property modificationUser() As String + Get + Return Me._modificationUser + End Get + Set + Me._modificationUser = Value + End Set + End Property + + Public Property modificationDate() As Date + Get + Return Me._modificationDate + End Get + Set + Me._modificationDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDutyTax)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDutyTax object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDutyTax object + ''' + ''' string workflow markup to deserialize + ''' Output TDutyTax 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 TDutyTax, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDutyTax) + 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 TDutyTax) 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 TDutyTax + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDutyTax) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDutyTax + Return CType(Serializer.Deserialize(s), TDutyTax) + End Function +#End Region + + ''' + ''' Serializes current TDutyTax 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDutyTax object + ''' + ''' string xml file to load and deserialize + ''' Output TDutyTax 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 TDutyTax, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDutyTax) + 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 TDutyTax) 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 TDutyTax + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDuty + +#Region "Private fields" + Private _type As String + + Private _calcDutyBase As Decimal + + Private _currency As String + + Private _code As String + + Private _rate As Decimal + + Private _amount As Decimal + + Private _addDeduct As Decimal + + Private _calcDuty As Decimal + + Private _duty As Decimal + + Private _dutyBase As Decimal + + Private _measureCode As String + + Private _measure As String + + Private _authorityDutyCode As String + + Private _territory As String + + Private _typeAddCode As String + + Private _numberAddCode As String + + Private _tariffRateQuota As String + + Private _creationUser As String + + Private _creationDate As Date + + Private _modificationUser As String + + Private _modificationDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property calcDutyBase() As Decimal + Get + Return Me._calcDutyBase + End Get + Set + Me._calcDutyBase = Value + End Set + End Property + + Public Property currency() As String + Get + Return Me._currency + End Get + Set + Me._currency = 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 rate() As Decimal + Get + Return Me._rate + End Get + Set + Me._rate = Value + End Set + End Property + + Public Property amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Public Property addDeduct() As Decimal + Get + Return Me._addDeduct + End Get + Set + Me._addDeduct = Value + End Set + End Property + + Public Property calcDuty() As Decimal + Get + Return Me._calcDuty + End Get + Set + Me._calcDuty = Value + End Set + End Property + + Public Property duty() As Decimal + Get + Return Me._duty + End Get + Set + Me._duty = Value + End Set + End Property + + Public Property dutyBase() As Decimal + Get + Return Me._dutyBase + End Get + Set + Me._dutyBase = Value + End Set + End Property + + Public Property measureCode() As String + Get + Return Me._measureCode + End Get + Set + Me._measureCode = Value + End Set + End Property + + Public Property measure() As String + Get + Return Me._measure + End Get + Set + Me._measure = Value + End Set + End Property + + Public Property authorityDutyCode() As String + Get + Return Me._authorityDutyCode + End Get + Set + Me._authorityDutyCode = Value + End Set + End Property + + Public Property territory() As String + Get + Return Me._territory + End Get + Set + Me._territory = Value + End Set + End Property + + Public Property typeAddCode() As String + Get + Return Me._typeAddCode + End Get + Set + Me._typeAddCode = Value + End Set + End Property + + Public Property numberAddCode() As String + Get + Return Me._numberAddCode + End Get + Set + Me._numberAddCode = Value + End Set + End Property + + Public Property tariffRateQuota() As String + Get + Return Me._tariffRateQuota + End Get + Set + Me._tariffRateQuota = Value + End Set + End Property + + Public Property creationUser() As String + Get + Return Me._creationUser + End Get + Set + Me._creationUser = Value + End Set + End Property + + Public Property creationDate() As Date + Get + Return Me._creationDate + End Get + Set + Me._creationDate = Value + End Set + End Property + + Public Property modificationUser() As String + Get + Return Me._modificationUser + End Get + Set + Me._modificationUser = Value + End Set + End Property + + Public Property modificationDate() As Date + Get + Return Me._modificationDate + End Get + Set + Me._modificationDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDuty)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDuty object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDuty object + ''' + ''' string workflow markup to deserialize + ''' Output TDuty 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 TDuty, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDuty) + 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 TDuty) 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 TDuty + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDuty) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDuty + Return CType(Serializer.Deserialize(s), TDuty) + End Function +#End Region + + ''' + ''' Serializes current TDuty 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDuty object + ''' + ''' string xml file to load and deserialize + ''' Output TDuty 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 TDuty, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDuty) + 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 TDuty) 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 TDuty + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCalcValuesCust + +#Region "Private fields" + Private _customsValue As Decimal + + Private _netValue As Decimal + + Private _additionalStatisticalValue As Decimal + + Private _additionalCostsVat As Decimal + + Private _addStatisticValue As Decimal + + Private _oprIngredientsValue As Decimal + + Private _additionalCosts1 As Decimal + + Private _additionalCosts2 As Decimal + + Private _additionalCosts3 As Decimal + + Private _additionalCosts4 As Decimal + + Private _additionalCosts5 As Decimal + + Private _additionalCosts6 As Decimal + + Private _additionalCosts7 As Decimal + + Private _additionalCosts8 As Decimal + + Private _additionalCosts9 As Decimal + + Private _additionalCosts10 As Decimal + + Private _additionalCosts11 As Decimal + + Private _additionalCosts12 As Decimal + + Private _additionalCosts13 As Decimal + + Private _additionalCosts14 As Decimal + + Private _additionalCosts15 As Decimal + + Private _additionalCosts16 As Decimal + + Private _additionalCosts17 As Decimal + + Private _additionalCosts18 As Decimal + + Private _additionalCosts19 As Decimal + + Private _additionalCosts20 As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property customsValue() As Decimal + Get + Return Me._customsValue + End Get + Set + Me._customsValue = Value + End Set + End Property + + Public Property netValue() As Decimal + Get + Return Me._netValue + End Get + Set + Me._netValue = Value + End Set + End Property + + Public Property additionalStatisticalValue() As Decimal + Get + Return Me._additionalStatisticalValue + End Get + Set + Me._additionalStatisticalValue = Value + End Set + End Property + + Public Property additionalCostsVat() As Decimal + Get + Return Me._additionalCostsVat + End Get + Set + Me._additionalCostsVat = Value + End Set + End Property + + Public Property addStatisticValue() As Decimal + Get + Return Me._addStatisticValue + End Get + Set + Me._addStatisticValue = Value + End Set + End Property + + Public Property oprIngredientsValue() As Decimal + Get + Return Me._oprIngredientsValue + End Get + Set + Me._oprIngredientsValue = Value + End Set + End Property + + Public Property additionalCosts1() As Decimal + Get + Return Me._additionalCosts1 + End Get + Set + Me._additionalCosts1 = Value + End Set + End Property + + Public Property additionalCosts2() As Decimal + Get + Return Me._additionalCosts2 + End Get + Set + Me._additionalCosts2 = Value + End Set + End Property + + Public Property additionalCosts3() As Decimal + Get + Return Me._additionalCosts3 + End Get + Set + Me._additionalCosts3 = Value + End Set + End Property + + Public Property additionalCosts4() As Decimal + Get + Return Me._additionalCosts4 + End Get + Set + Me._additionalCosts4 = Value + End Set + End Property + + Public Property additionalCosts5() As Decimal + Get + Return Me._additionalCosts5 + End Get + Set + Me._additionalCosts5 = Value + End Set + End Property + + Public Property additionalCosts6() As Decimal + Get + Return Me._additionalCosts6 + End Get + Set + Me._additionalCosts6 = Value + End Set + End Property + + Public Property additionalCosts7() As Decimal + Get + Return Me._additionalCosts7 + End Get + Set + Me._additionalCosts7 = Value + End Set + End Property + + Public Property additionalCosts8() As Decimal + Get + Return Me._additionalCosts8 + End Get + Set + Me._additionalCosts8 = Value + End Set + End Property + + Public Property additionalCosts9() As Decimal + Get + Return Me._additionalCosts9 + End Get + Set + Me._additionalCosts9 = Value + End Set + End Property + + Public Property additionalCosts10() As Decimal + Get + Return Me._additionalCosts10 + End Get + Set + Me._additionalCosts10 = Value + End Set + End Property + + Public Property additionalCosts11() As Decimal + Get + Return Me._additionalCosts11 + End Get + Set + Me._additionalCosts11 = Value + End Set + End Property + + Public Property additionalCosts12() As Decimal + Get + Return Me._additionalCosts12 + End Get + Set + Me._additionalCosts12 = Value + End Set + End Property + + Public Property additionalCosts13() As Decimal + Get + Return Me._additionalCosts13 + End Get + Set + Me._additionalCosts13 = Value + End Set + End Property + + Public Property additionalCosts14() As Decimal + Get + Return Me._additionalCosts14 + End Get + Set + Me._additionalCosts14 = Value + End Set + End Property + + Public Property additionalCosts15() As Decimal + Get + Return Me._additionalCosts15 + End Get + Set + Me._additionalCosts15 = Value + End Set + End Property + + Public Property additionalCosts16() As Decimal + Get + Return Me._additionalCosts16 + End Get + Set + Me._additionalCosts16 = Value + End Set + End Property + + Public Property additionalCosts17() As Decimal + Get + Return Me._additionalCosts17 + End Get + Set + Me._additionalCosts17 = Value + End Set + End Property + + Public Property additionalCosts18() As Decimal + Get + Return Me._additionalCosts18 + End Get + Set + Me._additionalCosts18 = Value + End Set + End Property + + Public Property additionalCosts19() As Decimal + Get + Return Me._additionalCosts19 + End Get + Set + Me._additionalCosts19 = Value + End Set + End Property + + Public Property additionalCosts20() As Decimal + Get + Return Me._additionalCosts20 + End Get + Set + Me._additionalCosts20 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCalcValuesCust)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCalcValuesCust object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCalcValuesCust object + ''' + ''' string workflow markup to deserialize + ''' Output TCalcValuesCust 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 TCalcValuesCust, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCalcValuesCust) + 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 TCalcValuesCust) 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 TCalcValuesCust + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCalcValuesCust) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCalcValuesCust + Return CType(Serializer.Deserialize(s), TCalcValuesCust) + End Function +#End Region + + ''' + ''' Serializes current TCalcValuesCust 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCalcValuesCust object + ''' + ''' string xml file to load and deserialize + ''' Output TCalcValuesCust 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 TCalcValuesCust, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCalcValuesCust) + 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 TCalcValuesCust) 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 TCalcValuesCust + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCalcValues + +#Region "Private fields" + Private _customsValue As Decimal + + Private _netValue As Decimal + + Private _statValue As Decimal + + Private _freightStatVal As Decimal + + Private _freightInternational As Decimal + + Private _freightEU As Decimal + + Private _freightNational As Decimal + + Private _insurance As Decimal + + Private _shipAddCosts As List(Of Decimal) + + Private _invAddCosts As List(Of Decimal) + + Private _lineAddCosts As List(Of Decimal) + + Private _custValue As Decimal + + Private _assistValue As Decimal + + Private _vatAddCosts As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._lineAddCosts = New List(Of Decimal)() + Me._invAddCosts = New List(Of Decimal)() + Me._shipAddCosts = New List(Of Decimal)() + End Sub + + Public Property customsValue() As Decimal + Get + Return Me._customsValue + End Get + Set + Me._customsValue = Value + End Set + End Property + + Public Property netValue() As Decimal + Get + Return Me._netValue + End Get + Set + Me._netValue = Value + End Set + End Property + + Public Property statValue() As Decimal + Get + Return Me._statValue + End Get + Set + Me._statValue = Value + End Set + End Property + + Public Property freightStatVal() As Decimal + Get + Return Me._freightStatVal + End Get + Set + Me._freightStatVal = Value + End Set + End Property + + Public Property freightInternational() As Decimal + Get + Return Me._freightInternational + End Get + Set + Me._freightInternational = Value + End Set + End Property + + Public Property freightEU() As Decimal + Get + Return Me._freightEU + End Get + Set + Me._freightEU = Value + End Set + End Property + + Public Property freightNational() As Decimal + Get + Return Me._freightNational + End Get + Set + Me._freightNational = Value + End Set + End Property + + Public Property insurance() As Decimal + Get + Return Me._insurance + End Get + Set + Me._insurance = Value + End Set + End Property + + + Public Property shipAddCosts() As List(Of Decimal) + Get + Return Me._shipAddCosts + End Get + Set + Me._shipAddCosts = Value + End Set + End Property + + + Public Property invAddCosts() As List(Of Decimal) + Get + Return Me._invAddCosts + End Get + Set + Me._invAddCosts = Value + End Set + End Property + + + Public Property lineAddCosts() As List(Of Decimal) + Get + Return Me._lineAddCosts + End Get + Set + Me._lineAddCosts = Value + End Set + End Property + + Public Property custValue() As Decimal + Get + Return Me._custValue + End Get + Set + Me._custValue = Value + End Set + End Property + + Public Property assistValue() As Decimal + Get + Return Me._assistValue + End Get + Set + Me._assistValue = Value + End Set + End Property + + Public Property vatAddCosts() As Decimal + Get + Return Me._vatAddCosts + End Get + Set + Me._vatAddCosts = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCalcValues)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCalcValues object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCalcValues object + ''' + ''' string workflow markup to deserialize + ''' Output TCalcValues 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 TCalcValues, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCalcValues) + 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 TCalcValues) 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 TCalcValues + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCalcValues) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCalcValues + Return CType(Serializer.Deserialize(s), TCalcValues) + End Function +#End Region + + ''' + ''' Serializes current TCalcValues 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCalcValues object + ''' + ''' string xml file to load and deserialize + ''' Output TCalcValues 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 TCalcValues, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCalcValues) + 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 TCalcValues) 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 TCalcValues + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDetailContainerInfo + +#Region "Private fields" + Private _containerNumber As String + + Private _containerSealNumber As String + + Private _containerPackages As Decimal + + Private _containerGrossWeight As Decimal + + Private _containerNetWeight As Decimal + + Private _creationUser As String + + Private _creationDate As Date + + Private _modificationUser As String + + Private _modificationDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property containerNumber() As String + Get + Return Me._containerNumber + End Get + Set + Me._containerNumber = Value + End Set + End Property + + Public Property containerSealNumber() As String + Get + Return Me._containerSealNumber + End Get + Set + Me._containerSealNumber = Value + End Set + End Property + + Public Property containerPackages() As Decimal + Get + Return Me._containerPackages + End Get + Set + Me._containerPackages = Value + End Set + End Property + + Public Property containerGrossWeight() As Decimal + Get + Return Me._containerGrossWeight + End Get + Set + Me._containerGrossWeight = Value + End Set + End Property + + Public Property containerNetWeight() As Decimal + Get + Return Me._containerNetWeight + End Get + Set + Me._containerNetWeight = Value + End Set + End Property + + Public Property creationUser() As String + Get + Return Me._creationUser + End Get + Set + Me._creationUser = Value + End Set + End Property + + Public Property creationDate() As Date + Get + Return Me._creationDate + End Get + Set + Me._creationDate = Value + End Set + End Property + + Public Property modificationUser() As String + Get + Return Me._modificationUser + End Get + Set + Me._modificationUser = Value + End Set + End Property + + Public Property modificationDate() As Date + Get + Return Me._modificationDate + End Get + Set + Me._modificationDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDetailContainerInfo)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDetailContainerInfo object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDetailContainerInfo object + ''' + ''' string workflow markup to deserialize + ''' Output TDetailContainerInfo 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 TDetailContainerInfo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDetailContainerInfo) + 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 TDetailContainerInfo) 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 TDetailContainerInfo + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDetailContainerInfo) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDetailContainerInfo + Return CType(Serializer.Deserialize(s), TDetailContainerInfo) + End Function +#End Region + + ''' + ''' Serializes current TDetailContainerInfo 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDetailContainerInfo object + ''' + ''' string xml file to load and deserialize + ''' Output TDetailContainerInfo 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 TDetailContainerInfo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDetailContainerInfo) + 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 TDetailContainerInfo) 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 TDetailContainerInfo + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TImportRegistrationNo + +#Region "Private fields" + Private _registrationNumber1 As String + + Private _registrationNumber2 As String + + Private _registrationNumber3 As String + + Private _registrationNumber4 As String + + Private _messageRefNumber1 As String + + Private _messageRefNumber2 As String + + Private _messageRefNumber3 As String + + Private _positionNumber1 As Decimal + + Private _positionNumber2 As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property registrationNumber1() As String + Get + Return Me._registrationNumber1 + End Get + Set + Me._registrationNumber1 = Value + End Set + End Property + + Public Property registrationNumber2() As String + Get + Return Me._registrationNumber2 + End Get + Set + Me._registrationNumber2 = Value + End Set + End Property + + Public Property registrationNumber3() As String + Get + Return Me._registrationNumber3 + End Get + Set + Me._registrationNumber3 = Value + End Set + End Property + + Public Property registrationNumber4() As String + Get + Return Me._registrationNumber4 + End Get + Set + Me._registrationNumber4 = Value + End Set + End Property + + Public Property messageRefNumber1() As String + Get + Return Me._messageRefNumber1 + End Get + Set + Me._messageRefNumber1 = Value + End Set + End Property + + Public Property messageRefNumber2() As String + Get + Return Me._messageRefNumber2 + End Get + Set + Me._messageRefNumber2 = Value + End Set + End Property + + Public Property messageRefNumber3() As String + Get + Return Me._messageRefNumber3 + End Get + Set + Me._messageRefNumber3 = Value + End Set + End Property + + Public Property positionNumber1() As Decimal + Get + Return Me._positionNumber1 + End Get + Set + Me._positionNumber1 = Value + End Set + End Property + + Public Property positionNumber2() As Decimal + Get + Return Me._positionNumber2 + End Get + Set + Me._positionNumber2 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TImportRegistrationNo)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TImportRegistrationNo object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TImportRegistrationNo object + ''' + ''' string workflow markup to deserialize + ''' Output TImportRegistrationNo 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 TImportRegistrationNo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TImportRegistrationNo) + 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 TImportRegistrationNo) 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 TImportRegistrationNo + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TImportRegistrationNo) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TImportRegistrationNo + Return CType(Serializer.Deserialize(s), TImportRegistrationNo) + End Function +#End Region + + ''' + ''' Serializes current TImportRegistrationNo 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TImportRegistrationNo object + ''' + ''' string xml file to load and deserialize + ''' Output TImportRegistrationNo 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 TImportRegistrationNo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TImportRegistrationNo) + 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 TImportRegistrationNo) 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 TImportRegistrationNo + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TReceipt + +#Region "Private fields" + Private _receiptNumber As String + + Private _receiptDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property receiptNumber() As String + Get + Return Me._receiptNumber + End Get + Set + Me._receiptNumber = Value + End Set + End Property + + + Public Property receiptDate() As Date + Get + Return Me._receiptDate + End Get + Set + Me._receiptDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TReceipt)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TReceipt object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TReceipt object + ''' + ''' string workflow markup to deserialize + ''' Output TReceipt 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 TReceipt, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TReceipt) + 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 TReceipt) 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 TReceipt + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TReceipt) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TReceipt + Return CType(Serializer.Deserialize(s), TReceipt) + End Function +#End Region + + ''' + ''' Serializes current TReceipt 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TReceipt object + ''' + ''' string xml file to load and deserialize + ''' Output TReceipt 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 TReceipt, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TReceipt) + 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 TReceipt) 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 TReceipt + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPackage + +#Region "Private fields" + Private _packageCount As Decimal + + Private _packageType As String + + Private _packageDescription As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property packageCount() As Decimal + Get + Return Me._packageCount + End Get + Set + Me._packageCount = Value + End Set + End Property + + Public Property packageType() As String + Get + Return Me._packageType + End Get + Set + Me._packageType = Value + End Set + End Property + + Public Property packageDescription() As String + Get + Return Me._packageDescription + End Get + Set + Me._packageDescription = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPackage)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPackage object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPackage object + ''' + ''' string workflow markup to deserialize + ''' Output TPackage 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 TPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPackage) + 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 TPackage) 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 TPackage + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPackage) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPackage + Return CType(Serializer.Deserialize(s), TPackage) + End Function +#End Region + + ''' + ''' Serializes current TPackage 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPackage object + ''' + ''' string xml file to load and deserialize + ''' Output TPackage 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 TPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPackage) + 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 TPackage) 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 TPackage + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TBom + +#Region "Private fields" + Private _no As String + + Private _var As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property no() As String + Get + Return Me._no + End Get + Set + Me._no = Value + End Set + End Property + + Public Property var() As String + Get + Return Me._var + End Get + Set + Me._var = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TBom)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TBom object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TBom object + ''' + ''' string workflow markup to deserialize + ''' Output TBom 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 TBom, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TBom) + 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 TBom) 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 TBom + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TBom) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TBom + Return CType(Serializer.Deserialize(s), TBom) + End Function +#End Region + + ''' + ''' Serializes current TBom 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TBom object + ''' + ''' string xml file to load and deserialize + ''' Output TBom 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 TBom, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TBom) + 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 TBom) 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 TBom + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPrevDoc + +#Region "Private fields" + Private _previousDocType As String + + Private _previousDocNumber As String + + Private _previousDocDate As Date + + Private _departureCustomsOffice As String + + Private _destinationCustomsOffice As String + + Private _type As String + + Private _creationUser As String + + Private _creationDate As Date + + Private _modificationUser As String + + Private _modificationDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property previousDocType() As String + Get + Return Me._previousDocType + End Get + Set + Me._previousDocType = Value + End Set + End Property + + Public Property previousDocNumber() As String + Get + Return Me._previousDocNumber + End Get + Set + Me._previousDocNumber = Value + End Set + End Property + + + Public Property previousDocDate() As Date + Get + Return Me._previousDocDate + End Get + Set + Me._previousDocDate = Value + End Set + End Property + + Public Property departureCustomsOffice() As String + Get + Return Me._departureCustomsOffice + End Get + Set + Me._departureCustomsOffice = Value + End Set + End Property + + Public Property destinationCustomsOffice() As String + Get + Return Me._destinationCustomsOffice + End Get + Set + Me._destinationCustomsOffice = 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 creationUser() As String + Get + Return Me._creationUser + End Get + Set + Me._creationUser = Value + End Set + End Property + + Public Property creationDate() As Date + Get + Return Me._creationDate + End Get + Set + Me._creationDate = Value + End Set + End Property + + Public Property modificationUser() As String + Get + Return Me._modificationUser + End Get + Set + Me._modificationUser = Value + End Set + End Property + + Public Property modificationDate() As Date + Get + Return Me._modificationDate + End Get + Set + Me._modificationDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPrevDoc)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPrevDoc object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPrevDoc object + ''' + ''' string workflow markup to deserialize + ''' Output TPrevDoc 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 TPrevDoc, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPrevDoc) + 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 TPrevDoc) 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 TPrevDoc + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPrevDoc) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPrevDoc + Return CType(Serializer.Deserialize(s), TPrevDoc) + End Function +#End Region + + ''' + ''' Serializes current TPrevDoc 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPrevDoc object + ''' + ''' string xml file to load and deserialize + ''' Output TPrevDoc 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 TPrevDoc, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPrevDoc) + 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 TPrevDoc) 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 TPrevDoc + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAddCostsVAT + +#Region "Private fields" + Private _addAmountVAT As Decimal + + Private _addCurrencyVAT As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property addAmountVAT() As Decimal + Get + Return Me._addAmountVAT + End Get + Set + Me._addAmountVAT = Value + End Set + End Property + + Public Property addCurrencyVAT() As String + Get + Return Me._addCurrencyVAT + End Get + Set + Me._addCurrencyVAT = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAddCostsVAT)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAddCostsVAT object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAddCostsVAT object + ''' + ''' string workflow markup to deserialize + ''' Output TAddCostsVAT 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 TAddCostsVAT, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAddCostsVAT) + 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 TAddCostsVAT) 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 TAddCostsVAT + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAddCostsVAT) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAddCostsVAT + Return CType(Serializer.Deserialize(s), TAddCostsVAT) + End Function +#End Region + + ''' + ''' Serializes current TAddCostsVAT 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAddCostsVAT object + ''' + ''' string xml file to load and deserialize + ''' Output TAddCostsVAT 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 TAddCostsVAT, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAddCostsVAT) + 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 TAddCostsVAT) 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 TAddCostsVAT + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRebateLine + +#Region "Private fields" + Private _rebAmount As Decimal + + Private _rebCurrency As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property rebAmount() As Decimal + Get + Return Me._rebAmount + End Get + Set + Me._rebAmount = Value + End Set + End Property + + Public Property rebCurrency() As String + Get + Return Me._rebCurrency + End Get + Set + Me._rebCurrency = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRebateLine)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRebateLine object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRebateLine object + ''' + ''' string workflow markup to deserialize + ''' Output TRebateLine 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 TRebateLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRebateLine) + 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 TRebateLine) 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 TRebateLine + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRebateLine) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRebateLine + Return CType(Serializer.Deserialize(s), TRebateLine) + End Function +#End Region + + ''' + ''' Serializes current TRebateLine 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRebateLine object + ''' + ''' string xml file to load and deserialize + ''' Output TRebateLine 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 TRebateLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRebateLine) + 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 TRebateLine) 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 TRebateLine + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInsuranceCostsLine + +#Region "Private fields" + Private _insAmount As Decimal + + Private _insCurrency As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property insAmount() As Decimal + Get + Return Me._insAmount + End Get + Set + Me._insAmount = Value + End Set + End Property + + Public Property insCurrency() As String + Get + Return Me._insCurrency + End Get + Set + Me._insCurrency = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInsuranceCostsLine)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInsuranceCostsLine object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInsuranceCostsLine object + ''' + ''' string workflow markup to deserialize + ''' Output TInsuranceCostsLine 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 TInsuranceCostsLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInsuranceCostsLine) + 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 TInsuranceCostsLine) 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 TInsuranceCostsLine + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInsuranceCostsLine) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInsuranceCostsLine + Return CType(Serializer.Deserialize(s), TInsuranceCostsLine) + End Function +#End Region + + ''' + ''' Serializes current TInsuranceCostsLine 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInsuranceCostsLine object + ''' + ''' string xml file to load and deserialize + ''' Output TInsuranceCostsLine 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 TInsuranceCostsLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInsuranceCostsLine) + 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 TInsuranceCostsLine) 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 TInsuranceCostsLine + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TFreightCostsLine + +#Region "Private fields" + Private _frtAmount As Decimal + + Private _frtCurrency As String + + Private _frtInternational As Decimal + + Private _frtEuNational As Decimal + + Private _frtInland As Decimal + + Private _frtFlagPercentOrValue As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._frtFlagPercentOrValue = "P" + End Sub + + Public Property frtAmount() As Decimal + Get + Return Me._frtAmount + End Get + Set + Me._frtAmount = Value + End Set + End Property + + Public Property frtCurrency() As String + Get + Return Me._frtCurrency + End Get + Set + Me._frtCurrency = Value + End Set + End Property + + Public Property frtInternational() As Decimal + Get + Return Me._frtInternational + End Get + Set + Me._frtInternational = Value + End Set + End Property + + Public Property frtEuNational() As Decimal + Get + Return Me._frtEuNational + End Get + Set + Me._frtEuNational = Value + End Set + End Property + + Public Property frtInland() As Decimal + Get + Return Me._frtInland + End Get + Set + Me._frtInland = Value + End Set + End Property + + + Public Property frtFlagPercentOrValue() As String + Get + Return Me._frtFlagPercentOrValue + End Get + Set + Me._frtFlagPercentOrValue = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TFreightCostsLine)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TFreightCostsLine object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TFreightCostsLine object + ''' + ''' string workflow markup to deserialize + ''' Output TFreightCostsLine 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 TFreightCostsLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TFreightCostsLine) + 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 TFreightCostsLine) 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 TFreightCostsLine + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TFreightCostsLine) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TFreightCostsLine + Return CType(Serializer.Deserialize(s), TFreightCostsLine) + End Function +#End Region + + ''' + ''' Serializes current TFreightCostsLine 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TFreightCostsLine object + ''' + ''' string xml file to load and deserialize + ''' Output TFreightCostsLine 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 TFreightCostsLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TFreightCostsLine) + 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 TFreightCostsLine) 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 TFreightCostsLine + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPricing + +#Region "Private fields" + Private _prcType As String + + Private _prcReference As String + + Private _prcDate As Date + + Private _prcSystem As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property prcType() As String + Get + Return Me._prcType + End Get + Set + Me._prcType = Value + End Set + End Property + + Public Property prcReference() As String + Get + Return Me._prcReference + End Get + Set + Me._prcReference = Value + End Set + End Property + + + Public Property prcDate() As Date + Get + Return Me._prcDate + End Get + Set + Me._prcDate = Value + End Set + End Property + + Public Property prcSystem() As String + Get + Return Me._prcSystem + End Get + Set + Me._prcSystem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPricing)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPricing object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPricing object + ''' + ''' string workflow markup to deserialize + ''' Output TPricing 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 TPricing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPricing) + 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 TPricing) 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 TPricing + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPricing) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPricing + Return CType(Serializer.Deserialize(s), TPricing) + End Function +#End Region + + ''' + ''' Serializes current TPricing 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPricing object + ''' + ''' string xml file to load and deserialize + ''' Output TPricing 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 TPricing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPricing) + 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 TPricing) 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 TPricing + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TImportLineLicense + +#Region "Private fields" + Private _type As String + + Private _code As String + + Private _number As String + + Private _date As Date + + Private _notRequired As Boolean + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = 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 number() As String + Get + Return Me._number + End Get + Set + Me._number = Value + End Set + End Property + + + Public Property [date]() As Date + Get + Return Me._date + End Get + Set + Me._date = Value + End Set + End Property + + Public Property notRequired() As Boolean + Get + Return Me._notRequired + End Get + Set + Me._notRequired = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TImportLineLicense)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TImportLineLicense object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TImportLineLicense object + ''' + ''' string workflow markup to deserialize + ''' Output TImportLineLicense 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 TImportLineLicense, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TImportLineLicense) + 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 TImportLineLicense) 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 TImportLineLicense + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TImportLineLicense) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TImportLineLicense + Return CType(Serializer.Deserialize(s), TImportLineLicense) + End Function +#End Region + + ''' + ''' Serializes current TImportLineLicense 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TImportLineLicense object + ''' + ''' string xml file to load and deserialize + ''' Output TImportLineLicense 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 TImportLineLicense, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TImportLineLicense) + 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 TImportLineLicense) 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 TImportLineLicense + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TTariffCode + +#Region "Private fields" + Private _hsCode As String + + Private _vatCode As String + + Private _exciseTaxCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property hsCode() As String + Get + Return Me._hsCode + End Get + Set + Me._hsCode = Value + End Set + End Property + + Public Property vatCode() As String + Get + Return Me._vatCode + End Get + Set + Me._vatCode = Value + End Set + End Property + + Public Property exciseTaxCode() As String + Get + Return Me._exciseTaxCode + End Get + Set + Me._exciseTaxCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TTariffCode)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TTariffCode object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TTariffCode object + ''' + ''' string workflow markup to deserialize + ''' Output TTariffCode 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 TTariffCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TTariffCode) + 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 TTariffCode) 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 TTariffCode + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TTariffCode) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TTariffCode + Return CType(Serializer.Deserialize(s), TTariffCode) + End Function +#End Region + + ''' + ''' Serializes current TTariffCode 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TTariffCode object + ''' + ''' string xml file to load and deserialize + ''' Output TTariffCode 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 TTariffCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TTariffCode) + 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 TTariffCode) 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 TTariffCode + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TItem + +#Region "Private fields" + Private _partNumber As String + + Private _partDescription As String + + Private _serialNumber As String + + Private _productGroup As String + + Private _model As String + + Private _brand As String + + Private _manufacturerNumber As String + + Private _ctoNumber As String + + Private _confidenceLevel As Long + + Private _productCategory As String + + Private _tariffCode As TTariffCode + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._tariffCode = New TTariffCode() + End Sub + + Public Property partNumber() As String + Get + Return Me._partNumber + End Get + Set + Me._partNumber = Value + End Set + End Property + + Public Property partDescription() As String + Get + Return Me._partDescription + End Get + Set + Me._partDescription = Value + End Set + End Property + + Public Property serialNumber() As String + Get + Return Me._serialNumber + End Get + Set + Me._serialNumber = Value + End Set + End Property + + Public Property productGroup() As String + Get + Return Me._productGroup + End Get + Set + Me._productGroup = Value + End Set + End Property + + Public Property model() As String + Get + Return Me._model + End Get + Set + Me._model = Value + End Set + End Property + + Public Property brand() As String + Get + Return Me._brand + End Get + Set + Me._brand = Value + End Set + End Property + + Public Property manufacturerNumber() As String + Get + Return Me._manufacturerNumber + End Get + Set + Me._manufacturerNumber = Value + End Set + End Property + + Public Property ctoNumber() As String + Get + Return Me._ctoNumber + End Get + Set + Me._ctoNumber = Value + End Set + End Property + + Public Property confidenceLevel() As Long + Get + Return Me._confidenceLevel + End Get + Set + Me._confidenceLevel = Value + End Set + End Property + + Public Property productCategory() As String + Get + Return Me._productCategory + End Get + Set + Me._productCategory = Value + End Set + End Property + + Public Property TariffCode() As TTariffCode + Get + Return Me._tariffCode + End Get + Set + Me._tariffCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TItem object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TItem object + ''' + ''' string workflow markup to deserialize + ''' Output TItem 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 TItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TItem) + 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 TItem) 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 TItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TItem + Return CType(Serializer.Deserialize(s), TItem) + End Function +#End Region + + ''' + ''' Serializes current TItem 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TItem object + ''' + ''' string xml file to load and deserialize + ''' Output TItem 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 TItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TItem) + 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 TItem) 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 TItem + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInvoiceLine + +#Region "Private fields" + Private _lineNumber As Decimal + + Private _item As TItem + + Private _quantity As Decimal + + Private _quantityUom As String + + Private _netWeight As Decimal + + Private _grossWeight As Decimal + + Private _reportingQuantity As Decimal + + Private _reportingQuantityUom As String + + Private _price As Decimal + + Private _lineValue As Decimal + + Private _license As TImportLineLicense + + Private _pricing As TPricing + + Private _freightCosts As TFreightCostsLine + + Private _insuranceCosts As TInsuranceCostsLine + + Private _additionalCost As List(Of TAddCosts) + + Private _rebate As TRebateLine + + Private _additionalCostsVAT As TAddCostsVAT + + Private _countryOfOrigin As String + + Private _prefCountryOfOrigin As String + + Private _locationOfGoods As String + + Private _importQuota As String + + Private _importQuotaKey As String + + Private _importQuotaQuantity As Decimal + + Private _importQuotaUnitOfMeasurement As String + + Private _importQuotaQualifier As String + + Private _customsProcedure As String + + Private _statisticalCode As String + + Private _endUseIndicator As String + + Private _transactionType As String + + Private _addCode As List(Of String) + + Private _prefRequestCode As String + + Private _documents As List(Of TDocument) + + Private _previousDocument As List(Of TPrevDoc) + + Private _bOM As TBom + + Private _stockType As String + + Private _stockType2 As String + + Private _stockExpiryDate As Date + + Private _package As TPackage + + Private _accountNumber As String + + Private _deliveryNote As String + + Private _orderNumber As String + + Private _receipt As TReceipt + + Private _asnNumber As String + + Private _referenceValue As Decimal + + Private _referenceCurrency As String + + Private _text As String + + Private _text2 As String + + Private _registrationNumbers As TImportRegistrationNo + + Private _customerFields As TCustomerFields + + Private _attributes As List(Of TAttribute) + + Private _containerInfo As List(Of TDetailContainerInfo) + + Private _partners As List(Of TPartner) + + Private _calculatedValues As TCalcValues + + Private _calculatedValuesCust As TCalcValuesCust + + Private _duties As List(Of TDuty) + + Private _dutyTaxes As List(Of TDutyTax) + + Private _dutySavings As List(Of TDutySaving) + + Private _oprDetails As TOprInfo + + Private _uniqueId As Decimal + + Private _externalProcessing As String + + Private _additionalInformation As List(Of TAttribute) + + Private _intra As TCustIntraLine + + Private _preSupplier As TPreSupplier + + Private _creationUser As String + + Private _creationDate As Date + + Private _modificationUser As String + + Private _modificationDate As Date + + Private _valuationIndicator As String + + Private _referencePreviousProcedures As List(Of TRefPrevProcedure) + + Private _packagesData As TPackagesData + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._packagesData = New TPackagesData() + Me._referencePreviousProcedures = New List(Of TRefPrevProcedure)() + Me._preSupplier = New TPreSupplier() + Me._intra = New TCustIntraLine() + Me._additionalInformation = New List(Of TAttribute)() + Me._oprDetails = New TOprInfo() + Me._dutySavings = New List(Of TDutySaving)() + Me._dutyTaxes = New List(Of TDutyTax)() + Me._duties = New List(Of TDuty)() + Me._calculatedValuesCust = New TCalcValuesCust() + Me._calculatedValues = New TCalcValues() + Me._partners = New List(Of TPartner)() + Me._containerInfo = New List(Of TDetailContainerInfo)() + Me._attributes = New List(Of TAttribute)() + Me._customerFields = New TCustomerFields() + Me._registrationNumbers = New TImportRegistrationNo() + Me._receipt = New TReceipt() + Me._package = New TPackage() + Me._bOM = New TBom() + Me._previousDocument = New List(Of TPrevDoc)() + Me._documents = New List(Of TDocument)() + Me._addCode = New List(Of String)() + Me._additionalCostsVAT = New TAddCostsVAT() + Me._rebate = New TRebateLine() + Me._additionalCost = New List(Of TAddCosts)() + Me._insuranceCosts = New TInsuranceCostsLine() + Me._freightCosts = New TFreightCostsLine() + Me._pricing = New TPricing() + Me._license = New TImportLineLicense() + Me._item = New TItem() + End Sub + + Public Property lineNumber() As Decimal + Get + Return Me._lineNumber + End Get + Set + Me._lineNumber = Value + End Set + End Property + + Public Property Item() As TItem + Get + Return Me._item + End Get + Set + Me._item = 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 quantityUom() As String + Get + Return Me._quantityUom + End Get + Set + Me._quantityUom = Value + End Set + End Property + + Public Property netWeight() As Decimal + Get + Return Me._netWeight + End Get + Set + Me._netWeight = Value + End Set + End Property + + Public Property grossWeight() As Decimal + Get + Return Me._grossWeight + End Get + Set + Me._grossWeight = Value + End Set + End Property + + Public Property reportingQuantity() As Decimal + Get + Return Me._reportingQuantity + End Get + Set + Me._reportingQuantity = Value + End Set + End Property + + Public Property reportingQuantityUom() As String + Get + Return Me._reportingQuantityUom + End Get + Set + Me._reportingQuantityUom = Value + End Set + End Property + + Public Property price() As Decimal + Get + Return Me._price + End Get + Set + Me._price = Value + End Set + End Property + + Public Property lineValue() As Decimal + Get + Return Me._lineValue + End Get + Set + Me._lineValue = Value + End Set + End Property + + Public Property License() As TImportLineLicense + Get + Return Me._license + End Get + Set + Me._license = Value + End Set + End Property + + Public Property Pricing() As TPricing + Get + Return Me._pricing + End Get + Set + Me._pricing = Value + End Set + End Property + + Public Property FreightCosts() As TFreightCostsLine + Get + Return Me._freightCosts + End Get + Set + Me._freightCosts = Value + End Set + End Property + + Public Property InsuranceCosts() As TInsuranceCostsLine + Get + Return Me._insuranceCosts + End Get + Set + Me._insuranceCosts = Value + End Set + End Property + + + Public Property AdditionalCost() As List(Of TAddCosts) + Get + Return Me._additionalCost + End Get + Set + Me._additionalCost = Value + End Set + End Property + + Public Property Rebate() As TRebateLine + Get + Return Me._rebate + End Get + Set + Me._rebate = Value + End Set + End Property + + Public Property AdditionalCostsVAT() As TAddCostsVAT + Get + Return Me._additionalCostsVAT + End Get + Set + Me._additionalCostsVAT = Value + End Set + End Property + + Public Property countryOfOrigin() As String + Get + Return Me._countryOfOrigin + End Get + Set + Me._countryOfOrigin = Value + End Set + End Property + + Public Property prefCountryOfOrigin() As String + Get + Return Me._prefCountryOfOrigin + End Get + Set + Me._prefCountryOfOrigin = Value + End Set + End Property + + Public Property locationOfGoods() As String + Get + Return Me._locationOfGoods + End Get + Set + Me._locationOfGoods = Value + End Set + End Property + + Public Property importQuota() As String + Get + Return Me._importQuota + End Get + Set + Me._importQuota = Value + End Set + End Property + + Public Property importQuotaKey() As String + Get + Return Me._importQuotaKey + End Get + Set + Me._importQuotaKey = Value + End Set + End Property + + Public Property importQuotaQuantity() As Decimal + Get + Return Me._importQuotaQuantity + End Get + Set + Me._importQuotaQuantity = Value + End Set + End Property + + Public Property importQuotaUnitOfMeasurement() As String + Get + Return Me._importQuotaUnitOfMeasurement + End Get + Set + Me._importQuotaUnitOfMeasurement = Value + End Set + End Property + + Public Property importQuotaQualifier() As String + Get + Return Me._importQuotaQualifier + End Get + Set + Me._importQuotaQualifier = Value + End Set + End Property + + Public Property customsProcedure() As String + Get + Return Me._customsProcedure + End Get + Set + Me._customsProcedure = Value + End Set + End Property + + Public Property statisticalCode() As String + Get + Return Me._statisticalCode + End Get + Set + Me._statisticalCode = Value + End Set + End Property + + Public Property endUseIndicator() As String + Get + Return Me._endUseIndicator + End Get + Set + Me._endUseIndicator = Value + End Set + End Property + + Public Property transactionType() As String + Get + Return Me._transactionType + End Get + Set + Me._transactionType = Value + End Set + End Property + + + Public Property addCode() As List(Of String) + Get + Return Me._addCode + End Get + Set + Me._addCode = Value + End Set + End Property + + Public Property prefRequestCode() As String + Get + Return Me._prefRequestCode + End Get + Set + Me._prefRequestCode = Value + End Set + End Property + + + Public Property Documents() As List(Of TDocument) + Get + Return Me._documents + End Get + Set + Me._documents = Value + End Set + End Property + + + Public Property PreviousDocument() As List(Of TPrevDoc) + Get + Return Me._previousDocument + End Get + Set + Me._previousDocument = Value + End Set + End Property + + Public Property BOM() As TBom + Get + Return Me._bOM + End Get + Set + Me._bOM = Value + End Set + End Property + + Public Property stockType() As String + Get + Return Me._stockType + End Get + Set + Me._stockType = Value + End Set + End Property + + Public Property stockType2() As String + Get + Return Me._stockType2 + End Get + Set + Me._stockType2 = Value + End Set + End Property + + + Public Property stockExpiryDate() As Date + Get + Return Me._stockExpiryDate + End Get + Set + Me._stockExpiryDate = Value + End Set + End Property + + Public Property Package() As TPackage + Get + Return Me._package + End Get + Set + Me._package = Value + End Set + End Property + + Public Property accountNumber() As String + Get + Return Me._accountNumber + End Get + Set + Me._accountNumber = Value + End Set + End Property + + Public Property deliveryNote() As String + Get + Return Me._deliveryNote + End Get + Set + Me._deliveryNote = Value + End Set + End Property + + Public Property orderNumber() As String + Get + Return Me._orderNumber + End Get + Set + Me._orderNumber = Value + End Set + End Property + + Public Property Receipt() As TReceipt + Get + Return Me._receipt + End Get + Set + Me._receipt = Value + End Set + End Property + + Public Property asnNumber() As String + Get + Return Me._asnNumber + End Get + Set + Me._asnNumber = Value + End Set + End Property + + Public Property referenceValue() As Decimal + Get + Return Me._referenceValue + End Get + Set + Me._referenceValue = Value + End Set + End Property + + Public Property referenceCurrency() As String + Get + Return Me._referenceCurrency + End Get + Set + Me._referenceCurrency = Value + End Set + End Property + + Public Property text() As String + Get + Return Me._text + End Get + Set + Me._text = Value + End Set + End Property + + Public Property text2() As String + Get + Return Me._text2 + End Get + Set + Me._text2 = Value + End Set + End Property + + Public Property RegistrationNumbers() As TImportRegistrationNo + Get + Return Me._registrationNumbers + End Get + Set + Me._registrationNumbers = Value + End Set + End Property + + Public Property CustomerFields() As TCustomerFields + Get + Return Me._customerFields + End Get + Set + Me._customerFields = Value + End Set + End Property + + + Public Property Attributes() As List(Of TAttribute) + Get + Return Me._attributes + End Get + Set + Me._attributes = Value + End Set + End Property + + + Public Property ContainerInfo() As List(Of TDetailContainerInfo) + Get + Return Me._containerInfo + End Get + Set + Me._containerInfo = Value + End Set + End Property + + + Public Property Partners() As List(Of TPartner) + Get + Return Me._partners + End Get + Set + Me._partners = Value + End Set + End Property + + Public Property CalculatedValues() As TCalcValues + Get + Return Me._calculatedValues + End Get + Set + Me._calculatedValues = Value + End Set + End Property + + Public Property CalculatedValuesCust() As TCalcValuesCust + Get + Return Me._calculatedValuesCust + End Get + Set + Me._calculatedValuesCust = Value + End Set + End Property + + + Public Property Duties() As List(Of TDuty) + Get + Return Me._duties + End Get + Set + Me._duties = Value + End Set + End Property + + + Public Property DutyTaxes() As List(Of TDutyTax) + Get + Return Me._dutyTaxes + End Get + Set + Me._dutyTaxes = Value + End Set + End Property + + + Public Property DutySavings() As List(Of TDutySaving) + Get + Return Me._dutySavings + End Get + Set + Me._dutySavings = Value + End Set + End Property + + Public Property OprDetails() As TOprInfo + Get + Return Me._oprDetails + End Get + Set + Me._oprDetails = Value + End Set + End Property + + Public Property uniqueId() As Decimal + Get + Return Me._uniqueId + End Get + Set + Me._uniqueId = Value + End Set + End Property + + Public Property externalProcessing() As String + Get + Return Me._externalProcessing + End Get + Set + Me._externalProcessing = Value + End Set + End Property + + + Public Property AdditionalInformation() As List(Of TAttribute) + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + Public Property Intra() As TCustIntraLine + Get + Return Me._intra + End Get + Set + Me._intra = Value + End Set + End Property + + Public Property PreSupplier() As TPreSupplier + Get + Return Me._preSupplier + End Get + Set + Me._preSupplier = Value + End Set + End Property + + Public Property creationUser() As String + Get + Return Me._creationUser + End Get + Set + Me._creationUser = Value + End Set + End Property + + Public Property creationDate() As Date + Get + Return Me._creationDate + End Get + Set + Me._creationDate = Value + End Set + End Property + + Public Property modificationUser() As String + Get + Return Me._modificationUser + End Get + Set + Me._modificationUser = Value + End Set + End Property + + Public Property modificationDate() As Date + Get + Return Me._modificationDate + End Get + Set + Me._modificationDate = Value + End Set + End Property + + Public Property valuationIndicator() As String + Get + Return Me._valuationIndicator + End Get + Set + Me._valuationIndicator = Value + End Set + End Property + + + Public Property ReferencePreviousProcedures() As List(Of TRefPrevProcedure) + Get + Return Me._referencePreviousProcedures + End Get + Set + Me._referencePreviousProcedures = Value + End Set + End Property + + Public Property PackagesData() As TPackagesData + Get + Return Me._packagesData + End Get + Set + Me._packagesData = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLine)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInvoiceLine object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInvoiceLine object + ''' + ''' string workflow markup to deserialize + ''' Output TInvoiceLine 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 TInvoiceLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceLine) + 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 TInvoiceLine) 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 TInvoiceLine + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInvoiceLine) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInvoiceLine + Return CType(Serializer.Deserialize(s), TInvoiceLine) + End Function +#End Region + + ''' + ''' Serializes current TInvoiceLine 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInvoiceLine object + ''' + ''' string xml file to load and deserialize + ''' Output TInvoiceLine 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 TInvoiceLine, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceLine) + 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 TInvoiceLine) 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 TInvoiceLine + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAddCosts + +#Region "Private fields" + Private _addType As String + + Private _addAmount As Decimal + + Private _addCurrency As String + + Private _addProRating As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property addType() As String + Get + Return Me._addType + End Get + Set + Me._addType = Value + End Set + End Property + + Public Property addAmount() As Decimal + Get + Return Me._addAmount + End Get + Set + Me._addAmount = Value + End Set + End Property + + Public Property addCurrency() As String + Get + Return Me._addCurrency + End Get + Set + Me._addCurrency = Value + End Set + End Property + + Public Property addProRating() As String + Get + Return Me._addProRating + End Get + Set + Me._addProRating = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAddCosts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAddCosts object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAddCosts object + ''' + ''' string workflow markup to deserialize + ''' Output TAddCosts 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 TAddCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAddCosts) + 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 TAddCosts) 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 TAddCosts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAddCosts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAddCosts + Return CType(Serializer.Deserialize(s), TAddCosts) + End Function +#End Region + + ''' + ''' Serializes current TAddCosts 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAddCosts object + ''' + ''' string xml file to load and deserialize + ''' Output TAddCosts 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 TAddCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAddCosts) + 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 TAddCosts) 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 TAddCosts + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDocument + +#Region "Private fields" + Private _docNo As String + + Private _docDate As Date + + Private _docType As String + + Private _docQual As String + + Private _docValidFrom As Date + + Private _docValidTo As Date + + Private _docAddText As String + + Private _docQuantity As Decimal + + Private _docUnit As String + + Private _docValue As Decimal + + Private _docCategory As String + + Private _docWriteOffQuantity As Decimal + + Private _docIssuerCountry As String + + Private _creationUser As String + + Private _creationDate As Date + + Private _modificationUser As String + + Private _modificationDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property docNo() As String + Get + Return Me._docNo + End Get + Set + Me._docNo = Value + End Set + End Property + + + Public Property docDate() As Date + Get + Return Me._docDate + End Get + Set + Me._docDate = Value + End Set + End Property + + Public Property docType() As String + Get + Return Me._docType + End Get + Set + Me._docType = Value + End Set + End Property + + Public Property docQual() As String + Get + Return Me._docQual + End Get + Set + Me._docQual = Value + End Set + End Property + + + Public Property docValidFrom() As Date + Get + Return Me._docValidFrom + End Get + Set + Me._docValidFrom = Value + End Set + End Property + + + Public Property docValidTo() As Date + Get + Return Me._docValidTo + End Get + Set + Me._docValidTo = Value + End Set + End Property + + Public Property docAddText() As String + Get + Return Me._docAddText + End Get + Set + Me._docAddText = Value + End Set + End Property + + Public Property docQuantity() As Decimal + Get + Return Me._docQuantity + End Get + Set + Me._docQuantity = Value + End Set + End Property + + Public Property docUnit() As String + Get + Return Me._docUnit + End Get + Set + Me._docUnit = Value + End Set + End Property + + Public Property docValue() As Decimal + Get + Return Me._docValue + End Get + Set + Me._docValue = Value + End Set + End Property + + Public Property docCategory() As String + Get + Return Me._docCategory + End Get + Set + Me._docCategory = Value + End Set + End Property + + Public Property docWriteOffQuantity() As Decimal + Get + Return Me._docWriteOffQuantity + End Get + Set + Me._docWriteOffQuantity = Value + End Set + End Property + + Public Property docIssuerCountry() As String + Get + Return Me._docIssuerCountry + End Get + Set + Me._docIssuerCountry = Value + End Set + End Property + + Public Property creationUser() As String + Get + Return Me._creationUser + End Get + Set + Me._creationUser = Value + End Set + End Property + + Public Property creationDate() As Date + Get + Return Me._creationDate + End Get + Set + Me._creationDate = Value + End Set + End Property + + Public Property modificationUser() As String + Get + Return Me._modificationUser + End Get + Set + Me._modificationUser = Value + End Set + End Property + + Public Property modificationDate() As Date + Get + Return Me._modificationDate + End Get + Set + Me._modificationDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDocument object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDocument object + ''' + ''' string workflow markup to deserialize + ''' Output TDocument 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 TDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDocument) + 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 TDocument) 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 TDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDocument + Return CType(Serializer.Deserialize(s), TDocument) + End Function +#End Region + + ''' + ''' Serializes current TDocument 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDocument object + ''' + ''' string xml file to load and deserialize + ''' Output TDocument 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 TDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDocument) + 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 TDocument) 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 TDocument + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerFields + +#Region "Private fields" + Private _texts As List(Of TCustomerText) + + Private _dates As List(Of TCustomerDate) + + Private _flags As List(Of TCustomerFlag) + + Private _numbers As List(Of TCustomerNumber) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._numbers = New List(Of TCustomerNumber)() + Me._flags = New List(Of TCustomerFlag)() + Me._dates = New List(Of TCustomerDate)() + Me._texts = New List(Of TCustomerText)() + End Sub + + + Public Property Texts() As List(Of TCustomerText) + Get + Return Me._texts + End Get + Set + Me._texts = Value + End Set + End Property + + + Public Property Dates() As List(Of TCustomerDate) + Get + Return Me._dates + End Get + Set + Me._dates = Value + End Set + End Property + + + Public Property Flags() As List(Of TCustomerFlag) + Get + Return Me._flags + End Get + Set + Me._flags = Value + End Set + End Property + + + Public Property Numbers() As List(Of TCustomerNumber) + Get + Return Me._numbers + End Get + Set + Me._numbers = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerFields)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerFields object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerFields object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerFields 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 TCustomerFields, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerFields) + 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 TCustomerFields) 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 TCustomerFields + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerFields) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerFields + Return CType(Serializer.Deserialize(s), TCustomerFields) + End Function +#End Region + + ''' + ''' Serializes current TCustomerFields 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerFields object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerFields 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 TCustomerFields, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerFields) + 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 TCustomerFields) 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 TCustomerFields + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerText + +#Region "Private fields" + Private _key As Integer + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property key() As Integer + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + Public Property value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerText)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerText object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerText object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerText 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 TCustomerText, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerText) + 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 TCustomerText) 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 TCustomerText + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerText) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerText + Return CType(Serializer.Deserialize(s), TCustomerText) + End Function +#End Region + + ''' + ''' Serializes current TCustomerText 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerText object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerText 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 TCustomerText, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerText) + 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 TCustomerText) 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 TCustomerText + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerDate + +#Region "Private fields" + Private _key As Integer + + Private _value As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property key() As Integer + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + Public Property value() As Date + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerDate)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerDate object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerDate object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerDate 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 TCustomerDate, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerDate) + 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 TCustomerDate) 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 TCustomerDate + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerDate) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerDate + Return CType(Serializer.Deserialize(s), TCustomerDate) + End Function +#End Region + + ''' + ''' Serializes current TCustomerDate 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerDate object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerDate 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 TCustomerDate, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerDate) + 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 TCustomerDate) 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 TCustomerDate + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerFlag + +#Region "Private fields" + Private _key As Integer + + Private _value As Boolean + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property key() As Integer + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + Public Property value() As Boolean + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerFlag)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerFlag object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerFlag object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerFlag 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 TCustomerFlag, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerFlag) + 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 TCustomerFlag) 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 TCustomerFlag + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerFlag) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerFlag + Return CType(Serializer.Deserialize(s), TCustomerFlag) + End Function +#End Region + + ''' + ''' Serializes current TCustomerFlag 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerFlag object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerFlag 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 TCustomerFlag, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerFlag) + 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 TCustomerFlag) 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 TCustomerFlag + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerNumber + +#Region "Private fields" + Private _key As Integer + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property key() As Integer + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + Public Property value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerNumber)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerNumber object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerNumber object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerNumber 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 TCustomerNumber, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerNumber) + 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 TCustomerNumber) 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 TCustomerNumber + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerNumber) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerNumber + Return CType(Serializer.Deserialize(s), TCustomerNumber) + End Function +#End Region + + ''' + ''' Serializes current TCustomerNumber 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerNumber object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerNumber 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 TCustomerNumber, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerNumber) + 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 TCustomerNumber) 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 TCustomerNumber + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAttribute + +#Region "Private fields" + Private _attrType As String + + Private _attrText As String + + Private _creationUser As String + + Private _creationDate As Date + + Private _modificationUser As String + + Private _modificationDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property attrType() As String + Get + Return Me._attrType + End Get + Set + Me._attrType = Value + End Set + End Property + + Public Property attrText() As String + Get + Return Me._attrText + End Get + Set + Me._attrText = Value + End Set + End Property + + Public Property creationUser() As String + Get + Return Me._creationUser + End Get + Set + Me._creationUser = Value + End Set + End Property + + Public Property creationDate() As Date + Get + Return Me._creationDate + End Get + Set + Me._creationDate = Value + End Set + End Property + + Public Property modificationUser() As String + Get + Return Me._modificationUser + End Get + Set + Me._modificationUser = Value + End Set + End Property + + Public Property modificationDate() As Date + Get + Return Me._modificationDate + End Get + Set + Me._modificationDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAttribute)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAttribute object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAttribute object + ''' + ''' string workflow markup to deserialize + ''' Output TAttribute 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 TAttribute, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAttribute) + 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 TAttribute) 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 TAttribute + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAttribute) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAttribute + Return CType(Serializer.Deserialize(s), TAttribute) + End Function +#End Region + + ''' + ''' Serializes current TAttribute 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAttribute object + ''' + ''' string xml file to load and deserialize + ''' Output TAttribute 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 TAttribute, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAttribute) + 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 TAttribute) 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 TAttribute + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPartner + +#Region "Private fields" + Private _partnerType As String + + Private _partnerAddress As TAddress + + Private _partnerRelation As String + + Private _partnerInfo As String + + Private _partnerTelephone As String + + Private _creationUser As String + + Private _creationDate As Date + + Private _modificationUser As String + + Private _modificationDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._partnerAddress = New TAddress() + End Sub + + Public Property partnerType() As String + Get + Return Me._partnerType + End Get + Set + Me._partnerType = Value + End Set + End Property + + Public Property PartnerAddress() As TAddress + Get + Return Me._partnerAddress + End Get + Set + Me._partnerAddress = Value + End Set + End Property + + Public Property partnerRelation() As String + Get + Return Me._partnerRelation + End Get + Set + Me._partnerRelation = Value + End Set + End Property + + Public Property partnerInfo() As String + Get + Return Me._partnerInfo + End Get + Set + Me._partnerInfo = Value + End Set + End Property + + Public Property partnerTelephone() As String + Get + Return Me._partnerTelephone + End Get + Set + Me._partnerTelephone = Value + End Set + End Property + + Public Property creationUser() As String + Get + Return Me._creationUser + End Get + Set + Me._creationUser = Value + End Set + End Property + + Public Property creationDate() As Date + Get + Return Me._creationDate + End Get + Set + Me._creationDate = Value + End Set + End Property + + Public Property modificationUser() As String + Get + Return Me._modificationUser + End Get + Set + Me._modificationUser = Value + End Set + End Property + + Public Property modificationDate() As Date + Get + Return Me._modificationDate + End Get + Set + Me._modificationDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPartner)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPartner object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPartner object + ''' + ''' string workflow markup to deserialize + ''' Output TPartner 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 TPartner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPartner) + 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 TPartner) 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 TPartner + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPartner) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPartner + Return CType(Serializer.Deserialize(s), TPartner) + End Function +#End Region + + ''' + ''' Serializes current TPartner 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPartner object + ''' + ''' string xml file to load and deserialize + ''' Output TPartner 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 TPartner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPartner) + 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 TPartner) 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 TPartner + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustIntra + +#Region "Private fields" + Private _vendorVatId As String + + Private _statisticalProcedure As String + + Private _internalReference As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property vendorVatId() As String + Get + Return Me._vendorVatId + End Get + Set + Me._vendorVatId = Value + End Set + End Property + + Public Property statisticalProcedure() As String + Get + Return Me._statisticalProcedure + End Get + Set + Me._statisticalProcedure = Value + End Set + End Property + + Public Property internalReference() As String + Get + Return Me._internalReference + End Get + Set + Me._internalReference = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustIntra)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustIntra object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustIntra object + ''' + ''' string workflow markup to deserialize + ''' Output TCustIntra 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 TCustIntra, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustIntra) + 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 TCustIntra) 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 TCustIntra + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustIntra) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustIntra + Return CType(Serializer.Deserialize(s), TCustIntra) + End Function +#End Region + + ''' + ''' Serializes current TCustIntra 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustIntra object + ''' + ''' string xml file to load and deserialize + ''' Output TCustIntra 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 TCustIntra, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustIntra) + 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 TCustIntra) 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 TCustIntra + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAtlasCompSumDEntry + +#Region "Private fields" + Private _idType As String + + Private _quantity As Long + + Private _packageType As String + + Private _registrationNumber As String + + Private _lineNumber As Long + + Private _depositor As String + + Private _spoType As String + + Private _spo As String + + Private _creationUser As String + + Private _creationDate As Date + + Private _modificationUser As String + + Private _modificationDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property idType() As String + Get + Return Me._idType + End Get + Set + Me._idType = Value + End Set + End Property + + Public Property quantity() As Long + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property packageType() As String + Get + Return Me._packageType + End Get + Set + Me._packageType = Value + End Set + End Property + + Public Property registrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set + Me._registrationNumber = Value + End Set + End Property + + Public Property lineNumber() As Long + Get + Return Me._lineNumber + End Get + Set + Me._lineNumber = Value + End Set + End Property + + Public Property depositor() As String + Get + Return Me._depositor + End Get + Set + Me._depositor = Value + End Set + End Property + + Public Property spoType() As String + Get + Return Me._spoType + End Get + Set + Me._spoType = Value + End Set + End Property + + Public Property spo() As String + Get + Return Me._spo + End Get + Set + Me._spo = Value + End Set + End Property + + Public Property creationUser() As String + Get + Return Me._creationUser + End Get + Set + Me._creationUser = Value + End Set + End Property + + Public Property creationDate() As Date + Get + Return Me._creationDate + End Get + Set + Me._creationDate = Value + End Set + End Property + + Public Property modificationUser() As String + Get + Return Me._modificationUser + End Get + Set + Me._modificationUser = Value + End Set + End Property + + Public Property modificationDate() As Date + Get + Return Me._modificationDate + End Get + Set + Me._modificationDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAtlasCompSumDEntry)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAtlasCompSumDEntry object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAtlasCompSumDEntry object + ''' + ''' string workflow markup to deserialize + ''' Output TAtlasCompSumDEntry 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 TAtlasCompSumDEntry, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAtlasCompSumDEntry) + 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 TAtlasCompSumDEntry) 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 TAtlasCompSumDEntry + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAtlasCompSumDEntry) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAtlasCompSumDEntry + Return CType(Serializer.Deserialize(s), TAtlasCompSumDEntry) + End Function +#End Region + + ''' + ''' Serializes current TAtlasCompSumDEntry 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAtlasCompSumDEntry object + ''' + ''' string xml file to load and deserialize + ''' Output TAtlasCompSumDEntry 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 TAtlasCompSumDEntry, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAtlasCompSumDEntry) + 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 TAtlasCompSumDEntry) 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 TAtlasCompSumDEntry + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TContainer + +#Region "Private fields" + Private _containerIndicator As String + + Private _containerNumber As String + + Private _containerType As String + + Private _containerLCLIndicator As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property containerIndicator() As String + Get + Return Me._containerIndicator + End Get + Set + Me._containerIndicator = Value + End Set + End Property + + Public Property containerNumber() As String + Get + Return Me._containerNumber + End Get + Set + Me._containerNumber = Value + End Set + End Property + + Public Property containerType() As String + Get + Return Me._containerType + End Get + Set + Me._containerType = Value + End Set + End Property + + Public Property containerLCLIndicator() As String + Get + Return Me._containerLCLIndicator + End Get + Set + Me._containerLCLIndicator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TContainer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TContainer object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TContainer object + ''' + ''' string workflow markup to deserialize + ''' Output TContainer 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 TContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TContainer) + 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 TContainer) 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 TContainer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TContainer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TContainer + Return CType(Serializer.Deserialize(s), TContainer) + End Function +#End Region + + ''' + ''' Serializes current TContainer 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TContainer object + ''' + ''' string xml file to load and deserialize + ''' Output TContainer 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 TContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TContainer) + 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 TContainer) 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 TContainer + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TImportPaymentInfo + +#Region "Private fields" + Private _paymentType As String + + Private _paymentDate As Date + + Private _paymentBankCode As String + + Private _paymentBankBranchCode As String + + Private _paymentCurrency As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property paymentType() As String + Get + Return Me._paymentType + End Get + Set + Me._paymentType = Value + End Set + End Property + + Public Property paymentDate() As Date + Get + Return Me._paymentDate + End Get + Set + Me._paymentDate = Value + End Set + End Property + + Public Property paymentBankCode() As String + Get + Return Me._paymentBankCode + End Get + Set + Me._paymentBankCode = Value + End Set + End Property + + Public Property paymentBankBranchCode() As String + Get + Return Me._paymentBankBranchCode + End Get + Set + Me._paymentBankBranchCode = Value + End Set + End Property + + Public Property paymentCurrency() As String + Get + Return Me._paymentCurrency + End Get + Set + Me._paymentCurrency = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TImportPaymentInfo)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TImportPaymentInfo object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TImportPaymentInfo object + ''' + ''' string workflow markup to deserialize + ''' Output TImportPaymentInfo 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 TImportPaymentInfo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TImportPaymentInfo) + 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 TImportPaymentInfo) 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 TImportPaymentInfo + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TImportPaymentInfo) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TImportPaymentInfo + Return CType(Serializer.Deserialize(s), TImportPaymentInfo) + End Function +#End Region + + ''' + ''' Serializes current TImportPaymentInfo 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TImportPaymentInfo object + ''' + ''' string xml file to load and deserialize + ''' Output TImportPaymentInfo 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 TImportPaymentInfo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TImportPaymentInfo) + 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 TImportPaymentInfo) 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 TImportPaymentInfo + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInsuranceCostsInv + +#Region "Private fields" + Private _insAmount As Decimal + + Private _insCurrency As String + + Private _insProRating As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property insAmount() As Decimal + Get + Return Me._insAmount + End Get + Set + Me._insAmount = Value + End Set + End Property + + Public Property insCurrency() As String + Get + Return Me._insCurrency + End Get + Set + Me._insCurrency = Value + End Set + End Property + + Public Property insProRating() As String + Get + Return Me._insProRating + End Get + Set + Me._insProRating = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInsuranceCostsInv)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInsuranceCostsInv object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInsuranceCostsInv object + ''' + ''' string workflow markup to deserialize + ''' Output TInsuranceCostsInv 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 TInsuranceCostsInv, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInsuranceCostsInv) + 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 TInsuranceCostsInv) 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 TInsuranceCostsInv + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInsuranceCostsInv) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInsuranceCostsInv + Return CType(Serializer.Deserialize(s), TInsuranceCostsInv) + End Function +#End Region + + ''' + ''' Serializes current TInsuranceCostsInv 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInsuranceCostsInv object + ''' + ''' string xml file to load and deserialize + ''' Output TInsuranceCostsInv 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 TInsuranceCostsInv, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInsuranceCostsInv) + 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 TInsuranceCostsInv) 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 TInsuranceCostsInv + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TFreightCostsInv + +#Region "Private fields" + Private _frtAmount As Decimal + + Private _frtCurrency As String + + Private _frtInternational As Decimal + + Private _frtEuNational As Decimal + + Private _frtInland As Decimal + + Private _frtProRating As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property frtAmount() As Decimal + Get + Return Me._frtAmount + End Get + Set + Me._frtAmount = Value + End Set + End Property + + Public Property frtCurrency() As String + Get + Return Me._frtCurrency + End Get + Set + Me._frtCurrency = Value + End Set + End Property + + Public Property frtInternational() As Decimal + Get + Return Me._frtInternational + End Get + Set + Me._frtInternational = Value + End Set + End Property + + Public Property frtEuNational() As Decimal + Get + Return Me._frtEuNational + End Get + Set + Me._frtEuNational = Value + End Set + End Property + + Public Property frtInland() As Decimal + Get + Return Me._frtInland + End Get + Set + Me._frtInland = Value + End Set + End Property + + Public Property frtProRating() As String + Get + Return Me._frtProRating + End Get + Set + Me._frtProRating = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TFreightCostsInv)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TFreightCostsInv object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TFreightCostsInv object + ''' + ''' string workflow markup to deserialize + ''' Output TFreightCostsInv 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 TFreightCostsInv, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TFreightCostsInv) + 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 TFreightCostsInv) 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 TFreightCostsInv + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TFreightCostsInv) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TFreightCostsInv + Return CType(Serializer.Deserialize(s), TFreightCostsInv) + End Function +#End Region + + ''' + ''' Serializes current TFreightCostsInv 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TFreightCostsInv object + ''' + ''' string xml file to load and deserialize + ''' Output TFreightCostsInv 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 TFreightCostsInv, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TFreightCostsInv) + 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 TFreightCostsInv) 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 TFreightCostsInv + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRebate + +#Region "Private fields" + Private _rebAmount As Decimal + + Private _rebCurrency As String + + Private _rebProRating As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property rebAmount() As Decimal + Get + Return Me._rebAmount + End Get + Set + Me._rebAmount = Value + End Set + End Property + + Public Property rebCurrency() As String + Get + Return Me._rebCurrency + End Get + Set + Me._rebCurrency = Value + End Set + End Property + + Public Property rebProRating() As String + Get + Return Me._rebProRating + End Get + Set + Me._rebProRating = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRebate)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRebate object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRebate object + ''' + ''' string workflow markup to deserialize + ''' Output TRebate 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 TRebate, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRebate) + 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 TRebate) 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 TRebate + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRebate) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRebate + Return CType(Serializer.Deserialize(s), TRebate) + End Function +#End Region + + ''' + ''' Serializes current TRebate 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRebate object + ''' + ''' string xml file to load and deserialize + ''' Output TRebate 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 TRebate, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRebate) + 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 TRebate) 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 TRebate + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDelTerm + +#Region "Private fields" + Private _code As String + + Private _desc As String + + Private _calculationOfFreightCosts As String + + Private _code2 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + Public Property desc() As String + Get + Return Me._desc + End Get + Set + Me._desc = Value + End Set + End Property + + Public Property calculationOfFreightCosts() As String + Get + Return Me._calculationOfFreightCosts + End Get + Set + Me._calculationOfFreightCosts = Value + End Set + End Property + + Public Property code2() As String + Get + Return Me._code2 + End Get + Set + Me._code2 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDelTerm)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDelTerm object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDelTerm object + ''' + ''' string workflow markup to deserialize + ''' Output TDelTerm 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 TDelTerm, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDelTerm) + 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 TDelTerm) 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 TDelTerm + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDelTerm) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDelTerm + Return CType(Serializer.Deserialize(s), TDelTerm) + End Function +#End Region + + ''' + ''' Serializes current TDelTerm 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDelTerm object + ''' + ''' string xml file to load and deserialize + ''' Output TDelTerm 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 TDelTerm, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDelTerm) + 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 TDelTerm) 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 TDelTerm + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInvoiceLines + +#Region "Private fields" + Private _line As List(Of TInvoiceLine) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._line = New List(Of TInvoiceLine)() + End Sub + + + Public Property Line() As List(Of TInvoiceLine) + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInvoiceLines)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInvoiceLines object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInvoiceLines object + ''' + ''' string workflow markup to deserialize + ''' Output TInvoiceLines 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 TInvoiceLines, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceLines) + 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 TInvoiceLines) 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 TInvoiceLines + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInvoiceLines) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInvoiceLines + Return CType(Serializer.Deserialize(s), TInvoiceLines) + End Function +#End Region + + ''' + ''' Serializes current TInvoiceLines 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInvoiceLines object + ''' + ''' string xml file to load and deserialize + ''' Output TInvoiceLines 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 TInvoiceLines, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInvoiceLines) + 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 TInvoiceLines) 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 TInvoiceLines + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TParameters + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + Public Property value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TParameters)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TParameters object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TParameters object + ''' + ''' string workflow markup to deserialize + ''' Output TParameters 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 TParameters, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TParameters) + 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 TParameters) 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 TParameters + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TParameters) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TParameters + Return CType(Serializer.Deserialize(s), TParameters) + End Function +#End Region + + ''' + ''' Serializes current TParameters 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TParameters object + ''' + ''' string xml file to load and deserialize + ''' Output TParameters 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 TParameters, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TParameters) + 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 TParameters) 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 TParameters + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAttachments + +#Region "Private fields" + Private _attachment As List(Of TAttachmentsAttachment) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._attachment = New List(Of TAttachmentsAttachment)() + End Sub + + + Public Property attachment() As List(Of TAttachmentsAttachment) + Get + Return Me._attachment + End Get + Set + Me._attachment = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAttachments)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAttachments object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAttachments object + ''' + ''' string workflow markup to deserialize + ''' Output TAttachments 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 TAttachments, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAttachments) + 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 TAttachments) 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 TAttachments + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAttachments) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAttachments + Return CType(Serializer.Deserialize(s), TAttachments) + End Function +#End Region + + ''' + ''' Serializes current TAttachments 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAttachments object + ''' + ''' string xml file to load and deserialize + ''' Output TAttachments 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 TAttachments, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAttachments) + 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 TAttachments) 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 TAttachments + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAttachmentsAttachment + +#Region "Private fields" + Private _description As TAttachmentDescription + + Private _binAttachment() As Byte + + Private _parameter As List(Of TParameters) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._parameter = New List(Of TParameters)() + Me._description = New TAttachmentDescription() + End Sub + + Public Property description() As TAttachmentDescription + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + + Public Property binAttachment() As Byte() + Get + Return Me._binAttachment + End Get + Set + Me._binAttachment = Value + End Set + End Property + + + Public Property parameter() As List(Of TParameters) + Get + Return Me._parameter + End Get + Set + Me._parameter = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAttachmentsAttachment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAttachmentsAttachment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAttachmentsAttachment object + ''' + ''' string workflow markup to deserialize + ''' Output TAttachmentsAttachment 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 TAttachmentsAttachment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAttachmentsAttachment) + 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 TAttachmentsAttachment) 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 TAttachmentsAttachment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAttachmentsAttachment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAttachmentsAttachment + Return CType(Serializer.Deserialize(s), TAttachmentsAttachment) + End Function +#End Region + + ''' + ''' Serializes current TAttachmentsAttachment 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAttachmentsAttachment object + ''' + ''' string xml file to load and deserialize + ''' Output TAttachmentsAttachment 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 TAttachmentsAttachment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAttachmentsAttachment) + 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 TAttachmentsAttachment) 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 TAttachmentsAttachment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAttachmentDescription + +#Region "Private fields" + Private _contentType As String + + Private _dateTime As Date + + Private _creator As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property contentType() As String + Get + Return Me._contentType + End Get + Set + Me._contentType = Value + End Set + End Property + + Public Property dateTime() As Date + Get + Return Me._dateTime + End Get + Set + Me._dateTime = Value + End Set + End Property + + Public Property creator() As String + Get + Return Me._creator + End Get + Set + Me._creator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAttachmentDescription)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAttachmentDescription object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAttachmentDescription object + ''' + ''' string workflow markup to deserialize + ''' Output TAttachmentDescription 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 TAttachmentDescription, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAttachmentDescription) + 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 TAttachmentDescription) 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 TAttachmentDescription + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAttachmentDescription) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAttachmentDescription + Return CType(Serializer.Deserialize(s), TAttachmentDescription) + End Function +#End Region + + ''' + ''' Serializes current TAttachmentDescription 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAttachmentDescription object + ''' + ''' string xml file to load and deserialize + ''' Output TAttachmentDescription 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 TAttachmentDescription, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAttachmentDescription) + 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 TAttachmentDescription) 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 TAttachmentDescription + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TMot + +#Region "Private fields" + Private _motMode As String + + Private _meansOfTransport As String + + Private _motCountry As String + + Private _motVehicle As String + + Private _meansOfTransportDescription As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property motMode() As String + Get + Return Me._motMode + End Get + Set + Me._motMode = Value + End Set + End Property + + Public Property meansOfTransport() As String + Get + Return Me._meansOfTransport + End Get + Set + Me._meansOfTransport = Value + End Set + End Property + + Public Property motCountry() As String + Get + Return Me._motCountry + End Get + Set + Me._motCountry = Value + End Set + End Property + + Public Property motVehicle() As String + Get + Return Me._motVehicle + End Get + Set + Me._motVehicle = Value + End Set + End Property + + Public Property meansOfTransportDescription() As String + Get + Return Me._meansOfTransportDescription + End Get + Set + Me._meansOfTransportDescription = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TMot)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TMot object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TMot object + ''' + ''' string workflow markup to deserialize + ''' Output TMot 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 TMot, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMot) + 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 TMot) 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 TMot + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TMot) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TMot + Return CType(Serializer.Deserialize(s), TMot) + End Function +#End Region + + ''' + ''' Serializes current TMot 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TMot object + ''' + ''' string xml file to load and deserialize + ''' Output TMot 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 TMot, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMot) + 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 TMot) 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 TMot + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TFreightCosts + +#Region "Private fields" + Private _frtAmount As Decimal + + Private _frtCurrency As String + + Private _frtInternational As Decimal + + Private _frtEuNational As Decimal + + Private _frtInland As Decimal + + Private _frtProRating As String + + Private _frtInternationalAbs As Decimal + + Private _frtIntCurrency As String + + Private _frtCommunityAbs As Decimal + + Private _frtCommunityCurrency As String + + Private _frtNatAbs As Decimal + + Private _frtNatCurrency As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property frtAmount() As Decimal + Get + Return Me._frtAmount + End Get + Set + Me._frtAmount = Value + End Set + End Property + + Public Property frtCurrency() As String + Get + Return Me._frtCurrency + End Get + Set + Me._frtCurrency = Value + End Set + End Property + + Public Property frtInternational() As Decimal + Get + Return Me._frtInternational + End Get + Set + Me._frtInternational = Value + End Set + End Property + + Public Property frtEuNational() As Decimal + Get + Return Me._frtEuNational + End Get + Set + Me._frtEuNational = Value + End Set + End Property + + Public Property frtInland() As Decimal + Get + Return Me._frtInland + End Get + Set + Me._frtInland = Value + End Set + End Property + + Public Property frtProRating() As String + Get + Return Me._frtProRating + End Get + Set + Me._frtProRating = Value + End Set + End Property + + Public Property frtInternationalAbs() As Decimal + Get + Return Me._frtInternationalAbs + End Get + Set + Me._frtInternationalAbs = Value + End Set + End Property + + Public Property frtIntCurrency() As String + Get + Return Me._frtIntCurrency + End Get + Set + Me._frtIntCurrency = Value + End Set + End Property + + Public Property frtCommunityAbs() As Decimal + Get + Return Me._frtCommunityAbs + End Get + Set + Me._frtCommunityAbs = Value + End Set + End Property + + Public Property frtCommunityCurrency() As String + Get + Return Me._frtCommunityCurrency + End Get + Set + Me._frtCommunityCurrency = Value + End Set + End Property + + Public Property frtNatAbs() As Decimal + Get + Return Me._frtNatAbs + End Get + Set + Me._frtNatAbs = Value + End Set + End Property + + Public Property frtNatCurrency() As String + Get + Return Me._frtNatCurrency + End Get + Set + Me._frtNatCurrency = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TFreightCosts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TFreightCosts object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TFreightCosts object + ''' + ''' string workflow markup to deserialize + ''' Output TFreightCosts 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 TFreightCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TFreightCosts) + 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 TFreightCosts) 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 TFreightCosts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TFreightCosts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TFreightCosts + Return CType(Serializer.Deserialize(s), TFreightCosts) + End Function +#End Region + + ''' + ''' Serializes current TFreightCosts 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TFreightCosts object + ''' + ''' string xml file to load and deserialize + ''' Output TFreightCosts 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 TFreightCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TFreightCosts) + 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 TFreightCosts) 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 TFreightCosts + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TInsuranceCosts + +#Region "Private fields" + Private _insAmount As Decimal + + Private _insCurrency As String + + Private _insProRating As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property insAmount() As Decimal + Get + Return Me._insAmount + End Get + Set + Me._insAmount = Value + End Set + End Property + + Public Property insCurrency() As String + Get + Return Me._insCurrency + End Get + Set + Me._insCurrency = Value + End Set + End Property + + Public Property insProRating() As String + Get + Return Me._insProRating + End Get + Set + Me._insProRating = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TInsuranceCosts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TInsuranceCosts object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TInsuranceCosts object + ''' + ''' string workflow markup to deserialize + ''' Output TInsuranceCosts 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 TInsuranceCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInsuranceCosts) + 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 TInsuranceCosts) 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 TInsuranceCosts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TInsuranceCosts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TInsuranceCosts + Return CType(Serializer.Deserialize(s), TInsuranceCosts) + End Function +#End Region + + ''' + ''' Serializes current TInsuranceCosts 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TInsuranceCosts object + ''' + ''' string xml file to load and deserialize + ''' Output TInsuranceCosts 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 TInsuranceCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TInsuranceCosts) + 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 TInsuranceCosts) 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 TInsuranceCosts + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAttributes + +#Region "Private fields" + Private _attribute As List(Of TAttribute) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._attribute = New List(Of TAttribute)() + End Sub + + + Public Property Attribute() As List(Of TAttribute) + Get + Return Me._attribute + End Get + Set + Me._attribute = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAttributes)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAttributes object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAttributes object + ''' + ''' string workflow markup to deserialize + ''' Output TAttributes 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 TAttributes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAttributes) + 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 TAttributes) 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 TAttributes + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAttributes) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAttributes + Return CType(Serializer.Deserialize(s), TAttributes) + End Function +#End Region + + ''' + ''' Serializes current TAttributes 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAttributes object + ''' + ''' string xml file to load and deserialize + ''' Output TAttributes 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 TAttributes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAttributes) + 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 TAttributes) 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 TAttributes + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPartners + +#Region "Private fields" + Private _partner As List(Of TPartner) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._partner = New List(Of TPartner)() + End Sub + + + Public Property Partner() As List(Of TPartner) + Get + Return Me._partner + End Get + Set + Me._partner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPartners)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPartners object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPartners object + ''' + ''' string workflow markup to deserialize + ''' Output TPartners 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 TPartners, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPartners) + 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 TPartners) 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 TPartners + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPartners) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPartners + Return CType(Serializer.Deserialize(s), TPartners) + End Function +#End Region + + ''' + ''' Serializes current TPartners 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPartners object + ''' + ''' string xml file to load and deserialize + ''' Output TPartners 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 TPartners, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPartners) + 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 TPartners) 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 TPartners + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TContainerInfo + +#Region "Private fields" + Private _detailContainerInfo As List(Of TDetailContainerInfo) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._detailContainerInfo = New List(Of TDetailContainerInfo)() + End Sub + + + Public Property DetailContainerInfo() As List(Of TDetailContainerInfo) + Get + Return Me._detailContainerInfo + End Get + Set + Me._detailContainerInfo = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TContainerInfo)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TContainerInfo object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TContainerInfo object + ''' + ''' string workflow markup to deserialize + ''' Output TContainerInfo 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 TContainerInfo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TContainerInfo) + 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 TContainerInfo) 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 TContainerInfo + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TContainerInfo) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TContainerInfo + Return CType(Serializer.Deserialize(s), TContainerInfo) + End Function +#End Region + + ''' + ''' Serializes current TContainerInfo 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TContainerInfo object + ''' + ''' string xml file to load and deserialize + ''' Output TContainerInfo 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 TContainerInfo, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TContainerInfo) + 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 TContainerInfo) 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 TContainerInfo + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDocuments + +#Region "Private fields" + Private _document As List(Of TDocument) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._document = New List(Of TDocument)() + End Sub + + + Public Property Document() As List(Of TDocument) + Get + Return Me._document + End Get + Set + Me._document = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDocuments)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDocuments object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDocuments object + ''' + ''' string workflow markup to deserialize + ''' Output TDocuments 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 TDocuments, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDocuments) + 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 TDocuments) 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 TDocuments + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDocuments) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDocuments + Return CType(Serializer.Deserialize(s), TDocuments) + End Function +#End Region + + ''' + ''' Serializes current TDocuments 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDocuments object + ''' + ''' string xml file to load and deserialize + ''' Output TDocuments 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 TDocuments, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDocuments) + 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 TDocuments) 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 TDocuments + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPrevDocs + +#Region "Private fields" + Private _previousDocument As List(Of TPrevDoc) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._previousDocument = New List(Of TPrevDoc)() + End Sub + + + Public Property PreviousDocument() As List(Of TPrevDoc) + Get + Return Me._previousDocument + End Get + Set + Me._previousDocument = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPrevDocs)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPrevDocs object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPrevDocs object + ''' + ''' string workflow markup to deserialize + ''' Output TPrevDocs 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 TPrevDocs, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPrevDocs) + 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 TPrevDocs) 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 TPrevDocs + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPrevDocs) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPrevDocs + Return CType(Serializer.Deserialize(s), TPrevDocs) + End Function +#End Region + + ''' + ''' Serializes current TPrevDocs 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPrevDocs object + ''' + ''' string xml file to load and deserialize + ''' Output TPrevDocs 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 TPrevDocs, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPrevDocs) + 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 TPrevDocs) 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 TPrevDocs + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDeclType + +#Region "Private fields" + Private _type1 As String + + Private _type2 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property type1() As String + Get + Return Me._type1 + End Get + Set + Me._type1 = Value + End Set + End Property + + Public Property type2() As String + Get + Return Me._type2 + End Get + Set + Me._type2 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDeclType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDeclType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDeclType object + ''' + ''' string workflow markup to deserialize + ''' Output TDeclType 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 TDeclType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDeclType) + 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 TDeclType) 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 TDeclType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDeclType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDeclType + Return CType(Serializer.Deserialize(s), TDeclType) + End Function +#End Region + + ''' + ''' Serializes current TDeclType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDeclType object + ''' + ''' string xml file to load and deserialize + ''' Output TDeclType 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 TDeclType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDeclType) + 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 TDeclType) 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 TDeclType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDuties + +#Region "Private fields" + Private _duty As List(Of TDuty) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._duty = New List(Of TDuty)() + End Sub + + + Public Property Duty() As List(Of TDuty) + Get + Return Me._duty + End Get + Set + Me._duty = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDuties)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDuties object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDuties object + ''' + ''' string workflow markup to deserialize + ''' Output TDuties 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 TDuties, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDuties) + 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 TDuties) 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 TDuties + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDuties) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDuties + Return CType(Serializer.Deserialize(s), TDuties) + End Function +#End Region + + ''' + ''' Serializes current TDuties 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDuties object + ''' + ''' string xml file to load and deserialize + ''' Output TDuties 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 TDuties, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDuties) + 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 TDuties) 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 TDuties + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDutyTaxes + +#Region "Private fields" + Private _dutyTax As List(Of TDutyTax) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._dutyTax = New List(Of TDutyTax)() + End Sub + + + Public Property DutyTax() As List(Of TDutyTax) + Get + Return Me._dutyTax + End Get + Set + Me._dutyTax = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDutyTaxes)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDutyTaxes object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDutyTaxes object + ''' + ''' string workflow markup to deserialize + ''' Output TDutyTaxes 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 TDutyTaxes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDutyTaxes) + 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 TDutyTaxes) 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 TDutyTaxes + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDutyTaxes) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDutyTaxes + Return CType(Serializer.Deserialize(s), TDutyTaxes) + End Function +#End Region + + ''' + ''' Serializes current TDutyTaxes 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDutyTaxes object + ''' + ''' string xml file to load and deserialize + ''' Output TDutyTaxes 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 TDutyTaxes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDutyTaxes) + 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 TDutyTaxes) 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 TDutyTaxes + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDutySavings + +#Region "Private fields" + Private _dutySaving As List(Of TDutySaving) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._dutySaving = New List(Of TDutySaving)() + End Sub + + + Public Property DutySaving() As List(Of TDutySaving) + Get + Return Me._dutySaving + End Get + Set + Me._dutySaving = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDutySavings)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDutySavings object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDutySavings object + ''' + ''' string workflow markup to deserialize + ''' Output TDutySavings 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 TDutySavings, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDutySavings) + 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 TDutySavings) 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 TDutySavings + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDutySavings) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDutySavings + Return CType(Serializer.Deserialize(s), TDutySavings) + End Function +#End Region + + ''' + ''' Serializes current TDutySavings 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDutySavings object + ''' + ''' string xml file to load and deserialize + ''' Output TDutySavings 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 TDutySavings, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDutySavings) + 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 TDutySavings) 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 TDutySavings + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TPrevDocSeals + +#Region "Private fields" + Private _containerID As String + + Private _valid As String + + Private _cancel As String + + Private _sealDescSoll As String + + Private _sealDescIst As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property containerID() As String + Get + Return Me._containerID + End Get + Set + Me._containerID = Value + End Set + End Property + + Public Property valid() As String + Get + Return Me._valid + End Get + Set + Me._valid = Value + End Set + End Property + + Public Property cancel() As String + Get + Return Me._cancel + End Get + Set + Me._cancel = Value + End Set + End Property + + Public Property sealDescSoll() As String + Get + Return Me._sealDescSoll + End Get + Set + Me._sealDescSoll = Value + End Set + End Property + + Public Property sealDescIst() As String + Get + Return Me._sealDescIst + End Get + Set + Me._sealDescIst = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TPrevDocSeals)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TPrevDocSeals object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TPrevDocSeals object + ''' + ''' string workflow markup to deserialize + ''' Output TPrevDocSeals 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 TPrevDocSeals, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPrevDocSeals) + 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 TPrevDocSeals) 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 TPrevDocSeals + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TPrevDocSeals) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TPrevDocSeals + Return CType(Serializer.Deserialize(s), TPrevDocSeals) + End Function +#End Region + + ''' + ''' Serializes current TPrevDocSeals 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TPrevDocSeals object + ''' + ''' string xml file to load and deserialize + ''' Output TPrevDocSeals 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 TPrevDocSeals, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TPrevDocSeals) + 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 TPrevDocSeals) 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 TPrevDocSeals + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustImportInvoice + +#Region "Private fields" + Private _company As String + + Private _plant As String + + Private _type As String + + Private _invoiceNumber As String + + Private _invoiceVersion As String + + Private _invoiceDate As Date + + Private _invoiceHeadExtended As TCustImportInvoiceInvoiceHeadExtended + + Private _attributes As List(Of TAttribute) + + Private _partners As List(Of TPartner) + + Private _atlasCompletionSumDs As List(Of TAtlasCompSumDEntry) + + Private _invoiceLines As List(Of TInvoiceLine) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._invoiceLines = New List(Of TInvoiceLine)() + Me._atlasCompletionSumDs = New List(Of TAtlasCompSumDEntry)() + Me._partners = New List(Of TPartner)() + Me._attributes = New List(Of TAttribute)() + Me._invoiceHeadExtended = New TCustImportInvoiceInvoiceHeadExtended() + End Sub + + Public Property company() As String + Get + Return Me._company + End Get + Set + Me._company = Value + End Set + End Property + + Public Property plant() As String + Get + Return Me._plant + End Get + Set + Me._plant = 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 invoiceNumber() As String + Get + Return Me._invoiceNumber + End Get + Set + Me._invoiceNumber = Value + End Set + End Property + + Public Property invoiceVersion() As String + Get + Return Me._invoiceVersion + End Get + Set + Me._invoiceVersion = Value + End Set + End Property + + + Public Property invoiceDate() As Date + Get + Return Me._invoiceDate + End Get + Set + Me._invoiceDate = Value + End Set + End Property + + Public Property InvoiceHeadExtended() As TCustImportInvoiceInvoiceHeadExtended + Get + Return Me._invoiceHeadExtended + End Get + Set + Me._invoiceHeadExtended = Value + End Set + End Property + + + Public Property Attributes() As List(Of TAttribute) + Get + Return Me._attributes + End Get + Set + Me._attributes = Value + End Set + End Property + + + Public Property Partners() As List(Of TPartner) + Get + Return Me._partners + End Get + Set + Me._partners = Value + End Set + End Property + + + Public Property AtlasCompletionSumDs() As List(Of TAtlasCompSumDEntry) + Get + Return Me._atlasCompletionSumDs + End Get + Set + Me._atlasCompletionSumDs = Value + End Set + End Property + + + Public Property InvoiceLines() As List(Of TInvoiceLine) + Get + Return Me._invoiceLines + End Get + Set + Me._invoiceLines = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustImportInvoice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustImportInvoice object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustImportInvoice object + ''' + ''' string workflow markup to deserialize + ''' Output TCustImportInvoice 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 TCustImportInvoice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustImportInvoice) + 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 TCustImportInvoice) 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 TCustImportInvoice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustImportInvoice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustImportInvoice + Return CType(Serializer.Deserialize(s), TCustImportInvoice) + End Function +#End Region + + ''' + ''' Serializes current TCustImportInvoice 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustImportInvoice object + ''' + ''' string xml file to load and deserialize + ''' Output TCustImportInvoice 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 TCustImportInvoice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustImportInvoice) + 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 TCustImportInvoice) 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 TCustImportInvoice + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustImportInvoiceInvoiceHeadExtended + Inherits TInvoiceHead + +#Region "Private fields" + Private _customsDate As Date + + Private _locations As TCustImportInvoiceInvoiceHeadExtendedLocations + + Private _motBorder As TMot + + Private _motInland As TMot + + Private _container As TContainer + + Private _prevDocument As TCustImportInvoiceInvoiceHeadExtendedPrevDocument + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._prevDocument = New TCustImportInvoiceInvoiceHeadExtendedPrevDocument() + Me._container = New TContainer() + Me._motInland = New TMot() + Me._motBorder = New TMot() + Me._locations = New TCustImportInvoiceInvoiceHeadExtendedLocations() + End Sub + + Public Property customsDate() As Date + Get + Return Me._customsDate + End Get + Set + Me._customsDate = Value + End Set + End Property + + Public Property Locations() As TCustImportInvoiceInvoiceHeadExtendedLocations + Get + Return Me._locations + End Get + Set + Me._locations = Value + End Set + End Property + + Public Property MotBorder() As TMot + Get + Return Me._motBorder + End Get + Set + Me._motBorder = Value + End Set + End Property + + Public Property MotInland() As TMot + Get + Return Me._motInland + End Get + Set + Me._motInland = Value + End Set + End Property + + Public Property Container() As TContainer + Get + Return Me._container + End Get + Set + Me._container = Value + End Set + End Property + + Public Property PrevDocument() As TCustImportInvoiceInvoiceHeadExtendedPrevDocument + Get + Return Me._prevDocument + End Get + Set + Me._prevDocument = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustImportInvoiceInvoiceHeadExtended)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustImportInvoiceInvoiceHeadExtended object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustImportInvoiceInvoiceHeadExtended object + ''' + ''' string workflow markup to deserialize + ''' Output TCustImportInvoiceInvoiceHeadExtended 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 TCustImportInvoiceInvoiceHeadExtended, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustImportInvoiceInvoiceHeadExtended) + 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 TCustImportInvoiceInvoiceHeadExtended) 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 TCustImportInvoiceInvoiceHeadExtended + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustImportInvoiceInvoiceHeadExtended) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustImportInvoiceInvoiceHeadExtended + Return CType(Serializer.Deserialize(s), TCustImportInvoiceInvoiceHeadExtended) + End Function +#End Region + + ''' + ''' Serializes current TCustImportInvoiceInvoiceHeadExtended 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustImportInvoiceInvoiceHeadExtended object + ''' + ''' string xml file to load and deserialize + ''' Output TCustImportInvoiceInvoiceHeadExtended 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 TCustImportInvoiceInvoiceHeadExtended, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustImportInvoiceInvoiceHeadExtended) + 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 TCustImportInvoiceInvoiceHeadExtended) 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 TCustImportInvoiceInvoiceHeadExtended + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustImportInvoiceInvoiceHeadExtendedLocations + +#Region "Private fields" + Private _dispatchCountry As String + + Private _lastDispatchCountry As String + + Private _destinationPlace As String + + Private _destinationRegion As String + + Private _officeEntry As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property dispatchCountry() As String + Get + Return Me._dispatchCountry + End Get + Set + Me._dispatchCountry = Value + End Set + End Property + + Public Property lastDispatchCountry() As String + Get + Return Me._lastDispatchCountry + End Get + Set + Me._lastDispatchCountry = Value + End Set + End Property + + Public Property destinationPlace() As String + Get + Return Me._destinationPlace + End Get + Set + Me._destinationPlace = Value + End Set + End Property + + Public Property destinationRegion() As String + Get + Return Me._destinationRegion + End Get + Set + Me._destinationRegion = Value + End Set + End Property + + Public Property officeEntry() As String + Get + Return Me._officeEntry + End Get + Set + Me._officeEntry = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustImportInvoiceInvoiceHeadExtendedLocations)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustImportInvoiceInvoiceHeadExtendedLocations object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustImportInvoiceInvoiceHeadExtendedLocations object + ''' + ''' string workflow markup to deserialize + ''' Output TCustImportInvoiceInvoiceHeadExtendedLocations 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 TCustImportInvoiceInvoiceHeadExtendedLocations, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustImportInvoiceInvoiceHeadExtendedLocations) + 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 TCustImportInvoiceInvoiceHeadExtendedLocations) 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 TCustImportInvoiceInvoiceHeadExtendedLocations + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustImportInvoiceInvoiceHeadExtendedLocations) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustImportInvoiceInvoiceHeadExtendedLocations + Return CType(Serializer.Deserialize(s), TCustImportInvoiceInvoiceHeadExtendedLocations) + End Function +#End Region + + ''' + ''' Serializes current TCustImportInvoiceInvoiceHeadExtendedLocations 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustImportInvoiceInvoiceHeadExtendedLocations object + ''' + ''' string xml file to load and deserialize + ''' Output TCustImportInvoiceInvoiceHeadExtendedLocations 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 TCustImportInvoiceInvoiceHeadExtendedLocations, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustImportInvoiceInvoiceHeadExtendedLocations) + 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 TCustImportInvoiceInvoiceHeadExtendedLocations) 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 TCustImportInvoiceInvoiceHeadExtendedLocations + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustImportInvoiceInvoiceHeadExtendedPrevDocument + +#Region "Private fields" + Private _previousDocType As String + + Private _previousDocNumber As String + + Private _previousDocDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property previousDocType() As String + Get + Return Me._previousDocType + End Get + Set + Me._previousDocType = Value + End Set + End Property + + Public Property previousDocNumber() As String + Get + Return Me._previousDocNumber + End Get + Set + Me._previousDocNumber = Value + End Set + End Property + + + Public Property previousDocDate() As Date + Get + Return Me._previousDocDate + End Get + Set + Me._previousDocDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustImportInvoiceInvoiceHeadExtendedPrevDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustImportInvoiceInvoiceHeadExtendedPrevDocument object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustImportInvoiceInvoiceHeadExtendedPrevDocument object + ''' + ''' string workflow markup to deserialize + ''' Output TCustImportInvoiceInvoiceHeadExtendedPrevDocument 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 TCustImportInvoiceInvoiceHeadExtendedPrevDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustImportInvoiceInvoiceHeadExtendedPrevDocument) + 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 TCustImportInvoiceInvoiceHeadExtendedPrevDocument) 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 TCustImportInvoiceInvoiceHeadExtendedPrevDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustImportInvoiceInvoiceHeadExtendedPrevDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustImportInvoiceInvoiceHeadExtendedPrevDocument + Return CType(Serializer.Deserialize(s), TCustImportInvoiceInvoiceHeadExtendedPrevDocument) + End Function +#End Region + + ''' + ''' Serializes current TCustImportInvoiceInvoiceHeadExtendedPrevDocument 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustImportInvoiceInvoiceHeadExtendedPrevDocument object + ''' + ''' string xml file to load and deserialize + ''' Output TCustImportInvoiceInvoiceHeadExtendedPrevDocument 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 TCustImportInvoiceInvoiceHeadExtendedPrevDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustImportInvoiceInvoiceHeadExtendedPrevDocument) + 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 TCustImportInvoiceInvoiceHeadExtendedPrevDocument) 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 TCustImportInvoiceInvoiceHeadExtendedPrevDocument + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAtlasCompSumD + +#Region "Private fields" + Private _atlasCompletionSumD As List(Of TAtlasCompSumDEntry) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._atlasCompletionSumD = New List(Of TAtlasCompSumDEntry)() + End Sub + + + Public Property AtlasCompletionSumD() As List(Of TAtlasCompSumDEntry) + Get + Return Me._atlasCompletionSumD + End Get + Set + Me._atlasCompletionSumD = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAtlasCompSumD)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAtlasCompSumD object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAtlasCompSumD object + ''' + ''' string workflow markup to deserialize + ''' Output TAtlasCompSumD 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 TAtlasCompSumD, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAtlasCompSumD) + 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 TAtlasCompSumD) 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 TAtlasCompSumD + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAtlasCompSumD) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAtlasCompSumD + Return CType(Serializer.Deserialize(s), TAtlasCompSumD) + End Function +#End Region + + ''' + ''' Serializes current TAtlasCompSumD 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAtlasCompSumD object + ''' + ''' string xml file to load and deserialize + ''' Output TAtlasCompSumD 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 TAtlasCompSumD, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAtlasCompSumD) + 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 TAtlasCompSumD) 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 TAtlasCompSumD + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRefPrevProcedures + +#Region "Private fields" + Private _referencePreviousProcedure As List(Of TRefPrevProcedure) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._referencePreviousProcedure = New List(Of TRefPrevProcedure)() + End Sub + + + Public Property ReferencePreviousProcedure() As List(Of TRefPrevProcedure) + Get + Return Me._referencePreviousProcedure + End Get + Set + Me._referencePreviousProcedure = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRefPrevProcedures)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRefPrevProcedures object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRefPrevProcedures object + ''' + ''' string workflow markup to deserialize + ''' Output TRefPrevProcedures 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 TRefPrevProcedures, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRefPrevProcedures) + 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 TRefPrevProcedures) 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 TRefPrevProcedures + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRefPrevProcedures) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRefPrevProcedures + Return CType(Serializer.Deserialize(s), TRefPrevProcedures) + End Function +#End Region + + ''' + ''' Serializes current TRefPrevProcedures 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRefPrevProcedures object + ''' + ''' string xml file to load and deserialize + ''' Output TRefPrevProcedures 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 TRefPrevProcedures, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRefPrevProcedures) + 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 TRefPrevProcedures) 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 TRefPrevProcedures + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerTexts + +#Region "Private fields" + Private _text As List(Of TCustomerText) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._text = New List(Of TCustomerText)() + End Sub + + + Public Property Text() As List(Of TCustomerText) + Get + Return Me._text + End Get + Set + Me._text = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerTexts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerTexts object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerTexts object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerTexts 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 TCustomerTexts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerTexts) + 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 TCustomerTexts) 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 TCustomerTexts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerTexts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerTexts + Return CType(Serializer.Deserialize(s), TCustomerTexts) + End Function +#End Region + + ''' + ''' Serializes current TCustomerTexts 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerTexts object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerTexts 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 TCustomerTexts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerTexts) + 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 TCustomerTexts) 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 TCustomerTexts + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerDates + +#Region "Private fields" + Private _date As List(Of TCustomerDate) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._date = New List(Of TCustomerDate)() + End Sub + + + Public Property [Date]() As List(Of TCustomerDate) + Get + Return Me._date + End Get + Set + Me._date = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerDates)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerDates object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerDates object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerDates 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 TCustomerDates, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerDates) + 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 TCustomerDates) 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 TCustomerDates + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerDates) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerDates + Return CType(Serializer.Deserialize(s), TCustomerDates) + End Function +#End Region + + ''' + ''' Serializes current TCustomerDates 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerDates object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerDates 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 TCustomerDates, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerDates) + 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 TCustomerDates) 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 TCustomerDates + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerFlags + +#Region "Private fields" + Private _flag As List(Of TCustomerFlag) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._flag = New List(Of TCustomerFlag)() + End Sub + + + Public Property Flag() As List(Of TCustomerFlag) + Get + Return Me._flag + End Get + Set + Me._flag = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerFlags)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerFlags object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerFlags object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerFlags 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 TCustomerFlags, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerFlags) + 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 TCustomerFlags) 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 TCustomerFlags + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerFlags) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerFlags + Return CType(Serializer.Deserialize(s), TCustomerFlags) + End Function +#End Region + + ''' + ''' Serializes current TCustomerFlags 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerFlags object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerFlags 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 TCustomerFlags, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerFlags) + 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 TCustomerFlags) 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 TCustomerFlags + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TCustomerNumbers + +#Region "Private fields" + Private _number As List(Of TCustomerNumber) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._number = New List(Of TCustomerNumber)() + End Sub + + + Public Property Number() As List(Of TCustomerNumber) + Get + Return Me._number + End Get + Set + Me._number = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TCustomerNumbers)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TCustomerNumbers object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TCustomerNumbers object + ''' + ''' string workflow markup to deserialize + ''' Output TCustomerNumbers 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 TCustomerNumbers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerNumbers) + 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 TCustomerNumbers) 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 TCustomerNumbers + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TCustomerNumbers) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TCustomerNumbers + Return CType(Serializer.Deserialize(s), TCustomerNumbers) + End Function +#End Region + + ''' + ''' Serializes current TCustomerNumbers 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TCustomerNumbers object + ''' + ''' string xml file to load and deserialize + ''' Output TCustomerNumbers 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 TCustomerNumbers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TCustomerNumbers) + 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 TCustomerNumbers) 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 TCustomerNumbers + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.xsd new file mode 100644 index 0000000..eb1a3f7 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.xsd @@ -0,0 +1,11393 @@ + + + + + + Import invoice type + + + + + + Invoice Number + Rechnungsnummer + + + true + String1..30 + + MIC_ALL_EAVKOP + EAKFAKTNR + MIC_EINKOP + EFKFAKTNR + + + + + + + + + + + + + + An unique version id. + Versionsnummer + + + false + String1..50 + + MIC_ALL_EAVKOP + EAKVERSION + MIC_EINKOP + EFKLOCKVERSION + + + + + + + + + + + + + Date of invoice + Rechnungsdatum + + + false + xs:date + + MIC_ALL_EAVKOP + EAKFAKTDAT + MIC_EINKOP + EFKFAKTDAT + + + + + + + + + + + + true + + + + + + + + + + + + + + Invoice attributes + Rechnungsattribute + + + false + + 1-n + + + + + + + + + + + + Invoice documents + Rechnungsunterlagen + + + false + + 1-n + + + + + + + + + + + + Invoice business partner + Rechnungsgeschäftspartner + + + false + + 1-n + + + MIC_EINSDGDOC + + + + + + + + + + Invoice completion parts of summary declaration + Rechnungsbeendigungsanteile der Summarischen Anmeldung (SumA) + + + false + + 1-n + + + + + + + + + + + + Intrastat information on invoice level + Intrastatdaten auf Rechnungsebene + + + false + + + + + + + + + + + + + + Invoice lines + Rechnungspositionen + + + true + + 1-n + + + + + + + + + + + + + + + Einfuhrposition + + + true + + 1-n + + + + + + + + + + + + Invoice line + Rechnungsposition + + + true + + + + + + + + + + + + + + + Import invoice line type + + + + + + Invoice Line + Rechnungsposition + + + true + Decimal(4) + + MIC_ALL_EAVPOS + EAPFAKTPOS + MIC_EINPOS + EFPFAKTPOS + + + + + + + + + + + + + + + + + + true + + + + + + + + + + + + + + Quantity + Abgangsmenge + + + false + Decimal(13,3) + + MIC_ALL_EAVPOS + EAPMENGE + MIC_EINPOS + EFPMENGE + + + + + + + + + + + + + + Unit of Measurement + Mengeneinheit + + + false + String1..4 + + MIC_ALL_EAVPOS + EAPMEH + MIC_EINPOS + EFPMEH + + + + + + + + + + + + + Net Weight (kg) + Eigenmasse (kg) + + + false + Decimal(14,6) + + MIC_ALL_EAVPOS + EAPEIGMAS + MIC_EINPOS + EFPEIGMAS + + + + + + + + + + + + + + Gross Weight (kg) + Rohmasse (kg) + + + false + Decimal(14,6) + + MIC_ALL_EAVPOS + EAPROHMAS + MIC_EINPOS + EFPROHMAS + + + + + + + + + + + + + + Statistical Quantity + Statistische Menge + + + false + Decimal(13,3) + + MIC_ALL_EAVPOS + EAPBESM + MIC_EINPOS + EFPBESM + + + + + + + + + + + + + + Quantity Unit + Mengeneinheit + + + false + String1..4 + + MIC_ALL_EAVPOS + EAPBESMEH + MIC_EINPOS + EFPBESMEH + + + + + + + + + + + + + Unit Price + Stückpreis + + + false + Decimal(18,6) + + MIC_ALL_EAVPOS + EAPPREIS + MIC_EINPOS + EFPPREIS + + + + + + + + + + + + + + Line Value + Wert + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPWERT + MIC_EINPOS + EFPWERT + + + + + + + + + + + + + + License information + + + + + + + Pricing information to document how the invoice line was priced + + + + false + + + + + + + + + + + + + + Line freight costs + Positionsfrachtkosten + + + false + + + + + + + + + + + + + + Line insurance costs + Positionsversicherungskosten + + + false + + + + + + + + + + + + + + Line additional costs + Positionsnebenkosten + + + false + + 0-8 + MIC_ALL_EAVPOS + EAP___ + MIC_EINPOS + EFP___ + + + + + + + + + + + + false + + + + + + + + + + + + + + + + + + false + + + + + + + + + + + + + + Country of Origin + Ursprungsland + + + false + String1..3 + + MIC_ALL_EAVPOS + EAPURLD + MIC_EINPOS + EFPURLD + + + + + + + + + + + + + Preferential country of origin + Präferenz Ursprungsland + + + false + String1..4 + + MIC_ALL_EAVPOS + EAPPRAEFURLD + MIC_EINPOS + EFPPRAEFURLD + + + + + + + + + + + + + Location of Goods + Warenort + + + false + String1..35 + + MIC_ALL_EAVPOS + EAPLOCATIONOFGOODS + MIC_EINPOS + EFPLOCATIONOFGOODS + + + + + + + + + + + + + Contingent Number + Kontingentnummer + + + false + String1..8 + + MIC_ALL_EAVPOS + EAPKONTGT + MIC_EINPOS + EFPKONTGT + + + + + + + + + + + + + Contingent Key + Schlüssel des Kontingents + + + false + String1..1 + + MIC_ALL_EAVPOS + EAPEFAKKA2 + MIC_EINBPARA + EFAKKA2 + + + + + + + + + + + + + Contingent Quantity + Begünstigungsmenge + + + false + Decimal(38,0) + + MIC_ALL_EAVPOS + EAPEFABEGMENGE + MIC_EINBPARA + EFABEGMENGE + + + + + + + + + + + + + + Contingent Quantity UoM + Mengeneinheit der Begünstigungsmenge + + + false + String1..4 + + MIC_ALL_EAVPOS + EAPEFABEGMEH + MIC_EINBPARA + EFABEGMEH + + + + + + + + + + + + + Contingent Quantity Qualifier + Qualifikator der Begünstigungsmenge + + + false + String1..1 + + MIC_ALL_EAVPOS + EAPEFABEGMEHQ + MIC_EINBPARA + EFABEGMEHQ + + + + + + + + + + + + + Import Customs Procedure + Zollverfahren + + + false + String1..6 + + MIC_ALL_EAVPOS + EAPEVCASE + MIC_EINPOS + EFPEVCASE + + + + + + + + + + + + + The statistical code of the customs procedure. + Einfuhr Verfahrenscode + + + false + String1..6 + + MIC_ALL_EAVPOS + EAPEVKZ + MIC_EINPOS + EFPEVKZ + + + + + + + + + + + + + Special Use + Besondere Verwendung + + + false + String1..1 + + MIC_ALL_EAVPOS + EAPBESVERWKZ + MIC_EINPOS + EFPBESVERWKZ + + + + + + + + + + + + + Nature of Transaction + Geschäftsart + + + false + String1..2 + + MIC_ALL_EAVPOS + EAPGSART + MIC_EINPOS + EFPGSART + + + + + + + + + + + + + Additonal Code 1, Additonal Code 2, Additonal Code 3 + Zusatzcode 1, Zusatzcode 2, Zusatzcode 3 + + + false + String1..4 + 0-3 + MIC_ALL_EAVPOS + EAPZUSCD1, EAPZUSCD2, EAPZUSCD3 + MIC_EINPOS + EFPZUSCD1, EFPZUSCD2, EFPZUSCD3 + + + + + + + + + + + + + PAC/The preference request code that indicates if a preferential duty rate should be applied. + Beantragte Begünstigung + + + false + String1..3 + + MIC_ALL_EAVPOS + EAPPAC + MIC_EINPOS + EFPPAC + + + + + + + + + + + + + Documents + Unterlagen + + + false + + 1-n + + + + + + + + + + + + Invoice line previous documents + Positionsvorpapiere + + + false + + 1-n + + + + + + + + + + + + Bill of material + + + + false + + + + + + + + + + + + + + Stock Type 1/The stock type for duty regimes with additions to the inventory. + Bestandsart 1 + + + false + String1..20 + + MIC_ALL_EAVPOS + EAPBESTART1 + MIC_EINPOS + EFPBESTART1 + + + + + + + + + + + + + Stock Type 2/The stock type for duty regimes with additions to the inventory. + Bestandsart 2 + + + false + String1..20 + + MIC_ALL_EAVPOS + EAPBESTART2 + MIC_EINPOS + EFPBESTART2 + + + + + + + + + + + + + Expiry date/date on which the stock expires + Ablaufdatum + + + false + Date + + MIC_ALL_EAVPOS + EAPSTOCKEXPDAT + MIC_EINPOS + EFPSTOCKEXPDAT + + + + + + + + Package + + + + false + + + + + + + + + + + + + + Account/The account number for the transaction. + Konto + + + false + String1..50 + + MIC_ALL_EAVPOS + EAPKONTO + MIC_EINPOS + EFPKONTO + + + + + + + + + + + + + Del. Note Number + Lieferscheinnr. + + + false + String1..15 + + MIC_ALL_EAVPOS + EAPLSNR + MIC_EINPOS + EFPLSNR + + + + + + + + + + + + + Order Note Number + Bestellschein. + + + false + String1..22 + + MIC_ALL_EAVPOS + EAPBSNR + MIC_EINPOS + EFPBSNR + + + + + + + + + + + + + Receipt + + + + false + + + + + + + + + + + + + + ASN Number/Advanced shipping notice Number(ASN). + Lieferantragsnummer. + + + false + String1..30 + + MIC_ALL_EAVPOS + EAPLANR + MIC_EINPOS + EFPLANR + + + + + + + + + + + + + Reference Value/The reference value. This can be used to store the invoice line value in original currency. + Referenzwert. + + + false + Decimal(18,6) + + MIC_ALL_EAVPOS + EAPREFWERT + MIC_EINPOS + EFPREFWERT + + + + + + + + + + + + + + Reference Currency + Referenzwährung. + + + false + String1..3 + + MIC_ALL_EAVPOS + EAPREFWAE + MIC_EINPOS + EFPREFWAE + + + + + + + + + + + + + Remarks + Zusätzliche Angaben. + + + false + String1..80 + + MIC_ALL_EAVPOS + EAPINFO + MIC_EINPOS + EFPINFO + + + + + + + + + + + + + Remarks + Zusätzliche Angaben. + + + false + String1..80 + + MIC_ALL_EAVPOS + EAPINFO2 + MIC_EINPOS + EFPINFO + + + + + + + + + + + + + Registration numbers + + + + false + + + + + + + + + + + + + + Customer specific fields + Kundenspezifische Felder + + + false + + + MIC_ALL_EAVPOS + EAP___ + MIC_EINPOS + EFP___ + + + + + + + + Invoice line attributes + Positionsattribute + + + false + + 1-n + + + + + + + + + + + + Invoice line containers + Positionscontainer + + + false + + + + + + + + + + + + + + Invoice line business partner + Positionsgeschäftspartner + + + false + + 1-n + + + + + + + + + + + + Calculated values - calculated by external system + + + + false + + + + + + + + + + + + + + Custom relevant values in MIC + + + + false + + + + + + + + + + + + + + Duties - calculated by external system + + + + false + + 0-n + + + + + + + + + + + + Duties - calculated by MIC and customs FT (MIC_EINABG) AV (MIC_EAVABG) + + + + false + + 0-n + + + + + + + + + + + + Duties - calculated by MIC and customs FT (MIC_EINABG) AV (MIC_EAVABG) + + + + false + + 0-n + + + + + + + + + + + + + + + + false + + + + + + + + + + + + + + SID + Nachrichten-SID + + + false + Decimal(10) + + MIC_ALL_EAVPOS + EAPSID + MIC_EINPOS + EFPSID + + + + + + + + + + + + + External processing + Externe Verarbeitung + + + false + String1..1 + + MIC_ALL_EAVPOS + EAPEXTERNALPROCESSING + MIC_EINPOS + EFPEXTERNALPROCESSING + + + + + + + + + + + + + Invoice line additional information + Zusätzliche Information auf Positionsebene + + + false + + 1-n + + + + + + + + + + + + Intrastat information on line level + Intrastatdaten auf Positionsebene + + + + + + + Pre-Supplier + Vorveredler + + + false + + + + + + + + + + + + + + Created by + Erstellt von + + + false + String1..12 + + MIC_ALL_EAVPOS + EAPCREUSER + MIC_EINPOS + EFPCREUSER + + + + + + + + Created on + Erstellt am + + + false + Xs:datetime + + MIC_ALL_EAVPOS + EAPCREDAT + MIC_EINPOS + EFPCREDAT + + + + + + + + Modified by + Geändert von + + + false + String1..12 + + MIC_ALL_EAVPOS + EAPUSE + MIC_EINPOS + EFPUSER + + + + + + + + Modified on + Geändert am + + + false + Xs:datetime + + MIC_ALL_EAVPOS + EAPUSEDAT + MIC_EINPOS + EFPUSEDAT + + + + + + + + Valuation Indicators + Bewertungskennzeichen + + + false + String1..4 + + MIC_ALL_EAVPOS + EAPVALUATIONINDICATOR + MIC_EINPOS + EFPVALUATIONINDICATOR + + + + + + + + + + + Invoice line previous document references + Positionsbeendigungsanteile Vorpapiere + + + + + + + Invoice line packages + Positionspackstücke + + + false + + 0-n + + + + + + + + + + + + + Fields for pre-supplier. + + + + + + INF Duty Value + INF Zollwert + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPINFZOBAS + + + + + + + + + + + + + + + + INF Duty Rate + INF Zollsatz + + + false + Decimal(6,3) + + MIC_ALL_EAVPOS + EAPINFZOBET1 + + + + + + + + + + + + + + + + INF Duty + INF Abgabe + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPINFZO + + + + + + + + + + + + + + + + INF Duty Currency + INF Abgabenwährung + + + false + String1..3 + + MIC_ALL_EAVPOS + EAPINFZOW + + + + + + + + + + + + + + + + + + + External Customs Value + Externer Zollwert + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPCUSTOMSVALUE_EXT + MIC_EINPOS + EFPCUSTOMSVALUE_EXT + + + + + + + + + + + + + + External Net Value + Externer Nettowert + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPNETVALUE_EXT + MIC_EINPOS + EFPNETVALUE_EXT + + + + + + + + + + + + + + External Net Value + Externer Nettowert + + + false + Decimal(16,4) + + MIC_EINPOS + EFPCALCSTATWERT + MIC_EINPOS + EFPCALCSTATWERT + + + + + + + + + + + + + + External Freight Statistical Value + Externer statistischer Wert für Fracht + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPFREIGHTSTATVAL_EXT + MIC_EINPOS + EFPFREIGHTSTATVAL_EXT + + + + + + + + + + + + + + External Freight International + Externe internationale Fracht + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPFREIGHTINTERNATIONAL_EXT + MIC_EINPOS + EFPFREIGHTINTERNATIONAL_EXT + + + + + + + + + + + + + + External Freight Community + Externe Fracht Gemeinschaft + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPFREIGHTEU_EXT + MIC_EINPOS + EFPFREIGHTEU_EXT + + + + + + + + + + + + + + External Freight National + Externe nationale Fracht + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPFREIGHTNATIONAL_EXT + MIC_EINPOS + EFPFREIGHTNATIONAL_EXT + + + + + + + + + + + + + + External Insurance + Externe Versicherung + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPINSURANCE_EXT + MIC_EINPOS + EFPINSURANCE_EXT + + + + + + + + + + + + + + External Insurance + Externe Versicherung + + + false + Decimal(16,4) + 0-2 + MIC_ALL_EAVPOS + EAPSHIPADDCOSTS1/2_EXT + MIC_EINPOS + EFPSHIPADDCOSTS1/2_EXT + + + + + + + + + + + + + + External Insurance + Externe Versicherung + + + false + Decimal(16,4) + 0-2 + MIC_ALL_EAVPOS + EAPINVADDCOSTS1/2_EXT + MIC_EINPOS + EFPINVADDCOSTS1/2_EXT + + + + + + + + + + + + + + External Insurance + Externe Versicherung + + + false + Decimal(16,4) + 0-8 + MIC_ALL_EAVPOS + EAPLINEADDCOSTS1/8_EXT + MIC_EINPOS + EFPLINEADDCOSTS1/8_EXT + + + + + + + + + + + + + + External Cust Value + Externer Cust Value + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPCUSTVALUE_EXT + MIC_EINPOS + EFPCUSTVALUE_EXT + + + + + + + + + + + + + + External Assist Value + Externer Beistellwert + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPASSISTVALUE_EXT + MIC_EINPOS + EFPASSISTVALUE_EXT + + + + + + + + + + + + + + External VAT Additional Costs + Externe UST Nebenkosten + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPVATADDCOSTS_EXT + MIC_EINPOS + EFPVATADDCOSTS_EXT + + + + + + + + + + + + + + + + + + Customs value + Externe UST Nebenkosten + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPGRWERT + + + + + + + + + + + + + + Net Value + Externe UST Nebenkosten + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPWERTNTO + + + + + + + + + + + + + + Additional statistical value + Zuschlag stat. Wert + + + false + Decimal(17,4) + + + + MIC_EINPOS + EFPADDITIONALSTATISTICALVALUE + + + + + + + + + + + + + + Additoinal cost VAT + Zuschlag EUSt. + + + false + Decimal(17,4) + + + + MIC_EINPOS + EFPZUEUST + + + + + + + + + + + + + + Customs value added + Grenzwert Zu/Ab + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPGRWERTZUAB1 + + + + + + + + + + + + + + OPR ingredients value + Beistellwert + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBEISTELL + + + + + + + + + + + + + + Additional costs 1 + Fracht f. Grenzw. + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB1 + + + + + + + + + + + + + + Additional costs 2 + Versicherung + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB2 + + + + + + + + + + + + + + Additional costs 3 + Sdg. Nebenk. 1 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB3 + + + + + + + + + + + + + + Additional costs 4 + Sdg. Nebenk. 2 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB4 + + + + + + + + + + + + + + Additional costs 5 + Fakt. Nebenk. 1 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB5 + + + + + + + + + + + + + + Additional costs 6 + Fakt. Nebenk. 2 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB6 + + + + + + + + + + + + + + Additional costs 7 + Pos. Nebenk. 1 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB7 + + + + + + + + + + + + + + Additional costs 8 + Pos. Nebenk. 2 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB8 + + + + + + + + + + + + + + Additional costs 9 + Pos. Nebenk. 3 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB9 + + + + + + + + + + + + + + Additional costs 10 + Pos. Nebenk. 4 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB10 + + + + + + + + + + + + + + Additional costs 11 + Pos. Nebenk. 5 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB11 + + + + + + + + + + + + + + Additional costs 12 + Pos. Nebenk. 6 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB12 + + + + + + + + + + + + + + Additional costs 13 + Pos. Nebenk. 7 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB13 + + + + + + + + + + + + + + Additional costs 14 + Pos. Nebenk. 8 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB14 + + + + + + + + + + + + + + Additional costs 15 + Pos. Nebenk. 9 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB15 + + + + + + + + + + + + + + Additional costs 16 + Pos. Nebenk. 10 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB16 + + + + + + + + + + + + + + Additional costs 17 + Pos. Nebenk. 11 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB17 + + + + + + + + + + + + + + Additional costs 18 + Pos. Nebenk. 12 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB18 + + + + + + + + + + + + + + Additional costs 19 + Pos. Nebenk. 13 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB19 + + + + + + + + + + + + + + Additional costs 20 + Pos. Nebenk. 14 + + + false + Decimal(16,4) + + + + MIC_EINPOS + EFPBZUAB20 + + + + + + + + + + + + + + + Additional parameters (generic) + + + + + Key + + + + + Value + + + + + + + This element allows to send attached documents. The format allows to send multiple files in one message + + + + + This entity allows to send attachments, e.g. pdf, jpg, xml, or other binary formats + + + + Attachment (eg. pdf, xml, EDIFACT) + + + + + description of attachment + + + + + Attached file in base64 binary encoding + + + + + Additional parameters as key-value pairs + + + + + + + + + + Description of attachement eg. Name of file, creation date/time etc. + + + + + Mime type of attached document + + + + + + + + + + Creation timestamp of the attached document + + + + + Creation user of the attached document + + + + + + + + + + + + Mode of transportation information + + + + + + Mode of transportation + Art des Verkehrszweigs + String1..2 + + + + + + + + + + + + + Means of transport + Art des aktiven Beförderungsmittels + String1..2 + + + + + + + + + + + + Means of transportation country + Staatszugehörigkeit des Beförderungsmittels + String1..3 + + + + + + + + + + + + Means of transportation vehicle + Kennzeichen des Beförderungsmittels + String1..30 + + + + + + + + + + + + Means of transportation description + Beschreibung des Beförderungsmittels + String1..17 + + + + + + + + + + + + + + + + + + false + + + + + + + + + + + + + + Tariff Number + Tarifnummer + + + true + String1..13 + + MIC_ALL_EAVPOS + EAPTARNR + MIC_EINPOS + EFPTARNR + + + + + + + + + + + + + + VAT code + Einfuhrumsatzsteuercode + + + false + String1..4 + + MIC_ALL_EAVPOS + EAPEUSTCD + MIC_EINPOS + EFPEUSTCD + + + + + + + + + + + + + + Excise tax code + Verbrauchssteuercode + + + false + String1..4 + + MIC_ALL_EAVPOS + EAPVSTCD + MIC_EINPOS + EFPVSTCD + + + + + + + + + + + + + + + License on import invoice line. + + + + + + License type. + Typ der Menge / Wert + + + false + String1..1 + + MIC_ALL_EAVPOS + EAPEGART + MIC_EINPOS + EFPEGART + + + + + + + + + + + + + + License code. + Einfuhrrechtliches Papier + + + false + String1..4 + + MIC_ALL_EAVPOS + EAPEGEAW + MIC_EINPOS + EFPEGEAW + + + + + + + + + + + + + + License number. + Nummer + + + false + String1..16 + + MIC_ALL_EAVPOS + EAPEGNR + MIC_EINPOS + EFPEGNR + + + + + + + + + + + + + + License date. + Datum + + + false + xs:date + + MIC_ALL_EAVPOS + EAPEGDAT + MIC_EINPOS + EFPEGDAT + + + + + + + + License not required flag. If used the other fields are not needed. + Einfuhrerl. nicht benötigt + + + false + Boolean + + MIC_ALL_EAVPOS + EAPNOEGKZ + MIC_EINPOS + EFPNOEGKZ + + + + + + + + + + Pricing information to document how the invoice line was priced + + + + false + + + + + + + + + + + + + + The pricing type + Preistyp + + + false + String1..10 + + MIC_ALL_EAVPOS + EAPPREISTYP + MIC_EINPOS + EFPPREISTYP + + + + + + + + + + + + + The pricing reference, e.g. the contract number. + Preisreferenz + + + false + String1..20 + + MIC_ALL_EAVPOS + EAPPREISREFNO + MIC_EINPOS + EFPPREISREFNO + + + + + + + + + + + + + The pricing date. + Preidatum + + + false + xs:date + + MIC_ALL_EAVPOS + EAPPREISDAT + MIC_EINPOS + EFPPREISDAT + + + + + + + + The pricing system, e.g. SAP. + Preissystem + + + false + String1..10 + + MIC_ALL_EAVPOS + EAPPREISSYS + MIC_EINPOS + EFPPREISSYS + + + + + + + + + + + + + + + Freight costs can be added on shipment or invoice level when freight is not included in invoice value. They are pro-rated to the invoice lines as indicated. + + + + false + + + + + + + + + + + + + + Freight cost amount. + Frachtkosten + + + true + Decimal(17,4) + + MIC_EAVSDG + EASFRAWRT + MIC_EINSDG + EFSFRAWRT + + + + + + + + + + + + + + Currency Freight Costs + Währung Frachtkosten + + + true + String1..3 + + MIC_EAVSDG + EASFRAWAE + MIC_EINSDG + EFSFRAWAE + + + + + + + + + + + + + + Freight International/(Percentage OR Value) of international freight costs of total freight costs. + Frachtkosten International + + + false + Decimal(5,2) + + MIC_EAVSDG + EASNONEU + MIC_EINSDG + EFSNONEU + + + + + + + + + + + + + + Freight Community/(Percentage OR Value) of freight cost from EU-border to national border of total freight costs. + Frachtkosten EU + + + false + Decimal(5,2) + + MIC_EAVSDG + EASEUNAT + MIC_EINSDG + EFSEUNAT + + + + + + + + + + + + + + Freight National/(Percentage OR Value) of inland freight of total freight costs. + Frachtkosten National + + + false + Decimal(5,2) + + MIC_EAVSDG + EASNAT + MIC_EINSDG + EFSNAT + + + + + + + + + + + + + + Calculation Type of Freight Costs/Indicator for how the additional costs are pro-rated to the invoice lines. V=value based, Q=quantity based. + Berechnungsart der Frachtkosten + + + false + String1..1 + + MIC_EAVSDG + EASFRAKZ + MIC_EINSDG + EFSFRAKZ + + + + + + + + + + + + + Absolute international freight cost amount + Frachtwert + + + true + Decimal(17,4) + + MIC_EAVSDG + EASABSNONEUFREIGHT + MIC_EINSDG + EFSFRAWRTNONEUABS + + + + + + + + + + + + + + Currency Freight Costs + Währung Frachtkosten + + + true + String1..3 + + MIC_EAVSDG + EASABSNONEUFREIGHTCURRENCY + MIC_EINSDG + EFSFRAWAENONEUABS + + + + + + + + + + + + + + Absolute community freight cost amount + Frachtwert + + + true + Decimal(17,4) + + MIC_EAVSDG + EASABSEUFREIGHT + MIC_EINSDG + EFSFRAWRTNEUABS + + + + + + + + + + + + + + Currency Freight Costs + Währung Frachtkosten + + + true + String1..3 + + MIC_EAVSDG + EASABSEUFREIGHTCURRENCY + MIC_EINSDG + EFSFRAWAENEUABS + + + + + + + + + + + + + + Absolute national freight cost amount + Frachtwert + + + true + Decimal(17,4) + + MIC_EAVSDG + EASABSNATFREIGHT + MIC_EINSDG + EFSFRAWRTNATABS + + + + + + + + + + + + + + Currency Freight Costs + Währung Frachtkosten + + + true + String1..3 + + MIC_EAVSDG + EASABSNATFREIGHTCURRENCY + MIC_EINSDG + EFSFRAWAENATABS + + + + + + + + + + + + + + + Freight costs can be added on shipment or invoice level when freight is not included in invoice value. They are pro-rated to the invoice lines as indicated. + + + + + + Freight Costs + Frachtkosten + + + true + Decimal(16,4) + + MIC_ALL_EAVKOP + EAKFRAWRT + MIC_EINKOP + EFKFRAWRT + + + + + + + + + + + + + + Currency Freight Costs + Währung Frachtkosten + + + true + String1..3 + + MIC_ALL_EAVKOP + EAKFRAWAE + MIC_EINKOP + EFKFRAWAE + + + + + + + + + + + + + + Freight International/(Percentage OR Value) of international freight costs of total freight costs. + Frachtkosten International + + + false + Decimal(5,2) + + MIC_ALL_EAVKOP + EAKFRANONEU + MIC_EINKOP + EFKFRANONEU + + + + + + + + + + + + + + Freight Community/(Percentage OR Value) of freight cost from EU-border to national border of total freight costs. + Frachtkosten EU + + + false + Decimal(5,2) + + MIC_ALL_EAVKOP + EAKFRAEUNAT + MIC_EINKOP + EFKFRAEUNAT + + + + + + + + + + + + + + Freight National/(Percentage OR Value) of inland freight of total freight costs. + Frachtkosten National + + + false + Decimal(5,2) + + MIC_ALL_EAVKOP + EAKNAT + MIC_EINKOP + EFKNAT + + + + + + + + + + + + + + Calculation Type of Freight Costs/Indicator for how the additional costs are pro-rated to the invoice lines. V=value based, Q=quantity based. + Berechnungsart der Frachtkosten + + + false + String1..1 + + MIC_ALL_EAVKOP + EAKFRAKZ + MIC_EINKOP + EFKFRAKZ + + + + + + + + + + + + + + Freight costs can be added on shipment or invoice level when freight is not included in invoice value. They are pro-rated to the invoice lines as indicated. + + + + + + Freight Costs + Frachtkosten + + + true + Decimal(17,4) + + MIC_ALL_EAVPOS + EAPFAMOUNT + MIC_EINPOS + EFPFAMOUNT + + + + + + + + + + + + + + Currency Freight Costs + Währung Frachtkosten + + + true + String1..3 + + MIC_ALL_EAVPOS + EAPFWAE + MIC_EINPOS + EFPFWAE + + + + + + + + + + + + + + Freight International/(Percentage OR Value) of international freight costs of total freight costs. + Frachtkosten International + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPFNONEU + MIC_EINPOS + EFPFNONEU + + + + + + + + + + + + + + Freight Community/(Percentage OR Value) of freight cost from EU-border to national border of total freight costs. + Frachtkosten EU + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPFEU + MIC_EINPOS + EFPFEU + + + + + + + + + + + + + + Freight National/(Percentage OR Value) of inland freight of total freight costs. + Frachtkosten National + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPFNAT + MIC_EINPOS + EFPFNAT + + + + + + + + + + + + + + + Attribut from FreightCosts, P Percentage OR V Value, decides in which form the Freightcosts would be split. + + + + false + String1..1 + + MIC_ALL_EAVPOS + EAPFFLAG + MIC_EINPOS + FIX VALUE "V" + + + + + + + + + + + + + Intra specific fields. + + + + + + Vendor VAT ID + Umsatzsteuernummer des Lieferanten + + + false + String1..20 + + EAVKOP + EAKVATNR + + + + + + + + + + + + + + + Statistical procedure + Statistisches Verfahren + + + false + String1..5 + + EAVKOP + EAKCCTR + + + + + + + + + + + + + + + Internal reference + Interne Referenz + + + false + String1..30 + + EAVKOP + EAKREFI + + + + + + + + + + + + + + + + Intra specific fields. + + + + + + Status + Status + + + false + String1..1 + + MIC_ALL_EAVPOS + EAPSTATUS + + + + + + + + + + + + + + + Invoice date + Rechnungsdatum + + + false + xs:date + + MIC_ALL_EAVPOS + EAPDATUM + + + + + + + + + + Period + Periode + + + false + Long 6 + + MIC_ALL_EAVPOS + EAPPERIODE + + + + + + + + + + + + + + + + Region + Region + + + false + String1..2 + + MIC_ALL_EAVPOS + EAPREGION + + + + + + + + + + + + + + + Statistical procedure + Statistisches Verfahren + + + false + String1..5 + + MIC_ALL_EAVPOS + EAPCCTR + + + + + + + + + + + + + + + Statistical value + Statistischer Wert + + + false + Decimal(16,4) + + MIC_ALL_EAVPOS + EAPGRWERT + + + + + + + + + + + + + + + + Additional costs currency 1 + Nebenkostenwährung 1 + + + false + String1..3 + + MIC_ALL_EAVPOS + EAPPBK1WAE + + + + + + + + + + + + + + + Additional costs type 1 + Nebenkostenart 1 + + + false + String1..1 + + MIC_ALL_EAVPOS + EAPPBK1TYP + + + + + + + + + + + + + + + Additional costs currency 2 + Nebenkostenwährung 2 + + + false + String1..3 + + MIC_ALL_EAVPOS + EAPPBK2WAE + + + + + + + + + + + + + + + Additional costs type 2 + Nebenkostenart 2 + + + false + String1..1 + + MIC_ALL_EAVPOS + EAPPBK2TYP + + + + + + + + + + + + + + + + Insurance costs can be added on shipment or invoice level when insurance is not included in invoice value. They are pro-rated to the invoice lines as indicated. + + + + + + Insurance Costs + Versicherungskosten + + + true + Decimal(19,6) + + MIC_EAVSDG + EASVERSWRT + MIC_EINSDG + EFSVERSWRT + + + + + + + + + + + + + + Currency Insurance + Währung Versicherungskosten + + + true + String1..3 + + MIC_EAVSDG + EASVERSWAE + MIC_EINSDG + EFSVERSWAE + + + + + + + + + + + + + + Calculation Type of Insurance + Berechnungsart der Versicherung + + + false + String1..1 + + MIC_EAVSDG + EASVERSKZ + MIC_EINSDG + EFSVERSKZ + + + + + + + + + + + + + + Insurance costs can be added on shipment or invoice level when insurance is not included in invoice value. They are pro-rated to the invoice lines as indicated. + + + + + + Insurance Costs + Versicherungskosten + + + true + Decimal(19,6) + + MIC_ALL_EAVKOP + EAKVERSWRT + MIC_EINKOP + EFKVERSWRT + + + + + + + + + + + + + + Currency Insurance + Währung Versicherungskosten + + + true + String1..3 + + MIC_ALL_EAVKOP + EAKVERSWAE + MIC_EINKOP + EFKVERSWAE + + + + + + + + + + + + + + Calculation Type of Insurance + Berechnungsart der Versicherung + + + false + String1..1 + + MIC_ALL_EAVKOP + EAKVERSKZ + MIC_EINKOP + EFKVERSKZ + + + + + + + + + + + + + + Insurance costs can be added on shipment or invoice level when insurance is not included in invoice value. They are pro-rated to the invoice lines as indicated. + + + + + + Insurance Costs + Versicherungskosten + + + true + Decimal(17,4) + + MIC_ALL_EAVPOS + EAPVERSWERT + MIC_EINPOS + EFPVERSWERT + + + + + + + + + + + + + + Currency Insurance + Währung Versicherungskosten + + + true + String1..3 + + MIC_ALL_EAVPOS + EAPVERSWAE + MIC_EINPOS + EFPVERSWAE + + + + + + + + + + + + + + + Rebates can be added on invoice level . They are pro-rated to the invoice lines as indicated. + + + + + + Discount + Rabatt + + + true + Decimal(17,4) + + MIC_ALL_EAVKOP + EAKRABATTWERT + MIC_EINKOP + EFKRABATTWERT + + + + + + + + + + + + + + Currency Discount/ISO currency code + Währung Rabatt + + + true + String1..3 + + MIC_ALL_EAVKOP + EAKRABATTWAE + MIC_EINKOP + EFKRABATTWAE + + + + + + + + + + + + + + Calculation Type of Discount/Indicator for how the rebate is pro-rated to the invoice lines. V=value based, Q=quantity based. + Berechnungsart Rabatt + + + false + String1..1 + + MIC_ALL_EAVKOP + EAKRABATTKZ + MIC_EINKOP + EFKRABATTKZ + + + + + + + + + + + + + + Rebates can be added on invoice level . They are pro-rated to the invoice lines as indicated. + + + + + + Discount + Rabatt + + + true + Decimal(17,4) + + MIC_ALL_EAVPOS + EAPRABATTWERT + MIC_EINPOS + EFPRABATTWERT + + + + + + + + + + + + + + Currency Discount + Währung Rabatt + + + true + String1..3 + + MIC_ALL_EAVPOS + EAPRABATTWAE + MIC_EINPOS + EFPRABATTWAE + + + + + + + + + + + + + + + + Addition IVAT/AdditionalCostsVAT can be added on invoice level + Zuschlag EUSt. + + + false + + + + + + + + + + + + + Manual Addition IVAT + Manueller Zuschlag EUSt. + + + true + Decimal(17,4) + + MIC_ALL_EAVPOS + EAPMANZUEUST + MIC_EINPOS + EFPMANZUEUST + + + + + + + + + + + + + + Currency Manual Addition IVAT + Währung Manueller Zuschlag EUSt. + + + true + String1..3 + + MIC_ALL_EAVPOS + EAPMANZUEUSTWAE + MIC_EINPOS + EFPMANZUEUSTWAE + + + + + + + + + + + + + + + + Additional costs can be added on all levels as additional part value components. They are pro-rated to the invoice lines as indicated. + + + + false + + 0-2 + + + + + + + + + + + + Add. Costs Type 1, Add. Costs Type 2/Additional cost type. The type is a description like ASSIST, REBATE, etc. + Art der Nebenkosten1, Art der Nebenkosten 2 + + + true + String1..10 + + + ___ABART1, ___ABART2 + + ___ABART1, ___ABART2 + + + + + + + + + + + + + + Value Additional Costs 1, Value Additional Costs 2/Additional cost amount. (negative amounts are possible for deductions). + Wert der Nebenkosten 1, Wert der Nebenkosten 2 + + + true + Decimal(17,4) + + + ___ABWRT1, ___ABWRT2 + + ___ABWRT1, ___ABWRT2 + + + + + + + + + + + + + + Currency Additional Costs 1,Currency Additional Costs 1/Iso currency code. + Währung Nebenkosten 1, Währung Nebenkosten 2 + + + true + String1..3 + + + ___ABWAE1, ___ABWAE2 + + ___ABWAE1, ___ABWAE2 + + + + + + + + + + + + + + Calculation Type of Insurance/Indicator for how the additional costs are pro-rated to the invoice lines. V=value based, Q=quantity based. + Berechnungsart der Versicherung + + + false + String1..1 + + + ___VERSKZ + + ___VERSKZ + + + + + + + + + + + + + + Additional attributes can be used to add customer specific fields to the module as customization. + + + + + + Attribute + Attribut + + + + + + + + + Attribute + Attribut + + + + + + + Attribute type + Adresstyp + + + true + String1..20 + + MIC_AVATTRIBUTE + AVATYP + MIC_ATTRIBUTE + ATRTYP + + + + + + + + + + + + + + Attribute text + Text + + + true + String1..2000 + + MIC_AVATTRIBUTE + AVATEXT + MIC_ATTRIBUTE + ATRTEXT + + + + + + + + + + + + + + Created by + Erstellt von + + + false + String1..12 + + MIC_AVATTRIBUTE + AVACREUSER + MIC_ATTRIBUTE + ATRCREUSER + + + + + + + + Created on + Erstellt am + + + false + Xs:datetime + + MIC_AVATTRIBUTE + AVACREDAT + MIC_ATTRIBUTE + ATRCREDAT + + + + + + + + Modified by + Geändert von + + + false + String1..12 + + MIC_AVATTRIBUTE + AVAUSER + MIC_ATTRIBUTE + ATRUSER + + + + + + + + Modified on + Geändert am + + + false + Xs:datetime + + MIC_AVATTRIBUTE + AVAUSEDAT + MIC_ATTRIBUTE + ATRUSEDAT + + + + + + + + + Business partner information + + + + + + Business partner + Geschaeftspartner + + + true + + + + + MIC_CUST_PARTNER + + + + + + + + + + Partner as address number, type and optional address details + + + + + + Address type + Adresstyp + + + true + String1..2 + + MIC_CUST_AVPARTNER + AVPTYP + MIC_CUST_PARTNER + PARTYP + + + + + + + + + + + + + + Address details + Adressdetails + + + true + + + MIC_CUST_AVPARTNER + addrNo:AVPNR, addrNoType:AVPNRTYP, addrName:AVPNAME1,AVPNAME2, addrStreet:AVPSTR1, addrLoc:AVPORT, addrCtry:AVPLD, addrState:AVPREGION, addrZip:AVPPLZ, addrTin:AVPTIN, addrEori:AVPEORI, partnerRelation:AVPKVB, addrDistrict:AVPORTSTEIL, addrBranchNo:AVPBRANCHNO, email:AVPSACHMAIL, addrVatNumber:AVPVATNUMBER + MIC_CUST_PARTNER + addrNo:PARNR, addrNoType:PARNRTYP, addrName:PARNAME1,PARNAME2, addrStreet:PARSTR1, addrLoc:PARORT, addrCtry:PARLD, addrState:PARREGION, addrZip:PARPLZ, addrTin:PARTIN, addrEori:PAREORI, partnerRelation:PARKVB, addrDistrict:PARORTSTEIL, addrBranchNo:PARBRANCHNO, email:PARSACHMAIL, addrVatNumber:PARVATNUMBER + + + + + + + + Related party indicator + Verbundenheit + + + false + String1..1 + + MIC_CUST_AVPARTNER + AVPKVB + MIC_CUST_PARTNER + PARKVB + + + + + + + + + + + + + Additional information + Zusätzliche Angaben + + + false + String1..50 + + MIC_CUST_AVPARTNER + AVPINFO + MIC_CUST_PARTNER + PARINFO + + + + + + + + + + + + + Contact Phone Number + Kontakt Telefonnummer + + + false + String1..40 + + MIC_CUST_AVPARTNER + AVPTELNR + MIC_CUST_PARTNER + PARTELNR + + + + + + + + + + + + + Created by + Erstellt von + + + false + String1..12 + + MIC_CUST_AVPARTNER + AVPCREUSER + MIC_CUST_PARTNER + PARCREUSER + + + + + + + + Created on + Erstellt am + + + false + Xs:datetime + + MIC_CUST_AVPARTNER + AVPCREDAT + MIC_CUST_PARTNER + PARCREDAT + + + + + + + + Modified by + Geändert von + + + false + String1..12 + + MIC_CUST_AVPARTNER + AVPUSEDAT + MIC_CUST_PARTNER + PARUSEDAT + + + + + + + + Modified on + Geändert am + + + false + Xs:datetime + + MIC_CUST_AVPARTNER + AVPUSER + MIC_CUST_PARTNER + PARUSER + + + + + + + + + Container + + + + + + This is not mapped for shipment. Container/Indicator whether this is a containerized shipment. 1=yes, 0=no. + Container + + + false + String1..1 + + + ___CON + + ___CON + + + + + + + + + + + + + Number of Containers + Containernummern + + + false + String1..20 + + + ___CONTNO + + ___CONTNR + + + + + + + + + + + + + Container type + Containertyp + + + false + String1..10 + + + ___CONTTYP + + ___REFTYP + + + + + + + + + + + + + This is not mapped for shipment. Container/Indicator whether this is a containerized shipment. 1=yes, 0=no. + Container + + + false + String1..1 + + + ___CONTLCL + + ___CONTLCL + + + + + + + + + + + + + + List of Detail container infos + + + + + + Container information + Containerdaten + + + true + + + + + MIC_CUST_CONT + + + + + + + + + + Detail container info + + + + + + Number of Containers + Containernummern + + + true + String1..17 + + MIC_CUST_AVCONT + COACONTNR + MIC_CUST_CONT + CONCONTNR + + + + + + + + + + + + + Number of seal container + Siegelnummer + + + true + String1..20 + + MIC_CUST_AVCONT + COASEALNR + MIC_CUST_CONT + CONSEALNR + + + + + + + + + + + + + Container packages + Anzahl Packstücke im Container + + + false + Decimal(6) + + not mapped + + + + + + + + + + + + + + + + + Container gross weight + Bruttogewicht ds Containers + + + false + Decimal(14,6) + + not mapped + + + + + + + + + + + + + + + + + Container net weight + Nettogewicht des Containers + + + false + Decimal(14,6) + + not mapped + + + + + + + + + + + + + + + + + Created by + Erstellt von + + + false + String1..12 + + MIC_CUST_AVCONT + COACREUSER + MIC_CUST_CONT + CONCREUSER + + + + + + + + Created on + Erstellt am + + + false + Xs:datetime + + MIC_CUST_AVCONT + COACREDAT + MIC_CUST_CONT + CONCREDAT + + + + + + + + Modified by + Geändert von + + + false + String1..12 + + MIC_CUST_AVCONT + COAUSER + MIC_CUST_CONT + CONUSER + + + + + + + + Modified on + Geändert am + + + false + Xs:datetime + + MIC_CUST_AVCONT + COAUSEDAT + MIC_CUST_CONT + CONUSEDAT + + + + + + + + + Address + + + + + + Address number + Adressnummer + String1..15 + + + + + + + + + + + + + Address number type + Adressnummerntyp + String1..10 + + + + + + + + + + + + Address name + Name + String1..40 + + + + + + + + + + Address street + Straße + String1..80 + + + + + + + + + + Address location + Ort + String1..80 + + + + + + + + + + Address country + Land + String1..3 + + + + + + + + + + Address state + Region + String1..10 + + + + + + + + + + Address zip code + Postleitzahl + String1..10 + + + + + + + + + + Trader identification number (TIN) + Zollnummer (TIN) + String1..17 + + + + + + + + + + Economic operator's registration and identification number (EORI) + Identifizierung des Wirtschaftsbeteiligten (EORI) + String1..17 + + + + + + + + + + + + Related party indicator + Verbundenheit + String1..1 + + + + + + + + + + + + Address district + Ortsteil + String1..35 + + + + + + + + + + + + Branch number + Niederlassungsnummer + String1..4 + + + + + + + + + + + + E-Mail + E-Mail + String1..256 + + + + + + + + + + + + VAT registration number + Umsatzsteuernummer + String1..20 + + + + + + + + + + + + + Address number + + + + + + + + Address name + + + + + + + + Address street + + + + + + + + Address postal code + + + + + + + + Address location + + + + + + + + Address country + + + + + + + + + Address state + + + + + + + + Address TIN + + + + + + + + Address national tin flag + + + + + + + + + Documents + + + + false + 1-n + + MIC_EINSDGDOC + + + + + + + + + + + Document + Unterlage + + + true + + + MIC_EINSDGDOC + + + + + + + + + + + + + + + Document number + Unterlagennummer + + + true + String1..35 + + MIC_EINSDGDOC + ESDNR + MIC_EINSDGDOC + ESDNR + + + + + + + + + + + + + + Document date + Datum der Unterlage + + + true + xs:date + + MIC_EINSDGDOC + ESDDAT + MIC_EINSDGDOC + ESDDAT + + + + + + + + Type of identification + Art der Identifikation + + + true + String1..6 + + MIC_EINSDGDOC + ESDART + MIC_EINSDGDOC + ESDART + + + + + + + + + + + + + + Document qualification + Qualifikation + + + false + String1..3 + + MIC_EINSDGDOC + ESDQUAL + MIC_EINSDGDOC + ESDQUAL + + + + + + + + + + + + + Document vaid from date + Gültig von + + + false + xs:date + + MIC_EINSDGDOC + ESDAVAILDAT + MIC_EINSDGDOC + ESDAVAILDAT + + + + + + + + Document valid to date + Gültig bis + + + false + xs:date + + MIC_EINSDGDOC + ESDENDDAT + MIC_EINSDGDOC + ESDENDDAT + + + + + + + + Additional text of document + Zusatzinformation + + + false + String1..35 + + MIC_EINSDGDOC + ESDINFO + MIC_EINSDGDOC + ESDINFO + + + + + + + + + + + + + Quantity + Menge + + + false + Decimal(13,4) + + MIC_EINSDGDOC + ESDMENGE + MIC_EINSDGDOC + ESDMENGE + + + + + + + + + + + + + + Unit write-off quantity + Einheit der Abschreibungsmenge + + + false + String1..4 + + MIC_EINSDGDOC + ESDABMEH2 + MIC_EINSDGDOC + ESDABMEH2 + + + + + + + + + + + + + Value + Wert + + + false + Number(16,6) + + MIC_EINSDGDOC + ESDWERT + MIC_EINSDGDOC + ESDWERT + + + + + + + + + + + + + + Category + Bereich + + + false + String1..8 + + MIC_EINSDGDOC + ESDBEREICH + MIC_EINSDGDOC + ESDBEREICH + + + + + + + + + + + + + Write-off Quantity + Abschreibungsmenge + + + false + Decimal(16,7) + + MIC_EINSDGDOC + ESDABMENGE + MIC_EINSDGDOC + ESDABMENGE + + + + + + + + + + + + + + Issuer country + Ausstellerland + + + false + String1..3 + + MIC_EINSDGDOC + ESDAUSSTELLERLD + MIC_EINSDGDOC + ESDAUSSTELLERLD + + + + + + + + + + + + + Created by + Erstellt von + + + false + String1..12 + + MIC_EINSDGDOC + ESDCREUSER + MIC_EINSDGDOC + ESDCREUSER + + + + + + + + Created on + Erstellt am + + + false + Xs:datetime + + MIC_EINSDGDOC + ESDCREDAT + MIC_EINSDGDOC + ESDCREDAT + + + + + + + + Modified by + Geändert von + + + false + String1..12 + + MIC_EINSDGDOC + ESDUSER + MIC_EINSDGDOC + ESDUSER + + + + + + + + Modified on + Geändert am + + + false + Xs:datetime + + MIC_EINSDGDOC + ESDUSEDAT + MIC_EINSDGDOC + ESDUSEDAT + + + + + + + + + + Delivery terms + + + + false + + + + + + + + + + + + + + Term of Delivery + Lieferbedingung + + + true + String1..4 + + MIC_ALL_EAVKOP + EAKELICODE + MIC_EINKOP + EFKELICODE + + + + + + + + + + + + + + Place of the Terms of Delivery + Ort der Lieferbedingung + + + false + String1..35 + + MIC_ALL_EAVKOP + EAKELIBEZ + MIC_EINKOP + EFKELIBEZ + + + + + + + + + + + + + Calculation of Freight Costs + Frachtkostenberechnung + + + false + String1..4 + + MIC_ALL_EAVKOP + EAKELIFORMULA + MIC_EINKOP + EFKELIFORMULA + + + + + + + + + + + + + The terms of delivery code 2 + Lieferbedingung 2 + + + false + String1..2 + + MIC_ALL_EAVKOP + EAKELICOD2 + MIC_EINKOP + EFKELICOD2 + + + + + + + + + + + + + + + Item + + + + true + + + + + + + + + + + + + + Part Number + Artikelnummer + + + false + String1..30 + + EAVPOS + EAPARTNR + EINPOS + EFPARTNR + + + + + + + + + + + + + + Part Description + Warenbezeichnung + + + false + String1..240 + + EAVPOS + EAPARTBEZ + EINPOS + EFPARTBEZ + + + + + + + + + + + + + + Serial Number + Seriennummer + + + false + String1..30 + + EAVPOS + EAPSERNR + EINPOS + EFPSERNR + + + + + + + + + + + + + + Product Family + Produktgruppe + + + false + String1..10 + + EAVPOS + EAPPRODGR + EINPOS + EFPPRODGR + + + + + + + + + + + + + + Model + Modell + + + false + String1..400 + + MIC_ALL_EAVPOS + EAPMODEL + MIC_EINPOS + EFPMODEL + + + + + + + + + + + + + + Brand + Marke + + + false + String1..400 + + MIC_ALL_EAVPOS + EAPBRAND + MIC_EINPOS + EFPBRAND + + + + + + + + + + + + + + Manufacturer + Hersteller + + + false + String1..15 + + MIC_ALL_EAVPOS + EAPMFRNR + MIC_EINPOS + EFPMFRNR + + + + + + + + + + + + + + CTO Number + CTO Nummer + + + false + String1..41 + + MIC_ALL_EAVPOS + EAPGTCTOID + MIC_EINPOS + EFPGTCTOID + + + + + + + + + + + + + + Confidence Level + Tariffierungskennzeichen + + + false + Long 5 + + MIC_ALL_EAVPOS + EAPCONFIDENCELEVEL + MIC_EINPOS + EFPCONFIDENCELEVEL + + + + + + + + + + + Product Category + Warengruppe + + + false + String1..1 + + MIC_ALL_EAVPOS + EAPWG + MIC_EINPOS + EFPWG + + + + + + + + + + + + + + + + + + false + + + + + + + + + + + + + + + + Package + + + + false + + + + + + + + + + + + + + Number of Packages + Anzahl Packstücke + + + true + Decimal(6) + + MIC_ALL_EAVPOS + EAPKOLANZ + MIC_EINPOS + EFPKOLANZ + + + + + + + + + + + + + + Package Description + Packstückbezeichnung + + + false + String1..2 + + MIC_ALL_EAVPOS + EAPKOLLIART + MIC_EINPOS + EFPKOLLIART + + + + + + + + + + + + + Package Type + Packstückart + + + false + String1..25 + + MIC_ALL_EAVPOS + EAPKOLART + MIC_EINPOS + EFPKOLART + + + + + + + + + + + + + + + Receipt + + + + false + + + + + + + + + + + + + + Goods Receipt Number + Wareneingangsnummer + + + false + String1..15 + + MIC_ALL_EAVPOS + EAPWENR + MIC_EINPOS + EFPWENR + + + + + + + + + + + + + The goods receipt date. + Wareneingangsdatum + + + false + xs:date + + MIC_ALL_EAVPOS + EAPWEDAT + MIC_EINPOS + EFPWEDAT + + + + + + + + + + Bill of material + + + + false + + + + + + + + + + + + + + Bill of Materials + Stückliste + + + false + String1..40 + + MIC_ALL_EAVPOS + EAPREZNR + MIC_EINPOS + EFPREZNR + + + + + + + + + + + + + + BoM Variant + Stücklistenvariante + + + false + String1..2 + + MIC_ALL_EAVPOS + EAPREZVAR + MIC_EINPOS + EFPREZVAR + + + + + + + + + + + + + + + + Bill of material + + + + false + + + + + + + + + + + + + + Due Group 1 + Abgabengruppe 1 + + + false + String1..2 + + MIC_ALL_EAVPOS + EAPEFAAGRPVV1 + MIC_EINPOS + EFPEFAAGRPVV1 + + + + + + + + + + + + + Reduction Amount 1 + Minderungsbetrag 1 + + + false + Decimal(11,2) + + MIC_ALL_EAVPOS + EAPEFAMBPV1 + MIC_EINPOS + EFPEFAMBPV1 + + + + + + + + + + + + + + Due Group 2 + Abgabengruppe 2 + + + false + String1..2 + + MIC_ALL_EAVPOS + EAPEFAAGRPVV2 + MIC_EINPOS + EFPEFAAGRPVV2 + + + + + + + + + + + + + Reduction Amount 2 + Minderungsbetrag 2 + + + false + Decimal(11,2) + + MIC_ALL_EAVPOS + EAPEFAMBPV2 + MIC_EINPOS + EFPEFAMBPV2 + + + + + + + + + + + + + + Due Group 3 + Abgabengruppe 3 + + + false + String1..2 + + MIC_ALL_EAVPOS + EAPEFAAGRPVV3 + MIC_EINPOS + EFPEFAAGRPVV3 + + + + + + + + + + + + + Reduction Amount 3 + Minderungsbetrag 3 + + + false + Decimal(11,2) + + MIC_ALL_EAVPOS + EAPEFAMBPV3 + MIC_EINPOS + EFPEFAMBPV3 + + + + + + + + + + + + + + + Previous documents + + + + + + Previous document + Vorpapier + + + true + + + + + MIC_EINDOC + + + + + + + + + + + + + Previous Document Type + Art des Vorpapiers + + + true + String1..9 + + MIC_EAVDOC + EADVSSART + MIC_EINDOC + EFDVSSART + + + + + + + + + + + + + Previous Document Number + Vorpapiernummer + + + true + String1..24 + + MIC_EAVDOC + EADVSSNR + MIC_EINDOC + EFDVSSNR + + + + + + + + + + + + + Previous document date + Vorpapierdatum + + + true + xs:date + + MIC_EAVDOC + EADVSSDAT + MIC_EINDOC + EFDVSSDAT + + + + + + + + Departure Customs Office + Abgang Zollstelle + + + false + String1..20 + + MIC_EAVDOC + EADABZOST + MIC_EINDOC + EFDABZOST + + + + + + + + + + + + + Destination Customs Office + Bestimmungszollstelle + + + false + String1..8 + + MIC_EAVDOC + EADZOST + MIC_EINDOC + EFDZOST + + + + + + + + + + + + + Category + Kategorie + + + false + String1..1 + + MIC_EAVDOC + EADTYP + MIC_EINDOC + EFDTYP + + + + + + + + + + + + + Created by + Erstellt von + + + false + String1..12 + + MIC_EAVDOC + EADCREUSER + MIC_EINDOC + EFDCREUSER + + + + + + + + Created on + Erstellt am + + + false + Xs:datetime + + MIC_EAVDOC + EADCREDAT + MIC_EINDOC + EFDCREDAT + + + + + + + + Modified by + Geändert von + + + false + String1..12 + + MIC_EAVDOC + EADUSER + MIC_EINDOC + EFDUSER + + + + + + + + Modified on + Geändert am + + + false + Xs:datetime + + MIC_EAVDOC + EADUSEDAT + MIC_EINDOC + EFDUSEDAT + + + + + + + + + + + + + + false + + + + + + + + + + + + + + Type of identification of transport on arrival + Art der Transportidentifikation bei Ankunft + + + false + String1..2 + + MIC_EAVSDG + EASVKZINIDENTIFICATIONTYPE + MIC_EINSDG + EFSVKZINIDENTIFICATIONTYPE + + + + + + + + + + + + + Declaration type + Kz. Nachrichtensteuerung + + + false + String1..1 + + MIC_EAVSDG + EASMESSVORZKZ + MIC_EINSDG + EFSMESSVORZKZ + + + + + + + + + + + + + + Data elements including payment information + + + + + + Payment Type + Zahlungsart + + + false + String1..1 + + MIC_ALL_EAVKOP + EAKPAYMENTTYPE + MIC_EINKOP + EFKPAYMENTTYPE + + + + + + + + + + + + + Payment Date + Zahlungstermin + + + false + xs:datetime + + MIC_ALL_EAVKOP + EAKPAYMENTDATE + MIC_EINKOP + EFKPAYMENTDATE + + + + + + + + + + + Payment Bank Code + Zahlungsbankleitzahl + + + false + String1..20 + + MIC_ALL_EAVKOP + EAKPAYMENTBANKCODE + MIC_EINKOP + EFKPAYMENTBANKCODE + + + + + + + + + + + + + Payment Bank Branch Code + Zahlung Bank Branch Code + + + false + String1..20 + + MIC_ALL_EAVKOP + EAKPAYMENTBANKBRANCHCODE + MIC_EINKOP + EFKPAYMENTBANKBRANCHCODE + + + + + + + + + + + + + Payment Currency + Zahlungswährung + + + false + String1..3 + + MIC_ALL_EAVKOP + EAKPAYMENTCURRENCY + MIC_EINKOP + EFKPAYMENTCURRENCY + + + + + + + + + + + + + + Data elements including registration numbers + + + + + + CRN / Registration No. + Registriernummer Abfertigung + + + false + String1..35 + + MIC_ALL_EAVPOS + EAPMESSREGNR + MIC_EINPOS + EFPMESSREGNR + + + + + + + + + + + + + EGZ / Registration No. + Registriernummer EGZ + + + false + String1..35 + + MIC_ALL_EAVPOS + EAPMESSREGNR2 + MIC_EINPOS + EFPMESSREGNR2 + + + + + + + + + + + + + Registr. No. 3 + Registriernummer 3 + + + false + String1..35 + + MIC_ALL_EAVPOS + EAPMESSREGNR3 + MIC_EINPOS + EFPMESSREGNR3 + + + + + + + + + + + + + Registr. No. 4 + Registriernummer 4 + + + false + String1..35 + + MIC_ALL_EAVPOS + EAPMESSREGNR4 + MIC_EINPOS + EFPMESSREGNR4 + + + + + + + + + + + + + Message Ref Number 1 + Nachr.Referenz Abf. + + + false + String1..22 + + + + MIC_EINPOS + EFPMESSREFNR + + + + + + + + + + + + + Message Ref Number 2 + Nachr.Referenz EGZ + + + false + String1..52 + + + + MIC_EINPOS + EFPMESSREFNR2 + + + + + + + + + + + + + Message Ref Number 3 + Nachr.Referenz 3 + + + false + String1..22 + + + + MIC_EINPOS + EFPMESSREFNR3 + + + + + + + + + + + + + Position Number 1 + Positionnummer Abf. + + + false + Decimal(5) + + + + MIC_EINPOS + EFPMESSPOSNR1 + + + + + + + + + + + + + Position Number 2 + Positionsnummer EGZ. + + + false + Decimal(5) + + + + MIC_EINPOS + EFPMESSPOSNR2 + + + + + + + + + + + + + + + + + + + + + Duties - calculated by external system + + + + false + + 0-n + + + + + + + + + + + + + + + + true + + + + + + + + + + + + + + + + + + Type of Identification + Art der Identifikation + + + true + String1..3 + + MIC_CUST_WB_EXTDUTY + EXWTYPE + MIC_CUST_WB_EXTDUTY + EXWTYPE + + + + + + + + + + + + + Calculated Duty Base + + + + false + Decimal(14,4) + + MIC_CUST_WB_EXTDUTY + EXWCALCDUTYBASE + MIC_CUST_WB_EXTDUTY + EXWCALCDUTYBASE + + + + + + + + + + + + + + Currency + + + + false + String1..3 + + MIC_CUST_WB_EXTDUTY + EXWCURRENCY + MIC_CUST_WB_EXTDUTY + EXWCURRENCY + + + + + + + + + + + + + Code + Code + + + false + String1..4 + + MIC_CUST_WB_EXTDUTY + EXWCODE + MIC_CUST_WB_EXTDUTY + EXWCODE + + + + + + + + + + + + + Rate + Satz + + + false + Decimal(14,4) + + MIC_CUST_WB_EXTDUTY + EXWRATE + MIC_CUST_WB_EXTDUTY + EXWRATE + + + + + + + + + + + + + + Amount + Betrag + + + false + Decimal(14,4) + + MIC_CUST_WB_EXTDUTY + EXWAMOUNT + MIC_CUST_WB_EXTDUTY + EXWAMOUNT + + + + + + + + + + + + + + Add deduct + Abzug hinzufügen + + + false + Decimal(14,4) + + MIC_CUST_WB_EXTDUTY + EXWADDDEDUCT + MIC_CUST_WB_EXTDUTY + EXWADDDEDUCT + + + + + + + + + + + + + + Calculated Duty + + + + false + Decimal(14,4) + + MIC_CUST_WB_EXTDUTY + EXWCALCDUTY + MIC_CUST_WB_EXTDUTY + EXWCALCDUTY + + + + + + + + + + + + + + Duty + + + + false + Decimal(14,4) + + MIC_CUST_WB_EXTDUTY + EXWDUTY + MIC_CUST_WB_EXTDUTY + EXWDUTY + + + + + + + + + + + + + + Duty base + + + + false + Decimal(14,4) + + MIC_CUST_WB_EXTDUTY + EXWDUTYBASE + MIC_CUST_WB_EXTDUTY + EXWDUTYBASE + + + + + + + + + + + + + + Measure Code + + + + false + String1..4 + + MIC_CUST_WB_EXTDUTY + EXWMEASURECODE + MIC_CUST_WB_EXTDUTY + EXWMEASURECODE + + + + + + + + + + + + + Measure + + + + false + String1..100 + + MIC_CUST_WB_EXTDUTY + EXWMEASURE + MIC_CUST_WB_EXTDUTY + EXWMEASURE + + + + + + + + + + + + + Authority duty code + + + + false + String1..4 + + MIC_CUST_WB_EXTDUTY + EXWAUTHORITYDUTYCODE + MIC_CUST_WB_EXTDUTY + EXWAUTHORITYDUTYCODE + + + + + + + + + + + + + Territory + + + + false + String1..4 + + MIC_CUST_WB_EXTDUTY + EXWTERRITORY + MIC_CUST_WB_EXTDUTY + EXWTERRITORY + + + + + + + + + + + + + Type add Code + + + + false + String1..1 + + MIC_CUST_WB_EXTDUTY + EXWTYPEADDCODE + MIC_CUST_WB_EXTDUTY + EXWTYPEADDCODE + + + + + + + + + + + + + Number add code + + + + false + String1..3 + + MIC_CUST_WB_EXTDUTY + EXWNUMBERADDCODE + MIC_CUST_WB_EXTDUTY + EXWNUMBERADDCODE + + + + + + + + + + + + + Tariff rate quota + + + + false + String1..6 + + MIC_CUST_WB_EXTDUTY + EXWTARIFFRATEQUOTA + MIC_CUST_WB_EXTDUTY + EXWTARIFFRATEQUOTA + + + + + + + + + + + + + Created by + Erstellt von + + + false + String1..12 + + MIC_CUST_WB_EXTDUTY + EXWCREUSER + MIC_CUST_WB_EXTDUTY + EXWCREUSER + + + + + + + + Created on + Erstellt am + + + false + Xs:datetime + + MIC_CUST_WB_EXTDUTY + EXWCREDAT + MIC_CUST_WB_EXTDUTY + EXWCREDAT + + + + + + + + Modified on + Geändert am + + + false + Xs:datetime + + MIC_CUST_WB_EXTDUTY + EXWUSER + MIC_CUST_WB_EXTDUTY + EXWUSER + + + + + + + + Modified on + Geändert am + + + false + Xs:datetime + + MIC_CUST_WB_EXTDUTY + EXWUSEDAT + MIC_CUST_WB_EXTDUTY + EXWUSEDAT + + + + + + + + + + + + + + + + true + + + MIC_EINABG + + + + + + + + + + + + + + + Type + Abgabenart + + + true + String1..6 + + + + MIC_EINABG + EFAABART + + + + + + + + + + + + + Code + Code + + + true + String1..4 + + + + MIC_EINABG + EFACODE + + + + + + + + + + + + + Duty + ATLAS Abgabe + + + true + Decimal(16,4) + + + + MIC_EINABG + EFAABGABE + + + + + + + + + + + + + + Duty + ATLAS Abgabe + + + false + Decimal(16,4) + + + + MIC_EINABG + EFAABGABEZW + + + + + + + + + + + + + + Duty + ATLAS Abgabe + + + false + String1..1 + + + + MIC_EINABG + EFAANLKZ + + + + + + + + + + + + + Unit + Einheit + + + false + String1..4 + + + + MIC_EINABG + EFABEMEH + + + + + + + + + + + + + Base + ATLAS Bemessungsgrundlage + + + false + Decimal(16,4) + + + + MIC_EINABG + EFABEMESSG + + + + + + + + + + + + + + Base + ATLAS Bemessungsgrundlage + + + false + String1..2 + + + + MIC_EINABG + EFACTRY + + + + + + + + + + + + + Calculated Duty + Abgabe + + + false + Decimal(16,4) + + + + MIC_EINABG + EFAERRABGABE + + + + + + + + + + + + + + Calculation Base + Bemessungsgrundlage + + + false + Decimal(16,4) + + + + MIC_EINABG + EFAERRBEMESSG + + + + + + + + + + + + + + Area Code + + + + false + String1..4 + + + + MIC_EINABG + EFAGEOGRGEBID + + + + + + + + + + + + + Measure + Massnahmenart + + + false + String1..6 + + + + MIC_EINABG + EFAMASSN + + + + + + + + + + + + + Measure + Massnahmenart + + + false + String1..4 + + + + MIC_EINABG + EFAOFFCODE + + + + + + + + + + + + + Indenture Number + + + + false + String1..6 + + + + MIC_EINABG + EFAORDNUNGSNR + + + + + + + + + + + + + Rate + Satz + + + false + Decimal(16,4) + + + + MIC_EINABG + EFASATZ + + + + + + + + + + + + + + Cancellation Flag + Storno + + + false + String1..1 + + + + MIC_EINABG + EFASTORNO + + + + + + + + + + + + + Duty amount increase or decrease + + + + false + Decimal(16,4) + + + + MIC_EINABG + EFAZUAB + + + + + + + + + + + + + + Type of additional code + + + + false + String1..1 + + + + MIC_EINABG + EFAZUSCDART + + + + + + + + + + + + + Number of additional code + + + + false + String1..3 + + + + MIC_EINABG + EFAZUSCDNR + + + + + + + + + + + + + Calculated duty rate + + + + false + Decimal(16,4) + + + + MIC_EINABG + EFAERRSATZ + + + + + + + + + + + + + + Created by + Erstellt von + + + false + String1..12 + + + + MIC_EINABG + EFACREUSER + + + + + + + + Created on + Erstellt am + + + false + Xs:datetime + + + + MIC_EINABG + EFACREDAT + + + + + + + + Modified by + Geändert von + + + false + String1..12 + + + + MIC_EINABG + EFAUSER + + + + + + + + Modified on + Geändert am + + + false + Xs:datetime + + + + MIC_EINABG + EFAUSEDAT + + + + + + + + + + + + + + + + true + + + + + MIC_CUST_DUTY_SAVING + + + + + + + + + + + + + Type + Abgabenart + + + false + String1..6 + + + + MIC_CUST_DUTY_SAVING + CDSDUTYTYPE + + + + + + + + + + + + + Code + Code + + + false + String1..4 + + + + MIC_CUST_DUTY_SAVING + CDSCODE + + + + + + + + + + + + + Duty + ATLAS Abgabe + + + false + Decimal(16,4) + + + + MIC_CUST_DUTY_SAVING + CDSDUTY + + + + + + + + + + + + + + Duty + ATLAS Abgabe + + + false + Decimal(16,4) + + + + MIC_CUST_DUTY_SAVING + CDSDUTYZW + + + + + + + + + + + + + + "A" for automatically created, "M" for manually created + Erstellungs KZ + + + false + String1..1 + + + + MIC_CUST_DUTY_SAVING + CDSCREATIONFLAG + + + + + + + + + + + + + Unit + Einheit + + + false + String1..4 + + + + MIC_CUST_DUTY_SAVING + CDSCALCBASEUNIT + + + + + + + + + + + + + Base + ATLAS Bemessungsgrundlage + + + false + Decimal(16,4) + + + + MIC_CUST_DUTY_SAVING + CDSCALCBASE + + + + + + + + + + + + + + Base + ATLAS Bemessungsgrundlage + + + false + String1..2 + + + + MIC_CUST_DUTY_SAVING + CDSCTRY + + + + + + + + + + + + + Duty + ATLAS Abgabe + + + false + Decimal(16,4) + + + + MIC_CUST_DUTY_SAVING + CDSCALCULATEDDUTY + + + + + + + + + + + + + + Base + ATLAS Bemessungsgrundlage + + + false + Decimal(16,4) + + + + MIC_CUST_DUTY_SAVING + CDSCALCULATEDCALCBASE + + + + + + + + + + + + + + Measure + Massnahmenart + + + false + String1..6 + + + + MIC_CUST_DUTY_SAVING + CDSMEASURE + + + + + + + + + + + + + Rate + Satz + + + false + Decimal(16,4) + + + + MIC_CUST_DUTY_SAVING + CDSRATE + + + + + + + + + + + + + + Addition + Zusatz + + + false + Decimal(16,4) + + + + MIC_CUST_DUTY_SAVING + CDSADDITION + + + + + + + + + + + + + + Preferential flag + Präferenziell + + + false + String1..1 + + + + MIC_CUST_DUTY_SAVING + CDSPREFERENTIAL + + + + + + + + + + + + + Created by + Erstellt von + + + false + String1..12 + + + + MIC_CUST_DUTY_SAVING + CDSCREUSER + + + + + + + + Created on + Erstellt am + + + false + Xs:datetime + + + + MIC_CUST_DUTY_SAVING + CDSCREDAT + + + + + + + + Modified by + Geändert von + + + false + String1..12 + + + + MIC_CUST_DUTY_SAVING + CDSUSER + + + + + + + + Modified on + Geändert am + + + false + Xs:datetime + + + + MIC_CUST_DUTY_SAVING + CDSUSEDAT + + + + + + + + + + + Container ID .mapped by 'eseconid' + + + + + + + + + + Validierungskennzeichen.mapped by 'esevalidkz' + + + + + + + + + + Storno.mapped by 'esestorno' + + + + + + + + + + Zeichen des angebrachten Verschlusses laut Versandanmeldung.mapped by 'esezeichensoll' + + + + + + + + + + Tatsächliches Zeichen des angebrachten Verschlusses..mapped by 'esezeichenist' + + + + + + + + + + + + + + + Company + Mandant + + + true + String1..2 + + MIC_ALL_EAVKOP + EAKMANDANT + + + + + + + + + + + + + + + Plant + Werk + + + true + String1..2 + + MIC_ALL_EAVKOP + EAKWERK + + + + + + + + + + + + + + + Type + + + + false + String1..1 + + MIC_ALL_EAVKOP + EAKTYP + + + + + + + + + + + + + + + The invoice number. + Rechnungsnummer + + + true + String1..30 + + MIC_ALL_EAVKOP + EAKFAKTNR + + + + + + + + + + + + + + + + An unique version id. + + + + false + String1..50 + + MIC_ALL_EAVKOP + EAKVERSION + + + + + + + + + + + + + + + The invoice date. + Rechnungsdatum + + + false + xs:date + + MIC_ALL_EAVKOP + EAKFAKTDAT + + + + + + + + + + + + + + + Customs date + + + + false + xs:dateTime + + MIC_ALL_EAVKOP + EAKVZDAT + + + + + + + + + + + + + Dispatch country + + + + false + String1..3 + + MIC_ALL_EAVKOP + EAKHELD + + + + + + + + + + + + + + + Last dispatch country + + + + false + String1..3 + + MIC_ALL_EAVKOP + EAKLEHELD + + + + + + + + + + + + + + + Destination place + + + + false + String1..20 + + MIC_ALL_EAVKOP + EAKBSTORT + + + + + + + + + + + + + + + Destination region + + + + false + String1..2 + + MIC_ALL_EAVKOP + destinationRegion + + + + + + + + + + + + + + + Office entry + + + + false + String1..8 + + MIC_ALL_EAVKOP + EAKEINZOST + + + + + + + + + + + + + + + + + The mode of transportation at the border. +EAKVKZGR +EAKVKMART +EAKVKML +EAKVKMGRK +EAKVKMINBEZ + + + + + The inland mode of transport information +EAKVKZIN +EAKVKMINK +EAKVKMINK + + + + + + + + + + false + + + MIC_EAVSDG + EAK___ + + + + + + + + + + PreviousDocument + + + + + + + Previous doc type + Art des Vorpapiers + + + true + String1..3 + + MIC_ALL_EAVKOP + EAKVSSART + + + + + + + + + + + + + + + Previous doc number + Vorpapiernummer + + + true + String1..18 + + MIC_ALL_EAVKOP + EAKVSSNR + + + + + + + + + + + + + + + Previous doc date + Vorpapierdatum + + + true + xs:date + + MIC_EAVDOC + EADVSSDAT + + + + + + + + + + + + + + + + + + Shipment attributes + Rechnungsattribute + + + false + + 1-n + + + + + + + + + + + Business partner information + + + + + + + Invoice lines + Rechnungspositionen + + + true + + 1-n + + + + + + + + + + + + + + + + + Invoice type + Rechnungstyp + + + false + String1..3 + + MIC_ALL_EAVKOP + EAKFAKTTYP + MIC_EINKOP + EFKFAKTTYP + + + + + + + + + + + + + The contract date. + Vertragsdatum + + + false + xs:date + + MIC_ALL_EAVKOP + EAKDATVTG + MIC_EINKOP + EFKDATVTG + + + + + + + + Country of Trade + Handelsland + + + false + String1..3 + + MIC_ALL_EAVKOP + EAKHALD + MIC_EINKOP + EFKHALD + + + + + + + + + + + + + Supplier + Lieferant + + + false + + + MIC_ALL_EAVKOP + addrNo:EAKLFRNR, addrName:EAKLFRNM1,EAKLFRNM2, addrStreet:EAKLFRSTR, addrLoc:EAKLFRORT, addrCtry:EAKLFRLD, addrState:EAKLFRREGION, addrZip:EAKLFRPLZ, addrTin:EAKLFRTIN, addrEori:EAKLFREORI, partnerRelation:EAKLFRREL, addrDistrict:not mapped + + + + + + + + + + Gross Weight (kg) + Rohmasse (kg) + + + false + Decimal(17,4) + + MIC_ALL_EAVKOP + EAKROHMAS + MIC_EINKOP + EFKROHMAS + + + + + + + + + + + + + + Net Weight (kg)/The net weight of this invoice (sum of all invoice line net weights). + Eigenmasse (kg) + + + false + Decimal(15,6) + + MIC_ALL_EAVKOP + EAKGEWSUM + MIC_EINKOP + EFKGEWSUM + + + + + + + + + + + + + + Invoice Value/The total invoice value. + Rechnungswert + + + false + Decimal(17,4) + + MIC_ALL_EAVKOP + EAKLIEWERT + MIC_EINKOP + EFKLIEWERT + + + + + + + + + + + + + + Currency Invoice/The invoice currency as ISO currency code. + Währung Rechnung + + + false + String1..3 + + MIC_ALL_EAVKOP + EAKLIEWAE + MIC_EINKOP + EFKLIEWAE + + + + + + + + + + + + + Delivery terms + + + + false + + + + + + + + + + + + + + Rebate + Rabatt/Nachlass + + + false + + + + + + + + + + + + + + Discount/Discount for invoice value. + Skonto + + + false + Decimal(5,2) + + MIC_ALL_EAVKOP + EAKSKONTO + MIC_EINKOP + EFKSKONTO + + + + + + + + + + + + + + Additional costs can be added on all levels as additional part value components. They are pro-rated to the invoice lines as indicated. + + + + false + + 0-2 + MIC_ALL_EAVKOP + EAK___ + MIC_EINKOP + EFK___ + + + + + + + + Position additions/Additional remarks and information + Zusätzliche Angaben + + + false + String1..80 + + MIC_ALL_EAVKOP + EAKINFO + MIC_EINKOP + EFKINFO + + + + + + + + + + + + + Position additions/Additional remarks and information 2 + Zusätzliche Angaben 2 + + + false + String1..80 + + MIC_ALL_EAVKOP + EAKINFO2 + MIC_EINKOP + EAKINFO2 + + + + + + + + + + + + + Invoice freight costs + Sendungsfrachtkosten + + + + + + + + + + + + + + + Reference Number + Referenznummer + + + false + String1..30 + + MIC_ALL_EAVKOP + EAKREFNR + MIC_EINKOP + EFKREFNR + + + + + + + + + + + + + Transport Number + Transportnummer + + + false + String1..20 + + MIC_ALL_EAVKOP + EAKTRANSPNR + MIC_EINKOP + EFKTRANSPNR + + + + + + + + + + + + + Type of Transport + Art des Transports + + + false + String1..10 + + MIC_ALL_EAVKOP + EAKTRANSPTYP + MIC_EINKOP + EFKTRANSPTYP + + + + + + + + + + + + + Acceptance Date + Datum der Annahme (ZiA) + + + false + xs:date + + MIC_ALL_EAVKOP + EAKANNAHMEDAT + MIC_EINSDG + EFSANNAHMEDAT + + + + + + + + Release Date + Datum der Überlassung (ZiA) + + + false + xs:date + + MIC_ALL_EAVKOP + EAKUEBERLASSDAT + MIC_EINSDG + EFSUEBERLASSDAT + + + + + + + + Frist (ZiA) + Term of Application + + + false + xs:date + + MIC_ALL_EAVKOP + EAKFRIST + MIC_EINSDG + EFSFRIST + + + + + + + + Customs Register Number + Registriernummer (ZiA) + + + false + String1..35 + + MIC_ALL_EAVKOP + EAKREGNR + MIC_EINSDG + EFSREGNR + + + + + + + + + + + + + Seal number + Verschlussnummer + + + false + String1..50 + + MIC_ALL_EAVKOP + EAKPLOMBE + MIC_EINKOP + EFKPLOMBE + + + + + + + + + + + + + Bill of lading + Konnossement / Frachtbrief + + + false + String1..20 + + MIC_ALL_EAVKOP + EAKBOL + MIC_EINKOP + EFKBOL + + + + + + + + + + + + + Number of Packages + Anzahl Packstücke + + + false + Decimal(6) + + MIC_ALL_EAVKOP + EAKKOLANZ + MIC_EINKOP + EFKKOLANZ + + + + + + + + + + + + + + Package Type + Packstückart + + + false + String1..15 + + MIC_ALL_EAVKOP + EAKKOLART + MIC_EINKOP + EFKKOLART + + + + + + + + + + + + + Buyer + Käufer + + + false + String1..15 + + MIC_ALL_EAVKOP + EAKKAUFNR + MIC_EINKOP + EFKKAUFNR + + + + + + + + + + + + + Consignee + Empfänger + + + false + String1..15 + + MIC_ALL_EAVKOP + EAKEMPNR + MIC_EINKOP + EFKEMPNR + + + + + + + + + + + + Data elements including payment information + + + + + + Customer specific fields + Kundenspezifische Felder + + + false + + + MIC_ALL_EAVKOP + EAK___ + MIC_EINKOP + EFK___ + + + + + + + + Seller + Verkäufer + + + false + + + MIC_ALL_EAVKOP + addrNo:EAKSELLERNR, addrName:EAKSELLERNAME1,EAKSELLERNAME2, addrStreet:EAKSELLERSTREET, addrLoc:EAKSELLERPLACE, addrCtry:EAKSELLERCTRY, addrState:EAKORT, addrZip:EAKSELLERZIP, addrTin:EAKSELLERTIN, addrEori:EAKSELLEREORI, partnerRelation:EAKSELLERKVB, addrDistrict:not mapped, addrBranchNo:EAKSELLERBRANCHNO + + + + + + + + + + Exchange Rate + Wechselkurs + + + false + Decimal + + MIC_ALL_EAVKOP + EAKKURS + MIC_EINKOP + EFKKURS + + + + + + + + + + + Created by + Erstellt von + + + false + String1..12 + + MIC_ALL_EAVKOP + EAKCREUSER + MIC_EINKOP + EFKCREUSER + + + + + + + + Created on + Erstellt am + + + false + Xs:datetime + + MIC_ALL_EAVKOP + EAKCREADAT + MIC_EINKOP + EFKCREDAT + + + + + + + + Modified by + Geändert von + + + false + String1..12 + + MIC_ALL_EAVKOP + EAKUSER + MIC_EINKOP + EFKUSER + + + + + + + + Modified on + Geändert am + + + false + Xs:datetime + + MIC_ALL_EAVKOP + EAKUSEDAT + MIC_EINKOP + EFKUSEDAT + + + + + + + + + + + + false + + + MIC_ALL_EAVKOP + EAK___ + MIC_EINKOP + EFK___ + + + + + + + + + + Mapping to table MIC_CUST_WB_ATLAS_COMP_SUMD + + + + + + Completion parts + Beendigunsgsanteile + + + true + + + + + MIC_ATLAS_COMPLETION_SUMD + + + + + + + + + + + + + + Type of Identification + Art der Identifikation + + + false + String1..3 + + MIC_CUST_WB_ATLAS_COMP_SUMD + ECSIDTYPE + MIC_ATLAS_COMPLETION_SUMD + ACSIDTYPE + + + + + + + + + + + + + Quantity + Stückzahl + + + false + xs:long 5 + + MIC_CUST_WB_ATLAS_COMP_SUMD + ECSQUANTITY + MIC_ATLAS_COMPLETION_SUMD + ACSQUANTITY + + + + + + + + + + + + + Package Type + Packstückart + + + false + String1..2 + + MIC_CUST_WB_ATLAS_COMP_SUMD + ECSPACKAGETYPE + MIC_ATLAS_COMPLETION_SUMD + ACSPACKAGETYPE + + + + + + + + + + + + + Customs Register Number + Registriernummer (ZiA) + + + false + String1..21 + + MIC_CUST_WB_ATLAS_COMP_SUMD + ECSREGNR + MIC_ATLAS_COMPLETION_SUMD + ACSREGNR + + + + + + + + + + + + + Position Number + Positionsnummer + + + false + xs:long 4 + + MIC_CUST_WB_ATLAS_COMP_SUMD + ECSPOSNR + MIC_ATLAS_COMPLETION_SUMD + ACSPOSNR + + + + + + + + + + + + + Depository + Verwahrer + + + false + String1..17 + + MIC_CUST_WB_ATLAS_COMP_SUMD + ECSDEPOSITOR + MIC_ATLAS_COMPLETION_SUMD + ACSDEPOSITOR + + + + + + + + + + + + + Type of specific defining argument + Art des spezifischen Ordnungsbegriffs + + + false + String1..3 + + MIC_CUST_WB_ATLAS_COMP_SUMD + ECSSPECDEFTYPE + MIC_ATLAS_COMPLETION_SUMD + ACSSPECDEFTYPE + + + + + + + + + + + + + Specific defining argument + Spezifischer Ordnungsbegriff + + + false + String1..44 + + MIC_CUST_WB_ATLAS_COMP_SUMD + ECSSPECDEFARG + MIC_ATLAS_COMPLETION_SUMD + ACSSPECDEFARG + + + + + + + + + + + + + Created by + Erstellt von + + + false + String1..12 + + MIC_CUST_WB_ATLAS_COMP_SUMD + ECSCREUSER + MIC_ATLAS_COMPLETION_SUMD + ACSCREUSER + + + + + + + + Created on + Erstellt am + + + false + Xs:datetime + + MIC_CUST_WB_ATLAS_COMP_SUMD + ECSCREDAT + MIC_ATLAS_COMPLETION_SUMD + EFDCREDAT + + + + + + + + Modified by + Geändert von + + + false + String1..12 + + MIC_CUST_WB_ATLAS_COMP_SUMD + ECSUSER + MIC_ATLAS_COMPLETION_SUMD + ACSUSER + + + + + + + + Modified on + Geändert am + + + false + Xs:datetime + + MIC_CUST_WB_ATLAS_COMP_SUMD + ECSUSEDAT + MIC_ATLAS_COMPLETION_SUMD + ACSUSEDAT + + + + + + + + + + Invoice line previous document references + Positionsbeendigungsanteile Vorpapiere + + + + + + + Previous document reference + Beendigungsanteil Vorpapier + + + true + + 1-n + MIC_CUST_AVBEENDIGUNG + + + + + + + + + + + + + + Reference previous procedures + + + + + + + Reference type + Art des BE-Anteils + + + false + String1..3 + + MIC_CUST_AVBEENDIGUNG + MCBART + + + + + + + + + + + + + + + Reference number + Bezugsnummer + + + false + String1..35 + + MIC_CUST_AVBEENDIGUNG + MCBBEZUGNR + + + + + + + + + + + + + + + Authorization number + Bewilligungsnummer + + + false + String1..35 + + MIC_CUST_AVBEENDIGUNG + MCBBEWILLNR + + + + + + + + + + + + + + + Registration number + Registriernummer Zugang + + + false + String1..36 + + MIC_CUST_AVBEENDIGUNG + MCBREGNR + + + + + + + + + + + + + + + Position number + Positionsnummer Zugang + + + false + Long 5 + + MIC_CUST_AVBEENDIGUNG + MCBZUGPOSNR + + + + + + + + + + + + + + + Part number + Artikelnummer + + + false + String1..30 + + MIC_CUST_AVBEENDIGUNG + MCBARTNR + + + + + + + + + + + + + + + Tariff number + Tarifnummer + + + false + String1..13 + + MIC_CUST_AVBEENDIGUNG + MCBTARNR + + + + + + + + + + + + + + + Trade quantity + Handelsmenge + + + false + Decimal(12,3) + + MIC_CUST_AVBEENDIGUNG + MCBHMENGE + + + + + + + + + + + + + + + + Trade unit of measurement + Handelsmengeneinheit + + + false + String1..3 + + MIC_CUST_AVBEENDIGUNG + MCBHMEH + + + + + + + + + + + + + + + Trade qualifier + Handelsqualifikator + + + false + String1..1 + + MIC_CUST_AVBEENDIGUNG + MCBHQUAL + + + + + + + + + + + + + + + Deduction quantity + Abbuchungsmenge + + + false + Decimal(12,3) + + MIC_CUST_AVBEENDIGUNG + MCBMENGE + + + + + + + + + + + + + + + + Deduction unit of measurement + Abbuchungsmengeneinheit + + + false + String1..3 + + MIC_CUST_AVBEENDIGUNG + MCBMEH + + + + + + + + + + + + + + + Deduction qualifier + Abbuchungsqualifikator + + + false + String1..1 + + MIC_CUST_AVBEENDIGUNG + MCBQUAL + + + + + + + + + + + + + + + Additional information + Zusatzinformation + + + false + String1..4000 + + MIC_CUST_AVBEENDIGUNG + MCBINFO + + + + + + + + + + + + + + + Normal treatment flag + Kennzeichen Normales Verfahren + + + false + xs:boolean + + MIC_CUST_AVBEENDIGUNG + MCBKZUEBLBEH + + + + + + + + + + Atlas flag + ATLAS Kennzeichen + + + false + xs:boolean + + MIC_CUST_AVBEENDIGUNG + MCBKZATLAS + + + + + + + + + + Customs number + Zollnummer + + + false + String1..17 + + MIC_CUST_AVBEENDIGUNG + MCBZNRAB + + + + + + + + + + + + + + + Statistical quantity + Statistiche Menge + + + false + Decimal(13,3) + + MIC_CUST_AVBEENDIGUNG + MCBBESM + + + + + + + + + + + + + + + + Net mass + Eigenmasse (kg) + + + false + Decimal(13,4) + + MIC_CUST_AVBEENDIGUNG + MCBEIGMAS + + + + + + + + + + + + + + + + Gross mass + Rohmasse (kg) + + + false + Decimal(13,4) + + MIC_CUST_AVBEENDIGUNG + MCBROHMAS + + + + + + + + + + + + + + + + Package quantity + Packstückanzahl + + + false + Decimal + + MIC_CUST_AVBEENDIGUNG + MCBKOLANZ + + + + + + + + + + Simple IPR application flag + Kennzeichen einfache Bewilligung für aktive Veredelung + + + false + xs:boolean + + MIC_CUST_AVBEENDIGUNG + MCBSIMPLEIPRAPPLICATION + + + + + + + + + + Supervising office + Überwachungszollstelle + + + false + String1..8 + + MIC_CUST_AVBEENDIGUNG + MCBSUPERVISINGOFFICE + + + + + + + + + + + + + + + + Customer-specific fields + + + + + + Customer-specific text field + Kundenspezifischer Text + + + false + + + + ___TEXT___ + KEY + + ___TEXT___ + KEY + + + + + + + + Customer-specific date field + Kundenspezifisches Datum + + + false + + + + ___DATE___ + KEY + + ___DATE___ + KEY + + + + + + + + Customer-specific boolean field + Kundenspezifischer boolscher Wert + + + false + + + + ___FLAG___ + KEY + + ___FLAG___ + KEY + + + + + + + + Customer-specific number field + Kundenspezifischer numerische Wert + + + false + + + + ___NUMBER___ + KEY + + ___NUMBER___ + KEY + + + + + + + + + + + + + + + + + Number of Customer Specific Item: 1-10 on Shipment and Invoice; 1-15 on line + Nummer vom Kundenspezifischen Feld: 1-10 auf Sendung und Rechnung; 1-15 auf Line + + + false + Number + + + + + + + + + + + + + Value of Customer Specific Item + Wert vom Kundespezifache Feld + + + false + String1..400 + + + + + + + + + + + + + + + + + + + + + + + + + + + Number of Customer Specific Item: 1-10 on Shipment and Invoice; 1-15 on line + Nummer vom Kundenspezifischen Feld: 1-10 auf Sendung und Rechnung; 1-15 auf Line + + + false + Number + + + + + + + + + + + + + Number of Customer Specific Item: 1-10 on Shipment and Invoice; 1-15 on line + Nummer vom Kundenspezifischen Feld: 1-10 auf Sendung und Rechnung; 1-15 auf Line + + + false + Number(15,4) + + + + + + + + + + + + + + + + + + + + + + + + + Number of Customer Specific Item: 1-10 on Shipment and Invoice; 1-15 on line + Nummer vom Kundenspezifischen Feld: 1-10 auf Sendung und Rechnung; 1-15 auf Line + + + false + Number + + + + + + + + + + + + + Value of Customer Specific Item + Wert vom Kundespezifache Feld + + + false + Boolean + + + + + + + + + + + + + + + + + + + + + + Number of Customer Specific Item: 1-10 on Shipment and Invoice; 1-15 on line + Nummer vom Kundenspezifischen Feld: 1-10 auf Sendung und Rechnung; 1-15 auf Line + + + false + Number + + + + + + + + + + + + + Value of Customer Specific Item + Wert vom Kundespezifache Feld + + + false + Xs:datetime + + + + + + + + + + + + + + + + + + + + Packages + + + + + + Package + Packstück + + + true + String1..8 + + MIC_CUST_WB_PACKAGES + + MIC_CUST_PACKAGES + + + + + + + + + + Import packages type + + + + + + Signo + Zeichen/Nummer + + + true + String1..140 + + MIC_CUST_WB_PACKAGES + WBPSIGNO + MIC_CUST_PACKAGES + PCKSIGNO + + + + + + + + + + + Quantity + Menge + + + true + xs:long 15 + + MIC_CUST_WB_PACKAGES + WBPANZAR + MIC_CUST_PACKAGES + PCKANZAR + + + + + + + + + + + Package Type + Packstückart + + + true + String1..5 + + MIC_CUST_WB_PACKAGES + WBPART + MIC_CUST_PACKAGES + PCKART + + + + + + + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.Designer.vb new file mode 100644 index 0000000..9c08732 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.Designer.vb @@ -0,0 +1,2510 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' MIC_IMPORTListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic +Imports VERAG_PROG_ALLGEMEIN.MIC_IMPORT_Invoice + +Namespace MIC_IMPORT + + + Partial Public Class ImportShipment + +#Region "Private fields" + Private _shipment As TShipment + + Private _invoice As List(Of TInvoice) + + Private _schemaVersion As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._invoice = New List(Of TInvoice)() + Me._shipment = New TShipment() + End Sub + + Public Property Shipment() As TShipment + Get + Return Me._shipment + End Get + Set + Me._shipment = Value + End Set + End Property + + + Public Property Invoice() As List(Of TInvoice) + Get + Return Me._invoice + End Get + Set + Me._invoice = Value + End Set + End Property + + + Public Property schemaVersion() As Decimal + Get + Return Me._schemaVersion + End Get + Set + Me._schemaVersion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ImportShipment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ImportShipment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ImportShipment object + ''' + ''' string workflow markup to deserialize + ''' Output ImportShipment 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 ImportShipment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ImportShipment) + 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 ImportShipment) 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 ImportShipment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ImportShipment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ImportShipment + Return CType(Serializer.Deserialize(s), ImportShipment) + End Function +#End Region + + ''' + ''' Serializes current ImportShipment 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ImportShipment object + ''' + ''' string xml file to load and deserialize + ''' Output ImportShipment 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 ImportShipment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ImportShipment) + 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 ImportShipment) 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 ImportShipment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TShipment + +#Region "Private fields" + Private _company As String + + Private _plant As String + + Private _shipmentId As String + + Private _shipmentPartial As String + + Private _shipmentVersion As String + + Private _documentNumber As Decimal + + Private _shipmentHead As TShipmentHead + + Private _containers As List(Of TDetailContainerInfo) + + Private _documents As List(Of TDocument) + + Private _attributes As List(Of TAttribute) + + Private _partners As List(Of TPartner) + + Private _previousDocuments As List(Of TPrevDoc) + + Private _atlasCompletionSumDs As List(Of TAtlasCompSumDEntry) + + Private _additionalInformation As List(Of TAttribute) + + Private _authorisationHolders As TAuthHolders + + Private _defermentAccounts As TDeferAccs + + Private _guarantees As TGuarantees + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._guarantees = New TGuarantees() + Me._defermentAccounts = New TDeferAccs() + Me._authorisationHolders = New TAuthHolders() + Me._additionalInformation = New List(Of TAttribute)() + Me._atlasCompletionSumDs = New List(Of TAtlasCompSumDEntry)() + Me._previousDocuments = New List(Of TPrevDoc)() + Me._partners = New List(Of TPartner)() + Me._attributes = New List(Of TAttribute)() + Me._documents = New List(Of TDocument)() + Me._containers = New List(Of TDetailContainerInfo)() + Me._shipmentHead = New TShipmentHead() + Me._shipmentVersion = "1" + Me._documentNumber = CType(1D, Decimal) + End Sub + + Public Property company() As String + Get + Return Me._company + End Get + Set + Me._company = Value + End Set + End Property + + Public Property plant() As String + Get + Return Me._plant + End Get + Set + Me._plant = Value + End Set + End Property + + Public Property shipmentId() As String + Get + Return Me._shipmentId + End Get + Set + Me._shipmentId = Value + End Set + End Property + + Public Property shipmentPartial() As String + Get + Return Me._shipmentPartial + End Get + Set + Me._shipmentPartial = Value + End Set + End Property + + + Public Property shipmentVersion() As String + Get + Return Me._shipmentVersion + End Get + Set + Me._shipmentVersion = Value + End Set + End Property + + + Public Property documentNumber() As Decimal + Get + Return Me._documentNumber + End Get + Set + Me._documentNumber = Value + End Set + End Property + + Public Property ShipmentHead() As TShipmentHead + Get + Return Me._shipmentHead + End Get + Set + Me._shipmentHead = Value + End Set + End Property + + + Public Property Containers() As List(Of TDetailContainerInfo) + Get + Return Me._containers + End Get + Set + Me._containers = Value + End Set + End Property + + + Public Property Documents() As List(Of TDocument) + Get + Return Me._documents + End Get + Set + Me._documents = Value + End Set + End Property + + + Public Property Attributes() As List(Of TAttribute) + Get + Return Me._attributes + End Get + Set + Me._attributes = Value + End Set + End Property + + + Public Property Partners() As List(Of TPartner) + Get + Return Me._partners + End Get + Set + Me._partners = Value + End Set + End Property + + + Public Property PreviousDocuments() As List(Of TPrevDoc) + Get + Return Me._previousDocuments + End Get + Set + Me._previousDocuments = Value + End Set + End Property + + + Public Property AtlasCompletionSumDs() As List(Of TAtlasCompSumDEntry) + Get + Return Me._atlasCompletionSumDs + End Get + Set + Me._atlasCompletionSumDs = Value + End Set + End Property + + + Public Property AdditionalInformation() As List(Of TAttribute) + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + Public Property AuthorisationHolders() As TAuthHolders + Get + Return Me._authorisationHolders + End Get + Set + Me._authorisationHolders = Value + End Set + End Property + + Public Property DefermentAccounts() As TDeferAccs + Get + Return Me._defermentAccounts + End Get + Set + Me._defermentAccounts = Value + End Set + End Property + + Public Property Guarantees() As TGuarantees + Get + Return Me._guarantees + End Get + Set + Me._guarantees = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TShipment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TShipment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TShipment object + ''' + ''' string workflow markup to deserialize + ''' Output TShipment 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 TShipment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipment) + 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 TShipment) 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 TShipment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TShipment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TShipment + Return CType(Serializer.Deserialize(s), TShipment) + End Function +#End Region + + ''' + ''' Serializes current TShipment 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TShipment object + ''' + ''' string xml file to load and deserialize + ''' Output TShipment 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 TShipment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipment) + 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 TShipment) 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 TShipment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TShipmentHead + +#Region "Private fields" + Private _shipmentType As TShipmentHeadShipmentType + + Private _customsDate As Date + + Private _declType As TDeclType + + Private _mrn As String + + Private _grossWeight As Decimal + + Private _departurePlace As String + + Private _dispatchCountry As String + + Private _lastDispatchCountry As String + + Private _destinationPlace As String + + Private _destinationRegion As String + + Private _officeEntry As String + + Private _importState As String + + Private _substituteFlag As String + + Private _typeOfImport As String + + Private _authorizationNumber As String + + Private _placeOfDispatchDescription As String + + Private _typeOfAirTransportation As String + + Private _motBorder As TMot + + Private _motBorderCrossing As TMot + + Private _motInland As TMot + + Private _containerIndicator As String + + Private _container As TContainer + + Private _freight As TFreightCosts + + Private _insurance As TInsuranceCosts + + Private _additionalCosts As List(Of TAddCosts) + + Private _additionalCostVAT As Decimal + + Private _text As String + + Private _exportDate As Date + + Private _importDate As Date + + Private _estArrivalDate As Date + + Private _partyConst As String + + Private _period As String + + Private _customerFields As TCustomerFields + + Private _countryDestination As String + + Private _clearenceType As String + + Private _previousDocType As String + + Private _previousDocNumber As String + + Private _customsOfficeOfDestination As String + + Private _carrierNumber As String + + Private _creationUser As String + + Private _creationDate As Date + + Private _modificationUser As String + + Private _modificationDate As Date + + Private _supervisingOffice As String + + Private _typeIdentificationOfTransportArrival As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._customerFields = New TCustomerFields() + Me._additionalCosts = New List(Of TAddCosts)() + Me._insurance = New TInsuranceCosts() + Me._freight = New TFreightCosts() + Me._container = New TContainer() + Me._motInland = New TMot() + Me._motBorderCrossing = New TMot() + Me._motBorder = New TMot() + Me._declType = New TDeclType() + Me._shipmentType = TShipmentHeadShipmentType.E + Me._containerIndicator = "0" + End Sub + + + Public Property shipmentType() As TShipmentHeadShipmentType + Get + Return Me._shipmentType + End Get + Set + Me._shipmentType = Value + End Set + End Property + + + Public Property customsDate() As Date + Get + Return Me._customsDate + End Get + Set + Me._customsDate = Value + End Set + End Property + + Public Property declType() As TDeclType + Get + Return Me._declType + End Get + Set + Me._declType = Value + End Set + End Property + + Public Property mrn() As String + Get + Return Me._mrn + End Get + Set + Me._mrn = Value + End Set + End Property + + Public Property grossWeight() As Decimal + Get + Return Me._grossWeight + End Get + Set + Me._grossWeight = Value + End Set + End Property + + Public Property departurePlace() As String + Get + Return Me._departurePlace + End Get + Set + Me._departurePlace = Value + End Set + End Property + + Public Property dispatchCountry() As String + Get + Return Me._dispatchCountry + End Get + Set + Me._dispatchCountry = Value + End Set + End Property + + Public Property lastDispatchCountry() As String + Get + Return Me._lastDispatchCountry + End Get + Set + Me._lastDispatchCountry = Value + End Set + End Property + + Public Property destinationPlace() As String + Get + Return Me._destinationPlace + End Get + Set + Me._destinationPlace = Value + End Set + End Property + + Public Property destinationRegion() As String + Get + Return Me._destinationRegion + End Get + Set + Me._destinationRegion = Value + End Set + End Property + + Public Property officeEntry() As String + Get + Return Me._officeEntry + End Get + Set + Me._officeEntry = Value + End Set + End Property + + Public Property importState() As String + Get + Return Me._importState + End Get + Set + Me._importState = Value + End Set + End Property + + Public Property substituteFlag() As String + Get + Return Me._substituteFlag + End Get + Set + Me._substituteFlag = Value + End Set + End Property + + Public Property typeOfImport() As String + Get + Return Me._typeOfImport + End Get + Set + Me._typeOfImport = Value + End Set + End Property + + Public Property authorizationNumber() As String + Get + Return Me._authorizationNumber + End Get + Set + Me._authorizationNumber = Value + End Set + End Property + + Public Property placeOfDispatchDescription() As String + Get + Return Me._placeOfDispatchDescription + End Get + Set + Me._placeOfDispatchDescription = Value + End Set + End Property + + Public Property typeOfAirTransportation() As String + Get + Return Me._typeOfAirTransportation + End Get + Set + Me._typeOfAirTransportation = Value + End Set + End Property + + Public Property MotBorder() As TMot + Get + Return Me._motBorder + End Get + Set + Me._motBorder = Value + End Set + End Property + + Public Property MotBorderCrossing() As TMot + Get + Return Me._motBorderCrossing + End Get + Set + Me._motBorderCrossing = Value + End Set + End Property + + Public Property MotInland() As TMot + Get + Return Me._motInland + End Get + Set + Me._motInland = Value + End Set + End Property + + + Public Property containerIndicator() As String + Get + Return Me._containerIndicator + End Get + Set + Me._containerIndicator = Value + End Set + End Property + + Public Property Container() As TContainer + Get + Return Me._container + End Get + Set + Me._container = Value + End Set + End Property + + Public Property Freight() As TFreightCosts + Get + Return Me._freight + End Get + Set + Me._freight = Value + End Set + End Property + + Public Property Insurance() As TInsuranceCosts + Get + Return Me._insurance + End Get + Set + Me._insurance = Value + End Set + End Property + + + Public Property AdditionalCosts() As List(Of TAddCosts) + Get + Return Me._additionalCosts + End Get + Set + Me._additionalCosts = Value + End Set + End Property + + Public Property additionalCostVAT() As Decimal + Get + Return Me._additionalCostVAT + End Get + Set + Me._additionalCostVAT = Value + End Set + End Property + + Public Property text() As String + Get + Return Me._text + End Get + Set + Me._text = Value + End Set + End Property + + + Public Property exportDate() As Date + Get + Return Me._exportDate + End Get + Set + Me._exportDate = Value + End Set + End Property + + + Public Property importDate() As Date + Get + Return Me._importDate + End Get + Set + Me._importDate = Value + End Set + End Property + + Public Property estArrivalDate() As Date + Get + Return Me._estArrivalDate + End Get + Set + Me._estArrivalDate = Value + End Set + End Property + + Public Property partyConst() As String + Get + Return Me._partyConst + End Get + Set + Me._partyConst = Value + End Set + End Property + + Public Property period() As String + Get + Return Me._period + End Get + Set + Me._period = Value + End Set + End Property + + Public Property CustomerFields() As TCustomerFields + Get + Return Me._customerFields + End Get + Set + Me._customerFields = Value + End Set + End Property + + Public Property countryDestination() As String + Get + Return Me._countryDestination + End Get + Set + Me._countryDestination = Value + End Set + End Property + + Public Property clearenceType() As String + Get + Return Me._clearenceType + End Get + Set + Me._clearenceType = Value + End Set + End Property + + Public Property previousDocType() As String + Get + Return Me._previousDocType + End Get + Set + Me._previousDocType = Value + End Set + End Property + + Public Property previousDocNumber() As String + Get + Return Me._previousDocNumber + End Get + Set + Me._previousDocNumber = Value + End Set + End Property + + Public Property customsOfficeOfDestination() As String + Get + Return Me._customsOfficeOfDestination + End Get + Set + Me._customsOfficeOfDestination = Value + End Set + End Property + + Public Property carrierNumber() As String + Get + Return Me._carrierNumber + End Get + Set + Me._carrierNumber = Value + End Set + End Property + + Public Property creationUser() As String + Get + Return Me._creationUser + End Get + Set + Me._creationUser = Value + End Set + End Property + + Public Property creationDate() As Date + Get + Return Me._creationDate + End Get + Set + Me._creationDate = Value + End Set + End Property + + Public Property modificationUser() As String + Get + Return Me._modificationUser + End Get + Set + Me._modificationUser = Value + End Set + End Property + + Public Property modificationDate() As Date + Get + Return Me._modificationDate + End Get + Set + Me._modificationDate = Value + End Set + End Property + + Public Property supervisingOffice() As String + Get + Return Me._supervisingOffice + End Get + Set + Me._supervisingOffice = Value + End Set + End Property + + Public Property typeIdentificationOfTransportArrival() As String + Get + Return Me._typeIdentificationOfTransportArrival + End Get + Set + Me._typeIdentificationOfTransportArrival = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TShipmentHead)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TShipmentHead object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TShipmentHead object + ''' + ''' string workflow markup to deserialize + ''' Output TShipmentHead 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 TShipmentHead, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHead) + 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 TShipmentHead) 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 TShipmentHead + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TShipmentHead) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TShipmentHead + Return CType(Serializer.Deserialize(s), TShipmentHead) + End Function +#End Region + + ''' + ''' Serializes current TShipmentHead 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TShipmentHead object + ''' + ''' string xml file to load and deserialize + ''' Output TShipmentHead 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 TShipmentHead, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TShipmentHead) + 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 TShipmentHead) 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 TShipmentHead + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TShipmentHeadShipmentType + + ''' + E + + ''' + B + + ''' + U + + ''' + X + + ''' + I + End Enum + + + Partial Public Class TGuarantee + +#Region "Private fields" + Private _guaranteeNumber As Long + + Private _guaranteeCode As String + + Private _guaranteeType As String + + Private _guaranteeAmount As Decimal + + Private _guaranteeCurrency As String + + Private _guaranteeReference As String + + Private _guaranteeCustomsOffice As String + + Private _localBase As Decimal + + Private _factoringBase As String + + Private _customsRate As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property guaranteeNumber() As Long + Get + Return Me._guaranteeNumber + End Get + Set + Me._guaranteeNumber = Value + End Set + End Property + + Public Property guaranteeCode() As String + Get + Return Me._guaranteeCode + End Get + Set + Me._guaranteeCode = 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 guaranteeAmount() As Decimal + Get + Return Me._guaranteeAmount + End Get + Set + Me._guaranteeAmount = Value + End Set + End Property + + Public Property guaranteeCurrency() As String + Get + Return Me._guaranteeCurrency + End Get + Set + Me._guaranteeCurrency = Value + End Set + End Property + + Public Property guaranteeReference() As String + Get + Return Me._guaranteeReference + End Get + Set + Me._guaranteeReference = Value + End Set + End Property + + Public Property guaranteeCustomsOffice() As String + Get + Return Me._guaranteeCustomsOffice + End Get + Set + Me._guaranteeCustomsOffice = Value + End Set + End Property + + Public Property localBase() As Decimal + Get + Return Me._localBase + End Get + Set + Me._localBase = Value + End Set + End Property + + Public Property factoringBase() As String + Get + Return Me._factoringBase + End Get + Set + Me._factoringBase = Value + End Set + End Property + + Public Property customsRate() As Decimal + Get + Return Me._customsRate + End Get + Set + Me._customsRate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TGuarantee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TGuarantee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TGuarantee object + ''' + ''' string workflow markup to deserialize + ''' Output TGuarantee 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 TGuarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TGuarantee) + 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 TGuarantee) 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 TGuarantee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TGuarantee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TGuarantee + Return CType(Serializer.Deserialize(s), TGuarantee) + End Function +#End Region + + ''' + ''' Serializes current TGuarantee 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TGuarantee object + ''' + ''' string xml file to load and deserialize + ''' Output TGuarantee 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 TGuarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TGuarantee) + 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 TGuarantee) 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 TGuarantee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TGuarantees + +#Region "Private fields" + Private _guarantee As List(Of TGuarantee) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._guarantee = New List(Of TGuarantee)() + End Sub + + + Public Property Guarantee() As List(Of TGuarantee) + Get + Return Me._guarantee + End Get + Set + Me._guarantee = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TGuarantees)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TGuarantees object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TGuarantees object + ''' + ''' string workflow markup to deserialize + ''' Output TGuarantees 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 TGuarantees, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TGuarantees) + 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 TGuarantees) 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 TGuarantees + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TGuarantees) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TGuarantees + Return CType(Serializer.Deserialize(s), TGuarantees) + End Function +#End Region + + ''' + ''' Serializes current TGuarantees 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TGuarantees object + ''' + ''' string xml file to load and deserialize + ''' Output TGuarantees 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 TGuarantees, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TGuarantees) + 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 TGuarantees) 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 TGuarantees + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDeferAcc + +#Region "Private fields" + Private _accountNumber1 As String + + Private _accountNumber2 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property accountNumber1() As String + Get + Return Me._accountNumber1 + End Get + Set + Me._accountNumber1 = Value + End Set + End Property + + Public Property accountNumber2() As String + Get + Return Me._accountNumber2 + End Get + Set + Me._accountNumber2 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDeferAcc)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDeferAcc object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDeferAcc object + ''' + ''' string workflow markup to deserialize + ''' Output TDeferAcc 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 TDeferAcc, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDeferAcc) + 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 TDeferAcc) 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 TDeferAcc + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDeferAcc) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDeferAcc + Return CType(Serializer.Deserialize(s), TDeferAcc) + End Function +#End Region + + ''' + ''' Serializes current TDeferAcc 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDeferAcc object + ''' + ''' string xml file to load and deserialize + ''' Output TDeferAcc 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 TDeferAcc, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDeferAcc) + 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 TDeferAcc) 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 TDeferAcc + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TDeferAccs + +#Region "Private fields" + Private _defermentAccount As TDeferAcc + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._defermentAccount = New TDeferAcc() + End Sub + + Public Property DefermentAccount() As TDeferAcc + Get + Return Me._defermentAccount + End Get + Set + Me._defermentAccount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TDeferAccs)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TDeferAccs object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TDeferAccs object + ''' + ''' string workflow markup to deserialize + ''' Output TDeferAccs 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 TDeferAccs, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDeferAccs) + 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 TDeferAccs) 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 TDeferAccs + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TDeferAccs) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TDeferAccs + Return CType(Serializer.Deserialize(s), TDeferAccs) + End Function +#End Region + + ''' + ''' Serializes current TDeferAccs 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TDeferAccs object + ''' + ''' string xml file to load and deserialize + ''' Output TDeferAccs 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 TDeferAccs, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TDeferAccs) + 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 TDeferAccs) 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 TDeferAccs + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAuthHolder + +#Region "Private fields" + Private _typeCode As String + + Private _identifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property typeCode() As String + Get + Return Me._typeCode + End Get + Set + Me._typeCode = 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 Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAuthHolder)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAuthHolder object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAuthHolder object + ''' + ''' string workflow markup to deserialize + ''' Output TAuthHolder 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 TAuthHolder, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAuthHolder) + 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 TAuthHolder) 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 TAuthHolder + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAuthHolder) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAuthHolder + Return CType(Serializer.Deserialize(s), TAuthHolder) + End Function +#End Region + + ''' + ''' Serializes current TAuthHolder 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAuthHolder object + ''' + ''' string xml file to load and deserialize + ''' Output TAuthHolder 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 TAuthHolder, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAuthHolder) + 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 TAuthHolder) 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 TAuthHolder + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TAuthHolders + +#Region "Private fields" + Private _authorisationHolder As List(Of TAuthHolder) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._authorisationHolder = New List(Of TAuthHolder)() + End Sub + + + Public Property AuthorisationHolder() As List(Of TAuthHolder) + Get + Return Me._authorisationHolder + End Get + Set + Me._authorisationHolder = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TAuthHolders)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TAuthHolders object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TAuthHolders object + ''' + ''' string workflow markup to deserialize + ''' Output TAuthHolders 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 TAuthHolders, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAuthHolders) + 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 TAuthHolders) 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 TAuthHolders + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TAuthHolders) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TAuthHolders + Return CType(Serializer.Deserialize(s), TAuthHolders) + End Function +#End Region + + ''' + ''' Serializes current TAuthHolders 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TAuthHolders object + ''' + ''' string xml file to load and deserialize + ''' Output TAuthHolders 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 TAuthHolders, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TAuthHolders) + 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 TAuthHolders) 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 TAuthHolders + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.xsd new file mode 100644 index 0000000..3187c37 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.xsd @@ -0,0 +1,1815 @@ + + + + + + + + + + + + + Root element of import shipment messages + + + + true + + + + + + + + + + + + + + + Root element of the import message + + + + true + + + MIC_EAVSDG + + MIC_EINSDG + + + + + + + + + Import invoice + Einfuhrrechnung + + + false + + 0-n + + + + + + + + + + + + + + + Import shipment type + + + + + + Company Code + MIC Mandant + + + true + String1..2 + + MIC_EAVSDG + EASMANDANT + MIC_EINSDG + EFSMANDANT + + + + + + + + + + + + + + Plant Code + MIC Werk + + + true + String1..2 + + MIC_EAVSDG + EASWERK + MIC_EINSDG + EFSWERK + + + + + + + + + + + + + + Local Reference/The shipment id + Bezugsnummer + + + true + String1..50 + + MIC_EAVSDG + EASSDGID + MIC_EINSDG + EFSSDGID + + + + + + + + + + + + + + The shipment id partial + Teil + + + true + String1..2 + + MIC_EAVSDG + EASSDGPART + MIC_EINSDG + EFSSDGPART + + + + + + + + + + + + + + Shipment version/An unique version id + Versionsnummer + + + true + String1..50 + + MIC_EAVSDG + EASVERSION + + + + + + + + + + + + + + + + Shipment Id/Sequential declaration number + Belegnummer + + + false + String1..6 + + MIC_EAVSDG + EFSBELNR + MIC_EINSDG + EFSBELNR + Sequential declaration number + + + + + + + + + + + + + + + + true + + + + + + + + + + + + + + Containers + Containers + + + false + + + MIC_CUST_CONT + + + + + + + + + + + Shipment documents + Sendungsunterlagen + + + false + + 1-n + + + + + + + + + + + + Shipment attributes + Rechnungsattribute + + + false + + 1-n + + + + + + + + + + + + Shipment business partner + Sendungsgeschaeftspartner + + + + false + + 1-n + + + + + + + + + + + + Shipment previous documents + Sendungsvorpapiere + + + false + + 1-n + + + + + + + + + + + + Shipment completion parts of summary declaration + Sendungsbeendigungsanteile der Summarischen Anmeldung (SumA) + + + false + + 1-n + + + + + + + + + + + + Shipment additional information + Zusaetzliche Information auf Sendungsebene + + + false + + 1-n + + + + + + + + + + + + + + + + false + + 0-n + + + + + + + + + + + + + + + + false + + 0-1 + + + + + + + + + + + + + + + + false + + 0-n + + + + + + + + + + + + + + + + Type of identification/ The shipment type. E=Import, B=Intrastat, I=Inland, U=Stock transfer, X=Conversion + Sendungstyp + + + false + String1..1 + + MIC_EAVSDG + EASTYP + MIC_EINSDG + EFSTYP + + + + + + + + + + + + + + + + + + Declaration Date/The customs date + Anmeldedatum + + + false + xs:date + + MIC_EAVSDG + EASVZDAT + MIC_EINSDG + EFSVZDAT + + + + + + + + Type of declaration + + + + false + + + + + + + + + + + + + + MRN/Movement reference number + MRN + + + false + String1..20 + + MIC_EAVSDG + EASSPEDNR + MIC_EINSDG + EFSSPEDNR + + + + + + + + + + + + + + Gross Weight (kg)/The gross weight in kilograms + Rohmasse (kg) + + + false + Decimal(13,4) + + MIC_EAVSDG + EASROHMAS + MIC_EINSDG + EFSROHMAS + + + + + + + + + + + + + + Airport/place of departure + Abgangsflughafen/-ort + + + false + String1..20 + + MIC_EAVSDG + EASABGORT + MIC_EINSDG + EFSABGORT + + + + + + + + + + + + + The country of dispatch of goods as ISO code + Vers.-/Ausf.-/Best.-Ld/Bdl. + + + false + String1..3 + + MIC_EAVSDG + EASHELD + MIC_EINSDG + EFSABGORT + + + + + + + + + + + + + The last dispatch country if different from dispatch country (eg. after consolidation) as ISO code + Letztes Herkunftsland + + + false + String1..3 + + MIC_EAVSDG + EASLEHELD + MIC_EINSDG + EFSLEHELD + + + + + + + + + + + + + Location of Goods + Ort der Verbringung + + + false + String1..20 + + MIC_EAVSDG + EASBSTORT + MIC_EINSDG + EFSBSTORT + + + + + + + + + + + + + The region/state of destination + Bestimmungsbundesland + + + false + String1..2 + + MIC_EAVSDG + EASZLD + MIC_EINSDG + EFSZLD + + + + + + + + + + + + + Office of Entry + Eingangszollstelle + + + false + String1..8 + + MIC_EAVSDG + EASEINZOST + MIC_EINSDG + EFSEINZOST + + + + + + + + + + + + + Import State + BDL + + + false + String1..2 + + MIC_EAVSDG + EASBDL + MIC_EINSDG + EFSBDL + + + + + + + + + + + + + Substitute Flag + Vertretungskennzeichen + + + false + String1..1 + + MIC_EAVSDG + EASVERTKZ + MIC_EINSDG + EFSVERTKZ + + + + + + + + + + + + + Type Of Import + Art der Anmeldung Import + + + false + String1..2 + + MIC_EAVSDG + EASARTANMELDIMP + MIC_EINSDG + EFSARTANMELDIMP + + + + + + + + + + + + + Authorization Number + Authorisierungsnummer + + + false + String1..35 + + MIC_EAVSDG + EASAUTHNO + MIC_EINSDG + EFSAUTHNO + + + + + + + + + + + + + Place Of Dispatch Description + Bezeichnung Abgangsort + + + false + String1..100 + + MIC_EAVSDG + EASABGORTBEZ + MIC_EINSDG + EFSABGORTBEZ + + + + + + + + + + + + + Type Of Air Transportation + Verkehrszweig,Flug + + + false + String1..1 + + MIC_EAVSDG + EASAERTRA + MIC_EINSDG + EFSAERTRA + + + + + + + + + + + + + The mode of transportation at the border + Verkehrszweig an der Grenze + + + false + + + MIC_EAVSDG + motMode:EASVKZGR, meansOfTransport:EASVKMART, motCountry:EASVKMLD, motVehicle:EASVKMGRK, meansOfTransportDescription:EASVKMINBEZ + MIC_EINSDG + motMode:EFSVKZGR, meansOfTransport:EFSVKMART, motCountry:EFSVKMLD, motVehicle:EFSVKMGRK, meansOfTransportDescription:EFSVKMINBEZ + + + + + + + + The mode of transport information at border crossing + Verkehrszweig bei Grenzueberschreitung + + + false + + + MIC_EAVSDG + motMode:EASVKZEING, motCountry:EASVKMEINGLD, motVehicle:EASVKMEINGK + MIC_EINSDG + motMode:EFSVKZEING, motCountry:EFSVKMEINGLD, motVehicle:EFSVKMEINGK + + + + + + + + The inland mode of transport information + Verkehrszweig im Inland + + + false + + + MIC_EAVSDG + motMode:EASVKZIN, motCountry:EASVKMINL, motVehicle:EASVKMINK + MIC_EINSDG + motMode:EFSVKZIN, motCountry:EFSVKMEINGLD, motVehicle:EFSVKMEINGK + + + + + + + + Container/Indicator whether this is a containerized shipment. 1=yes, 0=no + Container + + + false + String1..1 + + MIC_EAVSDG + EASCON + MIC_EINSDG + EFSCON + + + + + + + + + + + + + + + + + false + + + MIC_EAVSDG + EAS___ + MIC_EINSDG + EFS___ + + + + + + + + Shipment freight costs + Sendungsfrachtkosten + + + false + + + + + + + + + + + + + + Shipment insurance costs + Sendungsversicherungskosten + + + false + + + + + + + + + + + + + + Shipment additional costs + Sendungsnebenkosten + + + false + + 0-2 + MIC_EAVSDG + EAS___ + MIC_EINSDG + EFS___ + + + + + + + + Addition IVAT/Additional costs that apply to VAT only in invoice currency. + Zuschlag EUSt. + + + false + Decimal(17,4) + + MIC_EAVSDG + EASZUEUST + MIC_EINSDG + EFSZUEUST + + + + + + + + + + + + + + Position additions + Zusuetzliche Angaben + + + false + String1..80 + + MIC_EAVSDG + EASINFO + MIC_EINSDG + EFSINFO + + + + + + + + + + + + + The date of exportation. + Exportdatum + + + false + xs:date + + MIC_EAVSDG + EASEXPDAT + MIC_EINSDG + EFSEXPDAT + + + + + + + + The date of importation. + Importdatum + + + false + xs:date + + MIC_EAVSDG + EASIMPDAT + MIC_EINSDG + EFSIMPDAT + + + + + + + + The estimated date of arrival. + Voraussichtliches Ankunftsdatum + + + false + xs:datetime + + MIC_EAVSDG + EASESTDAT + MIC_EINSDG + EFSESTDAT + + + + + + + + Related Party Indicator/Type of representation (direct, indirect, ...) + Kz. Vertretungsverhaeltnis + + + false + String1..4 + + not mapped + + + + + + + + + + + + + + + + Month (YYYYMM)/Month/Year of shipment (YYYYMM) + Monat (JJJJMM) + + + false + String1..6 + + MIC_EAVSDG + EFSPERIODE + MIC_EINSDG + EFSPERIODE + + + + + + + + + + + + + Customer specific fields + Kundenspezifische Felder + + + false + + + MIC_EAVSDG + EAS___ + MIC_EINSDG + EFS___ + + + + + + + + Country of Destination + Bestimmungsland + + + false + String1..3 + + MIC_EAVSDG + EASCTRYDEST + MIC_EINSDG + EFSCTRYDEST + DE + + + + + + + + + + + + Type of Declaration + Art der Anmeldung + + + false + String1..1 + + MIC_EAVSDG + EASDECLARATIONTYPE + MIC_EINSDG + EFSDECLARATIONTYPE + + + + + + + + + + + + + Previous Document Type + Art des Vorpapiers + + + false + String1..9 + + MIC_EAVSDG + EASSHIPCERT + MIC_EINSDG + EFSSHIPCERT + + + + + + + + + + + + + Previous Document Number + Vorpapiernummer + + + false + String1..28 + + MIC_EAVSDG + EASSHIPCERTNO + MIC_EINSDG + EFSSHIPCERTNO + + + + + + + + + + + + + Customs Office of Destination + Zollstelle Gestellung + + + false + String1..8 + + MIC_EAVSDG + EASDESTCUSTOMSOFFICE + MIC_EINSDG + EFSDESTCUSTOMSOFFICE + + + + + + + + + + + + + Carrier Number + Spediteur Nr. + + + false + String1..20 + + MIC_EAVSDG + EASSPEDNR + MIC_EINSDG + EFSSPEDNR + + + + + + + + + + + + + Created by + Erstellt von + + + false + String1..12 + + MIC_EAVSDG + EASCREUSER + MIC_EINSDG + EFSCREUSER + + + + + + + + Created on + Erstellt am + + + false + Xs:datetime + + MIC_EAVSDG + EASCREDAT + MIC_EINSDG + EFSCREDAT + + + + + + + + Modified by + Geaendert von + + + false + String1..12 + + MIC_EAVSDG + EASUSER + MIC_EINSDG + EFSUSER + + + + + + + + Modified on + Geaendert am + + + false + Xs:datetime + + MIC_EAVSDG + EASUSEDAT + MIC_EINSDG + EFSUSEDAT + + + + + + + + Supervising customs office + Ueberwachungszollstelle + + + false + String1..8 + + MIC_EAVSDG + EASSUPERVISINGCUSTOMSOFFICE + MIC_EINSDG + EFSSUPERVISINGCUSTOMSOFFICE + + + + + + + + + + + Supervising customs office + Type of identification of transport on arrival + + Art der Transportidentifikation bei Ankunft + + false + String1..2 + + MIC_EAVSDG + EASVKZINIDENTIFICATIONTYPE + MIC_EINSDG + EFSVKZINIDENTIFICATIONTYPE + + + + + + + + + + + + + Authorisation holders + + + + false + + 0-n + + + + + + + + + + + + Attribute as name/value pair + + + + true + + + MIC_CUST_WB_EU_AUTH_HOLDER + + MIC_CUST_EU_AUTH_HOLDER + + + + + + + + + + + Deferment accounts + + + + false + + 0-1 + + + + + + + + + + + + Attribute as name/value pair + + + + true + + + MIC_CUST_WB_DEFER_ACCOUNT + + MIC_CUST_UK_DEFER_ACCOUNT + + + + + + + + + + + Guarantees + + + + false + + 0-n + + + + + + + + + + + + Attribute as name/value pair + + + + true + + + MIC_CUST_WB_GUARANTEE + + MIC_CUST_GUARANTEE + + + + + + + + + + Authorisation holder type + + + + + + Authorisation type code + Bewilligungsart-Code + + + true + String1..4 + + MIC_CUST_WB_EU_AUTH_HOLDER + WBATYPECD + MIC_CUST_EU_AUTH_HOLDER + AUHTYP + + + + + + + + + + + Identifier/EORI of authorisation holder + Identifikation + + + true + String1..17 + + MIC_CUST_WB_EU_AUTH_HOLDER + WBAID + MIC_CUST_EU_AUTH_HOLDER + AUHID + + + + + + + + + + + + Deferment account type + + + + + + First deferment account number + Erstes Aufschubkonto + + + false + String1..35 + + MIC_CUST_WB_DEFER_ACCOUNT + WBDDEFERMENTACCOUNTNO1 + MIC_CUST_UK_DEFER_ACCOUNT + DANDEFERMENTACCOUNTNO1 + + + + + + + + + + + Identifier/EORI of authorisation holder + Zweites Aufschubkonto + + + false + String1..35 + + MIC_CUST_WB_DEFER_ACCOUNT + WBDDEFERMENTACCOUNTNO2 + MIC_CUST_UK_DEFER_ACCOUNT + DANDEFERMENTACCOUNTNO2 + + + + + + + + + + + + Guarantee type + + + + + + Guarantee reference number + Garantiereferenznummer + + + false + String1..38 + + MIC_CUST_WB_GUARANTEE + WBGGRN + MIC_CUST_GUARANTEE + GUAGRN + + + + + + + + + + + GRN code + GRN Zugangscode + + + false + String1..4 + + MIC_CUST_WB_GUARANTEE + WBGCODE + MIC_CUST_GUARANTEE + GUACODE + + + + + + + + + + + Guarantee type + Sicherheitsart + + + false + String1..1 + + MIC_CUST_WB_GUARANTEE + WBGTYPE + MIC_CUST_GUARANTEE + GUATYPE + + + + + + + + + + + Guarantee amount + Sicherheitsbetrag + + + false + Decimal(16,2) + + MIC_CUST_WB_GUARANTEE + WBGAMOUNT + MIC_CUST_GUARANTEE + GUAAMOUNT + + + + + + + + + + + + + + Guarantee amount currency + Sicherheitsbetragswaehrung + + + false + String1..3 + + MIC_CUST_WB_GUARANTEE + WBGCUR + MIC_CUST_GUARANTEE + GUACUR + + + + + + + + + + + Other guarantee number + Alternative Referenz + + + false + String1..35 + + MIC_CUST_WB_GUARANTEE + WBGREFERENCE + MIC_CUST_GUARANTEE + GUAREFERENCE + + + + + + + + + + + Customs office of guarantee + Zollstelle (Sicherheit) + + + false + String1..8 + + MIC_CUST_WB_GUARANTEE + WBGCUSTOMSOFFICE + MIC_CUST_GUARANTEE + GUACUSTOMSOFFICE + + + + + + + + + + + Guarantee Local Base + Basis in Mandantenwaehrung + + + false + Decimal(16,2) + + MIC_CUST_WB_GUARANTEE + WBGLOCALBASE + MIC_CUST_GUARANTEE + GUALOCALBASE + + + + + + + + + + + + + + Guarantee Factoring Base + Aliquotierungsbasis + + + false + String1..1 + + MIC_CUST_WB_GUARANTEE + WBGFACTORINGBASE + MIC_CUST_GUARANTEE + GUAFACTORINGBASE + + + + + + + + + + + Guarantee Customs Rate + Zollsatz + + + false + Decimal(18,6) + + MIC_CUST_WB_GUARANTEE + WBGCUSTOMSRATE + MIC_CUST_GUARANTEE + GUACUSTOMSRATE + + + + + + + + + + + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.Designer.vb new file mode 100644 index 0000000..7f718ca --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.Designer.vb @@ -0,0 +1,1287 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' MIC_ErrorWarningListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace MIC_ErrorWarning + + + Partial Public Class ErrorMessages + +#Region "Private fields" + Private _errorMessage As List(Of TErrorMessageType) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._errorMessage = New List(Of TErrorMessageType)() + End Sub + + + Public Property ErrorMessage() As List(Of TErrorMessageType) + Get + Return Me._errorMessage + End Get + Set + Me._errorMessage = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ErrorMessages)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ErrorMessages object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ErrorMessages object + ''' + ''' string workflow markup to deserialize + ''' Output ErrorMessages 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 ErrorMessages, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ErrorMessages) + 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 ErrorMessages) 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 ErrorMessages + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ErrorMessages) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ErrorMessages + Return CType(Serializer.Deserialize(s), ErrorMessages) + End Function +#End Region + + ''' + ''' Serializes current ErrorMessages 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ErrorMessages object + ''' + ''' string xml file to load and deserialize + ''' Output ErrorMessages 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 ErrorMessages, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ErrorMessages) + 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 ErrorMessages) 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 ErrorMessages + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TErrorMessageType + +#Region "Private fields" + Private _module As String + + Private _process As String + + Private _errorCode As String + + Private _errorDesc As String + + Private _reference As TReference + + Private _details As TErrorDetail + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._details = New TErrorDetail() + Me._reference = New TReference() + End Sub + + Public Property [module]() As String + Get + Return Me._module + End Get + Set + Me._module = Value + End Set + End Property + + Public Property process() As String + Get + Return Me._process + End Get + Set + Me._process = Value + End Set + End Property + + Public Property errorCode() As String + Get + Return Me._errorCode + End Get + Set + Me._errorCode = Value + End Set + End Property + + Public Property errorDesc() As String + Get + Return Me._errorDesc + End Get + Set + Me._errorDesc = Value + End Set + End Property + + Public Property Reference() As TReference + Get + Return Me._reference + End Get + Set + Me._reference = Value + End Set + End Property + + Public Property Details() As TErrorDetail + Get + Return Me._details + End Get + Set + Me._details = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TErrorMessageType)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TErrorMessageType object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TErrorMessageType object + ''' + ''' string workflow markup to deserialize + ''' Output TErrorMessageType 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 TErrorMessageType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TErrorMessageType) + 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 TErrorMessageType) 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 TErrorMessageType + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TErrorMessageType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TErrorMessageType + Return CType(Serializer.Deserialize(s), TErrorMessageType) + End Function +#End Region + + ''' + ''' Serializes current TErrorMessageType 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TErrorMessageType object + ''' + ''' string xml file to load and deserialize + ''' Output TErrorMessageType 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 TErrorMessageType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TErrorMessageType) + 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 TErrorMessageType) 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 TErrorMessageType + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TReference + +#Region "Private fields" + Private _company As String + + Private _plant As String + + Private _correlationId As String + + Private _referenceType As String + + Private _referenceSid As Long + + Private _user As String + + Private _partnerId As String + + Private _routeId As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property company() As String + Get + Return Me._company + End Get + Set + Me._company = Value + End Set + End Property + + Public Property plant() As String + Get + Return Me._plant + End Get + Set + Me._plant = Value + End Set + End Property + + Public Property correlationId() As String + Get + Return Me._correlationId + End Get + Set + Me._correlationId = Value + End Set + End Property + + Public Property referenceType() As String + Get + Return Me._referenceType + End Get + Set + Me._referenceType = Value + End Set + End Property + + Public Property referenceSid() As Long + Get + Return Me._referenceSid + End Get + Set + Me._referenceSid = Value + End Set + End Property + + Public Property user() As String + Get + Return Me._user + End Get + Set + Me._user = Value + End Set + End Property + + Public Property partnerId() As String + Get + Return Me._partnerId + End Get + Set + Me._partnerId = Value + End Set + End Property + + Public Property routeId() As String + Get + Return Me._routeId + End Get + Set + Me._routeId = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TReference object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TReference object + ''' + ''' string workflow markup to deserialize + ''' Output TReference 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 TReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TReference) + 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 TReference) 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 TReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TReference + Return CType(Serializer.Deserialize(s), TReference) + End Function +#End Region + + ''' + ''' Serializes current TReference 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TReference object + ''' + ''' string xml file to load and deserialize + ''' Output TReference 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 TReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TReference) + 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 TReference) 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 TReference + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TErrorDetail + +#Region "Private fields" + Private _timestamp As Date + + Private _stackTrace As String + + Private _additionalDetails As List(Of TErrorDetailAdditionalDetails) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionalDetails = New List(Of TErrorDetailAdditionalDetails)() + End Sub + + Public Property timestamp() As Date + Get + Return Me._timestamp + End Get + Set + Me._timestamp = Value + End Set + End Property + + Public Property stackTrace() As String + Get + Return Me._stackTrace + End Get + Set + Me._stackTrace = Value + End Set + End Property + + + Public Property additionalDetails() As List(Of TErrorDetailAdditionalDetails) + Get + Return Me._additionalDetails + End Get + Set + Me._additionalDetails = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TErrorDetail)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TErrorDetail object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TErrorDetail object + ''' + ''' string workflow markup to deserialize + ''' Output TErrorDetail 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 TErrorDetail, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TErrorDetail) + 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 TErrorDetail) 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 TErrorDetail + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TErrorDetail) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TErrorDetail + Return CType(Serializer.Deserialize(s), TErrorDetail) + End Function +#End Region + + ''' + ''' Serializes current TErrorDetail 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TErrorDetail object + ''' + ''' string xml file to load and deserialize + ''' Output TErrorDetail 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 TErrorDetail, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TErrorDetail) + 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 TErrorDetail) 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 TErrorDetail + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TErrorDetailAdditionalDetails + +#Region "Private fields" + Private _type As String + + Private _key As String + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TErrorDetailAdditionalDetails)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TErrorDetailAdditionalDetails object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TErrorDetailAdditionalDetails object + ''' + ''' string workflow markup to deserialize + ''' Output TErrorDetailAdditionalDetails 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 TErrorDetailAdditionalDetails, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TErrorDetailAdditionalDetails) + 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 TErrorDetailAdditionalDetails) 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 TErrorDetailAdditionalDetails + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TErrorDetailAdditionalDetails) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TErrorDetailAdditionalDetails + Return CType(Serializer.Deserialize(s), TErrorDetailAdditionalDetails) + End Function +#End Region + + ''' + ''' Serializes current TErrorDetailAdditionalDetails 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TErrorDetailAdditionalDetails object + ''' + ''' string xml file to load and deserialize + ''' Output TErrorDetailAdditionalDetails 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 TErrorDetailAdditionalDetails, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TErrorDetailAdditionalDetails) + 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 TErrorDetailAdditionalDetails) 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 TErrorDetailAdditionalDetails + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 WarningMessages + +#Region "Private fields" + Private _warningMessage As List(Of TErrorMessageType) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._warningMessage = New List(Of TErrorMessageType)() + End Sub + + + Public Property WarningMessage() As List(Of TErrorMessageType) + Get + Return Me._warningMessage + End Get + Set + Me._warningMessage = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(WarningMessages)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current WarningMessages object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an WarningMessages object + ''' + ''' string workflow markup to deserialize + ''' Output WarningMessages 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 WarningMessages, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarningMessages) + 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 WarningMessages) 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 WarningMessages + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), WarningMessages) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WarningMessages + Return CType(Serializer.Deserialize(s), WarningMessages) + End Function +#End Region + + ''' + ''' Serializes current WarningMessages 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an WarningMessages object + ''' + ''' string xml file to load and deserialize + ''' Output WarningMessages 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 WarningMessages, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarningMessages) + 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 WarningMessages) 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 WarningMessages + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.xsd new file mode 100644 index 0000000..6388a3d --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.xsd @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + Warning message used for all occurred warnings and minor exceptions + + + + + Error message used for all occurred exceptions + + + + + Fault message used for all occurred fault exceptions + + + + + Contains details to an error message + + + + + + Stacktrace from Exception + + + + + Additional error details + + + + + + + + + + + + General error type used for error messages + + + + + MIC Module where the error occured + + + + + Process inside the MIC module where the error occured + + + + + Error code to identify error + + + + + Description of the occurred exception + + + + + + More detailed information about the error + + + + + + + + + MIC company + + + + + MIC plant + + + + + Unique reference number generated in MIC + + + + + + + + + + Reference type used in MIC + + + + + Reference sid used MIC + + + + + MIC user + + + + + Partner ID used in MIC + + + + + ID of route where error is occurred + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustExportShipment.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustExportShipment.xsd new file mode 100644 index 0000000..2189a2f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustExportShipment.xsd @@ -0,0 +1,32 @@ + + + + + + + + + + Message for inserting MIC CUST ExportShipment + + + + + + + + + + + + + + MIC request message + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustImportShipment.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustImportShipment.xsd new file mode 100644 index 0000000..29e916a --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustImportShipment.xsd @@ -0,0 +1,32 @@ + + + + + + + + + + Message for inserting MIC CUST ImportShipment + + + + + + + + + + + + + + MIC request message + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.Designer.vb new file mode 100644 index 0000000..4b393b0 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.Designer.vb @@ -0,0 +1,1681 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' MIC_MetaDataListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Imports VERAG_PROG_ALLGEMEIN.MIC_ErrorWarning + +Namespace MIC_MetaData + + + Partial Public Class TMicMetadata + +#Region "Private fields" + Private _connectionId As String + + Private _partnerId As String + + Private _dateTime As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property connectionId() As String + Get + Return Me._connectionId + End Get + Set + Me._connectionId = Value + End Set + End Property + + Public Property partnerId() As String + Get + Return Me._partnerId + End Get + Set + Me._partnerId = Value + End Set + End Property + + Public Property dateTime() As Date + Get + Return Me._dateTime + End Get + Set + Me._dateTime = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TMicMetadata)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TMicMetadata object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TMicMetadata object + ''' + ''' string workflow markup to deserialize + ''' Output TMicMetadata 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 TMicMetadata, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMicMetadata) + 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 TMicMetadata) 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 TMicMetadata + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TMicMetadata) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TMicMetadata + Return CType(Serializer.Deserialize(s), TMicMetadata) + End Function +#End Region + + ''' + ''' Serializes current TMicMetadata 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TMicMetadata object + ''' + ''' string xml file to load and deserialize + ''' Output TMicMetadata 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 TMicMetadata, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMicMetadata) + 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 TMicMetadata) 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 TMicMetadata + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TMessageDetail + +#Region "Private fields" + Private _messageId As String + + Private _partyId As String + + Private _transactionId As String + + Private _sequenceNum As String + + Private _actionCode As TActionCode + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._actionCode = New TActionCode() + End Sub + + Public Property messageId() As String + Get + Return Me._messageId + End Get + Set + Me._messageId = Value + End Set + End Property + + Public Property partyId() As String + Get + Return Me._partyId + End Get + Set + Me._partyId = Value + End Set + End Property + + Public Property transactionId() As String + Get + Return Me._transactionId + End Get + Set + Me._transactionId = Value + End Set + End Property + + + Public Property sequenceNum() As String + Get + Return Me._sequenceNum + End Get + Set + Me._sequenceNum = Value + End Set + End Property + + Public Property ActionCode() As TActionCode + Get + Return Me._actionCode + End Get + Set + Me._actionCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TMessageDetail)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TMessageDetail object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TMessageDetail object + ''' + ''' string workflow markup to deserialize + ''' Output TMessageDetail 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 TMessageDetail, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMessageDetail) + 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 TMessageDetail) 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 TMessageDetail + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TMessageDetail) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TMessageDetail + Return CType(Serializer.Deserialize(s), TMessageDetail) + End Function +#End Region + + ''' + ''' Serializes current TMessageDetail 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TMessageDetail object + ''' + ''' string xml file to load and deserialize + ''' Output TMessageDetail 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 TMessageDetail, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMessageDetail) + 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 TMessageDetail) 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 TMessageDetail + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TActionCode + +#Region "Private fields" + Private _code As String + + Private _parameter As List(Of TActionCodeParameter) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._parameter = New List(Of TActionCodeParameter)() + End Sub + + Public Property code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + + Public Property parameter() As List(Of TActionCodeParameter) + Get + Return Me._parameter + End Get + Set + Me._parameter = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TActionCode)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TActionCode object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TActionCode object + ''' + ''' string workflow markup to deserialize + ''' Output TActionCode 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 TActionCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TActionCode) + 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 TActionCode) 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 TActionCode + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TActionCode) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TActionCode + Return CType(Serializer.Deserialize(s), TActionCode) + End Function +#End Region + + ''' + ''' Serializes current TActionCode 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TActionCode object + ''' + ''' string xml file to load and deserialize + ''' Output TActionCode 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 TActionCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TActionCode) + 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 TActionCode) 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 TActionCode + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TActionCodeParameter + +#Region "Private fields" + Private _key As String + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + + Public Property value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TActionCodeParameter)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TActionCodeParameter object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TActionCodeParameter object + ''' + ''' string workflow markup to deserialize + ''' Output TActionCodeParameter 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 TActionCodeParameter, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TActionCodeParameter) + 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 TActionCodeParameter) 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 TActionCodeParameter + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TActionCodeParameter) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TActionCodeParameter + Return CType(Serializer.Deserialize(s), TActionCodeParameter) + End Function +#End Region + + ''' + ''' Serializes current TActionCodeParameter 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TActionCodeParameter object + ''' + ''' string xml file to load and deserialize + ''' Output TActionCodeParameter 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 TActionCodeParameter, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TActionCodeParameter) + 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 TActionCodeParameter) 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 TActionCodeParameter + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TStatus + +#Region "Private fields" + Private _status As TStatusStatus + + Private _item As Object + + Private _itemElementName As TStatusItemChoiceType + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property status() As TStatusStatus + Get + Return Me._status + End Get + Set + Me._status = Value + End Set + End Property + + + Public Property Item() As Object + Get + Return Me._item + End Get + Set + Me._item = Value + End Set + End Property + + + Public Property ItemElementName() As TStatusItemChoiceType + Get + Return Me._itemElementName + End Get + Set + Me._itemElementName = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TStatus)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TStatus object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TStatus object + ''' + ''' string workflow markup to deserialize + ''' Output TStatus 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 TStatus, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TStatus) + 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 TStatus) 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 TStatus + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TStatus) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TStatus + Return CType(Serializer.Deserialize(s), TStatus) + End Function +#End Region + + ''' + ''' Serializes current TStatus 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TStatus object + ''' + ''' string xml file to load and deserialize + ''' Output TStatus 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 TStatus, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TStatus) + 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 TStatus) 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 TStatus + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TStatusStatus + + ''' + OK + + ''' + [ERROR] + + ''' + WARNING + End Enum + + + Partial Public Class TMetaReference + +#Region "Private fields" + Private _correlationId As String + + Private _company As String + + Private _plant As String + + Private _referenceType As String + + Private _referenceSid As Long + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property correlationId() As String + Get + Return Me._correlationId + End Get + Set + Me._correlationId = Value + End Set + End Property + + Public Property company() As String + Get + Return Me._company + End Get + Set + Me._company = Value + End Set + End Property + + Public Property plant() As String + Get + Return Me._plant + End Get + Set + Me._plant = Value + End Set + End Property + + Public Property referenceType() As String + Get + Return Me._referenceType + End Get + Set + Me._referenceType = Value + End Set + End Property + + Public Property referenceSid() As Long + Get + Return Me._referenceSid + End Get + Set + Me._referenceSid = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TMetaReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TMetaReference object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TMetaReference object + ''' + ''' string workflow markup to deserialize + ''' Output TMetaReference 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 TMetaReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMetaReference) + 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 TMetaReference) 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 TMetaReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TMetaReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TMetaReference + Return CType(Serializer.Deserialize(s), TMetaReference) + End Function +#End Region + + ''' + ''' Serializes current TMetaReference 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TMetaReference object + ''' + ''' string xml file to load and deserialize + ''' Output TMetaReference 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 TMetaReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TMetaReference) + 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 TMetaReference) 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 TMetaReference + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TStatusItemChoiceType + + ''' + + ErrorMessages + + ''' + + WarningMessages + + ''' + Reference + End Enum + + + Partial Public Class StatusMessage + +#Region "Private fields" + Private _metadata As TMicMetadata + + Private _messageDetail As TMessageDetail + + Private _status As TStatus + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._status = New TStatus() + Me._messageDetail = New TMessageDetail() + Me._metadata = New TMicMetadata() + End Sub + + Public Property Metadata() As TMicMetadata + Get + Return Me._metadata + End Get + Set + Me._metadata = Value + End Set + End Property + + Public Property MessageDetail() As TMessageDetail + Get + Return Me._messageDetail + End Get + Set + Me._messageDetail = Value + End Set + End Property + + Public Property Status() As TStatus + Get + Return Me._status + End Get + Set + Me._status = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(StatusMessage)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current StatusMessage object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an StatusMessage object + ''' + ''' string workflow markup to deserialize + ''' Output StatusMessage 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 StatusMessage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, StatusMessage) + 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 StatusMessage) 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 StatusMessage + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), StatusMessage) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As StatusMessage + Return CType(Serializer.Deserialize(s), StatusMessage) + End Function +#End Region + + ''' + ''' Serializes current StatusMessage 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an StatusMessage object + ''' + ''' string xml file to load and deserialize + ''' Output StatusMessage 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 StatusMessage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, StatusMessage) + 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 StatusMessage) 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 StatusMessage + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TStatusResponse + +#Region "Private fields" + Private _status As TStatus + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._status = New TStatus() + End Sub + + Public Property Status() As TStatus + Get + Return Me._status + End Get + Set + Me._status = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TStatusResponse)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TStatusResponse object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TStatusResponse object + ''' + ''' string workflow markup to deserialize + ''' Output TStatusResponse 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 TStatusResponse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TStatusResponse) + 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 TStatusResponse) 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 TStatusResponse + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TStatusResponse) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TStatusResponse + Return CType(Serializer.Deserialize(s), TStatusResponse) + End Function +#End Region + + ''' + ''' Serializes current TStatusResponse 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TStatusResponse object + ''' + ''' string xml file to load and deserialize + ''' Output TStatusResponse 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 TStatusResponse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TStatusResponse) + 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 TStatusResponse) 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 TStatusResponse + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.xsd new file mode 100644 index 0000000..467837c --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.xsd @@ -0,0 +1,215 @@ + + + + + + + + + Details of the connection to the ERP-System + + + + + + The partner ID is a unique ID provided by the MIC-System and classify the ERP-System of the customer. This information is given by MIC. + + + + + Creation date/time of the message in the ERP-System + + + + + + + Action Requested for automatic processing + + + + + Action code for automatic processing + + + + + + + + + + + additional parameters + + + + + + + + + + + MIC Interface Message Envelope: description of the single message + + + + + Unique Message ID + + + + + Party ID is used as a separations of departments or single message groups + + + + + Unique Identifier of a transaction (declaration) e.g. MRN or LRN + + + + + Running number of the transaction Id + + + + + The ActionCode definies the autmoatic process in the MIC-Application. + + + + + + + Status message with Metadata and MessageDetail + + + + + + + + Set of Messages + + + + + + + + Status response message used for synchronous answers + + + + + Set of Messages + + + + + + + + + + + + + + + + + + + + + + + + + + + + Unique reference number generated in MIC + + + + + + + + + + MIC company + + + + + MIC plant + + + + + Reference type used in MIC + + + + + Reference sid used MIC + + + + + + + Envelope:Unique transaction ID used for communication with EDIS webservice + + + + + + + + Envelope:running count + + + + + + envelope:Unique Message ID used for communication in message envelope + + + + + + + + + Envelope: communication pary + + + + + + + + + Envelope: communication partner + + + + + + + + + Connection ID of the MIC-Webservice + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMIC.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMIC.vb new file mode 100644 index 0000000..76a4570 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMIC.vb @@ -0,0 +1,254 @@ +Public Class cMIC + + + Shared Sub send_MIC_AvisoSendung(AVISO As cAviso, SENDUNG As cSendungen, Optional sendWOQ As Boolean = False, Optional showBezugsNr As Boolean = False) + + + If sendWOQ OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der MIC Software möglich.", vbYesNoCancel) Then + ' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID) + + If AVISO IsNot Nothing And SENDUNG IsNot Nothing Then + + If SENDUNG.FilialenNr < 1000 Then MsgBox("Keine Filialen-Nummer!") + If SENDUNG.AbfertigungsNr < 1000 Then MsgBox("Keine Abfertigungs-Nummer!") + Dim BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr + If showBezugsNr Then + BezugsNr = InputBox("MIC Bezugsnummer:", "MIC", BezugsNr) + End If + + Dim saveFile = "" + If generateIMPORT(AVISO, SENDUNG, saveFile, BezugsNr) Then + If saveFile <> "" Then + Process.Start(saveFile) + 'If Not send_Data_To_Dakosy_FTP(saveFile, BezugsNr, Nothing, Nothing) Then + ' MsgBox("Sendefehler!") + 'End If + End If + End If + End If + End If + End Sub + + + + Shared Function getInvPartner(KdNr As Integer, NameText As String, Type As String) As MIC_IMPORT_Invoice.TPartner + + If KdNr > 0 Then + Dim PARTNER As New MIC_IMPORT_Invoice.TPartner + Dim AD As New cAdressen(KdNr) + Dim KD As New cKunde(KdNr) + PARTNER.partnerType = Type + PARTNER.PartnerAddress.addrName.Add(AD.Name_1) + If If(AD.Name_2, "") <> "" Then PARTNER.PartnerAddress.addrName.Add(AD.Name_2) + PARTNER.PartnerAddress.addrStreet = AD.Straße + PARTNER.PartnerAddress.addrZip = AD.PLZ + PARTNER.PartnerAddress.addrLoc = AD.Ort + PARTNER.PartnerAddress.addrCtry = cProgramFunctions.getISO2Land(AD.LandKz) + PARTNER.PartnerAddress.addrEori = KD.EORITIN + PARTNER.PartnerAddress.addrTin = KD.EORITIN + Return PARTNER + ElseIf If(NameText, "") <> "" Then + Dim PARTNER As New MIC_IMPORT_Invoice.TPartner + PARTNER.partnerType = Type + PARTNER.PartnerAddress.addrName.Add(NameText) + Return PARTNER + End If + Return Nothing + End Function + + + Shared Function generateNCTS(cDY As cNCTS_TR, ByRef saveFile As String, BezugsNr As String) As Boolean 'DY_ACTION As String) As Boolean + Try + + 'Dim Interface_VERSION = "003" + 'Dim ObjectAktion = DY_ACTION + + Dim XML As New MIC_EXPORT_Shipment.ExportShipment + 'Transaktion: + XML.ShipmentHead.company = "VERAG" + XML.ShipmentHead.plant = "GB/01" + XML.ShipmentHead.shipmentId = BezugsNr + + + saveFile = getDefaultFolder_SEND("NCTS") & "MIC_NCTS_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + + '' Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" + 'Dim saveDir = "\\share01\Datenarchiv\MIC\SEND\" + 'If Not System.IO.Directory.Exists(saveDir) Then + ' System.IO.Directory.CreateDirectory(saveDir) + 'End If + 'saveFile = saveDir & "MIC_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + 'MsgBox(saveFile) + XML.SaveToFile(saveFile) + + replaceNullDateXML(saveFile) + + + Return True + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return False + End Try + + + End Function + + Shared Function generateIMPORT(AVISO As cAviso, SENDUNG As cSendungen, ByRef saveFile As String, ByRef BezugsNr As String) As Boolean + Dim Interface_VERSION = "000" + + Dim XML As New MIC_IMPORT.ImportShipment + + 'XML.schemaVersion = + + XML.Shipment.company = "VERAG" + XML.Shipment.plant = "GB/01" + XML.Shipment.shipmentId = BezugsNr + + XML.Shipment.ShipmentHead.shipmentType = MIC_IMPORT.TShipmentHeadShipmentType.E 'E:Import + XML.Shipment.ShipmentHead.customsDate = Now + If SENDUNG.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Gewicht) Then XML.Shipment.ShipmentHead.grossWeight = CDec(SENDUNG.tblSnd_Gewicht) + 'XML.Shipment.ShipmentHead.departurePlace = Now + XML.Shipment.ShipmentHead.MotBorderCrossing.motVehicle = AVISO.LKW_Nr + XML.Shipment.ShipmentHead.MotBorderCrossing.motCountry = AVISO.LKW_Nationalitaet + XML.Shipment.ShipmentHead.MotBorder.motVehicle = AVISO.LKW_Nr + XML.Shipment.ShipmentHead.MotBorder.motCountry = AVISO.LKW_Nationalitaet + XML.Shipment.ShipmentHead.MotInland.motVehicle = AVISO.LKW_Nr + XML.Shipment.ShipmentHead.MotInland.motCountry = AVISO.LKW_Nationalitaet + + Dim INV As New MIC_IMPORT_Invoice.TInvoice + Dim ILN As New MIC_IMPORT_Invoice.TInvoiceLine + + Dim Partner_IM = getInvPartner(SENDUNG.tblSnd_EmpfaengerKdNr, SENDUNG.tblSnd_Empfaenger, "IM") + If Partner_IM IsNot Nothing Then ILN.Partners.Add(Partner_IM) + + Dim Partner_CZ = getInvPartner(SENDUNG.tblSnd_AbsenderKdNr, SENDUNG.tblSnd_Absender, "CZ") + If Partner_CZ IsNot Nothing Then ILN.Partners.Add(Partner_CZ) + + INV.InvoiceLines.Add(ILN) + + XML.Invoice.Add(INV) + + + Dim CF_BezugsNr = New MIC_IMPORT_Invoice.TCustomerText() + CF_BezugsNr.key = 1 + CF_BezugsNr.value = BezugsNr + XML.Shipment.ShipmentHead.CustomerFields.Texts.Add(CF_BezugsNr) + + XML.Shipment.ShipmentHead.countryDestination = "UK" + XML.Shipment.ShipmentHead.creationDate = Now + XML.Shipment.ShipmentHead.creationUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + If SENDUNG.tblSnd_Frachtkosten IsNot Nothing Then XML.Shipment.ShipmentHead.Freight.frtAmount = SENDUNG.tblSnd_Frachtkosten + + + saveFile = getDefaultFolder_SEND("IMPORT") & "MIC_IMPORT_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + 'MsgBox(saveFile) + XML.SaveToFile(saveFile) + + replaceNullDateXML(saveFile) + Return True + End Function + Shared Sub replaceNullDateXML(XMLFile As String) + Try + If Not System.IO.File.Exists(XMLFile) Then Exit Sub + Dim lines() As String = System.IO.File.ReadAllLines(XMLFile) + Using writer = New System.IO.StreamWriter(XMLFile, False) + For Each line In lines + If Not line.Contains("0001-01-01") Then writer.WriteLine(line) + Next + End Using + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + Shared Function getDefaultFolder_SEND(pathType As String) As String + ' pathType: IMPORT + ' pathType: EXPORT + ' pathType: TRANSIT + Try + getDefaultFolder_SEND = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir(False) & "MIC\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Zolldaten\" & pathType & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath + If Not IO.Directory.Exists(getDefaultFolder_SEND) Then + IO.Directory.CreateDirectory(getDefaultFolder_SEND) + End If + Catch ex As Exception + Try + getDefaultFolder_SEND = "C:\TEMP\" ' Path.GetTempPath + If Not IO.Directory.Exists(getDefaultFolder_SEND) Then + IO.Directory.CreateDirectory(getDefaultFolder_SEND) + End If + Catch ex2 As Exception + MsgBox(ex2.Message & ex2.StackTrace) + getDefaultFolder_SEND = "" + End Try + End Try + + End Function + + + + Shared Function send_Data_To_Dakosy_FTP(file, dySt_BezugsNr, dy_Id, FRIMA_DY) + 'Try + ' If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Senden", "AVISO") Then + ' MsgBox("Sie haben keine Sendeberechtigung.") + ' Return False + ' End If + + ' If Not IO.File.Exists(file) Then Return False + ' Dim F As New System.IO.FileInfo(file) + + ' Dim DY_server = "" + ' Dim DY_name = "" + ' Dim DY_pwd = "" + ' Dim DY_port = "" + ' Dim DY_PFAD_IN = "" + ' Dim DY_PFAD_IN_KD = "" + + ' getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY) + + ' Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd)) + ' Using client = New SftpClient(ConnectionInfo) + ' client.Connect() + ' 'client.Create(file, file) + ' client.ChangeDirectory(DY_PFAD_IN) + ' If IO.File.Exists(file) Then + ' 'MsgBox(file) + ' Using uplfileStream = System.IO.File.OpenRead(file) + ' client.UploadFile(uplfileStream, "." & F.Name, True) + ' client.RenameFile("." & F.Name, F.Name) + ' End Using + ' client.Disconnect() + ' Else + ' MsgBox("Sendedatei nicht gefunden!") + ' End If + + + ' End Using + + ' 'Dim STATUS As New DAKOSY_Worker.cDakosy_Statusmeldungen + ' 'STATUS.dySt_BezugsNr = dySt_BezugsNr + ' 'STATUS.dySt_artMitteilung = "VERAG_SND" + ' 'STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 + + ' 'STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_03 + ' ''STATUS.dySt_ergCode = "ANR" + ' 'STATUS.dySt_ergCode = "SND" + ' 'STATUS.dySt_ergMitteilung = "An Dakosy gesendet" + ' 'STATUS.dySt_ergZeitpunkt = Now + + ' 'STATUS.dySt_dyId = dy_Id + ' 'STATUS.SAVE() + + ' Return True + 'Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' Return False + 'End Try + End Function + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMICInterface.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMICInterface.vb new file mode 100644 index 0000000..57203c6 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMICInterface.vb @@ -0,0 +1,1543 @@ + + +Public Class cMICInterface + + + + Shared Function generateVersandanmeldungNCTS(cDY As cNCTS_TR, ByRef saveFile As String, DY_ACTION As String) As Boolean + Try + + Dim Interface_VERSION = "003" + Dim ObjectAktion = DY_ACTION + + Dim XML As New CC015B_TR_EXT_V4_3.CC015B + + 'Transaktion: + XML.HEAHEA.RefNumHEA4 = cDY.ncts_ObjectName + + + + ' Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" + Dim saveDir = "\\share01\Datenarchiv\MIC\SEND\" + If Not System.IO.Directory.Exists(saveDir) Then + System.IO.Directory.CreateDirectory(saveDir) + End If + + saveFile = saveDir & "MIC_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + 'MsgBox(saveFile) + XML.SaveToFile(saveFile) + + replaceNullDateXML(saveFile) + + + Return False 'TEST! + + + + Return True + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return False + End Try + + + 'XML.Transaktion.IOPartner = getIOPartner(cDY.ncts_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + 'XML.Transaktion.IODatumZeit = Now + 'XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz + 'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.ncts_firma) '"SUW" + 'XML.Transaktion.Version = Interface_VERSION + + 'XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE.EinzelVersandanmeldungTyp + + ''ObjektIdentifizierung: + 'XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL" + 'XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE.ObjektIdentifizierungVATyp + 'XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektName = cDY.ncts_ObjectName + 'If cDY.ncts_ObjectAlias IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAliasname = cDY.ncts_ObjectAlias + 'Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) + 'XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion + 'If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB + + 'If cDY.ncts_BezugsnummerVorblendung IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.ncts_BezugsnummerVorblendung + + ''Kopfdaten: + 'XML.EinzelVersandanmeldung.KopfDaten = New VersandanmeldungNCTSDE.KopfDatenVersandanmeldungTyp + 'If cDY.ncts_AbgangsDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.AbgangsstelleDienststellnummer = cDY.ncts_AbgangsDienststellennummer + 'If cDY.ncts_BestimmungsstelleDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BestimmungsstelleDienststellnummer = cDY.ncts_BestimmungsstelleDienststellennummer + 'If cDY.ncts_VersendungsLandCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.VersendungslandCode = cDY.ncts_VersendungsLandCode + 'If cDY.ncts_BestimmungslandCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BestimmungslandCode = cDY.ncts_BestimmungslandCode + 'If cDY.ncts_ArtAnmeldung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.ArtAnmeldungKopfCode = cDY.ncts_ArtAnmeldung + 'If cDY.ncts_BeladungsOrt IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BeladungsOrt = cDY.ncts_BeladungsOrt + 'XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer = New List(Of String) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer1) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer2) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer3) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer4) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer5) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer6) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer7) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer8) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer9) + 'If cDY.ncts_AbgangsDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.AbgangsstelleDienststellnummer = cDY.ncts_AbgangsDienststellennummer + 'If cDY.ncts_Wiedergestellungsdatum IsNot Nothing AndAlso IsDate(cDY.ncts_Wiedergestellungsdatum) Then + ' XML.EinzelVersandanmeldung.KopfDaten.Wiedergestellungsdatum = cDY.ncts_Wiedergestellungsdatum + 'Else + ' XML.EinzelVersandanmeldung.KopfDaten.Wiedergestellungsdatum = Nothing + 'End If + + 'If cDY.ncts_KzVereinfachtesVerfahren IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.KzVereinfachtesVerfahren = CInt(Int(cDY.ncts_KzVereinfachtesVerfahren)) ' sonst true = -1 + ''GesRoh -> auto + ''GesPk -> auto + + ''Verschluss: + 'If cDY.ncts_Verschluss_ArtCode IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.Verschluss = New VersandanmeldungNCTSDE.VerschlussVATyp + ' If cDY.ncts_Verschluss_ArtCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.ArtCode = cDY.ncts_Verschluss_ArtCode + ' If cDY.ncts_Verschluss_Anzahl IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Anzahl = cDY.ncts_Verschluss_Anzahl + + ' If cDY.ncts_Verschluss_Zeichen1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen1) + ' If cDY.ncts_Verschluss_Zeichen2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen2) + ' If cDY.ncts_Verschluss_Zeichen3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen3) + ' If cDY.ncts_Verschluss_Zeichen4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen4) + ' If cDY.ncts_Verschluss_Zeichen5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen5) + ' If cDY.ncts_Verschluss_Zeichen6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen6) + ' If cDY.ncts_Verschluss_Zeichen7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen7) + ' If cDY.ncts_Verschluss_Zeichen8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen8) + ' If cDY.ncts_Verschluss_Zeichen9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen9) + ' If cDY.ncts_Verschluss_Zeichen10 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen10) + ' If cDY.ncts_Verschluss_Zeichen11 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen11) + ' If cDY.ncts_Verschluss_Zeichen12 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen12) + ' If cDY.ncts_Verschluss_Zeichen13 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen13) + ' If cDY.ncts_Verschluss_Zeichen14 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen14) + ' If cDY.ncts_Verschluss_Zeichen15 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen15) + ' If cDY.ncts_Verschluss_Zeichen16 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen16) + 'End If + + ''Sicherheitsangaben: + 'If cDY.ncts_SICHERHEITSANGABEN.Count > 0 Then + ' XML.EinzelVersandanmeldung.KopfDaten.Sicherheitsangaben = New List(Of VersandanmeldungNCTSDE.SicherheitsangabenVATyp) + ' For Each s In cDY.ncts_SICHERHEITSANGABEN + ' Dim SA As New VersandanmeldungNCTSDE.SicherheitsangabenVATyp + ' If s.nctsSA_ArtCode IsNot Nothing Then SA.ArtCode = s.nctsSA_ArtCode + ' If s.nctsSA_BezeichnungBescheinigun IsNot Nothing Then SA.BezeichnungBescheinigung = s.nctsSA_BezeichnungBescheinigun + ' If s.nctsSA_AbgabenBetrag IsNot Nothing Then SA.Abgabenbetrag = s.nctsSA_AbgabenBetrag + ' If s.nctsSA_GRN IsNot Nothing Then + ' SA.GRN = s.nctsSA_GRN + ' If If(s.nctsSA_GRN, "") = "05AT510000G000FP7" Then + ' If If(s.nctsSA_Zugriffcode, "").replace("0000", "").length <> 4 Then + ' s.nctsSA_Zugriffcode = InputBox("Bitte geben Sie den Zugriffscode für die AT-Bürgschaft ein:", "Zugriffscode", "") + ' If s.nctsSA_Zugriffcode.length > 4 Then + ' s.nctsSA_Zugriffcode = s.nctsSA_Zugriffcode.ToString.Substring(0, 4) + ' End If + ' End If + ' End If + ' If s.nctsSA_Zugriffcode IsNot Nothing Then SA.Zugriffscode = s.nctsSA_Zugriffcode + + ' ' If s.nctsSA_TIN IsNot Nothing Then SA.TIN = s.nctsSA_TIN ---> Fehler, das Feld wird in ausl. TIN geschreiben --> muss aber leer bleiben + ' XML.EinzelVersandanmeldung.KopfDaten.Sicherheitsangaben.Add(SA) + ' End If + ' Next + 'End If + + ''Beförderungsmittel: + '' If cDY.ncts_Befoerderungsmittel_KennzeichenAbgang Or cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode isnot nothing then + 'XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel = New VersandanmeldungNCTSDE.BefoerderungsmittelVATyp + 'If cDY.ncts_Befoerderungsmittel_KennzeichenAbgang IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.KennzeichenAbgang = cDY.ncts_Befoerderungsmittel_KennzeichenAbgang + 'If cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.StaatszugehoerigkeitAbgangCode = cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode + + 'If cDY.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.VerkehrszweigGrenzueberschreitent = cDY.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent + 'If cDY.ncts_Befoerderungsmittel_ArtGrenzueberschreitung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.ArtGrenzueberschreitentCode = cDY.ncts_Befoerderungsmittel_ArtGrenzueberschreitung + 'If cDY.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.KennzeichenGrenzueberschreitend = cDY.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend + 'If cDY.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.StaatszugehoerigkeitGrenzueberschreitendCode = cDY.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode + ''End If + + ''Adressen + 'XML.EinzelVersandanmeldung.KopfDaten.Adressen = New VersandanmeldungNCTSDE.AdressenVATyp + 'If cDY.ncts_Versender_EORI IsNot Nothing Or cDY.ncts_Versender_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender = New VersandanmeldungNCTSDE.AdresseVA1Typ + ' If cDY.ncts_Versender_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.EORI = cDY.ncts_Versender_EORI + ' If cDY.ncts_Versender_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Versender_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.NLNR = cDY.ncts_Versender_NLNR + ' If cDY.ncts_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Name = cDY.ncts_Versender_Name + ' If cDY.ncts_Versender_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.StrasseHausnummer = cDY.ncts_Versender_StrasseHausnummer + ' If cDY.ncts_Versender_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.PLZ = cDY.ncts_Versender_PLZ + ' If cDY.ncts_Versender_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Ort = cDY.ncts_Versender_Ort + ' If cDY.ncts_Versender_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Land = cDY.ncts_Versender_Land + ' If cDY.ncts_Versender_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.TIN = cDY.ncts_Versender_TIN + 'End If + 'If cDY.ncts_Empfaenger_EORI IsNot Nothing Or cDY.ncts_Empfaenger_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger = New VersandanmeldungNCTSDE.AdresseVA1Typ + ' If cDY.ncts_Empfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.EORI = cDY.ncts_Empfaenger_EORI + ' If cDY.ncts_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Empfaenger_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.NLNR = cDY.ncts_Empfaenger_NLNR + ' If cDY.ncts_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Name = cDY.ncts_Empfaenger_Name + ' If cDY.ncts_Empfaenger_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.StrasseHausnummer = cDY.ncts_Empfaenger_StrasseHausnummer + ' If cDY.ncts_Empfaenger_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.PLZ = cDY.ncts_Empfaenger_PLZ + ' If cDY.ncts_Empfaenger_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Ort = cDY.ncts_Empfaenger_Ort + ' If cDY.ncts_Empfaenger_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Land = cDY.ncts_Empfaenger_Land + ' If cDY.ncts_Empfaenger_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.TIN = cDY.ncts_Empfaenger_TIN + 'End If + 'If cDY.ncts_Hauptverpflichteter_EORI IsNot Nothing Or cDY.ncts_Hauptverpflichteter_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter = New VersandanmeldungNCTSDE.HauptverpflichteterVATyp + ' If cDY.ncts_Hauptverpflichteter_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.EORI = cDY.ncts_Hauptverpflichteter_EORI + ' If cDY.ncts_Hauptverpflichteter_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Hauptverpflichteter_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.NLNR = cDY.ncts_Hauptverpflichteter_NLNR + ' If cDY.ncts_Hauptverpflichteter_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Name = cDY.ncts_Hauptverpflichteter_Name + ' If cDY.ncts_Hauptverpflichteter_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.StrasseHausnummer = cDY.ncts_Hauptverpflichteter_StrasseHausnummer + ' If cDY.ncts_Hauptverpflichteter_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.PLZ = cDY.ncts_Hauptverpflichteter_PLZ + ' If cDY.ncts_Hauptverpflichteter_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Ort = cDY.ncts_Hauptverpflichteter_Ort + ' If cDY.ncts_Hauptverpflichteter_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Land = cDY.ncts_Hauptverpflichteter_Land + ' If cDY.ncts_Hauptverpflichteter_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.TIN = cDY.ncts_Hauptverpflichteter_TIN + ' If cDY.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.BewilligungsnummerVersender = cDY.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender + ' If cDY.ncts_ZugelassenerEmpfaenger_IDCarnet IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.IDCarnet = cDY.ncts_ZugelassenerEmpfaenger_IDCarnet + 'End If + + + + + ''SumA + 'XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit = New VersandanmeldungNCTSDE.SumASicherheitVATyp + + 'If cDY.ncts_SumA_KzSumASicherheit IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.KzSumASicherheit = CInt(Int(cDY.ncts_SumA_KzSumASicherheit)) ' sonst true = -1 + 'If cDY.ncts_SumA_KennnummerSendung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.KennnummerSendung = cDY.ncts_SumA_KennnummerSendung + + 'If cDY.ncts_SumA_BesondereUmstaende IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BesondereUmstaende = cDY.ncts_SumA_BesondereUmstaende + 'If cDY.ncts_SumA_NummerBefoerderung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.NummerBefoerderung = cDY.ncts_SumA_NummerBefoerderung + 'If cDY.ncts_SumA_Ladeort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Ladeort = cDY.ncts_SumA_Ladeort + + 'If cDY.ncts_SumA_Entladeort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Entladeort = cDY.ncts_SumA_Entladeort + 'If cDY.ncts_SumA_BefoerderungskostenZahlungsweise IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungskostenZahlungsweise = cDY.ncts_SumA_BefoerderungskostenZahlungsweise + 'If cDY.ncts_SumA_BefoerderungsrouteLand1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand1) + 'If cDY.ncts_SumA_BefoerderungsrouteLand2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand2) + 'If cDY.ncts_SumA_BefoerderungsrouteLand3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand3) + 'If cDY.ncts_SumA_BefoerderungsrouteLand4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand4) + 'If cDY.ncts_SumA_BefoerderungsrouteLand5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand5) + 'If cDY.ncts_SumA_BefoerderungsrouteLand6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand6) + 'If cDY.ncts_SumA_BefoerderungsrouteLand7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand7) + 'If cDY.ncts_SumA_BefoerderungsrouteLand8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand8) + 'If cDY.ncts_SumA_BefoerderungsrouteLand9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand9) + 'If cDY.ncts_SumA_Versender_EORI IsNot Nothing Or cDY.ncts_SumA_Versender_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender = New VersandanmeldungNCTSDE.AdresseVATyp + ' If cDY.ncts_SumA_Versender_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.EORI = cDY.ncts_SumA_Versender_EORI + ' If cDY.ncts_SumA_Versender_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Versender_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.NLNR = cDY.ncts_SumA_Versender_NLNR + ' If cDY.ncts_SumA_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Name = cDY.ncts_SumA_Versender_Name + ' If cDY.ncts_SumA_Versender_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.StrasseHausnummer = cDY.ncts_SumA_Versender_StrasseHausnummer + ' If cDY.ncts_SumA_Versender_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.PLZ = cDY.ncts_SumA_Versender_PLZ + ' If cDY.ncts_SumA_Versender_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Ort = cDY.ncts_SumA_Versender_Ort + ' If cDY.ncts_SumA_Versender_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Land = cDY.ncts_SumA_Versender_Land + ' If cDY.ncts_SumA_Versender_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.TIN = cDY.ncts_SumA_Versender_TIN + 'End If + 'If cDY.ncts_SumA_Empfaenger_EORI IsNot Nothing Or cDY.ncts_SumA_Empfaenger_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger = New VersandanmeldungNCTSDE.AdresseVATyp + ' If cDY.ncts_SumA_Empfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.EORI = cDY.ncts_SumA_Empfaenger_EORI + ' If cDY.ncts_SumA_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Empfaenger_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.NLNR = cDY.ncts_SumA_Empfaenger_NLNR + ' If cDY.ncts_SumA_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Name = cDY.ncts_SumA_Empfaenger_Name + ' If cDY.ncts_SumA_Empfaenger_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.StrasseHausnummer = cDY.ncts_SumA_Empfaenger_StrasseHausnummer + ' If cDY.ncts_SumA_Empfaenger_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.PLZ = cDY.ncts_SumA_Empfaenger_PLZ + ' If cDY.ncts_SumA_Empfaenger_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Ort = cDY.ncts_SumA_Empfaenger_Ort + ' If cDY.ncts_SumA_Empfaenger_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Land = cDY.ncts_SumA_Empfaenger_Land + ' If cDY.ncts_SumA_Empfaenger_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.TIN = cDY.ncts_SumA_Empfaenger_TIN + 'End If + 'If cDY.ncts_SumA_Befoerderer_EORI IsNot Nothing Or cDY.ncts_SumA_Befoerderer_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer = New VersandanmeldungNCTSDE.AdresseVATyp + ' If cDY.ncts_SumA_Befoerderer_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.EORI = cDY.ncts_SumA_Befoerderer_EORI + ' If cDY.ncts_SumA_Befoerderer_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Befoerderer_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.NLNR = cDY.ncts_SumA_Befoerderer_NLNR + ' If cDY.ncts_SumA_Befoerderer_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Name = cDY.ncts_SumA_Befoerderer_Name + ' If cDY.ncts_SumA_Befoerderer_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.StrasseHausnummer = cDY.ncts_SumA_Befoerderer_StrasseHausnummer + ' If cDY.ncts_SumA_Befoerderer_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.PLZ = cDY.ncts_SumA_Befoerderer_PLZ + ' If cDY.ncts_SumA_Befoerderer_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Ort = cDY.ncts_SumA_Befoerderer_Ort + ' If cDY.ncts_SumA_Befoerderer_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Land = cDY.ncts_SumA_Befoerderer_Land + ' If cDY.ncts_SumA_Befoerderer_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.TIN = cDY.ncts_SumA_Befoerderer_TIN + 'End If + + ''Warenposition: + 'If cDY.ncts_WARENPOS IsNot Nothing AndAlso cDY.ncts_WARENPOS.Count > 0 Then + ' XML.EinzelVersandanmeldung.WarenPosition = New List(Of VersandanmeldungNCTSDE.WarenPositionVersandanmeldungTyp) + ' For Each p In cDY.ncts_WARENPOS + ' Dim WP As New VersandanmeldungNCTSDE.WarenPositionVersandanmeldungTyp + ' If p.nctsWP_PositionsNummer IsNot Nothing Then WP.Positionsnummer = p.nctsWP_PositionsNummer + ' If p.nctsWP_Warennummer IsNot Nothing Then WP.Warennummer = p.nctsWP_Warennummer + ' If p.nctsWP_ArtAnmeldungPositionCode IsNot Nothing Then WP.ArtAnmeldungPositionCode = p.nctsWP_ArtAnmeldungPositionCode + ' If p.nctsWP_Warenbezeichnung IsNot Nothing Then WP.Warenbezeichnung = p.nctsWP_Warenbezeichnung + ' If p.nctsWP_Warenwert IsNot Nothing Then WP.Warenwert = p.nctsWP_Warenwert.ToString.Replace(",", ".") 'AndAlso IsNumeric(p.nctsWP_Warenwert) Then WP.Warenwert = CDbl(p.nctsWP_Warenwert) + ' If p.nctsWP_WarenwertWaehrung IsNot Nothing Then WP.WarenwertWaehrung = p.nctsWP_WarenwertWaehrung 'AndAlso IsNumeric(p.nctsWP_Warenwert) Then WP.Warenwert = CDbl(p.nctsWP_Warenwert) + ' If p.nctsWP_WarenwertProzent IsNot Nothing Then WP.WarenwertProzent = p.nctsWP_WarenwertProzent + ' If p.nctsWP_SchaetzKz IsNot Nothing Then WP.SchaetzKz = p.nctsWP_SchaetzKz + ' If p.nctsWP_VersendungslandPositionCode IsNot Nothing Then WP.VersendungslandPositionCode = p.nctsWP_VersendungslandPositionCode + ' If p.nctsWP_BestimmungslandPositionCode IsNot Nothing Then WP.BestimmungslandPositionCode = p.nctsWP_BestimmungslandPositionCode + ' If p.nctsWP_Rohmasse IsNot Nothing Then WP.Rohmasse = p.nctsWP_Rohmasse + ' If p.nctsWP_Eigenmasse IsNot Nothing AndAlso CDbl(p.nctsWP_Eigenmasse) > 0 Then WP.Eigenmasse = p.nctsWP_Eigenmasse + + + ' If p.nctsWP_BesondereVermeke_ExportAusEU IsNot Nothing Then WP.BesondereVermerke.ExportAusEU = CInt(Int(p.nctsWP_BesondereVermeke_ExportAusEU)) ' sonst true = -1 + ' If p.nctsWP_BesondereVermeke_ExportAusLand IsNot Nothing Then WP.BesondereVermerke.ExportAusLand = p.nctsWP_BesondereVermeke_ExportAusLand + ' If p.nctsWP_BesondereVermeke_Export IsNot Nothing Then WP.BesondereVermerke.Export = CInt(Int(p.nctsWP_BesondereVermeke_Export)) ' sonst true = -1 + + ' If p.nctsWP_BesondereVermeke_ExportBeschraenkung IsNot Nothing Then WP.BesondereVermerke.ExportBeschraenkung = CInt(Int(p.nctsWP_BesondereVermeke_ExportBeschraenkung)) ' sonst true = -1 + ' If p.nctsWP_BesondereVermeke_ExportAbgaben IsNot Nothing Then WP.BesondereVermerke.ExportAbgaben = CInt(Int(p.nctsWP_BesondereVermeke_ExportAbgaben)) ' sonst true = -1 + ' If p.nctsWP_BesondereVermeke_Vermerk IsNot Nothing Then WP.BesondereVermerke.Vermerk = p.nctsWP_BesondereVermeke_Vermerk + ' If p.nctsWP_BesondereVermeke_Kz10600 IsNot Nothing Then WP.BesondereVermerke.Kz10600 = CInt(Int(p.nctsWP_BesondereVermeke_Kz10600)) ' sonst true = -1 + + + ' If p.nctsWP_Versender_EORI IsNot Nothing Or p.nctsWP_Versender_Name IsNot Nothing Then + ' WP.AdressenPosition.Versender = New VersandanmeldungNCTSDE.AdresseVA1Typ + ' If p.nctsWP_Versender_EORI IsNot Nothing Then WP.AdressenPosition.Versender.EORI = p.nctsWP_Versender_EORI + ' If p.nctsWP_Versender_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_Versender_NLNR) Then WP.AdressenPosition.Versender.NLNR = p.nctsWP_Versender_NLNR + ' If p.nctsWP_Versender_Name IsNot Nothing Then WP.AdressenPosition.Versender.Name = p.nctsWP_Versender_Name + ' If p.nctsWP_Versender_StrasseHausnummer IsNot Nothing Then WP.AdressenPosition.Versender.StrasseHausnummer = p.nctsWP_Versender_StrasseHausnummer + ' If p.nctsWP_Versender_PLZ IsNot Nothing Then WP.AdressenPosition.Versender.PLZ = p.nctsWP_Versender_PLZ + ' If p.nctsWP_Versender_Ort IsNot Nothing Then WP.AdressenPosition.Versender.Ort = p.nctsWP_Versender_Ort + ' If p.nctsWP_Versender_Land IsNot Nothing Then WP.AdressenPosition.Versender.Land = p.nctsWP_Versender_Land + ' If p.nctsWP_Versender_TIN IsNot Nothing Then WP.AdressenPosition.Versender.TIN = p.nctsWP_Versender_TIN + ' End If + ' If p.nctsWP_Empfaenger_EORI IsNot Nothing Or p.nctsWP_Empfaenger_Name IsNot Nothing Then + ' WP.AdressenPosition.Empfaenger = New VersandanmeldungNCTSDE.AdresseVA1Typ + ' If p.nctsWP_Empfaenger_EORI IsNot Nothing Then WP.AdressenPosition.Empfaenger.EORI = p.nctsWP_Empfaenger_EORI + ' If p.nctsWP_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_Empfaenger_NLNR) Then WP.AdressenPosition.Empfaenger.NLNR = p.nctsWP_Empfaenger_NLNR + ' If p.nctsWP_Empfaenger_Name IsNot Nothing Then WP.AdressenPosition.Empfaenger.Name = p.nctsWP_Empfaenger_Name + ' If p.nctsWP_Empfaenger_StrasseHausnummer IsNot Nothing Then WP.AdressenPosition.Empfaenger.StrasseHausnummer = p.nctsWP_Empfaenger_StrasseHausnummer + ' If p.nctsWP_Empfaenger_PLZ IsNot Nothing Then WP.AdressenPosition.Empfaenger.PLZ = p.nctsWP_Empfaenger_PLZ + ' If p.nctsWP_Empfaenger_Ort IsNot Nothing Then WP.AdressenPosition.Empfaenger.Ort = p.nctsWP_Empfaenger_Ort + ' If p.nctsWP_Empfaenger_Land IsNot Nothing Then WP.AdressenPosition.Empfaenger.Land = p.nctsWP_Empfaenger_Land + ' If p.nctsWP_Empfaenger_TIN IsNot Nothing Then WP.AdressenPosition.Empfaenger.TIN = p.nctsWP_Empfaenger_TIN + ' End If + + + ' If p.nctsWP_SumAKennnummerSendung IsNot Nothing Then WP.SumASicherheit.KennnummerSendung = p.nctsWP_SumAKennnummerSendung + ' If p.nctsWP_SumABefoerderungskostenZahlungsweise IsNot Nothing Then WP.SumASicherheit.BefoerderungskostenZahlungsweise = p.nctsWP_SumABefoerderungskostenZahlungsweise + ' If p.nctsWP_SumAUNGefahrgutnummer IsNot Nothing Then WP.SumASicherheit.UNGefahrgutnummer = p.nctsWP_SumAUNGefahrgutnummer + + ' If p.nctsWP_SumAVersender_EORI IsNot Nothing Or p.nctsWP_SumAVersender_Name IsNot Nothing Then + ' WP.SumASicherheit.Versender = New VersandanmeldungNCTSDE.AdresseVATyp + ' If p.nctsWP_SumAVersender_EORI IsNot Nothing Then WP.SumASicherheit.Versender.EORI = p.nctsWP_SumAVersender_EORI + ' If p.nctsWP_SumAVersender_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_SumAVersender_NLNR) Then WP.SumASicherheit.Versender.NLNR = p.nctsWP_SumAVersender_NLNR + ' If p.nctsWP_SumAVersender_Name IsNot Nothing Then WP.SumASicherheit.Versender.Name = p.nctsWP_SumAVersender_Name + ' If p.nctsWP_SumAVersender_StrasseHausnummer IsNot Nothing Then WP.SumASicherheit.Versender.StrasseHausnummer = p.nctsWP_SumAVersender_StrasseHausnummer + ' If p.nctsWP_SumAVersender_PLZ IsNot Nothing Then WP.SumASicherheit.Versender.PLZ = p.nctsWP_SumAVersender_PLZ + ' If p.nctsWP_SumAVersender_Ort IsNot Nothing Then WP.SumASicherheit.Versender.Ort = p.nctsWP_SumAVersender_Ort + ' If p.nctsWP_SumAVersender_Land IsNot Nothing Then WP.SumASicherheit.Versender.Land = p.nctsWP_SumAVersender_Land + ' If p.nctsWP_SumAVersender_TIN IsNot Nothing Then WP.SumASicherheit.Versender.TIN = p.nctsWP_SumAVersender_TIN + ' End If + ' If p.nctsWP_SumAEmpfaenger_EORI IsNot Nothing Or p.nctsWP_SumAEmpfaenger_Name IsNot Nothing Then + ' WP.SumASicherheit.Empfaenger = New VersandanmeldungNCTSDE.AdresseVATyp + ' If p.nctsWP_SumAEmpfaenger_EORI IsNot Nothing Then WP.SumASicherheit.Empfaenger.EORI = p.nctsWP_SumAEmpfaenger_EORI + ' If p.nctsWP_SumAEmpfaenger_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_SumAEmpfaenger_NLNR) Then WP.SumASicherheit.Empfaenger.NLNR = p.nctsWP_SumAEmpfaenger_NLNR + ' If p.nctsWP_SumAEmpfaenger_Name IsNot Nothing Then WP.SumASicherheit.Empfaenger.Name = p.nctsWP_SumAEmpfaenger_Name + ' If p.nctsWP_SumAEmpfaenger_StrasseHausnummer IsNot Nothing Then WP.SumASicherheit.Empfaenger.StrasseHausnummer = p.nctsWP_SumAEmpfaenger_StrasseHausnummer + ' If p.nctsWP_SumAEmpfaenger_PLZ IsNot Nothing Then WP.SumASicherheit.Empfaenger.PLZ = p.nctsWP_SumAEmpfaenger_PLZ + ' If p.nctsWP_SumAEmpfaenger_Ort IsNot Nothing Then WP.SumASicherheit.Empfaenger.Ort = p.nctsWP_SumAEmpfaenger_Ort + ' If p.nctsWP_SumAEmpfaenger_Land IsNot Nothing Then WP.SumASicherheit.Empfaenger.Land = p.nctsWP_SumAEmpfaenger_Land + ' If p.nctsWP_SumAEmpfaenger_TIN IsNot Nothing Then WP.SumASicherheit.Empfaenger.TIN = p.nctsWP_SumAEmpfaenger_TIN + ' End If + + + ' If p.nctsWP_PACKSTUECKE IsNot Nothing AndAlso p.nctsWP_PACKSTUECKE.Count > 0 Then + ' WP.Packstueck = New List(Of VersandanmeldungNCTSDE.PackstueckVATyp) + ' For Each w In p.nctsWP_PACKSTUECKE + ' Dim PK As New VersandanmeldungNCTSDE.PackstueckVATyp + ' If w.nctsWpPk_PackstueckeAnzahl IsNot Nothing Then PK.Anzahl = w.nctsWpPk_PackstueckeAnzahl.ToString.Replace(".", "") + ' If w.nctsWpPk_Verpackungsart IsNot Nothing Then PK.Verpackungsart = w.nctsWpPk_Verpackungsart + ' If w.nctsWpPk_ZeichenNummern IsNot Nothing Then PK.ZeichenNummern = w.nctsWpPk_ZeichenNummern + ' WP.Packstueck.Add(PK) + ' Next + ' End If + + + ' If p.nctsWP_VorpapierTyp IsNot Nothing Then + ' WP.Vorpapier = New VersandanmeldungNCTSDE.VorpapierVATyp + ' WP.Vorpapier.Typ = If(p.nctsWP_VorpapierTyp, "") + + ' WP.Vorpapier.VorpapierAngaben = New List(Of VersandanmeldungNCTSDE.VorpapierAngabenVATyp) + ' If p.nctsWP_VorpapierReferenz1 IsNot Nothing And p.nctsWP_VorpapierReferenz1 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz1, "") + ' If p.nctsWP_VorpapierZusatz1 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz1, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz2 IsNot Nothing And p.nctsWP_VorpapierReferenz2 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz2, "") + ' If p.nctsWP_VorpapierZusatz2 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz2, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz3 IsNot Nothing And p.nctsWP_VorpapierReferenz3 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz3, "") + ' If p.nctsWP_VorpapierZusatz3 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz3, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz4 IsNot Nothing And p.nctsWP_VorpapierReferenz4 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz4, "") + ' If p.nctsWP_VorpapierZusatz4 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz4, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz5 IsNot Nothing And p.nctsWP_VorpapierReferenz5 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz5, "") + ' If p.nctsWP_VorpapierZusatz5 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz5, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz6 IsNot Nothing And p.nctsWP_VorpapierReferenz6 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz6, "") + ' If p.nctsWP_VorpapierZusatz6 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz6, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz7 IsNot Nothing And p.nctsWP_VorpapierReferenz7 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz7, "") + ' If p.nctsWP_VorpapierZusatz7 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz7, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz8 IsNot Nothing And p.nctsWP_VorpapierReferenz8 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz8, "") + ' If p.nctsWP_VorpapierZusatz8 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz8, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz9 IsNot Nothing And p.nctsWP_VorpapierReferenz9 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz9, "") + ' If p.nctsWP_VorpapierZusatz9 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz9, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' End If + + ' If p.nctsWP_UNTERLAGEN IsNot Nothing AndAlso p.nctsWP_UNTERLAGEN.Count > 0 Then + ' WP.VorgelegteUnterlagen = New List(Of VersandanmeldungNCTSDE.VorgelegteUnterlBeschGenehmVATyp) + ' For Each w In p.nctsWP_UNTERLAGEN + ' Dim UL As New VersandanmeldungNCTSDE.VorgelegteUnterlBeschGenehmVATyp + ' If w.nctsWpUl_Typ IsNot Nothing Then UL.Typ = w.nctsWpUl_Typ + ' If w.nctsWpUl_Referenz IsNot Nothing Then UL.Referenz = w.nctsWpUl_Referenz + ' If w.nctsWpUl_Zusatz IsNot Nothing Then UL.Zusatz = w.nctsWpUl_Zusatz + ' WP.VorgelegteUnterlagen.Add(UL) + ' Next + ' End If + + + ' XML.EinzelVersandanmeldung.WarenPosition.Add(WP) + ' Next + 'End If + + 'Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" + 'If Not System.IO.Directory.Exists(saveDir) Then + ' System.IO.Directory.CreateDirectory(saveDir) + 'End If + + 'saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + ''MsgBox(saveFile) + 'XML.SaveToFile(saveFile) + + 'replaceNullDateXML(saveFile) + + 'Return True + End Function + + + Shared Sub replaceNullDateXML(XMLFile As String) + Try + If Not System.IO.File.Exists(XMLFile) Then Exit Sub + Dim lines() As String = System.IO.File.ReadAllLines(XMLFile) + Using writer = New System.IO.StreamWriter(XMLFile, False) + For Each line In lines + If Not line.Contains("0001-01-01") Then writer.WriteLine(line) + Next + End Using + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + + + 'Shared Function loadInClass_VersandanmeldungAES(ByRef cDY As cDakosyAES, USRCNTL As usrCntlATLAS_AES, cDYAnm As cDakosy_Zollanmeldungen) As cDakosyAES + ' Try + + ' cDY.aes_Trans_Partner = "VERA" + ' cDY.aes_Trans_DatumZeit = Now + ' 'cDY.aes_Gestellt = False + ' cDY.aes_Status = "00" + ' cDY.aes_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.aes_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.aes_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing) + ' 'cDY.aes_Trans_Version = "003" + ' cDY.aes_Trans_Div1 = "ATILLA" + + ' ' cDY.aes_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value) + ' ' cDY.aes_BezugsnummerVorblendung = cDY.aes_Stammreferenz + ' cDY.aes_BezugsnummerVorblendung = isLeerNothing(USRCNTL.cboStammreferenz._value) + + ' 'cDY.aes_Trans_Div1 = "ATILLA" + ' 'cDY.aes_Trans_Div1 = "ATILLA" + + ' cDY.aes_ObjectName = USRCNTL.BezugsNr + ' 'cDY.aes_ObjectAlias = USRCNTL.AVISO.AvisoID + ' USRCNTL.ALLG.getValues(cDY) + ' USRCNTL.ADRESSEN.getValues(cDY) + ' 'USRCNTL.POSITIONEN.getValues(cDY) + + ' ' cDY.aes_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues() + ' 'USRCNTL.VERSCHLUESSE.getValues(cDY) + ' 'cDY.aes_WARENPOS=USRCNTL.POSITIONEN.getValues() + ' '-------------------------------- + + ' cDY.aes_WARENPOS.Clear() + + + ' Return cDY + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' Return Nothing + ' End Try + 'End Function + + + + 'Shared Function loadInClass_VersandanmeldungEZA(ByRef cDY As cDakosyEZA, USRCNTL As usrCntlATLAS_EZA, cDYAnm As cDakosy_Zollanmeldungen) As cDakosyEZA + ' Try + + ' cDY.eza_Trans_Partner = "VERA" + ' cDY.eza_Trans_DatumZeit = Now + ' 'cDY.EZA_Gestellt = False + ' cDY.eza_Status = "00" + ' cDY.eza_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.eza_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.eza_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing) + ' 'cDY.EZA_Trans_Version = "003" + ' cDY.eza_Trans_Div1 = "VERAG" + ' 'cDY.EZA_Trans_Div1 = "ATILLA" + ' 'cDY.EZA_Trans_Div1 = "ATILLA" + + ' ' cDY.eza_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value) + ' cDY.eza_BezugsnummerVorblendung = isLeerNothing(USRCNTL.cboStammreferenz._value) + + ' cDY.eza_ObjectName = USRCNTL.BezugsNr + ' 'cDY.EZA_ObjectAlias = USRCNTL.AVISO.AvisoID + ' USRCNTL.ALLG.getValues(cDY) + ' USRCNTL.ADRESSEN.getValues(cDY) + ' USRCNTL.POSITIONEN.getValues(cDY) + ' USRCNTL.DV1.getValues(cDY) + + ' ' MsgBox(cDY.eza_WARENPOS.Count) + ' ' cDY.EZA_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues() + ' 'USRCNTL.VERSCHLUESSE.getValues(cDY) + ' 'cDY.EZA_WARENPOS=USRCNTL.POSITIONEN.getValues() + ' '-------------------------------- + + ' ' cDY.eza_WARENPOS.Clear() + + + ' Return cDY + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' Return Nothing + ' End Try + 'End Function + + + + 'Shared Function getDivision(FIRMA_DY, Optional fiskal = False) As String + ' If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + ' Return "SUB" + ' Else + ' Select Case FIRMA_DY + ' Case "ATILLA" + ' Return "SUW" + ' Case "AMBAR" + ' Return "AMBWO" + ' Case "VERAG" + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung + ' Case "SUB" : Return "SUB" + ' Case "SBG" : Return "SBG" + ' Case "NKD" : Return "NKD" + ' Case "NEU" : Return "NEU" + ' Case "WAI" : Return "WAI" + ' Case Else : Return "SUB" + ' End Select + + ' Case "UNISPED" + ' Return ""'"ATSP" + ' Case "IMEX" + ' If fiskal Then + ' Return "GLO" + ' Else + ' Return "IME" + ' End If + ' Case Else : Return "SUB" + ' End Select + ' End If + + 'End Function + + 'Shared Function getIOPartner(FIRMA_DY) As String + ' If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + ' Return "VERA" + ' Else + ' Select Case FIRMA_DY + ' Case "ATILLA" + ' Return "VERG" + ' Case "VERAG" + ' Return "VERG" + ' Case "DURMAZ" + ' Return "DUR" + ' Case "IMEX" + ' Return "IMEX" + ' Case "UNISPED" + ' Return "UNAT" + ' Case Else : Return "VERG" + ' End Select + ' End If + + 'End Function + ''If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + + 'Shared Function generateVersandanmeldungEZA(cDY As cDakosyEZA, ByRef saveFile As String, DY_ACTION As String) As Boolean + ' Dim Interface_VERSION = "004" + ' Dim ObjectAktion = DY_ACTION + + + ' Dim XML As New DAKOSY_Worker.FreierVerkehrAktVeredelUmwandlung_004.FreierVerkehrAktVeredelUmwandlungAVUVTyp + + + ' 'Transaktion: + ' XML.Transaktion = New FreierVerkehrAktVeredelUmwandlung_004.TransaktionFreierVerkehrTyp + ' XML.Transaktion.IOPartner = getIOPartner(cDY.eza_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + ' XML.Transaktion.IODatumZeit = Now + ' XML.Transaktion.IOReferenz = cDY.eza_Trans_Referenz + ' If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.eza_firma, CBool(If(cDY.eza_FiskalvertretungKz, False))) + ' XML.Transaktion.Version = Interface_VERSION + + ' Dim EA = New FreierVerkehrAktVeredelUmwandlung_004.EinzelEinfuhrUnvollstaendigeAnmeldungTyp + + ' EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL" + + ' 'ObjektIdentifizierung: + ' EA.ObjektIdentifizierung = New FreierVerkehrAktVeredelUmwandlung_004.ObjektIdentifizierungAVUVTyp + ' EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName + ' If cDY.eza_ObjectAlias IsNot Nothing Then EA.ObjektIdentifizierung.ObjektAlias = cDY.eza_ObjectAlias + ' Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) + ' EA.ObjektIdentifizierung.ObjektAktion = ObjektAktion + ' EA.ObjektIdentifizierung.Bearbeiter = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME.Length > 20, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME) + ' 'EA.ObjektIdentifizierung.CompliancePruefung= + ' EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName + ' If cDY.eza_Bearbeiter IsNot Nothing Then EA.ObjektIdentifizierung.Bearbeiter = cDY.eza_Bearbeiter + ' If cDY.eza_CompliancePruefung IsNot Nothing Then EA.ObjektIdentifizierung.CompliancePruefung = cDY.eza_CompliancePruefung + ' If cDY.eza_BezugsnummerVorblendung IsNot Nothing Then EA.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.eza_BezugsnummerVorblendung + + ' EA.ObjektIdentifizierung.AnmeldungArt = If(cDY.eza_AnmeldungArt, "EZA-A") 'Pflichtfeld + + + ' 'KopfDaten + ' EA.KopfDaten = New FreierVerkehrAktVeredelUmwandlung_004.KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + ' If cDY.eza_AdressierteZollstelle IsNot Nothing Then EA.KopfDaten.AdressierteZollstelle = cDY.eza_AdressierteZollstelle + ' If cDY.eza_AnmelderistEmpfaenger IsNot Nothing Then EA.KopfDaten.AnmelderIstEmpfaenger = cDY.eza_AnmelderistEmpfaenger + ' If cDY.eza_VertretungsVerhaeltnisCode IsNot Nothing Then EA.KopfDaten.VertretungsverhaeltnisCode = cDY.eza_VertretungsVerhaeltnisCode + ' If cDY.eza_Vorsteuerabzug IsNot Nothing Then EA.KopfDaten.Vorsteuerabzug = cDY.eza_Vorsteuerabzug + ' If cDY.eza_AnmeldenderBearbeiterName IsNot Nothing Then EA.KopfDaten.NameAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterName + ' If cDY.eza_AnmeldenderBearbeiterTel IsNot Nothing Then EA.KopfDaten.TelefonnummerAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterTel + ' If cDY.eza_AnmeldenderBearbeiterStellung IsNot Nothing Then EA.KopfDaten.StellungAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterStellung + ' If cDY.eza_AnmeldenderBearbeiterEMail IsNot Nothing Then EA.KopfDaten.EmailAdresseAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterEMail + ' If cDY.eza_FiskalvertretungKz IsNot Nothing Then EA.KopfDaten.FiskalvertretungKz = CInt(Int(cDY.eza_FiskalvertretungKz)) + ' If cDY.eza_Ausstellungsort IsNot Nothing Then EA.KopfDaten.Ausstellungsort = cDY.eza_Ausstellungsort + ' If cDY.eza_ZollrechtlicherStatus IsNot Nothing Then EA.KopfDaten.ZollrechtlicherStatus = cDY.eza_ZollrechtlicherStatus + ' If cDY.eza_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(cDY.eza_GesamtRohmasse) Then EA.KopfDaten.GesamtRohMasse = CDbl(CDbl(cDY.eza_GesamtRohmasse).ToString("N1")) + ' If cDY.eza_VerfahrenBeantragtCode IsNot Nothing Then EA.KopfDaten.VerfahrenBeantragtCode = cDY.eza_VerfahrenBeantragtCode + ' If cDY.eza_VerkehrszweigInland IsNot Nothing Then EA.KopfDaten.VerkehrszweigInland = cDY.eza_VerkehrszweigInland + ' If cDY.eza_VerkehrszweigGrenze IsNot Nothing Then EA.KopfDaten.VerkehrszweigGrenze = cDY.eza_VerkehrszweigGrenze + ' If cDY.eza_VersendungsLandCode IsNot Nothing Then EA.KopfDaten.VersendungslandCode = cDY.eza_VersendungsLandCode + ' If cDY.eza_Bestimmungsland IsNot Nothing Then EA.KopfDaten.Bestimmungsland = cDY.eza_Bestimmungsland + ' If cDY.eza_Bestimmungsbundesland IsNot Nothing Then EA.KopfDaten.Bestimmungsbundesland = cDY.eza_Bestimmungsbundesland + ' If cDY.eza_KennzeichenNameBefoerderungsmittelAnkunft IsNot Nothing Then EA.KopfDaten.KennzeichenNameBefoerderungsmittelAnkunft = cDY.eza_KennzeichenNameBefoerderungsmittelAnkunft + ' If cDY.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenzeStaatszugehoerigkeitCode = cDY.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode + ' If cDY.eza_BeförderungsmittelGrenzeArt IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenzeArt = cDY.eza_BeförderungsmittelGrenzeArt + ' If cDY.eza_BeförderungsmittelGrenze IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze = cDY.eza_BeförderungsmittelGrenze + ' If cDY.eza_LieferbedingungCode IsNot Nothing Then EA.KopfDaten.LieferbedingungCode = cDY.eza_LieferbedingungCode + ' If cDY.eza_LieferbedingungText IsNot Nothing Then EA.KopfDaten.LieferbedingungText = cDY.eza_LieferbedingungText + ' If cDY.eza_LieferbedingungSchluessel IsNot Nothing Then EA.KopfDaten.LieferbedingungSchluessel = cDY.eza_LieferbedingungSchluessel + ' If cDY.eza_LieferbedingungOrt IsNot Nothing Then EA.KopfDaten.LieferbedingungOrt = cDY.eza_LieferbedingungOrt + ' If cDY.eza_VorpapierArtCode IsNot Nothing Then EA.KopfDaten.VorpapierArtCode = cDY.eza_VorpapierArtCode + ' If cDY.eza_VorpapierNr IsNot Nothing Then EA.KopfDaten.VorpapierNr = cDY.eza_VorpapierNr + ' If cDY.eza_ArtGeschaeftCode IsNot Nothing Then EA.KopfDaten.ArtGeschaeftCode = cDY.eza_ArtGeschaeftCode + ' If cDY.eza_Statistikstatus IsNot Nothing Then EA.KopfDaten.StatistikStatus = cDY.eza_Statistikstatus + ' If cDY.eza_Warenort IsNot Nothing Then EA.KopfDaten.Warenort = cDY.eza_Warenort + ' If cDY.eza_Rechnungspreis IsNot Nothing Then EA.KopfDaten.Rechnungspreis = cDY.eza_Rechnungspreis + ' If cDY.eza_Rechnungswaehrung IsNot Nothing Then EA.KopfDaten.Rechnungswaehrung = cDY.eza_Rechnungswaehrung + ' If If(cDY.eza_DV1Kz, False) Then + ' If cDY.eza_DV1Kz IsNot Nothing Then EA.KopfDaten.DV1Angaben.DV1Kz = CInt(Int(cDY.eza_DV1Kz)) + ' If cDY.eza_DV1Vertretungsverhaeltnis IsNot Nothing Then EA.KopfDaten.DV1Angaben.Vertretungsverhaeltnis = cDY.eza_DV1Vertretungsverhaeltnis + ' If cDY.eza_DV1FruehereEntscheidungen IsNot Nothing Then EA.KopfDaten.DV1Angaben.FruehereEntscheidungen = cDY.eza_DV1FruehereEntscheidungen + ' If cDY.eza_DV1Verbundenheit IsNot Nothing Then EA.KopfDaten.DV1Angaben.Verbundenheit = cDY.eza_DV1Verbundenheit + ' If cDY.eza_DV1VerbungenheitEinzelheiten IsNot Nothing Then EA.KopfDaten.DV1Angaben.VerbundenheitEinzelheiten = cDY.eza_DV1VerbungenheitEinzelheiten + ' If cDY.eza_DV1EinschraenkungenKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.EinschraenkungenKz = cDY.eza_DV1EinschraenkungenKz + ' If cDY.eza_DV1BedingungenLeistungenKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.BedingungenLeistungenKz = cDY.eza_DV1BedingungenLeistungenKz + ' If cDY.eza_DV1BedingungenLeistungenArt IsNot Nothing Then EA.KopfDaten.DV1Angaben.BedingungenLeistungenArt = cDY.eza_DV1BedingungenLeistungenArt + ' If cDY.eza_DV1LizenzgebuehrenKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.LizenzgebuehrenKz = cDY.eza_DV1LizenzgebuehrenKz + ' If cDY.eza_DV1LizenzgebuehrenUmstand IsNot Nothing Then EA.KopfDaten.DV1Angaben.LizenzgebuehrenUmstand = cDY.eza_DV1LizenzgebuehrenUmstand + ' If cDY.eza_DV1SpezielleVereinbarungKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.SpezielleVereinbarungKz = cDY.eza_DV1SpezielleVereinbarungKz + ' If cDY.eza_DV1SpezielleVereinbarungUmstand IsNot Nothing Then EA.KopfDaten.DV1Angaben.SpezielleVereinbarungUmstand = cDY.eza_DV1SpezielleVereinbarungUmstand + ' End If + + ' If cDY.eza_UNTERLAGEN.Count > 0 Then + ' EA.KopfDaten.Unterlage = New List(Of FreierVerkehrAktVeredelUmwandlung_004.UnterlageVzKopfAVUVTyp) + ' For Each u In cDY.eza_UNTERLAGEN + ' Dim UNTERLAGE As New FreierVerkehrAktVeredelUmwandlung_004.UnterlageVzKopfAVUVTyp + ' If u.ezaUl_Bereich IsNot Nothing Then UNTERLAGE.Bereich = u.ezaUl_Bereich + ' If u.ezaUl_Art IsNot Nothing Then UNTERLAGE.Art = u.ezaUl_Art + ' If u.ezaUl_Nummer IsNot Nothing Then UNTERLAGE.Nummer = u.ezaUl_Nummer + ' If u.ezaUl_DatumAusstellung IsNot Nothing Then UNTERLAGE.DatumAusstellung = u.ezaUl_DatumAusstellung + ' EA.KopfDaten.Unterlage.Add(UNTERLAGE) + ' Next + ' End If + + + ' If cDY.eza_ZusatzangabenAnmeldung IsNot Nothing Then EA.KopfDaten.ZusatzAngabenAnmeldung = cDY.eza_ZusatzangabenAnmeldung + ' If cDY.eza_KzAutoBestaetigung IsNot Nothing Then EA.KopfDaten.KzAutoBestaetigung = CInt(Int(cDY.eza_KzAutoBestaetigung)) + ' If cDY.eza_AnschreibungDatum IsNot Nothing Then EA.KopfDaten.AnschreibungDatum = cDY.eza_AnschreibungDatum + ' If cDY.eza_Eingangszollstelle IsNot Nothing Then EA.KopfDaten.Eingangszollstelle = cDY.eza_Eingangszollstelle + ' If cDY.eza_Zahlungsart IsNot Nothing Then EA.KopfDaten.Zahlungsart = cDY.eza_Zahlungsart + + ' If cDY.eza_AUFSCHUB.Count > 0 Then + ' EA.KopfDaten.Aufschub = New List(Of FreierVerkehrAktVeredelUmwandlung_004.AufschubAVUVTyp) + ' For Each u In cDY.eza_AUFSCHUB + ' Dim AUFSCHUB As New FreierVerkehrAktVeredelUmwandlung_004.AufschubAVUVTyp + ' If u.ezaAfb_ArtAufschubantrag IsNot Nothing Then AUFSCHUB.ArtAufschubantrag = u.ezaAfb_ArtAufschubantrag + ' If u.ezaAfb_Aufschubart IsNot Nothing Then AUFSCHUB.Aufschubart = u.ezaAfb_Aufschubart + ' If u.ezaAfb_AufschubnehmerEORI IsNot Nothing Then AUFSCHUB.AufschubnehmerEORI = u.ezaAfb_AufschubnehmerEORI + ' 'If u.ezaAfb_KontoNr IsNot Nothing Then AUFSCHUB.KontoNr = u.ezaAfb_KontoNr 'ohne Funktion + ' If u.ezaAfb_AufschuBIN IsNot Nothing Then AUFSCHUB.AufschubBIN = u.ezaAfb_AufschuBIN + ' EA.KopfDaten.Aufschub.Add(AUFSCHUB) + ' Next + ' End If + + ' If cDY.eza_SUMABA.Count > 0 Then + ' EA.KopfDaten.SumABeendigungsAnteil = New List(Of FreierVerkehrAktVeredelUmwandlung_004.SumABeendigungsAnteilAVUVTyp) + ' For Each u In cDY.eza_SUMABA + ' Dim SUMA As New FreierVerkehrAktVeredelUmwandlung_004.SumABeendigungsAnteilAVUVTyp + ' If u.ezaBa_SumARegistriernummer IsNot Nothing Then SUMA.SumARegistriernummer = u.ezaBa_SumARegistriernummer + ' If u.ezaBa_SumAPosNr IsNot Nothing Then SUMA.SumAPosNr = u.ezaBa_SumAPosNr + ' If u.ezaBa_BeendigungsPackstueckzahl IsNot Nothing Then SUMA.BeendigungsPackstueckzahl = u.ezaBa_BeendigungsPackstueckzahl.ToString.Replace(".", "") + ' If u.ezaBa_Artidentifikation IsNot Nothing Then SUMA.ArtIdentifikation = u.ezaBa_Artidentifikation + ' If u.ezaBa_VerwahrerEORI IsNot Nothing Then SUMA.VerwahrerEORI = u.ezaBa_VerwahrerEORI + ' If u.ezaBa_SpezifOrdnungsbegriff IsNot Nothing Then SUMA.SpezifOrdnungsbegriff = u.ezaBa_SpezifOrdnungsbegriff + ' If u.ezaBa_SpezifOrdnungsbegriffArt IsNot Nothing Then SUMA.SpezifOrdnungsbegriffArt = u.ezaBa_SpezifOrdnungsbegriffArt + ' EA.KopfDaten.SumABeendigungsAnteil.Add(SUMA) + ' Next + ' End If + + + + ' If cDY.eza_ContainerNr1 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr1) + ' If cDY.eza_ContainerNr2 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr2) + ' If cDY.eza_ContainerNr3 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr3) + ' If cDY.eza_ContainerNr4 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr4) + ' If cDY.eza_ContainerNr5 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr5) + ' If cDY.eza_ContainerNr6 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr6) + ' If cDY.eza_ContainerNr7 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr7) + ' If cDY.eza_ContainerNr8 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr8) + ' If cDY.eza_ContainerNr9 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr9) + + ' If cDY.eza_BeendigungsanteilArtCode IsNot Nothing Then EA.KopfDaten.BeendigungsAnteilArtCode = cDY.eza_BeendigungsanteilArtCode + ' If cDY.eza_BewilligungsIDZLAVUV IsNot Nothing Then EA.KopfDaten.BewilligungsIDZLAVUV = cDY.eza_BewilligungsIDZLAVUV + ' If cDY.eza_BezugsnummerBEAnteilZL IsNot Nothing Then EA.KopfDaten.BezugsnummerBEAnteilZL = cDY.eza_BezugsnummerBEAnteilZL + + + ' 'Property eza_BEA_ZLAvuv As New List(Of cDakosy_EZA_BEAnteilZLAVUV) + + ' If cDY.eza_BEA_ZLAvuv.Count > 0 Then + ' EA.KopfDaten.BEAnteilZLAVUV = New List(Of FreierVerkehrAktVeredelUmwandlung_004.BEAnteilZLAVUVPositionAVUVTyp) + ' For Each u In cDY.eza_BEA_ZLAvuv + ' Dim BEA As New FreierVerkehrAktVeredelUmwandlung_004.BEAnteilZLAVUVPositionAVUVTyp + ' If u.ezaBAZ_RegistrierNummerZugang IsNot Nothing Then BEA.RegistriernummerZugang = u.ezaBAZ_RegistrierNummerZugang + ' If u.ezaBAZ_PositionZugang IsNot Nothing Then BEA.PositionZugang = u.ezaBAZ_PositionZugang + ' If u.ezaBAZ_ArtikelCodeATZL IsNot Nothing Then BEA.ArtikelcodeATZL = u.ezaBAZ_ArtikelCodeATZL + ' If u.ezaBAZ_AtlasKz IsNot Nothing Then BEA.AtlasKz = CInt(Int(u.ezaBAZ_AtlasKz)) + ' If u.ezaBAZ_EigentuemerATUL IsNot Nothing Then BEA.EigentuemerATZL = u.ezaBAZ_EigentuemerATUL + ' If u.ezaBAZ_ChargennummerATZL IsNot Nothing Then BEA.ChargennummerATZL = u.ezaBAZ_ChargennummerATZL + ' If u.ezaBAZ_UrsprungslandATZL IsNot Nothing Then BEA.UrsprungslandATZL = u.ezaBAZ_UrsprungslandATZL + ' If u.ezaBAZ_UeblicheBehandlungKz IsNot Nothing Then BEA.UeblicheBehandlungKz = CInt(Int(u.ezaBAZ_UeblicheBehandlungKz)) + ' If u.ezaBAZ_Handelsmenge IsNot Nothing Then BEA.Handelsmenge = u.ezaBAZ_Handelsmenge + ' If u.ezaBAZ_MasseinheitHandelsmenge IsNot Nothing Then BEA.MasseinheitHandelsmenge = u.ezaBAZ_MasseinheitHandelsmenge + ' If u.ezaBAZ_Wartennummer IsNot Nothing Then BEA.Warennummer = u.ezaBAZ_Wartennummer + ' If u.ezaBAZ_QualifikatorHandelsmenge IsNot Nothing Then BEA.QualifikatorHandelsmenge = u.ezaBAZ_QualifikatorHandelsmenge + ' If u.ezaBAZ_Abgangsmenge IsNot Nothing Then BEA.Abgangsmenge = u.ezaBAZ_Abgangsmenge + ' If u.ezaBAZ_MasseinheitAbgangsmenge IsNot Nothing Then BEA.MasseinheitAbgangsmenge = u.ezaBAZ_MasseinheitAbgangsmenge + ' If u.ezaBAZ_QualifikatorAbgangsmenge IsNot Nothing Then BEA.QualifikatorAbgangsmenge = u.ezaBAZ_QualifikatorAbgangsmenge + ' If u.ezaBAZ_Positionszusatz IsNot Nothing Then BEA.Positionszusatz = u.ezaBAZ_Positionszusatz + ' If u.ezaBAZ_WarenbezogeneAngaben IsNot Nothing Then BEA.WarenbezogeneAngaben = u.ezaBAZ_WarenbezogeneAngaben + ' EA.KopfDaten.BEAnteilZLAVUV.Add(BEA) + ' Next + ' End If + + + ' If cDY.eza_ADRESSEN.Count > 0 Then + ' EA.KopfDaten.Adressen = New List(Of FreierVerkehrAktVeredelUmwandlung_004.AdressenVzImportAVUVTyp) + ' For Each u In cDY.eza_ADRESSEN + ' Dim ADR As New FreierVerkehrAktVeredelUmwandlung_004.AdressenVzImportAVUVTyp + ' If u.ezaAd_AdressTyp IsNot Nothing Then ADR.AdressTyp = u.ezaAd_AdressTyp + ' If u.ezaAd_AdressCode IsNot Nothing Then ADR.AdressCode = u.ezaAd_AdressCode + ' If u.ezaAd_TeilnehmerEORI IsNot Nothing Then ADR.TeilnehmerEORI = u.ezaAd_TeilnehmerEORI + ' If u.ezaAd_TeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(u.ezaAd_TeilnehmerNLNR) Then ADR.TeilnehmerNLNR = u.ezaAd_TeilnehmerNLNR + ' If u.ezaAd_NameFirma1 IsNot Nothing Then + ' ADR.NameFirma = u.ezaAd_NameFirma1 & If(u.ezaAd_NameFirma2, "") & If(u.ezaAd_NameFirma3, "") + ' End If + ' 'If u.ezaAd_NameFirma1 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma1) + ' 'If u.ezaAd_NameFirma2 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma2) + ' 'If u.ezaAd_NameFirma3 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma3) + ' If u.ezaAd_StrasseHausNr1 IsNot Nothing Then + ' ADR.StrasseHausNr = u.ezaAd_StrasseHausNr1 & If(u.ezaAd_StrasseHausNr2, "") + ' End If + ' 'If u.ezaAd_StrasseHausNr1 IsNot Nothing Then ADR.StrasseHausNr.Add(u.ezaAd_StrasseHausNr1) + ' 'If u.ezaAd_StrasseHausNr2 IsNot Nothing Then ADR.StrasseHausNr.Add(u.ezaAd_StrasseHausNr2) + ' If u.ezaAd_Ortsteil IsNot Nothing Then ADR.Ortsteil = u.ezaAd_Ortsteil + ' If u.ezaAd_LandCode IsNot Nothing Then ADR.LandCode = u.ezaAd_LandCode + ' If u.ezaAd_PLZ IsNot Nothing Then ADR.PLZS = u.ezaAd_PLZ + ' If u.ezaAd_Ort IsNot Nothing Then ADR.OrtS = u.ezaAd_Ort + ' If u.ezaAd_UStIDAnmelder IsNot Nothing Then ADR.UStIDAnmelder = u.ezaAd_UStIDAnmelder + ' If u.ezaAd_FinanzamtIDAnmelder IsNot Nothing Then ADR.FinanzamtIDAnmelder = u.ezaAd_FinanzamtIDAnmelder + ' If u.ezaAd_Bewilligungsnummer IsNot Nothing Then ADR.Bewilligungsnummer = u.ezaAd_Bewilligungsnummer + ' If u.ezaAd_BewilligungsFachVerfahren IsNot Nothing Then ADR.BewilligungFachVerfahren = u.ezaAd_BewilligungsFachVerfahren + ' If u.ezaAd_BewilligungsnummerEndverwender IsNot Nothing Then ADR.BewilligungsnummerEndverwender = u.ezaAd_BewilligungsnummerEndverwender + ' EA.KopfDaten.Adressen.Add(ADR) + ' Next + ' End If + + + ' If cDY.eza_WARENPOS.Count > 0 Then + ' EA.WarenPosition = New List(Of FreierVerkehrAktVeredelUmwandlung_004.PositionEinfuhrUnvollstaendigeAnmeldungTyp) + ' For Each u In cDY.eza_WARENPOS + ' Dim WP As New FreierVerkehrAktVeredelUmwandlung_004.PositionEinfuhrUnvollstaendigeAnmeldungTyp + ' If u.ezaWP_PositionsNummer IsNot Nothing Then WP.Positionsnummer = u.ezaWP_PositionsNummer + ' If u.ezaWP_Artikelnummer IsNot Nothing Then WP.ArtikelNummer = u.ezaWP_Artikelnummer + ' If u.ezaWP_WarennummerEZT IsNot Nothing Then WP.WarenNummerEZT = u.ezaWP_WarennummerEZT + ' If u.ezaWP_Warennummerzusatz1 IsNot Nothing Then WP.WarenNummerZusatz1 = u.ezaWP_Warennummerzusatz1 + ' If u.ezaWP_Warennummerzusatz2 IsNot Nothing Then WP.WarenNummerZusatz2 = u.ezaWP_Warennummerzusatz2 + + ' If u.ezaWP_WarennummerZusatzCode1 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode1) + ' If u.ezaWP_WarennummerZusatzCode2 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode2) + ' If u.ezaWP_WarennummerZusatzCode3 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode3) + ' If u.ezaWP_WarennummerZusatzCode4 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode4) + ' If u.ezaWP_WarennummerZusatzCode5 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode5) + ' If u.ezaWP_WarennummerZusatzCode6 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode6) + ' If u.ezaWP_WarennummerZusatzCode7 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode7) + ' If u.ezaWP_WarennummerZusatzCode8 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode8) + ' If u.ezaWP_WarennummerZusatzCode9 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode9) + ' If u.ezaWP_WarennummerZusatzCode10 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode10) + + ' If u.ezaWP_Warenbezeichnung IsNot Nothing Then WP.WarenBezeichnung = u.ezaWP_Warenbezeichnung + ' If u.ezaWP_VerfahrensCodeVorangegangenesVerfahren IsNot Nothing Then WP.VerfahrenscodeVorangegangenesVerfahren = u.ezaWP_VerfahrensCodeVorangegangenesVerfahren + ' If u.ezaWP_AbgabensteuerungKz IsNot Nothing Then WP.AbgabensteuerungKz = CInt(Int(u.ezaWP_AbgabensteuerungKz)) + ' If u.ezaWP_EUCode IsNot Nothing Then WP.EUCode = u.ezaWP_EUCode + ' If u.ezaWP_UrsprungslandCode IsNot Nothing Then WP.UrsprungslandCode = u.ezaWP_UrsprungslandCode + + ' If cDY.eza_WARENPOS.Count > 1 Then + ' WP.Rohmasse = Nothing + ' Else + ' If u.ezaWP_Rohmasse IsNot Nothing Then WP.Rohmasse = u.ezaWP_Rohmasse + ' End If + + ' If u.ezaWP_Eigenmasse IsNot Nothing Then WP.Eigenmasse = u.ezaWP_Eigenmasse + ' If u.ezaWP_AHStatMenge IsNot Nothing Then WP.AHStatMenge = u.ezaWP_AHStatMenge + ' If u.ezaWP_AHStatMengeMasseinheit IsNot Nothing Then WP.AHStatMengeMasseinheit = u.ezaWP_AHStatMengeMasseinheit + ' If u.ezaWP_AHStatMengeQualifier IsNot Nothing Then WP.AHStatMengeQualifier = u.ezaWP_AHStatMengeQualifier + ' If u.ezaWP_AHStatWert IsNot Nothing AndAlso IsNumeric(u.ezaWP_AHStatWert) Then WP.AHStatWert = CInt(u.ezaWP_AHStatWert) + ' If u.ezaWP_AHStatWertManuellKZ IsNot Nothing Then WP.AHStatWertManuellKZ = CInt(Int(u.ezaWP_AHStatWertManuellKZ)) + ' If u.ezaWP_KostenEUSt IsNot Nothing Then WP.KostenEUSt = u.ezaWP_KostenEUSt + ' If u.ezaWP_PackstueckAnzahl IsNot Nothing Then WP.PackstueckAnzahl = u.ezaWP_PackstueckAnzahl.ToString.Replace(".", "") + ' If u.ezaWP_PackstueckArt IsNot Nothing Then WP.PackstueckArt = u.ezaWP_PackstueckArt + ' If u.ezaWP_PackstueckZeichen IsNot Nothing Then WP.PackstueckZeichen = u.ezaWP_PackstueckZeichen + + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then + ' WP.WarenMenge = New List(Of FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp) + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge1 + ' If u.ezaWP_WarenMasseinheit1 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit1 + ' If u.ezaWP_WarenQualifier1 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier1 + ' WP.WarenMenge.Add(WM) + ' End If + ' If u.ezaWP_Warenmenge2 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge2 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge2 + ' If u.ezaWP_WarenMasseinheit2 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit2 + ' If u.ezaWP_WarenQualifier2 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier2 + ' WP.WarenMenge.Add(WM) + ' End If + ' If u.ezaWP_Warenmenge3 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge3 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge3 + ' If u.ezaWP_WarenMasseinheit3 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit3 + ' If u.ezaWP_WarenQualifier3 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier3 + ' WP.WarenMenge.Add(WM) + ' End If + ' If u.ezaWP_Warenmenge4 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge4 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge4 + ' If u.ezaWP_WarenMasseinheit4 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit4 + ' If u.ezaWP_WarenQualifier4 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier4 + ' WP.WarenMenge.Add(WM) + ' End If + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge1 + ' If u.ezaWP_WarenMasseinheit1 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit1 + ' If u.ezaWP_WarenQualifier1 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier1 + ' WP.WarenMenge.Add(WM) + ' End If + ' End If + + ' If u.ezaWP_BeguenstigungBenatragtCode IsNot Nothing Then WP.BeguenstigungBeantragtCode = u.ezaWP_BeguenstigungBenatragtCode + ' If u.ezaWP_Kentigentnummer1 IsNot Nothing Then WP.Kontingentnummer.Add(u.ezaWP_Kentigentnummer1) + ' If u.ezaWP_Kentigentnummer2 IsNot Nothing Then WP.Kontingentnummer.Add(u.ezaWP_Kentigentnummer2) + ' If u.ezaWP_PositionsZusatz IsNot Nothing Then WP.PositionsZusatz = u.ezaWP_PositionsZusatz + ' If u.ezaWP_Artikelpreis IsNot Nothing Then WP.Artikelpreis = u.ezaWP_Artikelpreis + ' If u.ezaWP_OrtVerbringens IsNot Nothing Then WP.OrtVerbringens = u.ezaWP_OrtVerbringens + ' If u.ezaWP_AbflughafenIATACode IsNot Nothing Then WP.AbflughafenIATACode = u.ezaWP_AbflughafenIATACode + ' If u.ezaWP_WarenmengeAVUVZugang IsNot Nothing Then WP.WarenmengeAVUVZugang = u.ezaWP_WarenmengeAVUVZugang + ' If u.ezaWP_WarenmengeAVUVZugangMasseinheit IsNot Nothing Then WP.WarenmengeAVUVZugangMasseinheit = u.ezaWP_WarenmengeAVUVZugangMasseinheit + ' If u.ezaWP_WarenmengeAVUVZugangMasseinheitQualifier IsNot Nothing Then WP.WarenmengeAVUVZugangMasseinheitQualifier = u.ezaWP_WarenmengeAVUVZugangMasseinheitQualifier + ' If u.ezaWP_Sachbereich IsNot Nothing Then WP.Sachbereich = u.ezaWP_Sachbereich + ' If u.ezaWP_SachbereichCode IsNot Nothing Then WP.SachbereichCode = u.ezaWP_SachbereichCode + ' If u.ezaWP_BedingungCode IsNot Nothing Then WP.BedingungCode = u.ezaWP_BedingungCode + ' If u.ezaWP_VeredelungWertsteigerung IsNot Nothing Then WP.VeredelungWertsteigerung = u.ezaWP_VeredelungWertsteigerung + ' If u.ezaWP_TabakSteuerzeichenID IsNot Nothing Then WP.TabakSteuerzeichenID = u.ezaWP_TabakSteuerzeichenID + + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then + ' WP.Gehaltsangaben = New List(Of FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp) + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then + ' Dim GA As New FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then GA.ArtCode = u.ezaWP_GehaltsAngabenArtCode1 + ' If u.ezaWP_GehaltsAngabenGradProzent1 IsNot Nothing Then GA.GradProzent = u.ezaWP_GehaltsAngabenGradProzent1 + ' WP.Gehaltsangaben.Add(GA) + ' End If + ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then + ' Dim GA As New FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then GA.ArtCode = u.ezaWP_GehaltsAngabenArtCode2 + ' If u.ezaWP_GehaltsAngabenGradProzent2 IsNot Nothing Then GA.GradProzent = u.ezaWP_GehaltsAngabenGradProzent2 + ' WP.Gehaltsangaben.Add(GA) + ' End If + ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then + ' Dim GA As New FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then GA.ArtCode = u.ezaWP_GehaltsAngabenArtCode3 + ' If u.ezaWP_GehaltsAngabenGradProzent3 IsNot Nothing Then GA.GradProzent = u.ezaWP_GehaltsAngabenGradProzent3 + ' WP.Gehaltsangaben.Add(GA) + ' End If + ' End If + ' If u.ezaWP_BeguenstigungsMengeMenge IsNot Nothing Then + ' WP.Beguenstigungsmenge = New FreierVerkehrAktVeredelUmwandlung_004.BeguenstigungsMengeAVUVTyp + ' If u.ezaWP_BeguenstigungsMengeMenge IsNot Nothing Then WP.Beguenstigungsmenge.Menge = u.ezaWP_BeguenstigungsMengeMenge + ' If u.ezaWP_BeguenstigungsMengeMasseinheitCode IsNot Nothing Then WP.Beguenstigungsmenge.MasseinheitCode = u.ezaWP_BeguenstigungsMengeMasseinheitCode + ' If u.ezaWP_BeguenstigungsMengeQualifier IsNot Nothing Then WP.Beguenstigungsmenge.MasseinheitQualifier = u.ezaWP_BeguenstigungsMengeQualifier + ' End If + + ' If u.ezaWP_VERBRAUCHSSTEUER.Count > 0 Then + ' WP.Verbrauchssteuer = New List(Of FreierVerkehrAktVeredelUmwandlung_004.VerbrauchssteuerAVUVTyp) + ' For Each v In u.ezaWP_VERBRAUCHSSTEUER + ' Dim VS As New FreierVerkehrAktVeredelUmwandlung_004.VerbrauchssteuerAVUVTyp + ' If v.ezaWpVs_VerbrauchsteuerCode IsNot Nothing Then VS.VerbrauchsteuerCode = v.ezaWpVs_VerbrauchsteuerCode + ' If v.ezaWpVs_VerbrauchssteuerMenge IsNot Nothing Then VS.VerbrauchssteuerMenge = v.ezaWpVs_VerbrauchssteuerMenge + ' If v.ezaWpVs_VerbrauchssteuerMasseinheitCode IsNot Nothing Then VS.VerbrauchssteuerMasseinheitCode = v.ezaWpVs_VerbrauchssteuerMasseinheitCode + ' If v.ezaWpVs_VerbrauchssteuerMasseinheitQualifier IsNot Nothing Then VS.VerbrauchssteuerMasseinheitQualifier = v.ezaWpVs_VerbrauchssteuerMasseinheitQualifier + ' If v.ezaWpVs_GradProzent IsNot Nothing Then VS.GradProzent = v.ezaWpVs_GradProzent + ' If v.ezaWpVs_VerbrauchssteuerWertbasis IsNot Nothing Then VS.VerbrauchssteuerWertBasis = v.ezaWpVs_VerbrauchssteuerWertbasis + ' WP.Verbrauchssteuer.Add(VS) + ' Next + ' End If + + ' 'Abgabenminderiung + ' If u.ezaWP_Abgabenminderung_AbgabengruppeCode1 IsNot Nothing Then + ' WP.Abgabenminderung = New List(Of FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp) + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then + ' Dim AM As New FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then AM.AbgabengruppeCode = u.ezaWP_GehaltsAngabenArtCode1 + ' If u.ezaWP_Abgabenminderung_Minderungsbetrag1 IsNot Nothing Then AM.Minderungsbetrag = u.ezaWP_Abgabenminderung_Minderungsbetrag1 + ' WP.Abgabenminderung.Add(AM) + ' End If + ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then + ' Dim AM As New FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then AM.AbgabengruppeCode = u.ezaWP_GehaltsAngabenArtCode2 + ' If u.ezaWP_Abgabenminderung_Minderungsbetrag2 IsNot Nothing Then AM.Minderungsbetrag = u.ezaWP_Abgabenminderung_Minderungsbetrag2 + ' WP.Abgabenminderung.Add(AM) + ' End If + ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then + ' Dim AM As New FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then AM.AbgabengruppeCode = u.ezaWP_GehaltsAngabenArtCode3 + ' If u.ezaWP_Abgabenminderung_Minderungsbetrag3 IsNot Nothing Then AM.Minderungsbetrag = u.ezaWP_Abgabenminderung_Minderungsbetrag3 + ' WP.Abgabenminderung.Add(AM) + ' End If + ' End If + + ' 'Sonderfalldaten + ' If u.ezaWP_SONDERFALLDATEN.Count > 0 Then + ' WP.Sonderfalldaten = New List(Of FreierVerkehrAktVeredelUmwandlung_004.SonderfalldatenAVUVTyp) + ' For Each v In u.ezaWP_SONDERFALLDATEN + ' Dim SD As New FreierVerkehrAktVeredelUmwandlung_004.SonderfalldatenAVUVTyp + ' If v.ezaWpSfd_SonderabgabenGruppeCode IsNot Nothing Then SD.SonderabgabenGruppeCode = v.ezaWpSfd_SonderabgabenGruppeCode + ' If v.ezaWpSfd_AnwendungArt IsNot Nothing Then SD.AnwendungArt = v.ezaWpSfd_AnwendungArt + ' If v.ezaWpSfd_SatzBetragFaktor IsNot Nothing Then SD.SatzBetragFaktor = v.ezaWpSfd_SatzBetragFaktor + ' WP.Sonderfalldaten.Add(SD) + ' Next + ' End If + + ' 'unterlagen + ' If u.ezaWP_UNTERLAGEN.Count > 0 Then + ' WP.Unterlage = New List(Of FreierVerkehrAktVeredelUmwandlung_004.UnterlageVZPositionAVUVTyp) + ' For Each v In u.ezaWP_UNTERLAGEN + ' Dim UL As New FreierVerkehrAktVeredelUmwandlung_004.UnterlageVZPositionAVUVTyp + ' If v.ezaWpUl_Bereich IsNot Nothing Then UL.Bereich = v.ezaWpUl_Bereich + ' If v.ezaWpUl_Art IsNot Nothing Then UL.Art = v.ezaWpUl_Art + ' If v.ezaWpUl_Nummer IsNot Nothing Then UL.Nummer = v.ezaWpUl_Nummer + ' If v.ezaWpUl_DatumAusstellung IsNot Nothing Then UL.DatumAusstellung = v.ezaWpUl_DatumAusstellung + ' If v.ezaWpUl_VorlageKz IsNot Nothing Then UL.VorlageKz = CInt(Int(v.ezaWpUl_VorlageKz)) + ' If v.ezaWpUl_AbschreibungsMenge IsNot Nothing Then UL.AbschreibungsMenge = v.ezaWpUl_AbschreibungsMenge + ' If v.ezaWpUl_AbschreibungsMengeMasseinheit IsNot Nothing Then UL.AbschreibungsMengeMasseinheit = v.ezaWpUl_AbschreibungsMengeMasseinheit + ' If v.ezaWpUl_AbschreibungsMengeMasseinheitQualifier IsNot Nothing Then UL.AbschreibungsMengeMasseinheitQualifier = v.ezaWpUl_AbschreibungsMengeMasseinheitQualifier + ' WP.Unterlage.Add(UL) + ' Next + ' End If + + ' 'Besondere Wertangabe + ' If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then + ' WP.BesondereWertangabe = New List(Of FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp) + ' If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode1 + ' If u.ezaWP_BesondereWertangabe_Wert1 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert1 + ' WP.BesondereWertangabe.Add(BW) + ' End If + ' If u.ezaWP_BesondereWertangabe_PreisartCode2 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode2 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode2 + ' If u.ezaWP_BesondereWertangabe_Wert2 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert2 + ' WP.BesondereWertangabe.Add(BW) + ' End If + ' If u.ezaWP_BesondereWertangabe_PreisartCode3 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode3 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode3 + ' If u.ezaWP_BesondereWertangabe_Wert3 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert3 + ' WP.BesondereWertangabe.Add(BW) + ' End If + ' If u.ezaWP_BesondereWertangabe_PreisartCode4 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode4 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode4 + ' If u.ezaWP_BesondereWertangabe_Wert4 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert4 + ' WP.BesondereWertangabe.Add(BW) + ' End If + ' If u.ezaWP_BesondereWertangabe_PreisartCode5 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode5 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode5 + ' If u.ezaWP_BesondereWertangabe_Wert5 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert5 + ' WP.BesondereWertangabe.Add(BW) + ' End If + + ' End If + + + ' If u.ezaWP_VZAStatus IsNot Nothing Then WP.VZAStatus = u.ezaWP_VZAStatus + ' If u.ezaWP_EGZStatus IsNot Nothing Then WP.EGZStatus = u.ezaWP_EGZStatus + ' If u.ezaWP_DV1Status IsNot Nothing Then WP.DV1Status = u.ezaWP_DV1Status + ' If u.ezaWP_AnmeldeArt IsNot Nothing Then WP.AnmeldeArt = u.ezaWP_AnmeldeArt + ' If u.ezaWP_BefundDatum IsNot Nothing Then WP.BefundDatum = u.ezaWP_BefundDatum + ' If u.ezaWP_Zollverfahren IsNot Nothing Then WP.Zollverfahren = u.ezaWP_Zollverfahren + ' If u.ezaWP_AbrechnungszollstelleCode IsNot Nothing Then WP.AbrechnungszollstelleCode = u.ezaWP_AbrechnungszollstelleCode + ' If u.ezaWP_SachbereichCode IsNot Nothing Then WP.SachbereichCode = u.ezaWP_SachbereichCode + ' If u.ezaWP_RegistriernummerZA IsNot Nothing Then WP.RegistriernummervZA = u.ezaWP_RegistriernummerZA + ' If u.ezaWP_AnmeldeVErfahren IsNot Nothing Then WP.AnmeldeVerfahren = u.ezaWP_AnmeldeVErfahren + ' If u.ezaWP_Bewilligungsnummer IsNot Nothing Then WP.Bewilligungsnummer = u.ezaWP_Bewilligungsnummer + ' If u.ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte IsNot Nothing Then WP.BewilligungsnummerEndverwenderEGZDurchDritte = u.ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte + ' If u.ezaWP_Zollwert IsNot Nothing Then WP.Zollwert = u.ezaWP_Zollwert + ' If u.ezaWP_LuftfrachtkostenGesamt IsNot Nothing Then WP.LuftfrachtkostenGesamt = u.ezaWP_LuftfrachtkostenGesamt + ' If u.ezaWP_LuftfrachtkostenGesamtWaehrung IsNot Nothing Then WP.LuftfrachtkostenGesamtWaehrung = u.ezaWP_LuftfrachtkostenGesamtWaehrung + ' If u.ezaWP_IATAKursKz IsNot Nothing Then WP.IATAKursKz = CInt(Int(u.ezaWP_IATAKursKz)) + ' If u.ezaWP_KursVereinbartKz IsNot Nothing Then WP.KursBetragVereinbart = CInt(Int(u.ezaWP_KursVereinbartKz)) + ' If u.ezaWP_KursBetragVereinbart IsNot Nothing Then WP.KursBetragVereinbart = u.ezaWP_KursBetragVereinbart + ' If u.ezaWP_KursDatum IsNot Nothing Then WP.KursDatum = u.ezaWP_KursDatum + + + ' 'ABZUGHINZURECHNUNG nicht vorgesehen + + ' If u.ezaWP_Aussenhandelsstatistik_VerkehrszweigInland IsNot Nothing Then WP.Aussenhandelsstatistik.VerkehrszweigInland = u.ezaWP_Aussenhandelsstatistik_VerkehrszweigInland + ' If u.ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze IsNot Nothing Then WP.Aussenhandelsstatistik.VerkehrszweigGrenze = u.ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze + ' If u.ezaWP_Aussenhandelsstatistik_Versendungsland IsNot Nothing Then WP.Aussenhandelsstatistik.Versendungsland = u.ezaWP_Aussenhandelsstatistik_Versendungsland + ' If u.ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland IsNot Nothing Then WP.Aussenhandelsstatistik.Bestimmungsbundesland = u.ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland + ' If u.ezaWP_Aussenhandelsstatistik_Bestimmungsland IsNot Nothing Then WP.Aussenhandelsstatistik.Bestimmungsland = u.ezaWP_Aussenhandelsstatistik_Bestimmungsland + ' If u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode IsNot Nothing Then WP.Aussenhandelsstatistik.BefoerderungsmittelGrenzeStaatszugehoerigkeitCode = u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode + ' If u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt IsNot Nothing Then WP.Aussenhandelsstatistik.BefoerderungsmittelGrenzeArt = u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt + ' If u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung IsNot Nothing Then WP.Aussenhandelsstatistik.BefoerderungsmittelBeschreibung = u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung + ' If u.ezaWP_Aussenhandelsstatistik_ArtGeschaeft IsNot Nothing Then WP.Aussenhandelsstatistik.ArtGeschaeft = u.ezaWP_Aussenhandelsstatistik_ArtGeschaeft + ' If u.ezaWP_Aussenhandelsstatistik_Statistikstatus IsNot Nothing Then WP.Aussenhandelsstatistik.Statistikstatus = u.ezaWP_Aussenhandelsstatistik_Statistikstatus + + ' 'DV1 + ' If u.ezaWP_Artikelpreis IsNot Nothing Then + + ' Dim ABZHRG As New FreierVerkehrAktVeredelUmwandlung_004.AbzugHinzurechnungAVUVTyp + ' ABZHRG.Betrag = u.ezaWP_Artikelpreis + ' ABZHRG.Waehrung = u.ezaWP_ArtikelpreisWaehrung + ' ABZHRG.ArtCode = "R" + ' If If(ABZHRG.Waehrung, "") = "EUR" Then ABZHRG.KursAuslandswaehrung = 1 + + ' WP.Artikelpreis = u.ezaWP_Artikelpreis + ' WP.AbzugHinzurechnung.Add(ABZHRG) + ' End If + + + ' EA.WarenPosition.Add(WP) + ' Next + ' End If + + + ' XML.EinzelAnmeldung.Add(EA) + + + + ' saveFile = cDakosyFunftions.getDefaultFolder_SEND() & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + ' 'MsgBox(saveFile) + ' XML.SaveToFile(saveFile) + + ' replaceNullDateXML(saveFile) + ' Return True + 'End Function + + + 'Shared Function isLeerNothing(o As String) As Object + ' If o Is Nothing OrElse o = "" Then + ' Return Nothing + ' Else + ' Return o + ' End If + 'End Function + + + + + 'Shared Function generateVersandanmeldungAES(cDY As cDakosyAES, ByRef saveFile As String, DY_ACTION As String) As Boolean + ' Dim Interface_VERSION = "003" + ' Dim ObjectAktion = DY_ACTION + + + ' Dim XML As New DAKOSY_Worker.VollstaendigeAusfuhrAnmeldung.VollstaendigeAusfuhrAnmeldungEVTyp + + + ' 'Transaktion: + ' XML.Transaktion = New VollstaendigeAusfuhrAnmeldung.TransaktionExportTyp + ' XML.Transaktion.IOPartner = getIOPartner(cDY.aes_firma) ' If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + ' XML.Transaktion.IODatumZeit = Now + ' XML.Transaktion.IOReferenz = cDY.aes_Trans_Referenz + ' If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.aes_firma) ' + ' XML.Transaktion.Version = Interface_VERSION + + ' Dim EA = New VollstaendigeAusfuhrAnmeldung.EinzelVollstaendigeAusfuhrAnmeldungTyp + + ' EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL" + + ' 'ObjektIdentifizierung: + ' EA.ObjektIdentifizierung = New VollstaendigeAusfuhrAnmeldung.ObjektIdentifizierungEVTyp + ' EA.ObjektIdentifizierung.ObjektName = cDY.aes_ObjectName + ' If cDY.aes_ObjectAlias IsNot Nothing Then EA.ObjektIdentifizierung.ObjektAliasname = cDY.aes_ObjectAlias + ' Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) + ' EA.ObjektIdentifizierung.ObjektAktion = ObjektAktion + ' EA.ObjektIdentifizierung.Bearbeiter = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME.Length > 20, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME) + ' 'EA.ObjektIdentifizierung.CompliancePruefung= + ' EA.ObjektIdentifizierung.ObjektName = cDY.aes_ObjectName + ' If cDY.aes_BezugsnummerVorblendung IsNot Nothing Then EA.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.aes_BezugsnummerVorblendung + + ' 'KopfDaten + ' EA.KopfDaten = New VollstaendigeAusfuhrAnmeldung.KopfDatenVollstaendigeAusfuhranmeldungTyp + ' If cDY.aes_AnmeldeArtAusfuhrCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtAusfuhrCode = cDY.aes_AnmeldeArtAusfuhrCode + ' If cDY.aes_AnmeldeArtVerfahrensCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtVerfahrenCode = cDY.aes_AnmeldeArtVerfahrensCode + ' If cDY.aes_AnmeldeArtUeberfuehrungCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtUeberfuehrungCode = cDY.aes_AnmeldeArtUeberfuehrungCode + ' If cDY.aes_Ausfuhrland IsNot Nothing Then EA.KopfDaten.AusfuhrlandCode = cDY.aes_Ausfuhrland + ' If cDY.aes_BestimmungslandCode IsNot Nothing Then EA.KopfDaten.BestimmungslandCode = cDY.aes_BestimmungslandCode + ' If cDY.aes_AnmeldedatumZeit IsNot Nothing Then EA.KopfDaten.AnmeldeDatumZeit = cDY.aes_AnmeldedatumZeit + ' If cDY.aes_DatumAusgang IsNot Nothing Then EA.KopfDaten.DatumAusgang = cDY.aes_DatumAusgang + + ' If cDY.aes_MassgeblichesDatum IsNot Nothing Then EA.KopfDaten.MassgeblichesDatum = cDY.aes_MassgeblichesDatum + + ' If cDY.aes_BesondereUmstaende IsNot Nothing Then EA.KopfDaten.BesondereUmstaende = cDY.aes_BesondereUmstaende + ' If cDY.aes_Zahlungsweisebefoerderungskosten IsNot Nothing Then EA.KopfDaten.ZahlungsweiseBefoerderungskosten = cDY.aes_Zahlungsweisebefoerderungskosten + ' If cDY.aes_ContainerIndikator IsNot Nothing Then EA.KopfDaten.ContainerIndikator = cDY.aes_ContainerIndikator + ' If cDY.aes_BeteiligteKonstellation IsNot Nothing Then EA.KopfDaten.BeteiligtenKonstellation = cDY.aes_BeteiligteKonstellation + ' 'If cDY.aes_AdressdatenKonstellation IsNot Nothing Then EA.KopfDaten.AdressatenKonstellation = cDY.aes_AdressdatenKonstellation --> OHNE FUNK + ' If cDY.aes_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(cDY.aes_GesamtRohmasse) Then EA.KopfDaten.GesamtRohMasse = CDbl(CDbl(cDY.aes_GesamtRohmasse).ToString("N1")) + ' If cDY.aes_RegistriernummerFremdsystem IsNot Nothing Then EA.KopfDaten.RegistrierNummerFremdSystem = cDY.aes_RegistriernummerFremdsystem + ' If cDY.aes_Vermerk IsNot Nothing Then EA.KopfDaten.Vermerk = cDY.aes_Vermerk + ' If cDY.aes_KennnummerSendung IsNot Nothing Then EA.KopfDaten.KennnummerSendung = cDY.aes_KennnummerSendung + ' If cDY.aes_AnzahlPositionen IsNot Nothing Then EA.KopfDaten.AnzahlPositionen = cDY.aes_AnzahlPositionen + ' If cDY.aes_BewiligungsnummerAusfuhr IsNot Nothing Then EA.KopfDaten.BewilligungsnummerAusfuhr = cDY.aes_BewiligungsnummerAusfuhr + ' If cDY.aes_BewiligungsnummerAnschreibeverfahren IsNot Nothing Then EA.KopfDaten.BewilligungsnummerAnschreibeverfahren = cDY.aes_BewiligungsnummerAnschreibeverfahren + ' If cDY.aes_BewiligungsnummerPassiveVeredelung IsNot Nothing Then EA.KopfDaten.BewilligungsnummerPassiveVeredelung = cDY.aes_BewiligungsnummerPassiveVeredelung + ' If cDY.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer IsNot Nothing Then EA.KopfDaten.BewilligungsnummerVertrauenswuerdigerAusfuehrer = cDY.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer + ' If cDY.aes_VerkehrszweigInland IsNot Nothing Then EA.KopfDaten.VerkehrszweigInland = cDY.aes_VerkehrszweigInland + ' If cDY.aes_VerkehrszweigGrenze IsNot Nothing Then EA.KopfDaten.VerkehrszweigGrenze = cDY.aes_VerkehrszweigGrenze + + ' 'BefoerderungsmittelAbgang + ' If cDY.aes_BefoerderungsmittelAbgangArtCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.ArtCode = cDY.aes_BefoerderungsmittelAbgangArtCode + ' If cDY.aes_BefoerderungsmittelAbgangKennzeichen IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.Kennzeichen = cDY.aes_BefoerderungsmittelAbgangKennzeichen + ' If cDY.aes_BefoerderungsmittelAbgangStaatCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.StaatCode = cDY.aes_BefoerderungsmittelAbgangStaatCode + + ' 'BefoerderungsmittelGrenze + ' If cDY.aes_BefoerderungsmittelGrenzeArtCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.ArtCode = cDY.aes_BefoerderungsmittelGrenzeArtCode + ' If cDY.aes_BefoerderungsmittelGrenzeKennzeichen IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.Kennzeichen = cDY.aes_BefoerderungsmittelGrenzeKennzeichen + ' If cDY.aes_BefoerderungsmittelGrenzeStaatCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.StaatCode = cDY.aes_BefoerderungsmittelGrenzeStaatCode + + ' 'Ladeort + ' 'If cDY.aes_LadeortOrt IsNot Nothing Then EA.KopfDaten.Ladeort = cDY.aes_LadeortOrt ---> ÜBERBEGRIFF + ' If cDY.aes_LadeortOrtId IsNot Nothing Then EA.KopfDaten.Ladeort.OrtID = cDY.aes_LadeortOrtId + ' If cDY.aes_LadeortStrasse IsNot Nothing Then EA.KopfDaten.Ladeort.Strasse = cDY.aes_LadeortStrasse + ' If cDY.aes_LadeortOrt IsNot Nothing Then EA.KopfDaten.Ladeort.Ort = cDY.aes_LadeortOrt + ' If cDY.aes_LadeortPLZ IsNot Nothing Then EA.KopfDaten.Ladeort.PLZ = cDY.aes_LadeortPLZ + ' If cDY.aes_LadeortZusatz IsNot Nothing Then EA.KopfDaten.Ladeort.Zusatz = cDY.aes_LadeortZusatz + + ' If cDY.aes_AusfuhrZollstelleID IsNot Nothing Then EA.KopfDaten.AusfuhrZollstelleID = cDY.aes_AusfuhrZollstelleID + ' If cDY.aes_AusgangszollstelleID IsNot Nothing Then EA.KopfDaten.AusgangZollstelleID = cDY.aes_AusgangszollstelleID + ' If cDY.aes_TatsaechlicheAusgangZollstelleID IsNot Nothing Then EA.KopfDaten.TatsaechlicheAusgangZollstelleID = cDY.aes_TatsaechlicheAusgangZollstelleID + ' If cDY.aes_GeschaeftartCode IsNot Nothing Then EA.KopfDaten.GeschaeftArtCode = cDY.aes_GeschaeftartCode + ' If cDY.aes_Rechnungspreis IsNot Nothing Then EA.KopfDaten.Rechnungspreis = cDY.aes_Rechnungspreis.replace(",", ".") + ' If cDY.aes_Rechnungwaehrung IsNot Nothing Then EA.KopfDaten.Rechnungswaehrung = cDY.aes_Rechnungwaehrung + ' If cDY.aes_BesondererTatbestand IsNot Nothing Then EA.KopfDaten.BesondererTatbestand = cDY.aes_BesondererTatbestand + + ' 'Verschluss + ' If cDY.aes_VerschlussArtCode IsNot Nothing Then EA.KopfDaten.Verschluss.ArtCode = cDY.aes_VerschlussArtCode + ' If cDY.aes_VerschlussAnzahl IsNot Nothing Then EA.KopfDaten.Verschluss.Anzahl = cDY.aes_VerschlussAnzahl + ' EA.KopfDaten.Verschluss.Zeichen = New List(Of String) + ' If cDY.aes_VerschlussZeichen1 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen1) + ' If cDY.aes_VerschlussZeichen2 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen2) + ' If cDY.aes_VerschlussZeichen3 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen3) + ' If cDY.aes_VerschlussZeichen4 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen4) + ' If cDY.aes_VerschlussZeichen5 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen5) + ' If cDY.aes_VerschlussZeichen6 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen6) + ' If cDY.aes_VerschlussZeichen7 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen7) + ' If cDY.aes_VerschlussZeichen8 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen8) + ' If cDY.aes_VerschlussZeichen9 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen9) + ' If cDY.aes_VerschlussZeichen10 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen10) + ' If cDY.aes_VerschlussZeichen11 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen11) + ' If cDY.aes_VerschlussZeichen12 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen12) + + ' If cDY.aes_GestellungsfristAnfangDatumZeit IsNot Nothing Then EA.KopfDaten.Gestellungsfrist.AnfangDatumZeit = cDY.aes_GestellungsfristAnfangDatumZeit + ' If cDY.aes_GestellungsfristEndeDatumZeit IsNot Nothing Then EA.KopfDaten.Gestellungsfrist.EndeDatumZeit = cDY.aes_GestellungsfristEndeDatumZeit + + ' 'Ausfuehrer + ' If (cDY.aes_AusfuehrerTeilnehmerEORI IsNot Nothing Or cDY.aes_AusfuehrerTeilnehmerName <> "") Then + ' If cDY.aes_AusfuehrerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Ausfuehrer.TeilnehmerEORI = cDY.aes_AusfuehrerTeilnehmerEORI + ' If cDY.aes_AusfuehrerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_AusfuehrerTeilnehmerNLNR) Then EA.KopfDaten.Ausfuehrer.TeilnehmerNLNR = cDY.aes_AusfuehrerTeilnehmerNLNR + ' If cDY.aes_AusfuehrerTeilnehmerName IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Name = cDY.aes_AusfuehrerTeilnehmerName + ' If cDY.aes_AusfuehrerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Strasse = cDY.aes_AusfuehrerTeilnehmerStrasse + ' If cDY.aes_AusfuehrerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ort = cDY.aes_AusfuehrerTeilnehmerOrt + ' If cDY.aes_AusfuehrerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Ausfuehrer.PLZ = cDY.aes_AusfuehrerTeilnehmerPLZ + ' If cDY.aes_AusfuehrerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Ausfuehrer.LandCode = cDY.aes_AusfuehrerTeilnehmerLandCode + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Sachbearbeiter = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Telefonnummer = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Telefaxnummer = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.EmailAdresse = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Stellung = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'Empfaenger + ' If (cDY.aes_EmpfaengerTeilnehmerEORI IsNot Nothing Or cDY.aes_EmpfaengerTeilnehmerName <> "") Then + ' If cDY.aes_EmpfaengerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Empfaenger.TeilnehmerEORI = cDY.aes_EmpfaengerTeilnehmerEORI + ' If cDY.aes_EmpfaengerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_EmpfaengerTeilnehmerNLNR) Then EA.KopfDaten.Empfaenger.TeilnehmerNLNR = cDY.aes_EmpfaengerTeilnehmerNLNR + ' If cDY.aes_EmpfaengerTeilnehmerName IsNot Nothing Then EA.KopfDaten.Empfaenger.Name = cDY.aes_EmpfaengerTeilnehmerName + ' If cDY.aes_EmpfaengerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Empfaenger.Strasse = cDY.aes_EmpfaengerTeilnehmerStrasse + ' If cDY.aes_EmpfaengerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Empfaenger.Ort = cDY.aes_EmpfaengerTeilnehmerOrt + ' If cDY.aes_EmpfaengerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Empfaenger.PLZ = cDY.aes_EmpfaengerTeilnehmerPLZ + ' If cDY.aes_EmpfaengerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Empfaenger.LandCode = cDY.aes_EmpfaengerTeilnehmerLandCode + ' End If + + ' 'Anmelder + ' If (cDY.aes_AnmelderTeilnehmerEORI IsNot Nothing Or cDY.aes_AnmelderTeilnehmerName <> "") Then + ' If cDY.aes_AnmelderTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Anmelder.TeilnehmerEORI = cDY.aes_AnmelderTeilnehmerEORI + ' If cDY.aes_AnmelderTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_AnmelderTeilnehmerNLNR) Then EA.KopfDaten.Anmelder.TeilnehmerNLNR = cDY.aes_AnmelderTeilnehmerNLNR + ' If cDY.aes_AnmelderTeilnehmerName IsNot Nothing Then EA.KopfDaten.Anmelder.Name = cDY.aes_AnmelderTeilnehmerName + ' If cDY.aes_AnmelderTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Anmelder.Strasse = cDY.aes_AnmelderTeilnehmerStrasse + ' If cDY.aes_AnmelderTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Anmelder.Ort = cDY.aes_AnmelderTeilnehmerOrt + ' If cDY.aes_AnmelderTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Anmelder.PLZ = cDY.aes_AnmelderTeilnehmerPLZ + ' If cDY.aes_AnmelderTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Anmelder.LandCode = cDY.aes_AnmelderTeilnehmerLandCode + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Sachbearbeiter = cDY.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Telefonnummer = cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Telefaxnummer = cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.EmailAdresse = cDY.aes_AnmelderTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Stellung = cDY.aes_AnmelderTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'VertreterAnmelder + ' If (cDY.aes_VertreterAnmelderTeilnehmerEORI IsNot Nothing Or cDY.aes_VertreterAnmelderTeilnehmerName <> "") Then + ' If cDY.aes_VertreterAnmelderTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.TeilnehmerEORI = cDY.aes_VertreterAnmelderTeilnehmerEORI + ' If cDY.aes_VertreterAnmelderTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_VertreterAnmelderTeilnehmerNLNR) Then EA.KopfDaten.VertreterAnmelder.TeilnehmerNLNR = cDY.aes_VertreterAnmelderTeilnehmerNLNR + ' If cDY.aes_VertreterAnmelderTeilnehmerName IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Name = cDY.aes_VertreterAnmelderTeilnehmerName + ' If cDY.aes_VertreterAnmelderTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Strasse = cDY.aes_VertreterAnmelderTeilnehmerStrasse + ' If cDY.aes_VertreterAnmelderTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ort = cDY.aes_VertreterAnmelderTeilnehmerOrt + ' If cDY.aes_VertreterAnmelderTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.PLZ = cDY.aes_VertreterAnmelderTeilnehmerPLZ + ' If cDY.aes_VertreterAnmelderTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.LandCode = cDY.aes_VertreterAnmelderTeilnehmerLandCode + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Sachbearbeiter = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Telefonnummer = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Telefaxnummer = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.EmailAdresse = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Stellung = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'Subunternehmer + ' If (cDY.aes_SubunternehmerTeilnehmerEORI IsNot Nothing Or cDY.aes_SubunternehmerTeilnehmerName <> "") Then + ' If cDY.aes_SubunternehmerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.SubUnternehmer.TeilnehmerEORI = cDY.aes_SubunternehmerTeilnehmerEORI + ' If cDY.aes_SubunternehmerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_SubunternehmerTeilnehmerNLNR) Then EA.KopfDaten.SubUnternehmer.TeilnehmerNLNR = cDY.aes_SubunternehmerTeilnehmerNLNR + ' If cDY.aes_SubunternehmerTeilnehmerName IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Name = cDY.aes_SubunternehmerTeilnehmerName + ' If cDY.aes_SubunternehmerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Strasse = cDY.aes_SubunternehmerTeilnehmerStrasse + ' If cDY.aes_SubunternehmerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ort = cDY.aes_SubunternehmerTeilnehmerOrt + ' If cDY.aes_SubunternehmerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.SubUnternehmer.PLZ = cDY.aes_SubunternehmerTeilnehmerPLZ + ' If cDY.aes_SubunternehmerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.SubUnternehmer.LandCode = cDY.aes_SubunternehmerTeilnehmerLandCode + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Sachbearbeiter = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Telefonnummer = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Telefaxnummer = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.EmailAdresse = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Stellung = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'VerfahrensinhaberPV + ' If (cDY.aes_VerfahrensinhaberPVTeilnehmerEORI) Then + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerEORI = cDY.aes_VerfahrensinhaberPVTeilnehmerEORI + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR) Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerNLNR = cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Sachbearbeiter = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Telefonnummer = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Telefaxnummer = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.EmailAdresse = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Stellung = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'BefoerderungsrouteLand + ' EA.KopfDaten.BefoerderungsrouteLand = New List(Of String) + ' If cDY.aes_BefoerderungsrouteLand1 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand1) + ' If cDY.aes_BefoerderungsrouteLand2 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand2) + ' If cDY.aes_BefoerderungsrouteLand3 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand3) + ' If cDY.aes_BefoerderungsrouteLand4 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand4) + ' If cDY.aes_BefoerderungsrouteLand5 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand5) + ' If cDY.aes_BefoerderungsrouteLand6 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand6) + ' If cDY.aes_BefoerderungsrouteLand7 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand7) + ' If cDY.aes_BefoerderungsrouteLand8 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand8) + ' If cDY.aes_BefoerderungsrouteLand9 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand9) + ' If cDY.aes_BefoerderungsrouteLand10 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand10) + ' If cDY.aes_BefoerderungsrouteLand11 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand11) + ' If cDY.aes_BefoerderungsrouteLand12 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand12) + + ' 'Warenpositionen + ' EA.WarenPosition = New List(Of VollstaendigeAusfuhrAnmeldung.PositionVollstaendigeAusfuhranmeldungTyp) + ' If cDY.aes_WARENPOS IsNot Nothing AndAlso cDY.aes_WARENPOS.Count > 0 Then + ' For Each WP In cDY.aes_WARENPOS + ' Dim WP_DY As New VollstaendigeAusfuhrAnmeldung.PositionVollstaendigeAusfuhranmeldungTyp + ' If WP.aesWP_PositionsNummer IsNot Nothing Then WP_DY.Positionsnummer = WP.aesWP_PositionsNummer + ' If WP.aesWP_WarennummerKN8 IsNot Nothing Then WP_DY.WarenNummerKN8 = WP.aesWP_WarennummerKN8 + ' If WP.aesWP_WarennummerTARIC IsNot Nothing Then WP_DY.WarenNummerTARIC = WP.aesWP_WarennummerTARIC + ' If WP.aesWP_WarennummerZusatz1 IsNot Nothing Then WP_DY.WarenNummerZusatz1 = WP.aesWP_WarennummerZusatz1 + ' If WP.aesWP_WarennummerZusatz2 IsNot Nothing Then WP_DY.WarenNummerZusatz2 = WP.aesWP_WarennummerZusatz2 + ' If WP.aesWP_WarennummerNational IsNot Nothing Then WP_DY.WarenNummerNational = WP.aesWP_WarennummerNational + ' If WP.aesWP_RegisternummerFremdsystem IsNot Nothing Then WP_DY.RegistrierNummerFremdSystem = WP.aesWP_RegisternummerFremdsystem + ' If WP.aesWP_Vermerk IsNot Nothing Then WP_DY.Vermerk = WP.aesWP_Vermerk + ' If WP.aesWP_KennungSendung IsNot Nothing Then WP_DY.KennnummerSendung = WP.aesWP_KennungSendung + ' If WP.aesWP_UrsprungsbundeslandCode IsNot Nothing Then WP_DY.UrsprungsbundeslandCode = WP.aesWP_UrsprungsbundeslandCode + ' If WP.aesWP_Eigenmasse IsNot Nothing Then WP_DY.Eigenmasse = WP.aesWP_Eigenmasse + ' If WP.aesWP_Rohmasse IsNot Nothing Then WP_DY.Rohmasse = WP.aesWP_Rohmasse + + ' If WP.aesWP_Gefahrgutnummer IsNot Nothing Then WP_DY.Gefahrgutnummer = WP.aesWP_Gefahrgutnummer + ' If WP.aesWP_ZahlungsweiseBefoerderungskosten IsNot Nothing Then WP_DY.ZahlungsweiseBefoerderungskosten = WP.aesWP_ZahlungsweiseBefoerderungskosten + ' If WP.aesWP_VerfahrenAngemeldetCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenAngemeldetCode = WP.aesWP_VerfahrenAngemeldetCode + ' If WP.aesWP_VerfahrenVorangegangenCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenVorangegangenCode = WP.aesWP_VerfahrenVorangegangenCode + ' If WP.aesWP_VerfahrenNationalCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenNationalCode = WP.aesWP_VerfahrenNationalCode + ' If WP.aesWP_AusfuhrerstattungVerfahrensCode IsNot Nothing Then WP_DY.AusfuhrerstattungVerfahrenscode = WP.aesWP_AusfuhrerstattungVerfahrensCode + ' If WP.aesWP_Menge IsNot Nothing Then WP_DY.Menge = WP.aesWP_Menge + ' If WP.aesWP_Wert IsNot Nothing Then WP_DY.Wert = WP.aesWP_Wert + + ' WP_DY.Vorpapier = New List(Of VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp) + ' If WP.aesWP_VorpapierTypCode1 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode1 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode1 + ' If WP.aesWP_ReferenzID1 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID1 + ' If WP.aesWP_Zusatz1 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz1 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode2 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode2 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode2 + ' If WP.aesWP_ReferenzID2 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID2 + ' If WP.aesWP_Zusatz2 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz2 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode3 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode3 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode3 + ' If WP.aesWP_ReferenzID3 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID3 + ' If WP.aesWP_Zusatz3 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz3 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode4 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode4 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode4 + ' If WP.aesWP_ReferenzID4 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID4 + ' If WP.aesWP_Zusatz4 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz4 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode5 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode5 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode5 + ' If WP.aesWP_ReferenzID5 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID5 + ' If WP.aesWP_Zusatz5 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz5 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode6 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode6 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode6 + ' If WP.aesWP_ReferenzID6 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID6 + ' If WP.aesWP_Zusatz6 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz6 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode7 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode7 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode7 + ' If WP.aesWP_ReferenzID7 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID7 + ' If WP.aesWP_Zusatz7 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz7 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode8 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode8 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode8 + ' If WP.aesWP_ReferenzID8 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID8 + ' If WP.aesWP_Zusatz8 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz8 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode9 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode9 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode9 + ' If WP.aesWP_ReferenzID9 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID9 + ' If WP.aesWP_Zusatz9 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz9 + ' WP_DY.Vorpapier.Add(VP) + ' End If + + ' 'Packstueck + ' WP_DY.Packstueck = New List(Of VollstaendigeAusfuhrAnmeldung.PackstueckEVTyp) + ' If WP.aesWP_PACKSTUECKE IsNot Nothing AndAlso WP.aesWP_PACKSTUECKE.Count > 0 Then + ' For Each PK In WP.aesWP_PACKSTUECKE + ' Dim PK_DY As New VollstaendigeAusfuhrAnmeldung.PackstueckEVTyp + ' If PK.aesWpPk_PackstueckeAnzahl IsNot Nothing Then PK_DY.Anzahl = PK.aesWpPk_PackstueckeAnzahl.ToString.Replace(".", "") + ' If PK.aesWpPk_Verpackungsart IsNot Nothing Then PK_DY.VerpackungsartCode = PK.aesWpPk_Verpackungsart + ' If PK.aesWpPk_Kennzeichnung IsNot Nothing Then PK_DY.Kennzeichnung = PK.aesWpPk_Kennzeichnung + ' WP_DY.Packstueck.Add(PK_DY) + ' Next + ' End If + + ' 'Container + ' WP_DY.ContainerNummer = New List(Of String) + ' If WP.aesWP_Containernummer1 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer1) + ' If WP.aesWP_Containernummer2 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer2) + ' If WP.aesWP_Containernummer3 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer3) + ' If WP.aesWP_Containernummer4 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer4) + + ' 'Unterlage + ' WP_DY.Unterlage = New List(Of VollstaendigeAusfuhrAnmeldung.UnterlageEVTyp) + ' If WP.aesWP_UNTERLAGEN IsNot Nothing AndAlso WP.aesWP_UNTERLAGEN.Count > 0 Then + ' For Each UL In WP.aesWP_UNTERLAGEN + ' Dim UL_DY As New VollstaendigeAusfuhrAnmeldung.UnterlageEVTyp + ' If UL.aesWpUl_Typ IsNot Nothing Then UL_DY.TypCode = UL.aesWpUl_Typ + ' If UL.aesWpUl_QualifierCode IsNot Nothing Then UL_DY.QualifierCode = UL.aesWpUl_QualifierCode + ' If UL.aesWpUl_ReferenzID IsNot Nothing Then UL_DY.ReferenzID = UL.aesWpUl_ReferenzID + ' If UL.aesWpUl_Zusatz IsNot Nothing Then UL_DY.Zusatz = UL.aesWpUl_Zusatz + ' If UL.aesWpUl_Detail IsNot Nothing Then UL_DY.Detail = UL.aesWpUl_Detail + ' If UL.aesWpUl_DatumAusstellung IsNot Nothing Then UL_DY.DatumAusstellung = UL.aesWpUl_DatumAusstellung + ' If UL.aesWpUl_DatumEndeGueltigkeit IsNot Nothing Then UL_DY.DatumEndeGueltigkeit = UL.aesWpUl_DatumEndeGueltigkeit + ' If UL.aesWpUl_Wert IsNot Nothing Then UL_DY.Wert = UL.aesWpUl_Wert + ' If UL.aesWpUl_Abschreibungsmenge IsNot Nothing Then UL_DY.Abschreibungsmenge = UL.aesWpUl_Abschreibungsmenge + ' If UL.aesWpUl_Masseinheit IsNot Nothing Then UL_DY.Masseinheit = UL.aesWpUl_Masseinheit + ' WP_DY.Unterlage.Add(UL_DY) + ' Next + ' End If + + ' If WP.aesWP_AusfuhrerstattungVerfahrensCode IsNot Nothing Then WP_DY.AusfuhrerstattungVerfahrenscode = WP.aesWP_AusfuhrerstattungVerfahrensCode + + ' 'Empfaenger + ' If (WP.aesWP_EmpfaengerTeilnehmerEORI IsNot Nothing Or WP.aesWP_EmpfaengerTeilnehmerName <> "") Then + ' If WP.aesWP_EmpfaengerTeilnehmerEORI IsNot Nothing Then WP_DY.Empfaenger.TeilnehmerEORI = WP.aesWP_EmpfaengerTeilnehmerEORI + ' If WP.aesWP_EmpfaengerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(WP.aesWP_EmpfaengerTeilnehmerNLNR) Then WP_DY.Empfaenger.TeilnehmerNLNR = WP.aesWP_EmpfaengerTeilnehmerNLNR + ' If WP.aesWP_EmpfaengerTeilnehmerName IsNot Nothing Then WP_DY.Empfaenger.Name = WP.aesWP_EmpfaengerTeilnehmerName + ' If WP.aesWP_EmpfaengerTeilnehmerStrasse IsNot Nothing Then WP_DY.Empfaenger.Strasse = WP.aesWP_EmpfaengerTeilnehmerStrasse + ' If WP.aesWP_EmpfaengerTeilnehmerOrt IsNot Nothing Then WP_DY.Empfaenger.Ort = WP.aesWP_EmpfaengerTeilnehmerOrt + ' If WP.aesWP_EmpfaengerTeilnehmerPLZ IsNot Nothing Then WP_DY.Empfaenger.PLZ = WP.aesWP_EmpfaengerTeilnehmerPLZ + ' If WP.aesWP_EmpfaengerTeilnehmerLandCode IsNot Nothing Then WP_DY.Empfaenger.LandCode = WP.aesWP_EmpfaengerTeilnehmerLandCode + ' End If + + + ' EA.WarenPosition.Add(WP_DY) + ' Next + ' End If + + + ' 'Lieferbedingungen + ' If cDY.aes_LieferbedingungenCode IsNot Nothing Then + ' EA.KopfDaten.Lieferbedingung = New VollstaendigeAusfuhrAnmeldung.LieferbedingungEVTyp + ' If cDY.aes_LieferbedingungenCode IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermCode = cDY.aes_LieferbedingungenCode + ' If cDY.aes_LieferbedingungenText IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermText = cDY.aes_LieferbedingungenText + ' If cDY.aes_LieferbedingungenOrt IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermOrt = cDY.aes_LieferbedingungenOrt + ' End If + + + ' XML.EinzelAnmeldung.Add(EA) + + ' Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" + ' If Not System.IO.Directory.Exists(saveDir) Then + ' System.IO.Directory.CreateDirectory(saveDir) + ' End If + + ' saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + ' 'MsgBox(saveFile) + ' XML.SaveToFile(saveFile) + + ' replaceNullDateXML(saveFile) + ' Return True + 'End Function + + + 'Shared Function exportVERAGKunde(kdNr() As String) As Boolean + + ' Dim XML As New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORT + + ' For Each s In kdNr + ' Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(s) + ' Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(s) + ' If KUNDE IsNot Nothing And ADRESSE IsNot Nothing Then + ' Dim XML_KD As New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDaten + ' If ADRESSE.Ordnungsbegriff IsNot Nothing Then XML_KD.Kurzname = ADRESSE.Ordnungsbegriff + ' If ADRESSE.Name_1 IsNot Nothing Then XML_KD.Name1 = ADRESSE.Name_1 + ' If ADRESSE.Name_2 IsNot Nothing Then XML_KD.Name2 = ADRESSE.Name_2 + ' If KUNDE.EORITIN IsNot Nothing Then XML_KD.EORI = KUNDE.EORITIN : XML_KD.EORI_Niederlassung = "0000" + + ' If ADRESSE.UstIdKz IsNot Nothing And ADRESSE.UstIdKz IsNot Nothing Then XML_KD.UID_Nr = ADRESSE.UstIdKz & ADRESSE.UstIdNr + ' XML_KD.Kontakt = New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDatenKontakt + ' If ADRESSE.Telefon IsNot Nothing Then XML_KD.Kontakt.Tel = ADRESSE.Telefon + ' If ADRESSE.Telefax IsNot Nothing Then XML_KD.Kontakt.Fax = ADRESSE.Telefax + ' If ADRESSE.E_Mail IsNot Nothing Then XML_KD.Kontakt.EMail = ADRESSE.E_Mail + ' If ADRESSE.Ansprechpartner IsNot Nothing Then XML_KD.Kontakt.Ansprechpartner = ADRESSE.Ansprechpartner + + ' XML_KD.Adresse = New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDatenAdresse + ' If ADRESSE.Straße IsNot Nothing Then XML_KD.Adresse.Strasse = ADRESSE.Straße + ' If ADRESSE.PLZ IsNot Nothing Then XML_KD.Adresse.Plz = ADRESSE.PLZ + ' If ADRESSE.Ort IsNot Nothing Then XML_KD.Adresse.Ort = ADRESSE.Ort + ' If ADRESSE.LandKz IsNot Nothing Then XML_KD.Adresse.LandKz = ADRESSE.LandKz + + ' XML.KundenDaten.Add(XML_KD) + ' End If + ' Next + + ' XML.SaveToFile("C:\Users\DEVELOPER1\Desktop\test\KD_TEST.xml") + + ' Return True + 'End Function +End Class + + +'Class DY_ObjektAktion +' Shared Property OBJ_CREATE As String = "CREATE" +' Shared Property OBJ_CHANGE As String = "CHANGE" +' Shared Property OBJ_CANCEL As String = "CANCEL" +' Shared Property OBJ_SEND As String = "SEND" +' End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.Designer.vb new file mode 100644 index 0000000..31bc01f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.Designer.vb @@ -0,0 +1,9764 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' CC015B_TR_EXT_V4_3ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic +Imports Codelists +Imports Constraints4 + +Namespace CC015B_TR_EXT_V4_3 + + + + Partial Public Class CC015B + +#Region "Private fields" + Private _synIdeMES1 As Codelists.CL21 + + Private _synVerNumMES2 As Codelists.CL22 + + Private _mesSenMES3 As String + + Private _senIdeCodQuaMES4 As String + + Private _mesRecMES6 As String + + Private _recIdeCodQuaMES7 As String + + Private _datOfPreMES9 As String + + Private _timOfPreMES10 As String + + Private _intConRefMES11 As String + + Private _recRefMES12 As String + + Private _recRefQuaMES13 As String + + Private _appRefMES14 As String + + Private _priMES15 As String + + Private _ackReqMES16 As Constraints4.cl27 + + Private _comAgrIdMES17 As String + + Private _tesIndMES18 As Constraints4.cl27 + + Private _mesIdeMES19 As String + + Private _mesTypMES20 As Codelists.CL60 + + Private _comAccRefMES21 As String + + Private _mesSeqNumMES22 As String + + Private _firAndLasTraMES23 As Codelists.CL28 + + Private _hEAHEA As HEAHEA + + Private _tRAPRIPC1 As TRAPRIPC1 + + Private _tRACONCO1 As TRACONCO1 + + Private _tRACONCE1 As TRACONCE1 + + Private _cUSOFFDEPEPT As CUSOFFDEPEPT + + Private _cUSOFFTRARNS As List(Of CUSOFFTRARNS) + + Private _cUSOFFDESEST As CUSOFFDESEST + + Private _gOOITEGDS As List(Of GOOITEGDS) + + Private _cARTRA100 As CARTRA100 + + Private _iTI As List(Of ITI) + + Private _cARTRA1001 As CARTRA100 + + Private _tRACORSEC037 As TRACORSEC037 + + Private _tRACONSEC029 As TRACONSEC029 + + Private _ob As List(Of ACMA) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ob = New List(Of ACMA)() + Me._tRACONSEC029 = New TRACONSEC029() + Me._tRACORSEC037 = New TRACORSEC037() + Me._cARTRA1001 = New CARTRA100() + Me._iTI = New List(Of ITI)() + Me._cARTRA100 = New CARTRA100() + Me._gOOITEGDS = New List(Of GOOITEGDS)() + Me._cUSOFFDESEST = New CUSOFFDESEST() + Me._cUSOFFTRARNS = New List(Of CUSOFFTRARNS)() + Me._cUSOFFDEPEPT = New CUSOFFDEPEPT() + Me._tRACONCE1 = New TRACONCE1() + Me._tRACONCO1 = New TRACONCO1() + Me._tRAPRIPC1 = New TRAPRIPC1() + Me._hEAHEA = New HEAHEA() + End Sub + + + Public Property SynIdeMES1() As Codelists.CL21 + Get + Return Me._synIdeMES1 + End Get + Set + Me._synIdeMES1 = Value + End Set + End Property + + + Public Property SynVerNumMES2() As Codelists.CL22 + Get + Return Me._synVerNumMES2 + End Get + Set + Me._synVerNumMES2 = Value + End Set + End Property + + + Public Property MesSenMES3() As String + Get + Return Me._mesSenMES3 + End Get + Set + Me._mesSenMES3 = Value + End Set + End Property + + + Public Property SenIdeCodQuaMES4() As String + Get + Return Me._senIdeCodQuaMES4 + End Get + Set + Me._senIdeCodQuaMES4 = Value + End Set + End Property + + + Public Property MesRecMES6() As String + Get + Return Me._mesRecMES6 + End Get + Set + Me._mesRecMES6 = Value + End Set + End Property + + + Public Property RecIdeCodQuaMES7() As String + Get + Return Me._recIdeCodQuaMES7 + End Get + Set + Me._recIdeCodQuaMES7 = Value + End Set + End Property + + + Public Property DatOfPreMES9() As String + Get + Return Me._datOfPreMES9 + End Get + Set + Me._datOfPreMES9 = Value + End Set + End Property + + + Public Property TimOfPreMES10() As String + Get + Return Me._timOfPreMES10 + End Get + Set + Me._timOfPreMES10 = Value + End Set + End Property + + + Public Property IntConRefMES11() As String + Get + Return Me._intConRefMES11 + End Get + Set + Me._intConRefMES11 = Value + End Set + End Property + + + Public Property RecRefMES12() As String + Get + Return Me._recRefMES12 + End Get + Set + Me._recRefMES12 = Value + End Set + End Property + + + Public Property RecRefQuaMES13() As String + Get + Return Me._recRefQuaMES13 + End Get + Set + Me._recRefQuaMES13 = Value + End Set + End Property + + + Public Property AppRefMES14() As String + Get + Return Me._appRefMES14 + End Get + Set + Me._appRefMES14 = Value + End Set + End Property + + + Public Property PriMES15() As String + Get + Return Me._priMES15 + End Get + Set + Me._priMES15 = Value + End Set + End Property + + + Public Property AckReqMES16() As Constraints4.cl27 + Get + Return Me._ackReqMES16 + End Get + Set + Me._ackReqMES16 = Value + End Set + End Property + + + Public Property ComAgrIdMES17() As String + Get + Return Me._comAgrIdMES17 + End Get + Set + Me._comAgrIdMES17 = Value + End Set + End Property + + + Public Property TesIndMES18() As Constraints4.cl27 + Get + Return Me._tesIndMES18 + End Get + Set + Me._tesIndMES18 = Value + End Set + End Property + + + Public Property MesIdeMES19() As String + Get + Return Me._mesIdeMES19 + End Get + Set + Me._mesIdeMES19 = Value + End Set + End Property + + + Public Property MesTypMES20() As Codelists.CL60 + Get + Return Me._mesTypMES20 + End Get + Set + Me._mesTypMES20 = Value + End Set + End Property + + + Public Property ComAccRefMES21() As String + Get + Return Me._comAccRefMES21 + End Get + Set + Me._comAccRefMES21 = Value + End Set + End Property + + + Public Property MesSeqNumMES22() As String + Get + Return Me._mesSeqNumMES22 + End Get + Set + Me._mesSeqNumMES22 = Value + End Set + End Property + + + Public Property FirAndLasTraMES23() As Codelists.CL28 + Get + Return Me._firAndLasTraMES23 + End Get + Set + Me._firAndLasTraMES23 = Value + End Set + End Property + + + Public Property HEAHEA() As HEAHEA + Get + Return Me._hEAHEA + End Get + Set + Me._hEAHEA = Value + End Set + End Property + + + Public Property TRAPRIPC1() As TRAPRIPC1 + Get + Return Me._tRAPRIPC1 + End Get + Set + Me._tRAPRIPC1 = Value + End Set + End Property + + + Public Property TRACONCO1() As TRACONCO1 + Get + Return Me._tRACONCO1 + End Get + Set + Me._tRACONCO1 = Value + End Set + End Property + + + Public Property TRACONCE1() As TRACONCE1 + Get + Return Me._tRACONCE1 + End Get + Set + Me._tRACONCE1 = Value + End Set + End Property + + + Public Property CUSOFFDEPEPT() As CUSOFFDEPEPT + Get + Return Me._cUSOFFDEPEPT + End Get + Set + Me._cUSOFFDEPEPT = Value + End Set + End Property + + + Public Property CUSOFFTRARNS() As List(Of CUSOFFTRARNS) + Get + Return Me._cUSOFFTRARNS + End Get + Set + Me._cUSOFFTRARNS = Value + End Set + End Property + + + Public Property CUSOFFDESEST() As CUSOFFDESEST + Get + Return Me._cUSOFFDESEST + End Get + Set + Me._cUSOFFDESEST = Value + End Set + End Property + + + Public Property GOOITEGDS() As List(Of GOOITEGDS) + Get + Return Me._gOOITEGDS + End Get + Set + Me._gOOITEGDS = Value + End Set + End Property + + + Public Property CARTRA100() As CARTRA100 + Get + Return Me._cARTRA100 + End Get + Set + Me._cARTRA100 = Value + End Set + End Property + + + Public Property ITI() As List(Of ITI) + Get + Return Me._iTI + End Get + Set + Me._iTI = Value + End Set + End Property + + + Public Property CARTRA1001() As CARTRA100 + Get + Return Me._cARTRA1001 + End Get + Set + Me._cARTRA1001 = Value + End Set + End Property + + + Public Property TRACORSEC037() As TRACORSEC037 + Get + Return Me._tRACORSEC037 + End Get + Set + Me._tRACORSEC037 = Value + End Set + End Property + + + Public Property TRACONSEC029() As TRACONSEC029 + Get + Return Me._tRACONSEC029 + End Get + Set + Me._tRACONSEC029 = Value + End Set + End Property + + + Public Property OB() As List(Of ACMA) + Get + Return Me._ob + End Get + Set + Me._ob = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CC015B)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CC015B object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an CC015B object + ''' + ''' string workflow markup to deserialize + ''' Output CC015B 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 CC015B, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CC015B) + 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 CC015B) 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 CC015B + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CC015B) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CC015B + Return CType(Serializer.Deserialize(s), CC015B) + End Function +#End Region + + ''' + ''' Serializes current CC015B 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CC015B object + ''' + ''' string xml file to load and deserialize + ''' Output CC015B 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 CC015B, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CC015B) + 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 CC015B) 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 CC015B + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 HEAHEA + +#Region "Private fields" + Private _refNumHEA4 As String + + Private _typOfDecHEA24 As String + + Private _couOfDesCodHEA30 As String + + Private _plaOfLoaCodHEA46 As String + + Private _couOfDisCodHEA55 As String + + Private _traModAtBorHEA76 As String + + Private _conIndHEA96 As Constraints4.CL27 + + Private _totNumOfIteHEA305 As String + + Private _totNumOfPacHEA306 As String + + Private _totGroMasHEA307 As Decimal + + Private _decDatHEA383 As String + + Private _decPlaHEA394 As String + + Private _decPlaHEA394LNG As String + + Private _speCirIndHEA1 As String + + Private _traChaMetOfPayHEA1 As String + + Private _comRefNumHEA As String + + Private _secHEA358 As Codelists.CL117 + + Private _conRefNumHEA As String + + Private _codPlUnHEA357 As String + + Private _codPlUnHEA357LNG As String + + Private _damgaVergi As Decimal + + Private _sumEnt As String + + Private _sumExt As String + + Private _vesselName As String + + Private _vesselSailingDate As String + + Private _ulusoyLineIndicator As String + + Private _ekoLineIndicator As String + + Private _autLocOfGooCodHEA41 As String + + Private _datLimERS69 As String + + Private _meansOfTransports As HEAHEAMeansOfTransports + + Private _clientIdentificationNumber As String + + Private _tIRCarnetNumber As String + + Private _tIRCarnetVoletPageNo As Integer + + Private _tIRSealNumbers As HEAHEATIRSealNumbers + + Private _eF_CHECKED As Object + + Private _eF_DocumentLinks As Object + + Private _exportMRN As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._tIRSealNumbers = New HEAHEATIRSealNumbers() + Me._meansOfTransports = New HEAHEAMeansOfTransports() + End Sub + + Public Property RefNumHEA4() As String + Get + Return Me._refNumHEA4 + End Get + Set + Me._refNumHEA4 = Value + End Set + End Property + + Public Property TypOfDecHEA24() As String + Get + Return Me._typOfDecHEA24 + End Get + Set + Me._typOfDecHEA24 = Value + End Set + End Property + + Public Property CouOfDesCodHEA30() As String + Get + Return Me._couOfDesCodHEA30 + End Get + Set + Me._couOfDesCodHEA30 = Value + End Set + End Property + + Public Property PlaOfLoaCodHEA46() As String + Get + Return Me._plaOfLoaCodHEA46 + End Get + Set + Me._plaOfLoaCodHEA46 = Value + End Set + End Property + + Public Property CouOfDisCodHEA55() As String + Get + Return Me._couOfDisCodHEA55 + End Get + Set + Me._couOfDisCodHEA55 = Value + End Set + End Property + + + Public Property TraModAtBorHEA76() As String + Get + Return Me._traModAtBorHEA76 + End Get + Set + Me._traModAtBorHEA76 = Value + End Set + End Property + + Public Property ConIndHEA96() As Constraints4.CL27 + Get + Return Me._conIndHEA96 + End Get + Set + Me._conIndHEA96 = Value + End Set + End Property + + + Public Property TotNumOfIteHEA305() As String + Get + Return Me._totNumOfIteHEA305 + End Get + Set + Me._totNumOfIteHEA305 = Value + End Set + End Property + + + Public Property TotNumOfPacHEA306() As String + Get + Return Me._totNumOfPacHEA306 + End Get + Set + Me._totNumOfPacHEA306 = Value + End Set + End Property + + Public Property TotGroMasHEA307() As Decimal + Get + Return Me._totGroMasHEA307 + End Get + Set + Me._totGroMasHEA307 = Value + End Set + End Property + + + Public Property DecDatHEA383() As String + Get + Return Me._decDatHEA383 + End Get + Set + Me._decDatHEA383 = Value + End Set + End Property + + Public Property DecPlaHEA394() As String + Get + Return Me._decPlaHEA394 + End Get + Set + Me._decPlaHEA394 = Value + End Set + End Property + + Public Property DecPlaHEA394LNG() As String + Get + Return Me._decPlaHEA394LNG + End Get + Set + Me._decPlaHEA394LNG = Value + End Set + End Property + + Public Property SpeCirIndHEA1() As String + Get + Return Me._speCirIndHEA1 + End Get + Set + Me._speCirIndHEA1 = Value + End Set + End Property + + Public Property TraChaMetOfPayHEA1() As String + Get + Return Me._traChaMetOfPayHEA1 + End Get + Set + Me._traChaMetOfPayHEA1 = Value + End Set + End Property + + Public Property ComRefNumHEA() As String + Get + Return Me._comRefNumHEA + End Get + Set + Me._comRefNumHEA = Value + End Set + End Property + + Public Property SecHEA358() As Codelists.CL117 + Get + Return Me._secHEA358 + End Get + Set + Me._secHEA358 = Value + End Set + End Property + + Public Property ConRefNumHEA() As String + Get + Return Me._conRefNumHEA + End Get + Set + Me._conRefNumHEA = Value + End Set + End Property + + Public Property CodPlUnHEA357() As String + Get + Return Me._codPlUnHEA357 + End Get + Set + Me._codPlUnHEA357 = Value + End Set + End Property + + Public Property CodPlUnHEA357LNG() As String + Get + Return Me._codPlUnHEA357LNG + End Get + Set + Me._codPlUnHEA357LNG = Value + End Set + End Property + + Public Property DamgaVergi() As Decimal + Get + Return Me._damgaVergi + End Get + Set + Me._damgaVergi = Value + End Set + End Property + + Public Property SumEnt() As String + Get + Return Me._sumEnt + End Get + Set + Me._sumEnt = Value + End Set + End Property + + Public Property SumExt() As String + Get + Return Me._sumExt + End Get + Set + Me._sumExt = Value + End Set + End Property + + Public Property VesselName() As String + Get + Return Me._vesselName + End Get + Set + Me._vesselName = Value + End Set + End Property + + Public Property VesselSailingDate() As String + Get + Return Me._vesselSailingDate + End Get + Set + Me._vesselSailingDate = Value + End Set + End Property + + Public Property UlusoyLineIndicator() As String + Get + Return Me._ulusoyLineIndicator + End Get + Set + Me._ulusoyLineIndicator = Value + End Set + End Property + + Public Property EkoLineIndicator() As String + Get + Return Me._ekoLineIndicator + End Get + Set + Me._ekoLineIndicator = Value + End Set + End Property + + Public Property AutLocOfGooCodHEA41() As String + Get + Return Me._autLocOfGooCodHEA41 + End Get + Set + Me._autLocOfGooCodHEA41 = Value + End Set + End Property + + Public Property DatLimERS69() As String + Get + Return Me._datLimERS69 + End Get + Set + Me._datLimERS69 = Value + End Set + End Property + + Public Property MeansOfTransports() As HEAHEAMeansOfTransports + Get + Return Me._meansOfTransports + End Get + Set + Me._meansOfTransports = Value + End Set + End Property + + Public Property ClientIdentificationNumber() As String + Get + Return Me._clientIdentificationNumber + End Get + Set + Me._clientIdentificationNumber = 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 TIRCarnetVoletPageNo() As Integer + Get + Return Me._tIRCarnetVoletPageNo + End Get + Set + Me._tIRCarnetVoletPageNo = Value + End Set + End Property + + Public Property TIRSealNumbers() As HEAHEATIRSealNumbers + Get + Return Me._tIRSealNumbers + End Get + Set + Me._tIRSealNumbers = Value + End Set + End Property + + Public Property EF_CHECKED() As Object + Get + Return Me._eF_CHECKED + End Get + Set + Me._eF_CHECKED = Value + End Set + End Property + + Public Property EF_DocumentLinks() As Object + Get + Return Me._eF_DocumentLinks + End Get + Set + Me._eF_DocumentLinks = Value + End Set + End Property + + Public Property ExportMRN() As Object + Get + Return Me._exportMRN + End Get + Set + Me._exportMRN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HEAHEA)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HEAHEA object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an HEAHEA object + ''' + ''' string workflow markup to deserialize + ''' Output HEAHEA 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 HEAHEA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEA) + 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 HEAHEA) 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 HEAHEA + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HEAHEA) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HEAHEA + Return CType(Serializer.Deserialize(s), HEAHEA) + End Function +#End Region + + ''' + ''' Serializes current HEAHEA 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HEAHEA object + ''' + ''' string xml file to load and deserialize + ''' Output HEAHEA 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 HEAHEA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEA) + 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 HEAHEA) 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 HEAHEA + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 HEAHEAMeansOfTransports + +#Region "Private fields" + Private _meansOfTransport As List(Of HEAHEAMeansOfTransportsMeansOfTransport) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._meansOfTransport = New List(Of HEAHEAMeansOfTransportsMeansOfTransport)() + End Sub + + + Public Property MeansOfTransport() As List(Of HEAHEAMeansOfTransportsMeansOfTransport) + Get + Return Me._meansOfTransport + End Get + Set + Me._meansOfTransport = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HEAHEAMeansOfTransports)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HEAHEAMeansOfTransports object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an HEAHEAMeansOfTransports object + ''' + ''' string workflow markup to deserialize + ''' Output HEAHEAMeansOfTransports 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 HEAHEAMeansOfTransports, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEAMeansOfTransports) + 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 HEAHEAMeansOfTransports) 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 HEAHEAMeansOfTransports + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HEAHEAMeansOfTransports) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HEAHEAMeansOfTransports + Return CType(Serializer.Deserialize(s), HEAHEAMeansOfTransports) + End Function +#End Region + + ''' + ''' Serializes current HEAHEAMeansOfTransports 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HEAHEAMeansOfTransports object + ''' + ''' string xml file to load and deserialize + ''' Output HEAHEAMeansOfTransports 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 HEAHEAMeansOfTransports, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEAMeansOfTransports) + 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 HEAHEAMeansOfTransports) 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 HEAHEAMeansOfTransports + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 HEAHEAMeansOfTransportsMeansOfTransport + +#Region "Private fields" + Private _hasEngine As String + + Private _isLoadedCompartment As String + + Private _country As String + + Private _plateNumber As String + + Private _wagonIdentity As String + + Private _countryFlag As String + + Private _isClientOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property hasEngine() As String + Get + Return Me._hasEngine + End Get + Set + Me._hasEngine = Value + End Set + End Property + + Public Property isLoadedCompartment() As String + Get + Return Me._isLoadedCompartment + End Get + Set + Me._isLoadedCompartment = 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 PlateNumber() As String + Get + Return Me._plateNumber + End Get + Set + Me._plateNumber = Value + End Set + End Property + + Public Property WagonIdentity() As String + Get + Return Me._wagonIdentity + End Get + Set + Me._wagonIdentity = Value + End Set + End Property + + Public Property CountryFlag() As String + Get + Return Me._countryFlag + End Get + Set + Me._countryFlag = Value + End Set + End Property + + Public Property isClientOwner() As String + Get + Return Me._isClientOwner + End Get + Set + Me._isClientOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HEAHEAMeansOfTransportsMeansOfTransport)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HEAHEAMeansOfTransportsMeansOfTransport object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an HEAHEAMeansOfTransportsMeansOfTransport object + ''' + ''' string workflow markup to deserialize + ''' Output HEAHEAMeansOfTransportsMeansOfTransport 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 HEAHEAMeansOfTransportsMeansOfTransport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEAMeansOfTransportsMeansOfTransport) + 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 HEAHEAMeansOfTransportsMeansOfTransport) 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 HEAHEAMeansOfTransportsMeansOfTransport + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HEAHEAMeansOfTransportsMeansOfTransport) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HEAHEAMeansOfTransportsMeansOfTransport + Return CType(Serializer.Deserialize(s), HEAHEAMeansOfTransportsMeansOfTransport) + End Function +#End Region + + ''' + ''' Serializes current HEAHEAMeansOfTransportsMeansOfTransport 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HEAHEAMeansOfTransportsMeansOfTransport object + ''' + ''' string xml file to load and deserialize + ''' Output HEAHEAMeansOfTransportsMeansOfTransport 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 HEAHEAMeansOfTransportsMeansOfTransport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEAMeansOfTransportsMeansOfTransport) + 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 HEAHEAMeansOfTransportsMeansOfTransport) 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 HEAHEAMeansOfTransportsMeansOfTransport + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 HEAHEATIRSealNumbers + +#Region "Private fields" + Private _sealNumber As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._sealNumber = New List(Of String)() + End Sub + + + Public Property SealNumber() As List(Of String) + Get + Return Me._sealNumber + End Get + Set + Me._sealNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HEAHEATIRSealNumbers)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HEAHEATIRSealNumbers object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an HEAHEATIRSealNumbers object + ''' + ''' string workflow markup to deserialize + ''' Output HEAHEATIRSealNumbers 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 HEAHEATIRSealNumbers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEATIRSealNumbers) + 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 HEAHEATIRSealNumbers) 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 HEAHEATIRSealNumbers + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HEAHEATIRSealNumbers) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HEAHEATIRSealNumbers + Return CType(Serializer.Deserialize(s), HEAHEATIRSealNumbers) + End Function +#End Region + + ''' + ''' Serializes current HEAHEATIRSealNumbers 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HEAHEATIRSealNumbers object + ''' + ''' string xml file to load and deserialize + ''' Output HEAHEATIRSealNumbers 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 HEAHEATIRSealNumbers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEATIRSealNumbers) + 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 HEAHEATIRSealNumbers) 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 HEAHEATIRSealNumbers + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRAPRIPC1 + +#Region "Private fields" + Private _namPC17 As String + + Private _strAndNumPC122 As String + + Private _posCodPC123 As String + + Private _citPC124 As String + + Private _couPC125 As String + + Private _nADLNGPC As String + + Private _tINPC159 As String + + Private _hITPC126 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamPC17() As String + Get + Return Me._namPC17 + End Get + Set + Me._namPC17 = Value + End Set + End Property + + Public Property StrAndNumPC122() As String + Get + Return Me._strAndNumPC122 + End Get + Set + Me._strAndNumPC122 = Value + End Set + End Property + + Public Property PosCodPC123() As String + Get + Return Me._posCodPC123 + End Get + Set + Me._posCodPC123 = Value + End Set + End Property + + Public Property CitPC124() As String + Get + Return Me._citPC124 + End Get + Set + Me._citPC124 = Value + End Set + End Property + + Public Property CouPC125() As String + Get + Return Me._couPC125 + End Get + Set + Me._couPC125 = Value + End Set + End Property + + Public Property NADLNGPC() As String + Get + Return Me._nADLNGPC + End Get + Set + Me._nADLNGPC = Value + End Set + End Property + + Public Property TINPC159() As String + Get + Return Me._tINPC159 + End Get + Set + Me._tINPC159 = Value + End Set + End Property + + Public Property HITPC126() As String + Get + Return Me._hITPC126 + End Get + Set + Me._hITPC126 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRAPRIPC1)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRAPRIPC1 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRAPRIPC1 object + ''' + ''' string workflow markup to deserialize + ''' Output TRAPRIPC1 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 TRAPRIPC1, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRAPRIPC1) + 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 TRAPRIPC1) 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 TRAPRIPC1 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRAPRIPC1) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRAPRIPC1 + Return CType(Serializer.Deserialize(s), TRAPRIPC1) + End Function +#End Region + + ''' + ''' Serializes current TRAPRIPC1 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRAPRIPC1 object + ''' + ''' string xml file to load and deserialize + ''' Output TRAPRIPC1 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 TRAPRIPC1, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRAPRIPC1) + 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 TRAPRIPC1) 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 TRAPRIPC1 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRACONCO1 + +#Region "Private fields" + Private _namCO17 As String + + Private _strAndNumCO122 As String + + Private _posCodCO123 As String + + Private _citCO124 As String + + Private _couCO125 As String + + Private _nADLNGCO As String + + Private _tINCO159 As String + + Private _eORI As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamCO17() As String + Get + Return Me._namCO17 + End Get + Set + Me._namCO17 = Value + End Set + End Property + + Public Property StrAndNumCO122() As String + Get + Return Me._strAndNumCO122 + End Get + Set + Me._strAndNumCO122 = Value + End Set + End Property + + Public Property PosCodCO123() As String + Get + Return Me._posCodCO123 + End Get + Set + Me._posCodCO123 = Value + End Set + End Property + + Public Property CitCO124() As String + Get + Return Me._citCO124 + End Get + Set + Me._citCO124 = Value + End Set + End Property + + Public Property CouCO125() As String + Get + Return Me._couCO125 + End Get + Set + Me._couCO125 = Value + End Set + End Property + + Public Property NADLNGCO() As String + Get + Return Me._nADLNGCO + End Get + Set + Me._nADLNGCO = Value + End Set + End Property + + Public Property TINCO159() As String + Get + Return Me._tINCO159 + End Get + Set + Me._tINCO159 = Value + End Set + End Property + + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACONCO1)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACONCO1 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRACONCO1 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACONCO1 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 TRACONCO1, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCO1) + 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 TRACONCO1) 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 TRACONCO1 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACONCO1) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACONCO1 + Return CType(Serializer.Deserialize(s), TRACONCO1) + End Function +#End Region + + ''' + ''' Serializes current TRACONCO1 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACONCO1 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACONCO1 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 TRACONCO1, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCO1) + 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 TRACONCO1) 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 TRACONCO1 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRACONCE1 + +#Region "Private fields" + Private _namCE17 As String + + Private _strAndNumCE122 As String + + Private _posCodCE123 As String + + Private _citCE124 As String + + Private _couCE125 As String + + Private _nADLNGCE As String + + Private _tINCE159 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamCE17() As String + Get + Return Me._namCE17 + End Get + Set + Me._namCE17 = Value + End Set + End Property + + Public Property StrAndNumCE122() As String + Get + Return Me._strAndNumCE122 + End Get + Set + Me._strAndNumCE122 = Value + End Set + End Property + + Public Property PosCodCE123() As String + Get + Return Me._posCodCE123 + End Get + Set + Me._posCodCE123 = Value + End Set + End Property + + Public Property CitCE124() As String + Get + Return Me._citCE124 + End Get + Set + Me._citCE124 = Value + End Set + End Property + + Public Property CouCE125() As String + Get + Return Me._couCE125 + End Get + Set + Me._couCE125 = Value + End Set + End Property + + Public Property NADLNGCE() As String + Get + Return Me._nADLNGCE + End Get + Set + Me._nADLNGCE = Value + End Set + End Property + + Public Property TINCE159() As String + Get + Return Me._tINCE159 + End Get + Set + Me._tINCE159 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACONCE1)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACONCE1 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRACONCE1 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACONCE1 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 TRACONCE1, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCE1) + 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 TRACONCE1) 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 TRACONCE1 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACONCE1) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACONCE1 + Return CType(Serializer.Deserialize(s), TRACONCE1) + End Function +#End Region + + ''' + ''' Serializes current TRACONCE1 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACONCE1 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACONCE1 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 TRACONCE1, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCE1) + 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 TRACONCE1) 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 TRACONCE1 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 CUSOFFDEPEPT + +#Region "Private fields" + Private _refNumEPT1 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property RefNumEPT1() As String + Get + Return Me._refNumEPT1 + End Get + Set + Me._refNumEPT1 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CUSOFFDEPEPT)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CUSOFFDEPEPT object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an CUSOFFDEPEPT object + ''' + ''' string workflow markup to deserialize + ''' Output CUSOFFDEPEPT 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 CUSOFFDEPEPT, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CUSOFFDEPEPT) + 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 CUSOFFDEPEPT) 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 CUSOFFDEPEPT + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CUSOFFDEPEPT) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CUSOFFDEPEPT + Return CType(Serializer.Deserialize(s), CUSOFFDEPEPT) + End Function +#End Region + + ''' + ''' Serializes current CUSOFFDEPEPT 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CUSOFFDEPEPT object + ''' + ''' string xml file to load and deserialize + ''' Output CUSOFFDEPEPT 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 CUSOFFDEPEPT, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CUSOFFDEPEPT) + 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 CUSOFFDEPEPT) 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 CUSOFFDEPEPT + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 CUSOFFTRARNS + +#Region "Private fields" + Private _refNumRNS1 As String + + Private _arrTimTRACUS085 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property RefNumRNS1() As String + Get + Return Me._refNumRNS1 + End Get + Set + Me._refNumRNS1 = Value + End Set + End Property + + + Public Property ArrTimTRACUS085() As String + Get + Return Me._arrTimTRACUS085 + End Get + Set + Me._arrTimTRACUS085 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CUSOFFTRARNS)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CUSOFFTRARNS object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an CUSOFFTRARNS object + ''' + ''' string workflow markup to deserialize + ''' Output CUSOFFTRARNS 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 CUSOFFTRARNS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CUSOFFTRARNS) + 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 CUSOFFTRARNS) 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 CUSOFFTRARNS + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CUSOFFTRARNS) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CUSOFFTRARNS + Return CType(Serializer.Deserialize(s), CUSOFFTRARNS) + End Function +#End Region + + ''' + ''' Serializes current CUSOFFTRARNS 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CUSOFFTRARNS object + ''' + ''' string xml file to load and deserialize + ''' Output CUSOFFTRARNS 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 CUSOFFTRARNS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CUSOFFTRARNS) + 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 CUSOFFTRARNS) 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 CUSOFFTRARNS + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 CUSOFFDESEST + +#Region "Private fields" + Private _refNumEST1 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property RefNumEST1() As String + Get + Return Me._refNumEST1 + End Get + Set + Me._refNumEST1 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CUSOFFDESEST)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CUSOFFDESEST object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an CUSOFFDESEST object + ''' + ''' string workflow markup to deserialize + ''' Output CUSOFFDESEST 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 CUSOFFDESEST, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CUSOFFDESEST) + 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 CUSOFFDESEST) 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 CUSOFFDESEST + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CUSOFFDESEST) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CUSOFFDESEST + Return CType(Serializer.Deserialize(s), CUSOFFDESEST) + End Function +#End Region + + ''' + ''' Serializes current CUSOFFDESEST 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CUSOFFDESEST object + ''' + ''' string xml file to load and deserialize + ''' Output CUSOFFDESEST 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 CUSOFFDESEST, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CUSOFFDESEST) + 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 CUSOFFDESEST) 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 CUSOFFDESEST + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 GOOITEGDS + +#Region "Private fields" + Private _iteNumGDS7 As String + + Private _comCodTarCodGDS10 As String + + Private _decTypGDS15 As String + + Private _gooDesGDS23 As String + + Private _gooDesGDS23LNG As String + + Private _groMasGDS46 As Decimal + + Private _netMasGDS48 As Decimal + + Private _itemInvoiceAmount As Decimal + + Private _itemInvoiceCurrency As String + + Private _statisticalValue As Object + + Private _numberOfUnits As Object + + Private _quantity1 As Decimal + + Private _statisticalCode As Object + + Private _additionalUnit As Object + + Private _couOfDisGDS58 As String + + Private _couOfDesGDS59 As String + + Private _ihrBeyanNo As String + + Private _ihrBeyanTip As String + + Private _ihrBeyanParcali As String + + Private _pREADMREFAR2 As List(Of PREADMREFAR2) + + Private _pRODOCDC2 As List(Of PRODOCDC2) + + Private _sPEMENMT2 As List(Of SPEMENMT2) + + Private _tRACONCO2 As TRACONCO2 + + Private _tRACONCE2 As TRACONCE2 + + Private _cONNR2 As List(Of CONNR2) + + Private _pACGS2 As List(Of PACGS2) + + Private _sGICODSD2 As List(Of SGICODSD2) + + Private _tRACORSECGOO021 As TRACORSECGOO021 + + Private _tRACONSECGOO013 As TRACONSECGOO013 + + Private _aUTODETAIL As GOOITEGDSAUTODETAIL + + Private _spanishSummaryDischarges As GOOITEGDSSpanishSummaryDischarges + + Private _aCMA2 As List(Of GOOITEGDSACMA2) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._aCMA2 = New List(Of GOOITEGDSACMA2)() + Me._spanishSummaryDischarges = New GOOITEGDSSpanishSummaryDischarges() + Me._aUTODETAIL = New GOOITEGDSAUTODETAIL() + Me._tRACONSECGOO013 = New TRACONSECGOO013() + Me._tRACORSECGOO021 = New TRACORSECGOO021() + Me._sGICODSD2 = New List(Of SGICODSD2)() + Me._pACGS2 = New List(Of PACGS2)() + Me._cONNR2 = New List(Of CONNR2)() + Me._tRACONCE2 = New TRACONCE2() + Me._tRACONCO2 = New TRACONCO2() + Me._sPEMENMT2 = New List(Of SPEMENMT2)() + Me._pRODOCDC2 = New List(Of PRODOCDC2)() + Me._pREADMREFAR2 = New List(Of PREADMREFAR2)() + End Sub + + + Public Property IteNumGDS7() As String + Get + Return Me._iteNumGDS7 + End Get + Set + Me._iteNumGDS7 = Value + End Set + End Property + + Public Property ComCodTarCodGDS10() As String + Get + Return Me._comCodTarCodGDS10 + End Get + Set + Me._comCodTarCodGDS10 = Value + End Set + End Property + + Public Property DecTypGDS15() As String + Get + Return Me._decTypGDS15 + End Get + Set + Me._decTypGDS15 = Value + End Set + End Property + + Public Property GooDesGDS23() As String + Get + Return Me._gooDesGDS23 + End Get + Set + Me._gooDesGDS23 = Value + End Set + End Property + + Public Property GooDesGDS23LNG() As String + Get + Return Me._gooDesGDS23LNG + End Get + Set + Me._gooDesGDS23LNG = Value + End Set + End Property + + Public Property GroMasGDS46() As Decimal + Get + Return Me._groMasGDS46 + End Get + Set + Me._groMasGDS46 = Value + End Set + End Property + + Public Property NetMasGDS48() As Decimal + Get + Return Me._netMasGDS48 + End Get + Set + Me._netMasGDS48 = Value + End Set + End Property + + Public Property ItemInvoiceAmount() As Decimal + Get + Return Me._itemInvoiceAmount + End Get + Set + Me._itemInvoiceAmount = Value + End Set + End Property + + Public Property ItemInvoiceCurrency() As String + Get + Return Me._itemInvoiceCurrency + End Get + Set + Me._itemInvoiceCurrency = Value + End Set + End Property + + Public Property StatisticalValue() As Object + Get + Return Me._statisticalValue + End Get + Set + Me._statisticalValue = Value + End Set + End Property + + Public Property NumberOfUnits() As Object + Get + Return Me._numberOfUnits + End Get + Set + Me._numberOfUnits = Value + End Set + End Property + + Public Property Quantity1() As Decimal + Get + Return Me._quantity1 + End Get + Set + Me._quantity1 = Value + End Set + End Property + + Public Property StatisticalCode() As Object + Get + Return Me._statisticalCode + End Get + Set + Me._statisticalCode = Value + End Set + End Property + + Public Property AdditionalUnit() As Object + Get + Return Me._additionalUnit + End Get + Set + Me._additionalUnit = Value + End Set + End Property + + Public Property CouOfDisGDS58() As String + Get + Return Me._couOfDisGDS58 + End Get + Set + Me._couOfDisGDS58 = Value + End Set + End Property + + Public Property CouOfDesGDS59() As String + Get + Return Me._couOfDesGDS59 + End Get + Set + Me._couOfDesGDS59 = Value + End Set + End Property + + Public Property IhrBeyanNo() As String + Get + Return Me._ihrBeyanNo + End Get + Set + Me._ihrBeyanNo = Value + End Set + End Property + + Public Property IhrBeyanTip() As String + Get + Return Me._ihrBeyanTip + End Get + Set + Me._ihrBeyanTip = Value + End Set + End Property + + Public Property IhrBeyanParcali() As String + Get + Return Me._ihrBeyanParcali + End Get + Set + Me._ihrBeyanParcali = Value + End Set + End Property + + + Public Property PREADMREFAR2() As List(Of PREADMREFAR2) + Get + Return Me._pREADMREFAR2 + End Get + Set + Me._pREADMREFAR2 = Value + End Set + End Property + + + Public Property PRODOCDC2() As List(Of PRODOCDC2) + Get + Return Me._pRODOCDC2 + End Get + Set + Me._pRODOCDC2 = Value + End Set + End Property + + + Public Property SPEMENMT2() As List(Of SPEMENMT2) + Get + Return Me._sPEMENMT2 + End Get + Set + Me._sPEMENMT2 = Value + End Set + End Property + + Public Property TRACONCO2() As TRACONCO2 + Get + Return Me._tRACONCO2 + End Get + Set + Me._tRACONCO2 = Value + End Set + End Property + + Public Property TRACONCE2() As TRACONCE2 + Get + Return Me._tRACONCE2 + End Get + Set + Me._tRACONCE2 = Value + End Set + End Property + + + Public Property CONNR2() As List(Of CONNR2) + Get + Return Me._cONNR2 + End Get + Set + Me._cONNR2 = Value + End Set + End Property + + + Public Property PACGS2() As List(Of PACGS2) + Get + Return Me._pACGS2 + End Get + Set + Me._pACGS2 = Value + End Set + End Property + + + Public Property SGICODSD2() As List(Of SGICODSD2) + Get + Return Me._sGICODSD2 + End Get + Set + Me._sGICODSD2 = Value + End Set + End Property + + Public Property TRACORSECGOO021() As TRACORSECGOO021 + Get + Return Me._tRACORSECGOO021 + End Get + Set + Me._tRACORSECGOO021 = Value + End Set + End Property + + Public Property TRACONSECGOO013() As TRACONSECGOO013 + Get + Return Me._tRACONSECGOO013 + End Get + Set + Me._tRACONSECGOO013 = Value + End Set + End Property + + Public Property AUTODETAIL() As GOOITEGDSAUTODETAIL + Get + Return Me._aUTODETAIL + End Get + Set + Me._aUTODETAIL = Value + End Set + End Property + + Public Property SpanishSummaryDischarges() As GOOITEGDSSpanishSummaryDischarges + Get + Return Me._spanishSummaryDischarges + End Get + Set + Me._spanishSummaryDischarges = Value + End Set + End Property + + + Public Property ACMA2() As List(Of GOOITEGDSACMA2) + Get + Return Me._aCMA2 + End Get + Set + Me._aCMA2 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GOOITEGDS)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GOOITEGDS object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an GOOITEGDS object + ''' + ''' string workflow markup to deserialize + ''' Output GOOITEGDS 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 GOOITEGDS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDS) + 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 GOOITEGDS) 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 GOOITEGDS + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GOOITEGDS) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GOOITEGDS + Return CType(Serializer.Deserialize(s), GOOITEGDS) + End Function +#End Region + + ''' + ''' Serializes current GOOITEGDS 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GOOITEGDS object + ''' + ''' string xml file to load and deserialize + ''' Output GOOITEGDS 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 GOOITEGDS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDS) + 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 GOOITEGDS) 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 GOOITEGDS + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 PREADMREFAR2 + +#Region "Private fields" + Private _preDocTypAR21 As Codelists.CL14 + + Private _preDocRefAR26 As String + + Private _preDocRefLNG As String + + Private _comOfInfAR29 As String + + Private _comOfInfAR29LNG As String + + Private _preDocRegPos As String + + Private _preDocRegNo As String + + Private _preDocNbPackages As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property PreDocTypAR21() As Codelists.CL14 + Get + Return Me._preDocTypAR21 + End Get + Set + Me._preDocTypAR21 = Value + End Set + End Property + + Public Property PreDocRefAR26() As String + Get + Return Me._preDocRefAR26 + End Get + Set + Me._preDocRefAR26 = Value + End Set + End Property + + Public Property PreDocRefLNG() As String + Get + Return Me._preDocRefLNG + End Get + Set + Me._preDocRefLNG = Value + End Set + End Property + + Public Property ComOfInfAR29() As String + Get + Return Me._comOfInfAR29 + End Get + Set + Me._comOfInfAR29 = Value + End Set + End Property + + Public Property ComOfInfAR29LNG() As String + Get + Return Me._comOfInfAR29LNG + End Get + Set + Me._comOfInfAR29LNG = Value + End Set + End Property + + Public Property PreDocRegPos() As String + Get + Return Me._preDocRegPos + End Get + Set + Me._preDocRegPos = Value + End Set + End Property + + Public Property PreDocRegNo() As String + Get + Return Me._preDocRegNo + End Get + Set + Me._preDocRegNo = Value + End Set + End Property + + Public Property PreDocNbPackages() As String + Get + Return Me._preDocNbPackages + End Get + Set + Me._preDocNbPackages = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PREADMREFAR2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PREADMREFAR2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an PREADMREFAR2 object + ''' + ''' string workflow markup to deserialize + ''' Output PREADMREFAR2 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 PREADMREFAR2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PREADMREFAR2) + 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 PREADMREFAR2) 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 PREADMREFAR2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PREADMREFAR2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PREADMREFAR2 + Return CType(Serializer.Deserialize(s), PREADMREFAR2) + End Function +#End Region + + ''' + ''' Serializes current PREADMREFAR2 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PREADMREFAR2 object + ''' + ''' string xml file to load and deserialize + ''' Output PREADMREFAR2 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 PREADMREFAR2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PREADMREFAR2) + 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 PREADMREFAR2) 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 PREADMREFAR2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 PRODOCDC2 + +#Region "Private fields" + Private _docTypDC21 As String + + Private _docRefDC23 As String + + Private _docRefDCLNG As String + + Private _comOfInfDC25 As String + + Private _comOfInfDC25LNG As String + + Private _docYearForItaly As String + + Private _docCountryForItaly As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property DocTypDC21() As String + Get + Return Me._docTypDC21 + End Get + Set + Me._docTypDC21 = Value + End Set + End Property + + Public Property DocRefDC23() As String + Get + Return Me._docRefDC23 + End Get + Set + Me._docRefDC23 = Value + End Set + End Property + + Public Property DocRefDCLNG() As String + Get + Return Me._docRefDCLNG + End Get + Set + Me._docRefDCLNG = Value + End Set + End Property + + Public Property ComOfInfDC25() As String + Get + Return Me._comOfInfDC25 + End Get + Set + Me._comOfInfDC25 = Value + End Set + End Property + + Public Property ComOfInfDC25LNG() As String + Get + Return Me._comOfInfDC25LNG + End Get + Set + Me._comOfInfDC25LNG = Value + End Set + End Property + + Public Property DocYearForItaly() As String + Get + Return Me._docYearForItaly + End Get + Set + Me._docYearForItaly = Value + End Set + End Property + + Public Property DocCountryForItaly() As String + Get + Return Me._docCountryForItaly + End Get + Set + Me._docCountryForItaly = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PRODOCDC2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PRODOCDC2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an PRODOCDC2 object + ''' + ''' string workflow markup to deserialize + ''' Output PRODOCDC2 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 PRODOCDC2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PRODOCDC2) + 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 PRODOCDC2) 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 PRODOCDC2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PRODOCDC2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PRODOCDC2 + Return CType(Serializer.Deserialize(s), PRODOCDC2) + End Function +#End Region + + ''' + ''' Serializes current PRODOCDC2 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PRODOCDC2 object + ''' + ''' string xml file to load and deserialize + ''' Output PRODOCDC2 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 PRODOCDC2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PRODOCDC2) + 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 PRODOCDC2) 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 PRODOCDC2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 SPEMENMT2 + +#Region "Private fields" + Private _addInfMT21 As String + + Private _addInfMT21LNG As String + + Private _addInfCodMT23 As String + + Private _expFroECMT24 As Constraints4.cl27 + + Private _expFroCouMT25 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property AddInfMT21() As String + Get + Return Me._addInfMT21 + End Get + Set + Me._addInfMT21 = Value + End Set + End Property + + Public Property AddInfMT21LNG() As String + Get + Return Me._addInfMT21LNG + End Get + Set + Me._addInfMT21LNG = Value + End Set + End Property + + Public Property AddInfCodMT23() As String + Get + Return Me._addInfCodMT23 + End Get + Set + Me._addInfCodMT23 = Value + End Set + End Property + + Public Property ExpFroECMT24() As Constraints4.cl27 + Get + Return Me._expFroECMT24 + End Get + Set + Me._expFroECMT24 = Value + End Set + End Property + + Public Property ExpFroCouMT25() As String + Get + Return Me._expFroCouMT25 + End Get + Set + Me._expFroCouMT25 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SPEMENMT2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SPEMENMT2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an SPEMENMT2 object + ''' + ''' string workflow markup to deserialize + ''' Output SPEMENMT2 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 SPEMENMT2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SPEMENMT2) + 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 SPEMENMT2) 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 SPEMENMT2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SPEMENMT2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SPEMENMT2 + Return CType(Serializer.Deserialize(s), SPEMENMT2) + End Function +#End Region + + ''' + ''' Serializes current SPEMENMT2 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SPEMENMT2 object + ''' + ''' string xml file to load and deserialize + ''' Output SPEMENMT2 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 SPEMENMT2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SPEMENMT2) + 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 SPEMENMT2) 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 SPEMENMT2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRACONCO2 + +#Region "Private fields" + Private _namCO27 As String + + Private _strAndNumCO222 As String + + Private _posCodCO223 As String + + Private _citCO224 As String + + Private _couCO225 As String + + Private _nADLNGGTCO As String + + Private _tINCO259 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamCO27() As String + Get + Return Me._namCO27 + End Get + Set + Me._namCO27 = Value + End Set + End Property + + Public Property StrAndNumCO222() As String + Get + Return Me._strAndNumCO222 + End Get + Set + Me._strAndNumCO222 = Value + End Set + End Property + + Public Property PosCodCO223() As String + Get + Return Me._posCodCO223 + End Get + Set + Me._posCodCO223 = Value + End Set + End Property + + Public Property CitCO224() As String + Get + Return Me._citCO224 + End Get + Set + Me._citCO224 = Value + End Set + End Property + + Public Property CouCO225() As String + Get + Return Me._couCO225 + End Get + Set + Me._couCO225 = Value + End Set + End Property + + Public Property NADLNGGTCO() As String + Get + Return Me._nADLNGGTCO + End Get + Set + Me._nADLNGGTCO = Value + End Set + End Property + + Public Property TINCO259() As String + Get + Return Me._tINCO259 + End Get + Set + Me._tINCO259 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACONCO2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACONCO2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRACONCO2 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACONCO2 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 TRACONCO2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCO2) + 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 TRACONCO2) 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 TRACONCO2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACONCO2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACONCO2 + Return CType(Serializer.Deserialize(s), TRACONCO2) + End Function +#End Region + + ''' + ''' Serializes current TRACONCO2 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACONCO2 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACONCO2 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 TRACONCO2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCO2) + 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 TRACONCO2) 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 TRACONCO2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRACONCE2 + +#Region "Private fields" + Private _namCE27 As String + + Private _strAndNumCE222 As String + + Private _posCodCE223 As String + + Private _citCE224 As String + + Private _couCE225 As String + + Private _nADLNGGICE As String + + Private _tINCE259 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamCE27() As String + Get + Return Me._namCE27 + End Get + Set + Me._namCE27 = Value + End Set + End Property + + Public Property StrAndNumCE222() As String + Get + Return Me._strAndNumCE222 + End Get + Set + Me._strAndNumCE222 = Value + End Set + End Property + + Public Property PosCodCE223() As String + Get + Return Me._posCodCE223 + End Get + Set + Me._posCodCE223 = Value + End Set + End Property + + Public Property CitCE224() As String + Get + Return Me._citCE224 + End Get + Set + Me._citCE224 = Value + End Set + End Property + + Public Property CouCE225() As String + Get + Return Me._couCE225 + End Get + Set + Me._couCE225 = Value + End Set + End Property + + Public Property NADLNGGICE() As String + Get + Return Me._nADLNGGICE + End Get + Set + Me._nADLNGGICE = Value + End Set + End Property + + Public Property TINCE259() As String + Get + Return Me._tINCE259 + End Get + Set + Me._tINCE259 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACONCE2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACONCE2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRACONCE2 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACONCE2 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 TRACONCE2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCE2) + 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 TRACONCE2) 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 TRACONCE2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACONCE2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACONCE2 + Return CType(Serializer.Deserialize(s), TRACONCE2) + End Function +#End Region + + ''' + ''' Serializes current TRACONCE2 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACONCE2 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACONCE2 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 TRACONCE2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCE2) + 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 TRACONCE2) 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 TRACONCE2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 CONNR2 + +#Region "Private fields" + Private _conNumNR21 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property ConNumNR21() As String + Get + Return Me._conNumNR21 + End Get + Set + Me._conNumNR21 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CONNR2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CONNR2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an CONNR2 object + ''' + ''' string workflow markup to deserialize + ''' Output CONNR2 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 CONNR2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CONNR2) + 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 CONNR2) 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 CONNR2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CONNR2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CONNR2 + Return CType(Serializer.Deserialize(s), CONNR2) + End Function +#End Region + + ''' + ''' Serializes current CONNR2 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CONNR2 object + ''' + ''' string xml file to load and deserialize + ''' Output CONNR2 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 CONNR2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CONNR2) + 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 CONNR2) 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 CONNR2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 PACGS2 + +#Region "Private fields" + Private _marNumOfPacGS21 As String + + Private _marNumOfPacGS21LNG As String + + Private _kinOfPacGS23 As String + + Private _numOfPacGS24 As String + + Private _numOfPieGS25 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property MarNumOfPacGS21() As String + Get + Return Me._marNumOfPacGS21 + End Get + Set + Me._marNumOfPacGS21 = Value + End Set + End Property + + Public Property MarNumOfPacGS21LNG() As String + Get + Return Me._marNumOfPacGS21LNG + End Get + Set + Me._marNumOfPacGS21LNG = Value + End Set + End Property + + Public Property KinOfPacGS23() As String + Get + Return Me._kinOfPacGS23 + End Get + Set + Me._kinOfPacGS23 = Value + End Set + End Property + + + Public Property NumOfPacGS24() As String + Get + Return Me._numOfPacGS24 + End Get + Set + Me._numOfPacGS24 = Value + End Set + End Property + + + Public Property NumOfPieGS25() As String + Get + Return Me._numOfPieGS25 + End Get + Set + Me._numOfPieGS25 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PACGS2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PACGS2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an PACGS2 object + ''' + ''' string workflow markup to deserialize + ''' Output PACGS2 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 PACGS2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PACGS2) + 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 PACGS2) 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 PACGS2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PACGS2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PACGS2 + Return CType(Serializer.Deserialize(s), PACGS2) + End Function +#End Region + + ''' + ''' Serializes current PACGS2 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PACGS2 object + ''' + ''' string xml file to load and deserialize + ''' Output PACGS2 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 PACGS2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PACGS2) + 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 PACGS2) 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 PACGS2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 SGICODSD2 + +#Region "Private fields" + Private _senGooCodSD22 As Codelists.CL64 + + Private _senQuaSD23 As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property SenGooCodSD22() As Codelists.CL64 + Get + Return Me._senGooCodSD22 + End Get + Set + Me._senGooCodSD22 = Value + End Set + End Property + + Public Property SenQuaSD23() As Decimal + Get + Return Me._senQuaSD23 + End Get + Set + Me._senQuaSD23 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SGICODSD2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SGICODSD2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an SGICODSD2 object + ''' + ''' string workflow markup to deserialize + ''' Output SGICODSD2 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 SGICODSD2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SGICODSD2) + 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 SGICODSD2) 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 SGICODSD2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SGICODSD2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SGICODSD2 + Return CType(Serializer.Deserialize(s), SGICODSD2) + End Function +#End Region + + ''' + ''' Serializes current SGICODSD2 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SGICODSD2 object + ''' + ''' string xml file to load and deserialize + ''' Output SGICODSD2 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 SGICODSD2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SGICODSD2) + 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 SGICODSD2) 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 SGICODSD2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRACORSECGOO021 + +#Region "Private fields" + Private _namTRACORSECGOO025 As String + + Private _strNumTRACORSECGOO027 As String + + Private _posCodTRACORSECGOO026 As String + + Private _citTRACORSECGOO022 As String + + Private _couCodTRACORSECGOO023 As String + + Private _tRACORSECGOO021LNG As String + + Private _tINTRACORSECGOO028 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamTRACORSECGOO025() As String + Get + Return Me._namTRACORSECGOO025 + End Get + Set + Me._namTRACORSECGOO025 = Value + End Set + End Property + + Public Property StrNumTRACORSECGOO027() As String + Get + Return Me._strNumTRACORSECGOO027 + End Get + Set + Me._strNumTRACORSECGOO027 = Value + End Set + End Property + + Public Property PosCodTRACORSECGOO026() As String + Get + Return Me._posCodTRACORSECGOO026 + End Get + Set + Me._posCodTRACORSECGOO026 = Value + End Set + End Property + + Public Property CitTRACORSECGOO022() As String + Get + Return Me._citTRACORSECGOO022 + End Get + Set + Me._citTRACORSECGOO022 = Value + End Set + End Property + + Public Property CouCodTRACORSECGOO023() As String + Get + Return Me._couCodTRACORSECGOO023 + End Get + Set + Me._couCodTRACORSECGOO023 = Value + End Set + End Property + + Public Property TRACORSECGOO021LNG() As String + Get + Return Me._tRACORSECGOO021LNG + End Get + Set + Me._tRACORSECGOO021LNG = Value + End Set + End Property + + Public Property TINTRACORSECGOO028() As String + Get + Return Me._tINTRACORSECGOO028 + End Get + Set + Me._tINTRACORSECGOO028 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACORSECGOO021)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACORSECGOO021 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRACORSECGOO021 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACORSECGOO021 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 TRACORSECGOO021, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACORSECGOO021) + 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 TRACORSECGOO021) 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 TRACORSECGOO021 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACORSECGOO021) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACORSECGOO021 + Return CType(Serializer.Deserialize(s), TRACORSECGOO021) + End Function +#End Region + + ''' + ''' Serializes current TRACORSECGOO021 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACORSECGOO021 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACORSECGOO021 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 TRACORSECGOO021, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACORSECGOO021) + 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 TRACORSECGOO021) 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 TRACORSECGOO021 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRACONSECGOO013 + +#Region "Private fields" + Private _namTRACONSECGOO017 As String + + Private _strNumTRACONSECGOO019 As String + + Private _posCodTRACONSECGOO018 As String + + Private _cityTRACONSECGOO014 As String + + Private _couCodTRACONSECGOO015 As String + + Private _tRACONSECGOO013LNG As String + + Private _tINTRACONSECGOO020 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamTRACONSECGOO017() As String + Get + Return Me._namTRACONSECGOO017 + End Get + Set + Me._namTRACONSECGOO017 = Value + End Set + End Property + + Public Property StrNumTRACONSECGOO019() As String + Get + Return Me._strNumTRACONSECGOO019 + End Get + Set + Me._strNumTRACONSECGOO019 = Value + End Set + End Property + + Public Property PosCodTRACONSECGOO018() As String + Get + Return Me._posCodTRACONSECGOO018 + End Get + Set + Me._posCodTRACONSECGOO018 = Value + End Set + End Property + + Public Property CityTRACONSECGOO014() As String + Get + Return Me._cityTRACONSECGOO014 + End Get + Set + Me._cityTRACONSECGOO014 = Value + End Set + End Property + + Public Property CouCodTRACONSECGOO015() As String + Get + Return Me._couCodTRACONSECGOO015 + End Get + Set + Me._couCodTRACONSECGOO015 = Value + End Set + End Property + + Public Property TRACONSECGOO013LNG() As String + Get + Return Me._tRACONSECGOO013LNG + End Get + Set + Me._tRACONSECGOO013LNG = Value + End Set + End Property + + Public Property TINTRACONSECGOO020() As String + Get + Return Me._tINTRACONSECGOO020 + End Get + Set + Me._tINTRACONSECGOO020 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACONSECGOO013)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACONSECGOO013 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRACONSECGOO013 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACONSECGOO013 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 TRACONSECGOO013, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONSECGOO013) + 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 TRACONSECGOO013) 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 TRACONSECGOO013 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACONSECGOO013) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACONSECGOO013 + Return CType(Serializer.Deserialize(s), TRACONSECGOO013) + End Function +#End Region + + ''' + ''' Serializes current TRACONSECGOO013 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACONSECGOO013 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACONSECGOO013 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 TRACONSECGOO013, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONSECGOO013) + 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 TRACONSECGOO013) 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 TRACONSECGOO013 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 GOOITEGDSAUTODETAIL + +#Region "Private fields" + Private _autoName As String + + Private _autoBrand As String + + Private _autoMod As String + + Private _autoType As String + + Private _autoRegDate As String + + Private _autoNumPas As String + + Private _autoLoadCap As String + + Private _autoCol As String + + Private _autoWorCap As String + + Private _autoPow As String + + Private _autoTypPow As String + + Private _autoEngNum As String + + Private _autoChasNum As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property AutoName() As String + Get + Return Me._autoName + End Get + Set + Me._autoName = Value + End Set + End Property + + Public Property AutoBrand() As String + Get + Return Me._autoBrand + End Get + Set + Me._autoBrand = Value + End Set + End Property + + Public Property AutoMod() As String + Get + Return Me._autoMod + End Get + Set + Me._autoMod = Value + End Set + End Property + + Public Property AutoType() As String + Get + Return Me._autoType + End Get + Set + Me._autoType = Value + End Set + End Property + + Public Property AutoRegDate() As String + Get + Return Me._autoRegDate + End Get + Set + Me._autoRegDate = Value + End Set + End Property + + Public Property AutoNumPas() As String + Get + Return Me._autoNumPas + End Get + Set + Me._autoNumPas = Value + End Set + End Property + + Public Property AutoLoadCap() As String + Get + Return Me._autoLoadCap + End Get + Set + Me._autoLoadCap = Value + End Set + End Property + + Public Property AutoCol() As String + Get + Return Me._autoCol + End Get + Set + Me._autoCol = Value + End Set + End Property + + Public Property AutoWorCap() As String + Get + Return Me._autoWorCap + End Get + Set + Me._autoWorCap = Value + End Set + End Property + + Public Property AutoPow() As String + Get + Return Me._autoPow + End Get + Set + Me._autoPow = Value + End Set + End Property + + Public Property AutoTypPow() As String + Get + Return Me._autoTypPow + End Get + Set + Me._autoTypPow = Value + End Set + End Property + + Public Property AutoEngNum() As String + Get + Return Me._autoEngNum + End Get + Set + Me._autoEngNum = Value + End Set + End Property + + Public Property AutoChasNum() As String + Get + Return Me._autoChasNum + End Get + Set + Me._autoChasNum = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GOOITEGDSAUTODETAIL)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GOOITEGDSAUTODETAIL object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an GOOITEGDSAUTODETAIL object + ''' + ''' string workflow markup to deserialize + ''' Output GOOITEGDSAUTODETAIL 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 GOOITEGDSAUTODETAIL, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSAUTODETAIL) + 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 GOOITEGDSAUTODETAIL) 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 GOOITEGDSAUTODETAIL + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GOOITEGDSAUTODETAIL) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GOOITEGDSAUTODETAIL + Return CType(Serializer.Deserialize(s), GOOITEGDSAUTODETAIL) + End Function +#End Region + + ''' + ''' Serializes current GOOITEGDSAUTODETAIL 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GOOITEGDSAUTODETAIL object + ''' + ''' string xml file to load and deserialize + ''' Output GOOITEGDSAUTODETAIL 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 GOOITEGDSAUTODETAIL, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSAUTODETAIL) + 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 GOOITEGDSAUTODETAIL) 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 GOOITEGDSAUTODETAIL + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 GOOITEGDSSpanishSummaryDischarges + +#Region "Private fields" + Private _spanishSummaryDischarge As GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._spanishSummaryDischarge = New GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge() + End Sub + + Public Property SpanishSummaryDischarge() As GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge + Get + Return Me._spanishSummaryDischarge + End Get + Set + Me._spanishSummaryDischarge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GOOITEGDSSpanishSummaryDischarges)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GOOITEGDSSpanishSummaryDischarges object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an GOOITEGDSSpanishSummaryDischarges object + ''' + ''' string workflow markup to deserialize + ''' Output GOOITEGDSSpanishSummaryDischarges 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 GOOITEGDSSpanishSummaryDischarges, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSSpanishSummaryDischarges) + 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 GOOITEGDSSpanishSummaryDischarges) 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 GOOITEGDSSpanishSummaryDischarges + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GOOITEGDSSpanishSummaryDischarges) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GOOITEGDSSpanishSummaryDischarges + Return CType(Serializer.Deserialize(s), GOOITEGDSSpanishSummaryDischarges) + End Function +#End Region + + ''' + ''' Serializes current GOOITEGDSSpanishSummaryDischarges 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GOOITEGDSSpanishSummaryDischarges object + ''' + ''' string xml file to load and deserialize + ''' Output GOOITEGDSSpanishSummaryDischarges 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 GOOITEGDSSpanishSummaryDischarges, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSSpanishSummaryDischarges) + 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 GOOITEGDSSpanishSummaryDischarges) 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 GOOITEGDSSpanishSummaryDischarges + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge + +#Region "Private fields" + Private _dischargingType As Object + + Private _docRefNumber As Object + + Private _dischargingItemQuantity As Object + + Private _isPartialDischarge As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property DischargingType() As Object + Get + Return Me._dischargingType + End Get + Set + Me._dischargingType = Value + End Set + End Property + + Public Property DocRefNumber() As Object + Get + Return Me._docRefNumber + End Get + Set + Me._docRefNumber = Value + End Set + End Property + + Public Property DischargingItemQuantity() As Object + Get + Return Me._dischargingItemQuantity + End Get + Set + Me._dischargingItemQuantity = Value + End Set + End Property + + Public Property isPartialDischarge() As Object + Get + Return Me._isPartialDischarge + End Get + Set + Me._isPartialDischarge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge object + ''' + ''' string workflow markup to deserialize + ''' Output GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge 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 GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge) + 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 GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge) 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 GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge + Return CType(Serializer.Deserialize(s), GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge) + End Function +#End Region + + ''' + ''' Serializes current GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge object + ''' + ''' string xml file to load and deserialize + ''' Output GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge 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 GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge) + 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 GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge) 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 GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 GOOITEGDSACMA2 + +#Region "Private fields" + Private _iddtext As Object + + Private _nartnumart As Object + + Private _nartnumart1 As Object + + Private _qamv As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Iddtext() As Object + Get + Return Me._iddtext + End Get + Set + Me._iddtext = Value + End Set + End Property + + Public Property Nartnumart() As Object + Get + Return Me._nartnumart + End Get + Set + Me._nartnumart = Value + End Set + End Property + + Public Property Nartnumart1() As Object + Get + Return Me._nartnumart1 + End Get + Set + Me._nartnumart1 = Value + End Set + End Property + + Public Property Qamv() As Object + Get + Return Me._qamv + End Get + Set + Me._qamv = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GOOITEGDSACMA2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GOOITEGDSACMA2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an GOOITEGDSACMA2 object + ''' + ''' string workflow markup to deserialize + ''' Output GOOITEGDSACMA2 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 GOOITEGDSACMA2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSACMA2) + 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 GOOITEGDSACMA2) 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 GOOITEGDSACMA2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GOOITEGDSACMA2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GOOITEGDSACMA2 + Return CType(Serializer.Deserialize(s), GOOITEGDSACMA2) + End Function +#End Region + + ''' + ''' Serializes current GOOITEGDSACMA2 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GOOITEGDSACMA2 object + ''' + ''' string xml file to load and deserialize + ''' Output GOOITEGDSACMA2 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 GOOITEGDSACMA2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSACMA2) + 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 GOOITEGDSACMA2) 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 GOOITEGDSACMA2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 CARTRA100 + +#Region "Private fields" + Private _namCARTRA121 As String + + Private _strAndNumCARTRA254 As String + + Private _posCodCARTRA121 As String + + Private _citCARTRA789 As String + + Private _couCodCARTRA587 As String + + Private _nADCARTRA121 As String + + Private _tINCARTRA254 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamCARTRA121() As String + Get + Return Me._namCARTRA121 + End Get + Set + Me._namCARTRA121 = Value + End Set + End Property + + Public Property StrAndNumCARTRA254() As String + Get + Return Me._strAndNumCARTRA254 + End Get + Set + Me._strAndNumCARTRA254 = Value + End Set + End Property + + Public Property PosCodCARTRA121() As String + Get + Return Me._posCodCARTRA121 + End Get + Set + Me._posCodCARTRA121 = Value + End Set + End Property + + Public Property CitCARTRA789() As String + Get + Return Me._citCARTRA789 + End Get + Set + Me._citCARTRA789 = Value + End Set + End Property + + Public Property CouCodCARTRA587() As String + Get + Return Me._couCodCARTRA587 + End Get + Set + Me._couCodCARTRA587 = Value + End Set + End Property + + Public Property NADCARTRA121() As String + Get + Return Me._nADCARTRA121 + End Get + Set + Me._nADCARTRA121 = Value + End Set + End Property + + Public Property TINCARTRA254() As String + Get + Return Me._tINCARTRA254 + End Get + Set + Me._tINCARTRA254 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CARTRA100)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CARTRA100 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an CARTRA100 object + ''' + ''' string workflow markup to deserialize + ''' Output CARTRA100 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 CARTRA100, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CARTRA100) + 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 CARTRA100) 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 CARTRA100 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CARTRA100) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CARTRA100 + Return CType(Serializer.Deserialize(s), CARTRA100) + End Function +#End Region + + ''' + ''' Serializes current CARTRA100 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CARTRA100 object + ''' + ''' string xml file to load and deserialize + ''' Output CARTRA100 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 CARTRA100, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CARTRA100) + 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 CARTRA100) 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 CARTRA100 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ITI + +#Region "Private fields" + Private _couOfRouCodITI1 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property CouOfRouCodITI1() As String + Get + Return Me._couOfRouCodITI1 + End Get + Set + Me._couOfRouCodITI1 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ITI)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ITI object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ITI object + ''' + ''' string workflow markup to deserialize + ''' Output ITI 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 ITI, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ITI) + 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 ITI) 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 ITI + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ITI) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ITI + Return CType(Serializer.Deserialize(s), ITI) + End Function +#End Region + + ''' + ''' Serializes current ITI 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ITI object + ''' + ''' string xml file to load and deserialize + ''' Output ITI 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 ITI, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ITI) + 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 ITI) 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 ITI + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRACORSEC037 + +#Region "Private fields" + Private _namTRACORSEC041 As String + + Private _strNumTRACORSEC043 As String + + Private _posCodTRACORSEC042 As String + + Private _citTRACORSEC038 As String + + Private _couCodTRACORSEC039 As String + + Private _tRACORSEC037LNG As String + + Private _tINTRACORSEC044 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamTRACORSEC041() As String + Get + Return Me._namTRACORSEC041 + End Get + Set + Me._namTRACORSEC041 = Value + End Set + End Property + + Public Property StrNumTRACORSEC043() As String + Get + Return Me._strNumTRACORSEC043 + End Get + Set + Me._strNumTRACORSEC043 = Value + End Set + End Property + + Public Property PosCodTRACORSEC042() As String + Get + Return Me._posCodTRACORSEC042 + End Get + Set + Me._posCodTRACORSEC042 = Value + End Set + End Property + + Public Property CitTRACORSEC038() As String + Get + Return Me._citTRACORSEC038 + End Get + Set + Me._citTRACORSEC038 = Value + End Set + End Property + + Public Property CouCodTRACORSEC039() As String + Get + Return Me._couCodTRACORSEC039 + End Get + Set + Me._couCodTRACORSEC039 = Value + End Set + End Property + + Public Property TRACORSEC037LNG() As String + Get + Return Me._tRACORSEC037LNG + End Get + Set + Me._tRACORSEC037LNG = Value + End Set + End Property + + Public Property TINTRACORSEC044() As String + Get + Return Me._tINTRACORSEC044 + End Get + Set + Me._tINTRACORSEC044 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACORSEC037)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACORSEC037 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRACORSEC037 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACORSEC037 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 TRACORSEC037, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACORSEC037) + 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 TRACORSEC037) 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 TRACORSEC037 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACORSEC037) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACORSEC037 + Return CType(Serializer.Deserialize(s), TRACORSEC037) + End Function +#End Region + + ''' + ''' Serializes current TRACORSEC037 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACORSEC037 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACORSEC037 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 TRACORSEC037, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACORSEC037) + 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 TRACORSEC037) 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 TRACORSEC037 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRACONSEC029 + +#Region "Private fields" + Private _nameTRACONSEC033 As String + + Private _strNumTRACONSEC035 As String + + Private _posCodTRACONSEC034 As String + + Private _citTRACONSEC030 As String + + Private _couCodTRACONSEC031 As String + + Private _tRACONSEC029LNG As String + + Private _tINTRACONSEC036 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NameTRACONSEC033() As String + Get + Return Me._nameTRACONSEC033 + End Get + Set + Me._nameTRACONSEC033 = Value + End Set + End Property + + Public Property StrNumTRACONSEC035() As String + Get + Return Me._strNumTRACONSEC035 + End Get + Set + Me._strNumTRACONSEC035 = Value + End Set + End Property + + Public Property PosCodTRACONSEC034() As String + Get + Return Me._posCodTRACONSEC034 + End Get + Set + Me._posCodTRACONSEC034 = Value + End Set + End Property + + Public Property CitTRACONSEC030() As String + Get + Return Me._citTRACONSEC030 + End Get + Set + Me._citTRACONSEC030 = Value + End Set + End Property + + Public Property CouCodTRACONSEC031() As String + Get + Return Me._couCodTRACONSEC031 + End Get + Set + Me._couCodTRACONSEC031 = Value + End Set + End Property + + Public Property TRACONSEC029LNG() As String + Get + Return Me._tRACONSEC029LNG + End Get + Set + Me._tRACONSEC029LNG = Value + End Set + End Property + + Public Property TINTRACONSEC036() As String + Get + Return Me._tINTRACONSEC036 + End Get + Set + Me._tINTRACONSEC036 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACONSEC029)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACONSEC029 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRACONSEC029 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACONSEC029 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 TRACONSEC029, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONSEC029) + 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 TRACONSEC029) 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 TRACONSEC029 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACONSEC029) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACONSEC029 + Return CType(Serializer.Deserialize(s), TRACONSEC029) + End Function +#End Region + + ''' + ''' Serializes current TRACONSEC029 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACONSEC029 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACONSEC029 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 TRACONSEC029, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONSEC029) + 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 TRACONSEC029) 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 TRACONSEC029 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ACMA + +#Region "Private fields" + Private _disInd As String + + Private _idsoext As String + + Private _wareInd As String + + Private _ltitref As String + + Private _wareCod As String + + Private _titlNum As String + + Private _disQty As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property DisInd() As String + Get + Return Me._disInd + End Get + Set + Me._disInd = Value + End Set + End Property + + Public Property Idsoext() As String + Get + Return Me._idsoext + End Get + Set + Me._idsoext = Value + End Set + End Property + + Public Property WareInd() As String + Get + Return Me._wareInd + End Get + Set + Me._wareInd = Value + End Set + End Property + + Public Property Ltitref() As String + Get + Return Me._ltitref + End Get + Set + Me._ltitref = Value + End Set + End Property + + Public Property WareCod() As String + Get + Return Me._wareCod + End Get + Set + Me._wareCod = Value + End Set + End Property + + + Public Property TitlNum() As String + Get + Return Me._titlNum + End Get + Set + Me._titlNum = Value + End Set + End Property + + + Public Property DisQty() As String + Get + Return Me._disQty + End Get + Set + Me._disQty = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ACMA)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ACMA object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ACMA object + ''' + ''' string workflow markup to deserialize + ''' Output ACMA 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 ACMA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ACMA) + 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 ACMA) 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 ACMA + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ACMA) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ACMA + Return CType(Serializer.Deserialize(s), ACMA) + End Function +#End Region + + ''' + ''' Serializes current ACMA 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ACMA object + ''' + ''' string xml file to load and deserialize + ''' Output ACMA 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 ACMA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ACMA) + 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 ACMA) 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 ACMA + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 GUAGUA + +#Region "Private fields" + Private _guaTypGUA1 As String + + Private _gUAREFREF As List(Of GUAREFREF) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._gUAREFREF = New List(Of GUAREFREF)() + End Sub + + Public Property GuaTypGUA1() As String + Get + Return Me._guaTypGUA1 + End Get + Set + Me._guaTypGUA1 = Value + End Set + End Property + + + Public Property GUAREFREF() As List(Of GUAREFREF) + Get + Return Me._gUAREFREF + End Get + Set + Me._gUAREFREF = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GUAGUA)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GUAGUA object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an GUAGUA object + ''' + ''' string workflow markup to deserialize + ''' Output GUAGUA 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 GUAGUA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GUAGUA) + 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 GUAGUA) 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 GUAGUA + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GUAGUA) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GUAGUA + Return CType(Serializer.Deserialize(s), GUAGUA) + End Function +#End Region + + ''' + ''' Serializes current GUAGUA 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GUAGUA object + ''' + ''' string xml file to load and deserialize + ''' Output GUAGUA 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 GUAGUA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GUAGUA) + 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 GUAGUA) 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 GUAGUA + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 GUAREFREF + +#Region "Private fields" + Private _guaRefNumGRNREF1 As String + + Private _othGuaRefREF4 As String + + Private _accCodREF6 As String + + Private _curREF8 As String + + Private _amoConREF7 As String + + Private _vALLIMECVLE As VALLIMECVLE + + Private _vALLIMNONECLIM As List(Of VALLIMNONECLIM) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._vALLIMNONECLIM = New List(Of VALLIMNONECLIM)() + Me._vALLIMECVLE = New VALLIMECVLE() + End Sub + + Public Property GuaRefNumGRNREF1() As String + Get + Return Me._guaRefNumGRNREF1 + End Get + Set + Me._guaRefNumGRNREF1 = Value + End Set + End Property + + Public Property OthGuaRefREF4() As String + Get + Return Me._othGuaRefREF4 + End Get + Set + Me._othGuaRefREF4 = Value + End Set + End Property + + Public Property AccCodREF6() As String + Get + Return Me._accCodREF6 + End Get + Set + Me._accCodREF6 = Value + End Set + End Property + + Public Property CurREF8() As String + Get + Return Me._curREF8 + End Get + Set + Me._curREF8 = Value + End Set + End Property + + + Public Property AmoConREF7() As String + Get + Return Me._amoConREF7 + End Get + Set + Me._amoConREF7 = Value + End Set + End Property + + Public Property VALLIMECVLE() As VALLIMECVLE + Get + Return Me._vALLIMECVLE + End Get + Set + Me._vALLIMECVLE = Value + End Set + End Property + + + Public Property VALLIMNONECLIM() As List(Of VALLIMNONECLIM) + Get + Return Me._vALLIMNONECLIM + End Get + Set + Me._vALLIMNONECLIM = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GUAREFREF)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GUAREFREF object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an GUAREFREF object + ''' + ''' string workflow markup to deserialize + ''' Output GUAREFREF 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 GUAREFREF, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GUAREFREF) + 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 GUAREFREF) 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 GUAREFREF + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GUAREFREF) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GUAREFREF + Return CType(Serializer.Deserialize(s), GUAREFREF) + End Function +#End Region + + ''' + ''' Serializes current GUAREFREF 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GUAREFREF object + ''' + ''' string xml file to load and deserialize + ''' Output GUAREFREF 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 GUAREFREF, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GUAREFREF) + 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 GUAREFREF) 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 GUAREFREF + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VALLIMECVLE + +#Region "Private fields" + Private _notValForECVLE1 As Constraints4.cl27 + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NotValForECVLE1() As Constraints4.cl27 + Get + Return Me._notValForECVLE1 + End Get + Set + Me._notValForECVLE1 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VALLIMECVLE)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VALLIMECVLE object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VALLIMECVLE object + ''' + ''' string workflow markup to deserialize + ''' Output VALLIMECVLE 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 VALLIMECVLE, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VALLIMECVLE) + 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 VALLIMECVLE) 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 VALLIMECVLE + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VALLIMECVLE) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VALLIMECVLE + Return CType(Serializer.Deserialize(s), VALLIMECVLE) + End Function +#End Region + + ''' + ''' Serializes current VALLIMECVLE 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VALLIMECVLE object + ''' + ''' string xml file to load and deserialize + ''' Output VALLIMECVLE 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 VALLIMECVLE, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VALLIMECVLE) + 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 VALLIMECVLE) 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 VALLIMECVLE + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VALLIMNONECLIM + +#Region "Private fields" + Private _notValForOthConPLIM2 As Codelists.CL71 + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NotValForOthConPLIM2() As Codelists.CL71 + Get + Return Me._notValForOthConPLIM2 + End Get + Set + Me._notValForOthConPLIM2 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VALLIMNONECLIM)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VALLIMNONECLIM object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VALLIMNONECLIM object + ''' + ''' string workflow markup to deserialize + ''' Output VALLIMNONECLIM 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 VALLIMNONECLIM, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VALLIMNONECLIM) + 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 VALLIMNONECLIM) 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 VALLIMNONECLIM + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VALLIMNONECLIM) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VALLIMNONECLIM + Return CType(Serializer.Deserialize(s), VALLIMNONECLIM) + End Function +#End Region + + ''' + ''' Serializes current VALLIMNONECLIM 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VALLIMNONECLIM object + ''' + ''' string xml file to load and deserialize + ''' Output VALLIMNONECLIM 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 VALLIMNONECLIM, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VALLIMNONECLIM) + 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 VALLIMNONECLIM) 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 VALLIMNONECLIM + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 TRAAUTCONTRA + +#Region "Private fields" + Private _tINTRA59 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property TINTRA59() As String + Get + Return Me._tINTRA59 + End Get + Set + Me._tINTRA59 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRAAUTCONTRA)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRAAUTCONTRA object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an TRAAUTCONTRA object + ''' + ''' string workflow markup to deserialize + ''' Output TRAAUTCONTRA 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 TRAAUTCONTRA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRAAUTCONTRA) + 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 TRAAUTCONTRA) 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 TRAAUTCONTRA + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRAAUTCONTRA) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRAAUTCONTRA + Return CType(Serializer.Deserialize(s), TRAAUTCONTRA) + End Function +#End Region + + ''' + ''' Serializes current TRAAUTCONTRA 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRAAUTCONTRA object + ''' + ''' string xml file to load and deserialize + ''' Output TRAAUTCONTRA 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 TRAAUTCONTRA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRAAUTCONTRA) + 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 TRAAUTCONTRA) 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 TRAAUTCONTRA + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 CONRESERS + +#Region "Private fields" + Private _conResCodERS16 As String + + Private _datLimERS69 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property ConResCodERS16() As String + Get + Return Me._conResCodERS16 + End Get + Set + Me._conResCodERS16 = Value + End Set + End Property + + + Public Property DatLimERS69() As String + Get + Return Me._datLimERS69 + End Get + Set + Me._datLimERS69 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CONRESERS)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CONRESERS object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an CONRESERS object + ''' + ''' string workflow markup to deserialize + ''' Output CONRESERS 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 CONRESERS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CONRESERS) + 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 CONRESERS) 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 CONRESERS + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CONRESERS) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CONRESERS + Return CType(Serializer.Deserialize(s), CONRESERS) + End Function +#End Region + + ''' + ''' Serializes current CONRESERS 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CONRESERS object + ''' + ''' string xml file to load and deserialize + ''' Output CONRESERS 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 CONRESERS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CONRESERS) + 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 CONRESERS) 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 CONRESERS + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 REPREP + +#Region "Private fields" + Private _namREP5 As String + + Private _repCapREP18 As String + + Private _repCapREP18LNG As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamREP5() As String + Get + Return Me._namREP5 + End Get + Set + Me._namREP5 = Value + End Set + End Property + + Public Property RepCapREP18() As String + Get + Return Me._repCapREP18 + End Get + Set + Me._repCapREP18 = Value + End Set + End Property + + Public Property RepCapREP18LNG() As String + Get + Return Me._repCapREP18LNG + End Get + Set + Me._repCapREP18LNG = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(REPREP)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current REPREP object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an REPREP object + ''' + ''' string workflow markup to deserialize + ''' Output REPREP 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 REPREP, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, REPREP) + 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 REPREP) 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 REPREP + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), REPREP) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As REPREP + Return CType(Serializer.Deserialize(s), REPREP) + End Function +#End Region + + ''' + ''' Serializes current REPREP 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an REPREP object + ''' + ''' string xml file to load and deserialize + ''' Output REPREP 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 REPREP, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, REPREP) + 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 REPREP) 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 REPREP + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 SEAIDSID + +#Region "Private fields" + Private _seaIdeSID1 As String + + Private _seaIdeSID1LNG As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property SeaIdeSID1() As String + Get + Return Me._seaIdeSID1 + End Get + Set + Me._seaIdeSID1 = Value + End Set + End Property + + Public Property SeaIdeSID1LNG() As String + Get + Return Me._seaIdeSID1LNG + End Get + Set + Me._seaIdeSID1LNG = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SEAIDSID)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SEAIDSID object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an SEAIDSID object + ''' + ''' string workflow markup to deserialize + ''' Output SEAIDSID 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 SEAIDSID, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SEAIDSID) + 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 SEAIDSID) 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 SEAIDSID + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SEAIDSID) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SEAIDSID + Return CType(Serializer.Deserialize(s), SEAIDSID) + End Function +#End Region + + ''' + ''' Serializes current SEAIDSID 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SEAIDSID object + ''' + ''' string xml file to load and deserialize + ''' Output SEAIDSID 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 SEAIDSID, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SEAIDSID) + 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 SEAIDSID) 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 SEAIDSID + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 OB + +#Region "Private fields" + Private _aCMA As List(Of ACMA) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._aCMA = New List(Of ACMA)() + End Sub + + + Public Property ACMA() As List(Of ACMA) + Get + Return Me._aCMA + End Get + Set + Me._aCMA = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(OB)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current OB object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an OB object + ''' + ''' string workflow markup to deserialize + ''' Output OB 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 OB, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, OB) + 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 OB) 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 OB + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), OB) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As OB + Return CType(Serializer.Deserialize(s), OB) + End Function +#End Region + + ''' + ''' Serializes current OB 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an OB object + ''' + ''' string xml file to load and deserialize + ''' Output OB 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 OB, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, OB) + 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 OB) 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 OB + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.xsd new file mode 100644 index 0000000..c25dd9e --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.xsd @@ -0,0 +1,1930 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Invoice amount + + + + + invoice currency + + + + + + + + + + + + + + + + + + + + + + + + + Used for BG country. + + + + + + + + + + + + + + + + + + + + + + Used for ES country. + + + + + + + + + + + + + + + + + + + + + + Iddtext : Export/Entrepot Declaration ID + + + + + Nartnumart : Discharging Item Number/Line + + + + + Nartnumart1 : Warehouse Code + + + + + Qamv : Discharging Item Quantity + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + this tag takes 0 or 1 and used for RO + + + + + this tag takes 0 or 1 and used for RO + + + + + group vessel name + + + + + dateFormat - ddMMyyyy + + + + + this tag takes 0 or 1 + + + + + this tag takes 0 or 1 + + + + + for simplified procedure and it can have any value defined at TNet + + + + + dateFormat - yyyymmdd + + + + + + + + + + + 0 or 1 + + + + + 0 or 1 + + + + + + + + + 0 or 1 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Previous Document Registration Position + + + + + Previous Document Registration Number + + + + + Previous Document Number Of Packages + + + + + + + + + + + + + + + + YYYY used in Italy + + + + + = IT fixed + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.Designer.vb new file mode 100644 index 0000000..d5d362f --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.Designer.vb @@ -0,0 +1,1289 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' CodelistsListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace Codelists + + + Public Enum CL32 + + ''' + + Item4 + + ''' + + Item7 + End Enum + + + Public Enum CL14 + + ''' + + Item235 + + ''' + + Item270 + + ''' + + Item271 + + ''' + + Item325 + + ''' + + Item380 + + ''' + + Item703 + + ''' + + Item704 + + ''' + + Item705 + + ''' + + Item720 + + ''' + + Item722 + + ''' + + Item730 + + ''' + + Item740 + + ''' + + Item741 + + ''' + + Item750 + + ''' + + Item760 + + ''' + + Item785 + + ''' + + Item787 + + ''' + + Item820 + + ''' + + Item821 + + ''' + + Item822 + + ''' + + Item823 + + ''' + + Item952 + + ''' + + Item955 + + ''' + CLE + + ''' + IF3 + + ''' + IF8 + + ''' + MNS + + ''' + T2F + + ''' + T2L + + ''' + T2ATA + + ''' + T2 + + ''' + T2M + + ''' + T2CIM + + ''' + T2TIR + + ''' + EX + + ''' + IM + + ''' + CO + + ''' + EU + + ''' + ZZZ + End Enum + + + Public Enum CL25 + + ''' + L + + ''' + S + End Enum + + + Public Enum CL82 + + ''' + + Item0 + + ''' + + Item1 + + ''' + + Item2 + End Enum + + + Public Enum CL70 + + ''' + AD + + ''' + AT + + ''' + BE + + ''' + BG + + ''' + CH + + ''' + CY + + ''' + CZ + + ''' + DE + + ''' + DK + + ''' + EE + + ''' + ES + + ''' + FI + + ''' + FR + + ''' + GB + + ''' + GR + + ''' + HU + + ''' + IE + + ''' + [IS] + + ''' + IT + + ''' + LT + + ''' + LU + + ''' + LV + + ''' + MT + + ''' + NL + + ''' + NO + + ''' + PL + + ''' + PT + + ''' + RO + + ''' + SE + + ''' + SI + + ''' + SK + + ''' + SM + End Enum + + + Public Enum CL68 + + ''' + A + + ''' + B + + ''' + C + + ''' + D + + ''' + E + + ''' + F + + ''' + G + + ''' + H + + ''' + I + + ''' + J + + ''' + K + + ''' + L + + ''' + M + + ''' + N + + ''' + O + + ''' + P + + ''' + Q + + ''' + S + + ''' + T + + ''' + U + + ''' + V + + ''' + W + End Enum + + + Public Enum CL79 + + ''' + N + + ''' + S + + ''' + U + End Enum + + + Public Enum CL105 + + ''' + + Item1 + + ''' + + Item2 + + ''' + + Item3 + + ''' + + Item4 + + ''' + + Item5 + + ''' + + Item6 + + ''' + + Item7 + End Enum + + + Public Enum CL23 + + ''' + + Item12 + + ''' + + Item13 + + ''' + + Item14 + + ''' + + Item15 + + ''' + + Item16 + + ''' + + Item18 + + ''' + + Item19 + + ''' + + Item2 + + ''' + + Item21 + + ''' + + Item22 + + ''' + + Item23 + + ''' + + Item26 + + ''' + + Item28 + + ''' + + Item29 + + ''' + + Item3 + + ''' + + Item32 + + ''' + + Item33 + + ''' + + Item35 + + ''' + + Item36 + + ''' + + Item37 + + ''' + + Item38 + + ''' + + Item39 + + ''' + + Item40 + + ''' + + Item6 + + ''' + + Item7 + End Enum + + + Public Enum CL49 + + ''' + + Item12 + + ''' + + Item13 + + ''' + + Item14 + + ''' + + Item15 + + ''' + + Item19 + + ''' + + Item26 + + ''' + + Item35 + + ''' + + Item37 + + ''' + + Item38 + + ''' + + Item39 + + ''' + + Item40 + + ''' + + Item90 + + ''' + + Item91 + + ''' + + Item92 + + ''' + + Item93 + End Enum + + + Public Enum CL28 + + ''' + F + + ''' + L + End Enum + + + Public Enum CL33 + + ''' + UNB + + ''' + UNZ + End Enum + + + Public Enum CL37 + + ''' + EC + + ''' + UN + End Enum + + + Public Enum CL36 + + ''' + + Item96B + End Enum + + + Public Enum CL34 + + ''' + UNH + + ''' + UNT + End Enum + + + Public Enum CL60 + + ''' + CC004A + + ''' + CC005A + + ''' + CC007A + + ''' + CC008A + + ''' + CC009A + + ''' + CC013B + + ''' + CC014A + + ''' + CC015A + + ''' + CC015B + + ''' + CC016A + + ''' + CC017B + + ''' + CC019A + + ''' + CC021A + + ''' + CC023A + + ''' + CC025A + + ''' + CC026A + + ''' + CC028A + + ''' + CC029B + + ''' + CC035A + + ''' + CC043A + + ''' + CC044A + + ''' + CC045A + + ''' + CC051B + + ''' + CC054A + + ''' + CC055A + + ''' + CC058A + + ''' + CC060A + + ''' + CC062A + + ''' + CC100A + + ''' + CC140A + + ''' + CC141A + + ''' + CC224A + + ''' + CC225A + + ''' + CC228A + + ''' + CC229A + + ''' + CC231A + + ''' + CC304A + + ''' + CC305A + + ''' + CC313A + + ''' + CC315A + + ''' + CC316A + + ''' + CC323A + + ''' + CC324A + + ''' + CC325A + + ''' + CC328A + + ''' + CC351A + + ''' + CC928A + + ''' + CD001B + + ''' + CD002A + + ''' + CD003B + + ''' + CD006A + + ''' + CD010A + + ''' + CD011A + + ''' + CD018A + + ''' + CD020A + + ''' + CD024A + + ''' + CD027A + + ''' + CD030B + + ''' + CD031B + + ''' + CD032B + + ''' + CD034A + + ''' + CD037A + + ''' + CD038B + + ''' + CD050B + + ''' + CD059A + + ''' + CD063A + + ''' + CD106A + + ''' + CD111A + + ''' + CD112A + + ''' + CD114A + + ''' + CD115B + + ''' + CD118A + + ''' + CD12A + + ''' + CD142A + + ''' + CD143A + + ''' + CD144A + + ''' + CD145A + + ''' + CD150A + + ''' + CD151A + + ''' + CD152A + + ''' + CD200A + + ''' + CD201A + + ''' + CD203A + + ''' + CD204A + + ''' + CD205A + + ''' + CD209A + + ''' + CD301A + + ''' + CD302A + + ''' + CD303A + + ''' + CD319A + + ''' + CD411A + + ''' + CD501A + + ''' + CD501B + + ''' + CD502A + + ''' + CD503A + + ''' + CD503B + + ''' + CD510A + + ''' + CD518A + + ''' + CD518B + + ''' + CD524A + + ''' + CD527A + + ''' + CD538A + + ''' + CD584A + + ''' + CD586A + + ''' + CD599A + + ''' + CD601A + + ''' + CD603A + + ''' + CD901B + + ''' + CD904A + + ''' + CD905A + + ''' + CD906A + + ''' + CD907A + + ''' + CD912A + + ''' + CD913A + + ''' + CD914A + + ''' + CD916A + + ''' + CD917A + + ''' + CD918A + + ''' + CD919A + + ''' + CD931B + + ''' + CD932B + + ''' + CDS01A + End Enum + + + Public Enum CL1 + + ''' + BANSTA + + ''' + CUSDEC + + ''' + CUSRES + + ''' + FINSTA + + ''' + GENRAL + + ''' + GESMES + + ''' + PARTTC + + ''' + SANCRT + End Enum + + + Public Enum CL35 + + ''' + D + End Enum + + + Public Enum CL26 + + ''' + + Item01 + + ''' + + Item02 + + ''' + + Item03 + + ''' + + Item04 + + ''' + + Item05 + + ''' + + Item06 + + ''' + + Item07 + + ''' + + Item08 + + ''' + + Item09 + + ''' + + Item10 + + ''' + + Item11 + + ''' + + Item12 + End Enum + + + Public Enum CL71 + + ''' + AD + + ''' + CH + + ''' + [IS] + + ''' + NO + + ''' + SM + End Enum + + + Public Enum CL24 + + ''' + C + + ''' + D + + ''' + U + End Enum + + + Public Enum CL83 + + ''' + CA + + ''' + DE + + ''' + DS + + ''' + HA + + ''' + NR + + ''' + TR + End Enum + + + Public Enum CL117 + + ''' + + Item1 + End Enum + + + Public Enum CL64 + + ''' + + Item1 + End Enum + + + Public Enum CL84 + + ''' + + Item1 + + ''' + + Item2 + + ''' + + Item3 + + ''' + + Item4 + + ''' + + Item5 + + ''' + + Item6 + End Enum + + + Public Enum CL81 + + ''' + CM + + ''' + CN + + ''' + NF + + ''' + PN + + ''' + UM + + ''' + UQ + + ''' + UR + + ''' + W0 + + ''' + W8 + End Enum + + + Public Enum CL21 + + ''' + UNOC + End Enum + + + Public Enum CL22 + + ''' + + Item3 + End Enum +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.xsd new file mode 100644 index 0000000..f64cfea --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.xsd @@ -0,0 +1,516 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.Designer.vb new file mode 100644 index 0000000..50f9f39 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.Designer.vb @@ -0,0 +1,33 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' Constraints4ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace Constraints4 + + + Public Enum CL27 + + ''' + + Item0 + + ''' + + Item1 + End Enum +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.xsd new file mode 100644 index 0000000..477a030 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.xsd @@ -0,0 +1,182 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/cSGSInterface.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/cSGSInterface.vb new file mode 100644 index 0000000..258f149 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/cSGSInterface.vb @@ -0,0 +1,1543 @@ + + +Public Class cSGSInterface + + + + Shared Function generateVersandanmeldungNCTS(cDY As cNCTS_TR, ByRef saveFile As String, DY_ACTION As String) As Boolean + Try + + Dim Interface_VERSION = "003" + Dim ObjectAktion = DY_ACTION + + Dim XML As New CC015B_TR_EXT_V4_3.CC015B + + 'Transaktion: + XML.HEAHEA.RefNumHEA4 = cDY.ncts_ObjectName + + + + ' Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" + Dim saveDir = "\\share01\Datenarchiv\SGS\SEND\" + If Not System.IO.Directory.Exists(saveDir) Then + System.IO.Directory.CreateDirectory(saveDir) + End If + + saveFile = saveDir & "SGS_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + 'MsgBox(saveFile) + XML.SaveToFile(saveFile) + + replaceNullDateXML(saveFile) + + + Return False 'TEST! + + + + Return True + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return False + End Try + + + 'XML.Transaktion.IOPartner = getIOPartner(cDY.ncts_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + 'XML.Transaktion.IODatumZeit = Now + 'XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz + 'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.ncts_firma) '"SUW" + 'XML.Transaktion.Version = Interface_VERSION + + 'XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE.EinzelVersandanmeldungTyp + + ''ObjektIdentifizierung: + 'XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL" + 'XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE.ObjektIdentifizierungVATyp + 'XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektName = cDY.ncts_ObjectName + 'If cDY.ncts_ObjectAlias IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAliasname = cDY.ncts_ObjectAlias + 'Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) + 'XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion + 'If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB + + 'If cDY.ncts_BezugsnummerVorblendung IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.ncts_BezugsnummerVorblendung + + ''Kopfdaten: + 'XML.EinzelVersandanmeldung.KopfDaten = New VersandanmeldungNCTSDE.KopfDatenVersandanmeldungTyp + 'If cDY.ncts_AbgangsDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.AbgangsstelleDienststellnummer = cDY.ncts_AbgangsDienststellennummer + 'If cDY.ncts_BestimmungsstelleDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BestimmungsstelleDienststellnummer = cDY.ncts_BestimmungsstelleDienststellennummer + 'If cDY.ncts_VersendungsLandCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.VersendungslandCode = cDY.ncts_VersendungsLandCode + 'If cDY.ncts_BestimmungslandCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BestimmungslandCode = cDY.ncts_BestimmungslandCode + 'If cDY.ncts_ArtAnmeldung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.ArtAnmeldungKopfCode = cDY.ncts_ArtAnmeldung + 'If cDY.ncts_BeladungsOrt IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BeladungsOrt = cDY.ncts_BeladungsOrt + 'XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer = New List(Of String) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer1) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer2) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer3) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer4) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer5) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer6) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer7) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer8) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer9) + 'If cDY.ncts_AbgangsDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.AbgangsstelleDienststellnummer = cDY.ncts_AbgangsDienststellennummer + 'If cDY.ncts_Wiedergestellungsdatum IsNot Nothing AndAlso IsDate(cDY.ncts_Wiedergestellungsdatum) Then + ' XML.EinzelVersandanmeldung.KopfDaten.Wiedergestellungsdatum = cDY.ncts_Wiedergestellungsdatum + 'Else + ' XML.EinzelVersandanmeldung.KopfDaten.Wiedergestellungsdatum = Nothing + 'End If + + 'If cDY.ncts_KzVereinfachtesVerfahren IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.KzVereinfachtesVerfahren = CInt(Int(cDY.ncts_KzVereinfachtesVerfahren)) ' sonst true = -1 + ''GesRoh -> auto + ''GesPk -> auto + + ''Verschluss: + 'If cDY.ncts_Verschluss_ArtCode IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.Verschluss = New VersandanmeldungNCTSDE.VerschlussVATyp + ' If cDY.ncts_Verschluss_ArtCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.ArtCode = cDY.ncts_Verschluss_ArtCode + ' If cDY.ncts_Verschluss_Anzahl IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Anzahl = cDY.ncts_Verschluss_Anzahl + + ' If cDY.ncts_Verschluss_Zeichen1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen1) + ' If cDY.ncts_Verschluss_Zeichen2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen2) + ' If cDY.ncts_Verschluss_Zeichen3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen3) + ' If cDY.ncts_Verschluss_Zeichen4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen4) + ' If cDY.ncts_Verschluss_Zeichen5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen5) + ' If cDY.ncts_Verschluss_Zeichen6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen6) + ' If cDY.ncts_Verschluss_Zeichen7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen7) + ' If cDY.ncts_Verschluss_Zeichen8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen8) + ' If cDY.ncts_Verschluss_Zeichen9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen9) + ' If cDY.ncts_Verschluss_Zeichen10 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen10) + ' If cDY.ncts_Verschluss_Zeichen11 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen11) + ' If cDY.ncts_Verschluss_Zeichen12 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen12) + ' If cDY.ncts_Verschluss_Zeichen13 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen13) + ' If cDY.ncts_Verschluss_Zeichen14 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen14) + ' If cDY.ncts_Verschluss_Zeichen15 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen15) + ' If cDY.ncts_Verschluss_Zeichen16 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen16) + 'End If + + ''Sicherheitsangaben: + 'If cDY.ncts_SICHERHEITSANGABEN.Count > 0 Then + ' XML.EinzelVersandanmeldung.KopfDaten.Sicherheitsangaben = New List(Of VersandanmeldungNCTSDE.SicherheitsangabenVATyp) + ' For Each s In cDY.ncts_SICHERHEITSANGABEN + ' Dim SA As New VersandanmeldungNCTSDE.SicherheitsangabenVATyp + ' If s.nctsSA_ArtCode IsNot Nothing Then SA.ArtCode = s.nctsSA_ArtCode + ' If s.nctsSA_BezeichnungBescheinigun IsNot Nothing Then SA.BezeichnungBescheinigung = s.nctsSA_BezeichnungBescheinigun + ' If s.nctsSA_AbgabenBetrag IsNot Nothing Then SA.Abgabenbetrag = s.nctsSA_AbgabenBetrag + ' If s.nctsSA_GRN IsNot Nothing Then + ' SA.GRN = s.nctsSA_GRN + ' If If(s.nctsSA_GRN, "") = "05AT510000G000FP7" Then + ' If If(s.nctsSA_Zugriffcode, "").replace("0000", "").length <> 4 Then + ' s.nctsSA_Zugriffcode = InputBox("Bitte geben Sie den Zugriffscode für die AT-Bürgschaft ein:", "Zugriffscode", "") + ' If s.nctsSA_Zugriffcode.length > 4 Then + ' s.nctsSA_Zugriffcode = s.nctsSA_Zugriffcode.ToString.Substring(0, 4) + ' End If + ' End If + ' End If + ' If s.nctsSA_Zugriffcode IsNot Nothing Then SA.Zugriffscode = s.nctsSA_Zugriffcode + + ' ' If s.nctsSA_TIN IsNot Nothing Then SA.TIN = s.nctsSA_TIN ---> Fehler, das Feld wird in ausl. TIN geschreiben --> muss aber leer bleiben + ' XML.EinzelVersandanmeldung.KopfDaten.Sicherheitsangaben.Add(SA) + ' End If + ' Next + 'End If + + ''Beförderungsmittel: + '' If cDY.ncts_Befoerderungsmittel_KennzeichenAbgang Or cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode isnot nothing then + 'XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel = New VersandanmeldungNCTSDE.BefoerderungsmittelVATyp + 'If cDY.ncts_Befoerderungsmittel_KennzeichenAbgang IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.KennzeichenAbgang = cDY.ncts_Befoerderungsmittel_KennzeichenAbgang + 'If cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.StaatszugehoerigkeitAbgangCode = cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode + + 'If cDY.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.VerkehrszweigGrenzueberschreitent = cDY.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent + 'If cDY.ncts_Befoerderungsmittel_ArtGrenzueberschreitung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.ArtGrenzueberschreitentCode = cDY.ncts_Befoerderungsmittel_ArtGrenzueberschreitung + 'If cDY.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.KennzeichenGrenzueberschreitend = cDY.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend + 'If cDY.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.StaatszugehoerigkeitGrenzueberschreitendCode = cDY.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode + ''End If + + ''Adressen + 'XML.EinzelVersandanmeldung.KopfDaten.Adressen = New VersandanmeldungNCTSDE.AdressenVATyp + 'If cDY.ncts_Versender_EORI IsNot Nothing Or cDY.ncts_Versender_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender = New VersandanmeldungNCTSDE.AdresseVA1Typ + ' If cDY.ncts_Versender_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.EORI = cDY.ncts_Versender_EORI + ' If cDY.ncts_Versender_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Versender_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.NLNR = cDY.ncts_Versender_NLNR + ' If cDY.ncts_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Name = cDY.ncts_Versender_Name + ' If cDY.ncts_Versender_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.StrasseHausnummer = cDY.ncts_Versender_StrasseHausnummer + ' If cDY.ncts_Versender_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.PLZ = cDY.ncts_Versender_PLZ + ' If cDY.ncts_Versender_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Ort = cDY.ncts_Versender_Ort + ' If cDY.ncts_Versender_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Land = cDY.ncts_Versender_Land + ' If cDY.ncts_Versender_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.TIN = cDY.ncts_Versender_TIN + 'End If + 'If cDY.ncts_Empfaenger_EORI IsNot Nothing Or cDY.ncts_Empfaenger_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger = New VersandanmeldungNCTSDE.AdresseVA1Typ + ' If cDY.ncts_Empfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.EORI = cDY.ncts_Empfaenger_EORI + ' If cDY.ncts_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Empfaenger_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.NLNR = cDY.ncts_Empfaenger_NLNR + ' If cDY.ncts_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Name = cDY.ncts_Empfaenger_Name + ' If cDY.ncts_Empfaenger_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.StrasseHausnummer = cDY.ncts_Empfaenger_StrasseHausnummer + ' If cDY.ncts_Empfaenger_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.PLZ = cDY.ncts_Empfaenger_PLZ + ' If cDY.ncts_Empfaenger_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Ort = cDY.ncts_Empfaenger_Ort + ' If cDY.ncts_Empfaenger_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Land = cDY.ncts_Empfaenger_Land + ' If cDY.ncts_Empfaenger_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.TIN = cDY.ncts_Empfaenger_TIN + 'End If + 'If cDY.ncts_Hauptverpflichteter_EORI IsNot Nothing Or cDY.ncts_Hauptverpflichteter_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter = New VersandanmeldungNCTSDE.HauptverpflichteterVATyp + ' If cDY.ncts_Hauptverpflichteter_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.EORI = cDY.ncts_Hauptverpflichteter_EORI + ' If cDY.ncts_Hauptverpflichteter_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Hauptverpflichteter_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.NLNR = cDY.ncts_Hauptverpflichteter_NLNR + ' If cDY.ncts_Hauptverpflichteter_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Name = cDY.ncts_Hauptverpflichteter_Name + ' If cDY.ncts_Hauptverpflichteter_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.StrasseHausnummer = cDY.ncts_Hauptverpflichteter_StrasseHausnummer + ' If cDY.ncts_Hauptverpflichteter_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.PLZ = cDY.ncts_Hauptverpflichteter_PLZ + ' If cDY.ncts_Hauptverpflichteter_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Ort = cDY.ncts_Hauptverpflichteter_Ort + ' If cDY.ncts_Hauptverpflichteter_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Land = cDY.ncts_Hauptverpflichteter_Land + ' If cDY.ncts_Hauptverpflichteter_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.TIN = cDY.ncts_Hauptverpflichteter_TIN + ' If cDY.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.BewilligungsnummerVersender = cDY.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender + ' If cDY.ncts_ZugelassenerEmpfaenger_IDCarnet IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.IDCarnet = cDY.ncts_ZugelassenerEmpfaenger_IDCarnet + 'End If + + + + + ''SumA + 'XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit = New VersandanmeldungNCTSDE.SumASicherheitVATyp + + 'If cDY.ncts_SumA_KzSumASicherheit IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.KzSumASicherheit = CInt(Int(cDY.ncts_SumA_KzSumASicherheit)) ' sonst true = -1 + 'If cDY.ncts_SumA_KennnummerSendung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.KennnummerSendung = cDY.ncts_SumA_KennnummerSendung + + 'If cDY.ncts_SumA_BesondereUmstaende IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BesondereUmstaende = cDY.ncts_SumA_BesondereUmstaende + 'If cDY.ncts_SumA_NummerBefoerderung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.NummerBefoerderung = cDY.ncts_SumA_NummerBefoerderung + 'If cDY.ncts_SumA_Ladeort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Ladeort = cDY.ncts_SumA_Ladeort + + 'If cDY.ncts_SumA_Entladeort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Entladeort = cDY.ncts_SumA_Entladeort + 'If cDY.ncts_SumA_BefoerderungskostenZahlungsweise IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungskostenZahlungsweise = cDY.ncts_SumA_BefoerderungskostenZahlungsweise + 'If cDY.ncts_SumA_BefoerderungsrouteLand1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand1) + 'If cDY.ncts_SumA_BefoerderungsrouteLand2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand2) + 'If cDY.ncts_SumA_BefoerderungsrouteLand3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand3) + 'If cDY.ncts_SumA_BefoerderungsrouteLand4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand4) + 'If cDY.ncts_SumA_BefoerderungsrouteLand5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand5) + 'If cDY.ncts_SumA_BefoerderungsrouteLand6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand6) + 'If cDY.ncts_SumA_BefoerderungsrouteLand7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand7) + 'If cDY.ncts_SumA_BefoerderungsrouteLand8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand8) + 'If cDY.ncts_SumA_BefoerderungsrouteLand9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand9) + 'If cDY.ncts_SumA_Versender_EORI IsNot Nothing Or cDY.ncts_SumA_Versender_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender = New VersandanmeldungNCTSDE.AdresseVATyp + ' If cDY.ncts_SumA_Versender_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.EORI = cDY.ncts_SumA_Versender_EORI + ' If cDY.ncts_SumA_Versender_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Versender_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.NLNR = cDY.ncts_SumA_Versender_NLNR + ' If cDY.ncts_SumA_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Name = cDY.ncts_SumA_Versender_Name + ' If cDY.ncts_SumA_Versender_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.StrasseHausnummer = cDY.ncts_SumA_Versender_StrasseHausnummer + ' If cDY.ncts_SumA_Versender_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.PLZ = cDY.ncts_SumA_Versender_PLZ + ' If cDY.ncts_SumA_Versender_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Ort = cDY.ncts_SumA_Versender_Ort + ' If cDY.ncts_SumA_Versender_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Land = cDY.ncts_SumA_Versender_Land + ' If cDY.ncts_SumA_Versender_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.TIN = cDY.ncts_SumA_Versender_TIN + 'End If + 'If cDY.ncts_SumA_Empfaenger_EORI IsNot Nothing Or cDY.ncts_SumA_Empfaenger_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger = New VersandanmeldungNCTSDE.AdresseVATyp + ' If cDY.ncts_SumA_Empfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.EORI = cDY.ncts_SumA_Empfaenger_EORI + ' If cDY.ncts_SumA_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Empfaenger_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.NLNR = cDY.ncts_SumA_Empfaenger_NLNR + ' If cDY.ncts_SumA_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Name = cDY.ncts_SumA_Empfaenger_Name + ' If cDY.ncts_SumA_Empfaenger_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.StrasseHausnummer = cDY.ncts_SumA_Empfaenger_StrasseHausnummer + ' If cDY.ncts_SumA_Empfaenger_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.PLZ = cDY.ncts_SumA_Empfaenger_PLZ + ' If cDY.ncts_SumA_Empfaenger_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Ort = cDY.ncts_SumA_Empfaenger_Ort + ' If cDY.ncts_SumA_Empfaenger_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Land = cDY.ncts_SumA_Empfaenger_Land + ' If cDY.ncts_SumA_Empfaenger_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.TIN = cDY.ncts_SumA_Empfaenger_TIN + 'End If + 'If cDY.ncts_SumA_Befoerderer_EORI IsNot Nothing Or cDY.ncts_SumA_Befoerderer_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer = New VersandanmeldungNCTSDE.AdresseVATyp + ' If cDY.ncts_SumA_Befoerderer_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.EORI = cDY.ncts_SumA_Befoerderer_EORI + ' If cDY.ncts_SumA_Befoerderer_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Befoerderer_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.NLNR = cDY.ncts_SumA_Befoerderer_NLNR + ' If cDY.ncts_SumA_Befoerderer_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Name = cDY.ncts_SumA_Befoerderer_Name + ' If cDY.ncts_SumA_Befoerderer_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.StrasseHausnummer = cDY.ncts_SumA_Befoerderer_StrasseHausnummer + ' If cDY.ncts_SumA_Befoerderer_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.PLZ = cDY.ncts_SumA_Befoerderer_PLZ + ' If cDY.ncts_SumA_Befoerderer_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Ort = cDY.ncts_SumA_Befoerderer_Ort + ' If cDY.ncts_SumA_Befoerderer_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Land = cDY.ncts_SumA_Befoerderer_Land + ' If cDY.ncts_SumA_Befoerderer_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.TIN = cDY.ncts_SumA_Befoerderer_TIN + 'End If + + ''Warenposition: + 'If cDY.ncts_WARENPOS IsNot Nothing AndAlso cDY.ncts_WARENPOS.Count > 0 Then + ' XML.EinzelVersandanmeldung.WarenPosition = New List(Of VersandanmeldungNCTSDE.WarenPositionVersandanmeldungTyp) + ' For Each p In cDY.ncts_WARENPOS + ' Dim WP As New VersandanmeldungNCTSDE.WarenPositionVersandanmeldungTyp + ' If p.nctsWP_PositionsNummer IsNot Nothing Then WP.Positionsnummer = p.nctsWP_PositionsNummer + ' If p.nctsWP_Warennummer IsNot Nothing Then WP.Warennummer = p.nctsWP_Warennummer + ' If p.nctsWP_ArtAnmeldungPositionCode IsNot Nothing Then WP.ArtAnmeldungPositionCode = p.nctsWP_ArtAnmeldungPositionCode + ' If p.nctsWP_Warenbezeichnung IsNot Nothing Then WP.Warenbezeichnung = p.nctsWP_Warenbezeichnung + ' If p.nctsWP_Warenwert IsNot Nothing Then WP.Warenwert = p.nctsWP_Warenwert.ToString.Replace(",", ".") 'AndAlso IsNumeric(p.nctsWP_Warenwert) Then WP.Warenwert = CDbl(p.nctsWP_Warenwert) + ' If p.nctsWP_WarenwertWaehrung IsNot Nothing Then WP.WarenwertWaehrung = p.nctsWP_WarenwertWaehrung 'AndAlso IsNumeric(p.nctsWP_Warenwert) Then WP.Warenwert = CDbl(p.nctsWP_Warenwert) + ' If p.nctsWP_WarenwertProzent IsNot Nothing Then WP.WarenwertProzent = p.nctsWP_WarenwertProzent + ' If p.nctsWP_SchaetzKz IsNot Nothing Then WP.SchaetzKz = p.nctsWP_SchaetzKz + ' If p.nctsWP_VersendungslandPositionCode IsNot Nothing Then WP.VersendungslandPositionCode = p.nctsWP_VersendungslandPositionCode + ' If p.nctsWP_BestimmungslandPositionCode IsNot Nothing Then WP.BestimmungslandPositionCode = p.nctsWP_BestimmungslandPositionCode + ' If p.nctsWP_Rohmasse IsNot Nothing Then WP.Rohmasse = p.nctsWP_Rohmasse + ' If p.nctsWP_Eigenmasse IsNot Nothing AndAlso CDbl(p.nctsWP_Eigenmasse) > 0 Then WP.Eigenmasse = p.nctsWP_Eigenmasse + + + ' If p.nctsWP_BesondereVermeke_ExportAusEU IsNot Nothing Then WP.BesondereVermerke.ExportAusEU = CInt(Int(p.nctsWP_BesondereVermeke_ExportAusEU)) ' sonst true = -1 + ' If p.nctsWP_BesondereVermeke_ExportAusLand IsNot Nothing Then WP.BesondereVermerke.ExportAusLand = p.nctsWP_BesondereVermeke_ExportAusLand + ' If p.nctsWP_BesondereVermeke_Export IsNot Nothing Then WP.BesondereVermerke.Export = CInt(Int(p.nctsWP_BesondereVermeke_Export)) ' sonst true = -1 + + ' If p.nctsWP_BesondereVermeke_ExportBeschraenkung IsNot Nothing Then WP.BesondereVermerke.ExportBeschraenkung = CInt(Int(p.nctsWP_BesondereVermeke_ExportBeschraenkung)) ' sonst true = -1 + ' If p.nctsWP_BesondereVermeke_ExportAbgaben IsNot Nothing Then WP.BesondereVermerke.ExportAbgaben = CInt(Int(p.nctsWP_BesondereVermeke_ExportAbgaben)) ' sonst true = -1 + ' If p.nctsWP_BesondereVermeke_Vermerk IsNot Nothing Then WP.BesondereVermerke.Vermerk = p.nctsWP_BesondereVermeke_Vermerk + ' If p.nctsWP_BesondereVermeke_Kz10600 IsNot Nothing Then WP.BesondereVermerke.Kz10600 = CInt(Int(p.nctsWP_BesondereVermeke_Kz10600)) ' sonst true = -1 + + + ' If p.nctsWP_Versender_EORI IsNot Nothing Or p.nctsWP_Versender_Name IsNot Nothing Then + ' WP.AdressenPosition.Versender = New VersandanmeldungNCTSDE.AdresseVA1Typ + ' If p.nctsWP_Versender_EORI IsNot Nothing Then WP.AdressenPosition.Versender.EORI = p.nctsWP_Versender_EORI + ' If p.nctsWP_Versender_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_Versender_NLNR) Then WP.AdressenPosition.Versender.NLNR = p.nctsWP_Versender_NLNR + ' If p.nctsWP_Versender_Name IsNot Nothing Then WP.AdressenPosition.Versender.Name = p.nctsWP_Versender_Name + ' If p.nctsWP_Versender_StrasseHausnummer IsNot Nothing Then WP.AdressenPosition.Versender.StrasseHausnummer = p.nctsWP_Versender_StrasseHausnummer + ' If p.nctsWP_Versender_PLZ IsNot Nothing Then WP.AdressenPosition.Versender.PLZ = p.nctsWP_Versender_PLZ + ' If p.nctsWP_Versender_Ort IsNot Nothing Then WP.AdressenPosition.Versender.Ort = p.nctsWP_Versender_Ort + ' If p.nctsWP_Versender_Land IsNot Nothing Then WP.AdressenPosition.Versender.Land = p.nctsWP_Versender_Land + ' If p.nctsWP_Versender_TIN IsNot Nothing Then WP.AdressenPosition.Versender.TIN = p.nctsWP_Versender_TIN + ' End If + ' If p.nctsWP_Empfaenger_EORI IsNot Nothing Or p.nctsWP_Empfaenger_Name IsNot Nothing Then + ' WP.AdressenPosition.Empfaenger = New VersandanmeldungNCTSDE.AdresseVA1Typ + ' If p.nctsWP_Empfaenger_EORI IsNot Nothing Then WP.AdressenPosition.Empfaenger.EORI = p.nctsWP_Empfaenger_EORI + ' If p.nctsWP_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_Empfaenger_NLNR) Then WP.AdressenPosition.Empfaenger.NLNR = p.nctsWP_Empfaenger_NLNR + ' If p.nctsWP_Empfaenger_Name IsNot Nothing Then WP.AdressenPosition.Empfaenger.Name = p.nctsWP_Empfaenger_Name + ' If p.nctsWP_Empfaenger_StrasseHausnummer IsNot Nothing Then WP.AdressenPosition.Empfaenger.StrasseHausnummer = p.nctsWP_Empfaenger_StrasseHausnummer + ' If p.nctsWP_Empfaenger_PLZ IsNot Nothing Then WP.AdressenPosition.Empfaenger.PLZ = p.nctsWP_Empfaenger_PLZ + ' If p.nctsWP_Empfaenger_Ort IsNot Nothing Then WP.AdressenPosition.Empfaenger.Ort = p.nctsWP_Empfaenger_Ort + ' If p.nctsWP_Empfaenger_Land IsNot Nothing Then WP.AdressenPosition.Empfaenger.Land = p.nctsWP_Empfaenger_Land + ' If p.nctsWP_Empfaenger_TIN IsNot Nothing Then WP.AdressenPosition.Empfaenger.TIN = p.nctsWP_Empfaenger_TIN + ' End If + + + ' If p.nctsWP_SumAKennnummerSendung IsNot Nothing Then WP.SumASicherheit.KennnummerSendung = p.nctsWP_SumAKennnummerSendung + ' If p.nctsWP_SumABefoerderungskostenZahlungsweise IsNot Nothing Then WP.SumASicherheit.BefoerderungskostenZahlungsweise = p.nctsWP_SumABefoerderungskostenZahlungsweise + ' If p.nctsWP_SumAUNGefahrgutnummer IsNot Nothing Then WP.SumASicherheit.UNGefahrgutnummer = p.nctsWP_SumAUNGefahrgutnummer + + ' If p.nctsWP_SumAVersender_EORI IsNot Nothing Or p.nctsWP_SumAVersender_Name IsNot Nothing Then + ' WP.SumASicherheit.Versender = New VersandanmeldungNCTSDE.AdresseVATyp + ' If p.nctsWP_SumAVersender_EORI IsNot Nothing Then WP.SumASicherheit.Versender.EORI = p.nctsWP_SumAVersender_EORI + ' If p.nctsWP_SumAVersender_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_SumAVersender_NLNR) Then WP.SumASicherheit.Versender.NLNR = p.nctsWP_SumAVersender_NLNR + ' If p.nctsWP_SumAVersender_Name IsNot Nothing Then WP.SumASicherheit.Versender.Name = p.nctsWP_SumAVersender_Name + ' If p.nctsWP_SumAVersender_StrasseHausnummer IsNot Nothing Then WP.SumASicherheit.Versender.StrasseHausnummer = p.nctsWP_SumAVersender_StrasseHausnummer + ' If p.nctsWP_SumAVersender_PLZ IsNot Nothing Then WP.SumASicherheit.Versender.PLZ = p.nctsWP_SumAVersender_PLZ + ' If p.nctsWP_SumAVersender_Ort IsNot Nothing Then WP.SumASicherheit.Versender.Ort = p.nctsWP_SumAVersender_Ort + ' If p.nctsWP_SumAVersender_Land IsNot Nothing Then WP.SumASicherheit.Versender.Land = p.nctsWP_SumAVersender_Land + ' If p.nctsWP_SumAVersender_TIN IsNot Nothing Then WP.SumASicherheit.Versender.TIN = p.nctsWP_SumAVersender_TIN + ' End If + ' If p.nctsWP_SumAEmpfaenger_EORI IsNot Nothing Or p.nctsWP_SumAEmpfaenger_Name IsNot Nothing Then + ' WP.SumASicherheit.Empfaenger = New VersandanmeldungNCTSDE.AdresseVATyp + ' If p.nctsWP_SumAEmpfaenger_EORI IsNot Nothing Then WP.SumASicherheit.Empfaenger.EORI = p.nctsWP_SumAEmpfaenger_EORI + ' If p.nctsWP_SumAEmpfaenger_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_SumAEmpfaenger_NLNR) Then WP.SumASicherheit.Empfaenger.NLNR = p.nctsWP_SumAEmpfaenger_NLNR + ' If p.nctsWP_SumAEmpfaenger_Name IsNot Nothing Then WP.SumASicherheit.Empfaenger.Name = p.nctsWP_SumAEmpfaenger_Name + ' If p.nctsWP_SumAEmpfaenger_StrasseHausnummer IsNot Nothing Then WP.SumASicherheit.Empfaenger.StrasseHausnummer = p.nctsWP_SumAEmpfaenger_StrasseHausnummer + ' If p.nctsWP_SumAEmpfaenger_PLZ IsNot Nothing Then WP.SumASicherheit.Empfaenger.PLZ = p.nctsWP_SumAEmpfaenger_PLZ + ' If p.nctsWP_SumAEmpfaenger_Ort IsNot Nothing Then WP.SumASicherheit.Empfaenger.Ort = p.nctsWP_SumAEmpfaenger_Ort + ' If p.nctsWP_SumAEmpfaenger_Land IsNot Nothing Then WP.SumASicherheit.Empfaenger.Land = p.nctsWP_SumAEmpfaenger_Land + ' If p.nctsWP_SumAEmpfaenger_TIN IsNot Nothing Then WP.SumASicherheit.Empfaenger.TIN = p.nctsWP_SumAEmpfaenger_TIN + ' End If + + + ' If p.nctsWP_PACKSTUECKE IsNot Nothing AndAlso p.nctsWP_PACKSTUECKE.Count > 0 Then + ' WP.Packstueck = New List(Of VersandanmeldungNCTSDE.PackstueckVATyp) + ' For Each w In p.nctsWP_PACKSTUECKE + ' Dim PK As New VersandanmeldungNCTSDE.PackstueckVATyp + ' If w.nctsWpPk_PackstueckeAnzahl IsNot Nothing Then PK.Anzahl = w.nctsWpPk_PackstueckeAnzahl.ToString.Replace(".", "") + ' If w.nctsWpPk_Verpackungsart IsNot Nothing Then PK.Verpackungsart = w.nctsWpPk_Verpackungsart + ' If w.nctsWpPk_ZeichenNummern IsNot Nothing Then PK.ZeichenNummern = w.nctsWpPk_ZeichenNummern + ' WP.Packstueck.Add(PK) + ' Next + ' End If + + + ' If p.nctsWP_VorpapierTyp IsNot Nothing Then + ' WP.Vorpapier = New VersandanmeldungNCTSDE.VorpapierVATyp + ' WP.Vorpapier.Typ = If(p.nctsWP_VorpapierTyp, "") + + ' WP.Vorpapier.VorpapierAngaben = New List(Of VersandanmeldungNCTSDE.VorpapierAngabenVATyp) + ' If p.nctsWP_VorpapierReferenz1 IsNot Nothing And p.nctsWP_VorpapierReferenz1 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz1, "") + ' If p.nctsWP_VorpapierZusatz1 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz1, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz2 IsNot Nothing And p.nctsWP_VorpapierReferenz2 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz2, "") + ' If p.nctsWP_VorpapierZusatz2 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz2, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz3 IsNot Nothing And p.nctsWP_VorpapierReferenz3 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz3, "") + ' If p.nctsWP_VorpapierZusatz3 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz3, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz4 IsNot Nothing And p.nctsWP_VorpapierReferenz4 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz4, "") + ' If p.nctsWP_VorpapierZusatz4 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz4, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz5 IsNot Nothing And p.nctsWP_VorpapierReferenz5 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz5, "") + ' If p.nctsWP_VorpapierZusatz5 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz5, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz6 IsNot Nothing And p.nctsWP_VorpapierReferenz6 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz6, "") + ' If p.nctsWP_VorpapierZusatz6 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz6, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz7 IsNot Nothing And p.nctsWP_VorpapierReferenz7 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz7, "") + ' If p.nctsWP_VorpapierZusatz7 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz7, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz8 IsNot Nothing And p.nctsWP_VorpapierReferenz8 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz8, "") + ' If p.nctsWP_VorpapierZusatz8 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz8, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz9 IsNot Nothing And p.nctsWP_VorpapierReferenz9 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz9, "") + ' If p.nctsWP_VorpapierZusatz9 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz9, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' End If + + ' If p.nctsWP_UNTERLAGEN IsNot Nothing AndAlso p.nctsWP_UNTERLAGEN.Count > 0 Then + ' WP.VorgelegteUnterlagen = New List(Of VersandanmeldungNCTSDE.VorgelegteUnterlBeschGenehmVATyp) + ' For Each w In p.nctsWP_UNTERLAGEN + ' Dim UL As New VersandanmeldungNCTSDE.VorgelegteUnterlBeschGenehmVATyp + ' If w.nctsWpUl_Typ IsNot Nothing Then UL.Typ = w.nctsWpUl_Typ + ' If w.nctsWpUl_Referenz IsNot Nothing Then UL.Referenz = w.nctsWpUl_Referenz + ' If w.nctsWpUl_Zusatz IsNot Nothing Then UL.Zusatz = w.nctsWpUl_Zusatz + ' WP.VorgelegteUnterlagen.Add(UL) + ' Next + ' End If + + + ' XML.EinzelVersandanmeldung.WarenPosition.Add(WP) + ' Next + 'End If + + 'Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" + 'If Not System.IO.Directory.Exists(saveDir) Then + ' System.IO.Directory.CreateDirectory(saveDir) + 'End If + + 'saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + ''MsgBox(saveFile) + 'XML.SaveToFile(saveFile) + + 'replaceNullDateXML(saveFile) + + 'Return True + End Function + + + Shared Sub replaceNullDateXML(XMLFile As String) + Try + If Not System.IO.File.Exists(XMLFile) Then Exit Sub + Dim lines() As String = System.IO.File.ReadAllLines(XMLFile) + Using writer = New System.IO.StreamWriter(XMLFile, False) + For Each line In lines + If Not line.Contains("0001-01-01") Then writer.WriteLine(line) + Next + End Using + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + + + 'Shared Function loadInClass_VersandanmeldungAES(ByRef cDY As cDakosyAES, USRCNTL As usrCntlATLAS_AES, cDYAnm As cDakosy_Zollanmeldungen) As cDakosyAES + ' Try + + ' cDY.aes_Trans_Partner = "VERA" + ' cDY.aes_Trans_DatumZeit = Now + ' 'cDY.aes_Gestellt = False + ' cDY.aes_Status = "00" + ' cDY.aes_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.aes_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.aes_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing) + ' 'cDY.aes_Trans_Version = "003" + ' cDY.aes_Trans_Div1 = "ATILLA" + + ' ' cDY.aes_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value) + ' ' cDY.aes_BezugsnummerVorblendung = cDY.aes_Stammreferenz + ' cDY.aes_BezugsnummerVorblendung = isLeerNothing(USRCNTL.cboStammreferenz._value) + + ' 'cDY.aes_Trans_Div1 = "ATILLA" + ' 'cDY.aes_Trans_Div1 = "ATILLA" + + ' cDY.aes_ObjectName = USRCNTL.BezugsNr + ' 'cDY.aes_ObjectAlias = USRCNTL.AVISO.AvisoID + ' USRCNTL.ALLG.getValues(cDY) + ' USRCNTL.ADRESSEN.getValues(cDY) + ' 'USRCNTL.POSITIONEN.getValues(cDY) + + ' ' cDY.aes_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues() + ' 'USRCNTL.VERSCHLUESSE.getValues(cDY) + ' 'cDY.aes_WARENPOS=USRCNTL.POSITIONEN.getValues() + ' '-------------------------------- + + ' cDY.aes_WARENPOS.Clear() + + + ' Return cDY + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' Return Nothing + ' End Try + 'End Function + + + + 'Shared Function loadInClass_VersandanmeldungEZA(ByRef cDY As cDakosyEZA, USRCNTL As usrCntlATLAS_EZA, cDYAnm As cDakosy_Zollanmeldungen) As cDakosyEZA + ' Try + + ' cDY.eza_Trans_Partner = "VERA" + ' cDY.eza_Trans_DatumZeit = Now + ' 'cDY.EZA_Gestellt = False + ' cDY.eza_Status = "00" + ' cDY.eza_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.eza_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.eza_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing) + ' 'cDY.EZA_Trans_Version = "003" + ' cDY.eza_Trans_Div1 = "VERAG" + ' 'cDY.EZA_Trans_Div1 = "ATILLA" + ' 'cDY.EZA_Trans_Div1 = "ATILLA" + + ' ' cDY.eza_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value) + ' cDY.eza_BezugsnummerVorblendung = isLeerNothing(USRCNTL.cboStammreferenz._value) + + ' cDY.eza_ObjectName = USRCNTL.BezugsNr + ' 'cDY.EZA_ObjectAlias = USRCNTL.AVISO.AvisoID + ' USRCNTL.ALLG.getValues(cDY) + ' USRCNTL.ADRESSEN.getValues(cDY) + ' USRCNTL.POSITIONEN.getValues(cDY) + ' USRCNTL.DV1.getValues(cDY) + + ' ' MsgBox(cDY.eza_WARENPOS.Count) + ' ' cDY.EZA_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues() + ' 'USRCNTL.VERSCHLUESSE.getValues(cDY) + ' 'cDY.EZA_WARENPOS=USRCNTL.POSITIONEN.getValues() + ' '-------------------------------- + + ' ' cDY.eza_WARENPOS.Clear() + + + ' Return cDY + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' Return Nothing + ' End Try + 'End Function + + + + 'Shared Function getDivision(FIRMA_DY, Optional fiskal = False) As String + ' If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + ' Return "SUB" + ' Else + ' Select Case FIRMA_DY + ' Case "ATILLA" + ' Return "SUW" + ' Case "AMBAR" + ' Return "AMBWO" + ' Case "VERAG" + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung + ' Case "SUB" : Return "SUB" + ' Case "SBG" : Return "SBG" + ' Case "NKD" : Return "NKD" + ' Case "NEU" : Return "NEU" + ' Case "WAI" : Return "WAI" + ' Case Else : Return "SUB" + ' End Select + + ' Case "UNISPED" + ' Return ""'"ATSP" + ' Case "IMEX" + ' If fiskal Then + ' Return "GLO" + ' Else + ' Return "IME" + ' End If + ' Case Else : Return "SUB" + ' End Select + ' End If + + 'End Function + + 'Shared Function getIOPartner(FIRMA_DY) As String + ' If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + ' Return "VERA" + ' Else + ' Select Case FIRMA_DY + ' Case "ATILLA" + ' Return "VERG" + ' Case "VERAG" + ' Return "VERG" + ' Case "DURMAZ" + ' Return "DUR" + ' Case "IMEX" + ' Return "IMEX" + ' Case "UNISPED" + ' Return "UNAT" + ' Case Else : Return "VERG" + ' End Select + ' End If + + 'End Function + ''If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + + 'Shared Function generateVersandanmeldungEZA(cDY As cDakosyEZA, ByRef saveFile As String, DY_ACTION As String) As Boolean + ' Dim Interface_VERSION = "004" + ' Dim ObjectAktion = DY_ACTION + + + ' Dim XML As New DAKOSY_Worker.FreierVerkehrAktVeredelUmwandlung_004.FreierVerkehrAktVeredelUmwandlungAVUVTyp + + + ' 'Transaktion: + ' XML.Transaktion = New FreierVerkehrAktVeredelUmwandlung_004.TransaktionFreierVerkehrTyp + ' XML.Transaktion.IOPartner = getIOPartner(cDY.eza_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + ' XML.Transaktion.IODatumZeit = Now + ' XML.Transaktion.IOReferenz = cDY.eza_Trans_Referenz + ' If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.eza_firma, CBool(If(cDY.eza_FiskalvertretungKz, False))) + ' XML.Transaktion.Version = Interface_VERSION + + ' Dim EA = New FreierVerkehrAktVeredelUmwandlung_004.EinzelEinfuhrUnvollstaendigeAnmeldungTyp + + ' EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL" + + ' 'ObjektIdentifizierung: + ' EA.ObjektIdentifizierung = New FreierVerkehrAktVeredelUmwandlung_004.ObjektIdentifizierungAVUVTyp + ' EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName + ' If cDY.eza_ObjectAlias IsNot Nothing Then EA.ObjektIdentifizierung.ObjektAlias = cDY.eza_ObjectAlias + ' Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) + ' EA.ObjektIdentifizierung.ObjektAktion = ObjektAktion + ' EA.ObjektIdentifizierung.Bearbeiter = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME.Length > 20, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME) + ' 'EA.ObjektIdentifizierung.CompliancePruefung= + ' EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName + ' If cDY.eza_Bearbeiter IsNot Nothing Then EA.ObjektIdentifizierung.Bearbeiter = cDY.eza_Bearbeiter + ' If cDY.eza_CompliancePruefung IsNot Nothing Then EA.ObjektIdentifizierung.CompliancePruefung = cDY.eza_CompliancePruefung + ' If cDY.eza_BezugsnummerVorblendung IsNot Nothing Then EA.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.eza_BezugsnummerVorblendung + + ' EA.ObjektIdentifizierung.AnmeldungArt = If(cDY.eza_AnmeldungArt, "EZA-A") 'Pflichtfeld + + + ' 'KopfDaten + ' EA.KopfDaten = New FreierVerkehrAktVeredelUmwandlung_004.KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + ' If cDY.eza_AdressierteZollstelle IsNot Nothing Then EA.KopfDaten.AdressierteZollstelle = cDY.eza_AdressierteZollstelle + ' If cDY.eza_AnmelderistEmpfaenger IsNot Nothing Then EA.KopfDaten.AnmelderIstEmpfaenger = cDY.eza_AnmelderistEmpfaenger + ' If cDY.eza_VertretungsVerhaeltnisCode IsNot Nothing Then EA.KopfDaten.VertretungsverhaeltnisCode = cDY.eza_VertretungsVerhaeltnisCode + ' If cDY.eza_Vorsteuerabzug IsNot Nothing Then EA.KopfDaten.Vorsteuerabzug = cDY.eza_Vorsteuerabzug + ' If cDY.eza_AnmeldenderBearbeiterName IsNot Nothing Then EA.KopfDaten.NameAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterName + ' If cDY.eza_AnmeldenderBearbeiterTel IsNot Nothing Then EA.KopfDaten.TelefonnummerAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterTel + ' If cDY.eza_AnmeldenderBearbeiterStellung IsNot Nothing Then EA.KopfDaten.StellungAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterStellung + ' If cDY.eza_AnmeldenderBearbeiterEMail IsNot Nothing Then EA.KopfDaten.EmailAdresseAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterEMail + ' If cDY.eza_FiskalvertretungKz IsNot Nothing Then EA.KopfDaten.FiskalvertretungKz = CInt(Int(cDY.eza_FiskalvertretungKz)) + ' If cDY.eza_Ausstellungsort IsNot Nothing Then EA.KopfDaten.Ausstellungsort = cDY.eza_Ausstellungsort + ' If cDY.eza_ZollrechtlicherStatus IsNot Nothing Then EA.KopfDaten.ZollrechtlicherStatus = cDY.eza_ZollrechtlicherStatus + ' If cDY.eza_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(cDY.eza_GesamtRohmasse) Then EA.KopfDaten.GesamtRohMasse = CDbl(CDbl(cDY.eza_GesamtRohmasse).ToString("N1")) + ' If cDY.eza_VerfahrenBeantragtCode IsNot Nothing Then EA.KopfDaten.VerfahrenBeantragtCode = cDY.eza_VerfahrenBeantragtCode + ' If cDY.eza_VerkehrszweigInland IsNot Nothing Then EA.KopfDaten.VerkehrszweigInland = cDY.eza_VerkehrszweigInland + ' If cDY.eza_VerkehrszweigGrenze IsNot Nothing Then EA.KopfDaten.VerkehrszweigGrenze = cDY.eza_VerkehrszweigGrenze + ' If cDY.eza_VersendungsLandCode IsNot Nothing Then EA.KopfDaten.VersendungslandCode = cDY.eza_VersendungsLandCode + ' If cDY.eza_Bestimmungsland IsNot Nothing Then EA.KopfDaten.Bestimmungsland = cDY.eza_Bestimmungsland + ' If cDY.eza_Bestimmungsbundesland IsNot Nothing Then EA.KopfDaten.Bestimmungsbundesland = cDY.eza_Bestimmungsbundesland + ' If cDY.eza_KennzeichenNameBefoerderungsmittelAnkunft IsNot Nothing Then EA.KopfDaten.KennzeichenNameBefoerderungsmittelAnkunft = cDY.eza_KennzeichenNameBefoerderungsmittelAnkunft + ' If cDY.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenzeStaatszugehoerigkeitCode = cDY.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode + ' If cDY.eza_BeförderungsmittelGrenzeArt IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenzeArt = cDY.eza_BeförderungsmittelGrenzeArt + ' If cDY.eza_BeförderungsmittelGrenze IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze = cDY.eza_BeförderungsmittelGrenze + ' If cDY.eza_LieferbedingungCode IsNot Nothing Then EA.KopfDaten.LieferbedingungCode = cDY.eza_LieferbedingungCode + ' If cDY.eza_LieferbedingungText IsNot Nothing Then EA.KopfDaten.LieferbedingungText = cDY.eza_LieferbedingungText + ' If cDY.eza_LieferbedingungSchluessel IsNot Nothing Then EA.KopfDaten.LieferbedingungSchluessel = cDY.eza_LieferbedingungSchluessel + ' If cDY.eza_LieferbedingungOrt IsNot Nothing Then EA.KopfDaten.LieferbedingungOrt = cDY.eza_LieferbedingungOrt + ' If cDY.eza_VorpapierArtCode IsNot Nothing Then EA.KopfDaten.VorpapierArtCode = cDY.eza_VorpapierArtCode + ' If cDY.eza_VorpapierNr IsNot Nothing Then EA.KopfDaten.VorpapierNr = cDY.eza_VorpapierNr + ' If cDY.eza_ArtGeschaeftCode IsNot Nothing Then EA.KopfDaten.ArtGeschaeftCode = cDY.eza_ArtGeschaeftCode + ' If cDY.eza_Statistikstatus IsNot Nothing Then EA.KopfDaten.StatistikStatus = cDY.eza_Statistikstatus + ' If cDY.eza_Warenort IsNot Nothing Then EA.KopfDaten.Warenort = cDY.eza_Warenort + ' If cDY.eza_Rechnungspreis IsNot Nothing Then EA.KopfDaten.Rechnungspreis = cDY.eza_Rechnungspreis + ' If cDY.eza_Rechnungswaehrung IsNot Nothing Then EA.KopfDaten.Rechnungswaehrung = cDY.eza_Rechnungswaehrung + ' If If(cDY.eza_DV1Kz, False) Then + ' If cDY.eza_DV1Kz IsNot Nothing Then EA.KopfDaten.DV1Angaben.DV1Kz = CInt(Int(cDY.eza_DV1Kz)) + ' If cDY.eza_DV1Vertretungsverhaeltnis IsNot Nothing Then EA.KopfDaten.DV1Angaben.Vertretungsverhaeltnis = cDY.eza_DV1Vertretungsverhaeltnis + ' If cDY.eza_DV1FruehereEntscheidungen IsNot Nothing Then EA.KopfDaten.DV1Angaben.FruehereEntscheidungen = cDY.eza_DV1FruehereEntscheidungen + ' If cDY.eza_DV1Verbundenheit IsNot Nothing Then EA.KopfDaten.DV1Angaben.Verbundenheit = cDY.eza_DV1Verbundenheit + ' If cDY.eza_DV1VerbungenheitEinzelheiten IsNot Nothing Then EA.KopfDaten.DV1Angaben.VerbundenheitEinzelheiten = cDY.eza_DV1VerbungenheitEinzelheiten + ' If cDY.eza_DV1EinschraenkungenKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.EinschraenkungenKz = cDY.eza_DV1EinschraenkungenKz + ' If cDY.eza_DV1BedingungenLeistungenKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.BedingungenLeistungenKz = cDY.eza_DV1BedingungenLeistungenKz + ' If cDY.eza_DV1BedingungenLeistungenArt IsNot Nothing Then EA.KopfDaten.DV1Angaben.BedingungenLeistungenArt = cDY.eza_DV1BedingungenLeistungenArt + ' If cDY.eza_DV1LizenzgebuehrenKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.LizenzgebuehrenKz = cDY.eza_DV1LizenzgebuehrenKz + ' If cDY.eza_DV1LizenzgebuehrenUmstand IsNot Nothing Then EA.KopfDaten.DV1Angaben.LizenzgebuehrenUmstand = cDY.eza_DV1LizenzgebuehrenUmstand + ' If cDY.eza_DV1SpezielleVereinbarungKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.SpezielleVereinbarungKz = cDY.eza_DV1SpezielleVereinbarungKz + ' If cDY.eza_DV1SpezielleVereinbarungUmstand IsNot Nothing Then EA.KopfDaten.DV1Angaben.SpezielleVereinbarungUmstand = cDY.eza_DV1SpezielleVereinbarungUmstand + ' End If + + ' If cDY.eza_UNTERLAGEN.Count > 0 Then + ' EA.KopfDaten.Unterlage = New List(Of FreierVerkehrAktVeredelUmwandlung_004.UnterlageVzKopfAVUVTyp) + ' For Each u In cDY.eza_UNTERLAGEN + ' Dim UNTERLAGE As New FreierVerkehrAktVeredelUmwandlung_004.UnterlageVzKopfAVUVTyp + ' If u.ezaUl_Bereich IsNot Nothing Then UNTERLAGE.Bereich = u.ezaUl_Bereich + ' If u.ezaUl_Art IsNot Nothing Then UNTERLAGE.Art = u.ezaUl_Art + ' If u.ezaUl_Nummer IsNot Nothing Then UNTERLAGE.Nummer = u.ezaUl_Nummer + ' If u.ezaUl_DatumAusstellung IsNot Nothing Then UNTERLAGE.DatumAusstellung = u.ezaUl_DatumAusstellung + ' EA.KopfDaten.Unterlage.Add(UNTERLAGE) + ' Next + ' End If + + + ' If cDY.eza_ZusatzangabenAnmeldung IsNot Nothing Then EA.KopfDaten.ZusatzAngabenAnmeldung = cDY.eza_ZusatzangabenAnmeldung + ' If cDY.eza_KzAutoBestaetigung IsNot Nothing Then EA.KopfDaten.KzAutoBestaetigung = CInt(Int(cDY.eza_KzAutoBestaetigung)) + ' If cDY.eza_AnschreibungDatum IsNot Nothing Then EA.KopfDaten.AnschreibungDatum = cDY.eza_AnschreibungDatum + ' If cDY.eza_Eingangszollstelle IsNot Nothing Then EA.KopfDaten.Eingangszollstelle = cDY.eza_Eingangszollstelle + ' If cDY.eza_Zahlungsart IsNot Nothing Then EA.KopfDaten.Zahlungsart = cDY.eza_Zahlungsart + + ' If cDY.eza_AUFSCHUB.Count > 0 Then + ' EA.KopfDaten.Aufschub = New List(Of FreierVerkehrAktVeredelUmwandlung_004.AufschubAVUVTyp) + ' For Each u In cDY.eza_AUFSCHUB + ' Dim AUFSCHUB As New FreierVerkehrAktVeredelUmwandlung_004.AufschubAVUVTyp + ' If u.ezaAfb_ArtAufschubantrag IsNot Nothing Then AUFSCHUB.ArtAufschubantrag = u.ezaAfb_ArtAufschubantrag + ' If u.ezaAfb_Aufschubart IsNot Nothing Then AUFSCHUB.Aufschubart = u.ezaAfb_Aufschubart + ' If u.ezaAfb_AufschubnehmerEORI IsNot Nothing Then AUFSCHUB.AufschubnehmerEORI = u.ezaAfb_AufschubnehmerEORI + ' 'If u.ezaAfb_KontoNr IsNot Nothing Then AUFSCHUB.KontoNr = u.ezaAfb_KontoNr 'ohne Funktion + ' If u.ezaAfb_AufschuBIN IsNot Nothing Then AUFSCHUB.AufschubBIN = u.ezaAfb_AufschuBIN + ' EA.KopfDaten.Aufschub.Add(AUFSCHUB) + ' Next + ' End If + + ' If cDY.eza_SUMABA.Count > 0 Then + ' EA.KopfDaten.SumABeendigungsAnteil = New List(Of FreierVerkehrAktVeredelUmwandlung_004.SumABeendigungsAnteilAVUVTyp) + ' For Each u In cDY.eza_SUMABA + ' Dim SUMA As New FreierVerkehrAktVeredelUmwandlung_004.SumABeendigungsAnteilAVUVTyp + ' If u.ezaBa_SumARegistriernummer IsNot Nothing Then SUMA.SumARegistriernummer = u.ezaBa_SumARegistriernummer + ' If u.ezaBa_SumAPosNr IsNot Nothing Then SUMA.SumAPosNr = u.ezaBa_SumAPosNr + ' If u.ezaBa_BeendigungsPackstueckzahl IsNot Nothing Then SUMA.BeendigungsPackstueckzahl = u.ezaBa_BeendigungsPackstueckzahl.ToString.Replace(".", "") + ' If u.ezaBa_Artidentifikation IsNot Nothing Then SUMA.ArtIdentifikation = u.ezaBa_Artidentifikation + ' If u.ezaBa_VerwahrerEORI IsNot Nothing Then SUMA.VerwahrerEORI = u.ezaBa_VerwahrerEORI + ' If u.ezaBa_SpezifOrdnungsbegriff IsNot Nothing Then SUMA.SpezifOrdnungsbegriff = u.ezaBa_SpezifOrdnungsbegriff + ' If u.ezaBa_SpezifOrdnungsbegriffArt IsNot Nothing Then SUMA.SpezifOrdnungsbegriffArt = u.ezaBa_SpezifOrdnungsbegriffArt + ' EA.KopfDaten.SumABeendigungsAnteil.Add(SUMA) + ' Next + ' End If + + + + ' If cDY.eza_ContainerNr1 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr1) + ' If cDY.eza_ContainerNr2 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr2) + ' If cDY.eza_ContainerNr3 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr3) + ' If cDY.eza_ContainerNr4 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr4) + ' If cDY.eza_ContainerNr5 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr5) + ' If cDY.eza_ContainerNr6 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr6) + ' If cDY.eza_ContainerNr7 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr7) + ' If cDY.eza_ContainerNr8 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr8) + ' If cDY.eza_ContainerNr9 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr9) + + ' If cDY.eza_BeendigungsanteilArtCode IsNot Nothing Then EA.KopfDaten.BeendigungsAnteilArtCode = cDY.eza_BeendigungsanteilArtCode + ' If cDY.eza_BewilligungsIDZLAVUV IsNot Nothing Then EA.KopfDaten.BewilligungsIDZLAVUV = cDY.eza_BewilligungsIDZLAVUV + ' If cDY.eza_BezugsnummerBEAnteilZL IsNot Nothing Then EA.KopfDaten.BezugsnummerBEAnteilZL = cDY.eza_BezugsnummerBEAnteilZL + + + ' 'Property eza_BEA_ZLAvuv As New List(Of cDakosy_EZA_BEAnteilZLAVUV) + + ' If cDY.eza_BEA_ZLAvuv.Count > 0 Then + ' EA.KopfDaten.BEAnteilZLAVUV = New List(Of FreierVerkehrAktVeredelUmwandlung_004.BEAnteilZLAVUVPositionAVUVTyp) + ' For Each u In cDY.eza_BEA_ZLAvuv + ' Dim BEA As New FreierVerkehrAktVeredelUmwandlung_004.BEAnteilZLAVUVPositionAVUVTyp + ' If u.ezaBAZ_RegistrierNummerZugang IsNot Nothing Then BEA.RegistriernummerZugang = u.ezaBAZ_RegistrierNummerZugang + ' If u.ezaBAZ_PositionZugang IsNot Nothing Then BEA.PositionZugang = u.ezaBAZ_PositionZugang + ' If u.ezaBAZ_ArtikelCodeATZL IsNot Nothing Then BEA.ArtikelcodeATZL = u.ezaBAZ_ArtikelCodeATZL + ' If u.ezaBAZ_AtlasKz IsNot Nothing Then BEA.AtlasKz = CInt(Int(u.ezaBAZ_AtlasKz)) + ' If u.ezaBAZ_EigentuemerATUL IsNot Nothing Then BEA.EigentuemerATZL = u.ezaBAZ_EigentuemerATUL + ' If u.ezaBAZ_ChargennummerATZL IsNot Nothing Then BEA.ChargennummerATZL = u.ezaBAZ_ChargennummerATZL + ' If u.ezaBAZ_UrsprungslandATZL IsNot Nothing Then BEA.UrsprungslandATZL = u.ezaBAZ_UrsprungslandATZL + ' If u.ezaBAZ_UeblicheBehandlungKz IsNot Nothing Then BEA.UeblicheBehandlungKz = CInt(Int(u.ezaBAZ_UeblicheBehandlungKz)) + ' If u.ezaBAZ_Handelsmenge IsNot Nothing Then BEA.Handelsmenge = u.ezaBAZ_Handelsmenge + ' If u.ezaBAZ_MasseinheitHandelsmenge IsNot Nothing Then BEA.MasseinheitHandelsmenge = u.ezaBAZ_MasseinheitHandelsmenge + ' If u.ezaBAZ_Wartennummer IsNot Nothing Then BEA.Warennummer = u.ezaBAZ_Wartennummer + ' If u.ezaBAZ_QualifikatorHandelsmenge IsNot Nothing Then BEA.QualifikatorHandelsmenge = u.ezaBAZ_QualifikatorHandelsmenge + ' If u.ezaBAZ_Abgangsmenge IsNot Nothing Then BEA.Abgangsmenge = u.ezaBAZ_Abgangsmenge + ' If u.ezaBAZ_MasseinheitAbgangsmenge IsNot Nothing Then BEA.MasseinheitAbgangsmenge = u.ezaBAZ_MasseinheitAbgangsmenge + ' If u.ezaBAZ_QualifikatorAbgangsmenge IsNot Nothing Then BEA.QualifikatorAbgangsmenge = u.ezaBAZ_QualifikatorAbgangsmenge + ' If u.ezaBAZ_Positionszusatz IsNot Nothing Then BEA.Positionszusatz = u.ezaBAZ_Positionszusatz + ' If u.ezaBAZ_WarenbezogeneAngaben IsNot Nothing Then BEA.WarenbezogeneAngaben = u.ezaBAZ_WarenbezogeneAngaben + ' EA.KopfDaten.BEAnteilZLAVUV.Add(BEA) + ' Next + ' End If + + + ' If cDY.eza_ADRESSEN.Count > 0 Then + ' EA.KopfDaten.Adressen = New List(Of FreierVerkehrAktVeredelUmwandlung_004.AdressenVzImportAVUVTyp) + ' For Each u In cDY.eza_ADRESSEN + ' Dim ADR As New FreierVerkehrAktVeredelUmwandlung_004.AdressenVzImportAVUVTyp + ' If u.ezaAd_AdressTyp IsNot Nothing Then ADR.AdressTyp = u.ezaAd_AdressTyp + ' If u.ezaAd_AdressCode IsNot Nothing Then ADR.AdressCode = u.ezaAd_AdressCode + ' If u.ezaAd_TeilnehmerEORI IsNot Nothing Then ADR.TeilnehmerEORI = u.ezaAd_TeilnehmerEORI + ' If u.ezaAd_TeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(u.ezaAd_TeilnehmerNLNR) Then ADR.TeilnehmerNLNR = u.ezaAd_TeilnehmerNLNR + ' If u.ezaAd_NameFirma1 IsNot Nothing Then + ' ADR.NameFirma = u.ezaAd_NameFirma1 & If(u.ezaAd_NameFirma2, "") & If(u.ezaAd_NameFirma3, "") + ' End If + ' 'If u.ezaAd_NameFirma1 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma1) + ' 'If u.ezaAd_NameFirma2 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma2) + ' 'If u.ezaAd_NameFirma3 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma3) + ' If u.ezaAd_StrasseHausNr1 IsNot Nothing Then + ' ADR.StrasseHausNr = u.ezaAd_StrasseHausNr1 & If(u.ezaAd_StrasseHausNr2, "") + ' End If + ' 'If u.ezaAd_StrasseHausNr1 IsNot Nothing Then ADR.StrasseHausNr.Add(u.ezaAd_StrasseHausNr1) + ' 'If u.ezaAd_StrasseHausNr2 IsNot Nothing Then ADR.StrasseHausNr.Add(u.ezaAd_StrasseHausNr2) + ' If u.ezaAd_Ortsteil IsNot Nothing Then ADR.Ortsteil = u.ezaAd_Ortsteil + ' If u.ezaAd_LandCode IsNot Nothing Then ADR.LandCode = u.ezaAd_LandCode + ' If u.ezaAd_PLZ IsNot Nothing Then ADR.PLZS = u.ezaAd_PLZ + ' If u.ezaAd_Ort IsNot Nothing Then ADR.OrtS = u.ezaAd_Ort + ' If u.ezaAd_UStIDAnmelder IsNot Nothing Then ADR.UStIDAnmelder = u.ezaAd_UStIDAnmelder + ' If u.ezaAd_FinanzamtIDAnmelder IsNot Nothing Then ADR.FinanzamtIDAnmelder = u.ezaAd_FinanzamtIDAnmelder + ' If u.ezaAd_Bewilligungsnummer IsNot Nothing Then ADR.Bewilligungsnummer = u.ezaAd_Bewilligungsnummer + ' If u.ezaAd_BewilligungsFachVerfahren IsNot Nothing Then ADR.BewilligungFachVerfahren = u.ezaAd_BewilligungsFachVerfahren + ' If u.ezaAd_BewilligungsnummerEndverwender IsNot Nothing Then ADR.BewilligungsnummerEndverwender = u.ezaAd_BewilligungsnummerEndverwender + ' EA.KopfDaten.Adressen.Add(ADR) + ' Next + ' End If + + + ' If cDY.eza_WARENPOS.Count > 0 Then + ' EA.WarenPosition = New List(Of FreierVerkehrAktVeredelUmwandlung_004.PositionEinfuhrUnvollstaendigeAnmeldungTyp) + ' For Each u In cDY.eza_WARENPOS + ' Dim WP As New FreierVerkehrAktVeredelUmwandlung_004.PositionEinfuhrUnvollstaendigeAnmeldungTyp + ' If u.ezaWP_PositionsNummer IsNot Nothing Then WP.Positionsnummer = u.ezaWP_PositionsNummer + ' If u.ezaWP_Artikelnummer IsNot Nothing Then WP.ArtikelNummer = u.ezaWP_Artikelnummer + ' If u.ezaWP_WarennummerEZT IsNot Nothing Then WP.WarenNummerEZT = u.ezaWP_WarennummerEZT + ' If u.ezaWP_Warennummerzusatz1 IsNot Nothing Then WP.WarenNummerZusatz1 = u.ezaWP_Warennummerzusatz1 + ' If u.ezaWP_Warennummerzusatz2 IsNot Nothing Then WP.WarenNummerZusatz2 = u.ezaWP_Warennummerzusatz2 + + ' If u.ezaWP_WarennummerZusatzCode1 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode1) + ' If u.ezaWP_WarennummerZusatzCode2 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode2) + ' If u.ezaWP_WarennummerZusatzCode3 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode3) + ' If u.ezaWP_WarennummerZusatzCode4 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode4) + ' If u.ezaWP_WarennummerZusatzCode5 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode5) + ' If u.ezaWP_WarennummerZusatzCode6 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode6) + ' If u.ezaWP_WarennummerZusatzCode7 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode7) + ' If u.ezaWP_WarennummerZusatzCode8 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode8) + ' If u.ezaWP_WarennummerZusatzCode9 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode9) + ' If u.ezaWP_WarennummerZusatzCode10 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode10) + + ' If u.ezaWP_Warenbezeichnung IsNot Nothing Then WP.WarenBezeichnung = u.ezaWP_Warenbezeichnung + ' If u.ezaWP_VerfahrensCodeVorangegangenesVerfahren IsNot Nothing Then WP.VerfahrenscodeVorangegangenesVerfahren = u.ezaWP_VerfahrensCodeVorangegangenesVerfahren + ' If u.ezaWP_AbgabensteuerungKz IsNot Nothing Then WP.AbgabensteuerungKz = CInt(Int(u.ezaWP_AbgabensteuerungKz)) + ' If u.ezaWP_EUCode IsNot Nothing Then WP.EUCode = u.ezaWP_EUCode + ' If u.ezaWP_UrsprungslandCode IsNot Nothing Then WP.UrsprungslandCode = u.ezaWP_UrsprungslandCode + + ' If cDY.eza_WARENPOS.Count > 1 Then + ' WP.Rohmasse = Nothing + ' Else + ' If u.ezaWP_Rohmasse IsNot Nothing Then WP.Rohmasse = u.ezaWP_Rohmasse + ' End If + + ' If u.ezaWP_Eigenmasse IsNot Nothing Then WP.Eigenmasse = u.ezaWP_Eigenmasse + ' If u.ezaWP_AHStatMenge IsNot Nothing Then WP.AHStatMenge = u.ezaWP_AHStatMenge + ' If u.ezaWP_AHStatMengeMasseinheit IsNot Nothing Then WP.AHStatMengeMasseinheit = u.ezaWP_AHStatMengeMasseinheit + ' If u.ezaWP_AHStatMengeQualifier IsNot Nothing Then WP.AHStatMengeQualifier = u.ezaWP_AHStatMengeQualifier + ' If u.ezaWP_AHStatWert IsNot Nothing AndAlso IsNumeric(u.ezaWP_AHStatWert) Then WP.AHStatWert = CInt(u.ezaWP_AHStatWert) + ' If u.ezaWP_AHStatWertManuellKZ IsNot Nothing Then WP.AHStatWertManuellKZ = CInt(Int(u.ezaWP_AHStatWertManuellKZ)) + ' If u.ezaWP_KostenEUSt IsNot Nothing Then WP.KostenEUSt = u.ezaWP_KostenEUSt + ' If u.ezaWP_PackstueckAnzahl IsNot Nothing Then WP.PackstueckAnzahl = u.ezaWP_PackstueckAnzahl.ToString.Replace(".", "") + ' If u.ezaWP_PackstueckArt IsNot Nothing Then WP.PackstueckArt = u.ezaWP_PackstueckArt + ' If u.ezaWP_PackstueckZeichen IsNot Nothing Then WP.PackstueckZeichen = u.ezaWP_PackstueckZeichen + + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then + ' WP.WarenMenge = New List(Of FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp) + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge1 + ' If u.ezaWP_WarenMasseinheit1 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit1 + ' If u.ezaWP_WarenQualifier1 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier1 + ' WP.WarenMenge.Add(WM) + ' End If + ' If u.ezaWP_Warenmenge2 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge2 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge2 + ' If u.ezaWP_WarenMasseinheit2 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit2 + ' If u.ezaWP_WarenQualifier2 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier2 + ' WP.WarenMenge.Add(WM) + ' End If + ' If u.ezaWP_Warenmenge3 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge3 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge3 + ' If u.ezaWP_WarenMasseinheit3 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit3 + ' If u.ezaWP_WarenQualifier3 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier3 + ' WP.WarenMenge.Add(WM) + ' End If + ' If u.ezaWP_Warenmenge4 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge4 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge4 + ' If u.ezaWP_WarenMasseinheit4 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit4 + ' If u.ezaWP_WarenQualifier4 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier4 + ' WP.WarenMenge.Add(WM) + ' End If + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge1 + ' If u.ezaWP_WarenMasseinheit1 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit1 + ' If u.ezaWP_WarenQualifier1 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier1 + ' WP.WarenMenge.Add(WM) + ' End If + ' End If + + ' If u.ezaWP_BeguenstigungBenatragtCode IsNot Nothing Then WP.BeguenstigungBeantragtCode = u.ezaWP_BeguenstigungBenatragtCode + ' If u.ezaWP_Kentigentnummer1 IsNot Nothing Then WP.Kontingentnummer.Add(u.ezaWP_Kentigentnummer1) + ' If u.ezaWP_Kentigentnummer2 IsNot Nothing Then WP.Kontingentnummer.Add(u.ezaWP_Kentigentnummer2) + ' If u.ezaWP_PositionsZusatz IsNot Nothing Then WP.PositionsZusatz = u.ezaWP_PositionsZusatz + ' If u.ezaWP_Artikelpreis IsNot Nothing Then WP.Artikelpreis = u.ezaWP_Artikelpreis + ' If u.ezaWP_OrtVerbringens IsNot Nothing Then WP.OrtVerbringens = u.ezaWP_OrtVerbringens + ' If u.ezaWP_AbflughafenIATACode IsNot Nothing Then WP.AbflughafenIATACode = u.ezaWP_AbflughafenIATACode + ' If u.ezaWP_WarenmengeAVUVZugang IsNot Nothing Then WP.WarenmengeAVUVZugang = u.ezaWP_WarenmengeAVUVZugang + ' If u.ezaWP_WarenmengeAVUVZugangMasseinheit IsNot Nothing Then WP.WarenmengeAVUVZugangMasseinheit = u.ezaWP_WarenmengeAVUVZugangMasseinheit + ' If u.ezaWP_WarenmengeAVUVZugangMasseinheitQualifier IsNot Nothing Then WP.WarenmengeAVUVZugangMasseinheitQualifier = u.ezaWP_WarenmengeAVUVZugangMasseinheitQualifier + ' If u.ezaWP_Sachbereich IsNot Nothing Then WP.Sachbereich = u.ezaWP_Sachbereich + ' If u.ezaWP_SachbereichCode IsNot Nothing Then WP.SachbereichCode = u.ezaWP_SachbereichCode + ' If u.ezaWP_BedingungCode IsNot Nothing Then WP.BedingungCode = u.ezaWP_BedingungCode + ' If u.ezaWP_VeredelungWertsteigerung IsNot Nothing Then WP.VeredelungWertsteigerung = u.ezaWP_VeredelungWertsteigerung + ' If u.ezaWP_TabakSteuerzeichenID IsNot Nothing Then WP.TabakSteuerzeichenID = u.ezaWP_TabakSteuerzeichenID + + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then + ' WP.Gehaltsangaben = New List(Of FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp) + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then + ' Dim GA As New FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then GA.ArtCode = u.ezaWP_GehaltsAngabenArtCode1 + ' If u.ezaWP_GehaltsAngabenGradProzent1 IsNot Nothing Then GA.GradProzent = u.ezaWP_GehaltsAngabenGradProzent1 + ' WP.Gehaltsangaben.Add(GA) + ' End If + ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then + ' Dim GA As New FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then GA.ArtCode = u.ezaWP_GehaltsAngabenArtCode2 + ' If u.ezaWP_GehaltsAngabenGradProzent2 IsNot Nothing Then GA.GradProzent = u.ezaWP_GehaltsAngabenGradProzent2 + ' WP.Gehaltsangaben.Add(GA) + ' End If + ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then + ' Dim GA As New FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then GA.ArtCode = u.ezaWP_GehaltsAngabenArtCode3 + ' If u.ezaWP_GehaltsAngabenGradProzent3 IsNot Nothing Then GA.GradProzent = u.ezaWP_GehaltsAngabenGradProzent3 + ' WP.Gehaltsangaben.Add(GA) + ' End If + ' End If + ' If u.ezaWP_BeguenstigungsMengeMenge IsNot Nothing Then + ' WP.Beguenstigungsmenge = New FreierVerkehrAktVeredelUmwandlung_004.BeguenstigungsMengeAVUVTyp + ' If u.ezaWP_BeguenstigungsMengeMenge IsNot Nothing Then WP.Beguenstigungsmenge.Menge = u.ezaWP_BeguenstigungsMengeMenge + ' If u.ezaWP_BeguenstigungsMengeMasseinheitCode IsNot Nothing Then WP.Beguenstigungsmenge.MasseinheitCode = u.ezaWP_BeguenstigungsMengeMasseinheitCode + ' If u.ezaWP_BeguenstigungsMengeQualifier IsNot Nothing Then WP.Beguenstigungsmenge.MasseinheitQualifier = u.ezaWP_BeguenstigungsMengeQualifier + ' End If + + ' If u.ezaWP_VERBRAUCHSSTEUER.Count > 0 Then + ' WP.Verbrauchssteuer = New List(Of FreierVerkehrAktVeredelUmwandlung_004.VerbrauchssteuerAVUVTyp) + ' For Each v In u.ezaWP_VERBRAUCHSSTEUER + ' Dim VS As New FreierVerkehrAktVeredelUmwandlung_004.VerbrauchssteuerAVUVTyp + ' If v.ezaWpVs_VerbrauchsteuerCode IsNot Nothing Then VS.VerbrauchsteuerCode = v.ezaWpVs_VerbrauchsteuerCode + ' If v.ezaWpVs_VerbrauchssteuerMenge IsNot Nothing Then VS.VerbrauchssteuerMenge = v.ezaWpVs_VerbrauchssteuerMenge + ' If v.ezaWpVs_VerbrauchssteuerMasseinheitCode IsNot Nothing Then VS.VerbrauchssteuerMasseinheitCode = v.ezaWpVs_VerbrauchssteuerMasseinheitCode + ' If v.ezaWpVs_VerbrauchssteuerMasseinheitQualifier IsNot Nothing Then VS.VerbrauchssteuerMasseinheitQualifier = v.ezaWpVs_VerbrauchssteuerMasseinheitQualifier + ' If v.ezaWpVs_GradProzent IsNot Nothing Then VS.GradProzent = v.ezaWpVs_GradProzent + ' If v.ezaWpVs_VerbrauchssteuerWertbasis IsNot Nothing Then VS.VerbrauchssteuerWertBasis = v.ezaWpVs_VerbrauchssteuerWertbasis + ' WP.Verbrauchssteuer.Add(VS) + ' Next + ' End If + + ' 'Abgabenminderiung + ' If u.ezaWP_Abgabenminderung_AbgabengruppeCode1 IsNot Nothing Then + ' WP.Abgabenminderung = New List(Of FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp) + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then + ' Dim AM As New FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then AM.AbgabengruppeCode = u.ezaWP_GehaltsAngabenArtCode1 + ' If u.ezaWP_Abgabenminderung_Minderungsbetrag1 IsNot Nothing Then AM.Minderungsbetrag = u.ezaWP_Abgabenminderung_Minderungsbetrag1 + ' WP.Abgabenminderung.Add(AM) + ' End If + ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then + ' Dim AM As New FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then AM.AbgabengruppeCode = u.ezaWP_GehaltsAngabenArtCode2 + ' If u.ezaWP_Abgabenminderung_Minderungsbetrag2 IsNot Nothing Then AM.Minderungsbetrag = u.ezaWP_Abgabenminderung_Minderungsbetrag2 + ' WP.Abgabenminderung.Add(AM) + ' End If + ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then + ' Dim AM As New FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then AM.AbgabengruppeCode = u.ezaWP_GehaltsAngabenArtCode3 + ' If u.ezaWP_Abgabenminderung_Minderungsbetrag3 IsNot Nothing Then AM.Minderungsbetrag = u.ezaWP_Abgabenminderung_Minderungsbetrag3 + ' WP.Abgabenminderung.Add(AM) + ' End If + ' End If + + ' 'Sonderfalldaten + ' If u.ezaWP_SONDERFALLDATEN.Count > 0 Then + ' WP.Sonderfalldaten = New List(Of FreierVerkehrAktVeredelUmwandlung_004.SonderfalldatenAVUVTyp) + ' For Each v In u.ezaWP_SONDERFALLDATEN + ' Dim SD As New FreierVerkehrAktVeredelUmwandlung_004.SonderfalldatenAVUVTyp + ' If v.ezaWpSfd_SonderabgabenGruppeCode IsNot Nothing Then SD.SonderabgabenGruppeCode = v.ezaWpSfd_SonderabgabenGruppeCode + ' If v.ezaWpSfd_AnwendungArt IsNot Nothing Then SD.AnwendungArt = v.ezaWpSfd_AnwendungArt + ' If v.ezaWpSfd_SatzBetragFaktor IsNot Nothing Then SD.SatzBetragFaktor = v.ezaWpSfd_SatzBetragFaktor + ' WP.Sonderfalldaten.Add(SD) + ' Next + ' End If + + ' 'unterlagen + ' If u.ezaWP_UNTERLAGEN.Count > 0 Then + ' WP.Unterlage = New List(Of FreierVerkehrAktVeredelUmwandlung_004.UnterlageVZPositionAVUVTyp) + ' For Each v In u.ezaWP_UNTERLAGEN + ' Dim UL As New FreierVerkehrAktVeredelUmwandlung_004.UnterlageVZPositionAVUVTyp + ' If v.ezaWpUl_Bereich IsNot Nothing Then UL.Bereich = v.ezaWpUl_Bereich + ' If v.ezaWpUl_Art IsNot Nothing Then UL.Art = v.ezaWpUl_Art + ' If v.ezaWpUl_Nummer IsNot Nothing Then UL.Nummer = v.ezaWpUl_Nummer + ' If v.ezaWpUl_DatumAusstellung IsNot Nothing Then UL.DatumAusstellung = v.ezaWpUl_DatumAusstellung + ' If v.ezaWpUl_VorlageKz IsNot Nothing Then UL.VorlageKz = CInt(Int(v.ezaWpUl_VorlageKz)) + ' If v.ezaWpUl_AbschreibungsMenge IsNot Nothing Then UL.AbschreibungsMenge = v.ezaWpUl_AbschreibungsMenge + ' If v.ezaWpUl_AbschreibungsMengeMasseinheit IsNot Nothing Then UL.AbschreibungsMengeMasseinheit = v.ezaWpUl_AbschreibungsMengeMasseinheit + ' If v.ezaWpUl_AbschreibungsMengeMasseinheitQualifier IsNot Nothing Then UL.AbschreibungsMengeMasseinheitQualifier = v.ezaWpUl_AbschreibungsMengeMasseinheitQualifier + ' WP.Unterlage.Add(UL) + ' Next + ' End If + + ' 'Besondere Wertangabe + ' If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then + ' WP.BesondereWertangabe = New List(Of FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp) + ' If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode1 + ' If u.ezaWP_BesondereWertangabe_Wert1 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert1 + ' WP.BesondereWertangabe.Add(BW) + ' End If + ' If u.ezaWP_BesondereWertangabe_PreisartCode2 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode2 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode2 + ' If u.ezaWP_BesondereWertangabe_Wert2 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert2 + ' WP.BesondereWertangabe.Add(BW) + ' End If + ' If u.ezaWP_BesondereWertangabe_PreisartCode3 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode3 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode3 + ' If u.ezaWP_BesondereWertangabe_Wert3 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert3 + ' WP.BesondereWertangabe.Add(BW) + ' End If + ' If u.ezaWP_BesondereWertangabe_PreisartCode4 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode4 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode4 + ' If u.ezaWP_BesondereWertangabe_Wert4 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert4 + ' WP.BesondereWertangabe.Add(BW) + ' End If + ' If u.ezaWP_BesondereWertangabe_PreisartCode5 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode5 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode5 + ' If u.ezaWP_BesondereWertangabe_Wert5 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert5 + ' WP.BesondereWertangabe.Add(BW) + ' End If + + ' End If + + + ' If u.ezaWP_VZAStatus IsNot Nothing Then WP.VZAStatus = u.ezaWP_VZAStatus + ' If u.ezaWP_EGZStatus IsNot Nothing Then WP.EGZStatus = u.ezaWP_EGZStatus + ' If u.ezaWP_DV1Status IsNot Nothing Then WP.DV1Status = u.ezaWP_DV1Status + ' If u.ezaWP_AnmeldeArt IsNot Nothing Then WP.AnmeldeArt = u.ezaWP_AnmeldeArt + ' If u.ezaWP_BefundDatum IsNot Nothing Then WP.BefundDatum = u.ezaWP_BefundDatum + ' If u.ezaWP_Zollverfahren IsNot Nothing Then WP.Zollverfahren = u.ezaWP_Zollverfahren + ' If u.ezaWP_AbrechnungszollstelleCode IsNot Nothing Then WP.AbrechnungszollstelleCode = u.ezaWP_AbrechnungszollstelleCode + ' If u.ezaWP_SachbereichCode IsNot Nothing Then WP.SachbereichCode = u.ezaWP_SachbereichCode + ' If u.ezaWP_RegistriernummerZA IsNot Nothing Then WP.RegistriernummervZA = u.ezaWP_RegistriernummerZA + ' If u.ezaWP_AnmeldeVErfahren IsNot Nothing Then WP.AnmeldeVerfahren = u.ezaWP_AnmeldeVErfahren + ' If u.ezaWP_Bewilligungsnummer IsNot Nothing Then WP.Bewilligungsnummer = u.ezaWP_Bewilligungsnummer + ' If u.ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte IsNot Nothing Then WP.BewilligungsnummerEndverwenderEGZDurchDritte = u.ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte + ' If u.ezaWP_Zollwert IsNot Nothing Then WP.Zollwert = u.ezaWP_Zollwert + ' If u.ezaWP_LuftfrachtkostenGesamt IsNot Nothing Then WP.LuftfrachtkostenGesamt = u.ezaWP_LuftfrachtkostenGesamt + ' If u.ezaWP_LuftfrachtkostenGesamtWaehrung IsNot Nothing Then WP.LuftfrachtkostenGesamtWaehrung = u.ezaWP_LuftfrachtkostenGesamtWaehrung + ' If u.ezaWP_IATAKursKz IsNot Nothing Then WP.IATAKursKz = CInt(Int(u.ezaWP_IATAKursKz)) + ' If u.ezaWP_KursVereinbartKz IsNot Nothing Then WP.KursBetragVereinbart = CInt(Int(u.ezaWP_KursVereinbartKz)) + ' If u.ezaWP_KursBetragVereinbart IsNot Nothing Then WP.KursBetragVereinbart = u.ezaWP_KursBetragVereinbart + ' If u.ezaWP_KursDatum IsNot Nothing Then WP.KursDatum = u.ezaWP_KursDatum + + + ' 'ABZUGHINZURECHNUNG nicht vorgesehen + + ' If u.ezaWP_Aussenhandelsstatistik_VerkehrszweigInland IsNot Nothing Then WP.Aussenhandelsstatistik.VerkehrszweigInland = u.ezaWP_Aussenhandelsstatistik_VerkehrszweigInland + ' If u.ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze IsNot Nothing Then WP.Aussenhandelsstatistik.VerkehrszweigGrenze = u.ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze + ' If u.ezaWP_Aussenhandelsstatistik_Versendungsland IsNot Nothing Then WP.Aussenhandelsstatistik.Versendungsland = u.ezaWP_Aussenhandelsstatistik_Versendungsland + ' If u.ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland IsNot Nothing Then WP.Aussenhandelsstatistik.Bestimmungsbundesland = u.ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland + ' If u.ezaWP_Aussenhandelsstatistik_Bestimmungsland IsNot Nothing Then WP.Aussenhandelsstatistik.Bestimmungsland = u.ezaWP_Aussenhandelsstatistik_Bestimmungsland + ' If u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode IsNot Nothing Then WP.Aussenhandelsstatistik.BefoerderungsmittelGrenzeStaatszugehoerigkeitCode = u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode + ' If u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt IsNot Nothing Then WP.Aussenhandelsstatistik.BefoerderungsmittelGrenzeArt = u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt + ' If u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung IsNot Nothing Then WP.Aussenhandelsstatistik.BefoerderungsmittelBeschreibung = u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung + ' If u.ezaWP_Aussenhandelsstatistik_ArtGeschaeft IsNot Nothing Then WP.Aussenhandelsstatistik.ArtGeschaeft = u.ezaWP_Aussenhandelsstatistik_ArtGeschaeft + ' If u.ezaWP_Aussenhandelsstatistik_Statistikstatus IsNot Nothing Then WP.Aussenhandelsstatistik.Statistikstatus = u.ezaWP_Aussenhandelsstatistik_Statistikstatus + + ' 'DV1 + ' If u.ezaWP_Artikelpreis IsNot Nothing Then + + ' Dim ABZHRG As New FreierVerkehrAktVeredelUmwandlung_004.AbzugHinzurechnungAVUVTyp + ' ABZHRG.Betrag = u.ezaWP_Artikelpreis + ' ABZHRG.Waehrung = u.ezaWP_ArtikelpreisWaehrung + ' ABZHRG.ArtCode = "R" + ' If If(ABZHRG.Waehrung, "") = "EUR" Then ABZHRG.KursAuslandswaehrung = 1 + + ' WP.Artikelpreis = u.ezaWP_Artikelpreis + ' WP.AbzugHinzurechnung.Add(ABZHRG) + ' End If + + + ' EA.WarenPosition.Add(WP) + ' Next + ' End If + + + ' XML.EinzelAnmeldung.Add(EA) + + + + ' saveFile = cDakosyFunftions.getDefaultFolder_SEND() & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + ' 'MsgBox(saveFile) + ' XML.SaveToFile(saveFile) + + ' replaceNullDateXML(saveFile) + ' Return True + 'End Function + + + 'Shared Function isLeerNothing(o As String) As Object + ' If o Is Nothing OrElse o = "" Then + ' Return Nothing + ' Else + ' Return o + ' End If + 'End Function + + + + + 'Shared Function generateVersandanmeldungAES(cDY As cDakosyAES, ByRef saveFile As String, DY_ACTION As String) As Boolean + ' Dim Interface_VERSION = "003" + ' Dim ObjectAktion = DY_ACTION + + + ' Dim XML As New DAKOSY_Worker.VollstaendigeAusfuhrAnmeldung.VollstaendigeAusfuhrAnmeldungEVTyp + + + ' 'Transaktion: + ' XML.Transaktion = New VollstaendigeAusfuhrAnmeldung.TransaktionExportTyp + ' XML.Transaktion.IOPartner = getIOPartner(cDY.aes_firma) ' If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + ' XML.Transaktion.IODatumZeit = Now + ' XML.Transaktion.IOReferenz = cDY.aes_Trans_Referenz + ' If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.aes_firma) ' + ' XML.Transaktion.Version = Interface_VERSION + + ' Dim EA = New VollstaendigeAusfuhrAnmeldung.EinzelVollstaendigeAusfuhrAnmeldungTyp + + ' EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL" + + ' 'ObjektIdentifizierung: + ' EA.ObjektIdentifizierung = New VollstaendigeAusfuhrAnmeldung.ObjektIdentifizierungEVTyp + ' EA.ObjektIdentifizierung.ObjektName = cDY.aes_ObjectName + ' If cDY.aes_ObjectAlias IsNot Nothing Then EA.ObjektIdentifizierung.ObjektAliasname = cDY.aes_ObjectAlias + ' Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) + ' EA.ObjektIdentifizierung.ObjektAktion = ObjektAktion + ' EA.ObjektIdentifizierung.Bearbeiter = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME.Length > 20, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME) + ' 'EA.ObjektIdentifizierung.CompliancePruefung= + ' EA.ObjektIdentifizierung.ObjektName = cDY.aes_ObjectName + ' If cDY.aes_BezugsnummerVorblendung IsNot Nothing Then EA.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.aes_BezugsnummerVorblendung + + ' 'KopfDaten + ' EA.KopfDaten = New VollstaendigeAusfuhrAnmeldung.KopfDatenVollstaendigeAusfuhranmeldungTyp + ' If cDY.aes_AnmeldeArtAusfuhrCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtAusfuhrCode = cDY.aes_AnmeldeArtAusfuhrCode + ' If cDY.aes_AnmeldeArtVerfahrensCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtVerfahrenCode = cDY.aes_AnmeldeArtVerfahrensCode + ' If cDY.aes_AnmeldeArtUeberfuehrungCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtUeberfuehrungCode = cDY.aes_AnmeldeArtUeberfuehrungCode + ' If cDY.aes_Ausfuhrland IsNot Nothing Then EA.KopfDaten.AusfuhrlandCode = cDY.aes_Ausfuhrland + ' If cDY.aes_BestimmungslandCode IsNot Nothing Then EA.KopfDaten.BestimmungslandCode = cDY.aes_BestimmungslandCode + ' If cDY.aes_AnmeldedatumZeit IsNot Nothing Then EA.KopfDaten.AnmeldeDatumZeit = cDY.aes_AnmeldedatumZeit + ' If cDY.aes_DatumAusgang IsNot Nothing Then EA.KopfDaten.DatumAusgang = cDY.aes_DatumAusgang + + ' If cDY.aes_MassgeblichesDatum IsNot Nothing Then EA.KopfDaten.MassgeblichesDatum = cDY.aes_MassgeblichesDatum + + ' If cDY.aes_BesondereUmstaende IsNot Nothing Then EA.KopfDaten.BesondereUmstaende = cDY.aes_BesondereUmstaende + ' If cDY.aes_Zahlungsweisebefoerderungskosten IsNot Nothing Then EA.KopfDaten.ZahlungsweiseBefoerderungskosten = cDY.aes_Zahlungsweisebefoerderungskosten + ' If cDY.aes_ContainerIndikator IsNot Nothing Then EA.KopfDaten.ContainerIndikator = cDY.aes_ContainerIndikator + ' If cDY.aes_BeteiligteKonstellation IsNot Nothing Then EA.KopfDaten.BeteiligtenKonstellation = cDY.aes_BeteiligteKonstellation + ' 'If cDY.aes_AdressdatenKonstellation IsNot Nothing Then EA.KopfDaten.AdressatenKonstellation = cDY.aes_AdressdatenKonstellation --> OHNE FUNK + ' If cDY.aes_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(cDY.aes_GesamtRohmasse) Then EA.KopfDaten.GesamtRohMasse = CDbl(CDbl(cDY.aes_GesamtRohmasse).ToString("N1")) + ' If cDY.aes_RegistriernummerFremdsystem IsNot Nothing Then EA.KopfDaten.RegistrierNummerFremdSystem = cDY.aes_RegistriernummerFremdsystem + ' If cDY.aes_Vermerk IsNot Nothing Then EA.KopfDaten.Vermerk = cDY.aes_Vermerk + ' If cDY.aes_KennnummerSendung IsNot Nothing Then EA.KopfDaten.KennnummerSendung = cDY.aes_KennnummerSendung + ' If cDY.aes_AnzahlPositionen IsNot Nothing Then EA.KopfDaten.AnzahlPositionen = cDY.aes_AnzahlPositionen + ' If cDY.aes_BewiligungsnummerAusfuhr IsNot Nothing Then EA.KopfDaten.BewilligungsnummerAusfuhr = cDY.aes_BewiligungsnummerAusfuhr + ' If cDY.aes_BewiligungsnummerAnschreibeverfahren IsNot Nothing Then EA.KopfDaten.BewilligungsnummerAnschreibeverfahren = cDY.aes_BewiligungsnummerAnschreibeverfahren + ' If cDY.aes_BewiligungsnummerPassiveVeredelung IsNot Nothing Then EA.KopfDaten.BewilligungsnummerPassiveVeredelung = cDY.aes_BewiligungsnummerPassiveVeredelung + ' If cDY.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer IsNot Nothing Then EA.KopfDaten.BewilligungsnummerVertrauenswuerdigerAusfuehrer = cDY.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer + ' If cDY.aes_VerkehrszweigInland IsNot Nothing Then EA.KopfDaten.VerkehrszweigInland = cDY.aes_VerkehrszweigInland + ' If cDY.aes_VerkehrszweigGrenze IsNot Nothing Then EA.KopfDaten.VerkehrszweigGrenze = cDY.aes_VerkehrszweigGrenze + + ' 'BefoerderungsmittelAbgang + ' If cDY.aes_BefoerderungsmittelAbgangArtCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.ArtCode = cDY.aes_BefoerderungsmittelAbgangArtCode + ' If cDY.aes_BefoerderungsmittelAbgangKennzeichen IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.Kennzeichen = cDY.aes_BefoerderungsmittelAbgangKennzeichen + ' If cDY.aes_BefoerderungsmittelAbgangStaatCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.StaatCode = cDY.aes_BefoerderungsmittelAbgangStaatCode + + ' 'BefoerderungsmittelGrenze + ' If cDY.aes_BefoerderungsmittelGrenzeArtCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.ArtCode = cDY.aes_BefoerderungsmittelGrenzeArtCode + ' If cDY.aes_BefoerderungsmittelGrenzeKennzeichen IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.Kennzeichen = cDY.aes_BefoerderungsmittelGrenzeKennzeichen + ' If cDY.aes_BefoerderungsmittelGrenzeStaatCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.StaatCode = cDY.aes_BefoerderungsmittelGrenzeStaatCode + + ' 'Ladeort + ' 'If cDY.aes_LadeortOrt IsNot Nothing Then EA.KopfDaten.Ladeort = cDY.aes_LadeortOrt ---> ÜBERBEGRIFF + ' If cDY.aes_LadeortOrtId IsNot Nothing Then EA.KopfDaten.Ladeort.OrtID = cDY.aes_LadeortOrtId + ' If cDY.aes_LadeortStrasse IsNot Nothing Then EA.KopfDaten.Ladeort.Strasse = cDY.aes_LadeortStrasse + ' If cDY.aes_LadeortOrt IsNot Nothing Then EA.KopfDaten.Ladeort.Ort = cDY.aes_LadeortOrt + ' If cDY.aes_LadeortPLZ IsNot Nothing Then EA.KopfDaten.Ladeort.PLZ = cDY.aes_LadeortPLZ + ' If cDY.aes_LadeortZusatz IsNot Nothing Then EA.KopfDaten.Ladeort.Zusatz = cDY.aes_LadeortZusatz + + ' If cDY.aes_AusfuhrZollstelleID IsNot Nothing Then EA.KopfDaten.AusfuhrZollstelleID = cDY.aes_AusfuhrZollstelleID + ' If cDY.aes_AusgangszollstelleID IsNot Nothing Then EA.KopfDaten.AusgangZollstelleID = cDY.aes_AusgangszollstelleID + ' If cDY.aes_TatsaechlicheAusgangZollstelleID IsNot Nothing Then EA.KopfDaten.TatsaechlicheAusgangZollstelleID = cDY.aes_TatsaechlicheAusgangZollstelleID + ' If cDY.aes_GeschaeftartCode IsNot Nothing Then EA.KopfDaten.GeschaeftArtCode = cDY.aes_GeschaeftartCode + ' If cDY.aes_Rechnungspreis IsNot Nothing Then EA.KopfDaten.Rechnungspreis = cDY.aes_Rechnungspreis.replace(",", ".") + ' If cDY.aes_Rechnungwaehrung IsNot Nothing Then EA.KopfDaten.Rechnungswaehrung = cDY.aes_Rechnungwaehrung + ' If cDY.aes_BesondererTatbestand IsNot Nothing Then EA.KopfDaten.BesondererTatbestand = cDY.aes_BesondererTatbestand + + ' 'Verschluss + ' If cDY.aes_VerschlussArtCode IsNot Nothing Then EA.KopfDaten.Verschluss.ArtCode = cDY.aes_VerschlussArtCode + ' If cDY.aes_VerschlussAnzahl IsNot Nothing Then EA.KopfDaten.Verschluss.Anzahl = cDY.aes_VerschlussAnzahl + ' EA.KopfDaten.Verschluss.Zeichen = New List(Of String) + ' If cDY.aes_VerschlussZeichen1 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen1) + ' If cDY.aes_VerschlussZeichen2 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen2) + ' If cDY.aes_VerschlussZeichen3 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen3) + ' If cDY.aes_VerschlussZeichen4 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen4) + ' If cDY.aes_VerschlussZeichen5 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen5) + ' If cDY.aes_VerschlussZeichen6 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen6) + ' If cDY.aes_VerschlussZeichen7 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen7) + ' If cDY.aes_VerschlussZeichen8 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen8) + ' If cDY.aes_VerschlussZeichen9 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen9) + ' If cDY.aes_VerschlussZeichen10 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen10) + ' If cDY.aes_VerschlussZeichen11 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen11) + ' If cDY.aes_VerschlussZeichen12 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen12) + + ' If cDY.aes_GestellungsfristAnfangDatumZeit IsNot Nothing Then EA.KopfDaten.Gestellungsfrist.AnfangDatumZeit = cDY.aes_GestellungsfristAnfangDatumZeit + ' If cDY.aes_GestellungsfristEndeDatumZeit IsNot Nothing Then EA.KopfDaten.Gestellungsfrist.EndeDatumZeit = cDY.aes_GestellungsfristEndeDatumZeit + + ' 'Ausfuehrer + ' If (cDY.aes_AusfuehrerTeilnehmerEORI IsNot Nothing Or cDY.aes_AusfuehrerTeilnehmerName <> "") Then + ' If cDY.aes_AusfuehrerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Ausfuehrer.TeilnehmerEORI = cDY.aes_AusfuehrerTeilnehmerEORI + ' If cDY.aes_AusfuehrerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_AusfuehrerTeilnehmerNLNR) Then EA.KopfDaten.Ausfuehrer.TeilnehmerNLNR = cDY.aes_AusfuehrerTeilnehmerNLNR + ' If cDY.aes_AusfuehrerTeilnehmerName IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Name = cDY.aes_AusfuehrerTeilnehmerName + ' If cDY.aes_AusfuehrerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Strasse = cDY.aes_AusfuehrerTeilnehmerStrasse + ' If cDY.aes_AusfuehrerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ort = cDY.aes_AusfuehrerTeilnehmerOrt + ' If cDY.aes_AusfuehrerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Ausfuehrer.PLZ = cDY.aes_AusfuehrerTeilnehmerPLZ + ' If cDY.aes_AusfuehrerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Ausfuehrer.LandCode = cDY.aes_AusfuehrerTeilnehmerLandCode + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Sachbearbeiter = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Telefonnummer = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Telefaxnummer = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.EmailAdresse = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Stellung = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'Empfaenger + ' If (cDY.aes_EmpfaengerTeilnehmerEORI IsNot Nothing Or cDY.aes_EmpfaengerTeilnehmerName <> "") Then + ' If cDY.aes_EmpfaengerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Empfaenger.TeilnehmerEORI = cDY.aes_EmpfaengerTeilnehmerEORI + ' If cDY.aes_EmpfaengerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_EmpfaengerTeilnehmerNLNR) Then EA.KopfDaten.Empfaenger.TeilnehmerNLNR = cDY.aes_EmpfaengerTeilnehmerNLNR + ' If cDY.aes_EmpfaengerTeilnehmerName IsNot Nothing Then EA.KopfDaten.Empfaenger.Name = cDY.aes_EmpfaengerTeilnehmerName + ' If cDY.aes_EmpfaengerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Empfaenger.Strasse = cDY.aes_EmpfaengerTeilnehmerStrasse + ' If cDY.aes_EmpfaengerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Empfaenger.Ort = cDY.aes_EmpfaengerTeilnehmerOrt + ' If cDY.aes_EmpfaengerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Empfaenger.PLZ = cDY.aes_EmpfaengerTeilnehmerPLZ + ' If cDY.aes_EmpfaengerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Empfaenger.LandCode = cDY.aes_EmpfaengerTeilnehmerLandCode + ' End If + + ' 'Anmelder + ' If (cDY.aes_AnmelderTeilnehmerEORI IsNot Nothing Or cDY.aes_AnmelderTeilnehmerName <> "") Then + ' If cDY.aes_AnmelderTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Anmelder.TeilnehmerEORI = cDY.aes_AnmelderTeilnehmerEORI + ' If cDY.aes_AnmelderTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_AnmelderTeilnehmerNLNR) Then EA.KopfDaten.Anmelder.TeilnehmerNLNR = cDY.aes_AnmelderTeilnehmerNLNR + ' If cDY.aes_AnmelderTeilnehmerName IsNot Nothing Then EA.KopfDaten.Anmelder.Name = cDY.aes_AnmelderTeilnehmerName + ' If cDY.aes_AnmelderTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Anmelder.Strasse = cDY.aes_AnmelderTeilnehmerStrasse + ' If cDY.aes_AnmelderTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Anmelder.Ort = cDY.aes_AnmelderTeilnehmerOrt + ' If cDY.aes_AnmelderTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Anmelder.PLZ = cDY.aes_AnmelderTeilnehmerPLZ + ' If cDY.aes_AnmelderTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Anmelder.LandCode = cDY.aes_AnmelderTeilnehmerLandCode + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Sachbearbeiter = cDY.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Telefonnummer = cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Telefaxnummer = cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.EmailAdresse = cDY.aes_AnmelderTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Stellung = cDY.aes_AnmelderTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'VertreterAnmelder + ' If (cDY.aes_VertreterAnmelderTeilnehmerEORI IsNot Nothing Or cDY.aes_VertreterAnmelderTeilnehmerName <> "") Then + ' If cDY.aes_VertreterAnmelderTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.TeilnehmerEORI = cDY.aes_VertreterAnmelderTeilnehmerEORI + ' If cDY.aes_VertreterAnmelderTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_VertreterAnmelderTeilnehmerNLNR) Then EA.KopfDaten.VertreterAnmelder.TeilnehmerNLNR = cDY.aes_VertreterAnmelderTeilnehmerNLNR + ' If cDY.aes_VertreterAnmelderTeilnehmerName IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Name = cDY.aes_VertreterAnmelderTeilnehmerName + ' If cDY.aes_VertreterAnmelderTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Strasse = cDY.aes_VertreterAnmelderTeilnehmerStrasse + ' If cDY.aes_VertreterAnmelderTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ort = cDY.aes_VertreterAnmelderTeilnehmerOrt + ' If cDY.aes_VertreterAnmelderTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.PLZ = cDY.aes_VertreterAnmelderTeilnehmerPLZ + ' If cDY.aes_VertreterAnmelderTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.LandCode = cDY.aes_VertreterAnmelderTeilnehmerLandCode + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Sachbearbeiter = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Telefonnummer = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Telefaxnummer = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.EmailAdresse = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Stellung = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'Subunternehmer + ' If (cDY.aes_SubunternehmerTeilnehmerEORI IsNot Nothing Or cDY.aes_SubunternehmerTeilnehmerName <> "") Then + ' If cDY.aes_SubunternehmerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.SubUnternehmer.TeilnehmerEORI = cDY.aes_SubunternehmerTeilnehmerEORI + ' If cDY.aes_SubunternehmerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_SubunternehmerTeilnehmerNLNR) Then EA.KopfDaten.SubUnternehmer.TeilnehmerNLNR = cDY.aes_SubunternehmerTeilnehmerNLNR + ' If cDY.aes_SubunternehmerTeilnehmerName IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Name = cDY.aes_SubunternehmerTeilnehmerName + ' If cDY.aes_SubunternehmerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Strasse = cDY.aes_SubunternehmerTeilnehmerStrasse + ' If cDY.aes_SubunternehmerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ort = cDY.aes_SubunternehmerTeilnehmerOrt + ' If cDY.aes_SubunternehmerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.SubUnternehmer.PLZ = cDY.aes_SubunternehmerTeilnehmerPLZ + ' If cDY.aes_SubunternehmerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.SubUnternehmer.LandCode = cDY.aes_SubunternehmerTeilnehmerLandCode + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Sachbearbeiter = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Telefonnummer = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Telefaxnummer = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.EmailAdresse = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Stellung = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'VerfahrensinhaberPV + ' If (cDY.aes_VerfahrensinhaberPVTeilnehmerEORI) Then + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerEORI = cDY.aes_VerfahrensinhaberPVTeilnehmerEORI + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR) Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerNLNR = cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Sachbearbeiter = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Telefonnummer = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Telefaxnummer = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.EmailAdresse = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Stellung = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'BefoerderungsrouteLand + ' EA.KopfDaten.BefoerderungsrouteLand = New List(Of String) + ' If cDY.aes_BefoerderungsrouteLand1 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand1) + ' If cDY.aes_BefoerderungsrouteLand2 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand2) + ' If cDY.aes_BefoerderungsrouteLand3 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand3) + ' If cDY.aes_BefoerderungsrouteLand4 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand4) + ' If cDY.aes_BefoerderungsrouteLand5 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand5) + ' If cDY.aes_BefoerderungsrouteLand6 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand6) + ' If cDY.aes_BefoerderungsrouteLand7 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand7) + ' If cDY.aes_BefoerderungsrouteLand8 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand8) + ' If cDY.aes_BefoerderungsrouteLand9 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand9) + ' If cDY.aes_BefoerderungsrouteLand10 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand10) + ' If cDY.aes_BefoerderungsrouteLand11 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand11) + ' If cDY.aes_BefoerderungsrouteLand12 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand12) + + ' 'Warenpositionen + ' EA.WarenPosition = New List(Of VollstaendigeAusfuhrAnmeldung.PositionVollstaendigeAusfuhranmeldungTyp) + ' If cDY.aes_WARENPOS IsNot Nothing AndAlso cDY.aes_WARENPOS.Count > 0 Then + ' For Each WP In cDY.aes_WARENPOS + ' Dim WP_DY As New VollstaendigeAusfuhrAnmeldung.PositionVollstaendigeAusfuhranmeldungTyp + ' If WP.aesWP_PositionsNummer IsNot Nothing Then WP_DY.Positionsnummer = WP.aesWP_PositionsNummer + ' If WP.aesWP_WarennummerKN8 IsNot Nothing Then WP_DY.WarenNummerKN8 = WP.aesWP_WarennummerKN8 + ' If WP.aesWP_WarennummerTARIC IsNot Nothing Then WP_DY.WarenNummerTARIC = WP.aesWP_WarennummerTARIC + ' If WP.aesWP_WarennummerZusatz1 IsNot Nothing Then WP_DY.WarenNummerZusatz1 = WP.aesWP_WarennummerZusatz1 + ' If WP.aesWP_WarennummerZusatz2 IsNot Nothing Then WP_DY.WarenNummerZusatz2 = WP.aesWP_WarennummerZusatz2 + ' If WP.aesWP_WarennummerNational IsNot Nothing Then WP_DY.WarenNummerNational = WP.aesWP_WarennummerNational + ' If WP.aesWP_RegisternummerFremdsystem IsNot Nothing Then WP_DY.RegistrierNummerFremdSystem = WP.aesWP_RegisternummerFremdsystem + ' If WP.aesWP_Vermerk IsNot Nothing Then WP_DY.Vermerk = WP.aesWP_Vermerk + ' If WP.aesWP_KennungSendung IsNot Nothing Then WP_DY.KennnummerSendung = WP.aesWP_KennungSendung + ' If WP.aesWP_UrsprungsbundeslandCode IsNot Nothing Then WP_DY.UrsprungsbundeslandCode = WP.aesWP_UrsprungsbundeslandCode + ' If WP.aesWP_Eigenmasse IsNot Nothing Then WP_DY.Eigenmasse = WP.aesWP_Eigenmasse + ' If WP.aesWP_Rohmasse IsNot Nothing Then WP_DY.Rohmasse = WP.aesWP_Rohmasse + + ' If WP.aesWP_Gefahrgutnummer IsNot Nothing Then WP_DY.Gefahrgutnummer = WP.aesWP_Gefahrgutnummer + ' If WP.aesWP_ZahlungsweiseBefoerderungskosten IsNot Nothing Then WP_DY.ZahlungsweiseBefoerderungskosten = WP.aesWP_ZahlungsweiseBefoerderungskosten + ' If WP.aesWP_VerfahrenAngemeldetCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenAngemeldetCode = WP.aesWP_VerfahrenAngemeldetCode + ' If WP.aesWP_VerfahrenVorangegangenCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenVorangegangenCode = WP.aesWP_VerfahrenVorangegangenCode + ' If WP.aesWP_VerfahrenNationalCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenNationalCode = WP.aesWP_VerfahrenNationalCode + ' If WP.aesWP_AusfuhrerstattungVerfahrensCode IsNot Nothing Then WP_DY.AusfuhrerstattungVerfahrenscode = WP.aesWP_AusfuhrerstattungVerfahrensCode + ' If WP.aesWP_Menge IsNot Nothing Then WP_DY.Menge = WP.aesWP_Menge + ' If WP.aesWP_Wert IsNot Nothing Then WP_DY.Wert = WP.aesWP_Wert + + ' WP_DY.Vorpapier = New List(Of VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp) + ' If WP.aesWP_VorpapierTypCode1 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode1 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode1 + ' If WP.aesWP_ReferenzID1 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID1 + ' If WP.aesWP_Zusatz1 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz1 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode2 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode2 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode2 + ' If WP.aesWP_ReferenzID2 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID2 + ' If WP.aesWP_Zusatz2 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz2 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode3 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode3 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode3 + ' If WP.aesWP_ReferenzID3 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID3 + ' If WP.aesWP_Zusatz3 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz3 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode4 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode4 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode4 + ' If WP.aesWP_ReferenzID4 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID4 + ' If WP.aesWP_Zusatz4 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz4 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode5 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode5 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode5 + ' If WP.aesWP_ReferenzID5 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID5 + ' If WP.aesWP_Zusatz5 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz5 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode6 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode6 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode6 + ' If WP.aesWP_ReferenzID6 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID6 + ' If WP.aesWP_Zusatz6 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz6 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode7 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode7 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode7 + ' If WP.aesWP_ReferenzID7 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID7 + ' If WP.aesWP_Zusatz7 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz7 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode8 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode8 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode8 + ' If WP.aesWP_ReferenzID8 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID8 + ' If WP.aesWP_Zusatz8 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz8 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode9 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode9 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode9 + ' If WP.aesWP_ReferenzID9 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID9 + ' If WP.aesWP_Zusatz9 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz9 + ' WP_DY.Vorpapier.Add(VP) + ' End If + + ' 'Packstueck + ' WP_DY.Packstueck = New List(Of VollstaendigeAusfuhrAnmeldung.PackstueckEVTyp) + ' If WP.aesWP_PACKSTUECKE IsNot Nothing AndAlso WP.aesWP_PACKSTUECKE.Count > 0 Then + ' For Each PK In WP.aesWP_PACKSTUECKE + ' Dim PK_DY As New VollstaendigeAusfuhrAnmeldung.PackstueckEVTyp + ' If PK.aesWpPk_PackstueckeAnzahl IsNot Nothing Then PK_DY.Anzahl = PK.aesWpPk_PackstueckeAnzahl.ToString.Replace(".", "") + ' If PK.aesWpPk_Verpackungsart IsNot Nothing Then PK_DY.VerpackungsartCode = PK.aesWpPk_Verpackungsart + ' If PK.aesWpPk_Kennzeichnung IsNot Nothing Then PK_DY.Kennzeichnung = PK.aesWpPk_Kennzeichnung + ' WP_DY.Packstueck.Add(PK_DY) + ' Next + ' End If + + ' 'Container + ' WP_DY.ContainerNummer = New List(Of String) + ' If WP.aesWP_Containernummer1 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer1) + ' If WP.aesWP_Containernummer2 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer2) + ' If WP.aesWP_Containernummer3 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer3) + ' If WP.aesWP_Containernummer4 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer4) + + ' 'Unterlage + ' WP_DY.Unterlage = New List(Of VollstaendigeAusfuhrAnmeldung.UnterlageEVTyp) + ' If WP.aesWP_UNTERLAGEN IsNot Nothing AndAlso WP.aesWP_UNTERLAGEN.Count > 0 Then + ' For Each UL In WP.aesWP_UNTERLAGEN + ' Dim UL_DY As New VollstaendigeAusfuhrAnmeldung.UnterlageEVTyp + ' If UL.aesWpUl_Typ IsNot Nothing Then UL_DY.TypCode = UL.aesWpUl_Typ + ' If UL.aesWpUl_QualifierCode IsNot Nothing Then UL_DY.QualifierCode = UL.aesWpUl_QualifierCode + ' If UL.aesWpUl_ReferenzID IsNot Nothing Then UL_DY.ReferenzID = UL.aesWpUl_ReferenzID + ' If UL.aesWpUl_Zusatz IsNot Nothing Then UL_DY.Zusatz = UL.aesWpUl_Zusatz + ' If UL.aesWpUl_Detail IsNot Nothing Then UL_DY.Detail = UL.aesWpUl_Detail + ' If UL.aesWpUl_DatumAusstellung IsNot Nothing Then UL_DY.DatumAusstellung = UL.aesWpUl_DatumAusstellung + ' If UL.aesWpUl_DatumEndeGueltigkeit IsNot Nothing Then UL_DY.DatumEndeGueltigkeit = UL.aesWpUl_DatumEndeGueltigkeit + ' If UL.aesWpUl_Wert IsNot Nothing Then UL_DY.Wert = UL.aesWpUl_Wert + ' If UL.aesWpUl_Abschreibungsmenge IsNot Nothing Then UL_DY.Abschreibungsmenge = UL.aesWpUl_Abschreibungsmenge + ' If UL.aesWpUl_Masseinheit IsNot Nothing Then UL_DY.Masseinheit = UL.aesWpUl_Masseinheit + ' WP_DY.Unterlage.Add(UL_DY) + ' Next + ' End If + + ' If WP.aesWP_AusfuhrerstattungVerfahrensCode IsNot Nothing Then WP_DY.AusfuhrerstattungVerfahrenscode = WP.aesWP_AusfuhrerstattungVerfahrensCode + + ' 'Empfaenger + ' If (WP.aesWP_EmpfaengerTeilnehmerEORI IsNot Nothing Or WP.aesWP_EmpfaengerTeilnehmerName <> "") Then + ' If WP.aesWP_EmpfaengerTeilnehmerEORI IsNot Nothing Then WP_DY.Empfaenger.TeilnehmerEORI = WP.aesWP_EmpfaengerTeilnehmerEORI + ' If WP.aesWP_EmpfaengerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(WP.aesWP_EmpfaengerTeilnehmerNLNR) Then WP_DY.Empfaenger.TeilnehmerNLNR = WP.aesWP_EmpfaengerTeilnehmerNLNR + ' If WP.aesWP_EmpfaengerTeilnehmerName IsNot Nothing Then WP_DY.Empfaenger.Name = WP.aesWP_EmpfaengerTeilnehmerName + ' If WP.aesWP_EmpfaengerTeilnehmerStrasse IsNot Nothing Then WP_DY.Empfaenger.Strasse = WP.aesWP_EmpfaengerTeilnehmerStrasse + ' If WP.aesWP_EmpfaengerTeilnehmerOrt IsNot Nothing Then WP_DY.Empfaenger.Ort = WP.aesWP_EmpfaengerTeilnehmerOrt + ' If WP.aesWP_EmpfaengerTeilnehmerPLZ IsNot Nothing Then WP_DY.Empfaenger.PLZ = WP.aesWP_EmpfaengerTeilnehmerPLZ + ' If WP.aesWP_EmpfaengerTeilnehmerLandCode IsNot Nothing Then WP_DY.Empfaenger.LandCode = WP.aesWP_EmpfaengerTeilnehmerLandCode + ' End If + + + ' EA.WarenPosition.Add(WP_DY) + ' Next + ' End If + + + ' 'Lieferbedingungen + ' If cDY.aes_LieferbedingungenCode IsNot Nothing Then + ' EA.KopfDaten.Lieferbedingung = New VollstaendigeAusfuhrAnmeldung.LieferbedingungEVTyp + ' If cDY.aes_LieferbedingungenCode IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermCode = cDY.aes_LieferbedingungenCode + ' If cDY.aes_LieferbedingungenText IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermText = cDY.aes_LieferbedingungenText + ' If cDY.aes_LieferbedingungenOrt IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermOrt = cDY.aes_LieferbedingungenOrt + ' End If + + + ' XML.EinzelAnmeldung.Add(EA) + + ' Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" + ' If Not System.IO.Directory.Exists(saveDir) Then + ' System.IO.Directory.CreateDirectory(saveDir) + ' End If + + ' saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + ' 'MsgBox(saveFile) + ' XML.SaveToFile(saveFile) + + ' replaceNullDateXML(saveFile) + ' Return True + 'End Function + + + 'Shared Function exportVERAGKunde(kdNr() As String) As Boolean + + ' Dim XML As New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORT + + ' For Each s In kdNr + ' Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(s) + ' Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(s) + ' If KUNDE IsNot Nothing And ADRESSE IsNot Nothing Then + ' Dim XML_KD As New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDaten + ' If ADRESSE.Ordnungsbegriff IsNot Nothing Then XML_KD.Kurzname = ADRESSE.Ordnungsbegriff + ' If ADRESSE.Name_1 IsNot Nothing Then XML_KD.Name1 = ADRESSE.Name_1 + ' If ADRESSE.Name_2 IsNot Nothing Then XML_KD.Name2 = ADRESSE.Name_2 + ' If KUNDE.EORITIN IsNot Nothing Then XML_KD.EORI = KUNDE.EORITIN : XML_KD.EORI_Niederlassung = "0000" + + ' If ADRESSE.UstIdKz IsNot Nothing And ADRESSE.UstIdKz IsNot Nothing Then XML_KD.UID_Nr = ADRESSE.UstIdKz & ADRESSE.UstIdNr + ' XML_KD.Kontakt = New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDatenKontakt + ' If ADRESSE.Telefon IsNot Nothing Then XML_KD.Kontakt.Tel = ADRESSE.Telefon + ' If ADRESSE.Telefax IsNot Nothing Then XML_KD.Kontakt.Fax = ADRESSE.Telefax + ' If ADRESSE.E_Mail IsNot Nothing Then XML_KD.Kontakt.EMail = ADRESSE.E_Mail + ' If ADRESSE.Ansprechpartner IsNot Nothing Then XML_KD.Kontakt.Ansprechpartner = ADRESSE.Ansprechpartner + + ' XML_KD.Adresse = New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDatenAdresse + ' If ADRESSE.Straße IsNot Nothing Then XML_KD.Adresse.Strasse = ADRESSE.Straße + ' If ADRESSE.PLZ IsNot Nothing Then XML_KD.Adresse.Plz = ADRESSE.PLZ + ' If ADRESSE.Ort IsNot Nothing Then XML_KD.Adresse.Ort = ADRESSE.Ort + ' If ADRESSE.LandKz IsNot Nothing Then XML_KD.Adresse.LandKz = ADRESSE.LandKz + + ' XML.KundenDaten.Add(XML_KD) + ' End If + ' Next + + ' XML.SaveToFile("C:\Users\DEVELOPER1\Desktop\test\KD_TEST.xml") + + ' Return True + 'End Function +End Class + + +'Class DY_ObjektAktion +' Shared Property OBJ_CREATE As String = "CREATE" +' Shared Property OBJ_CHANGE As String = "CHANGE" +' Shared Property OBJ_CANCEL As String = "CANCEL" +' Shared Property OBJ_SEND As String = "SEND" +' End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.Designer.vb new file mode 100644 index 0000000..cb61c7a --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.Designer.vb @@ -0,0 +1,8659 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' TESTJSONListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace TESTJSON + + + Partial Public Class BeyannameBilgi + +#Region "Private fields" + Private _beyanname_no As String + + Private _rejim As String + + Private _gUMRUK As String + + Private _basitlestirilmis_usul As String + + Private _yuk_belgeleri_sayisi As Integer + + Private _kap_adedi As Integer + + Private _ticaret_ulkesi As String + + Private _referans_no As String + + Private _birlik_kayit_numarasi As String + + Private _birlik_kripto_numarasi As String + + Private _cikis_ulkesi As String + + Private _gidecegi_ulke As String + + Private _gidecegi_sevk_ulkesi As String + + Private _cikistaki_aracin_tipi As String + + Private _cikistaki_aracin_kimligi As String + + Private _cikistaki_aracin_ulkesi As String + + Private _teslim_sekli As String + + Private _teslim_yeri As String + + Private _konteyner As String + + Private _sinirdaki_aracin_tipi As String + + Private _sinirdaki_aracin_kimligi As String + + Private _sinirdaki_aracin_ulkesi As String + + Private _toplam_fatura_dovizi As String + + Private _toplan_navlun_dovizi As String + + Private _sinirdaki_tasima_sekli As String + + Private _alici_satici_iliskisi As String + + Private _toplam_sigorta_dovizi As String + + Private _yukleme_bosaltma_yeri As String + + Private _toplam_yurt_disi_harcamalarin_dovizi As String + + Private _banka_kodu As String + + Private _esyanin_bulundugu_yer As String + + Private _varis_gumruk_idaresi As String + + Private _antrepo_kodu As String + + Private _tasarlanan_guzergah As String + + Private _giris_gumruk_idaresi As String + + Private _islemin_niteligi As String + + Private _aciklamalar As String + + Private _kullanici_kodu As String + + Private _referans_tarihi As String + + Private _odeme As String + + Private _odeme_araci As String + + Private _musavir_referansi As String + + Private _gonderici_vergi_no As String + + Private _alici_vergi_no As String + + Private _beyan_sahibi_vergi_no As String + + Private _musavir_vergi_no As String + + Private _asil_sorumlu_vergi_no As String + + Private _firma_bilgi As ArrayOfFirma + + Private _teminat As ArrayOfTeminat + + Private _ozetbeyanlar As ArrayOfOzetbeyan + + Private _kalemler As ArrayOfKalem + + Private _sorular_cevaplar As ArrayOfSoru_Cevap + + Private _dokumanlar As ArrayOfDokuman + + Private _vergiler As ArrayOfVergi + + Private _kiymetBildirim As ArrayOfKiymet + + Private _mail1 As String + + Private _mail2 As String + + Private _mail3 As String + + Private _mobil1 As String + + Private _mobil2 As String + + Private _fazlaMesaiID As String + + Private _limanKodu As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._kiymetBildirim = New ArrayOfKiymet() + Me._vergiler = New ArrayOfVergi() + Me._dokumanlar = New ArrayOfDokuman() + Me._sorular_cevaplar = New ArrayOfSoru_Cevap() + Me._kalemler = New ArrayOfKalem() + Me._ozetbeyanlar = New ArrayOfOzetbeyan() + Me._teminat = New ArrayOfTeminat() + Me._firma_bilgi = New ArrayOfFirma() + End Sub + + + Public Property Beyanname_no() As String + Get + Return Me._beyanname_no + End Get + Set + Me._beyanname_no = Value + End Set + End Property + + + Public Property Rejim() As String + Get + Return Me._rejim + End Get + Set + Me._rejim = Value + End Set + End Property + + + Public Property GUMRUK() As String + Get + Return Me._gUMRUK + End Get + Set + Me._gUMRUK = Value + End Set + End Property + + + Public Property Basitlestirilmis_usul() As String + Get + Return Me._basitlestirilmis_usul + End Get + Set + Me._basitlestirilmis_usul = Value + End Set + End Property + + + Public Property Yuk_belgeleri_sayisi() As Integer + Get + Return Me._yuk_belgeleri_sayisi + End Get + Set + Me._yuk_belgeleri_sayisi = Value + End Set + End Property + + + Public Property Kap_adedi() As Integer + Get + Return Me._kap_adedi + End Get + Set + Me._kap_adedi = Value + End Set + End Property + + + Public Property Ticaret_ulkesi() As String + Get + Return Me._ticaret_ulkesi + End Get + Set + Me._ticaret_ulkesi = Value + End Set + End Property + + + Public Property Referans_no() As String + Get + Return Me._referans_no + End Get + Set + Me._referans_no = Value + End Set + End Property + + + Public Property Birlik_kayit_numarasi() As String + Get + Return Me._birlik_kayit_numarasi + End Get + Set + Me._birlik_kayit_numarasi = Value + End Set + End Property + + + Public Property Birlik_kripto_numarasi() As String + Get + Return Me._birlik_kripto_numarasi + End Get + Set + Me._birlik_kripto_numarasi = Value + End Set + End Property + + + Public Property Cikis_ulkesi() As String + Get + Return Me._cikis_ulkesi + End Get + Set + Me._cikis_ulkesi = Value + End Set + End Property + + + Public Property Gidecegi_ulke() As String + Get + Return Me._gidecegi_ulke + End Get + Set + Me._gidecegi_ulke = Value + End Set + End Property + + + Public Property Gidecegi_sevk_ulkesi() As String + Get + Return Me._gidecegi_sevk_ulkesi + End Get + Set + Me._gidecegi_sevk_ulkesi = Value + End Set + End Property + + + Public Property Cikistaki_aracin_tipi() As String + Get + Return Me._cikistaki_aracin_tipi + End Get + Set + Me._cikistaki_aracin_tipi = Value + End Set + End Property + + + Public Property Cikistaki_aracin_kimligi() As String + Get + Return Me._cikistaki_aracin_kimligi + End Get + Set + Me._cikistaki_aracin_kimligi = Value + End Set + End Property + + + Public Property Cikistaki_aracin_ulkesi() As String + Get + Return Me._cikistaki_aracin_ulkesi + End Get + Set + Me._cikistaki_aracin_ulkesi = Value + End Set + End Property + + + Public Property Teslim_sekli() As String + Get + Return Me._teslim_sekli + End Get + Set + Me._teslim_sekli = Value + End Set + End Property + + + Public Property Teslim_yeri() As String + Get + Return Me._teslim_yeri + End Get + Set + Me._teslim_yeri = Value + End Set + End Property + + + Public Property Konteyner() As String + Get + Return Me._konteyner + End Get + Set + Me._konteyner = Value + End Set + End Property + + + Public Property Sinirdaki_aracin_tipi() As String + Get + Return Me._sinirdaki_aracin_tipi + End Get + Set + Me._sinirdaki_aracin_tipi = Value + End Set + End Property + + + Public Property Sinirdaki_aracin_kimligi() As String + Get + Return Me._sinirdaki_aracin_kimligi + End Get + Set + Me._sinirdaki_aracin_kimligi = Value + End Set + End Property + + + Public Property Sinirdaki_aracin_ulkesi() As String + Get + Return Me._sinirdaki_aracin_ulkesi + End Get + Set + Me._sinirdaki_aracin_ulkesi = Value + End Set + End Property + + + Public Property Toplam_fatura_dovizi() As String + Get + Return Me._toplam_fatura_dovizi + End Get + Set + Me._toplam_fatura_dovizi = Value + End Set + End Property + + + Public Property Toplan_navlun_dovizi() As String + Get + Return Me._toplan_navlun_dovizi + End Get + Set + Me._toplan_navlun_dovizi = Value + End Set + End Property + + + Public Property Sinirdaki_tasima_sekli() As String + Get + Return Me._sinirdaki_tasima_sekli + End Get + Set + Me._sinirdaki_tasima_sekli = Value + End Set + End Property + + + Public Property Alici_satici_iliskisi() As String + Get + Return Me._alici_satici_iliskisi + End Get + Set + Me._alici_satici_iliskisi = Value + End Set + End Property + + + Public Property Toplam_sigorta_dovizi() As String + Get + Return Me._toplam_sigorta_dovizi + End Get + Set + Me._toplam_sigorta_dovizi = Value + End Set + End Property + + + Public Property Yukleme_bosaltma_yeri() As String + Get + Return Me._yukleme_bosaltma_yeri + End Get + Set + Me._yukleme_bosaltma_yeri = Value + End Set + End Property + + + Public Property Toplam_yurt_disi_harcamalarin_dovizi() As String + Get + Return Me._toplam_yurt_disi_harcamalarin_dovizi + End Get + Set + Me._toplam_yurt_disi_harcamalarin_dovizi = Value + End Set + End Property + + + Public Property Banka_kodu() As String + Get + Return Me._banka_kodu + End Get + Set + Me._banka_kodu = Value + End Set + End Property + + + Public Property Esyanin_bulundugu_yer() As String + Get + Return Me._esyanin_bulundugu_yer + End Get + Set + Me._esyanin_bulundugu_yer = Value + End Set + End Property + + + Public Property Varis_gumruk_idaresi() As String + Get + Return Me._varis_gumruk_idaresi + End Get + Set + Me._varis_gumruk_idaresi = Value + End Set + End Property + + + Public Property Antrepo_kodu() As String + Get + Return Me._antrepo_kodu + End Get + Set + Me._antrepo_kodu = Value + End Set + End Property + + + Public Property Tasarlanan_guzergah() As String + Get + Return Me._tasarlanan_guzergah + End Get + Set + Me._tasarlanan_guzergah = Value + End Set + End Property + + + Public Property Giris_gumruk_idaresi() As String + Get + Return Me._giris_gumruk_idaresi + End Get + Set + Me._giris_gumruk_idaresi = Value + End Set + End Property + + + Public Property Islemin_niteligi() As String + Get + Return Me._islemin_niteligi + End Get + Set + Me._islemin_niteligi = Value + End Set + End Property + + + Public Property Aciklamalar() As String + Get + Return Me._aciklamalar + End Get + Set + Me._aciklamalar = Value + End Set + End Property + + + Public Property Kullanici_kodu() As String + Get + Return Me._kullanici_kodu + End Get + Set + Me._kullanici_kodu = Value + End Set + End Property + + + Public Property Referans_tarihi() As String + Get + Return Me._referans_tarihi + End Get + Set + Me._referans_tarihi = Value + End Set + End Property + + + Public Property Odeme() As String + Get + Return Me._odeme + End Get + Set + Me._odeme = Value + End Set + End Property + + + Public Property Odeme_araci() As String + Get + Return Me._odeme_araci + End Get + Set + Me._odeme_araci = Value + End Set + End Property + + + Public Property Musavir_referansi() As String + Get + Return Me._musavir_referansi + End Get + Set + Me._musavir_referansi = Value + End Set + End Property + + + Public Property Gonderici_vergi_no() As String + Get + Return Me._gonderici_vergi_no + End Get + Set + Me._gonderici_vergi_no = Value + End Set + End Property + + + Public Property Alici_vergi_no() As String + Get + Return Me._alici_vergi_no + End Get + Set + Me._alici_vergi_no = Value + End Set + End Property + + + Public Property Beyan_sahibi_vergi_no() As String + Get + Return Me._beyan_sahibi_vergi_no + End Get + Set + Me._beyan_sahibi_vergi_no = Value + End Set + End Property + + + Public Property Musavir_vergi_no() As String + Get + Return Me._musavir_vergi_no + End Get + Set + Me._musavir_vergi_no = Value + End Set + End Property + + + Public Property Asil_sorumlu_vergi_no() As String + Get + Return Me._asil_sorumlu_vergi_no + End Get + Set + Me._asil_sorumlu_vergi_no = Value + End Set + End Property + + + Public Property Firma_bilgi() As ArrayOfFirma + Get + Return Me._firma_bilgi + End Get + Set + Me._firma_bilgi = Value + End Set + End Property + + + Public Property Teminat() As ArrayOfTeminat + Get + Return Me._teminat + End Get + Set + Me._teminat = Value + End Set + End Property + + + Public Property Ozetbeyanlar() As ArrayOfOzetbeyan + Get + Return Me._ozetbeyanlar + End Get + Set + Me._ozetbeyanlar = Value + End Set + End Property + + + Public Property Kalemler() As ArrayOfKalem + Get + Return Me._kalemler + End Get + Set + Me._kalemler = Value + End Set + End Property + + + Public Property Sorular_cevaplar() As ArrayOfSoru_Cevap + Get + Return Me._sorular_cevaplar + End Get + Set + Me._sorular_cevaplar = Value + End Set + End Property + + + Public Property Dokumanlar() As ArrayOfDokuman + Get + Return Me._dokumanlar + End Get + Set + Me._dokumanlar = Value + End Set + End Property + + + Public Property Vergiler() As ArrayOfVergi + Get + Return Me._vergiler + End Get + Set + Me._vergiler = Value + End Set + End Property + + + Public Property KiymetBildirim() As ArrayOfKiymet + Get + Return Me._kiymetBildirim + End Get + Set + Me._kiymetBildirim = Value + End Set + End Property + + + Public Property mail1() As String + Get + Return Me._mail1 + End Get + Set + Me._mail1 = Value + End Set + End Property + + + Public Property mail2() As String + Get + Return Me._mail2 + End Get + Set + Me._mail2 = Value + End Set + End Property + + + Public Property mail3() As String + Get + Return Me._mail3 + End Get + Set + Me._mail3 = Value + End Set + End Property + + + Public Property mobil1() As String + Get + Return Me._mobil1 + End Get + Set + Me._mobil1 = Value + End Set + End Property + + + Public Property mobil2() As String + Get + Return Me._mobil2 + End Get + Set + Me._mobil2 = Value + End Set + End Property + + + Public Property FazlaMesaiID() As String + Get + Return Me._fazlaMesaiID + End Get + Set + Me._fazlaMesaiID = Value + End Set + End Property + + + Public Property LimanKodu() As String + Get + Return Me._limanKodu + End Get + Set + Me._limanKodu = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeyannameBilgi)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeyannameBilgi object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an BeyannameBilgi object + ''' + ''' string workflow markup to deserialize + ''' Output BeyannameBilgi 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 BeyannameBilgi, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeyannameBilgi) + 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 BeyannameBilgi) 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 BeyannameBilgi + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeyannameBilgi) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeyannameBilgi + Return CType(Serializer.Deserialize(s), BeyannameBilgi) + End Function +#End Region + + ''' + ''' Serializes current BeyannameBilgi 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an BeyannameBilgi object + ''' + ''' string xml file to load and deserialize + ''' Output BeyannameBilgi 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 BeyannameBilgi, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeyannameBilgi) + 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 BeyannameBilgi) 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 BeyannameBilgi + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfFirma + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfFirma)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfFirma object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfFirma object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfFirma 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 ArrayOfFirma, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfFirma) + 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 ArrayOfFirma) 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 ArrayOfFirma + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfFirma) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfFirma + Return CType(Serializer.Deserialize(s), ArrayOfFirma) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfFirma 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfFirma object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfFirma 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 ArrayOfFirma, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfFirma) + 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 ArrayOfFirma) 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 ArrayOfFirma + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfKiymet + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfKiymet)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfKiymet object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfKiymet object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfKiymet 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 ArrayOfKiymet, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfKiymet) + 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 ArrayOfKiymet) 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 ArrayOfKiymet + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfKiymet) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfKiymet + Return CType(Serializer.Deserialize(s), ArrayOfKiymet) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfKiymet 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfKiymet object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfKiymet 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 ArrayOfKiymet, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfKiymet) + 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 ArrayOfKiymet) 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 ArrayOfKiymet + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfVergi + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfVergi)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfVergi object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfVergi object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfVergi 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 ArrayOfVergi, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfVergi) + 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 ArrayOfVergi) 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 ArrayOfVergi + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfVergi) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfVergi + Return CType(Serializer.Deserialize(s), ArrayOfVergi) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfVergi 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfVergi object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfVergi 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 ArrayOfVergi, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfVergi) + 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 ArrayOfVergi) 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 ArrayOfVergi + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfDokuman + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfDokuman)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfDokuman object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfDokuman object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfDokuman 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 ArrayOfDokuman, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfDokuman) + 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 ArrayOfDokuman) 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 ArrayOfDokuman + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfDokuman) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfDokuman + Return CType(Serializer.Deserialize(s), ArrayOfDokuman) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfDokuman 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfDokuman object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfDokuman 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 ArrayOfDokuman, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfDokuman) + 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 ArrayOfDokuman) 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 ArrayOfDokuman + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfSoru_Cevap + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfSoru_Cevap)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfSoru_Cevap object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfSoru_Cevap object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfSoru_Cevap 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 ArrayOfSoru_Cevap, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfSoru_Cevap) + 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 ArrayOfSoru_Cevap) 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 ArrayOfSoru_Cevap + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfSoru_Cevap) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfSoru_Cevap + Return CType(Serializer.Deserialize(s), ArrayOfSoru_Cevap) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfSoru_Cevap 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfSoru_Cevap object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfSoru_Cevap 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 ArrayOfSoru_Cevap, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfSoru_Cevap) + 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 ArrayOfSoru_Cevap) 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 ArrayOfSoru_Cevap + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfKalem + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfKalem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfKalem object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfKalem object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfKalem 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 ArrayOfKalem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfKalem) + 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 ArrayOfKalem) 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 ArrayOfKalem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfKalem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfKalem + Return CType(Serializer.Deserialize(s), ArrayOfKalem) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfKalem 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfKalem object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfKalem 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 ArrayOfKalem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfKalem) + 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 ArrayOfKalem) 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 ArrayOfKalem + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfOzetbeyan + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfOzetbeyan)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfOzetbeyan object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfOzetbeyan object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfOzetbeyan 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 ArrayOfOzetbeyan, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfOzetbeyan) + 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 ArrayOfOzetbeyan) 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 ArrayOfOzetbeyan + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfOzetbeyan) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfOzetbeyan + Return CType(Serializer.Deserialize(s), ArrayOfOzetbeyan) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfOzetbeyan 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfOzetbeyan object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfOzetbeyan 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 ArrayOfOzetbeyan, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfOzetbeyan) + 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 ArrayOfOzetbeyan) 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 ArrayOfOzetbeyan + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfTeminat + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfTeminat)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfTeminat object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfTeminat object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfTeminat 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 ArrayOfTeminat, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfTeminat) + 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 ArrayOfTeminat) 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 ArrayOfTeminat + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfTeminat) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfTeminat + Return CType(Serializer.Deserialize(s), ArrayOfTeminat) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfTeminat 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfTeminat object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfTeminat 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 ArrayOfTeminat, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfTeminat) + 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 ArrayOfTeminat) 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 ArrayOfTeminat + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 firma + +#Region "Private fields" + Private _tip As String + + Private _ulke_kodu As String + + Private _posta_kodu As String + + Private _kimlik_turu As String + + Private _faks As String + + Private _no As String + + Private _adi_unvani As String + + Private _cadde_s_no As String + + Private _telefon As String + + Private _il_ilce As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Tip() As String + Get + Return Me._tip + End Get + Set + Me._tip = Value + End Set + End Property + + + Public Property Ulke_kodu() As String + Get + Return Me._ulke_kodu + End Get + Set + Me._ulke_kodu = Value + End Set + End Property + + + Public Property Posta_kodu() As String + Get + Return Me._posta_kodu + End Get + Set + Me._posta_kodu = Value + End Set + End Property + + + Public Property Kimlik_turu() As String + Get + Return Me._kimlik_turu + End Get + Set + Me._kimlik_turu = Value + End Set + End Property + + + Public Property Faks() As String + Get + Return Me._faks + End Get + Set + Me._faks = Value + End Set + End Property + + + Public Property No() As String + Get + Return Me._no + End Get + Set + Me._no = Value + End Set + End Property + + + Public Property Adi_unvani() As String + Get + Return Me._adi_unvani + End Get + Set + Me._adi_unvani = Value + End Set + End Property + + + Public Property Cadde_s_no() As String + Get + Return Me._cadde_s_no + End Get + Set + Me._cadde_s_no = Value + End Set + End Property + + + Public Property Telefon() As String + Get + Return Me._telefon + End Get + Set + Me._telefon = Value + End Set + End Property + + + Public Property Il_ilce() As String + Get + Return Me._il_ilce + End Get + Set + Me._il_ilce = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(firma)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current firma object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an firma object + ''' + ''' string workflow markup to deserialize + ''' Output firma 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 firma, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, firma) + 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 firma) 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 firma + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), firma) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As firma + Return CType(Serializer.Deserialize(s), firma) + End Function +#End Region + + ''' + ''' Serializes current firma 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an firma object + ''' + ''' string xml file to load and deserialize + ''' Output firma 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 firma, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, firma) + 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 firma) 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 firma + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 Teminat + +#Region "Private fields" + Private _teminat_sekli As String + + Private _global_teminat_no As String + + Private _aciklama As String + + Private _diger_tutar_referansi As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Teminat_sekli() As String + Get + Return Me._teminat_sekli + End Get + Set + Me._teminat_sekli = Value + End Set + End Property + + + Public Property Global_teminat_no() As String + Get + Return Me._global_teminat_no + End Get + Set + Me._global_teminat_no = Value + End Set + End Property + + + Public Property Aciklama() As String + Get + Return Me._aciklama + End Get + Set + Me._aciklama = Value + End Set + End Property + + + Public Property Diger_tutar_referansi() As String + Get + Return Me._diger_tutar_referansi + End Get + Set + Me._diger_tutar_referansi = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Teminat)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current Teminat object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an Teminat object + ''' + ''' string workflow markup to deserialize + ''' Output Teminat 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 Teminat, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Teminat) + 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 Teminat) 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 Teminat + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Teminat) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As Teminat + Return CType(Serializer.Deserialize(s), Teminat) + End Function +#End Region + + ''' + ''' Serializes current Teminat 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an Teminat object + ''' + ''' string xml file to load and deserialize + ''' Output Teminat 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 Teminat, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Teminat) + 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 Teminat) 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 Teminat + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 Ozetbeyan + +#Region "Private fields" + Private _ozbyacma_bilgi As ArrayOfTasimasenetleri + + Private _ozetbeyan_no As String + + Private _ozetbeyan_islem_kapsami As String + + Private _ambar_ici As String + + Private _baska_rejim As String + + Private _aciklama As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ozbyacma_bilgi = New ArrayOfTasimasenetleri() + End Sub + + + Public Property ozbyacma_bilgi() As ArrayOfTasimasenetleri + Get + Return Me._ozbyacma_bilgi + End Get + Set + Me._ozbyacma_bilgi = Value + End Set + End Property + + + Public Property Ozetbeyan_no() As String + Get + Return Me._ozetbeyan_no + End Get + Set + Me._ozetbeyan_no = Value + End Set + End Property + + + Public Property Ozetbeyan_islem_kapsami() As String + Get + Return Me._ozetbeyan_islem_kapsami + End Get + Set + Me._ozetbeyan_islem_kapsami = Value + End Set + End Property + + + Public Property Ambar_ici() As String + Get + Return Me._ambar_ici + End Get + Set + Me._ambar_ici = Value + End Set + End Property + + + Public Property Baska_rejim() As String + Get + Return Me._baska_rejim + End Get + Set + Me._baska_rejim = Value + End Set + End Property + + + Public Property Aciklama() As String + Get + Return Me._aciklama + End Get + Set + Me._aciklama = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Ozetbeyan)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current Ozetbeyan object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an Ozetbeyan object + ''' + ''' string workflow markup to deserialize + ''' Output Ozetbeyan 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 Ozetbeyan, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Ozetbeyan) + 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 Ozetbeyan) 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 Ozetbeyan + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Ozetbeyan) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As Ozetbeyan + Return CType(Serializer.Deserialize(s), Ozetbeyan) + End Function +#End Region + + ''' + ''' Serializes current Ozetbeyan 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an Ozetbeyan object + ''' + ''' string xml file to load and deserialize + ''' Output Ozetbeyan 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 Ozetbeyan, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Ozetbeyan) + 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 Ozetbeyan) 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 Ozetbeyan + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfTasimasenetleri + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfTasimasenetleri)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfTasimasenetleri object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfTasimasenetleri object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfTasimasenetleri 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 ArrayOfTasimasenetleri, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfTasimasenetleri) + 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 ArrayOfTasimasenetleri) 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 ArrayOfTasimasenetleri + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfTasimasenetleri) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfTasimasenetleri + Return CType(Serializer.Deserialize(s), ArrayOfTasimasenetleri) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfTasimasenetleri 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfTasimasenetleri object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfTasimasenetleri 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 ArrayOfTasimasenetleri, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfTasimasenetleri) + 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 ArrayOfTasimasenetleri) 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 ArrayOfTasimasenetleri + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 tasimasenetleri + +#Region "Private fields" + Private _tasima_senedi_no As String + + Private _tasimasatir_bilgi As ArrayOfTasimasatirlari + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._tasimasatir_bilgi = New ArrayOfTasimasatirlari() + End Sub + + + Public Property Tasima_senedi_no() As String + Get + Return Me._tasima_senedi_no + End Get + Set + Me._tasima_senedi_no = Value + End Set + End Property + + + Public Property tasimasatir_bilgi() As ArrayOfTasimasatirlari + Get + Return Me._tasimasatir_bilgi + End Get + Set + Me._tasimasatir_bilgi = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(tasimasenetleri)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current tasimasenetleri object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an tasimasenetleri object + ''' + ''' string workflow markup to deserialize + ''' Output tasimasenetleri 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 tasimasenetleri, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, tasimasenetleri) + 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 tasimasenetleri) 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 tasimasenetleri + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), tasimasenetleri) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As tasimasenetleri + Return CType(Serializer.Deserialize(s), tasimasenetleri) + End Function +#End Region + + ''' + ''' Serializes current tasimasenetleri 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an tasimasenetleri object + ''' + ''' string xml file to load and deserialize + ''' Output tasimasenetleri 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 tasimasenetleri, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, tasimasenetleri) + 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 tasimasenetleri) 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 tasimasenetleri + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfTasimasatirlari + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfTasimasatirlari)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfTasimasatirlari object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfTasimasatirlari object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfTasimasatirlari 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 ArrayOfTasimasatirlari, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfTasimasatirlari) + 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 ArrayOfTasimasatirlari) 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 ArrayOfTasimasatirlari + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfTasimasatirlari) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfTasimasatirlari + Return CType(Serializer.Deserialize(s), ArrayOfTasimasatirlari) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfTasimasatirlari 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfTasimasatirlari object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfTasimasatirlari 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 ArrayOfTasimasatirlari, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfTasimasatirlari) + 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 ArrayOfTasimasatirlari) 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 ArrayOfTasimasatirlari + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 tasimasatirlari + +#Region "Private fields" + Private _tasima_satir_no As String + + Private _ambar_kodu As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Tasima_satir_no() As String + Get + Return Me._tasima_satir_no + End Get + Set + Me._tasima_satir_no = Value + End Set + End Property + + + Public Property Ambar_kodu() As String + Get + Return Me._ambar_kodu + End Get + Set + Me._ambar_kodu = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(tasimasatirlari)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current tasimasatirlari object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an tasimasatirlari object + ''' + ''' string workflow markup to deserialize + ''' Output tasimasatirlari 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 tasimasatirlari, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, tasimasatirlari) + 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 tasimasatirlari) 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 tasimasatirlari + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), tasimasatirlari) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As tasimasatirlari + Return CType(Serializer.Deserialize(s), tasimasatirlari) + End Function +#End Region + + ''' + ''' Serializes current tasimasatirlari 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an tasimasatirlari object + ''' + ''' string xml file to load and deserialize + ''' Output tasimasatirlari 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 tasimasatirlari, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, tasimasatirlari) + 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 tasimasatirlari) 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 tasimasatirlari + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 kalem + +#Region "Private fields" + Private _tamamlayici_bilgi As ArrayOfTamamlayici + + Private _tcgbacmakapatma_bilgi As ArrayOfTcgbacmakapatma + + Private _marka_model_bilgi As ArrayOfMarka + + Private _konteyner_Bilgi As ArrayOfKonteyner + + Private _vergiMuafiyetleri As ArrayOfVergiMuafiyeti + + Private _havacilikYakitTurleri As ArrayOfHavacilikYakitTuru + + Private _odemeSekilleri As ArrayOfOdemeSekli + + Private _gtip As String + + Private _imalatci_firma_bilgisi As String + + Private _kalem_sira_no As Integer + + Private _mensei_ulke As String + + Private _tamamlayici_olcu_birimi As String + + Private _uluslararasi_anlasma As String + + Private _algilama_birimi_1 As String + + Private _algilama_birimi_2 As String + + Private _muafiyetler_1 As String + + Private _muafiyetler_2 As String + + Private _muafiyetler_3 As String + + Private _muafiyetler_4 As String + + Private _muafiyetler_5 As String + + Private _algilama_birimi_3 As String + + Private _teslim_sekli As String + + Private _ek_kod As String + + Private _ozellik As String + + Private _fatura_miktarinin_dovizi As String + + Private _navlun_miktarinin_dovizi As String + + Private _sigorta_miktarinin_dovizi As String + + Private _tarifedeki_tanimi As String + + Private _ticari_tanimi As String + + Private _marka As String + + Private _numara As String + + Private _cinsi As String + + Private _miktar_birimi As String + + Private _mahrece_iade As String + + Private _ikincil_islem As String + + Private _satir_no As String + + Private _kdv_orani As String + + Private _kullanilmis_esya As String + + Private _aciklama_44 As String + + Private _imalatci_Vergino As String + + Private _yurtici_Diger_Aciklama As String + + Private _muafiyet_Aciklamasi As String + + Private _referans_Tarihi As String + + Private _yurtDisi_Komisyon_Dovizi As String + + Private _yurtDisi_Demuraj_Dovizi As String + + Private _yurtDisi_Royalti_Dovizi As String + + Private _yurtDisi_Faiz_Dovizi As String + + Private _yurtDisi_Diger_Dovizi As String + + Private _yurtDisi_Diger_Aciklama As String + + Private _kalem_Islem_Niteligi As String + + Private _giris_Cikis_Amaci As String + + Private _giris_Cikis_Amaci_Aciklama As String + + Private _sTM_IlKodu As String + + Private _esyaGeriGelmeSebebi As String + + Private _esyaGeriGelmeSebebiAciklamasi As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._odemeSekilleri = New ArrayOfOdemeSekli() + Me._havacilikYakitTurleri = New ArrayOfHavacilikYakitTuru() + Me._vergiMuafiyetleri = New ArrayOfVergiMuafiyeti() + Me._konteyner_Bilgi = New ArrayOfKonteyner() + Me._marka_model_bilgi = New ArrayOfMarka() + Me._tcgbacmakapatma_bilgi = New ArrayOfTcgbacmakapatma() + Me._tamamlayici_bilgi = New ArrayOfTamamlayici() + End Sub + + + Public Property tamamlayici_bilgi() As ArrayOfTamamlayici + Get + Return Me._tamamlayici_bilgi + End Get + Set + Me._tamamlayici_bilgi = Value + End Set + End Property + + + Public Property tcgbacmakapatma_bilgi() As ArrayOfTcgbacmakapatma + Get + Return Me._tcgbacmakapatma_bilgi + End Get + Set + Me._tcgbacmakapatma_bilgi = Value + End Set + End Property + + + Public Property marka_model_bilgi() As ArrayOfMarka + Get + Return Me._marka_model_bilgi + End Get + Set + Me._marka_model_bilgi = Value + End Set + End Property + + + Public Property konteyner_Bilgi() As ArrayOfKonteyner + Get + Return Me._konteyner_Bilgi + End Get + Set + Me._konteyner_Bilgi = Value + End Set + End Property + + + Public Property VergiMuafiyetleri() As ArrayOfVergiMuafiyeti + Get + Return Me._vergiMuafiyetleri + End Get + Set + Me._vergiMuafiyetleri = Value + End Set + End Property + + + Public Property HavacilikYakitTurleri() As ArrayOfHavacilikYakitTuru + Get + Return Me._havacilikYakitTurleri + End Get + Set + Me._havacilikYakitTurleri = Value + End Set + End Property + + + Public Property OdemeSekilleri() As ArrayOfOdemeSekli + Get + Return Me._odemeSekilleri + End Get + Set + Me._odemeSekilleri = Value + End Set + End Property + + + Public Property Gtip() As String + Get + Return Me._gtip + End Get + Set + Me._gtip = Value + End Set + End Property + + + Public Property Imalatci_firma_bilgisi() As String + Get + Return Me._imalatci_firma_bilgisi + End Get + Set + Me._imalatci_firma_bilgisi = Value + End Set + End Property + + + Public Property Kalem_sira_no() As Integer + Get + Return Me._kalem_sira_no + End Get + Set + Me._kalem_sira_no = Value + End Set + End Property + + + Public Property Mensei_ulke() As String + Get + Return Me._mensei_ulke + End Get + Set + Me._mensei_ulke = Value + End Set + End Property + + + Public Property Tamamlayici_olcu_birimi() As String + Get + Return Me._tamamlayici_olcu_birimi + End Get + Set + Me._tamamlayici_olcu_birimi = Value + End Set + End Property + + + Public Property Uluslararasi_anlasma() As String + Get + Return Me._uluslararasi_anlasma + End Get + Set + Me._uluslararasi_anlasma = Value + End Set + End Property + + + Public Property Algilama_birimi_1() As String + Get + Return Me._algilama_birimi_1 + End Get + Set + Me._algilama_birimi_1 = Value + End Set + End Property + + + Public Property Algilama_birimi_2() As String + Get + Return Me._algilama_birimi_2 + End Get + Set + Me._algilama_birimi_2 = Value + End Set + End Property + + + Public Property Muafiyetler_1() As String + Get + Return Me._muafiyetler_1 + End Get + Set + Me._muafiyetler_1 = Value + End Set + End Property + + + Public Property Muafiyetler_2() As String + Get + Return Me._muafiyetler_2 + End Get + Set + Me._muafiyetler_2 = Value + End Set + End Property + + + Public Property Muafiyetler_3() As String + Get + Return Me._muafiyetler_3 + End Get + Set + Me._muafiyetler_3 = Value + End Set + End Property + + + Public Property Muafiyetler_4() As String + Get + Return Me._muafiyetler_4 + End Get + Set + Me._muafiyetler_4 = Value + End Set + End Property + + + Public Property Muafiyetler_5() As String + Get + Return Me._muafiyetler_5 + End Get + Set + Me._muafiyetler_5 = Value + End Set + End Property + + + Public Property Algilama_birimi_3() As String + Get + Return Me._algilama_birimi_3 + End Get + Set + Me._algilama_birimi_3 = Value + End Set + End Property + + + Public Property Teslim_sekli() As String + Get + Return Me._teslim_sekli + End Get + Set + Me._teslim_sekli = Value + End Set + End Property + + + Public Property Ek_kod() As String + Get + Return Me._ek_kod + End Get + Set + Me._ek_kod = Value + End Set + End Property + + + Public Property Ozellik() As String + Get + Return Me._ozellik + End Get + Set + Me._ozellik = Value + End Set + End Property + + + Public Property Fatura_miktarinin_dovizi() As String + Get + Return Me._fatura_miktarinin_dovizi + End Get + Set + Me._fatura_miktarinin_dovizi = Value + End Set + End Property + + + Public Property Navlun_miktarinin_dovizi() As String + Get + Return Me._navlun_miktarinin_dovizi + End Get + Set + Me._navlun_miktarinin_dovizi = Value + End Set + End Property + + + Public Property Sigorta_miktarinin_dovizi() As String + Get + Return Me._sigorta_miktarinin_dovizi + End Get + Set + Me._sigorta_miktarinin_dovizi = Value + End Set + End Property + + + Public Property Tarifedeki_tanimi() As String + Get + Return Me._tarifedeki_tanimi + End Get + Set + Me._tarifedeki_tanimi = Value + End Set + End Property + + + Public Property Ticari_tanimi() As String + Get + Return Me._ticari_tanimi + End Get + Set + Me._ticari_tanimi = Value + End Set + End Property + + + Public Property Marka() As String + Get + Return Me._marka + End Get + Set + Me._marka = Value + End Set + End Property + + + Public Property Numara() As String + Get + Return Me._numara + End Get + Set + Me._numara = Value + End Set + End Property + + + Public Property Cinsi() As String + Get + Return Me._cinsi + End Get + Set + Me._cinsi = Value + End Set + End Property + + + Public Property Miktar_birimi() As String + Get + Return Me._miktar_birimi + End Get + Set + Me._miktar_birimi = Value + End Set + End Property + + + Public Property Mahrece_iade() As String + Get + Return Me._mahrece_iade + End Get + Set + Me._mahrece_iade = Value + End Set + End Property + + + Public Property Ikincil_islem() As String + Get + Return Me._ikincil_islem + End Get + Set + Me._ikincil_islem = Value + End Set + End Property + + + Public Property Satir_no() As String + Get + Return Me._satir_no + End Get + Set + Me._satir_no = Value + End Set + End Property + + + Public Property Kdv_orani() As String + Get + Return Me._kdv_orani + End Get + Set + Me._kdv_orani = Value + End Set + End Property + + + Public Property Kullanilmis_esya() As String + Get + Return Me._kullanilmis_esya + End Get + Set + Me._kullanilmis_esya = Value + End Set + End Property + + + Public Property Aciklama_44() As String + Get + Return Me._aciklama_44 + End Get + Set + Me._aciklama_44 = Value + End Set + End Property + + + Public Property Imalatci_Vergino() As String + Get + Return Me._imalatci_Vergino + End Get + Set + Me._imalatci_Vergino = Value + End Set + End Property + + + Public Property Yurtici_Diger_Aciklama() As String + Get + Return Me._yurtici_Diger_Aciklama + End Get + Set + Me._yurtici_Diger_Aciklama = Value + End Set + End Property + + + Public Property Muafiyet_Aciklamasi() As String + Get + Return Me._muafiyet_Aciklamasi + End Get + Set + Me._muafiyet_Aciklamasi = Value + End Set + End Property + + + Public Property Referans_Tarihi() As String + Get + Return Me._referans_Tarihi + End Get + Set + Me._referans_Tarihi = Value + End Set + End Property + + + Public Property YurtDisi_Komisyon_Dovizi() As String + Get + Return Me._yurtDisi_Komisyon_Dovizi + End Get + Set + Me._yurtDisi_Komisyon_Dovizi = Value + End Set + End Property + + + Public Property YurtDisi_Demuraj_Dovizi() As String + Get + Return Me._yurtDisi_Demuraj_Dovizi + End Get + Set + Me._yurtDisi_Demuraj_Dovizi = Value + End Set + End Property + + + Public Property YurtDisi_Royalti_Dovizi() As String + Get + Return Me._yurtDisi_Royalti_Dovizi + End Get + Set + Me._yurtDisi_Royalti_Dovizi = Value + End Set + End Property + + + Public Property YurtDisi_Faiz_Dovizi() As String + Get + Return Me._yurtDisi_Faiz_Dovizi + End Get + Set + Me._yurtDisi_Faiz_Dovizi = Value + End Set + End Property + + + Public Property YurtDisi_Diger_Dovizi() As String + Get + Return Me._yurtDisi_Diger_Dovizi + End Get + Set + Me._yurtDisi_Diger_Dovizi = Value + End Set + End Property + + + Public Property YurtDisi_Diger_Aciklama() As String + Get + Return Me._yurtDisi_Diger_Aciklama + End Get + Set + Me._yurtDisi_Diger_Aciklama = Value + End Set + End Property + + + Public Property Kalem_Islem_Niteligi() As String + Get + Return Me._kalem_Islem_Niteligi + End Get + Set + Me._kalem_Islem_Niteligi = Value + End Set + End Property + + + Public Property Giris_Cikis_Amaci() As String + Get + Return Me._giris_Cikis_Amaci + End Get + Set + Me._giris_Cikis_Amaci = Value + End Set + End Property + + + Public Property Giris_Cikis_Amaci_Aciklama() As String + Get + Return Me._giris_Cikis_Amaci_Aciklama + End Get + Set + Me._giris_Cikis_Amaci_Aciklama = Value + End Set + End Property + + + Public Property STM_IlKodu() As String + Get + Return Me._sTM_IlKodu + End Get + Set + Me._sTM_IlKodu = Value + End Set + End Property + + + Public Property EsyaGeriGelmeSebebi() As String + Get + Return Me._esyaGeriGelmeSebebi + End Get + Set + Me._esyaGeriGelmeSebebi = Value + End Set + End Property + + + Public Property EsyaGeriGelmeSebebiAciklamasi() As String + Get + Return Me._esyaGeriGelmeSebebiAciklamasi + End Get + Set + Me._esyaGeriGelmeSebebiAciklamasi = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(kalem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current kalem object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an kalem object + ''' + ''' string workflow markup to deserialize + ''' Output kalem 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 kalem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, kalem) + 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 kalem) 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 kalem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), kalem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As kalem + Return CType(Serializer.Deserialize(s), kalem) + End Function +#End Region + + ''' + ''' Serializes current kalem 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an kalem object + ''' + ''' string xml file to load and deserialize + ''' Output kalem 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 kalem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, kalem) + 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 kalem) 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 kalem + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfTamamlayici + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfTamamlayici)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfTamamlayici object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfTamamlayici object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfTamamlayici 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 ArrayOfTamamlayici, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfTamamlayici) + 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 ArrayOfTamamlayici) 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 ArrayOfTamamlayici + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfTamamlayici) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfTamamlayici + Return CType(Serializer.Deserialize(s), ArrayOfTamamlayici) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfTamamlayici 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfTamamlayici object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfTamamlayici 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 ArrayOfTamamlayici, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfTamamlayici) + 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 ArrayOfTamamlayici) 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 ArrayOfTamamlayici + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfTcgbacmakapatma + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfTcgbacmakapatma)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfTcgbacmakapatma object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfTcgbacmakapatma object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfTcgbacmakapatma 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 ArrayOfTcgbacmakapatma, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfTcgbacmakapatma) + 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 ArrayOfTcgbacmakapatma) 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 ArrayOfTcgbacmakapatma + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfTcgbacmakapatma) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfTcgbacmakapatma + Return CType(Serializer.Deserialize(s), ArrayOfTcgbacmakapatma) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfTcgbacmakapatma 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfTcgbacmakapatma object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfTcgbacmakapatma 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 ArrayOfTcgbacmakapatma, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfTcgbacmakapatma) + 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 ArrayOfTcgbacmakapatma) 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 ArrayOfTcgbacmakapatma + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfMarka + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfMarka)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfMarka object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfMarka object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfMarka 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 ArrayOfMarka, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfMarka) + 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 ArrayOfMarka) 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 ArrayOfMarka + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfMarka) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfMarka + Return CType(Serializer.Deserialize(s), ArrayOfMarka) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfMarka 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfMarka object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfMarka 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 ArrayOfMarka, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfMarka) + 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 ArrayOfMarka) 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 ArrayOfMarka + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfKonteyner + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfKonteyner)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfKonteyner object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfKonteyner object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfKonteyner 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 ArrayOfKonteyner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfKonteyner) + 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 ArrayOfKonteyner) 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 ArrayOfKonteyner + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfKonteyner) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfKonteyner + Return CType(Serializer.Deserialize(s), ArrayOfKonteyner) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfKonteyner 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfKonteyner object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfKonteyner 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 ArrayOfKonteyner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfKonteyner) + 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 ArrayOfKonteyner) 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 ArrayOfKonteyner + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfVergiMuafiyeti + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfVergiMuafiyeti)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfVergiMuafiyeti object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfVergiMuafiyeti object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfVergiMuafiyeti 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 ArrayOfVergiMuafiyeti, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfVergiMuafiyeti) + 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 ArrayOfVergiMuafiyeti) 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 ArrayOfVergiMuafiyeti + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfVergiMuafiyeti) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfVergiMuafiyeti + Return CType(Serializer.Deserialize(s), ArrayOfVergiMuafiyeti) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfVergiMuafiyeti 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfVergiMuafiyeti object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfVergiMuafiyeti 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 ArrayOfVergiMuafiyeti, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfVergiMuafiyeti) + 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 ArrayOfVergiMuafiyeti) 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 ArrayOfVergiMuafiyeti + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfHavacilikYakitTuru + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfHavacilikYakitTuru)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfHavacilikYakitTuru object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfHavacilikYakitTuru object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfHavacilikYakitTuru 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 ArrayOfHavacilikYakitTuru, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfHavacilikYakitTuru) + 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 ArrayOfHavacilikYakitTuru) 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 ArrayOfHavacilikYakitTuru + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfHavacilikYakitTuru) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfHavacilikYakitTuru + Return CType(Serializer.Deserialize(s), ArrayOfHavacilikYakitTuru) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfHavacilikYakitTuru 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfHavacilikYakitTuru object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfHavacilikYakitTuru 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 ArrayOfHavacilikYakitTuru, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfHavacilikYakitTuru) + 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 ArrayOfHavacilikYakitTuru) 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 ArrayOfHavacilikYakitTuru + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfOdemeSekli + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfOdemeSekli)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfOdemeSekli object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfOdemeSekli object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfOdemeSekli 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 ArrayOfOdemeSekli, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfOdemeSekli) + 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 ArrayOfOdemeSekli) 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 ArrayOfOdemeSekli + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfOdemeSekli) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfOdemeSekli + Return CType(Serializer.Deserialize(s), ArrayOfOdemeSekli) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfOdemeSekli 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfOdemeSekli object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfOdemeSekli 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 ArrayOfOdemeSekli, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfOdemeSekli) + 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 ArrayOfOdemeSekli) 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 ArrayOfOdemeSekli + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 tamamlayici + +#Region "Private fields" + Private _tamamlayici_bilgi As String + + Private _tamamlayici_bilgi_orani As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Tamamlayici_bilgi() As String + Get + Return Me._tamamlayici_bilgi + End Get + Set + Me._tamamlayici_bilgi = Value + End Set + End Property + + + Public Property Tamamlayici_bilgi_orani() As String + Get + Return Me._tamamlayici_bilgi_orani + End Get + Set + Me._tamamlayici_bilgi_orani = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(tamamlayici)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current tamamlayici object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an tamamlayici object + ''' + ''' string workflow markup to deserialize + ''' Output tamamlayici 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 tamamlayici, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, tamamlayici) + 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 tamamlayici) 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 tamamlayici + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), tamamlayici) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As tamamlayici + Return CType(Serializer.Deserialize(s), tamamlayici) + End Function +#End Region + + ''' + ''' Serializes current tamamlayici 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an tamamlayici object + ''' + ''' string xml file to load and deserialize + ''' Output tamamlayici 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 tamamlayici, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, tamamlayici) + 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 tamamlayici) 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 tamamlayici + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 tcgbacmakapatma + +#Region "Private fields" + Private _kapatilan_beyanname_no As String + + Private _kapatilan_kalem_no As Integer + + Private _aciklama As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Kapatilan_beyanname_no() As String + Get + Return Me._kapatilan_beyanname_no + End Get + Set + Me._kapatilan_beyanname_no = Value + End Set + End Property + + + Public Property Kapatilan_kalem_no() As Integer + Get + Return Me._kapatilan_kalem_no + End Get + Set + Me._kapatilan_kalem_no = Value + End Set + End Property + + + Public Property Aciklama() As String + Get + Return Me._aciklama + End Get + Set + Me._aciklama = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(tcgbacmakapatma)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current tcgbacmakapatma object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an tcgbacmakapatma object + ''' + ''' string workflow markup to deserialize + ''' Output tcgbacmakapatma 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 tcgbacmakapatma, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, tcgbacmakapatma) + 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 tcgbacmakapatma) 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 tcgbacmakapatma + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), tcgbacmakapatma) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As tcgbacmakapatma + Return CType(Serializer.Deserialize(s), tcgbacmakapatma) + End Function +#End Region + + ''' + ''' Serializes current tcgbacmakapatma 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an tcgbacmakapatma object + ''' + ''' string xml file to load and deserialize + ''' Output tcgbacmakapatma 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 tcgbacmakapatma, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, tcgbacmakapatma) + 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 tcgbacmakapatma) 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 tcgbacmakapatma + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 Marka + +#Region "Private fields" + Private _marka_Turu As String + + Private _marka_Tescil_No As String + + Private _marka_Adi As String + + Private _referans_No As String + + Private _model_Yili As String + + Private _model As String + + Private _motor_hacmi As String + + Private _silindir_adedi As Integer + + Private _renk As String + + Private _motorTipi As String + + Private _motorNo As String + + Private _motorGucu As Integer + + Private _vites As String + + Private _iMEINo As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Marka_Turu() As String + Get + Return Me._marka_Turu + End Get + Set + Me._marka_Turu = Value + End Set + End Property + + + Public Property Marka_Tescil_No() As String + Get + Return Me._marka_Tescil_No + End Get + Set + Me._marka_Tescil_No = Value + End Set + End Property + + + Public Property Marka_Adi() As String + Get + Return Me._marka_Adi + End Get + Set + Me._marka_Adi = Value + End Set + End Property + + + Public Property Referans_No() As String + Get + Return Me._referans_No + End Get + Set + Me._referans_No = Value + End Set + End Property + + + Public Property Model_Yili() As String + Get + Return Me._model_Yili + End Get + Set + Me._model_Yili = Value + End Set + End Property + + + Public Property Model() As String + Get + Return Me._model + End Get + Set + Me._model = Value + End Set + End Property + + + Public Property Motor_hacmi() As String + Get + Return Me._motor_hacmi + End Get + Set + Me._motor_hacmi = Value + End Set + End Property + + + Public Property Silindir_adedi() As Integer + Get + Return Me._silindir_adedi + End Get + Set + Me._silindir_adedi = Value + End Set + End Property + + + Public Property Renk() As String + Get + Return Me._renk + End Get + Set + Me._renk = Value + End Set + End Property + + + Public Property MotorTipi() As String + Get + Return Me._motorTipi + End Get + Set + Me._motorTipi = Value + End Set + End Property + + + Public Property MotorNo() As String + Get + Return Me._motorNo + End Get + Set + Me._motorNo = Value + End Set + End Property + + + Public Property MotorGucu() As Integer + Get + Return Me._motorGucu + End Get + Set + Me._motorGucu = Value + End Set + End Property + + + Public Property Vites() As String + Get + Return Me._vites + End Get + Set + Me._vites = Value + End Set + End Property + + + Public Property IMEINo() As String + Get + Return Me._iMEINo + End Get + Set + Me._iMEINo = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Marka)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current Marka object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an Marka object + ''' + ''' string workflow markup to deserialize + ''' Output Marka 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 Marka, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Marka) + 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 Marka) 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 Marka + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Marka) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As Marka + Return CType(Serializer.Deserialize(s), Marka) + End Function +#End Region + + ''' + ''' Serializes current Marka 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an Marka object + ''' + ''' string xml file to load and deserialize + ''' Output Marka 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 Marka, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Marka) + 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 Marka) 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 Marka + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 Konteyner + +#Region "Private fields" + Private _konteyner_No As String + + Private _ulke_Kodu As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Konteyner_No() As String + Get + Return Me._konteyner_No + End Get + Set + Me._konteyner_No = Value + End Set + End Property + + + Public Property Ulke_Kodu() As String + Get + Return Me._ulke_Kodu + End Get + Set + Me._ulke_Kodu = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Konteyner)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current Konteyner object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an Konteyner object + ''' + ''' string workflow markup to deserialize + ''' Output Konteyner 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 Konteyner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Konteyner) + 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 Konteyner) 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 Konteyner + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Konteyner) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As Konteyner + Return CType(Serializer.Deserialize(s), Konteyner) + End Function +#End Region + + ''' + ''' Serializes current Konteyner 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an Konteyner object + ''' + ''' string xml file to load and deserialize + ''' Output Konteyner 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 Konteyner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Konteyner) + 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 Konteyner) 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 Konteyner + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VergiMuafiyeti + +#Region "Private fields" + Private _vergiMuafiyetKodu As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property VergiMuafiyetKodu() As String + Get + Return Me._vergiMuafiyetKodu + End Get + Set + Me._vergiMuafiyetKodu = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VergiMuafiyeti)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VergiMuafiyeti object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VergiMuafiyeti object + ''' + ''' string workflow markup to deserialize + ''' Output VergiMuafiyeti 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 VergiMuafiyeti, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VergiMuafiyeti) + 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 VergiMuafiyeti) 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 VergiMuafiyeti + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VergiMuafiyeti) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VergiMuafiyeti + Return CType(Serializer.Deserialize(s), VergiMuafiyeti) + End Function +#End Region + + ''' + ''' Serializes current VergiMuafiyeti 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VergiMuafiyeti object + ''' + ''' string xml file to load and deserialize + ''' Output VergiMuafiyeti 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 VergiMuafiyeti, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VergiMuafiyeti) + 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 VergiMuafiyeti) 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 VergiMuafiyeti + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 HavacilikYakitTuru + +#Region "Private fields" + Private _vergiNumarasi As String + + Private _faturaTarihi As String + + Private _faturaNumarasi As String + + Private _toplamFaturaMiktar As String + + Private _yakitTuru As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property VergiNumarasi() As String + Get + Return Me._vergiNumarasi + End Get + Set + Me._vergiNumarasi = Value + End Set + End Property + + + Public Property FaturaTarihi() As String + Get + Return Me._faturaTarihi + End Get + Set + Me._faturaTarihi = Value + End Set + End Property + + + Public Property FaturaNumarasi() As String + Get + Return Me._faturaNumarasi + End Get + Set + Me._faturaNumarasi = Value + End Set + End Property + + + Public Property ToplamFaturaMiktar() As String + Get + Return Me._toplamFaturaMiktar + End Get + Set + Me._toplamFaturaMiktar = Value + End Set + End Property + + + Public Property YakitTuru() As String + Get + Return Me._yakitTuru + End Get + Set + Me._yakitTuru = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HavacilikYakitTuru)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HavacilikYakitTuru object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an HavacilikYakitTuru object + ''' + ''' string workflow markup to deserialize + ''' Output HavacilikYakitTuru 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 HavacilikYakitTuru, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HavacilikYakitTuru) + 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 HavacilikYakitTuru) 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 HavacilikYakitTuru + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HavacilikYakitTuru) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HavacilikYakitTuru + Return CType(Serializer.Deserialize(s), HavacilikYakitTuru) + End Function +#End Region + + ''' + ''' Serializes current HavacilikYakitTuru 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HavacilikYakitTuru object + ''' + ''' string xml file to load and deserialize + ''' Output HavacilikYakitTuru 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 HavacilikYakitTuru, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HavacilikYakitTuru) + 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 HavacilikYakitTuru) 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 HavacilikYakitTuru + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 OdemeSekli + +#Region "Private fields" + Private _odemeSekliKodu As String + + Private _tBFID As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property OdemeSekliKodu() As String + Get + Return Me._odemeSekliKodu + End Get + Set + Me._odemeSekliKodu = Value + End Set + End Property + + + Public Property TBFID() As String + Get + Return Me._tBFID + End Get + Set + Me._tBFID = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(OdemeSekli)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current OdemeSekli object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an OdemeSekli object + ''' + ''' string workflow markup to deserialize + ''' Output OdemeSekli 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 OdemeSekli, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, OdemeSekli) + 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 OdemeSekli) 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 OdemeSekli + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), OdemeSekli) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As OdemeSekli + Return CType(Serializer.Deserialize(s), OdemeSekli) + End Function +#End Region + + ''' + ''' Serializes current OdemeSekli 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an OdemeSekli object + ''' + ''' string xml file to load and deserialize + ''' Output OdemeSekli 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 OdemeSekli, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, OdemeSekli) + 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 OdemeSekli) 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 OdemeSekli + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 Soru_Cevap + +#Region "Private fields" + Private _kalem_no As Integer + + Private _soru_no As String + + Private _cevap As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Kalem_no() As Integer + Get + Return Me._kalem_no + End Get + Set + Me._kalem_no = Value + End Set + End Property + + + Public Property Soru_no() As String + Get + Return Me._soru_no + End Get + Set + Me._soru_no = Value + End Set + End Property + + + Public Property Cevap() As String + Get + Return Me._cevap + End Get + Set + Me._cevap = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Soru_Cevap)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current Soru_Cevap object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an Soru_Cevap object + ''' + ''' string workflow markup to deserialize + ''' Output Soru_Cevap 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 Soru_Cevap, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Soru_Cevap) + 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 Soru_Cevap) 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 Soru_Cevap + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Soru_Cevap) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As Soru_Cevap + Return CType(Serializer.Deserialize(s), Soru_Cevap) + End Function +#End Region + + ''' + ''' Serializes current Soru_Cevap 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an Soru_Cevap object + ''' + ''' string xml file to load and deserialize + ''' Output Soru_Cevap 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 Soru_Cevap, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Soru_Cevap) + 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 Soru_Cevap) 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 Soru_Cevap + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 Dokuman + +#Region "Private fields" + Private _kalem_no As Integer + + Private _kod As String + + Private _dogrulama As String + + Private _belge_tarihi As String + + Private _referans As String + + Private _vize_Tarihi As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Kalem_no() As Integer + Get + Return Me._kalem_no + End Get + Set + Me._kalem_no = Value + End Set + End Property + + + Public Property Kod() As String + Get + Return Me._kod + End Get + Set + Me._kod = Value + End Set + End Property + + + Public Property Dogrulama() As String + Get + Return Me._dogrulama + End Get + Set + Me._dogrulama = Value + End Set + End Property + + + Public Property Belge_tarihi() As String + Get + Return Me._belge_tarihi + End Get + Set + Me._belge_tarihi = Value + End Set + End Property + + + Public Property Referans() As String + Get + Return Me._referans + End Get + Set + Me._referans = Value + End Set + End Property + + + Public Property Vize_Tarihi() As String + Get + Return Me._vize_Tarihi + End Get + Set + Me._vize_Tarihi = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Dokuman)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current Dokuman object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an Dokuman object + ''' + ''' string workflow markup to deserialize + ''' Output Dokuman 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 Dokuman, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Dokuman) + 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 Dokuman) 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 Dokuman + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Dokuman) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As Dokuman + Return CType(Serializer.Deserialize(s), Dokuman) + End Function +#End Region + + ''' + ''' Serializes current Dokuman 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an Dokuman object + ''' + ''' string xml file to load and deserialize + ''' Output Dokuman 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 Dokuman, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Dokuman) + 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 Dokuman) 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 Dokuman + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 Vergi + +#Region "Private fields" + Private _kalem_no As Integer + + Private _kod As String + + Private _aciklama As String + + Private _oran As String + + Private _odeme_sekli As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Kalem_no() As Integer + Get + Return Me._kalem_no + End Get + Set + Me._kalem_no = Value + End Set + End Property + + + Public Property Kod() As String + Get + Return Me._kod + End Get + Set + Me._kod = Value + End Set + End Property + + + Public Property Aciklama() As String + Get + Return Me._aciklama + End Get + Set + Me._aciklama = Value + End Set + End Property + + + Public Property Oran() As String + Get + Return Me._oran + End Get + Set + Me._oran = Value + End Set + End Property + + + Public Property Odeme_sekli() As String + Get + Return Me._odeme_sekli + End Get + Set + Me._odeme_sekli = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Vergi)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current Vergi object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an Vergi object + ''' + ''' string workflow markup to deserialize + ''' Output Vergi 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 Vergi, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Vergi) + 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 Vergi) 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 Vergi + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Vergi) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As Vergi + Return CType(Serializer.Deserialize(s), Vergi) + End Function +#End Region + + ''' + ''' Serializes current Vergi 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an Vergi object + ''' + ''' string xml file to load and deserialize + ''' Output Vergi 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 Vergi, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Vergi) + 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 Vergi) 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 Vergi + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 Kiymet + +#Region "Private fields" + Private _teslimSekli As String + + Private _faturaTarihiSayisi As String + + Private _sozlesmeTarihiSayisi As String + + Private _gumrukIdaresiKarari As String + + Private _aliciSatici As String + + Private _munasebet As String + + Private _emsal As String + + Private _aliciSaticiAyrintilar As String + + Private _kisitlamalar As String + + Private _edim As String + + Private _kisitlamalarAyrintilar As String + + Private _royalti As String + + Private _royaltiKosullar As String + + Private _saticiyaIntikal As String + + Private _saticiyaIntikalKosullar As String + + Private _sehirYer As String + + Private _taahutname As String + + Private _kiymetKalemler As ArrayOfKiymetKalem + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._kiymetKalemler = New ArrayOfKiymetKalem() + End Sub + + + Public Property TeslimSekli() As String + Get + Return Me._teslimSekli + End Get + Set + Me._teslimSekli = Value + End Set + End Property + + + Public Property FaturaTarihiSayisi() As String + Get + Return Me._faturaTarihiSayisi + End Get + Set + Me._faturaTarihiSayisi = Value + End Set + End Property + + + Public Property SozlesmeTarihiSayisi() As String + Get + Return Me._sozlesmeTarihiSayisi + End Get + Set + Me._sozlesmeTarihiSayisi = Value + End Set + End Property + + + Public Property GumrukIdaresiKarari() As String + Get + Return Me._gumrukIdaresiKarari + End Get + Set + Me._gumrukIdaresiKarari = Value + End Set + End Property + + + Public Property AliciSatici() As String + Get + Return Me._aliciSatici + End Get + Set + Me._aliciSatici = Value + End Set + End Property + + + Public Property Munasebet() As String + Get + Return Me._munasebet + End Get + Set + Me._munasebet = Value + End Set + End Property + + + Public Property Emsal() As String + Get + Return Me._emsal + End Get + Set + Me._emsal = Value + End Set + End Property + + + Public Property AliciSaticiAyrintilar() As String + Get + Return Me._aliciSaticiAyrintilar + End Get + Set + Me._aliciSaticiAyrintilar = Value + End Set + End Property + + + Public Property Kisitlamalar() As String + Get + Return Me._kisitlamalar + End Get + Set + Me._kisitlamalar = Value + End Set + End Property + + + Public Property Edim() As String + Get + Return Me._edim + End Get + Set + Me._edim = Value + End Set + End Property + + + Public Property KisitlamalarAyrintilar() As String + Get + Return Me._kisitlamalarAyrintilar + End Get + Set + Me._kisitlamalarAyrintilar = Value + End Set + End Property + + + Public Property Royalti() As String + Get + Return Me._royalti + End Get + Set + Me._royalti = Value + End Set + End Property + + + Public Property RoyaltiKosullar() As String + Get + Return Me._royaltiKosullar + End Get + Set + Me._royaltiKosullar = Value + End Set + End Property + + + Public Property SaticiyaIntikal() As String + Get + Return Me._saticiyaIntikal + End Get + Set + Me._saticiyaIntikal = Value + End Set + End Property + + + Public Property SaticiyaIntikalKosullar() As String + Get + Return Me._saticiyaIntikalKosullar + End Get + Set + Me._saticiyaIntikalKosullar = Value + End Set + End Property + + + Public Property SehirYer() As String + Get + Return Me._sehirYer + End Get + Set + Me._sehirYer = Value + End Set + End Property + + + Public Property Taahutname() As String + Get + Return Me._taahutname + End Get + Set + Me._taahutname = Value + End Set + End Property + + + Public Property KiymetKalemler() As ArrayOfKiymetKalem + Get + Return Me._kiymetKalemler + End Get + Set + Me._kiymetKalemler = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Kiymet)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current Kiymet object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an Kiymet object + ''' + ''' string workflow markup to deserialize + ''' Output Kiymet 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 Kiymet, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Kiymet) + 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 Kiymet) 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 Kiymet + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Kiymet) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As Kiymet + Return CType(Serializer.Deserialize(s), Kiymet) + End Function +#End Region + + ''' + ''' Serializes current Kiymet 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an Kiymet object + ''' + ''' string xml file to load and deserialize + ''' Output Kiymet 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 Kiymet, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Kiymet) + 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 Kiymet) 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 Kiymet + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 ArrayOfKiymetKalem + +#Region "Private fields" + Private Shared sSerializer As XmlSerializer +#End Region + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfKiymetKalem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ArrayOfKiymetKalem object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an ArrayOfKiymetKalem object + ''' + ''' string workflow markup to deserialize + ''' Output ArrayOfKiymetKalem 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 ArrayOfKiymetKalem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfKiymetKalem) + 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 ArrayOfKiymetKalem) 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 ArrayOfKiymetKalem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfKiymetKalem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ArrayOfKiymetKalem + Return CType(Serializer.Deserialize(s), ArrayOfKiymetKalem) + End Function +#End Region + + ''' + ''' Serializes current ArrayOfKiymetKalem 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ArrayOfKiymetKalem object + ''' + ''' string xml file to load and deserialize + ''' Output ArrayOfKiymetKalem 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 ArrayOfKiymetKalem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ArrayOfKiymetKalem) + 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 ArrayOfKiymetKalem) 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 ArrayOfKiymetKalem + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 KiymetKalem + +#Region "Private fields" + Private _kiymetKalemNo As Integer + + Private _beyannameKalemNo As Integer + + Private _digerOdemelerNiteligi As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property KiymetKalemNo() As Integer + Get + Return Me._kiymetKalemNo + End Get + Set + Me._kiymetKalemNo = Value + End Set + End Property + + + Public Property BeyannameKalemNo() As Integer + Get + Return Me._beyannameKalemNo + End Get + Set + Me._beyannameKalemNo = Value + End Set + End Property + + + Public Property DigerOdemelerNiteligi() As String + Get + Return Me._digerOdemelerNiteligi + End Get + Set + Me._digerOdemelerNiteligi = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KiymetKalem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KiymetKalem object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an KiymetKalem object + ''' + ''' string workflow markup to deserialize + ''' Output KiymetKalem 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 KiymetKalem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KiymetKalem) + 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 KiymetKalem) 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 KiymetKalem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KiymetKalem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KiymetKalem + Return CType(Serializer.Deserialize(s), KiymetKalem) + End Function +#End Region + + ''' + ''' Serializes current KiymetKalem 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KiymetKalem object + ''' + ''' string xml file to load and deserialize + ''' Output KiymetKalem 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 KiymetKalem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KiymetKalem) + 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 KiymetKalem) 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 KiymetKalem + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.json b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.json new file mode 100644 index 0000000..cb245e8 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.json @@ -0,0 +1,1576 @@ +{ + "$id": "BeyannameBilgi.json", + "$schema": "http://json-schema.org/draft-07/schema#", + "title": "This JSON Schema file was generated from ./BeyannameBilgi.xsd on Fri Jan 31 2020 10:35:11 GMT+0300 (GMT+03:00). For more information please see http://www.xsd2jsonschema.org", + "description": "Schema tag attributes: xmlns:tns='http://tempuri.org/' elementFormDefault='qualified' targetNamespace='http://tempuri.org/' xmlns:xs='http://www.w3.org/2001/XMLSchema'", + "type": "object", + "anyOf": [ + { + "required": ["BeyannameBilgi"] + }, + { + "required": ["BeyannameBilgi"] + }, + { + "required": ["ArrayOfFirma"] + }, + { + "required": ["firma"] + }, + { + "required": ["ArrayOfTeminat"] + }, + { + "required": ["Teminat"] + }, + { + "required": ["ArrayOfOzetbeyan"] + }, + { + "required": ["Ozetbeyan"] + }, + { + "required": ["ArrayOfTasimasenetleri"] + }, + { + "required": ["tasimasenetleri"] + }, + { + "required": ["ArrayOfTasimasatirlari"] + }, + { + "required": ["tasimasatirlari"] + }, + { + "required": ["ArrayOfKalem"] + }, + { + "required": ["kalem"] + }, + { + "required": ["ArrayOfTamamlayici"] + }, + { + "required": ["tamamlayici"] + }, + { + "required": ["ArrayOfTcgbacmakapatma"] + }, + { + "required": ["tcgbacmakapatma"] + }, + { + "required": ["ArrayOfMarka"] + }, + { + "required": ["Marka"] + }, + { + "required": ["ArrayOfKonteyner"] + }, + { + "required": ["Konteyner"] + }, + { + "required": ["ArrayOfVergiMuafiyeti"] + }, + { + "required": ["VergiMuafiyeti"] + }, + { + "required": ["ArrayOfHavacilikYakitTuru"] + }, + { + "required": ["HavacilikYakitTuru"] + }, + { + "required": ["ArrayOfOdemeSekli"] + }, + { + "required": ["OdemeSekli"] + }, + { + "required": ["ArrayOfSoru_Cevap"] + }, + { + "required": ["Soru_Cevap"] + }, + { + "required": ["ArrayOfDokuman"] + }, + { + "required": ["Dokuman"] + }, + { + "required": ["ArrayOfVergi"] + }, + { + "required": ["Vergi"] + }, + { + "required": ["ArrayOfKiymet"] + }, + { + "required": ["Kiymet"] + }, + { + "required": ["ArrayOfKiymetKalem"] + }, + { + "required": ["KiymetKalem"] + } + ], + "properties": { + "BeyannameBilgi": { + "$ref": "#/definitions/BeyannameBilgi" + }, + "ArrayOfFirma": { + "$ref": "#/definitions/ArrayOfFirma" + }, + "firma": { + "$ref": "#/definitions/firma" + }, + "ArrayOfTeminat": { + "$ref": "#/definitions/ArrayOfTeminat" + }, + "Teminat": { + "$ref": "#/definitions/Teminat" + }, + "ArrayOfOzetbeyan": { + "$ref": "#/definitions/ArrayOfOzetbeyan" + }, + "Ozetbeyan": { + "$ref": "#/definitions/Ozetbeyan" + }, + "ArrayOfTasimasenetleri": { + "$ref": "#/definitions/ArrayOfTasimasenetleri" + }, + "tasimasenetleri": { + "$ref": "#/definitions/tasimasenetleri" + }, + "ArrayOfTasimasatirlari": { + "$ref": "#/definitions/ArrayOfTasimasatirlari" + }, + "tasimasatirlari": { + "$ref": "#/definitions/tasimasatirlari" + }, + "ArrayOfKalem": { + "$ref": "#/definitions/ArrayOfKalem" + }, + "kalem": { + "$ref": "#/definitions/kalem" + }, + "ArrayOfTamamlayici": { + "$ref": "#/definitions/ArrayOfTamamlayici" + }, + "tamamlayici": { + "$ref": "#/definitions/tamamlayici" + }, + "ArrayOfTcgbacmakapatma": { + "$ref": "#/definitions/ArrayOfTcgbacmakapatma" + }, + "tcgbacmakapatma": { + "$ref": "#/definitions/tcgbacmakapatma" + }, + "ArrayOfMarka": { + "$ref": "#/definitions/ArrayOfMarka" + }, + "Marka": { + "$ref": "#/definitions/Marka" + }, + "ArrayOfKonteyner": { + "$ref": "#/definitions/ArrayOfKonteyner" + }, + "Konteyner": { + "$ref": "#/definitions/Konteyner" + }, + "ArrayOfVergiMuafiyeti": { + "$ref": "#/definitions/ArrayOfVergiMuafiyeti" + }, + "VergiMuafiyeti": { + "$ref": "#/definitions/VergiMuafiyeti" + }, + "ArrayOfHavacilikYakitTuru": { + "$ref": "#/definitions/ArrayOfHavacilikYakitTuru" + }, + "HavacilikYakitTuru": { + "$ref": "#/definitions/HavacilikYakitTuru" + }, + "ArrayOfOdemeSekli": { + "$ref": "#/definitions/ArrayOfOdemeSekli" + }, + "OdemeSekli": { + "$ref": "#/definitions/OdemeSekli" + }, + "ArrayOfSoru_Cevap": { + "$ref": "#/definitions/ArrayOfSoru_Cevap" + }, + "Soru_Cevap": { + "$ref": "#/definitions/Soru_Cevap" + }, + "ArrayOfDokuman": { + "$ref": "#/definitions/ArrayOfDokuman" + }, + "Dokuman": { + "$ref": "#/definitions/Dokuman" + }, + "ArrayOfVergi": { + "$ref": "#/definitions/ArrayOfVergi" + }, + "Vergi": { + "$ref": "#/definitions/Vergi" + }, + "ArrayOfKiymet": { + "$ref": "#/definitions/ArrayOfKiymet" + }, + "Kiymet": { + "$ref": "#/definitions/Kiymet" + }, + "ArrayOfKiymetKalem": { + "$ref": "#/definitions/ArrayOfKiymetKalem" + }, + "KiymetKalem": { + "$ref": "#/definitions/KiymetKalem" + } + }, + "definitions": { + "BeyannameBilgi": { + "type": "object", + "properties": { + "Beyanname_no": { + "type": "string" + }, + "Rejim": { + "type": "string" + }, + "GUMRUK": { + "type": "string" + }, + "Basitlestirilmis_usul": { + "type": "string" + }, + "Yuk_belgeleri_sayisi": { + "type": "integer", + "minimum": -2147483648, + "maximum": 2147483647 + }, + "Kap_adedi": { + "type": "integer", + "minimum": -2147483648, + "maximum": 2147483647 + }, + "Ticaret_ulkesi": { + "type": "string" + }, + "Referans_no": { + "type": "string" + }, + "Birlik_kayit_numarasi": { + "type": "string" + }, + "Birlik_kripto_numarasi": { + "type": "string" + }, + "Cikis_ulkesi": { + "type": "string" + }, + "Gidecegi_ulke": { + "type": "string" + }, + "Gidecegi_sevk_ulkesi": { + "type": "string" + }, + "Cikistaki_aracin_tipi": { + "type": "string" + }, + "Cikistaki_aracin_kimligi": { + "type": "string" + }, + "Cikistaki_aracin_ulkesi": { + "type": "string" + }, + "Teslim_sekli": { + "type": "string" + }, + "Teslim_yeri": { + "type": "string" + }, + "Konteyner": { + "type": "string" + }, + "Sinirdaki_aracin_tipi": { + "type": "string" + }, + "Sinirdaki_aracin_kimligi": { + "type": "string" + }, + "Sinirdaki_aracin_ulkesi": { + "type": "string" + }, + "Toplam_fatura": { + "type": "number" + }, + "Toplam_fatura_dovizi": { + "type": "string" + }, + "Toplam_navlun": { + "type": "number" + }, + "Toplan_navlun_dovizi": { + "type": "string" + }, + "Sinirdaki_tasima_sekli": { + "type": "string" + }, + "Alici_satici_iliskisi": { + "type": "string" + }, + "Toplam_sigorta": { + "type": "number" + }, + "Toplam_sigorta_dovizi": { + "type": "string" + }, + "Yukleme_bosaltma_yeri": { + "type": "string" + }, + "Toplam_yurt_disi_harcamalar": { + "type": "number" + }, + "Toplam_yurt_disi_harcamalarin_dovizi": { + "type": "string" + }, + "Toplam_yurt_ici_harcamalar": { + "type": "number" + }, + "Banka_kodu": { + "type": "string" + }, + "Esyanin_bulundugu_yer": { + "type": "string" + }, + "Varis_gumruk_idaresi": { + "type": "string" + }, + "Antrepo_kodu": { + "type": "string" + }, + "Tasarlanan_guzergah": { + "type": "string" + }, + "Telafi_edici_vergi": { + "type": "number" + }, + "Giris_gumruk_idaresi": { + "type": "string" + }, + "Islemin_niteligi": { + "type": "string" + }, + "Aciklamalar": { + "type": "string" + }, + "Kullanici_kodu": { + "type": "string" + }, + "Referans_tarihi": { + "type": "string" + }, + "Odeme": { + "type": "string" + }, + "Odeme_araci": { + "type": "string" + }, + "Musavir_referansi": { + "type": "string" + }, + "Gonderici_vergi_no": { + "type": "string" + }, + "Alici_vergi_no": { + "type": "string" + }, + "Beyan_sahibi_vergi_no": { + "type": "string" + }, + "Musavir_vergi_no": { + "type": "string" + }, + "Asil_sorumlu_vergi_no": { + "type": "string" + }, + "Firma_bilgi": { + "$ref": "#/definitions/ArrayOfFirma" + }, + "Teminat": { + "$ref": "#/definitions/ArrayOfTeminat" + }, + "Ozetbeyanlar": { + "$ref": "#/definitions/ArrayOfOzetbeyan" + }, + "Kalemler": { + "$ref": "#/definitions/ArrayOfKalem" + }, + "Sorular_cevaplar": { + "$ref": "#/definitions/ArrayOfSoru_Cevap" + }, + "Dokumanlar": { + "$ref": "#/definitions/ArrayOfDokuman" + }, + "Vergiler": { + "$ref": "#/definitions/ArrayOfVergi" + }, + "KiymetBildirim": { + "$ref": "#/definitions/ArrayOfKiymet" + }, + "mail1": { + "type": "string" + }, + "mail2": { + "type": "string" + }, + "mail3": { + "type": "string" + }, + "mobil1": { + "type": "string" + }, + "mobil2": { + "type": "string" + }, + "FazlaMesaiID": { + "type": "string" + }, + "LimanKodu": { + "type": "string" + } + }, + "required": [ + "Yuk_belgeleri_sayisi", + "Kap_adedi", + "Toplam_fatura", + "Toplam_navlun", + "Toplam_sigorta", + "Toplam_yurt_disi_harcamalar", + "Toplam_yurt_ici_harcamalar", + "Telafi_edici_vergi", + "Firma_bilgi", + "Teminat", + "Ozetbeyanlar", + "Kalemler", + "Sorular_cevaplar", + "Dokumanlar", + "Vergiler", + "KiymetBildirim" + ] + }, + "ArrayOfFirma": { + "type": "object", + "properties": { + "firma": { + "oneOf": [ + { + "$ref": "#/definitions/firma" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/firma" + } + } + ] + } + } + }, + "firma": { + "type": "object", + "properties": { + "Tip": { + "type": "string" + }, + "Ulke_kodu": { + "type": "string" + }, + "Posta_kodu": { + "type": "string" + }, + "Kimlik_turu": { + "type": "string" + }, + "Faks": { + "type": "string" + }, + "No": { + "type": "string" + }, + "Adi_unvani": { + "type": "string" + }, + "Cadde_s_no": { + "type": "string" + }, + "Telefon": { + "type": "string" + }, + "Il_ilce": { + "type": "string" + } + } + }, + "ArrayOfTeminat": { + "type": "object", + "properties": { + "Teminat": { + "oneOf": [ + { + "$ref": "#/definitions/Teminat" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/Teminat" + } + } + ] + } + } + }, + "Teminat": { + "type": "object", + "properties": { + "Teminat_sekli": { + "type": "string" + }, + "Teminat_orani": { + "type": "number" + }, + "Banka_mektubu_tutari": { + "type": "number" + }, + "Nakdi_teminat_tutari": { + "type": "number" + }, + "Diger_tutar": { + "type": "number" + }, + "Global_teminat_no": { + "type": "string" + }, + "Aciklama": { + "type": "string" + }, + "Diger_tutar_referansi": { + "type": "string" + } + }, + "required": [ + "Teminat_orani", + "Banka_mektubu_tutari", + "Nakdi_teminat_tutari", + "Diger_tutar" + ] + }, + "ArrayOfOzetbeyan": { + "type": "object", + "properties": { + "Ozetbeyan": { + "oneOf": [ + { + "$ref": "#/definitions/Ozetbeyan" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/Ozetbeyan" + } + } + ] + } + } + }, + "Ozetbeyan": { + "type": "object", + "properties": { + "ozbyacma_bilgi": { + "$ref": "#/definitions/ArrayOfTasimasenetleri" + }, + "Ozetbeyan_no": { + "type": "string" + }, + "Ozetbeyan_islem_kapsami": { + "type": "string" + }, + "Ambar_ici": { + "type": "string" + }, + "Baska_rejim": { + "type": "string" + }, + "Aciklama": { + "type": "string" + } + }, + "required": ["ozbyacma_bilgi"] + }, + "ArrayOfTasimasenetleri": { + "type": "object", + "properties": { + "tasimasenetleri": { + "oneOf": [ + { + "$ref": "#/definitions/tasimasenetleri" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/tasimasenetleri" + } + } + ] + } + } + }, + "tasimasenetleri": { + "type": "object", + "properties": { + "Tasima_senedi_no": { + "type": "string" + }, + "tasimasatir_bilgi": { + "$ref": "#/definitions/ArrayOfTasimasatirlari" + } + }, + "required": ["tasimasatir_bilgi"] + }, + "ArrayOfTasimasatirlari": { + "type": "object", + "properties": { + "tasimasatirlari": { + "oneOf": [ + { + "$ref": "#/definitions/tasimasatirlari" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/tasimasatirlari" + } + } + ] + } + } + }, + "tasimasatirlari": { + "type": "object", + "properties": { + "Tasima_satir_no": { + "type": "string" + }, + "Ambar_kodu": { + "type": "string" + }, + "Acilacak_miktar": { + "type": "number" + } + }, + "required": ["Acilacak_miktar"] + }, + "ArrayOfKalem": { + "type": "object", + "properties": { + "kalem": { + "oneOf": [ + { + "$ref": "#/definitions/kalem" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/kalem" + } + } + ] + } + } + }, + "kalem": { + "type": "object", + "properties": { + "tamamlayici_bilgi": { + "$ref": "#/definitions/ArrayOfTamamlayici" + }, + "tcgbacmakapatma_bilgi": { + "$ref": "#/definitions/ArrayOfTcgbacmakapatma" + }, + "marka_model_bilgi": { + "$ref": "#/definitions/ArrayOfMarka" + }, + "konteyner_Bilgi": { + "$ref": "#/definitions/ArrayOfKonteyner" + }, + "VergiMuafiyetleri": { + "$ref": "#/definitions/ArrayOfVergiMuafiyeti" + }, + "HavacilikYakitTurleri": { + "$ref": "#/definitions/ArrayOfHavacilikYakitTuru" + }, + "OdemeSekilleri": { + "$ref": "#/definitions/ArrayOfOdemeSekli" + }, + "Gtip": { + "type": "string" + }, + "Imalatci_firma_bilgisi": { + "type": "string" + }, + "Kalem_sira_no": { + "type": "integer", + "minimum": -2147483648, + "maximum": 2147483647 + }, + "Mensei_ulke": { + "type": "string" + }, + "Brut_agirlik": { + "type": "number" + }, + "Net_agirlik": { + "type": "number" + }, + "Tamamlayici_olcu_birimi": { + "type": "string" + }, + "Istatistiki_miktar": { + "type": "number" + }, + "Uluslararasi_anlasma": { + "type": "string" + }, + "Algilama_birimi_1": { + "type": "string" + }, + "Algilama_miktari_1": { + "type": "number" + }, + "Algilama_birimi_2": { + "type": "string" + }, + "Algilama_miktari_2": { + "type": "number" + }, + "Muafiyetler_1": { + "type": "string" + }, + "Muafiyetler_2": { + "type": "string" + }, + "Muafiyetler_3": { + "type": "string" + }, + "Muafiyetler_4": { + "type": "string" + }, + "Muafiyetler_5": { + "type": "string" + }, + "Algilama_birimi_3": { + "type": "string" + }, + "Algilama_miktari_3": { + "type": "number" + }, + "Teslim_sekli": { + "type": "string" + }, + "Ek_kod": { + "type": "string" + }, + "Ozellik": { + "type": "string" + }, + "Fatura_miktari": { + "type": "number" + }, + "Fatura_miktarinin_dovizi": { + "type": "string" + }, + "Sinir_gecis_ucreti": { + "type": "number" + }, + "Navlun_miktari": { + "type": "number" + }, + "Navlun_miktarinin_dovizi": { + "type": "string" + }, + "Istatistiki_kiymet": { + "type": "number" + }, + "Sigorta_miktari": { + "type": "number" + }, + "Sigorta_miktarinin_dovizi": { + "type": "string" + }, + "Tarifedeki_tanimi": { + "type": "string" + }, + "Ticari_tanimi": { + "type": "string" + }, + "Marka": { + "type": "string" + }, + "Numara": { + "type": "string" + }, + "Cinsi": { + "type": "string" + }, + "Adedi": { + "type": "number" + }, + "Miktar_birimi": { + "type": "string" + }, + "Mahrece_iade": { + "type": "string" + }, + "Ikincil_islem": { + "type": "string" + }, + "Satir_no": { + "type": "string" + }, + "Miktar": { + "type": "number" + }, + "Kdv_orani": { + "type": "string" + }, + "Kullanilmis_esya": { + "type": "string" + }, + "Aciklama_44": { + "type": "string" + }, + "Imalatci_Vergino": { + "type": "string" + }, + "Yurtici_Diger": { + "type": "number" + }, + "Yurtici_Banka": { + "type": "number" + }, + "Yurtici_Depolama": { + "type": "number" + }, + "Yurtici_Tahliye": { + "type": "number" + }, + "Yurtici_Liman": { + "type": "number" + }, + "Yurtici_Kultur": { + "type": "number" + }, + "Yurtici_Kkdf": { + "type": "number" + }, + "Yurtici_Cevre": { + "type": "number" + }, + "Yurtici_Diger_Aciklama": { + "type": "string" + }, + "Muafiyet_Aciklamasi": { + "type": "string" + }, + "Referans_Tarihi": { + "type": "string" + }, + "YurtDisi_Komisyon": { + "type": "number" + }, + "YurtDisi_Demuraj": { + "type": "number" + }, + "YurtDisi_Royalti": { + "type": "number" + }, + "YurtDisi_Faiz": { + "type": "number" + }, + "YurtDisi_Diger": { + "type": "number" + }, + "YurtDisi_Komisyon_Dovizi": { + "type": "string" + }, + "YurtDisi_Demuraj_Dovizi": { + "type": "string" + }, + "YurtDisi_Royalti_Dovizi": { + "type": "string" + }, + "YurtDisi_Faiz_Dovizi": { + "type": "string" + }, + "YurtDisi_Diger_Dovizi": { + "type": "string" + }, + "YurtDisi_Diger_Aciklama": { + "type": "string" + }, + "Kalem_Islem_Niteligi": { + "type": "string" + }, + "Giris_Cikis_Amaci": { + "type": "string" + }, + "Giris_Cikis_Amaci_Aciklama": { + "type": "string" + }, + "STM_IlKodu": { + "type": "string" + }, + "EsyaGeriGelmeSebebi": { + "type": "string" + }, + "EsyaGeriGelmeSebebiAciklamasi": { + "type": "string" + } + }, + "required": [ + "tamamlayici_bilgi", + "tcgbacmakapatma_bilgi", + "marka_model_bilgi", + "konteyner_Bilgi", + "VergiMuafiyetleri", + "HavacilikYakitTurleri", + "OdemeSekilleri", + "Kalem_sira_no", + "Brut_agirlik", + "Net_agirlik", + "Istatistiki_miktar", + "Algilama_miktari_1", + "Algilama_miktari_2", + "Algilama_miktari_3", + "Fatura_miktari", + "Sinir_gecis_ucreti", + "Navlun_miktari", + "Istatistiki_kiymet", + "Sigorta_miktari", + "Adedi", + "Miktar", + "Yurtici_Diger", + "Yurtici_Banka", + "Yurtici_Depolama", + "Yurtici_Tahliye", + "Yurtici_Liman", + "Yurtici_Kultur", + "Yurtici_Kkdf", + "Yurtici_Cevre", + "Yurtici_Diger_Aciklama", + "Muafiyet_Aciklamasi", + "Referans_Tarihi", + "YurtDisi_Komisyon", + "YurtDisi_Demuraj", + "YurtDisi_Royalti", + "YurtDisi_Faiz", + "YurtDisi_Diger", + "YurtDisi_Komisyon_Dovizi", + "YurtDisi_Demuraj_Dovizi", + "YurtDisi_Royalti_Dovizi", + "YurtDisi_Faiz_Dovizi", + "YurtDisi_Diger_Dovizi", + "YurtDisi_Diger_Aciklama", + "Kalem_Islem_Niteligi", + "Giris_Cikis_Amaci", + "Giris_Cikis_Amaci_Aciklama", + "STM_IlKodu", + "EsyaGeriGelmeSebebi", + "EsyaGeriGelmeSebebiAciklamasi" + ] + }, + "ArrayOfTamamlayici": { + "type": "object", + "properties": { + "tamamlayici": { + "oneOf": [ + { + "$ref": "#/definitions/tamamlayici" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/tamamlayici" + } + } + ] + } + } + }, + "tamamlayici": { + "type": "object", + "properties": { + "Tamamlayici_bilgi": { + "type": "string" + }, + "Tamamlayici_bilgi_orani": { + "type": "string" + } + } + }, + "ArrayOfTcgbacmakapatma": { + "type": "object", + "properties": { + "tcgbacmakapatma": { + "oneOf": [ + { + "$ref": "#/definitions/tcgbacmakapatma" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/tcgbacmakapatma" + } + } + ] + } + } + }, + "tcgbacmakapatma": { + "type": "object", + "properties": { + "Kapatilan_beyanname_no": { + "type": "string" + }, + "Kapatilan_kalem_no": { + "type": "integer", + "minimum": -2147483648, + "maximum": 2147483647 + }, + "Kapatilan_miktar": { + "type": "number" + }, + "Aciklama": { + "type": "string" + } + }, + "required": ["Kapatilan_kalem_no", "Kapatilan_miktar"] + }, + "ArrayOfMarka": { + "type": "object", + "properties": { + "Marka": { + "oneOf": [ + { + "$ref": "#/definitions/Marka" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/Marka" + } + } + ] + } + } + }, + "Marka": { + "type": "object", + "properties": { + "Marka_Turu": { + "type": "string" + }, + "Marka_Tescil_No": { + "type": "string" + }, + "Marka_Adi": { + "type": "string" + }, + "Marka_Kiymeti": { + "type": "number" + }, + "Referans_No": { + "type": "string" + }, + "Model_Yili": { + "type": "string" + }, + "Model": { + "type": "string" + }, + "Motor_hacmi": { + "type": "string" + }, + "Silindir_adedi": { + "type": "integer", + "minimum": -2147483648, + "maximum": 2147483647 + }, + "Renk": { + "type": "string" + }, + "MotorTipi": { + "type": "string" + }, + "MotorNo": { + "type": "string" + }, + "MotorGucu": { + "type": "integer" + }, + "Vites": { + "type": "string" + }, + "IMEINo": { + "type": "string" + } + }, + "required": ["Marka_Kiymeti"] + }, + "ArrayOfKonteyner": { + "type": "object", + "properties": { + "Konteyner": { + "oneOf": [ + { + "$ref": "#/definitions/Konteyner" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/Konteyner" + } + } + ] + } + } + }, + "Konteyner": { + "type": "object", + "properties": { + "Konteyner_No": { + "type": "string" + }, + "Ulke_Kodu": { + "type": "string" + } + } + }, + "ArrayOfVergiMuafiyeti": { + "type": "object", + "properties": { + "VergiMuafiyeti": { + "oneOf": [ + { + "$ref": "#/definitions/VergiMuafiyeti" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/VergiMuafiyeti" + } + } + ] + } + } + }, + "VergiMuafiyeti": { + "type": "object", + "properties": { + "VergiMuafiyetKodu": { + "type": "string" + } + } + }, + "ArrayOfHavacilikYakitTuru": { + "type": "object", + "properties": { + "HavacilikYakitTuru": { + "oneOf": [ + { + "$ref": "#/definitions/HavacilikYakitTuru" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/HavacilikYakitTuru" + } + } + ] + } + } + }, + "HavacilikYakitTuru": { + "type": "object", + "properties": { + "VergiNumarasi": { + "type": "string" + }, + "FaturaTarihi": { + "type": "string" + }, + "FaturaNumarasi": { + "type": "string" + }, + "ToplamFaturaMiktar": { + "type": "string" + }, + "YakitTuru": { + "type": "string" + } + }, + "required": [ + "VergiNumarasi", + "FaturaTarihi", + "FaturaNumarasi", + "ToplamFaturaMiktar", + "YakitTuru" + ] + }, + "ArrayOfOdemeSekli": { + "type": "object", + "properties": { + "OdemeSekli": { + "oneOf": [ + { + "$ref": "#/definitions/OdemeSekli" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/OdemeSekli" + } + } + ] + } + } + }, + "OdemeSekli": { + "type": "object", + "properties": { + "OdemeSekliKodu": { + "type": "string" + }, + "OdemeTutari": { + "type": "number" + }, + "TBFID": { + "type": "string" + } + } + }, + "ArrayOfSoru_Cevap": { + "type": "object", + "properties": { + "Soru_Cevap": { + "oneOf": [ + { + "$ref": "#/definitions/Soru_Cevap" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/Soru_Cevap" + } + } + ] + } + } + }, + "Soru_Cevap": { + "type": "object", + "properties": { + "Kalem_no": { + "type": "integer", + "minimum": -2147483648, + "maximum": 2147483647 + }, + "Soru_no": { + "type": "string" + }, + "Cevap": { + "type": "string" + } + }, + "required": ["Kalem_no"] + }, + "ArrayOfDokuman": { + "type": "object", + "properties": { + "Dokuman": { + "oneOf": [ + { + "$ref": "#/definitions/Dokuman" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/Dokuman" + } + } + ] + } + } + }, + "Dokuman": { + "type": "object", + "properties": { + "Kalem_no": { + "type": "integer", + "minimum": -2147483648, + "maximum": 2147483647 + }, + "Kod": { + "type": "string" + }, + "Dogrulama": { + "type": "string" + }, + "Belge_tarihi": { + "type": "string" + }, + "Referans": { + "type": "string" + }, + "Vize_Tarihi": { + "type": "string" + } + }, + "required": ["Kalem_no"] + }, + "ArrayOfVergi": { + "type": "object", + "properties": { + "Vergi": { + "oneOf": [ + { + "$ref": "#/definitions/Vergi" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/Vergi" + } + } + ] + } + } + }, + "Vergi": { + "type": "object", + "properties": { + "Kalem_no": { + "type": "integer", + "minimum": -2147483648, + "maximum": 2147483647 + }, + "Kod": { + "type": "string" + }, + "Aciklama": { + "type": "string" + }, + "Miktar": { + "type": "number" + }, + "Oran": { + "type": "string" + }, + "Odeme_sekli": { + "type": "string" + }, + "Vergi_matrahi": { + "type": "number" + } + }, + "required": ["Kalem_no", "Miktar", "Vergi_matrahi"] + }, + "ArrayOfKiymet": { + "type": "object", + "properties": { + "Kiymet": { + "oneOf": [ + { + "$ref": "#/definitions/Kiymet" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/Kiymet" + } + } + ] + } + } + }, + "Kiymet": { + "type": "object", + "properties": { + "TeslimSekli": { + "type": "string" + }, + "FaturaTarihiSayisi": { + "type": "string" + }, + "SozlesmeTarihiSayisi": { + "type": "string" + }, + "GumrukIdaresiKarari": { + "type": "string" + }, + "AliciSatici": { + "type": "string" + }, + "Munasebet": { + "type": "string" + }, + "Emsal": { + "type": "string" + }, + "AliciSaticiAyrintilar": { + "type": "string" + }, + "Kisitlamalar": { + "type": "string" + }, + "Edim": { + "type": "string" + }, + "KisitlamalarAyrintilar": { + "type": "string" + }, + "Royalti": { + "type": "string" + }, + "RoyaltiKosullar": { + "type": "string" + }, + "SaticiyaIntikal": { + "type": "string" + }, + "SaticiyaIntikalKosullar": { + "type": "string" + }, + "SehirYer": { + "type": "string" + }, + "Taahutname": { + "type": "string" + }, + "KiymetKalemler": { + "$ref": "#/definitions/ArrayOfKiymetKalem" + } + } + }, + "ArrayOfKiymetKalem": { + "type": "object", + "properties": { + "KiymetKalem": { + "oneOf": [ + { + "$ref": "#/definitions/KiymetKalem" + }, + { + "type": "array", + "items": { + "$ref": "#/definitions/KiymetKalem" + } + } + ] + } + } + }, + "KiymetKalem": { + "type": "object", + "properties": { + "KiymetKalemNo": { + "type": "integer", + "minimum": -2147483648, + "maximum": 2147483647 + }, + "BeyannameKalemNo": { + "type": "integer", + "minimum": -2147483648, + "maximum": 2147483647 + }, + "DolayliOdeme": { + "type": "number" + }, + "Komisyon": { + "type": "number" + }, + "Tellaliye": { + "type": "number" + }, + "KapAmbalajBedeli": { + "type": "number" + }, + "IthalaKatilanMalzeme": { + "type": "number" + }, + "IthalaUretimAraclar": { + "type": "number" + }, + "IthalaUretimTuketimMalzemesi": { + "type": "number" + }, + "PlanTaslak": { + "type": "number" + }, + "RoyaltiLisans": { + "type": "number" + }, + "DolayliIntikal": { + "type": "number" + }, + "Nakliye": { + "type": "number" + }, + "Sigorta": { + "type": "number" + }, + "GirisSonrasiNakliye": { + "type": "number" + }, + "TeknikYardim": { + "type": "number" + }, + "DigerOdemeler": { + "type": "number" + }, + "DigerOdemelerNiteligi": { + "type": "string" + }, + "VergiHarcFon": { + "type": "number" + } + }, + "required": [ + "KiymetKalemNo", + "BeyannameKalemNo", + "DolayliOdeme", + "Komisyon", + "Tellaliye", + "KapAmbalajBedeli", + "IthalaKatilanMalzeme", + "IthalaUretimAraclar", + "IthalaUretimTuketimMalzemesi", + "PlanTaslak", + "RoyaltiLisans", + "DolayliIntikal", + "Nakliye", + "Sigorta", + "GirisSonrasiNakliye", + "TeknikYardim", + "DigerOdemeler", + "VergiHarcFon" + ] + } + } +} diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.xsd new file mode 100644 index 0000000..c35478a --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.xsd @@ -0,0 +1,375 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/TR_EX/declarationJsonSchema.json b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/TR_EX/declarationJsonSchema.json new file mode 100644 index 0000000..12fbf14 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/TR_EX/declarationJsonSchema.json @@ -0,0 +1,1362 @@ +{ + $id: 'BeyannameBilgi.json', + $schema: 'http://json-schema.org/draft-07/schema#', + title: + 'This JSON Schema file was generated from ./BeyannameBilgi.xsd on Fri Jan 31 2020 10:35:11 GMT+0300 (GMT+03:00). For more information please see http://www.xsd2jsonschema.org', + description: + "Schema tag attributes: xmlns:tns='http://tempuri.org/' elementFormDefault='qualified' targetNamespace='http://tempuri.org/' xmlns:xs='http://www.w3.org/2001/XMLSchema'", + type: 'object', + anyOf: [ + { + required: ['DeclarationInfo'], + }, + { + required: ['DeclarationInfo'], + }, + { + required: ['ArrayOfParty'], + }, + { + required: ['party'], + }, + { + required: ['ArrayOfGuarantee'], + }, + { + required: ['Guarantee'], + }, + { + required: ['ArrayOfSummaryDeclaration'], + }, + { + required: ['summaryDeclaration'], + }, + { + required: ['ArrayOfTransportBills'], + }, + { + required: ['transportBills'], + }, + { + required: ['ArrayOfTransportItems'], + }, + { + required: ['TransportItems'], + }, + { + required: ['ArrayOfItem'], + }, + { + required: ['item'], + }, + { + required: ['ArrayOfComlementary'], + }, + { + required: ['Comlementary'], + }, + { + required: ['ArrayOfTcgbOpenClose'], + }, + { + required: ['TcgbOpenClose'], + }, + { + required: ['ArrayOfTradeMark'], + }, + { + required: ['TradeMark'], + }, + { + required: ['ArrayOfContainer'], + }, + { + required: ['Container'], + }, + { + required: ['ArrayOfDutyExemption'], + }, + { + required: ['DutyExemption'], + }, + { + required: ['ArrayOfAviationFuelType'], + }, + { + required: ['AviationFuelType'], + }, + { + required: ['ArrayOfPaymentMeans'], + }, + { + required: ['PaymentMeans'], + }, + { + required: ['ArrayOfQuestion'], + }, + { + required: ['Question'], + }, + { + required: ['ArrayOfDocument'], + }, + { + required: ['Document'], + }, + { + required: ['ArrayOfDuty'], + }, + { + required: ['Duty'], + }, + { + required: ['ArrayOfValue'], + }, + { + required: ['Value'], + }, + { + required: ['ArrayOfValueItem'], + }, + { + required: ['ValueItem'], + }, + ], + properties: { + DeclarationInfo: { + $ref: '#/definitions/DeclarationInfo', + }, + ArrayOfParty: { + $ref: '#/definitions/ArrayOfParty', + }, + party: { + $ref: '#/definitions/party', + }, + ArrayOfGuarantee: { + $ref: '#/definitions/ArrayOfGuarantee', + }, + Guarantee: { + $ref: '#/definitions/Guarantee', + }, + ArrayOfSummaryDeclaration: { + $ref: '#/definitions/ArrayOfSummaryDeclaration', + }, + SummaryDeclaration: { + $ref: '#/definitions/SummaryDeclaration', + }, + ArrayOfTransportBills: { + $ref: '#/definitions/ArrayOfTransportBills', + }, + transportBills: { + $ref: '#/definitions/transportBills', + }, + ArrayOfTransportItems: { + $ref: '#/definitions/ArrayOfTransportItems', + }, + transportItems: { + $ref: '#/definitions/transportItems', + }, + ArrayOfItem: { + $ref: '#/definitions/ArrayOfItem', + }, + Item: { + $ref: '#/definitions/item', + }, + ArrayOfComlementary: { + $ref: '#/definitions/ArrayOfComlementary', + }, + Comlementary: { + $ref: '#/definitions/Comlementary', + }, + ArrayOfTcgbOpenClose: { + $ref: '#/definitions/ArrayOfTcgbOpenClose', + }, + TcgbOpenClose: { + $ref: '#/definitions/TcgbOpenClose', + }, + ArrayOfTradeMark: { + $ref: '#/definitions/ArrayOfTradeMark', + }, + TradeMark: { + $ref: '#/definitions/TradeMark', + }, + ArrayOfContainer: { + $ref: '#/definitions/ArrayOfContainer', + }, + Container: { + $ref: '#/definitions/Container', + }, + ArrayOfDutyExemption: { + $ref: '#/definitions/ArrayOfDutyExemption', + }, + DutyExemption: { + $ref: '#/definitions/DutyExemption', + }, + ArrayOfAviationFuelType: { + $ref: '#/definitions/ArrayOfAviationFuelType', + }, + AviationFuelType: { + $ref: '#/definitions/AviationFuelType', + }, + ArrayOfPaymentMeans: { + $ref: '#/definitions/ArrayOfPaymentMeans', + }, + PaymentMeans: { + $ref: '#/definitions/PaymentMeans', + }, + ArrayOfQuestion: { + $ref: '#/definitions/ArrayOfQuestion', + }, + Question: { + $ref: '#/definitions/Question', + }, + ArrayOfDocument: { + $ref: '#/definitions/ArrayOfDocument', + }, + Document: { + $ref: '#/definitions/Document', + }, + ArrayOfDuty: { + $ref: '#/definitions/ArrayOfDuty', + }, + Duty: { + $ref: '#/definitions/Duty', + }, + ArrayOfValue: { + $ref: '#/definitions/ArrayOfValue', + }, + Value: { + $ref: '#/definitions/Value', + }, + ArrayOfValueItem: { + $ref: '#/definitions/ArrayOfValueItem', + }, + ValueItem: { + $ref: '#/definitions/ValueItem', + }, + }, + definitions: { + DeclarationInfo: { + type: 'object', + properties: { + declarationNo: { + type: 'string', + }, + Procedure: { + type: 'string', + }, + customs: { + type: 'string', + }, + simplifiedProcedure: { + type: 'string', + }, + loadingList: { + type: 'integer', + minimum: -2147483648, + maximum: 2147483647, + }, + totalPackageQuantity: { + type: 'integer', + minimum: -2147483648, + maximum: 2147483647, + }, + tradeCountry: { + type: 'string', + }, + referenceNo: { + type: 'string', + }, + associationRegistrationNo: { + type: 'string', + }, + associationCryptoNo: { + type: 'string', + }, + countryOfExit: { + type: 'string', + }, + countryOfDestination: { + type: 'string', + }, + countryOfFirstDestination: { + type: 'string', + }, + exitVehicleType: { + type: 'string', + }, + exitVehicleIdentity: { + type: 'string', + }, + exitVehicleCountry: { + type: 'string', + }, + deliveryTerms: { + type: 'string', + }, + deliveryPlace: { + type: 'string', + }, + Container: { + type: 'string', + }, + borderVehicleType: { + type: 'string', + }, + borderVehicleIdentity: { + type: 'string', + }, + borderVehicleCountry: { + type: 'string', + }, + totalPayableAmount: { + type: 'number', + }, + totalPayableAmountCurrency: { + type: 'string', + }, + totalFreightAmount: { + type: 'number', + }, + totalFreightAmountCurrency: { + type: 'string', + }, + borderTransportMeans: { + type: 'string', + }, + partyRelationshipCode: { + type: 'string', + }, + totalInsurance: { + type: 'number', + }, + totalInsuranceCurrency: { + type: 'string', + }, + transportHandlingPlace: { + type: 'string', + }, + totalForeignExpenditure: { + type: 'number', + }, + totalForeignExpenditureCurrency: { + type: 'string', + }, + totalDomesticExpenditure: { + type: 'number', + }, + bankCode: { + type: 'string', + }, + itemLocation: { + type: 'string', + }, + destinationCustomsOffice: { + type: 'string', + }, + warehouseCode: { + type: 'string', + }, + plannedRoute: { + type: 'string', + }, + compensatoryDuty: { + type: 'number', + }, + exitCustomsOffice: { + type: 'string', + }, + transactionNature: { + type: 'string', + }, + remarks: { + type: 'string', + }, + userCode: { + type: 'string', + }, + referenceDate: { + type: 'string', + }, + payment: { + type: 'string', + }, + paymentMeans: { + type: 'string', + }, + customsBrokerReference: { + type: 'string', + }, + consignorTaxNo: { + type: 'string', + }, + consigneeTaxNo: { + type: 'string', + }, + declarantTaxNo: { + type: 'string', + }, + financialResponsibleTaxNo: { + type: 'string', + }, + personelResponsibleTaxNo: { + type: 'string', + }, + partyInfo: { + $ref: '#/definitions/ArrayOfParty', + }, + guarantee: { + $ref: '#/definitions/ArrayOfGuarantee', + }, + summaryDeclarations: { + $ref: '#/definitions/ArrayOfSummaryDeclaration', + }, + items: { + $ref: '#/definitions/ArrayOfItem', + }, + questions: { + $ref: '#/definitions/ArrayOfQuestion', + }, + documents: { + $ref: '#/definitions/ArrayOfDocument', + }, + duties: { + $ref: '#/definitions/ArrayOfDuty', + }, + valueDeclaration: { + $ref: '#/definitions/ArrayOfValue', + }, + electronicMail1: { + type: 'string', + }, + electronicMail2: { + type: 'string', + }, + electronicMail3: { + type: 'string', + }, + mobile1: { + type: 'string', + }, + mobile2: { + type: 'string', + }, + overTimeID: { + type: 'string', + }, + portCode: { + type: 'string', + }, + }, + required: [ + 'loadingList', + 'totalPackageQuantity', + 'totalPayableAmount', + 'totalFreightAmount', + 'totalInsurance', + 'totalForeignExpenditure', + 'totalDomesticExpenditure', + 'compensatoryDuty', + 'partyInfo', + 'guarantee', + 'summaryDeclarations', + 'items', + 'questions', + 'documents', + 'duties', + 'valueDeclaration', + ], + }, + ArrayOfParty: { + type: 'array', + items: { + $ref: '#/definitions/party', + }, + }, + party: { + type: 'object', + properties: { + partyType: { + type: 'string', + }, + countryCode: { + type: 'string', + }, + postalCode: { + type: 'string', + }, + identificationType: { + type: 'string', + }, + telefax: { + type: 'string', + }, + no: { + type: 'string', + }, + nameTitle: { + type: 'string', + }, + streetName: { + type: 'string', + }, + telephone: { + type: 'string', + }, + cityAndCitySubdivisionName: { + type: 'string', + }, + }, + }, + ArrayOfGuarantee: { + type: 'array', + items: { + $ref: '#/definitions/Guarantee', + }, + }, + Guarantee: { + type: 'object', + properties: { + guaranteeType: { + type: 'string', + }, + guaranteeRate: { + type: 'number', + }, + letterOfGuaranteeAmount: { + type: 'number', + }, + cashGuaranteeAmount: { + type: 'number', + }, + otherAmount: { + type: 'number', + }, + globalGuaranteeNo: { + type: 'string', + }, + explanation: { + type: 'string', + }, + otherAmountReference: { + type: 'string', + }, + }, + required: [ + 'guaranteeRate', + 'letterOfGuaranteeAmount', + 'cashGuaranteeAmount', + 'otherAmount', + ], + }, + ArrayOfSummaryDeclaration: { + type: 'array', + items: { + $ref: '#/definitions/SummaryDeclaration', + }, + }, + SummaryDeclaration: { + type: 'object', + properties: { + transportBills: { + $ref: '#/definitions/ArrayOfTransportBills', + }, + summaryDeclarationNo: { + type: 'string', + }, + summaryDeclarationJobScope: { + type: 'string', + }, + innerWhareHouse: { + type: 'string', + }, + otherRegime: { + type: 'string', + }, + explanation: { + type: 'string', + }, + }, + required: ['transportBills'], + }, + ArrayOfTransportBills: { + type: 'array', + items: { + $ref: '#/definitions/transportBills', + }, + }, + transportBills: { + type: 'object', + properties: { + transportIBillNo: { + type: 'string', + }, + transportItems: { + $ref: '#/definitions/ArrayOfTransportItems', + }, + }, + required: ['transportItems'], + }, + ArrayOfTransportItems: { + type: 'array', + items: { + $ref: '#/definitions/transportItems', + }, + }, + transportItems: { + type: 'object', + properties: { + transportItemNo: { + type: 'string', + }, + wharehouseKod: { + type: 'string', + }, + openAmount: { + type: 'number', + }, + }, + required: ['openAmount'], + }, + ArrayOfItem: { + type: 'array', + items: { + $ref: '#/definitions/item', + }, + }, + item: { + type: 'object', + properties: { + supplementaryInfo: { + $ref: '#/definitions/ArrayOfComlementary', + }, + tcgbOpenCloses: { + $ref: '#/definitions/ArrayOfTcgbOpenClose', + }, + tradeMarkInfo: { + $ref: '#/definitions/ArrayOfTradeMark', + }, + containers: { + $ref: '#/definitions/ArrayOfContainer', + }, + dutyExemptions: { + $ref: '#/definitions/ArrayOfDutyExemption', + }, + aviationFuelTypes: { + $ref: '#/definitions/ArrayOfAviationFuelType', + }, + paymentMeans: { + $ref: '#/definitions/ArrayOfPaymentMeans', + }, + HSCode: { + type: 'string', + }, + producer: { + type: 'string', + }, + itemLineNo: { + type: 'integer', + minimum: -2147483648, + maximum: 2147483647, + }, + originCountry: { + type: 'string', + }, + grossWeight: { + type: 'number', + }, + netWeight: { + type: 'number', + }, + statisticalQuantityUnit: { + type: 'string', + }, + statisticalQuantity: { + type: 'number', + }, + internationalTreaty: { + type: 'string', + }, + detectionUnit1: { + type: 'string', + }, + detectionAmount1: { + type: 'number', + }, + detectionUnit2: { + type: 'string', + }, + detectionAmount2: { + type: 'number', + }, + exemptions1: { + type: 'string', + }, + exemptions2: { + type: 'string', + }, + exemptions3: { + type: 'string', + }, + exemptions4: { + type: 'string', + }, + exemptions5: { + type: 'string', + }, + detectionUnit3: { + type: 'string', + }, + detectionAmount3: { + type: 'number', + }, + deliveryTerms: { + type: 'string', + }, + additionalCode: { + type: 'string', + }, + specification: { + type: 'string', + }, + invoiceAmount: { + type: 'number', + }, + invoiceAmountCurrency: { + type: 'string', + }, + borderPassFee: { + type: 'number', + }, + freightAmount: { + type: 'number', + }, + freightAmountCurrency: { + type: 'string', + }, + statisticalValue: { + type: 'number', + }, + insuranceAmount: { + type: 'number', + }, + insuranceAmountCurrency: { + type: 'string', + }, + tariffDefinition: { + type: 'string', + }, + itemDescription: { + type: 'string', + }, + brandName: { + type: 'string', + }, + itemNo: { + type: 'string', + }, + packagingType: { + type: 'string', + }, + packageQuantity: { + type: 'number', + }, + itemUnitOfMeasure: { + type: 'string', + }, + returnToOrigin: { + type: 'string', + }, + secondaryProcess: { + type: 'string', + }, + lineNumber: { + type: 'string', + }, + itemQuantity: { + type: 'number', + }, + vatRate: { + type: 'string', + }, + usedGoods: { + type: 'string', + }, + description44: { + type: 'string', + }, + producerTaxNo: { + type: 'string', + }, + domesticOther: { + type: 'number', + }, + domesticBank: { + type: 'number', + }, + domesticStorage: { + type: 'number', + }, + domesticDischarge: { + type: 'number', + }, + domesticPort: { + type: 'number', + }, + domesticCulture: { + type: 'number', + }, + domesticRUSF: { + type: 'number', + }, + domesticEnvironment: { + type: 'number', + }, + domesticOtherExplanation: { + type: 'string', + }, + exemptionExplanation: { + type: 'string', + }, + referenceDate: { + type: 'string', + }, + foreignCommission: { + type: 'number', + }, + foreignDemurrage: { + type: 'number', + }, + foreignRoyalty: { + type: 'number', + }, + foreignInterest: { + type: 'number', + }, + foreignOther: { + type: 'number', + }, + foreignComissionCurrency: { + type: 'string', + }, + foreignDemurrageCurrency: { + type: 'string', + }, + foreignRoyaltyCurrency: { + type: 'string', + }, + foreignInterestCurrency: { + type: 'string', + }, + foreignOtherCurrency: { + type: 'string', + }, + foreignOtherExplanation: { + type: 'string', + }, + itemProcessType: { + type: 'string', + }, + reasonForEntryOrExit: { + type: 'string', + }, + reasonForEntryOrExitExplanation: { + type: 'string', + }, + stmProvinceCode: { + type: 'string', + }, + itemReturnReason: { + type: 'string', + }, + itemReturnReasonExplanation: { + type: 'string', + }, + }, + required: [ + 'supplementaryInfo', + 'tcgbOpenCloses', + 'tradeMarkInfo', + 'containers', + 'dutyExemptions', + 'aviationFuelTypes', + 'paymentMeans', + 'itemLineNo', + 'grossWeight', + 'netWeight', + 'statisticalQuantity', + 'detectionUnit1', + 'detectionUnit2', + 'detectionUnit3', + 'invoiceAmount', + 'borderPassFee', + 'freightAmount', + 'statisticalValue', + 'insuranceAmount', + 'packageQuantity', + 'itemQuantity', + 'domesticOther', + 'domesticBank', + 'domesticStorage', + 'domesticDischarge', + 'domesticPort', + 'domesticCulture', + 'domesticRUSF', + 'domesticEnvironment', + 'domesticOtherExplanation', + 'exemptionExplanation', + 'referenceDate', + 'foreignCommission', + 'foreignDemurrage', + 'foreignRoyalty', + 'foreignInterest', + 'foreignOther', + 'foreignComissionCurrency', + 'foreignDemurrageCurrency', + 'foreignRoyaltyCurrency', + 'foreignInterestCurrency', + 'foreignOtherCurrency', + 'foreignOtherExplanation', + 'itemProcessType', + 'reasonForEntryOrExit', + 'reasonForEntryOrExitExplanation', + 'stmProvinceCode', + 'itemReturnReason', + 'itemReturnReasonExplanation', + ], + }, + ArrayOfComlementary: { + type: 'array', + items: { + $ref: '#/definitions/Comlementary', + }, + }, + Comlementary: { + type: 'object', + properties: { + supplementaryInfo: { + type: 'string', + }, + statisticalQuantityUnit: { + type: 'string', + }, + }, + }, + ArrayOfTcgbOpenClose: { + type: 'array', + items: { + $ref: '#/definitions/TcgbOpenClose', + }, + }, + TcgbOpenClose: { + type: 'object', + properties: { + closedDeclarationNo: { + type: 'string', + }, + closedItemNo: { + type: 'integer', + minimum: -2147483648, + maximum: 2147483647, + }, + closedAmount: { + type: 'number', + }, + description: { + type: 'string', + }, + }, + required: ['closedItemNo', 'closedAmount'], + }, + ArrayOfTradeMark: { + type: 'array', + items: { + $ref: '#/definitions/TradeMark', + }, + }, + TradeMark: { + type: 'object', + properties: { + tradeMarkType: { + type: 'string', + }, + tradeMarkRegistrationNo: { + type: 'string', + }, + tradeMarkName: { + type: 'string', + }, + tradeMarkValue: { + type: 'number', + }, + referanceNo: { + type: 'string', + }, + modelYear: { + type: 'string', + }, + model: { + type: 'string', + }, + engineVolume: { + type: 'string', + }, + engineCylinderQuantity: { + type: 'integer', + minimum: -2147483648, + maximum: 2147483647, + }, + color: { + type: 'string', + }, + engineType: { + type: 'string', + }, + engineNo: { + type: 'string', + }, + horsePower: { + type: 'integer', + }, + gear: { + type: 'string', + }, + IMEINo: { + type: 'string', + }, + }, + required: ['tradeMarkValue'], + }, + ArrayOfContainer: { + type: 'array', + items: { + $ref: '#/definitions/Container', + }, + }, + Container: { + type: 'object', + properties: { + containerNo: { + type: 'string', + }, + countryCode: { + type: 'string', + }, + }, + }, + ArrayOfDutyExemption: { + type: 'array', + items: { + $ref: '#/definitions/DutyExemption', + }, + }, + DutyExemption: { + type: 'object', + properties: { + dutyExemptionCode: { + type: 'string', + }, + }, + }, + ArrayOfAviationFuelType: { + type: 'array', + items: { + $ref: '#/definitions/AviationFuelType', + }, + }, + AviationFuelType: { + type: 'object', + properties: { + taxNo: { + type: 'string', + }, + invoiceDate: { + type: 'string', + }, + invoiceNumber: { + type: 'string', + }, + totalInvoiceAmount: { + type: 'string', + }, + fuelType: { + type: 'string', + }, + }, + required: [ + 'taxNo', + 'invoiceDate', + 'invoiceNumber', + 'totalInvoiceAmount', + 'fuelType', + ], + }, + ArrayOfPaymentMeans: { + type: 'array', + items: { + $ref: '#/definitions/PaymentMeans', + }, + }, + PaymentMeans: { + type: 'object', + properties: { + paymentMeansCode: { + type: 'string', + }, + paymentAmount: { + type: 'number', + }, + TBFID: { + type: 'string', + }, + }, + }, + ArrayOfQuestion: { + type: 'array', + items: { + $ref: '#/definitions/Question', + }, + }, + Question: { + type: 'object', + properties: { + itemNo: { + type: 'integer', + minimum: -2147483648, + maximum: 2147483647, + }, + questionNo: { + type: 'string', + }, + answer: { + type: 'string', + }, + }, + required: ['itemNo'], + }, + ArrayOfDocument: { + type: 'array', + items: { + $ref: '#/definitions/Document', + }, + }, + Document: { + type: 'object', + properties: { + itemNo: { + type: 'integer', + minimum: -2147483648, + maximum: 2147483647, + }, + code: { + type: 'string', + }, + verification: { + type: 'string', + }, + documentDate: { + type: 'string', + }, + reference: { + type: 'string', + }, + visaDate: { + type: 'string', + }, + }, + required: ['itemNo'], + }, + ArrayOfDuty: { + type: 'array', + items: { + $ref: '#/definitions/Duty', + }, + }, + Duty: { + type: 'object', + properties: { + itemNo: { + type: 'integer', + minimum: -2147483648, + maximum: 2147483647, + }, + code: { + type: 'string', + }, + explanation: { + type: 'string', + }, + dutyAmount: { + type: 'number', + }, + dutyRate: { + type: 'string', + }, + paymentMeans: { + type: 'string', + }, + dutyAssesment: { + type: 'number', + }, + }, + required: ['itemNo', 'dutyAmount', 'dutyAssesment'], + }, + ArrayOfValue: { + type: 'array', + items: { + $ref: '#/definitions/Value', + }, + }, + Value: { + type: 'object', + properties: { + deliveryTerms: { + type: 'string', + }, + invoiceDateNo: { + type: 'string', + }, + contractDateNo: { + type: 'string', + }, + customsOfficeNo: { + type: 'string', + }, + buyerSeller: { + type: 'string', + }, + relation: { + type: 'string', + }, + imputed: { + type: 'string', + }, + buyerSellerDetails: { + type: 'string', + }, + constraints: { + type: 'string', + }, + deed: { + type: 'string', + }, + constraintDetails: { + type: 'string', + }, + royalty: { + type: 'string', + }, + royaltyConditions: { + type: 'string', + }, + sellerPass: { + type: 'string', + }, + sellerPassConditions: { + type: 'string', + }, + cityLocation: { + type: 'string', + }, + recognisance: { + type: 'string', + }, + ValueItems: { + $ref: '#/definitions/ArrayOfValueItem', + }, + }, + }, + ArrayOfValueItem: { + type: 'array', + items: { + $ref: '#/definitions/ValueItem', + }, + }, + ValueItem: { + type: 'object', + properties: { + valueItemNumber: { + type: 'integer', + minimum: -2147483648, + maximum: 2147483647, + }, + declarationItemNumber: { + type: 'integer', + minimum: -2147483648, + maximum: 2147483647, + }, + indirectPayment: { + type: 'number', + }, + commission: { + type: 'number', + }, + brokerageCommission: { + type: 'number', + }, + containerPackagePrice: { + type: 'number', + }, + importAddedMaterail: { + type: 'number', + }, + importProductionTools: { + type: 'number', + }, + importProductionConsumptionMaterial: { + type: 'number', + }, + planningTemplate: { + type: 'number', + }, + royaltyLicense: { + type: 'number', + }, + indirectPassing: { + type: 'number', + }, + shipment: { + type: 'number', + }, + insurance: { + type: 'number', + }, + postEntryShipment: { + type: 'number', + }, + technicalAid: { + type: 'number', + }, + otherPayments: { + type: 'number', + }, + otherPaymentKind: { + type: 'string', + }, + taxPaymentFund: { + type: 'number', + }, + }, + required: [ + 'valueItemNumber', + 'declarationItemNumber', + 'indirectPayment', + 'commission', + 'brokerageCommission', + 'containerPackagePrice', + 'importAddedMaterail', + 'importProductionTools', + 'importProductionConsumptionMaterial', + 'planningTemplate', + 'royaltyLicense', + 'indirectPassing', + 'shipment', + 'insurance', + 'postEntryShipment', + 'technicalAid', + 'otherPayments', + 'taxPaymentFund', + ], + }, + }, +} \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/TR_EX/declarationJsonSchema.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/TR_EX/declarationJsonSchema.xsd new file mode 100644 index 0000000..577af57 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/TR_EX/declarationJsonSchema.xsd @@ -0,0 +1,321 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_AVISO/cVERAG_in_TRAviso.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_AVISO/cVERAG_in_TRAviso.vb new file mode 100644 index 0000000..9282844 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_AVISO/cVERAG_in_TRAviso.vb @@ -0,0 +1,387 @@ +Imports System.Data.SqlClient +Imports System.Reflection + + +Public Class cVERAG_in_TRAviso + + Public Property Company As String + Public Property Department As String + Public Property PartnerTID As String + Public Property Reference As String + + Public Property TotPackage As Integer = 0 + Public Property TotGrossWeight As Object = Nothing + Public Property TransportModeBorder As Object = Nothing + Public Property TransportLicensePlate As String = "" + Public Property TransportCountryCode As String = "" + Public Property TransportBorderType As Object = Nothing + Public Property FreightCompany As Object = Nothing + Public Property FreightCompanyID As Object = Nothing + Public Property Info As String = "" + + Public Property POSITIONS As New List(Of cVERAG_in_TRAviso_shipments) + Public Property DOCUMENTS As New List(Of cVERAG_in_TRAviso_document) + +End Class + + +Public Class cVERAG_in_TRAviso_Adressen + Public Property AddressCode As String = "" ' VARCHAR (10) NULL, + Public Property CustomerID As String = "" ' VARCHAR (10) NULL, + Public Property EORI As String = "" ' VARCHAR (17) NULL, + Public Property NLNR As String = "" ' DECIMAL (4) NULL, + Public Property Name1 As String = "" ' VARCHAR (120) NULL, + Public Property Name2 As String = "" ' VARCHAR (120) NULL, + Public Property Name3 As String = "" ' VARCHAR (120) NULL, + Public Property Street1 As String = "" ' VARCHAR (35) NULL, + Public Property Street2 As String = "" ' VARCHAR (35) NULL, + Public Property City As String = "" ' VARCHAR (35) NULL, + Public Property CountryCode As String = "" ' VARCHAR (3) NULL, + Public Property PostalCode As String = "" ' VARCHAR (9) NULL, + Public Property UStID As String = "" ' VARCHAR (14) NULL, + +End Class + +Public Class cVERAG_in_TRAviso_shipments + Public Property Nr As Integer = 1 + Public Property Reference As Object = Nothing + + Public Property DeclarationCountry As String = "" + Public Property DeclarationType As String = "" + Public Property CustomsCodeDeparture As String = "" + Public Property CustomsCodeDestination As String = "" + Public Property CountryCodeDeparture As String = "" + Public Property CountryCodeDestination As String = "" + Public Property DEStateCodeDestination As String = "" + Public Property OriginCountryCode As String = "" + Public Property GrossWeight As Object = Nothing + Public Property NetWeight As Object = Nothing + Public Property NumberOfPackages As Integer = 0 + Public Property KindOfPackages As String = "" + Public Property Incoterm As String = "" + Public Property PrePaperCode As String = "" + Public Property PrePaperNr As String = "" + Public Property InvoiceAmount As Object = Nothing + Public Property InvoiceCurrency As String = "" + Public Property ContainerNr1 As String = "" + Public Property ContainerNr2 As String = "" + Public Property ContainerNr3 As String = "" + Public Property ContainerNr4 As String = "" + Public Property GoodsDescription As String = "" + Public Property Info As String = "" + + Public Property DOCUMENTS As New List(Of cVERAG_in_TRAviso_document) + Public Property ADDRESS As New List(Of cVERAG_in_TRAviso_Adressen) + + Sub New() + End Sub +End Class + + +Public Class cVERAG_in_TRAviso_document + Public Property DocumentType As String = "" + Public Property DocumentNr As String = "" + Public Property DocumentDate As Date = CDate("01.01.1800") + Public Property base64BinaryStream As String = "" + Public Property FileName As String = "" + + 'Shared Function SAVE_toDS() As Integer + + ' Return -1 + 'End Function + + +End Class + + + + + +Public Class cVERAG_in_TRAvisoFULL + + Property trAv_Id As Integer + Property trAv_PartnerSystem As Object = Nothing ' VARCHAR(50) Not NULL, + Property trAv_datetime As Object = Nothing ' DATETIME Default (getdate()) Not NULL, + Property trAv_Firma As Object = Nothing ' VARCHAR(50) Not NULL, + Property trAv_Niederlassung As Object = Nothing ' VARCHAR(50) Not NULL, + Property trAv_Reference As Object = Nothing ' VARCHAR(500) Not NULL, + Property trAv_Kennzeichen As Object = Nothing ' VARCHAR(50) NULL, + Property trAv_Nationalitaet As Object = Nothing ' VARCHAR(50) NULL, + Property trAv_Avisierer As Object = Nothing ' VARCHAR(200) NULL, + Property trAv_AvisiererKdNr As Object = Nothing ' INT NULL, + Property trAv_Fraechter As Object = Nothing ' VARCHAR(200) NULL, + Property trAv_FraechterKdNr As Object = Nothing ' INT NULL, + Property trAv_Grenzueberschreitung As Object = Nothing ' INT NULL, + Property trAv_Transportmittel As Object = Nothing ' INT NULL, + Property trAv_colli As Object = Nothing ' FLOAT(53) NULL, + Property trAv_gewicht As Object = Nothing ' FLOAT(53) NULL, + Property trAv_VoraussichtlichesEintreffen As Object = Nothing ' Date NULL, + Property trAv_Info As Object = Nothing ' VARCHAR(max) NULL, + Property trAv_AVISO_einarbeitet As Boolean = False ' VARCHAR(max) NULL, + + + Property ANHAENGE As New List(Of cVERAG_in_TRAvisoAnhaenge) + 'Property SHIPMENTS As New List(Of cVERAG_in_shippment) + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + + Sub New() + End Sub + + + Sub New(trAv_Id) + Me.trAv_Id = trAv_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("trAv_Id", trAv_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_PartnerSystem", trAv_PartnerSystem)) ' VARCHAR(50) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_datetime", trAv_datetime)) ' DATETIME Default (getdate()) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Firma", trAv_Firma)) ' VARCHAR(50) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Niederlassung", trAv_Niederlassung)) ' VARCHAR(50) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Reference", trAv_Reference)) ' VARCHAR(500) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Kennzeichen", trAv_Kennzeichen)) ' VARCHAR(50) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Nationalitaet", trAv_Nationalitaet)) ' VARCHAR(50) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Avisierer", trAv_Avisierer)) ' VARCHAR(200) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_AvisiererKdNr", trAv_AvisiererKdNr)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Fraechter", trAv_Fraechter)) ' VARCHAR(200) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_FraechterKdNr", trAv_FraechterKdNr)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Grenzueberschreitung", trAv_Grenzueberschreitung)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Transportmittel", trAv_Transportmittel)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_colli", trAv_colli)) ' FLOAT(53) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_gewicht", trAv_gewicht)) ' FLOAT(53) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_VoraussichtlichesEintreffen", trAv_VoraussichtlichesEintreffen)) ' Date NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Info", trAv_Info)) ' VARCHAR(max) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_AVISO_einarbeitet", trAv_AVISO_einarbeitet)) ' VARCHAR(max) NULL, + + Return list + End Function + + + + Public Function SAVE(Optional saveAll = True) As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTR_Aviso WITH(updlock,serializable) WHERE trAv_Id=@trAv_Id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + trAv_Id = SQL.doSQLVarListID(trAv_Id, sqlstr, "FMZOLL", , list) + If trAv_Id > 0 And saveAll Then + SAVE_Anhaenge() + ' SAVE_Sicherheit() + End If + Return trAv_Id > 0 + End Function + + + + + + Public Sub LOAD(Optional loadALL = True) + Try + If loadALL Then + ANHAENGE.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTR_Aviso WHERE trAv_Id=@trAv_Id ", conn) + cmd.Parameters.AddWithValue("@trAv_Id", trAv_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Anhaenge() + End If + 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 + End Sub + + + 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 [tblTR_Aviso] SET " & str & " WHERE trAv_Id=@trAv_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 tblTR_Aviso (" & 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 + + + Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String + 'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL") + s = s.Replace("TRY", "TRL") ' Türkische Lira + Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL") + + End Function + + + + Public Sub LOAD_Anhaenge() + Try + ANHAENGE.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTR_AvisoAnheange WHERE trAvAh_trAvId=@trAv_Id ", conn) + cmd.Parameters.AddWithValue("@trAv_Id", Me.trAv_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cVERAG_in_TRAvisoAnhaenge + 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_Packstücke() + ANHAENGE.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + + Function DELETE_Anhaenge() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblTR_AvisoAnheange] WHERE trAvAh_trAvId =" & Me.trAv_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Public Function SAVE_Anhaenge() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Anhaenge() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then + 'jetzt die Standartofferten einfügen + For Each p In ANHAENGE + p.trAvAh_trAvId = trAv_Id + If p.INSERT() Then + + Else + Return False + End If + Next + Else + Return False + End If + + Return True + End Function + + +End Class + + +Public Class cVERAG_in_TRAvisoAnhaenge + + Property trAvAh_id As Integer + Property trAvAh_trAvId As Integer + Property DocumentType As String = "" + Property DocumentNr As String = "" + Property DocumentDate As Date = CDate("01.01.1800") + Property trAvAh_docID As Integer + + Sub New() + + End Sub + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + 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("trAvAh_id", trAvAh_id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_trAvId", trAvAh_trAvId)) ' VARCHAR(50) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DocumentType)) ' DATETIME Default (getdate()) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DocumentNr)) ' VARCHAR(50) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DocumentDate)) ' VARCHAR(50) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_docID", trAvAh_docID)) ' VARCHAR(500) Not NULL, + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + trAvAh_id = SQL.doSQLVarListID(trAvAh_id, getInsertCmd, "FMZOLL", , list) + Return trAvAh_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 tblTR_AvisoAnheange (" & 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/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb new file mode 100644 index 0000000..8b8bb7d --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb @@ -0,0 +1,864 @@ + +Imports System.Data.SqlClient + Imports System.Reflection + +'Public Class cVERAG_in_eza_position_FULL +' Inherits cVERAG_in_eza_position + +' Property shTrPos_id As Integer = "" +' Property shTrPos_ShTrId As String = "" + + +' Sub New() + +' End Sub + +' Dim SQL As New SQL +'End Class + +Public Class cVERAG_in_eza_FULL + ' Inherits cVERAG_in_eza + + Public EZA As cVERAG_in_eza = Nothing + + Property shTr_id As Integer + Property shTr_Partnersystem As String = "" + Property trAv_Info As String = "" + + + + Property shTr_Status As String = "" + Public Property shTr_TRAvisoId As Object = Nothing + + + Sub New(EZA As cVERAG_in_eza) + setEZA(EZA) + End Sub + + Public Sub setEZA(EZA As cVERAG_in_eza) + Me.EZA = EZA + End Sub + Sub New(shTr_id As Integer) + Me.shTr_id = shTr_id + Me.EZA = New cVERAG_in_eza + LOAD() + End Sub + + Dim SQL As New SQL + + + 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("shTr_id", shTr_id, , True, True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Partnersystem", shTr_Partnersystem,,,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", shTr_Status,,,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_TRAvisoId", shTr_TRAvisoId,,,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Info", trAv_Info,,,, True)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Company", EZA.Company)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Department", EZA.Department)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Reference", EZA.Reference)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DeclarationCountry", EZA.DeclarationCountry)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DeclarationType", EZA.DeclarationType)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TotPackage", EZA.TotPackage)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TotGrossWeight", EZA.TotGrossWeight)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CustomsCodeDeparture", EZA.CustomsCodeDeparture)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CustomsCodeDestination", EZA.CustomsCodeDestination)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CustomsCodeEntry", EZA.CustomsCodeEntry)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportModeBorder", EZA.TransportModeBorder)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CountryCodeDeparture", EZA.CountryCodeDeparture)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CountryCodeDestination", EZA.CountryCodeDestination)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DEStateCodeDestination", EZA.DEStateCodeDestination)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportArrivalLicensePlate", EZA.TransportArrivalLicensePlate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportArrivalCountryCode", EZA.TransportArrivalCountryCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportBorderType", EZA.TransportBorderType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportBorderLicensePlate", EZA.TransportBorderLicensePlate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Incoterm", EZA.Incoterm)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PrePaperCode", EZA.PrePaperCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PrePaperNr", EZA.PrePaperNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KindOfBusiness", EZA.KindOfBusiness)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("InvoiceAmount", EZA.InvoiceAmount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("InvoiceCurrency", EZA.InvoiceCurrency)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContainerNr1", EZA.ContainerNr1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContainerNr2", EZA.ContainerNr2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContainerNr3", EZA.ContainerNr3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContainerNr4", EZA.ContainerNr4)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FreightCostsEU", EZA.FreightCostsEU)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FreightCostsNonEU", EZA.FreightCostsNonEU)) + + Return list + End Function + + + Function getParameterList_POS(POS As cVERAG_in_eza_position) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPos_id", POS.GoodsTariff, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PosNr", POS.PosNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariff", POS.GoodsTariff)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt1", POS.GoodsTariffExt1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt2", POS.GoodsTariffExt2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt3", POS.GoodsTariffExt3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt4", POS.GoodsTariffExt4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt5", POS.GoodsTariffExt5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt6", POS.GoodsTariffExt6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt7", POS.GoodsTariffExt7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt8", POS.GoodsTariffExt8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt9", POS.GoodsTariffExt9)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode1", POS.GoodsTariffYCode1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode2", POS.GoodsTariffYCode2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode3", POS.GoodsTariffYCode3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode4", POS.GoodsTariffYCode4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode5", POS.GoodsTariffYCode5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode6", POS.GoodsTariffYCode6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode7", POS.GoodsTariffYCode7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode8", POS.GoodsTariffYCode8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode9", POS.GoodsTariffYCode9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode10", POS.GoodsTariffYCode10)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsDescription", POS.GoodsDescription)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OriginCountryCode", POS.OriginCountryCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GrossWeight", POS.GrossWeight)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NetWeight", POS.NetWeight)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NumberOfPackages", POS.NumberOfPackages)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KindOfPackages", POS.KindOfPackages)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemInvoiceAmount", POS.ItemInvoiceAmount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemInvoiceCurrency", POS.ItemInvoiceCurrency)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemAmount", POS.ItemAmount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemAmountUnitCode", POS.ItemAmountUnitCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Procedure", POS.Procedure)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPos_ShTrId", Me.shTr_id,,,, True)) + Return list + End Function + + + Function getParameterList_DOC(DOC As cVERAG_in_shipment_Document) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_id", POS.GoodsTariff, , True, True)) + + 'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrDoc_id", Me.shTr_id,,,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrDoc_ShTrId", Me.shTr_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DOC.DocumentType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DOC.DocumentNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DOC.DocumentDate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_docID", DOC.shTrPosDoc_docID)) + + Return list + + End Function + + + Function getParameterList_ADR(ADR As cVERAG_in_eza_Adressen) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPos_id", POS.GoodsTariff, , True, True)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AdressType", ADR.AdressType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AddressCode", ADR.AddressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CustomerID", ADR.CustomerID)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EORI", ADR.EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NLNR", ADR.NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name1", ADR.Name1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name2", ADR.Name2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name3", ADR.Name3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Street1", ADR.Street1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Street2", ADR.Street2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("City", ADR.City)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CountryCode", ADR.CountryCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PostalCode", ADR.PostalCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TaxNo", ADR.TaxNo)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContactPerson", ADR.ContactPerson)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telefon", ADR.Telefon)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Email", ADR.Email)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrAd_ShTrId", Me.shTr_id,,,, True)) + + + Return list + End Function + + + Function getParameterList_DOC(DOC As cVERAG_in_eza_position_document, ByRef shTrPosDoc_ShTrPosId As Integer) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_id", POS.GoodsTariff, , True, True)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DOC.DocumentType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DOC.DocumentNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DOC.DocumentDate)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_ShTrId", Me.shTr_id,,,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_ShTrPosId", shTrPosDoc_ShTrPosId,,,, True)) + Return list + + End Function + Public Function UPDATE_STATUS(status) As Boolean + Me.shTr_Status = status + Return Me.SAVE + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTR_Shipment WITH(updlock, serializable) WHERE shTr_id=@shTr_id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + shTr_id = SQL.doSQLVarListID(shTr_id, sqlstr, "FMZOLL", , list) + Return shTr_id > 0 + End Function + + Public Function SAVE_ALL() As Boolean + If EZA Is Nothing Then Return False + If Not SAVE() Then Return False + If Not SAVE_Warenposition() Then Return False + If Not SAVE_Documents() Then Return False + If Not SAVE_Adressen() Then Return False + Return True + End Function + + Public Function LOAD(Optional loadALL As Boolean = True) As Boolean + Try + LOAD = False + If loadALL Then + 'shTr_Unterlagen.Clear() + EZA.POSITIONS.Clear() + + EZA.ADDRESS.Clear() + + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("Select * FROM tblTR_Shipment WHERE shTr_id=@shTr_id ", conn) + cmd.Parameters.AddWithValue("@shTr_id", shTr_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + If Not l.isonlyForSave Then + + Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(EZA, Nothing) + Else + propInfo.SetValue(EZA, dr.Item(l.Text)) + End If + + 'List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True, True, True)) + 'List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Partnersystem", shTr_Partnersystem,,,, True)) + 'List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", shTr_Status,,,, True)) + End If + Next + If loadALL Then + LOAD_Warenposition() + LOAD_Adressen() + End If + LOAD = True + End If + dr.Close() + + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOAD + End Function + + + Shared Function LOADByReference(Reference As String, Partnersystem As String, loadALL As Boolean) As cVERAG_in_eza_FULL + Try + Dim EZA As New cVERAG_in_eza + + Dim EZA_FULL = New cVERAG_in_eza_FULL(EZA) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTR_Shipment WHERE shTr_Partnersystem=@Partnersystem and Reference=@Reference ", conn) + cmd.Parameters.AddWithValue("@Partnersystem", Partnersystem) + cmd.Parameters.AddWithValue("@Reference", Reference) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In EZA_FULL.getParameterList() + Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(EZA, Nothing) + Else + propInfo.SetValue(EZA, dr.Item(l.Text)) + End If + + Next + If loadALL Then + EZA_FULL.LOAD_Warenposition() + EZA_FULL.LOAD_Adressen() + End If + + dr.Close() + Return EZA_FULL + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + + Shared Function UPDATE_StatusById(shTr_id As Integer, status As Integer) As String + If shTr_id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", status, , True)) + 'dy_Status_KEWILL_Equivalent = status + 'dy_Status = status + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET shTr_Status=@shTr_Status WHERE shTr_id=@shTr_id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + + Public Function UPDATE_Status(status As Integer) As String + If shTr_id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", status, , True)) + shTr_Status = status + + Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET shTr_Status=@shTr_Status WHERE shTr_id=@shTr_id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 [tblTR_Shipment] SET " & str & " WHERE shTr_id=@shTr_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 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 tblTR_Shipment (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + + + Public Sub LOAD_Adressen() + Try + EZA.ADDRESS.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Adressen WHERE shTrAd_ShTrId=@shTrAd_ShTrId ", conn) + cmd.Parameters.AddWithValue("@shTrAd_ShTrId", Me.shTr_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cVERAG_in_eza_Adressen + For Each i In getParameterList_ADR(l) + If Not i.isonlyForSave Then + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + End If + Next + EZA.ADDRESS.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Sub LOAD_Warenposition() + Try + EZA.POSITIONS.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Position WHERE shTrPos_ShTrId=@shTrPos_ShTrId ", conn) + cmd.Parameters.AddWithValue("@shTrPos_ShTrId", Me.shTr_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cVERAG_in_eza_position() + For Each i In getParameterList_POS(l) + If Not i.isonlyForSave Then + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + End If + Next + + LOAD_WarenpositionUnterlagen(l, dr.Item("shTrPos_id")) + EZA.POSITIONS.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Sub LOAD_WarenpositionUnterlagen(ByRef POS As cVERAG_in_eza_position, shTrPos_id As Integer) + Try + POS.DOCUMENTS.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Position_Document WHERE shTrPosDoc_ShTrPosId=@shTrPosDoc_ShTrPosId ", conn) + cmd.Parameters.AddWithValue("@shTrPosDoc_ShTrPosId", shTrPos_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cVERAG_in_eza_position_document + For Each i In getParameterList_DOC(l, -1) + If Not i.isonlyForSave Then + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + End If + Next + POS.DOCUMENTS.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + + End Sub + Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblTR_Shipment_Position] WHERE shTrPos_ShTrId=" & Me.shTr_id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + Function DELETE_Documents() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblTR_Shipment_Document] WHERE [shTrDoc_ShTrId]=" & Me.shTr_id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblTR_Shipment_Position_Document] WHERE shTrPosDoc_ShTrId =" & Me.shTr_id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Function DELETE_Adressen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblTR_Shipment_Adressen] WHERE shTrAd_ShTrId =" & Me.shTr_id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function SAVE_Adressen() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Adressen() Then + 'jetzt die Standartofferten einfügen + If EZA.ADDRESS IsNot Nothing Then + For Each p In EZA.ADDRESS + Dim posId As Integer + If INSERT_Adressen(posId, p) Then + + Else + Return False + End If + Next + End If + 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_WarenpositionUnterlagen() Then + If EZA.POSITIONS IsNot Nothing Then + 'jetzt die Standartofferten einfügen + For Each p In EZA.POSITIONS + Dim posId As Integer + If INSERT_Position(posId, p) Then + SAVE_Warenposition_Documents(p, posId) + Else + Return False + End If + Next + End If + Else + Return False + End If + + Return True + End Function + + Public Function SAVE_Documents() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Documents() Then + If EZA.POSITIONS IsNot Nothing Then + 'jetzt die Standartofferten einfügen + For Each p In EZA.DOCUMENTS + Dim posId As Integer + If INSERT_Documents(posId, p) Then + + Else + Return False + End If + Next + End If + Else + Return False + End If + + Return True + End Function + + + Public Function SAVE_Warenposition_Documents(POS As cVERAG_in_eza_position, posId As Integer) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + 'jetzt die Standartofferten einfügen + If POS.DOCUMENTS IsNot Nothing Then + For Each p In POS.DOCUMENTS + Dim posdocId As Integer + + If INSERT_Position_Document(posdocId, p, posId) Then + Else + Return False + End If + Next + End If + Return True + End Function + + Public Function INSERT_Adressen(ByRef posId As Integer, ByRef ADR As cVERAG_in_eza_Adressen) As Boolean + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_ADR(ADR) + 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 SQL.doSQLVarListID(posId, (" INSERT INTO tblTR_Shipment_Adressen (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list) + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + End Function + + Public Function INSERT_Position(ByRef posId As Integer, ByRef POS As cVERAG_in_eza_position) As Boolean + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_POS(POS) + 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 SQL.doSQLVarListID(posId, (" INSERT INTO tblTR_Shipment_Position (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list) + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + End Function + + Public Function INSERT_Documents(ByRef docId As Integer, ByRef DOC As cVERAG_in_shipment_Document) As Boolean + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_DOC(DOC) + 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 SQL.doSQLVarListID(docId, (" INSERT INTO tblTR_Shipment_Document (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list) + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + End Function + + + + + Public Function INSERT_Position_Document(ByRef posdocId As Integer, ByRef DOC As cVERAG_in_eza_position_document, posId As Integer) As Boolean + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_DOC(DOC, posId) + 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. ',' + + + + SQL.doSQL("insert into tbltest (test) Values('TT:: " & (" INSERT INTO tblTR_Shipment_Position_Document (" & str & ") VALUES(" & values & ") ") & "')", "FMZOLL") + + Return SQL.doSQLVarListID(posdocId, (" INSERT INTO tblTR_Shipment_Position_Document (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list) + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + End Function + + + + + + + +End Class + +' +Public Class cVERAG_in_eza + + Public Property Company As String + Public Property Department As String + Public Property Reference As String + + Public Property DeclarationCountry As String = "" + Public Property DeclarationType As String = "" + + Public Property TotPackage As Integer = 0 + Public Property TotGrossWeight As Object = Nothing + + Public Property CustomsCodeDeparture As String = "" ' GesRohmasse + Public Property CustomsCodeDestination As String = "" ' GesRohmasse + Public Property CustomsCodeEntry As String = "" + Public Property TransportModeBorder As Object = Nothing + + Public Property CountryCodeDeparture As String = "" + Public Property CountryCodeDestination As String = "" + Public Property DEStateCodeDestination As String = "" + + Public Property TransportArrivalLicensePlate As String = "" + Public Property TransportArrivalCountryCode As String = "" + Public Property TransportBorderType As Object = Nothing + Public Property TransportBorderLicensePlate As String = "" + Public Property Incoterm As String = "" + + Public Property PrePaperCode As String = "" + Public Property PrePaperNr As String = "" + Public Property KindOfBusiness As Object = Nothing + Public Property InvoiceAmount As Object = Nothing + Public Property InvoiceCurrency As String = "" + + + Public Property ContainerNr1 As String = "" + Public Property ContainerNr2 As String = "" + Public Property ContainerNr3 As String = "" + Public Property ContainerNr4 As String = "" + + Public Property FreightCostsEU As Object = Nothing + Public Property FreightCostsNonEU As Object = Nothing + + + Public Property POSITIONS As New List(Of cVERAG_in_eza_position) + Public Property DOCUMENTS As New List(Of cVERAG_in_shipment_Document) + + Public Property ADDRESS As New List(Of cVERAG_in_eza_Adressen) + + + +End Class + + + + +Public Class cVERAG_in_eza_Adressen + Public Property AddressCode As String = "" ' VARCHAR (10) NULL, + Public Property CustomerID As String = "" ' VARCHAR (10) NULL, + Public Property EORI As String = "" ' VARCHAR (17) NULL, + Public Property NLNR As String = "" ' DECIMAL (4) NULL, + Public Property Name1 As String = "" ' VARCHAR (120) NULL, + Public Property Name2 As String = "" ' VARCHAR (120) NULL, + Public Property Name3 As String = "" ' VARCHAR (120) NULL, + Public Property Street1 As String = "" ' VARCHAR (35) NULL, + Public Property Street2 As String = "" ' VARCHAR (35) NULL, + Public Property City As String = "" ' VARCHAR (35) NULL, + Public Property CountryCode As String = "" ' VARCHAR (3) NULL, + Public Property PostalCode As String = "" ' VARCHAR (9) NULL, + Public Property UStID As String = "" 'NICHT MEHR --> TaxNo + Public Property TaxNo As String = "" ' VARCHAR (14) NULL, + Public Property ContactPerson As String = "" ' VARCHAR (14) NULL, + Public Property Telefon As String = "" ' VARCHAR (14) NULL, + Public Property Email As String = "" ' VARCHAR (14) NULL, + +End Class + + +Public Class cVERAG_in_eza_position + Public Property PosNr As Integer = 1 + Public Property GoodsTariff As Object = Nothing + Public Property GoodsTariffExt1 As Object = Nothing + Public Property GoodsTariffExt2 As Object = Nothing + Public Property GoodsTariffExt3 As Object = Nothing 'NICHT MEHR!!! + Public Property GoodsTariffExt4 As Object = Nothing 'NICHT MEHR!!! + Public Property GoodsTariffExt5 As Object = Nothing 'NICHT MEHR!!! + Public Property GoodsTariffExt6 As Object = Nothing 'NICHT MEHR!!! + Public Property GoodsTariffExt7 As Object = Nothing 'NICHT MEHR!!! + Public Property GoodsTariffExt8 As Object = Nothing 'NICHT MEHR!!! + Public Property GoodsTariffExt9 As Object = Nothing 'NICHT MEHR!!! + Public Property GoodsTariffExt10 As String = "" 'NICHT MEHR!!! + Public Property GoodsTariffYCode1 As String = "" + Public Property GoodsTariffYCode2 As String = "" + Public Property GoodsTariffYCode3 As String = "" + Public Property GoodsTariffYCode4 As String = "" + Public Property GoodsTariffYCode5 As String = "" + Public Property GoodsTariffYCode6 As String = "" + Public Property GoodsTariffYCode7 As String = "" + Public Property GoodsTariffYCode8 As String = "" + Public Property GoodsTariffYCode9 As String = "" + Public Property GoodsTariffYCode10 As String = "" + + + Public Property GoodsDescription As String = "" + Public Property OriginCountryCode As String = "" + Public Property GrossWeight As Object = Nothing + Public Property NetWeight As Object = Nothing + Public Property NumberOfPackages As Integer = 0 + Public Property KindOfPackages As String = "" + Public Property ItemInvoiceAmount As Object = Nothing + Public Property ItemInvoiceCurrency As String = "" + Public Property ItemAmount As Object = Nothing + Public Property ItemAmountUnitCode As String = "" + Public Property Procedure As String = "" + + Public Property DOCUMENTS As New List(Of cVERAG_in_eza_position_document) + + Sub New() + + End Sub +End Class + + +Public Class cVERAG_in_eza_position_document + Public Property DocumentType As String = "" + Public Property DocumentNr As String = "" + Public Property DocumentDate As Date = CDate("01.01.1800") +End Class + + +Public Class cVERAG_in_shipment_Document + Property shTrDoc_id As Integer + Property shTrDoc_ShTrId As Integer + Property DocumentType As String = "" + Property DocumentNr As String = "" + Property DocumentDate As Date = CDate("01.01.1800") + + Property shTrPosDoc_docID As Object = Nothing + + + 'Public Function INSERT() As Boolean + ' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + ' 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + ' shTrDoc_id = SQL.doSQLVarListID(shTrDoc_id, getInsertCmd, "FMZOLL", , list) + ' Return shTrDoc_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 tblVERAG_in_shippment_Positionsdaten (" & str & ") VALUES(" & values & ") ") + ' Catch ex As Exception + ' MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + ' End Try + ' Return "" + 'End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_SHIPPMENT/cVERAG_in_shippmentWHAT.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_SHIPPMENT/cVERAG_in_shippmentWHAT.vb new file mode 100644 index 0000000..b4e6419 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_SHIPPMENT/cVERAG_in_shippmentWHAT.vb @@ -0,0 +1,638 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cVERAG_in_shippmentWHST '???????? + + Property in_sh_id As Object = Nothing ' INT Not NULL, + Property in_sh_AvisoId As Object = Nothing ' INT NULL, + Property in_sh_SendungsId As Object = Nothing ' INT NULL, + Property in_sh_Erstellung As Object = Nothing ' DATETIME Default (getdate()) Not NULL, + Property in_sh_firma As Object = Nothing ' VARCHAR(10) NULL, + Property in_sh_niederlassung As Object = Nothing ' VARCHAR(10) NULL, + + 'Property MsgType As Object = Nothing ' VARCHAR(10) NULL, + 'Property dec_ProzessArt As Object = Nothing ' VARCHAR(4) Not NULL, + 'Property dec_Anmelde_ID As Object = Nothing ' INT NULL, + 'Property dec_Template_ID As Object = Nothing ' INT NULL, + 'Property dec_Lager_ID As Object = Nothing ' VARCHAR(6) NULL, + 'Property dec_Lag_IND As Object = Nothing ' BIT NULL, + 'Property dec_CreateDate As Object = Nothing ' DATETIME Not NULL, + 'Property dec_CreatePersonalID As Object = Nothing ' VARCHAR(12) NULL, + 'Property dec_PreDec_IND As Object = Nothing ' BIT NULL, + 'Property dec_TotNet As Object = Nothing ' Decimal (14, 3) NULL, + 'Property dec_TotNetSplit_IND As Object = Nothing ' BIT NULL, + 'Property dec_FillPackList_IND As Object = Nothing ' BIT NULL, + 'Property dec_Memo As Object = Nothing ' VARCHAR(1000) NULL, + 'Property Refs_LRN As Object = Nothing ' VARCHAR(22) Not NULL, + 'Property Refs_CRN As Object = Nothing ' VARCHAR(21) NULL, + 'Property Refs_CSRN As Object = Nothing ' VARCHAR(21) NULL, + 'Property Refs_ERN As Object = Nothing ' VARCHAR(21) NULL, + 'Property Refs_FRN As Object = Nothing ' VARCHAR(21) NULL, + 'Property Refs_Stat As Object = Nothing ' VARCHAR(2) NULL, + Property Hea_DecTy As Object = Nothing ' Type --> T1, T2, EZA + Property Hea_TotItem As Object = Nothing ' Pos gesamt + Property Hea_TotPack As Object = Nothing ' Packstücke gesamt + Property Hea_TotGross As Object = Nothing ' GesRohmasse + 'Property Hea_DepLNG As Object = Nothing ' VARCHAR(2) NULL, + 'Property Hea_DestLNG As Object = Nothing ' VARCHAR(2) NULL, + 'Property Hea_PayTy As Object = Nothing ' VARCHAR(1) NULL, + 'Property Hea_DefPayRef As Object = Nothing ' INT NULL, + 'Property Hea_PerPayRef As Object = Nothing ' INT NULL, + 'Property Hea_PayMet As Object = Nothing ' INT NULL, + 'Property Hea_AExpRef As Object = Nothing ' BIT NULL, + 'Property Hea_Fin As Object = Nothing ' VARCHAR(2) NULL, + 'Property Hea_Simp As Object = Nothing ' BIT Not NULL, + 'Property Hea_IssD As Object = Nothing ' Date NULL, + Property Hea_AuthID As Object = Nothing ' ? ATA + Property Hea_Incoterm As Object = Nothing ' ? Lieferkondition + 'Property Hea_TransDat As Object = Nothing ' BIT NULL, + 'Property Hea_WoffD As Object = Nothing ' Date NULL, + 'Property Hea_DecDT As Object = Nothing ' Date Not NULL, + 'Property Hea_DecPlc As Object = Nothing ' VARCHAR(35) Not NULL, + 'Property Hea_AccDT As Object = Nothing ' DATETIME NULL, + 'Property Hea_SecInd As Object = Nothing ' BIT NULL, + 'Property Hea_ComRef As Object = Nothing ' VARCHAR(70) NULL, + 'Property Hea_ProArrDT As Object = Nothing ' DATETIME NULL, + 'Property Hea_PlaDepDT As Object = Nothing ' DATETIME NULL, + 'Property Locs_TradCtry As Object = Nothing ' VARCHAR(2) NULL, + Property Locs_Disp As Object = Nothing ' VARCHAR(2) NULL, + Property Locs_Dest As Object = Nothing ' VARCHAR(2) NULL, + 'Property Locs_GdsLocCd As Object = Nothing ' VARCHAR(17) NULL, + 'Property Locs_GdsLoc As Object = Nothing ' VARCHAR(35) NULL, + 'Property Locs_GdsLocAuth As Object = Nothing ' VARCHAR(17) NULL, + 'Property Locs_LoadPlcCd As Object = Nothing ' VARCHAR(17) NULL, + 'Property Locs_LoadPlc As Object = Nothing ' VARCHAR(35) NULL, + 'Property Locs_CustPlc As Object = Nothing ' VARCHAR(17) NULL, + 'Property Locs_ArrLocCd As Object = Nothing ' VARCHAR(17) NULL, + 'Property Locs_ArrLoc As Object = Nothing ' VARCHAR(35) NULL, + 'Property Locs_ArrLocAuth As Object = Nothing ' VARCHAR(17) NULL, + 'Property Locs_WarTy As Object = Nothing ' VARCHAR(1) NULL, + 'Property Locs_WarCtry As Object = Nothing ' VARCHAR(2) NULL, + 'Property Locs_War As Object = Nothing ' VARCHAR(17) NULL, + Property Transp_InMo As Object = Nothing ' Transportmittel INland + Property Transp_BordMo As Object = Nothing ' Transportmittel Grenze + Property Transp_DepTy As Object = Nothing ' Transportmittel TypAbfahrt + Property Transp_DepIdnt As Object = Nothing ' Transportmittel Kennezeichen Abfahrt + Property Transp_DepNat As Object = Nothing ' Transportmittel Nationalität Abfahrt + Property Transp_CrossTy As Object = Nothing ' Transportmittel Typ Grenze + Property Transp_CrossIdnt As Object = Nothing ' Transportmittel Kennezeichen Grenze + Property Transp_CrossIdntNat As Object = Nothing ' Transportmittel Nationalität Grenze + Property Transp_ContInd As Object = Nothing ' BIT NULL, + 'Property ValData_TermDelCd As Object = Nothing ' VARCHAR(3) NULL, + 'Property ValData_TermDelPlc As Object = Nothing ' VARCHAR(35) NULL, + 'Property ValData_TermDelSit As Object = Nothing ' VARCHAR(1) NULL, + 'Property ValData_InvCurr As Object = Nothing ' VARCHAR(3) NULL, + 'Property ValData_ExRa As Object = Nothing ' Decimal (20, 7) NULL, + 'Property ValData_InvVal As Object = Nothing ' Decimal (18, 2) NULL, + 'Property ValData_TransacCd As Object = Nothing ' INT NULL, + Property ConorTra_Na As Object = Nothing ' ABSENDER + Property ConorTra_Strt As Object = Nothing ' + Property ConorTra_Pst As Object = Nothing ' + Property ConorTra_Cty As Object = Nothing ' + Property ConorTra_Ctry As Object = Nothing ' + Property ConorTra_EORI As Object = Nothing ' + Property ConorTra_UIDCtry As Object = Nothing ' + Property ConorTra_UID As Object = Nothing ' + Property ConeeTra_Na As Object = Nothing ' EMPFÄNGER + Property ConeeTra_Strt As Object = Nothing ' + Property ConeeTra_Pst As Object = Nothing ' + Property ConeeTra_Cty As Object = Nothing ' + Property ConeeTra_Ctry As Object = Nothing ' + Property ConeeTra_EORI As Object = Nothing ' + Property ConeeTra_UIDCtry As Object = Nothing ' + Property ConeeTra_UID As Object = Nothing ' + Property ExpTra_Na As Object = Nothing ' EXPORTEUR + Property ExpTra_Strt As Object = Nothing ' + Property ExpTra_Pst As Object = Nothing ' + Property ExpTra_Cty As Object = Nothing ' + Property ExpTra_Ctry As Object = Nothing ' + Property ExpTra_EORI As Object = Nothing ' + Property ExpTra_UIDCtry As Object = Nothing ' + Property ExpTra_UID As Object = Nothing ' + Property Declarant_Na As Object = Nothing ' ZOLLAGENT + Property Declarant_Strt As Object = Nothing ' + Property Declarant_Pst As Object = Nothing ' + Property Declarant_Cty As Object = Nothing ' + Property Declarant_Ctry As Object = Nothing ' + Property Declarant_EORI As Object = Nothing ' + Property Declarant_UIDCtry As Object = Nothing ' + Property Declarant_UID As Object = Nothing ' + Property Declarant_DecRep As Object = Nothing ' + Property DestCO_Ref As Object = Nothing ' Zielzollstelle + Property DepCO_Ref As Object = Nothing ' Abgangszollstelle + Property CtrlRslt_DLimit As Object = Nothing ' NCTS_GEstellung + + + Property DOCUMENTS As New List(Of cVERAG_in_shipment_Document) + Property POSITIONSDATEN As New List(Of cVERAG_in_shippment_Position) + 'Property SICHERHEIT As New List(Of cVERAG_in_shippment_Sicherheit) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + + Sub New() + End Sub + + + Sub New(in_sh_id) + Me.in_sh_id = in_sh_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("in_sh_id", in_sh_id, , True, True)) + + 'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_ART", telanm_ART)) ' VARCHAR(50) Not NULL, + + Return list + End Function + + + + Public Function SAVE(Optional saveAll = True) As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTR_Shipment WITH(updlock,serializable) WHERE in_sh_id=@in_sh_id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + in_sh_id = SQL.doSQLVarListID(in_sh_id, sqlstr, "FMZOLL", , list) + If in_sh_id > 0 And saveAll Then + SAVE_Positionsdaten() + SAVE_Documents() + ' SAVE_Sicherheit() + End If + Return in_sh_id > 0 + End Function + + + + + + Public Sub LOAD(Optional loadALL = True) + Try + If loadALL Then + POSITIONSDATEN.Clear() + DOCUMENTS.Clear() + ' SICHERHEIT.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment WHERE in_sh_id=@in_sh_id ", conn) + cmd.Parameters.AddWithValue("@in_sh_id", in_sh_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Positionsdaten() + LOAD_Documents() + ' LOAD_Sicherheit() + End If + 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 + End Sub + + 'Public Function UPDATE_Status(status As Integer) As String + ' If in_sh_id > 0 Then + ' Try + ' Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_sh_id", in_sh_id, , True)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status_KEWILL_Equivalent", status, , True)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status", status, , True)) + ' 'telanm_Status_KEWILL_Equivalent = status + ' 'telanm_Status = status + + ' Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_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 UPDATE_StatusById(in_sh_id As Integer, status As Integer) As String + ' If in_sh_id > 0 Then + ' Try + ' Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_sh_id", in_sh_id, , True)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status_KEWILL_Equivalent", status, , True)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status", status, , True)) + ' 'telanm_Status_KEWILL_Equivalent = status + ' 'telanm_Status = status + ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + ' Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_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 Sub UPDATE_DATA() + ' Try + ' Select Case telanm_ART + ' Case "T1", "T2" + ' 'SQL, die daten aus den jeweiligen tabellen ausliest und hier aktualisiert + ' Dim Dakosy_NCTSOut As New DAKOSY_Worker.cDakosyNCTSOut + ' Dakosy_NCTSOut.LOADByAnmID(in_sh_id, False) + ' If Dakosy_NCTSOut IsNot Nothing Then + ' Me.telanm_BezugsNr = Dakosy_NCTSOut.ncts_ObjectName + ' Me.telanm_Status = Dakosy_NCTSOut.ncts_Status + ' Me.telanm_Status_KEWILL_Equivalent = Dakosy_NCTSOut.ncts_Status_KEWILL_Equivalent + ' Me.telanm_Erstellung = Dakosy_NCTSOut.ncts_Erstellung + ' Me.telanm_Erstellung_SB = Dakosy_NCTSOut.ncts_Erstellung_SB + ' Me.telanm_LetzteBearbeitung = Dakosy_NCTSOut.ncts_LetzteBearbeitung + ' Me.telanm_LetzteBearbeitung_SB = Dakosy_NCTSOut.ncts_LetzteBearbeitung_SB + ' End If + + ' End Select + + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try + 'End Sub + + + + 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 [tblTR_Shipment] SET " & str & " WHERE in_sh_id=@in_sh_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 tblTR_Shipment (" & 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 + + + + + + + + + Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String + 'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL") + s = s.Replace("TRY", "TRL") ' Türkische Lira + Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL") + + End Function + + + + Public Sub LOAD_Positionsdaten() + Try + POSITIONSDATEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblVERAG_in_shippment_Positionsdaten WHERE in_pos_inShId=@in_sh_id ", conn) + cmd.Parameters.AddWithValue("@in_sh_id", Me.in_sh_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cVERAG_in_shippment_Position + 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_Packstücke() + POSITIONSDATEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Sub LOAD_Documents() + 'Try + ' DOCUMENTS.Clear() + ' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Document WHERE shTrDoc_ShTrId=@in_sh_id ", conn) + ' cmd.Parameters.AddWithValue("@in_sh_id", Me.in_sh_id) + ' Dim dr = cmd.ExecuteReader() + ' While dr.Read + ' Dim l As New cVERAG_in_shipment_Document + ' 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 + ' DOCUMENTS.Add(l) + ' End While + ' dr.Close() + ' End Using + ' End Using + 'Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + 'End Try + End Sub + + + + Function DELETE_Packstücke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblVERAG_in_shippment_Packstuecke] WHERE in_posPk_inShId =" & Me.in_sh_id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_Positionsdaten() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblVERAG_in_shippment_Positionsdaten] WHERE in_pos_inShId =" & Me.in_sh_id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_Documents() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblTR_Shipment_Document] WHERE shTrDoc_ShTrId =" & Me.in_sh_id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Public Function SAVE_Positionsdaten() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Positionsdaten() And DELETE_Packstücke() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then + 'jetzt die Standartofferten einfügen + For Each p In POSITIONSDATEN + p.in_pos_inShId = in_sh_id + If p.INSERT() Then + p.INSERT_Packstücke(p.in_pos_id, Me.in_sh_id) + 'p.INSERT_PositionsdatenUnterlagen(p.ezaWP_Id, Me.eza_Id) + 'p.INSERT_PositionsdatenVerbrauchssteuer(p.ezaWP_Id, Me.eza_Id) + Else + Return False + End If + Next + Else + Return False + End If + + Return True + End Function + + Public Function SAVE_Documents() As Boolean + ' 'Zuserst alle OffertenPos von dem Offert löschen + ' If DELETE_Documents() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then + ' 'jetzt die Standartofferten einfügen + ' For Each p In DOCUMENTS + ' p.shTrDoc_ShTrId = in_sh_id + ' If p.INSERT() Then + + ' Else + ' Return False + ' End If + ' Next + ' Else + ' Return False + ' End If + + ' Return True + End Function + +End Class + + +Public Class cVERAG_in_shippment_Position + + Property in_pos_id As Integer + Property in_pos_inShId As Integer + 'Property Mandant_ID As Object = Nothing + 'Property Bereich_ID As Object = Nothing + 'Property Referenz_ID As Object = Nothing + 'Property ComIndicator As Object = Nothing + Property Pos_Nr As Integer + Property Item_GdsDes As Object = Nothing + 'Property Item_Status As Object = Nothing + 'Property Item_ComCd As Object = Nothing + Property Item_TarNr As Object = Nothing + Property Item_Gross As Object = Nothing + Property Item_Net As Object = Nothing + Property Item_Orig As Object = Nothing + 'Property Item_ProcCd As Object = Nothing + 'Property Item_ProcAddCd As Object = Nothing + Property Item_ItVal As Object = Nothing + 'Property Item_Pref As Object = Nothing + 'Property Item_Quota As Object = Nothing + 'Property Item_ValMet As Object = Nothing + 'Property Item_VATInd As Object = Nothing + 'Property Item_StatVal As Object = Nothing + 'Property SurvCO_Ref As Object = Nothing + 'Property Telo_Artikel_ID As Object = Nothing + Property Telo_Artikelmenge As Object = Nothing + Property Telo_ArtikelMEH As Object = Nothing + + Property PACKSTUECKE As New List(Of cVERAG_in_shippment_Packing) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + 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("in_pos_id", in_pos_id, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_pos_inShId", in_pos_inShId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pos_Nr", Pos_Nr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_GdsDes", Item_GdsDes)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_TarNr", Item_TarNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Gross", Item_Gross)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Net", Item_Net)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Orig", Item_Orig)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_ItVal", Item_ItVal)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_Artikelmenge", Telo_Artikelmenge)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_ArtikelMEH", Telo_ArtikelMEH)) + + 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) + in_pos_id = SQL.doSQLVarListID(in_pos_id, getInsertCmd, "FMZOLL", , list) + Return in_pos_id > 0 + End Function + + Public Function INSERT_Packstücke(in_pos_id, in_sh_id) As Boolean + For Each p In PACKSTUECKE + p.in_posPk_inShId = in_sh_id + p.in_posPk_inPosId = in_pos_id + If Not p.INSERT() Then Return False + Next + Return True + End Function + + Public Sub LOAD_Packstücke() + Try + PACKSTUECKE.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblVERAG_in_shippment_Packstuecke WHERE in_posPk_inPosId=@in_pos_id ", conn) + cmd.Parameters.AddWithValue("@in_pos_id", Me.in_pos_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cVERAG_in_shippment_Packing + 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 + PACKSTUECKE.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + 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 tblVERAG_in_shippment_Positionsdaten (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + + + + +Public Class cVERAG_in_shippment_Packing + + Property in_posPk_id As Integer + Property in_posPk_inShId As Integer + Property in_posPk_inPosId As Integer + Property Pack_Mark As Object = Nothing + Property Pack_Kind As Object = Nothing + Property Pack_Nr As Object = Nothing + Property Pack_Piec As Object = Nothing + Property Telo_Gross As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + 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("in_posPk_id", in_posPk_id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_posPk_inShId", in_posPk_inShId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_posPk_inPosId", in_posPk_inPosId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Mark", Pack_Mark)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Kind", Pack_Kind)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Nr", Pack_Nr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Piec", Pack_Piec)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_Gross", Telo_Gross)) + + Return list + End Function + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + in_posPk_id = SQL.doSQLVarListID(in_posPk_id, getInsertCmd, "FMZOLL", , list) + Return in_posPk_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 tblVERAG_in_shippment_Packstuecke (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.Designer.vb new file mode 100644 index 0000000..3a120bd --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.Designer.vb @@ -0,0 +1,3210 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' VERAG_OUT_EZAListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace VERAG_OUT_EZA + + + Partial Public Class VERAG_out_eza + +#Region "Private fields" + Private _version As Object + + Private _vERAGCustomerCode As Object + + Private _company As Object + + Private _department As Object + + Private _clientReference As Object + + Private _internalReference As VERAG_out_ezaInternalReference + + Private _processData As VERAG_out_ezaProcessData + + Private _eZA_Data As VERAG_out_ezaEZA_Data + + Private _attachments As List(Of VERAG_out_ezaAttachment) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._attachments = New List(Of VERAG_out_ezaAttachment)() + Me._eZA_Data = New VERAG_out_ezaEZA_Data() + Me._processData = New VERAG_out_ezaProcessData() + Me._internalReference = New VERAG_out_ezaInternalReference() + End Sub + + Public Property Version() As Object + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Public Property VERAGCustomerCode() As Object + Get + Return Me._vERAGCustomerCode + End Get + Set + Me._vERAGCustomerCode = Value + End Set + End Property + + Public Property Company() As Object + Get + Return Me._company + End Get + Set + Me._company = Value + End Set + End Property + + Public Property Department() As Object + Get + Return Me._department + End Get + Set + Me._department = Value + End Set + End Property + + Public Property ClientReference() As Object + Get + Return Me._clientReference + End Get + Set + Me._clientReference = Value + End Set + End Property + + Public Property InternalReference() As VERAG_out_ezaInternalReference + Get + Return Me._internalReference + End Get + Set + Me._internalReference = Value + End Set + End Property + + Public Property ProcessData() As VERAG_out_ezaProcessData + Get + Return Me._processData + End Get + Set + Me._processData = Value + End Set + End Property + + Public Property EZA_Data() As VERAG_out_ezaEZA_Data + Get + Return Me._eZA_Data + End Get + Set + Me._eZA_Data = Value + End Set + End Property + + + Public Property Attachments() As List(Of VERAG_out_ezaAttachment) + Get + Return Me._attachments + End Get + Set + Me._attachments = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_eza)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_eza object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_eza object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_eza 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 VERAG_out_eza, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_eza) + 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 VERAG_out_eza) 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 VERAG_out_eza + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_eza) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_eza + Return CType(Serializer.Deserialize(s), VERAG_out_eza) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_eza 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_eza object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_eza 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 VERAG_out_eza, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_eza) + 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 VERAG_out_eza) 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 VERAG_out_eza + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaInternalReference + +#Region "Private fields" + Private _officeCode As String + + Private _positionNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property OfficeCode() As String + Get + Return Me._officeCode + End Get + Set + Me._officeCode = Value + End Set + End Property + + + Public Property PositionNumber() As String + Get + Return Me._positionNumber + End Get + Set + Me._positionNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaInternalReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaInternalReference object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaInternalReference object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaInternalReference 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 VERAG_out_ezaInternalReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaInternalReference) + 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 VERAG_out_ezaInternalReference) 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 VERAG_out_ezaInternalReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaInternalReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaInternalReference + Return CType(Serializer.Deserialize(s), VERAG_out_ezaInternalReference) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaInternalReference 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaInternalReference object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaInternalReference 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 VERAG_out_ezaInternalReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaInternalReference) + 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 VERAG_out_ezaInternalReference) 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 VERAG_out_ezaInternalReference + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaProcessData + +#Region "Private fields" + Private _status As Object + + Private _transactionDate As Object + + Private _referenzNumber As Object + + Private _customsReferenzNumber As Object + + Private _procedureCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Status() As Object + Get + Return Me._status + End Get + Set + Me._status = Value + End Set + End Property + + Public Property TransactionDate() As Object + Get + Return Me._transactionDate + End Get + Set + Me._transactionDate = Value + End Set + End Property + + Public Property ReferenzNumber() As Object + Get + Return Me._referenzNumber + End Get + Set + Me._referenzNumber = Value + End Set + End Property + + Public Property CustomsReferenzNumber() As Object + Get + Return Me._customsReferenzNumber + End Get + Set + Me._customsReferenzNumber = Value + End Set + End Property + + Public Property ProcedureCode() As Object + Get + Return Me._procedureCode + End Get + Set + Me._procedureCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaProcessData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaProcessData object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaProcessData object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaProcessData 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 VERAG_out_ezaProcessData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaProcessData) + 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 VERAG_out_ezaProcessData) 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 VERAG_out_ezaProcessData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaProcessData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaProcessData + Return CType(Serializer.Deserialize(s), VERAG_out_ezaProcessData) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaProcessData 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaProcessData object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaProcessData 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 VERAG_out_ezaProcessData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaProcessData) + 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 VERAG_out_ezaProcessData) 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 VERAG_out_ezaProcessData + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaEZA_Data + +#Region "Private fields" + Private _licensePlateContainerNo As Object + + Private _sumGrossWeight As Decimal + + Private _sender As VERAG_out_ezaEZA_DataSender + + Private _consignee As VERAG_out_ezaEZA_DataConsignee + + Private _destinationCountry As Object + + Private _departureCountry As Object + + Private _destinationCustomsOffice As Object + + Private _duty As List(Of VERAG_out_ezaEZA_DataDuty) + + Private _position As List(Of VERAG_out_ezaEZA_DataPosition) + + Private _note As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of VERAG_out_ezaEZA_DataPosition)() + Me._duty = New List(Of VERAG_out_ezaEZA_DataDuty)() + Me._consignee = New VERAG_out_ezaEZA_DataConsignee() + Me._sender = New VERAG_out_ezaEZA_DataSender() + End Sub + + Public Property LicensePlateContainerNo() As Object + Get + Return Me._licensePlateContainerNo + End Get + Set + Me._licensePlateContainerNo = Value + End Set + End Property + + Public Property SumGrossWeight() As Decimal + Get + Return Me._sumGrossWeight + End Get + Set + Me._sumGrossWeight = Value + End Set + End Property + + Public Property Sender() As VERAG_out_ezaEZA_DataSender + Get + Return Me._sender + End Get + Set + Me._sender = Value + End Set + End Property + + Public Property Consignee() As VERAG_out_ezaEZA_DataConsignee + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + Public Property DestinationCountry() As Object + Get + Return Me._destinationCountry + End Get + Set + Me._destinationCountry = Value + End Set + End Property + + Public Property DepartureCountry() As Object + Get + Return Me._departureCountry + End Get + Set + Me._departureCountry = Value + End Set + End Property + + Public Property DestinationCustomsOffice() As Object + Get + Return Me._destinationCustomsOffice + End Get + Set + Me._destinationCustomsOffice = Value + End Set + End Property + + + Public Property Duty() As List(Of VERAG_out_ezaEZA_DataDuty) + Get + Return Me._duty + End Get + Set + Me._duty = Value + End Set + End Property + + + Public Property Position() As List(Of VERAG_out_ezaEZA_DataPosition) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Public Property Note() As Object + Get + Return Me._note + End Get + Set + Me._note = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaEZA_Data)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaEZA_Data object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaEZA_Data object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaEZA_Data 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 VERAG_out_ezaEZA_Data, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_Data) + 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 VERAG_out_ezaEZA_Data) 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 VERAG_out_ezaEZA_Data + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaEZA_Data) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaEZA_Data + Return CType(Serializer.Deserialize(s), VERAG_out_ezaEZA_Data) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaEZA_Data 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaEZA_Data object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaEZA_Data 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 VERAG_out_ezaEZA_Data, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_Data) + 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 VERAG_out_ezaEZA_Data) 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 VERAG_out_ezaEZA_Data + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaEZA_DataSender + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_ezaEZA_DataSenderAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private _customerCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_ezaEZA_DataSenderAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_ezaEZA_DataSenderAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Public Property CustomerCode() As Object + Get + Return Me._customerCode + End Get + Set + Me._customerCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaEZA_DataSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaEZA_DataSender object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaEZA_DataSender object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaEZA_DataSender 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 VERAG_out_ezaEZA_DataSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataSender) + 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 VERAG_out_ezaEZA_DataSender) 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 VERAG_out_ezaEZA_DataSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaEZA_DataSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaEZA_DataSender + Return CType(Serializer.Deserialize(s), VERAG_out_ezaEZA_DataSender) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaEZA_DataSender 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaEZA_DataSender object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaEZA_DataSender 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 VERAG_out_ezaEZA_DataSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataSender) + 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 VERAG_out_ezaEZA_DataSender) 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 VERAG_out_ezaEZA_DataSender + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaEZA_DataSenderAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaEZA_DataSenderAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaEZA_DataSenderAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaEZA_DataSenderAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaEZA_DataSenderAdress 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 VERAG_out_ezaEZA_DataSenderAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataSenderAdress) + 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 VERAG_out_ezaEZA_DataSenderAdress) 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 VERAG_out_ezaEZA_DataSenderAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaEZA_DataSenderAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaEZA_DataSenderAdress + Return CType(Serializer.Deserialize(s), VERAG_out_ezaEZA_DataSenderAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaEZA_DataSenderAdress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaEZA_DataSenderAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaEZA_DataSenderAdress 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 VERAG_out_ezaEZA_DataSenderAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataSenderAdress) + 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 VERAG_out_ezaEZA_DataSenderAdress) 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 VERAG_out_ezaEZA_DataSenderAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaEZA_DataConsignee + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_ezaEZA_DataConsigneeAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private _customerCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_ezaEZA_DataConsigneeAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_ezaEZA_DataConsigneeAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Public Property CustomerCode() As Object + Get + Return Me._customerCode + End Get + Set + Me._customerCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaEZA_DataConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaEZA_DataConsignee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaEZA_DataConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaEZA_DataConsignee 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 VERAG_out_ezaEZA_DataConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataConsignee) + 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 VERAG_out_ezaEZA_DataConsignee) 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 VERAG_out_ezaEZA_DataConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaEZA_DataConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaEZA_DataConsignee + Return CType(Serializer.Deserialize(s), VERAG_out_ezaEZA_DataConsignee) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaEZA_DataConsignee 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaEZA_DataConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaEZA_DataConsignee 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 VERAG_out_ezaEZA_DataConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataConsignee) + 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 VERAG_out_ezaEZA_DataConsignee) 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 VERAG_out_ezaEZA_DataConsignee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaEZA_DataConsigneeAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaEZA_DataConsigneeAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaEZA_DataConsigneeAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaEZA_DataConsigneeAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaEZA_DataConsigneeAdress 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 VERAG_out_ezaEZA_DataConsigneeAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataConsigneeAdress) + 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 VERAG_out_ezaEZA_DataConsigneeAdress) 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 VERAG_out_ezaEZA_DataConsigneeAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaEZA_DataConsigneeAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaEZA_DataConsigneeAdress + Return CType(Serializer.Deserialize(s), VERAG_out_ezaEZA_DataConsigneeAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaEZA_DataConsigneeAdress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaEZA_DataConsigneeAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaEZA_DataConsigneeAdress 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 VERAG_out_ezaEZA_DataConsigneeAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataConsigneeAdress) + 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 VERAG_out_ezaEZA_DataConsigneeAdress) 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 VERAG_out_ezaEZA_DataConsigneeAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaEZA_DataDuty + +#Region "Private fields" + Private _kind As Object + + Private _eORI As Object + + Private _accountNumber As Object + + Private _value As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Kind() As Object + Get + Return Me._kind + End Get + Set + Me._kind = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property AccountNumber() As Object + Get + Return Me._accountNumber + End Get + Set + Me._accountNumber = Value + End Set + End Property + + Public Property Value() As Object + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaEZA_DataDuty)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaEZA_DataDuty object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaEZA_DataDuty object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaEZA_DataDuty 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 VERAG_out_ezaEZA_DataDuty, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataDuty) + 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 VERAG_out_ezaEZA_DataDuty) 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 VERAG_out_ezaEZA_DataDuty + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaEZA_DataDuty) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaEZA_DataDuty + Return CType(Serializer.Deserialize(s), VERAG_out_ezaEZA_DataDuty) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaEZA_DataDuty 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaEZA_DataDuty object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaEZA_DataDuty 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 VERAG_out_ezaEZA_DataDuty, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataDuty) + 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 VERAG_out_ezaEZA_DataDuty) 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 VERAG_out_ezaEZA_DataDuty + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaEZA_DataPosition + +#Region "Private fields" + Private _posNr As Integer + + Private _quantity As Object + + Private _packaging As Object + + Private _goodsDescription As Object + + Private _grossWeight As Object + + Private _tariffNumber As Object + + Private _goodsValue As VERAG_out_ezaEZA_DataPositionGoodsValue + + Private _documents As VERAG_out_ezaEZA_DataPositionDocuments + + Private _note As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._documents = New VERAG_out_ezaEZA_DataPositionDocuments() + Me._goodsValue = New VERAG_out_ezaEZA_DataPositionGoodsValue() + End Sub + + Public Property PosNr() As Integer + Get + Return Me._posNr + End Get + Set + Me._posNr = Value + End Set + End Property + + Public Property Quantity() As Object + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property Packaging() As Object + Get + Return Me._packaging + End Get + Set + Me._packaging = Value + End Set + End Property + + Public Property GoodsDescription() As Object + Get + Return Me._goodsDescription + End Get + Set + Me._goodsDescription = Value + End Set + End Property + + Public Property GrossWeight() As Object + Get + Return Me._grossWeight + End Get + Set + Me._grossWeight = Value + End Set + End Property + + Public Property TariffNumber() As Object + Get + Return Me._tariffNumber + End Get + Set + Me._tariffNumber = Value + End Set + End Property + + Public Property GoodsValue() As VERAG_out_ezaEZA_DataPositionGoodsValue + Get + Return Me._goodsValue + End Get + Set + Me._goodsValue = Value + End Set + End Property + + Public Property Documents() As VERAG_out_ezaEZA_DataPositionDocuments + Get + Return Me._documents + End Get + Set + Me._documents = Value + End Set + End Property + + Public Property Note() As Object + Get + Return Me._note + End Get + Set + Me._note = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaEZA_DataPosition)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaEZA_DataPosition object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaEZA_DataPosition object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaEZA_DataPosition 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 VERAG_out_ezaEZA_DataPosition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataPosition) + 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 VERAG_out_ezaEZA_DataPosition) 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 VERAG_out_ezaEZA_DataPosition + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaEZA_DataPosition) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaEZA_DataPosition + Return CType(Serializer.Deserialize(s), VERAG_out_ezaEZA_DataPosition) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaEZA_DataPosition 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaEZA_DataPosition object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaEZA_DataPosition 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 VERAG_out_ezaEZA_DataPosition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataPosition) + 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 VERAG_out_ezaEZA_DataPosition) 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 VERAG_out_ezaEZA_DataPosition + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaEZA_DataPositionGoodsValue + +#Region "Private fields" + Private _value As Object + + Private _currency As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Value() As Object + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Public Property Currency() As Object + Get + Return Me._currency + End Get + Set + Me._currency = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaEZA_DataPositionGoodsValue)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaEZA_DataPositionGoodsValue object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaEZA_DataPositionGoodsValue object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaEZA_DataPositionGoodsValue 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 VERAG_out_ezaEZA_DataPositionGoodsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataPositionGoodsValue) + 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 VERAG_out_ezaEZA_DataPositionGoodsValue) 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 VERAG_out_ezaEZA_DataPositionGoodsValue + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaEZA_DataPositionGoodsValue) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaEZA_DataPositionGoodsValue + Return CType(Serializer.Deserialize(s), VERAG_out_ezaEZA_DataPositionGoodsValue) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaEZA_DataPositionGoodsValue 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaEZA_DataPositionGoodsValue object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaEZA_DataPositionGoodsValue 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 VERAG_out_ezaEZA_DataPositionGoodsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataPositionGoodsValue) + 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 VERAG_out_ezaEZA_DataPositionGoodsValue) 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 VERAG_out_ezaEZA_DataPositionGoodsValue + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaEZA_DataPositionDocuments + +#Region "Private fields" + Private _invoice As VERAG_out_ezaEZA_DataPositionDocumentsInvoice + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._invoice = New VERAG_out_ezaEZA_DataPositionDocumentsInvoice() + End Sub + + Public Property Invoice() As VERAG_out_ezaEZA_DataPositionDocumentsInvoice + Get + Return Me._invoice + End Get + Set + Me._invoice = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaEZA_DataPositionDocuments)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaEZA_DataPositionDocuments object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaEZA_DataPositionDocuments object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaEZA_DataPositionDocuments 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 VERAG_out_ezaEZA_DataPositionDocuments, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataPositionDocuments) + 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 VERAG_out_ezaEZA_DataPositionDocuments) 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 VERAG_out_ezaEZA_DataPositionDocuments + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaEZA_DataPositionDocuments) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaEZA_DataPositionDocuments + Return CType(Serializer.Deserialize(s), VERAG_out_ezaEZA_DataPositionDocuments) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaEZA_DataPositionDocuments 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaEZA_DataPositionDocuments object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaEZA_DataPositionDocuments 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 VERAG_out_ezaEZA_DataPositionDocuments, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataPositionDocuments) + 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 VERAG_out_ezaEZA_DataPositionDocuments) 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 VERAG_out_ezaEZA_DataPositionDocuments + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaEZA_DataPositionDocumentsInvoice + +#Region "Private fields" + Private _invoiceNumber As Object + + Private _invoiceDate As Date + + Private _addition1 As Object + + Private _addition2 As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property InvoiceNumber() As Object + Get + Return Me._invoiceNumber + End Get + Set + Me._invoiceNumber = Value + End Set + End Property + + + Public Property InvoiceDate() As Date + Get + Return Me._invoiceDate + End Get + Set + Me._invoiceDate = Value + End Set + End Property + + Public Property Addition1() As Object + Get + Return Me._addition1 + End Get + Set + Me._addition1 = Value + End Set + End Property + + Public Property Addition2() As Object + Get + Return Me._addition2 + End Get + Set + Me._addition2 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaEZA_DataPositionDocumentsInvoice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaEZA_DataPositionDocumentsInvoice object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaEZA_DataPositionDocumentsInvoice object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaEZA_DataPositionDocumentsInvoice 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 VERAG_out_ezaEZA_DataPositionDocumentsInvoice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataPositionDocumentsInvoice) + 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 VERAG_out_ezaEZA_DataPositionDocumentsInvoice) 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 VERAG_out_ezaEZA_DataPositionDocumentsInvoice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaEZA_DataPositionDocumentsInvoice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaEZA_DataPositionDocumentsInvoice + Return CType(Serializer.Deserialize(s), VERAG_out_ezaEZA_DataPositionDocumentsInvoice) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaEZA_DataPositionDocumentsInvoice 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaEZA_DataPositionDocumentsInvoice object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaEZA_DataPositionDocumentsInvoice 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 VERAG_out_ezaEZA_DataPositionDocumentsInvoice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaEZA_DataPositionDocumentsInvoice) + 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 VERAG_out_ezaEZA_DataPositionDocumentsInvoice) 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 VERAG_out_ezaEZA_DataPositionDocumentsInvoice + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaAttachment + +#Region "Private fields" + Private _referencePosNr As Object + + Private _name As Object + + Private _fileType As Object + + Private _description As Object + + Private _documentType As VERAG_out_ezaAttachmentDocumentType + + Private _base64BinaryStream() As Byte + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property ReferencePosNr() As Object + Get + Return Me._referencePosNr + End Get + Set + Me._referencePosNr = Value + End Set + End Property + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property FileType() As Object + Get + Return Me._fileType + End Get + Set + Me._fileType = Value + End Set + End Property + + Public Property Description() As Object + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Public Property DocumentType() As VERAG_out_ezaAttachmentDocumentType + Get + Return Me._documentType + End Get + Set + Me._documentType = Value + End Set + End Property + + + Public Property base64BinaryStream() As Byte() + Get + Return Me._base64BinaryStream + End Get + Set + Me._base64BinaryStream = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ezaAttachment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ezaAttachment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ezaAttachment object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ezaAttachment 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 VERAG_out_ezaAttachment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaAttachment) + 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 VERAG_out_ezaAttachment) 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 VERAG_out_ezaAttachment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ezaAttachment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ezaAttachment + Return CType(Serializer.Deserialize(s), VERAG_out_ezaAttachment) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ezaAttachment 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ezaAttachment object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ezaAttachment 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 VERAG_out_ezaAttachment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ezaAttachment) + 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 VERAG_out_ezaAttachment) 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 VERAG_out_ezaAttachment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_ezaAttachmentDocumentType + + ''' + ATR + + ''' + EUR1 + + ''' + T1 + + ''' + CarnetATA + + ''' + PACK + + ''' + INVOICE + + ''' + CMR + + ''' + OTHER + End Enum +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.json b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.json new file mode 100644 index 0000000..056feaf --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.json @@ -0,0 +1,370 @@ +{ + "$schema": "http://json-schema.org/draft-04/schema#", + "description": "Generated by xsd2code++. www.xsd2code.com", + "definitions": {}, + "type": "object", + "additionalProperties": false, + "properties": { + "VERAG_out_eza": { + "type": "object", + "additionalProperties": false, + "properties": { + "Version": { + "type": "object", + "additionalProperties": false + }, + "VERAGCustomerCode": { + "type": "object", + "additionalProperties": false + }, + "Company": { + "type": "object", + "additionalProperties": false + }, + "Department": { + "type": "object", + "additionalProperties": false + }, + "ClientReference": { + "type": "object", + "additionalProperties": false + }, + "InternalReference": { + "type": "object", + "additionalProperties": false, + "properties": { + "OfficeCode": { + "type": "integer" + }, + "PositionNumber": { + "type": "integer" + } + }, + "required": [ + "OfficeCode", + "PositionNumber" + ] + }, + "ProcessData": { + "type": "object", + "additionalProperties": false, + "properties": { + "Status": { + "type": "object", + "additionalProperties": false + }, + "TransactionDate": { + "type": "object", + "additionalProperties": false + }, + "ReferenzNumber": { + "type": "object", + "additionalProperties": false + }, + "CustomsReferenzNumber": { + "type": "object", + "additionalProperties": false + }, + "ProcedureCode": { + "type": "object", + "additionalProperties": false + } + }, + "required": [ + "Status", + "TransactionDate", + "ReferenzNumber", + "CustomsReferenzNumber", + "ProcedureCode" + ] + }, + "EZA_Data": { + "type": "object", + "additionalProperties": false, + "properties": { + "LicensePlateContainerNo": { + "type": "object", + "additionalProperties": false + }, + "SumGrossWeight": { + "type": "integer" + }, + "Sender": { + "type": "object", + "additionalProperties": false, + "properties": { + "Name": { + "type": "object", + "additionalProperties": false + }, + "Adress": { + "type": "object", + "additionalProperties": false, + "properties": { + "Country": { + "type": "object", + "additionalProperties": false + }, + "Postcode": { + "type": "object", + "additionalProperties": false + }, + "City": { + "type": "object", + "additionalProperties": false + }, + "Street": { + "type": "object", + "additionalProperties": false + } + } + }, + "EORI": { + "type": "object", + "additionalProperties": false + }, + "EORI_NL": { + "type": "object", + "additionalProperties": false + }, + "UID_Nr": { + "type": "object", + "additionalProperties": false + }, + "CustomerCode": { + "type": "object", + "additionalProperties": false + } + }, + "required": [ + "Name" + ] + }, + "Consignee": { + "type": "object", + "additionalProperties": false, + "properties": { + "Name": { + "type": "object" + }, + "Adress": { + "type": "object" + }, + "EORI": { + "type": "object" + }, + "EORI_NL": { + "type": "object" + }, + "UID_Nr": { + "type": "object" + }, + "CustomerCode": { + "type": "object" + } + }, + "required": [ + "Name" + ] + }, + "DestinationCountry": { + "type": "object", + "additionalProperties": false + }, + "DepartureCountry": { + "type": "object", + "additionalProperties": false + }, + "DestinationCustomsOffice": { + "type": "object", + "additionalProperties": false + }, + "Duty": { + "type": "array", + "items": { + "type": "object", + "additionalProperties": false, + "properties": { + "Kind": { + "type": "object", + "additionalProperties": false + }, + "EORI": { + "type": "object" + }, + "AccountNumber": { + "type": "object", + "additionalProperties": false + }, + "Value": { + "type": "object", + "additionalProperties": false + } + }, + "required": [ + "Kind", + "EORI", + "AccountNumber" + ] + }, + "maxItems": 2 + }, + "Position": { + "type": "array", + "items": { + "type": "object", + "additionalProperties": false, + "properties": { + "PosNr": { + "type": "integer" + }, + "Quantity": { + "type": "object", + "additionalProperties": false + }, + "Packaging": { + "type": "object", + "additionalProperties": false + }, + "GoodsDescription": { + "type": "object", + "additionalProperties": false + }, + "GrossWeight": { + "type": "object", + "additionalProperties": false + }, + "TariffNumber": { + "type": "object", + "additionalProperties": false + }, + "GoodsValue": { + "type": "object", + "additionalProperties": false, + "properties": { + "Value": { + "type": "object" + }, + "Currency": { + "type": "object", + "additionalProperties": false + } + } + }, + "Documents": { + "type": "object", + "additionalProperties": false, + "properties": { + "Invoice": { + "type": "object", + "additionalProperties": false, + "properties": { + "InvoiceNumber": { + "type": "object", + "additionalProperties": false + }, + "InvoiceDate": { + "type": "string" + }, + "Addition1": { + "type": "object", + "additionalProperties": false + }, + "Addition2": { + "type": "object", + "additionalProperties": false + } + }, + "required": [ + "InvoiceNumber", + "InvoiceDate" + ] + } + } + }, + "Note": { + "type": "object", + "additionalProperties": false + } + }, + "required": [ + "PosNr" + ] + }, + "minItems": 1, + "maxItems": 999 + }, + "Note": { + "type": "object" + } + }, + "required": [ + "LicensePlateContainerNo" + ] + }, + "Attachments": { + "type": "object", + "additionalProperties": false, + "properties": { + "Attachment": { + "type": "array", + "items": { + "type": "object", + "additionalProperties": false, + "properties": { + "ReferencePosNr": { + "type": "object", + "additionalProperties": false + }, + "Name": { + "type": "object" + }, + "FileType": { + "type": "object", + "additionalProperties": false + }, + "Description": { + "type": "object", + "additionalProperties": false + }, + "DocumentType": { + "type": "string", + "enum": [ + "ATR", + "EUR1", + "T1", + "CarnetATA", + "PACK", + "INVOICE", + "CMR", + "OTHER" + ] + }, + "base64BinaryStream": { + "type": "string" + } + }, + "required": [ + "ReferencePosNr", + "Name", + "FileType", + "Description", + "DocumentType", + "base64BinaryStream" + ] + }, + "minItems": 1, + "maxItems": 999 + } + } + } + }, + "required": [ + "Version", + "Company", + "ProcessData", + "EZA_Data" + ] + } + } +} \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.xsd new file mode 100644 index 0000000..84fdac7 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.xsd @@ -0,0 +1,170 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.Designer.vb new file mode 100644 index 0000000..670c1d0 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.Designer.vb @@ -0,0 +1,2943 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' VERAG_OUT_NCTSListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace VERAG_OUT_NCTS + + + Partial Public Class VERAG_out_ncts + +#Region "Private fields" + Private _version As Object + + Private _company As Object + + Private _department As Object + + Private _internalReference As VERAG_out_nctsInternalReference + + Private _processData As VERAG_out_nctsProcessData + + Private _nCTS_Data As VERAG_out_nctsNCTS_Data + + Private _attachments As List(Of VERAG_out_nctsAttachment) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._attachments = New List(Of VERAG_out_nctsAttachment)() + Me._nCTS_Data = New VERAG_out_nctsNCTS_Data() + Me._processData = New VERAG_out_nctsProcessData() + Me._internalReference = New VERAG_out_nctsInternalReference() + End Sub + + Public Property Version() As Object + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Public Property Company() As Object + Get + Return Me._company + End Get + Set + Me._company = Value + End Set + End Property + + Public Property Department() As Object + Get + Return Me._department + End Get + Set + Me._department = Value + End Set + End Property + + Public Property InternalReference() As VERAG_out_nctsInternalReference + Get + Return Me._internalReference + End Get + Set + Me._internalReference = Value + End Set + End Property + + Public Property ProcessData() As VERAG_out_nctsProcessData + Get + Return Me._processData + End Get + Set + Me._processData = Value + End Set + End Property + + Public Property NCTS_Data() As VERAG_out_nctsNCTS_Data + Get + Return Me._nCTS_Data + End Get + Set + Me._nCTS_Data = Value + End Set + End Property + + + Public Property Attachments() As List(Of VERAG_out_nctsAttachment) + Get + Return Me._attachments + End Get + Set + Me._attachments = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ncts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ncts object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ncts object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ncts 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 VERAG_out_ncts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ncts) + 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 VERAG_out_ncts) 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 VERAG_out_ncts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ncts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ncts + Return CType(Serializer.Deserialize(s), VERAG_out_ncts) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ncts 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ncts object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ncts 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 VERAG_out_ncts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ncts) + 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 VERAG_out_ncts) 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 VERAG_out_ncts + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsInternalReference + +#Region "Private fields" + Private _officeCode As String + + Private _positionNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property OfficeCode() As String + Get + Return Me._officeCode + End Get + Set + Me._officeCode = Value + End Set + End Property + + + Public Property PositionNumber() As String + Get + Return Me._positionNumber + End Get + Set + Me._positionNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsInternalReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsInternalReference object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsInternalReference object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsInternalReference 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 VERAG_out_nctsInternalReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsInternalReference) + 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 VERAG_out_nctsInternalReference) 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 VERAG_out_nctsInternalReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsInternalReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsInternalReference + Return CType(Serializer.Deserialize(s), VERAG_out_nctsInternalReference) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsInternalReference 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsInternalReference object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsInternalReference 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 VERAG_out_nctsInternalReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsInternalReference) + 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 VERAG_out_nctsInternalReference) 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 VERAG_out_nctsInternalReference + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsProcessData + +#Region "Private fields" + Private _status As Object + + Private _transactionDate As Object + + Private _mRN As Object + + Private _referenzNumber As Object + + Private _procedureCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Status() As Object + Get + Return Me._status + End Get + Set + Me._status = Value + End Set + End Property + + Public Property TransactionDate() As Object + Get + Return Me._transactionDate + End Get + Set + Me._transactionDate = Value + End Set + End Property + + Public Property MRN() As Object + Get + Return Me._mRN + End Get + Set + Me._mRN = Value + End Set + End Property + + Public Property ReferenzNumber() As Object + Get + Return Me._referenzNumber + End Get + Set + Me._referenzNumber = Value + End Set + End Property + + Public Property ProcedureCode() As Object + Get + Return Me._procedureCode + End Get + Set + Me._procedureCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsProcessData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsProcessData object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsProcessData object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsProcessData 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 VERAG_out_nctsProcessData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsProcessData) + 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 VERAG_out_nctsProcessData) 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 VERAG_out_nctsProcessData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsProcessData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsProcessData + Return CType(Serializer.Deserialize(s), VERAG_out_nctsProcessData) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsProcessData 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsProcessData object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsProcessData 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 VERAG_out_nctsProcessData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsProcessData) + 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 VERAG_out_nctsProcessData) 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 VERAG_out_nctsProcessData + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_Data + +#Region "Private fields" + Private _datDeterminationLimit As Date + + Private _licensePlate As Object + + Private _departureCustomsOffice As Object + + Private _destinationCustomsOffice As Object + + Private _departureCountry As Object + + Private _destinationCountry As Object + + Private _sender As VERAG_out_nctsNCTS_DataSender + + Private _consignee As VERAG_out_nctsNCTS_DataConsignee + + Private _carrier As VERAG_out_nctsNCTS_DataCarrier + + Private _guarantee As VERAG_out_nctsNCTS_DataGuarantee + + Private _sumGrossWeight As Decimal + + Private _position As List(Of VERAG_out_nctsNCTS_DataPosition) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of VERAG_out_nctsNCTS_DataPosition)() + Me._guarantee = New VERAG_out_nctsNCTS_DataGuarantee() + Me._carrier = New VERAG_out_nctsNCTS_DataCarrier() + Me._consignee = New VERAG_out_nctsNCTS_DataConsignee() + Me._sender = New VERAG_out_nctsNCTS_DataSender() + End Sub + + + Public Property DatDeterminationLimit() As Date + Get + Return Me._datDeterminationLimit + End Get + Set + Me._datDeterminationLimit = Value + End Set + End Property + + Public Property LicensePlate() As Object + Get + Return Me._licensePlate + End Get + Set + Me._licensePlate = Value + End Set + End Property + + Public Property DepartureCustomsOffice() As Object + Get + Return Me._departureCustomsOffice + End Get + Set + Me._departureCustomsOffice = Value + End Set + End Property + + Public Property DestinationCustomsOffice() As Object + Get + Return Me._destinationCustomsOffice + End Get + Set + Me._destinationCustomsOffice = Value + End Set + End Property + + Public Property DepartureCountry() As Object + Get + Return Me._departureCountry + End Get + Set + Me._departureCountry = Value + End Set + End Property + + Public Property DestinationCountry() As Object + Get + Return Me._destinationCountry + End Get + Set + Me._destinationCountry = Value + End Set + End Property + + Public Property Sender() As VERAG_out_nctsNCTS_DataSender + Get + Return Me._sender + End Get + Set + Me._sender = Value + End Set + End Property + + Public Property Consignee() As VERAG_out_nctsNCTS_DataConsignee + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + Public Property Carrier() As VERAG_out_nctsNCTS_DataCarrier + Get + Return Me._carrier + End Get + Set + Me._carrier = Value + End Set + End Property + + Public Property Guarantee() As VERAG_out_nctsNCTS_DataGuarantee + Get + Return Me._guarantee + End Get + Set + Me._guarantee = Value + End Set + End Property + + Public Property SumGrossWeight() As Decimal + Get + Return Me._sumGrossWeight + End Get + Set + Me._sumGrossWeight = Value + End Set + End Property + + + Public Property Position() As List(Of VERAG_out_nctsNCTS_DataPosition) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_Data)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_Data object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_Data object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_Data 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 VERAG_out_nctsNCTS_Data, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_Data) + 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 VERAG_out_nctsNCTS_Data) 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 VERAG_out_nctsNCTS_Data + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_Data) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_Data + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_Data) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_Data 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_Data object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_Data 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 VERAG_out_nctsNCTS_Data, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_Data) + 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 VERAG_out_nctsNCTS_Data) 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 VERAG_out_nctsNCTS_Data + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataSender + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataSenderAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataSenderAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataSenderAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSender object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataSender object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataSender 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 VERAG_out_nctsNCTS_DataSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSender) + 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 VERAG_out_nctsNCTS_DataSender) 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 VERAG_out_nctsNCTS_DataSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataSender + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataSender) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSender 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataSender object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataSender 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 VERAG_out_nctsNCTS_DataSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSender) + 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 VERAG_out_nctsNCTS_DataSender) 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 VERAG_out_nctsNCTS_DataSender + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataSenderAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataSenderAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSenderAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataSenderAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataSenderAdress 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 VERAG_out_nctsNCTS_DataSenderAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSenderAdress) + 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 VERAG_out_nctsNCTS_DataSenderAdress) 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 VERAG_out_nctsNCTS_DataSenderAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataSenderAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataSenderAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataSenderAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSenderAdress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataSenderAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataSenderAdress 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 VERAG_out_nctsNCTS_DataSenderAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSenderAdress) + 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 VERAG_out_nctsNCTS_DataSenderAdress) 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 VERAG_out_nctsNCTS_DataSenderAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataConsignee + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataConsigneeAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataConsigneeAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataConsigneeAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsignee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataConsignee 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 VERAG_out_nctsNCTS_DataConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsignee) + 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 VERAG_out_nctsNCTS_DataConsignee) 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 VERAG_out_nctsNCTS_DataConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataConsignee + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataConsignee) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsignee 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataConsignee 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 VERAG_out_nctsNCTS_DataConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsignee) + 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 VERAG_out_nctsNCTS_DataConsignee) 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 VERAG_out_nctsNCTS_DataConsignee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataConsigneeAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataConsigneeAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsigneeAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataConsigneeAdress 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 VERAG_out_nctsNCTS_DataConsigneeAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsigneeAdress) + 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 VERAG_out_nctsNCTS_DataConsigneeAdress) 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 VERAG_out_nctsNCTS_DataConsigneeAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataConsigneeAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataConsigneeAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataConsigneeAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsigneeAdress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataConsigneeAdress 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 VERAG_out_nctsNCTS_DataConsigneeAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsigneeAdress) + 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 VERAG_out_nctsNCTS_DataConsigneeAdress) 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 VERAG_out_nctsNCTS_DataConsigneeAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataCarrier + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataCarrierAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataCarrierAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataCarrierAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataCarrier)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrier object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataCarrier object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrier 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 VERAG_out_nctsNCTS_DataCarrier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrier) + 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 VERAG_out_nctsNCTS_DataCarrier) 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 VERAG_out_nctsNCTS_DataCarrier + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataCarrier) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataCarrier + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataCarrier) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrier 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataCarrier object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrier 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 VERAG_out_nctsNCTS_DataCarrier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrier) + 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 VERAG_out_nctsNCTS_DataCarrier) 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 VERAG_out_nctsNCTS_DataCarrier + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataCarrierAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataCarrierAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrierAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataCarrierAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrierAdress 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 VERAG_out_nctsNCTS_DataCarrierAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrierAdress) + 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 VERAG_out_nctsNCTS_DataCarrierAdress) 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 VERAG_out_nctsNCTS_DataCarrierAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataCarrierAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataCarrierAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataCarrierAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrierAdress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataCarrierAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrierAdress 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 VERAG_out_nctsNCTS_DataCarrierAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrierAdress) + 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 VERAG_out_nctsNCTS_DataCarrierAdress) 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 VERAG_out_nctsNCTS_DataCarrierAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataGuarantee + +#Region "Private fields" + Private _gRN As Object + + Private _amount As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property GRN() As Object + Get + Return Me._gRN + End Get + Set + Me._gRN = Value + End Set + End Property + + Public Property Amount() As Object + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataGuarantee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataGuarantee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataGuarantee object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataGuarantee 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 VERAG_out_nctsNCTS_DataGuarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataGuarantee) + 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 VERAG_out_nctsNCTS_DataGuarantee) 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 VERAG_out_nctsNCTS_DataGuarantee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataGuarantee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataGuarantee + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataGuarantee) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataGuarantee 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataGuarantee object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataGuarantee 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 VERAG_out_nctsNCTS_DataGuarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataGuarantee) + 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 VERAG_out_nctsNCTS_DataGuarantee) 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 VERAG_out_nctsNCTS_DataGuarantee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataPosition + +#Region "Private fields" + Private _posNr As Object + + Private _quantity As Object + + Private _packaging As Object + + Private _goodsDescription As Object + + Private _grossWeight As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property PosNr() As Object + Get + Return Me._posNr + End Get + Set + Me._posNr = Value + End Set + End Property + + Public Property Quantity() As Object + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property Packaging() As Object + Get + Return Me._packaging + End Get + Set + Me._packaging = Value + End Set + End Property + + Public Property GoodsDescription() As Object + Get + Return Me._goodsDescription + End Get + Set + Me._goodsDescription = Value + End Set + End Property + + Public Property GrossWeight() As Object + Get + Return Me._grossWeight + End Get + Set + Me._grossWeight = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataPosition)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataPosition object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataPosition object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataPosition 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 VERAG_out_nctsNCTS_DataPosition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataPosition) + 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 VERAG_out_nctsNCTS_DataPosition) 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 VERAG_out_nctsNCTS_DataPosition + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataPosition) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataPosition + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataPosition) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataPosition 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataPosition object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataPosition 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 VERAG_out_nctsNCTS_DataPosition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataPosition) + 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 VERAG_out_nctsNCTS_DataPosition) 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 VERAG_out_nctsNCTS_DataPosition + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsAttachment + +#Region "Private fields" + Private _name As Object + + Private _fileType As Object + + Private _description As Object + + Private _documentType As VERAG_out_nctsAttachmentDocumentType + + Private _base64BinaryStream() As Byte + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property FileType() As Object + Get + Return Me._fileType + End Get + Set + Me._fileType = Value + End Set + End Property + + Public Property Description() As Object + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Public Property DocumentType() As VERAG_out_nctsAttachmentDocumentType + Get + Return Me._documentType + End Get + Set + Me._documentType = Value + End Set + End Property + + + Public Property base64BinaryStream() As Byte() + Get + Return Me._base64BinaryStream + End Get + Set + Me._base64BinaryStream = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsAttachment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsAttachment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsAttachment object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsAttachment 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 VERAG_out_nctsAttachment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsAttachment) + 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 VERAG_out_nctsAttachment) 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 VERAG_out_nctsAttachment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsAttachment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsAttachment + Return CType(Serializer.Deserialize(s), VERAG_out_nctsAttachment) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsAttachment 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsAttachment object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsAttachment 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 VERAG_out_nctsAttachment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsAttachment) + 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 VERAG_out_nctsAttachment) 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 VERAG_out_nctsAttachment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsAttachmentDocumentType + + ''' + NCTS + + ''' + OTHER + End Enum +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.xsd new file mode 100644 index 0000000..841f576 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.xsd @@ -0,0 +1,158 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.Designer.vb new file mode 100644 index 0000000..1dd4e82 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.Designer.vb @@ -0,0 +1,2976 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' VERAG_OUT_NCTS_V2_0_1ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace VERAG_OUT_NCTS_V2_0_1 + + + Partial Public Class VERAG_out_ncts + +#Region "Private fields" + Private _version As Object + + Private _company As Object + + Private _department As Object + + Private _internalReference As VERAG_out_nctsInternalReference + + Private _processData As VERAG_out_nctsProcessData + + Private _nCTS_Data As VERAG_out_nctsNCTS_Data + + Private _attachments As List(Of VERAG_out_nctsAttachment) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._attachments = New List(Of VERAG_out_nctsAttachment)() + Me._nCTS_Data = New VERAG_out_nctsNCTS_Data() + Me._processData = New VERAG_out_nctsProcessData() + Me._internalReference = New VERAG_out_nctsInternalReference() + End Sub + + Public Property Version() As Object + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Public Property Company() As Object + Get + Return Me._company + End Get + Set + Me._company = Value + End Set + End Property + + Public Property Department() As Object + Get + Return Me._department + End Get + Set + Me._department = Value + End Set + End Property + + Public Property InternalReference() As VERAG_out_nctsInternalReference + Get + Return Me._internalReference + End Get + Set + Me._internalReference = Value + End Set + End Property + + Public Property ProcessData() As VERAG_out_nctsProcessData + Get + Return Me._processData + End Get + Set + Me._processData = Value + End Set + End Property + + Public Property NCTS_Data() As VERAG_out_nctsNCTS_Data + Get + Return Me._nCTS_Data + End Get + Set + Me._nCTS_Data = Value + End Set + End Property + + + Public Property Attachments() As List(Of VERAG_out_nctsAttachment) + Get + Return Me._attachments + End Get + Set + Me._attachments = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ncts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ncts object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ncts object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ncts 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 VERAG_out_ncts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ncts) + 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 VERAG_out_ncts) 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 VERAG_out_ncts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ncts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ncts + Return CType(Serializer.Deserialize(s), VERAG_out_ncts) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ncts 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ncts object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ncts 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 VERAG_out_ncts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ncts) + 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 VERAG_out_ncts) 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 VERAG_out_ncts + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsInternalReference + +#Region "Private fields" + Private _officeCode As String + + Private _positionNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property OfficeCode() As String + Get + Return Me._officeCode + End Get + Set + Me._officeCode = Value + End Set + End Property + + + Public Property PositionNumber() As String + Get + Return Me._positionNumber + End Get + Set + Me._positionNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsInternalReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsInternalReference object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsInternalReference object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsInternalReference 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 VERAG_out_nctsInternalReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsInternalReference) + 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 VERAG_out_nctsInternalReference) 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 VERAG_out_nctsInternalReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsInternalReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsInternalReference + Return CType(Serializer.Deserialize(s), VERAG_out_nctsInternalReference) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsInternalReference 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsInternalReference object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsInternalReference 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 VERAG_out_nctsInternalReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsInternalReference) + 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 VERAG_out_nctsInternalReference) 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 VERAG_out_nctsInternalReference + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsProcessData + +#Region "Private fields" + Private _status As Object + + Private _transactionDate As Object + + Private _mRN As Object + + Private _referenzNumber As Object + + Private _procedureCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Status() As Object + Get + Return Me._status + End Get + Set + Me._status = Value + End Set + End Property + + Public Property TransactionDate() As Object + Get + Return Me._transactionDate + End Get + Set + Me._transactionDate = Value + End Set + End Property + + Public Property MRN() As Object + Get + Return Me._mRN + End Get + Set + Me._mRN = Value + End Set + End Property + + Public Property ReferenzNumber() As Object + Get + Return Me._referenzNumber + End Get + Set + Me._referenzNumber = Value + End Set + End Property + + Public Property ProcedureCode() As Object + Get + Return Me._procedureCode + End Get + Set + Me._procedureCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsProcessData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsProcessData object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsProcessData object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsProcessData 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 VERAG_out_nctsProcessData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsProcessData) + 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 VERAG_out_nctsProcessData) 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 VERAG_out_nctsProcessData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsProcessData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsProcessData + Return CType(Serializer.Deserialize(s), VERAG_out_nctsProcessData) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsProcessData 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsProcessData object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsProcessData 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 VERAG_out_nctsProcessData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsProcessData) + 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 VERAG_out_nctsProcessData) 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 VERAG_out_nctsProcessData + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_Data + +#Region "Private fields" + Private _datDeterminationLimit As Date + + Private _licensePlate As Object + + Private _departureCustomsOffice As Object + + Private _destinationCustomsOffice As Object + + Private _departureCountry As Object + + Private _destinationCountry As Object + + Private _sender As VERAG_out_nctsNCTS_DataSender + + Private _consignee As VERAG_out_nctsNCTS_DataConsignee + + Private _carrier As VERAG_out_nctsNCTS_DataCarrier + + Private _guarantee As VERAG_out_nctsNCTS_DataGuarantee + + Private _sumGrossWeight As Decimal + + Private _position As List(Of VERAG_out_nctsNCTS_DataPosition) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of VERAG_out_nctsNCTS_DataPosition)() + Me._guarantee = New VERAG_out_nctsNCTS_DataGuarantee() + Me._carrier = New VERAG_out_nctsNCTS_DataCarrier() + Me._consignee = New VERAG_out_nctsNCTS_DataConsignee() + Me._sender = New VERAG_out_nctsNCTS_DataSender() + End Sub + + + Public Property DatDeterminationLimit() As Date + Get + Return Me._datDeterminationLimit + End Get + Set + Me._datDeterminationLimit = Value + End Set + End Property + + Public Property LicensePlate() As Object + Get + Return Me._licensePlate + End Get + Set + Me._licensePlate = Value + End Set + End Property + + Public Property DepartureCustomsOffice() As Object + Get + Return Me._departureCustomsOffice + End Get + Set + Me._departureCustomsOffice = Value + End Set + End Property + + Public Property DestinationCustomsOffice() As Object + Get + Return Me._destinationCustomsOffice + End Get + Set + Me._destinationCustomsOffice = Value + End Set + End Property + + Public Property DepartureCountry() As Object + Get + Return Me._departureCountry + End Get + Set + Me._departureCountry = Value + End Set + End Property + + Public Property DestinationCountry() As Object + Get + Return Me._destinationCountry + End Get + Set + Me._destinationCountry = Value + End Set + End Property + + Public Property Sender() As VERAG_out_nctsNCTS_DataSender + Get + Return Me._sender + End Get + Set + Me._sender = Value + End Set + End Property + + Public Property Consignee() As VERAG_out_nctsNCTS_DataConsignee + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + Public Property Carrier() As VERAG_out_nctsNCTS_DataCarrier + Get + Return Me._carrier + End Get + Set + Me._carrier = Value + End Set + End Property + + Public Property Guarantee() As VERAG_out_nctsNCTS_DataGuarantee + Get + Return Me._guarantee + End Get + Set + Me._guarantee = Value + End Set + End Property + + Public Property SumGrossWeight() As Decimal + Get + Return Me._sumGrossWeight + End Get + Set + Me._sumGrossWeight = Value + End Set + End Property + + + Public Property Position() As List(Of VERAG_out_nctsNCTS_DataPosition) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_Data)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_Data object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_Data object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_Data 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 VERAG_out_nctsNCTS_Data, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_Data) + 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 VERAG_out_nctsNCTS_Data) 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 VERAG_out_nctsNCTS_Data + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_Data) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_Data + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_Data) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_Data 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_Data object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_Data 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 VERAG_out_nctsNCTS_Data, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_Data) + 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 VERAG_out_nctsNCTS_Data) 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 VERAG_out_nctsNCTS_Data + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataSender + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataSenderAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private _customerCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataSenderAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataSenderAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Public Property CustomerCode() As Object + Get + Return Me._customerCode + End Get + Set + Me._customerCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSender object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataSender object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataSender 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 VERAG_out_nctsNCTS_DataSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSender) + 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 VERAG_out_nctsNCTS_DataSender) 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 VERAG_out_nctsNCTS_DataSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataSender + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataSender) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSender 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataSender object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataSender 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 VERAG_out_nctsNCTS_DataSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSender) + 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 VERAG_out_nctsNCTS_DataSender) 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 VERAG_out_nctsNCTS_DataSender + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataSenderAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataSenderAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSenderAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataSenderAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataSenderAdress 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 VERAG_out_nctsNCTS_DataSenderAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSenderAdress) + 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 VERAG_out_nctsNCTS_DataSenderAdress) 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 VERAG_out_nctsNCTS_DataSenderAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataSenderAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataSenderAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataSenderAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSenderAdress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataSenderAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataSenderAdress 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 VERAG_out_nctsNCTS_DataSenderAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSenderAdress) + 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 VERAG_out_nctsNCTS_DataSenderAdress) 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 VERAG_out_nctsNCTS_DataSenderAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataConsignee + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataConsigneeAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private _customerCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataConsigneeAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataConsigneeAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Public Property CustomerCode() As Object + Get + Return Me._customerCode + End Get + Set + Me._customerCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsignee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataConsignee 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 VERAG_out_nctsNCTS_DataConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsignee) + 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 VERAG_out_nctsNCTS_DataConsignee) 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 VERAG_out_nctsNCTS_DataConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataConsignee + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataConsignee) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsignee 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataConsignee 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 VERAG_out_nctsNCTS_DataConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsignee) + 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 VERAG_out_nctsNCTS_DataConsignee) 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 VERAG_out_nctsNCTS_DataConsignee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataConsigneeAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataConsigneeAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsigneeAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataConsigneeAdress 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 VERAG_out_nctsNCTS_DataConsigneeAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsigneeAdress) + 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 VERAG_out_nctsNCTS_DataConsigneeAdress) 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 VERAG_out_nctsNCTS_DataConsigneeAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataConsigneeAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataConsigneeAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataConsigneeAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsigneeAdress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataConsigneeAdress 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 VERAG_out_nctsNCTS_DataConsigneeAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsigneeAdress) + 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 VERAG_out_nctsNCTS_DataConsigneeAdress) 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 VERAG_out_nctsNCTS_DataConsigneeAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataCarrier + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataCarrierAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private _customerCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataCarrierAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataCarrierAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Public Property CustomerCode() As Object + Get + Return Me._customerCode + End Get + Set + Me._customerCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataCarrier)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrier object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataCarrier object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrier 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 VERAG_out_nctsNCTS_DataCarrier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrier) + 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 VERAG_out_nctsNCTS_DataCarrier) 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 VERAG_out_nctsNCTS_DataCarrier + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataCarrier) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataCarrier + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataCarrier) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrier 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataCarrier object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrier 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 VERAG_out_nctsNCTS_DataCarrier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrier) + 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 VERAG_out_nctsNCTS_DataCarrier) 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 VERAG_out_nctsNCTS_DataCarrier + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataCarrierAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataCarrierAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrierAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataCarrierAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrierAdress 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 VERAG_out_nctsNCTS_DataCarrierAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrierAdress) + 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 VERAG_out_nctsNCTS_DataCarrierAdress) 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 VERAG_out_nctsNCTS_DataCarrierAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataCarrierAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataCarrierAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataCarrierAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrierAdress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataCarrierAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrierAdress 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 VERAG_out_nctsNCTS_DataCarrierAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrierAdress) + 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 VERAG_out_nctsNCTS_DataCarrierAdress) 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 VERAG_out_nctsNCTS_DataCarrierAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataGuarantee + +#Region "Private fields" + Private _gRN As Object + + Private _amount As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property GRN() As Object + Get + Return Me._gRN + End Get + Set + Me._gRN = Value + End Set + End Property + + Public Property Amount() As Object + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataGuarantee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataGuarantee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataGuarantee object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataGuarantee 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 VERAG_out_nctsNCTS_DataGuarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataGuarantee) + 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 VERAG_out_nctsNCTS_DataGuarantee) 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 VERAG_out_nctsNCTS_DataGuarantee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataGuarantee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataGuarantee + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataGuarantee) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataGuarantee 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataGuarantee object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataGuarantee 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 VERAG_out_nctsNCTS_DataGuarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataGuarantee) + 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 VERAG_out_nctsNCTS_DataGuarantee) 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 VERAG_out_nctsNCTS_DataGuarantee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataPosition + +#Region "Private fields" + Private _posNr As Object + + Private _quantity As Object + + Private _packaging As Object + + Private _goodsDescription As Object + + Private _grossWeight As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property PosNr() As Object + Get + Return Me._posNr + End Get + Set + Me._posNr = Value + End Set + End Property + + Public Property Quantity() As Object + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property Packaging() As Object + Get + Return Me._packaging + End Get + Set + Me._packaging = Value + End Set + End Property + + Public Property GoodsDescription() As Object + Get + Return Me._goodsDescription + End Get + Set + Me._goodsDescription = Value + End Set + End Property + + Public Property GrossWeight() As Object + Get + Return Me._grossWeight + End Get + Set + Me._grossWeight = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataPosition)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataPosition object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataPosition object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataPosition 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 VERAG_out_nctsNCTS_DataPosition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataPosition) + 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 VERAG_out_nctsNCTS_DataPosition) 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 VERAG_out_nctsNCTS_DataPosition + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataPosition) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataPosition + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataPosition) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataPosition 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataPosition object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataPosition 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 VERAG_out_nctsNCTS_DataPosition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataPosition) + 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 VERAG_out_nctsNCTS_DataPosition) 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 VERAG_out_nctsNCTS_DataPosition + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsAttachment + +#Region "Private fields" + Private _name As Object + + Private _fileType As Object + + Private _description As Object + + Private _documentType As VERAG_out_nctsAttachmentDocumentType + + Private _base64BinaryStream() As Byte + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property FileType() As Object + Get + Return Me._fileType + End Get + Set + Me._fileType = Value + End Set + End Property + + Public Property Description() As Object + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Public Property DocumentType() As VERAG_out_nctsAttachmentDocumentType + Get + Return Me._documentType + End Get + Set + Me._documentType = Value + End Set + End Property + + + Public Property base64BinaryStream() As Byte() + Get + Return Me._base64BinaryStream + End Get + Set + Me._base64BinaryStream = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsAttachment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsAttachment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsAttachment object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsAttachment 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 VERAG_out_nctsAttachment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsAttachment) + 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 VERAG_out_nctsAttachment) 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 VERAG_out_nctsAttachment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsAttachment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsAttachment + Return CType(Serializer.Deserialize(s), VERAG_out_nctsAttachment) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsAttachment 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsAttachment object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsAttachment 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 VERAG_out_nctsAttachment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsAttachment) + 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 VERAG_out_nctsAttachment) 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 VERAG_out_nctsAttachment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsAttachmentDocumentType + + ''' + NCTS + + ''' + OTHER + End Enum +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.json b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.json new file mode 100644 index 0000000..31859c8 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.json @@ -0,0 +1,303 @@ +{ + "$schema": "http://json-schema.org/draft-04/schema#", + "description": "Generated by xsd2code++. www.xsd2code.com", + "definitions": {}, + "type": "object", + "additionalProperties": false, + "properties": { + "VERAG_out_ncts": { + "type": "object", + "additionalProperties": false, + "properties": { + "Version": { + "type": "object", + "additionalProperties": false + }, + "Company": { + "type": "object", + "additionalProperties": false + }, + "Department": { + "type": "object", + "additionalProperties": false + }, + "InternalReference": { + "type": "object", + "additionalProperties": false, + "properties": { + "OfficeCode": { + "type": "integer" + }, + "PositionNumber": { + "type": "integer" + } + }, + "required": [ + "OfficeCode", + "PositionNumber" + ] + }, + "ProcessData": { + "type": "object", + "additionalProperties": false, + "properties": { + "Status": { + "type": "object", + "additionalProperties": false + }, + "TransactionDate": { + "type": "object", + "additionalProperties": false + }, + "MRN": { + "type": "object", + "additionalProperties": false + }, + "ReferenzNumber": { + "type": "object", + "additionalProperties": false + }, + "ProcedureCode": { + "type": "object", + "additionalProperties": false + } + }, + "required": [ + "Status", + "TransactionDate", + "MRN", + "ReferenzNumber", + "ProcedureCode" + ] + }, + "NCTS_Data": { + "type": "object", + "additionalProperties": false, + "properties": { + "DatDeterminationLimit": { + "type": "string" + }, + "LicensePlate": { + "type": "object", + "additionalProperties": false + }, + "DepartureCustomsOffice": { + "type": "object", + "additionalProperties": false + }, + "DestinationCustomsOffice": { + "type": "object", + "additionalProperties": false + }, + "DepartureCountry": { + "type": "object", + "additionalProperties": false + }, + "DestinationCountry": { + "type": "object", + "additionalProperties": false + }, + "Sender": { + "type": "object", + "additionalProperties": false, + "properties": { + "Name": { + "type": "object", + "additionalProperties": false + }, + "Adress": { + "type": "object", + "additionalProperties": false, + "properties": { + "Country": { + "type": "object", + "additionalProperties": false + }, + "Postcode": { + "type": "object", + "additionalProperties": false + }, + "City": { + "type": "object", + "additionalProperties": false + }, + "Street": { + "type": "object", + "additionalProperties": false + } + } + }, + "EORI": { + "type": "object", + "additionalProperties": false + }, + "EORI_NL": { + "type": "object", + "additionalProperties": false + }, + "UID_Nr": { + "type": "object", + "additionalProperties": false + }, + "CustomerCode": { + "type": "object", + "additionalProperties": false + } + }, + "required": [ + "Name" + ] + }, + "Consignee": { + "type": "object", + "additionalProperties": false, + "properties": { + "Name": { + "type": "object" + }, + "Adress": { + "type": "object" + }, + "EORI": { + "type": "object" + }, + "EORI_NL": { + "type": "object" + }, + "UID_Nr": { + "type": "object" + }, + "CustomerCode": { + "type": "object" + } + }, + "required": [ + "Name" + ] + }, + "Carrier": { + "type": "object", + "additionalProperties": false, + "properties": { + "Name": { + "type": "object" + }, + "Adress": { + "type": "object" + }, + "EORI": { + "type": "object" + }, + "EORI_NL": { + "type": "object" + }, + "UID_Nr": { + "type": "object" + }, + "CustomerCode": { + "type": "object" + } + }, + "required": [ + "Name" + ] + }, + "Guarantee": { + "type": "object", + "additionalProperties": false, + "properties": { + "GRN": { + "type": "object", + "additionalProperties": false + }, + "Amount": { + "type": "object", + "additionalProperties": false + } + }, + "required": [ + "GRN", + "Amount" + ] + }, + "SumGrossWeight": { + "type": "integer" + }, + "Position": { + "type": "object", + "additionalProperties": false, + "properties": { + "Position": { + "type": "array", + "items": { + "type": "object" + }, + "minItems": 1, + "maxItems": 999 + } + } + } + }, + "required": [ + "DatDeterminationLimit", + "LicensePlate", + "DepartureCustomsOffice", + "DestinationCustomsOffice", + "DepartureCountry", + "DestinationCountry" + ] + }, + "Attachments": { + "type": "object", + "additionalProperties": false, + "properties": { + "Attachment": { + "type": "array", + "items": { + "type": "object", + "additionalProperties": false, + "properties": { + "Name": { + "type": "object" + }, + "FileType": { + "type": "object", + "additionalProperties": false + }, + "Description": { + "type": "object", + "additionalProperties": false + }, + "DocumentType": { + "type": "string", + "enum": [ + "NCTS", + "OTHER" + ] + }, + "base64BinaryStream": { + "type": "string" + } + }, + "required": [ + "Name", + "FileType", + "Description", + "DocumentType", + "base64BinaryStream" + ] + }, + "maxItems": 999 + } + } + } + }, + "required": [ + "Version", + "Company", + "ProcessData", + "NCTS_Data" + ] + } + } +} \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.xsd new file mode 100644 index 0000000..f7ea126 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.xsd @@ -0,0 +1,84 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_2.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_2.Designer.vb new file mode 100644 index 0000000..c667557 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_2.Designer.vb @@ -0,0 +1,2987 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' VERAG_OUT_NCTS_V2_0_2ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace VERAG_OUT_NCTS_V2_0_2 + + + Partial Public Class VERAG_out_ncts + +#Region "Private fields" + Private _version As Object + + Private _company As Object + + Private _department As Object + + Private _clientReference As Object + + Private _internalReference As VERAG_out_nctsInternalReference + + Private _processData As VERAG_out_nctsProcessData + + Private _nCTS_Data As VERAG_out_nctsNCTS_Data + + Private _attachments As List(Of VERAG_out_nctsAttachment) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._attachments = New List(Of VERAG_out_nctsAttachment)() + Me._nCTS_Data = New VERAG_out_nctsNCTS_Data() + Me._processData = New VERAG_out_nctsProcessData() + Me._internalReference = New VERAG_out_nctsInternalReference() + End Sub + + Public Property Version() As Object + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Public Property Company() As Object + Get + Return Me._company + End Get + Set + Me._company = Value + End Set + End Property + + Public Property Department() As Object + Get + Return Me._department + End Get + Set + Me._department = Value + End Set + End Property + + Public Property ClientReference() As Object + Get + Return Me._clientReference + End Get + Set + Me._clientReference = Value + End Set + End Property + + Public Property InternalReference() As VERAG_out_nctsInternalReference + Get + Return Me._internalReference + End Get + Set + Me._internalReference = Value + End Set + End Property + + Public Property ProcessData() As VERAG_out_nctsProcessData + Get + Return Me._processData + End Get + Set + Me._processData = Value + End Set + End Property + + Public Property NCTS_Data() As VERAG_out_nctsNCTS_Data + Get + Return Me._nCTS_Data + End Get + Set + Me._nCTS_Data = Value + End Set + End Property + + + Public Property Attachments() As List(Of VERAG_out_nctsAttachment) + Get + Return Me._attachments + End Get + Set + Me._attachments = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ncts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ncts object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_ncts object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ncts 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 VERAG_out_ncts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ncts) + 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 VERAG_out_ncts) 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 VERAG_out_ncts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ncts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ncts + Return CType(Serializer.Deserialize(s), VERAG_out_ncts) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ncts 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ncts object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ncts 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 VERAG_out_ncts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ncts) + 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 VERAG_out_ncts) 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 VERAG_out_ncts + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsInternalReference + +#Region "Private fields" + Private _officeCode As String + + Private _positionNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property OfficeCode() As String + Get + Return Me._officeCode + End Get + Set + Me._officeCode = Value + End Set + End Property + + + Public Property PositionNumber() As String + Get + Return Me._positionNumber + End Get + Set + Me._positionNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsInternalReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsInternalReference object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsInternalReference object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsInternalReference 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 VERAG_out_nctsInternalReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsInternalReference) + 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 VERAG_out_nctsInternalReference) 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 VERAG_out_nctsInternalReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsInternalReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsInternalReference + Return CType(Serializer.Deserialize(s), VERAG_out_nctsInternalReference) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsInternalReference 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsInternalReference object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsInternalReference 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 VERAG_out_nctsInternalReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsInternalReference) + 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 VERAG_out_nctsInternalReference) 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 VERAG_out_nctsInternalReference + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsProcessData + +#Region "Private fields" + Private _status As Object + + Private _transactionDate As Object + + Private _mRN As Object + + Private _referenzNumber As Object + + Private _procedureCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Status() As Object + Get + Return Me._status + End Get + Set + Me._status = Value + End Set + End Property + + Public Property TransactionDate() As Object + Get + Return Me._transactionDate + End Get + Set + Me._transactionDate = Value + End Set + End Property + + Public Property MRN() As Object + Get + Return Me._mRN + End Get + Set + Me._mRN = Value + End Set + End Property + + Public Property ReferenzNumber() As Object + Get + Return Me._referenzNumber + End Get + Set + Me._referenzNumber = Value + End Set + End Property + + Public Property ProcedureCode() As Object + Get + Return Me._procedureCode + End Get + Set + Me._procedureCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsProcessData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsProcessData object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsProcessData object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsProcessData 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 VERAG_out_nctsProcessData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsProcessData) + 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 VERAG_out_nctsProcessData) 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 VERAG_out_nctsProcessData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsProcessData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsProcessData + Return CType(Serializer.Deserialize(s), VERAG_out_nctsProcessData) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsProcessData 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsProcessData object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsProcessData 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 VERAG_out_nctsProcessData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsProcessData) + 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 VERAG_out_nctsProcessData) 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 VERAG_out_nctsProcessData + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_Data + +#Region "Private fields" + Private _datDeterminationLimit As Date + + Private _licensePlate As Object + + Private _departureCustomsOffice As Object + + Private _destinationCustomsOffice As Object + + Private _departureCountry As Object + + Private _destinationCountry As Object + + Private _sender As VERAG_out_nctsNCTS_DataSender + + Private _consignee As VERAG_out_nctsNCTS_DataConsignee + + Private _carrier As VERAG_out_nctsNCTS_DataCarrier + + Private _guarantee As VERAG_out_nctsNCTS_DataGuarantee + + Private _sumGrossWeight As Decimal + + Private _position As List(Of VERAG_out_nctsNCTS_DataPosition) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of VERAG_out_nctsNCTS_DataPosition)() + Me._guarantee = New VERAG_out_nctsNCTS_DataGuarantee() + Me._carrier = New VERAG_out_nctsNCTS_DataCarrier() + Me._consignee = New VERAG_out_nctsNCTS_DataConsignee() + Me._sender = New VERAG_out_nctsNCTS_DataSender() + End Sub + + + Public Property DatDeterminationLimit() As Date + Get + Return Me._datDeterminationLimit + End Get + Set + Me._datDeterminationLimit = Value + End Set + End Property + + Public Property LicensePlate() As Object + Get + Return Me._licensePlate + End Get + Set + Me._licensePlate = Value + End Set + End Property + + Public Property DepartureCustomsOffice() As Object + Get + Return Me._departureCustomsOffice + End Get + Set + Me._departureCustomsOffice = Value + End Set + End Property + + Public Property DestinationCustomsOffice() As Object + Get + Return Me._destinationCustomsOffice + End Get + Set + Me._destinationCustomsOffice = Value + End Set + End Property + + Public Property DepartureCountry() As Object + Get + Return Me._departureCountry + End Get + Set + Me._departureCountry = Value + End Set + End Property + + Public Property DestinationCountry() As Object + Get + Return Me._destinationCountry + End Get + Set + Me._destinationCountry = Value + End Set + End Property + + Public Property Sender() As VERAG_out_nctsNCTS_DataSender + Get + Return Me._sender + End Get + Set + Me._sender = Value + End Set + End Property + + Public Property Consignee() As VERAG_out_nctsNCTS_DataConsignee + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + Public Property Carrier() As VERAG_out_nctsNCTS_DataCarrier + Get + Return Me._carrier + End Get + Set + Me._carrier = Value + End Set + End Property + + Public Property Guarantee() As VERAG_out_nctsNCTS_DataGuarantee + Get + Return Me._guarantee + End Get + Set + Me._guarantee = Value + End Set + End Property + + Public Property SumGrossWeight() As Decimal + Get + Return Me._sumGrossWeight + End Get + Set + Me._sumGrossWeight = Value + End Set + End Property + + + Public Property Position() As List(Of VERAG_out_nctsNCTS_DataPosition) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_Data)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_Data object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_Data object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_Data 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 VERAG_out_nctsNCTS_Data, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_Data) + 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 VERAG_out_nctsNCTS_Data) 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 VERAG_out_nctsNCTS_Data + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_Data) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_Data + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_Data) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_Data 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_Data object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_Data 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 VERAG_out_nctsNCTS_Data, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_Data) + 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 VERAG_out_nctsNCTS_Data) 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 VERAG_out_nctsNCTS_Data + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataSender + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataSenderAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private _customerCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataSenderAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataSenderAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Public Property CustomerCode() As Object + Get + Return Me._customerCode + End Get + Set + Me._customerCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSender object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataSender object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataSender 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 VERAG_out_nctsNCTS_DataSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSender) + 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 VERAG_out_nctsNCTS_DataSender) 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 VERAG_out_nctsNCTS_DataSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataSender + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataSender) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSender 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataSender object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataSender 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 VERAG_out_nctsNCTS_DataSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSender) + 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 VERAG_out_nctsNCTS_DataSender) 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 VERAG_out_nctsNCTS_DataSender + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataSenderAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataSenderAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSenderAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataSenderAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataSenderAdress 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 VERAG_out_nctsNCTS_DataSenderAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSenderAdress) + 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 VERAG_out_nctsNCTS_DataSenderAdress) 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 VERAG_out_nctsNCTS_DataSenderAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataSenderAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataSenderAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataSenderAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSenderAdress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataSenderAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataSenderAdress 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 VERAG_out_nctsNCTS_DataSenderAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSenderAdress) + 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 VERAG_out_nctsNCTS_DataSenderAdress) 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 VERAG_out_nctsNCTS_DataSenderAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataConsignee + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataConsigneeAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private _customerCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataConsigneeAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataConsigneeAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Public Property CustomerCode() As Object + Get + Return Me._customerCode + End Get + Set + Me._customerCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsignee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataConsignee 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 VERAG_out_nctsNCTS_DataConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsignee) + 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 VERAG_out_nctsNCTS_DataConsignee) 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 VERAG_out_nctsNCTS_DataConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataConsignee + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataConsignee) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsignee 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataConsignee 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 VERAG_out_nctsNCTS_DataConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsignee) + 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 VERAG_out_nctsNCTS_DataConsignee) 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 VERAG_out_nctsNCTS_DataConsignee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataConsigneeAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataConsigneeAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsigneeAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataConsigneeAdress 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 VERAG_out_nctsNCTS_DataConsigneeAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsigneeAdress) + 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 VERAG_out_nctsNCTS_DataConsigneeAdress) 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 VERAG_out_nctsNCTS_DataConsigneeAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataConsigneeAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataConsigneeAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataConsigneeAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsigneeAdress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataConsigneeAdress 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 VERAG_out_nctsNCTS_DataConsigneeAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsigneeAdress) + 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 VERAG_out_nctsNCTS_DataConsigneeAdress) 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 VERAG_out_nctsNCTS_DataConsigneeAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataCarrier + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataCarrierAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private _customerCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataCarrierAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataCarrierAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Public Property CustomerCode() As Object + Get + Return Me._customerCode + End Get + Set + Me._customerCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataCarrier)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrier object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataCarrier object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrier 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 VERAG_out_nctsNCTS_DataCarrier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrier) + 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 VERAG_out_nctsNCTS_DataCarrier) 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 VERAG_out_nctsNCTS_DataCarrier + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataCarrier) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataCarrier + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataCarrier) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrier 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataCarrier object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrier 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 VERAG_out_nctsNCTS_DataCarrier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrier) + 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 VERAG_out_nctsNCTS_DataCarrier) 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 VERAG_out_nctsNCTS_DataCarrier + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataCarrierAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataCarrierAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrierAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataCarrierAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrierAdress 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 VERAG_out_nctsNCTS_DataCarrierAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrierAdress) + 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 VERAG_out_nctsNCTS_DataCarrierAdress) 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 VERAG_out_nctsNCTS_DataCarrierAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataCarrierAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataCarrierAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataCarrierAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrierAdress 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataCarrierAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrierAdress 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 VERAG_out_nctsNCTS_DataCarrierAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrierAdress) + 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 VERAG_out_nctsNCTS_DataCarrierAdress) 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 VERAG_out_nctsNCTS_DataCarrierAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataGuarantee + +#Region "Private fields" + Private _gRN As Object + + Private _amount As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property GRN() As Object + Get + Return Me._gRN + End Get + Set + Me._gRN = Value + End Set + End Property + + Public Property Amount() As Object + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataGuarantee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataGuarantee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataGuarantee object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataGuarantee 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 VERAG_out_nctsNCTS_DataGuarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataGuarantee) + 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 VERAG_out_nctsNCTS_DataGuarantee) 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 VERAG_out_nctsNCTS_DataGuarantee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataGuarantee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataGuarantee + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataGuarantee) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataGuarantee 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataGuarantee object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataGuarantee 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 VERAG_out_nctsNCTS_DataGuarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataGuarantee) + 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 VERAG_out_nctsNCTS_DataGuarantee) 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 VERAG_out_nctsNCTS_DataGuarantee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsNCTS_DataPosition + +#Region "Private fields" + Private _posNr As Object + + Private _quantity As Object + + Private _packaging As Object + + Private _goodsDescription As Object + + Private _grossWeight As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property PosNr() As Object + Get + Return Me._posNr + End Get + Set + Me._posNr = Value + End Set + End Property + + Public Property Quantity() As Object + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property Packaging() As Object + Get + Return Me._packaging + End Get + Set + Me._packaging = Value + End Set + End Property + + Public Property GoodsDescription() As Object + Get + Return Me._goodsDescription + End Get + Set + Me._goodsDescription = Value + End Set + End Property + + Public Property GrossWeight() As Object + Get + Return Me._grossWeight + End Get + Set + Me._grossWeight = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataPosition)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataPosition object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsNCTS_DataPosition object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataPosition 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 VERAG_out_nctsNCTS_DataPosition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataPosition) + 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 VERAG_out_nctsNCTS_DataPosition) 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 VERAG_out_nctsNCTS_DataPosition + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataPosition) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataPosition + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataPosition) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataPosition 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataPosition object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataPosition 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 VERAG_out_nctsNCTS_DataPosition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataPosition) + 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 VERAG_out_nctsNCTS_DataPosition) 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 VERAG_out_nctsNCTS_DataPosition + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsAttachment + +#Region "Private fields" + Private _name As Object + + Private _fileType As Object + + Private _description As Object + + Private _documentType As VERAG_out_nctsAttachmentDocumentType + + Private _base64BinaryStream() As Byte + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property FileType() As Object + Get + Return Me._fileType + End Get + Set + Me._fileType = Value + End Set + End Property + + Public Property Description() As Object + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Public Property DocumentType() As VERAG_out_nctsAttachmentDocumentType + Get + Return Me._documentType + End Get + Set + Me._documentType = Value + End Set + End Property + + + Public Property base64BinaryStream() As Byte() + Get + Return Me._base64BinaryStream + End Get + Set + Me._base64BinaryStream = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsAttachment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsAttachment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.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 workflow markup into an VERAG_out_nctsAttachment object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsAttachment 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 VERAG_out_nctsAttachment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsAttachment) + 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 VERAG_out_nctsAttachment) 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 VERAG_out_nctsAttachment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsAttachment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsAttachment + Return CType(Serializer.Deserialize(s), VERAG_out_nctsAttachment) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsAttachment 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 System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsAttachment object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsAttachment 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 VERAG_out_nctsAttachment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsAttachment) + 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 VERAG_out_nctsAttachment) 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 VERAG_out_nctsAttachment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + 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 VERAG_out_nctsAttachmentDocumentType + + ''' + NCTS + + ''' + OTHER + End Enum +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_2.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_2.xsd new file mode 100644 index 0000000..8813d70 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_2.xsd @@ -0,0 +1,162 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/cVERAG_out_ncts.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/cVERAG_out_ncts.vb new file mode 100644 index 0000000..25c44a1 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/cVERAG_out_ncts.vb @@ -0,0 +1,361 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cVERAG_out_ncts + + + Property ncts_ANR As Object = Nothing + Property ncts_MRN 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_ObjectName As Object = Nothing + Property ncts_ObjectAlias As Object = Nothing + Property ncts_BezugsnummerVorblendung As Object = Nothing + Property ncts_Bearbeiter As Object = Nothing + Property ncts_VersendungsLandCode As Object = Nothing + Property ncts_BestimmungslandCode As Object = Nothing + Property ncts_ArtAnmeldung As Object = Nothing + Property ncts_BeladungsOrt As Object = Nothing + + Property ncts_DurchgangszollstelleDienststellnummer1 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer2 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer3 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer4 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer5 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer6 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer7 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer8 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer9 As Object = Nothing + + Property ncts_BestimmungsstelleDienststellennummer As Object = Nothing + Property ncts_AbgangsDienststellennummer As Object = Nothing + Property ncts_Wiedergestellungsdatum As Object = Nothing + Property ncts_KzVereinfachtesVerfahren As Object = Nothing + Property ncts_GesamtRohmasse As Object = Nothing + Property ncts_GesamtAnzahlPackstuecke As Object = Nothing + Property ncts_Verschluss_ArtCode As Object = Nothing + Property ncts_Verschluss_Anzahl As Object = Nothing + Property ncts_Verschluss_Zeichen1 As Object = Nothing + Property ncts_Verschluss_Zeichen2 As Object = Nothing + Property ncts_Verschluss_Zeichen3 As Object = Nothing + Property ncts_Verschluss_Zeichen4 As Object = Nothing + Property ncts_Verschluss_Zeichen5 As Object = Nothing + Property ncts_Verschluss_Zeichen6 As Object = Nothing + Property ncts_Verschluss_Zeichen7 As Object = Nothing + Property ncts_Verschluss_Zeichen8 As Object = Nothing + Property ncts_Verschluss_Zeichen9 As Object = Nothing + Property ncts_Verschluss_Zeichen10 As Object = Nothing + Property ncts_Verschluss_Zeichen11 As Object = Nothing + Property ncts_Verschluss_Zeichen12 As Object = Nothing + Property ncts_Verschluss_Zeichen13 As Object = Nothing + Property ncts_Verschluss_Zeichen14 As Object = Nothing + Property ncts_Verschluss_Zeichen15 As Object = Nothing + Property ncts_Verschluss_Zeichen16 As Object = Nothing + Property ncts_Befoerderungsmittel_KennzeichenAbgang As Object = Nothing + Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As Object = Nothing + Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As Object = Nothing + Property ncts_Befoerderungsmittel_ArtGrenzueberschreitung As Object = Nothing + Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As Object = Nothing + Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As Object = Nothing + Property ncts_Versender_EORI As Object = Nothing + Property ncts_Versender_NLNR As Object = Nothing + Property ncts_Versender_TIN As Object = Nothing + Property ncts_Versender_Name As Object = Nothing + Property ncts_Versender_StrasseHausnummer As Object = Nothing + Property ncts_Versender_Ort As Object = Nothing + Property ncts_Versender_PLZ As Object = Nothing + Property ncts_Versender_Land As Object = Nothing + Property ncts_Empfaenger_EORI As Object = Nothing + Property ncts_Empfaenger_NLNR As Object = Nothing + Property ncts_Empfaenger_TIN As Object = Nothing + Property ncts_Empfaenger_Name As Object = Nothing + Property ncts_Empfaenger_StrasseHausnummer As Object = Nothing + Property ncts_Empfaenger_Ort As Object = Nothing + Property ncts_Empfaenger_PLZ As Object = Nothing + Property ncts_Empfaenger_Land As Object = Nothing + Property ncts_Hauptverpflichteter_EORI As Object = Nothing + Property ncts_Hauptverpflichteter_NLNR As Object = Nothing + Property ncts_Hauptverpflichteter_TIN As Object = Nothing + Property ncts_Hauptverpflichteter_Name As Object = Nothing + Property ncts_Hauptverpflichteter_StrasseHausnummer As Object = Nothing + Property ncts_Hauptverpflichteter_Ort As Object = Nothing + Property ncts_Hauptverpflichteter_PLZ As Object = Nothing + Property ncts_Hauptverpflichteter_Land As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_IDCarnet As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_EORI As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_TIN As Object = Nothing + + Property ncts_SumA_KzSumASicherheit As Object = Nothing + Property ncts_SumA_KennnummerSendung As Object = Nothing + Property ncts_SumA_BesondereUmstaende As Object = Nothing + Property ncts_SumA_NummerBefoerderung As Object = Nothing + Property ncts_SumA_Ladeort As Object = Nothing + Property ncts_SumA_Entladeort As Object = Nothing + Property ncts_SumA_BefoerderungskostenZahlungsweise As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand1 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand2 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand3 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand4 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand5 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand6 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand7 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand8 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand9 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand10 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand11 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand12 As Object = Nothing + Property ncts_SumA_Versender_EORI As Object = Nothing + Property ncts_SumA_Versender_NLNR As Object = Nothing + Property ncts_SumA_Versender_TIN As Object = Nothing + Property ncts_SumA_Versender_Name As Object = Nothing + Property ncts_SumA_Versender_StrasseHausnummer As Object = Nothing + Property ncts_SumA_Versender_Land As Object = Nothing + Property ncts_SumA_Versender_PLZ As Object = Nothing + Property ncts_SumA_Versender_Ort As Object = Nothing + + Property ncts_SumA_Empfaenger_EORI As Object = Nothing + Property ncts_SumA_Empfaenger_NLNR As Object = Nothing + Property ncts_SumA_Empfaenger_TIN As Object = Nothing + Property ncts_SumA_Empfaenger_Name As Object = Nothing + Property ncts_SumA_Empfaenger_StrasseHausnummer As Object = Nothing + Property ncts_SumA_Empfaenger_Land As Object = Nothing + Property ncts_SumA_Empfaenger_PLZ As Object = Nothing + Property ncts_SumA_Empfaenger_Ort As Object = Nothing + + Property ncts_SumA_Befoerderer_EORI As Object = Nothing + Property ncts_SumA_Befoerderer_NLNR As Object = Nothing + Property ncts_SumA_Befoerderer_TIN As Object = Nothing + Property ncts_SumA_Befoerderer_Name As Object = Nothing + Property ncts_SumA_Befoerderer_StrasseHausnummer As Object = Nothing + Property ncts_SumA_Befoerderer_Land As Object = Nothing + Property ncts_SumA_Befoerderer_PLZ As Object = Nothing + Property ncts_SumA_Befoerderer_Ort As Object = Nothing + Property ncts_Stammreferenz As Object = Nothing + + + Property ncts_SICHERHEITSANGABEN As New List(Of cDakosy_NCTSOut_Sicherheitsangaben) + Property ncts_WARENPOS As New List(Of cDakosy_NCTSOut_Warenposition) + +End Class + + + +Public Class cDakosy_NCTSOut_Sicherheitsangaben + + 'Property nctsSA_Id As Integer + 'Property nctsSA_NctsId As Object = Nothing + Property nctsSA_ArtCode As Object = Nothing + Property nctsSA_BezeichnungBescheinigun As Object = Nothing + Property nctsSA_AbgabenBetrag As Object = Nothing + 'Property nctsSA_GRN As Object = Nothing + 'Property nctsSA_Zugriffcode As Object = Nothing + 'Property nctsSA_TIN As Object = Nothing + + + '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 + + + +End Class + + + Public Class cDakosy_NCTSOut_Warenposition + 'Property nctsWP_Id As Integer + 'Property nctsWP_NctsId As Integer + Property nctsWP_PositionsNummer As Object = Nothing + Property nctsWP_Warennummer As Object = Nothing + Property nctsWP_ArtAnmeldungPositionCode As Object = Nothing + Property nctsWP_Warenbezeichnung As Object = Nothing + Property nctsWP_Warenwert As Object = Nothing + Property nctsWP_WarenwertWaehrung As Object = Nothing + Property nctsWP_SchaetzKz As Object = Nothing + Property nctsWP_WarenwertProzent As Object = Nothing + Property nctsWP_VersendungslandPositionCode As Object = Nothing + Property nctsWP_BestimmungslandPositionCode As Object = Nothing + Property nctsWP_Rohmasse As Object = Nothing + Property nctsWP_Eigenmasse As Object = Nothing + + + Property nctsWP_VorpapierTyp As Object = Nothing + Property nctsWP_VorpapierReferenz1 As Object = Nothing + Property nctsWP_VorpapierZusatz1 As Object = Nothing + Property nctsWP_VorpapierReferenz2 As Object = Nothing + Property nctsWP_VorpapierZusatz2 As Object = Nothing + Property nctsWP_VorpapierReferenz3 As Object = Nothing + Property nctsWP_VorpapierZusatz3 As Object = Nothing + Property nctsWP_VorpapierReferenz4 As Object = Nothing + Property nctsWP_VorpapierZusatz4 As Object = Nothing + Property nctsWP_VorpapierReferenz5 As Object = Nothing + Property nctsWP_VorpapierZusatz5 As Object = Nothing + Property nctsWP_VorpapierReferenz6 As Object = Nothing + Property nctsWP_VorpapierZusatz6 As Object = Nothing + Property nctsWP_VorpapierReferenz7 As Object = Nothing + Property nctsWP_VorpapierZusatz7 As Object = Nothing + Property nctsWP_VorpapierReferenz8 As Object = Nothing + Property nctsWP_VorpapierZusatz8 As Object = Nothing + Property nctsWP_VorpapierReferenz9 As Object = Nothing + Property nctsWP_VorpapierZusatz9 As Object = Nothing + + + + Property nctsWP_BesondereVermeke_ExportAusEU As Object = Nothing + Property nctsWP_BesondereVermeke_ExportAusLand As Object = Nothing + Property nctsWP_BesondereVermeke_Export As Object = Nothing + + Property nctsWP_BesondereVermeke_ExportBeschraenkung As Object = Nothing + Property nctsWP_BesondereVermeke_ExportAbgaben As Object = Nothing + Property nctsWP_BesondereVermeke_Vermerk As Object = Nothing + Property nctsWP_BesondereVermeke_Kz10600 As Object = Nothing + + + Property nctsWP_Versender_EORI As Object = Nothing + Property nctsWP_Versender_NLNR As Object = Nothing + Property nctsWP_Versender_TIN As Object = Nothing + Property nctsWP_Versender_Name As Object = Nothing + Property nctsWP_Versender_StrasseHausnummer As Object = Nothing + Property nctsWP_Versender_Ort As Object = Nothing + Property nctsWP_Versender_PLZ As Object = Nothing + Property nctsWP_Versender_Land As Object = Nothing + Property nctsWP_Empfaenger_EORI As Object = Nothing + Property nctsWP_Empfaenger_NLNR As Object = Nothing + Property nctsWP_Empfaenger_TIN As Object = Nothing + Property nctsWP_Empfaenger_Name As Object = Nothing + Property nctsWP_Empfaenger_StrasseHausnummer As Object = Nothing + Property nctsWP_Empfaenger_Ort As Object = Nothing + Property nctsWP_Empfaenger_PLZ As Object = Nothing + Property nctsWP_Empfaenger_Land As Object = Nothing + Property nctsWP_SumAKennnummerSendung As Object = Nothing + Property nctsWP_SumABefoerderungskostenZahlungsweise As Object = Nothing + Property nctsWP_SumAUNGefahrgutnummer As Object = Nothing + Property nctsWP_SumAVersender_EORI As Object = Nothing + Property nctsWP_SumAVersender_NLNR As Object = Nothing + Property nctsWP_SumAVersender_TIN As Object = Nothing + Property nctsWP_SumAVersender_Name As Object = Nothing + Property nctsWP_SumAVersender_StrasseHausnummer As Object = Nothing + Property nctsWP_SumAVersender_Ort As Object = Nothing + Property nctsWP_SumAVersender_PLZ As Object = Nothing + Property nctsWP_SumAVersender_Land As Object = Nothing + Property nctsWP_SumAEmpfaenger_EORI As Object = Nothing + Property nctsWP_SumAEmpfaenger_NLNR As Object = Nothing + Property nctsWP_SumAEmpfaenger_TIN As Object = Nothing + Property nctsWP_SumAEmpfaenger_Name As Object = Nothing + Property nctsWP_SumAEmpfaenger_StrasseHausnummer As Object = Nothing + Property nctsWP_SumAEmpfaenger_Ort As Object = Nothing + Property nctsWP_SumAEmpfaenger_PLZ As Object = Nothing + Property nctsWP_SumAEmpfaenger_Land As Object = Nothing + + + 'Property nctsWP_KdRefNr As Object = Nothing + + + Property nctsWP_PACKSTUECKE As New List(Of cDakosy_NCTSOut_WarenpositionPackstuecke) + Property nctsWP_UNTERLAGEN As New List(Of cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWP_NctsId = nctsWP_NctsId + End Sub + + + +End Class + + + + Public Class cDakosy_NCTSOut_WarenpositionPackstuecke + + 'Property nctsWpPk_Id As Integer + 'Property nctsWpPk_nctsWPId As Integer + 'Property nctsWpPk_NctsId As Integer + + Property nctsWpPk_PackstueckeAnzahl As Object = Nothing + Property nctsWpPk_Verpackungsart As Object = Nothing + Property nctsWpPk_ZeichenNummern As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId + End Sub + + +End Class + + Public Class cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen + + 'Property nctsWpUl_Id As Integer + 'Property nctsWpUl_nctsWPId As Integer + 'Property nctsWpUl_NctsId As Integer + Property nctsWpUl_Typ As Object = Nothing + Property nctsWpUl_Referenz As Object = Nothing + Property nctsWpUl_Zusatz As Object = Nothing + + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWpUl_nctsWPId = nctsWpUl_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("nctsWpUl_Id", nctsWpUl_Id, , True, True)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_nctsWPId", nctsWpUl_nctsWPId)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_NctsId", nctsWpUl_NctsId)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Typ", nctsWpUl_Typ)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Referenz", nctsWpUl_Referenz)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Zusatz", nctsWpUl_Zusatz)) + ' Return list + 'End Function + + + 'Public Function INSERT() As Boolean + ' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + ' nctsWpUl_Id = SQL.doSQLVarListID(nctsWpUl_Id, getInsertCmd(), "FMZOLL", , list) + ' Return nctsWpUl_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 tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen (" & str & ") VALUES(" & values & ") ") + ' Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + ' End Try + ' Return "" + 'End Function + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb new file mode 100644 index 0000000..6c455db --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb @@ -0,0 +1,572 @@ +Public Class cBMD_Interface + + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + 'STAMMDATEN + + + 'Public Shared Function genStammdatenBuRef() As Boolean + ' Try + ' 'RTRIM([Name 1] + ' ' + isnull([Name 2],'')) as [Name] + ' Dim sqlStr = " select adressennr as [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz as [St],PLZ as [Postltz],LTRIM([Ort]) as Ort,isnull(BLZ,'') as [Bankltz],isnull(KTO,'') as [Bankkonto-Nr], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2 " + ' sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr " + ' sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr " + ' sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz " + ' sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel " + ' sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5501' " + ' sqlStr &= " Order by [Konto-Nr] " + + ' ' "Konto-Nr;Name;UST-Id-Nummer;Strasse;St;Postltz;Ort;Bankltz;Bankkonto-Nr;ZZiel;SPz;STg" + + ' Dim dt As DataTable = SQL.loadDgvBySql(sqlStr, "FMZOLL") + ' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + ' initKDNr(dt) + ' Dim ExcelPath = cProgramFunctions.genExcelFromDT_NEW(dt, , False,,, False) '{"C1:C" & (dt.Rows.Count + 1), "C1:C" & (dt.Rows.Count + 1)}) + ' If ExcelPath <> "" Then + ' Process.Start(ExcelPath) + ' Return True + ' End If + ' Else + ' Return True ' wenn keine da sind, auch ok... + ' End If + + ' ' UPDATE FiBuSchnittstelle --> 0 + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' End Try + ' Return False + 'End Function + + ''BetreibsstammSatz + ''10 Personenkonten + ''100 Beginn Buchungsblock + ''110 Buchungen + ''111 Summe/Ende Buchungsblock + + + 'Public Shared Function genBetreibsstammSatz(Geschaeftsjahr As Integer) As String + ' Return "1,0910,""" & Geschaeftsjahr & """,""0101" & Geschaeftsjahr & """,4,6,""EUR""" + 'End Function + + + 'Public Shared Function genBuchungenBeginn(Geschaeftsjahr As Integer) As String + ' Return "100,""AR "",4,""" & Now.ToString("ddMMyyyy") & """," & Now.AddDays(-1).Month & ",0" + 'End Function + + + 'Public Shared Function genBuchungenEnd(SummeBuchungen As Double) As String + ' Return "111," & SummeBuchungen.ToString("N2").Replace(",", ".") + 'End Function + + 'Public Shared Function genStammdatenANSI(Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True) As Boolean + ' Try + ' 'RTRIM([Name 1] + ' ' + isnull([Name 2],'')) as [Name] + ' Dim bool_DatenVorhanden As Boolean = False + ' Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr + ' ' "Konto-Nr;Name;UST-Id-Nummer;Strasse;St;Postltz;Ort;Bankltz;Bankkonto-Nr;ZZiel;SPz;STg" + ' ' Dim Encoding As New System.Text.ASCIIEncoding() + ' ' Dim Encoding As New System.Text.UTF8Encoding(False) + ' Dim file As System.IO.StreamWriter + ' ' Dim path = DATENVERVER_OPTIONS.getTMPPath("dvo", ".txt", , False) + ' Dim path = "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\" + ' Dim pathArchiv = "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\" + + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + ' path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir + ' pathArchiv = "" + ' End If + + ' If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path) + + + ' 'Zuerst alle IMP-Daten löschen, damit es zu keinen Missverständnissen kommt + ' 'For Each f In IO.Directory.GetFiles(path) + ' ' If f.ToString.Contains("DVO_IMP_") Then + ' ' Try + ' ' IO.File.Delete(f) + ' ' Catch ex As Exception + ' ' End Try + ' ' End If + ' 'Next + + ' Dim Dateiname = "DVO_IMP_" & Now.ToString("ddMMyyyy_HHmm") & ".txt" + ' file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15")) + + ' file.WriteLine(genBetreibsstammSatz(Geschaeftsjahr)) + ' If boolKunden Then + ' '----------------- STAMMDATEN ----------------- + ' Dim dt_Stamm As DataTable = getStammdaten() + ' If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then + ' initKDNr(dt_Stamm) + ' For Each r In dt_Stamm.Rows + ' file.WriteLine(getPersonenKto(r)) + ' Next + ' bool_DatenVorhanden = True + ' End If + ' updateFibu() ' UPDATE FiBuSchnittstelle --> 0 + + ' '----------------- STAMMDATEN LG ----------------- + ' Dim dt_StammLG As DataTable = getStammdatenLG() + ' If dt_StammLG IsNot Nothing AndAlso dt_StammLG.Rows.Count > 0 Then + ' initKDNrLG(dt_StammLG) + ' For Each r In dt_StammLG.Rows + ' file.WriteLine(getPersonenKto(r)) + ' Next + ' bool_DatenVorhanden = True + ' End If + ' updateFibuLG() ' UPDATE FiBuSchnittstelleLG --> 0 + ' '---------------------------------- + ' End If + + + ' '----------------- Buchungssätze ----------------- + ' If boolBuchungen Then + ' TrdInvoice_FUNCTIONS.TrdinSchreiben(20) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX ) + ' Dim dt_Buchungen As DataTable = getBuchungen(20) + ' If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then + ' Try + ' ' initKDNr(dt_Buchungen) + ' Dim SummeBuchungen As Double = 0 + ' file.WriteLine(genBuchungenBeginn(Geschaeftsjahr)) + ' For Each r In dt_Buchungen.Rows + ' file.WriteLine(genBuchungsZeile(r, SummeBuchungen, Geschaeftsjahr)) + ' Next + ' file.WriteLine(genBuchungenEnd(SummeBuchungen)) + ' bool_DatenVorhanden = True + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' End Try + ' 'Update Filename TrdIn + ' SQL.doSQL("update [tblTrdinInvoice] set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL") + ' 'SQL.doSQL("update [VERAG].[dbo].[tblTrdinInvoice] set TrdinDateiname='" & Dateiname & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL") --> Auf 12 Zeichen beschränkt! + ' End If + ' End If + ' '---------------------------------- + + ' file.Close() + + ' 'In Archiv sichern + ' If pathArchiv <> "" Then + ' If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv) + ' IO.File.Copy(path & Dateiname, pathArchiv & Dateiname) + ' End If + + ' If bool_DatenVorhanden Then + ' If OpenFile Then Process.Start(path & Dateiname) + ' Else + ' IO.File.Delete(path & Dateiname) + ' End If + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' End Try + ' Return False + 'End Function + + + + Shared Function getStammdaten() As DataTable + Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail],[Telefon] " + sqlStr &= " ,Ordnungsbegriff " + sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr " + sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr " + sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz " + sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel " + sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5601' " + sqlStr &= " Order by [Konto-Nr] " + Return SQL.loadDgvBySql(sqlStr, "FMZOLL") + End Function + + Shared Function updateFibu() As DataTable + Dim sqlStr = " UPDATE Kunden " + sqlStr &= " SET FiBuSchnittstelle = '0' " + sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr " + sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr " + sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5601' " + Return SQL.loadDgvBySql(sqlStr, "FMZOLL") + End Function + 'Shared Function updateFibuLG() As DataTable + ' Dim sqlStr = " UPDATE tblKundenErweitert " + ' sqlStr &= " SET FiBuSchnittstelleLG = '0' " + ' sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr " + ' sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr " + ' sqlStr &= " WHERE FiBuSchnittstelleLG=1 AND Auswahl='A' AND FilialenNr='5501' " + ' Return SQL.loadDgvBySql(sqlStr, "FMZOLL") + 'End Function + + 'Shared Function getStammdatenLG() As DataTable + ' Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail] " + ' sqlStr &= " ,Ordnungsbegriff " + ' sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr " + ' sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr " + ' sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz " + ' sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel " + ' sqlStr &= " WHERE FiBuSchnittstelleLG=1 AND Auswahl='A' AND FilialenNr='5501' " + ' sqlStr &= " Order by [Konto-Nr] " + ' Return SQL.loadDgvBySql(sqlStr, "FMZOLL") + 'End Function + + Public Shared Function getPersonenKto(row As DataRow) As String + getPersonenKto = "" + getPersonenKto &= row("Konto-Nr") & ";" + getPersonenKto &= FormatStringDVO(row("Name")) & ";" + getPersonenKto &= FormatStringDVO(row("Name2")) & ";" + getPersonenKto &= FormatStringDVO(row("Strasse")) & ";" + + getPersonenKto &= cProgramFunctions.getISO2Land(FormatStringDVO(row("LandKz"))) & ";" + getPersonenKto &= FormatStringDVO(row("PLZ")) & ";" + getPersonenKto &= FormatStringDVO(row("Ort")) & ";" + getPersonenKto &= row("ZZiel") & ";" + getPersonenKto &= FormatStringDVO(row("UST-Id-Nummer")) & ";" + + getPersonenKto &= FormatStringDVO(row("Telefon")) & ";" + getPersonenKto &= FormatStringDVO(row("E-Mail")) & ";" + + + getPersonenKto &= row("BLZ") & ";" + getPersonenKto &= row("KTO") & ";" + + End Function + + + Public Shared Function genDatensatzCSV_Stammdaten(Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean + Try + + Dim bool_DatenVorhanden As Boolean = False + Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr + + 'DATEIPFAD für Stammdaten + '------------------------------------------------------------------------------------------- + Dim pathArchivKD = "\\srv07.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\" + Dim pathKD = "\\share01\Datenarchiv\UNISPED\BMD\STAMMDATEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\" + 'pathKD = pathArchivKD 'TEST + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + 'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir + 'pathArchivKD = "" + End If + If Not IO.Directory.Exists(pathKD) Then IO.Directory.CreateDirectory(pathKD) + If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD) + '------------------------------------------------------------------------------------------- + + + If True Then 'boolKunden Then + '----------------- STAMMDATEN ----------------- + Dim dt_Stamm As DataTable = getStammdaten() + If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then + + Dim fileKD As System.IO.StreamWriter + Dim DateinameKD = "BMD_KD_" & Now.ToString("ddMMyyyy_HHmm") & ".csv" + fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15")) + + + fileKD.WriteLine(genStammdatenBeginn()) + + + + initKDNr(dt_Stamm) + For Each r In dt_Stamm.Rows + fileKD.WriteLine(getPersonenKto(r)) + Next + bool_DatenVorhanden = True + + + fileKD.Close() + + 'In Archiv sichern + If pathArchivKD <> "" Then + If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD) + If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD) + End If + + If bool_DatenVorhanden Then + If OpenFile Then Process.Start(pathKD & DateinameKD) + Else + IO.File.Delete(pathKD & DateinameKD) + End If + + updateFibu() ' UPDATE FiBuSchnittstelle --> 0 + + End If + End If + + + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + + + Public Shared Function genDatensatzCSV_ALL(Optional OpenFile As Boolean = False, Optional boolKunden As Boolean = True, Optional boolBuchungen As Boolean = True) As Boolean + genDatensatzCSV_ALL = True + If boolKunden Then + If Not genDatensatzCSV_Stammdaten(OpenFile) Then genDatensatzCSV_ALL = False + End If + If boolBuchungen Then + If Not genDatensatzCSV_Buchungen(21, OpenFile) Then genDatensatzCSV_ALL = False + If Not genDatensatzCSV_Buchungen(22, OpenFile) Then genDatensatzCSV_ALL = False + If Not genDatensatzCSV_Buchungen(23, OpenFile) Then genDatensatzCSV_ALL = False + End If + End Function + + Public Shared Function genDatensatzCSV_Buchungen(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean + Try + Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID) + + Dim bool_DatenVorhanden As Boolean = False + Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr + + 'DATEIPFAD für Buchungsdaten + '------------------------------------------------------------------------------------------- + Dim pathArchiv = "\\srv07.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\" + Dim path = "\\share01\Datenarchiv\UNISPED\BMD\BUCHUNGEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\" + ' path = pathArchiv 'TEST + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + 'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir + 'pathArchiv = "" + End If + If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path) + If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv) + '------------------------------------------------------------------------------------------- + + + Dim NameZusatz = "" + Select Case FIRMA.Firma_ID + Case 21 : NameZusatz = "UNISPED_AT_" + Case 22 : NameZusatz = "UNISPED_DE_" + Case 23 : NameZusatz = "UNISPED_ZS_" + End Select + + + '----------------- Buchungssätze ----------------- + If True Then 'boolBuchungen Then + TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX ) + Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID) + If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then + Try + Dim file As System.IO.StreamWriter + Dim Dateiname = "BMD_IMP_" & NameZusatz & Now.ToString("ddMMyyyy_HHmm") & ".csv" + file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15")) + + ' initKDNr(dt_Buchungen) + Dim SummeBuchungen As Double = 0 + file.WriteLine(genBuchungenBeginn()) + For Each r In dt_Buchungen.Rows + file.WriteLine(genBuchungsZeile(r, SummeBuchungen, Geschaeftsjahr, FIRMA)) + Next + ' file.WriteLine(genBuchungenEnd(SummeBuchungen)) + bool_DatenVorhanden = True + + 'Update Filename TrdIn + SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL") + + file.Close() + + 'In Archiv sichern + If pathArchiv <> "" Then + If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv) + If path <> pathArchiv Then IO.File.Copy(path & Dateiname, pathArchiv & Dateiname) + End If + + If bool_DatenVorhanden Then + If OpenFile Then Process.Start(path & Dateiname) + Else + IO.File.Delete(path & Dateiname) + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + End If + End If + '---------------------------------- + + + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + Shared Function FormatStringDVO(s As Object, Optional length As Integer = -1, Optional defaultValue As String = "") As String + If s Is Nothing Then Return defaultValue + If s Is DBNull.Value Then Return defaultValue + FormatStringDVO = s.ToString.Replace(";", ",") + 'FormatStringDVO = s.ToString.Replace(",", "") + 'FormatStringDVO = s.ToString.Replace("""", "\22") + If length > 0 Then + If FormatStringDVO.Length > length Then FormatStringDVO = FormatStringDVO.Substring(0, length) + End If + End Function + + Shared Function getBuchungen(Firma_ID As Integer) As DataTable + + Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer,min(Speditionsbuch) as Speditionsbuch ,min(FilialenNr) as FilialenNr,min(AbfertigungsNr) as AbfertigungsNr,min(UnterNr) as UnterNr,min(Abfertigungsdatum) as Abfertigungsdatum,min(BelegartenNr) as BelegartenNr + ,min(KundenNrZentrale) as [KundenNrZentrale],min(RechnungsKundenNr) as RechnungsKundenNr,min(RechnungsLandKz) as RechnungsLandKz,min(RechnungsUstIdKz) as RechnungsUstIdKz,min(RechnungsUstIdNr) as RechnungsUstIdNr + ,min(Lastschrift+0) as Lastschrift,min(Steuerschlüssel) as Steuerschlüssel,min([Steuersatz %]) as Steuersatz,min(WährungLokal) as WährungLokal,min(SteuerbetragLokal) as SteuerbetragLokal,min(RechnungsbetragLokal) as RechnungsbetragLokal + ,min(WährungFremd) as WährungFremd,min(SteuerbetragFremd) as SteuerbetragFremd,min(RechnungsbetragFremd) as RechnungsbetragFremd,min(TrdinDateiname) as TrdinDateiname,min(Abgleich_op_debitor+0) as Abgleich_op_debitor + ,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID ,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal + ,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten + ,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext + FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer + WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname Is Null + group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig + ORDER BY Rechnungsdatum, Rechnungsnummer " + ' --and IVO.Rechnungsnummer=19400002 + Return SQL.loadDgvBySql(sqlStr, "FMZOLL") + + End Function + + Public Shared Function genBuchungenBeginn() As String + Return "satzart;konto;gkonto;belegdatum;belegnr;extbelegnr;buchsymbol;buchcode;steuercode;prozent;betrag;steuer;text;zziel;kost" + End Function + Public Shared Function genBuchungenEnd() As String + Return "" + End Function + + + Public Shared Function genStammdatenBeginn() As String + Return "Kto-Nr;Nachname;Zusatzname;Straße;Staat;Plz;Ort;ZZiel;UID-Nummer;Telefonnummer;Mail;IBAN;BIC" + End Function + Public Shared Function genStammdatenEnd() As String + Return "" + End Function + + Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String + genBuchungsZeile = "0;" + genBuchungsZeile &= (initKDNr2(row("KundenNrZentrale"))) & ";" + genBuchungsZeile &= fill0Stellen(row("Sachkonto"), 4) & ";" + genBuchungsZeile &= "" & CDate(row("Rechnungsdatum")).ToString("dd.MM.yyyy") & ";" + Dim GJ_short = Geschäftsjahr.ToString.Substring(2, 2) + Select Case FIRMA.Firma_ID + Case 21 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";" + Case 22 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";" + Case 23 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";" + End Select + + genBuchungsZeile &= SQL.DLookup("KdAuftragsNr", "Rechnungsausgang", "rechnungsnr=" & row("Rechnungsnummer") & " and Firma_ID=" & FIRMA.Firma_ID & "", "FMZOLL", "") & ";" 'extbelegnr + + genBuchungsZeile &= If(row("BelegartenNr") = "70", "AR", "AG") & ";" ' Rg/GS 70=Rechnung 'AG ???????? + genBuchungsZeile &= If(row("BelegartenNr") = "70", "1", "2") & ";" ' Rg/GS 70=Rechnung 'AG ???????? + + ' genBuchungsZeile &= "1;" 'buchcode === 1 oder 2?? + genBuchungsZeile &= getSteuercode(row, FIRMA) & ";" + If CBool(row("Steuerpflichtig")) Then + genBuchungsZeile &= (getDbl2(row("Steuersatz")) * 100) & ";" 'buchcode === 1 oder 2?? + Else + genBuchungsZeile &= "0;" 'buchcode === 1 oder 2?? + End If + + Dim steuerbetragLokal As Double = 0 + If CBool(row("Steuerpflichtig")) Then + steuerbetragLokal = CDbl((getDbl2(row("SteuerpflichtigerBetragLokal")) * getDbl2(row("Steuersatz")))) + steuerbetragLokal += CDbl((getDbl2(row("SteuerpflichtigerBetragFremd")) * getDbl2(row("Steuersatz")))) + End If + ' If steuerbetragLokal < 0 Then steuerbetragLokal = steuerbetragLokal * -1 --> SONST PROBLKEM BEI UNISPED; DA STEUER vom NETTO abgezogen wird! + + genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd")) + If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0")) & ";" 'betrag + steuer (brutto) + genBuchungsZeile &= "" & If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0") & ";" 'steuer + + genBuchungsZeile &= FormatStringDVO(SQL.DLookup("[Ordnungsbegriff]", "Adressen", " AdressenNr= " & row("KundenNrZentrale"), "FMZOLL", "")) & ";" ' BuchungsText bei UNISPED ist der FIRMENNAME!! + ' genBuchungsZeile &= FormatStringDVO(row("Buchungstext")) & ";" ' Text + genBuchungsZeile &= FormatStringDVO(row("Nettozahlungsziel")) & ";" ' Text + + '... aus ... + SummeBuchungen += getDbl(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal"))) + End Function + + Shared Sub initKDNr(ByRef dt As DataTable) + For Each r In dt.Rows + If IsNumeric(r("Konto-Nr")) AndAlso CInt(r("Konto-Nr")) > 2000000 Then r("Konto-Nr") = (CInt(r("Konto-Nr")) - 2000000) + ' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000) + Next + End Sub + 'Shared Sub initKDNrLG(ByRef dt As DataTable) + ' For Each r In dt.Rows + ' If IsNumeric(r("Konto-Nr")) AndAlso CInt(r("Konto-Nr")) > 1000000 Then r("Konto-Nr") = (CInt(r("Konto-Nr")) - 1000000) + 500000 + ' ' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000) + ' Next + 'End Sub + Shared Function initKDNr2(ktoNr As String) As String + If IsNumeric(ktoNr) AndAlso CInt(ktoNr) > 2000000 Then ktoNr = (CInt(ktoNr) - 2000000) '+ 200000 + Return ktoNr + End Function + ' Trdin=false + + Shared Function getSteuercode(r As DataRow, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String + Select Case r("Sachkonto") + 'Case "3550", "3553", "3558" + ' Return "999" + Case Else + + If Not CBool(r("Steuerpflichtig")) Then + 'Vorher immer return "" - galube es soll bei eu aber 77 sein... + If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then + Return "77" ' EU-LAND + Else + Return "" ' Drittland + End If + Else + If (r("RechnungsLandKz")).ToString.Replace("AT", "A").Replace("DE", "D") = FIRMA.Firma_LandKz Then 'Abhängig von FIRMA --> INLAND!!!!!! + Return "1" 'Steuerpflichtig und AT + Else + If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then + Return "77" ' EU-LAND + Else + Return "" ' Drittland + End If + End If + End If + + End Select + Return "" + End Function + + + + Shared Function getDbl(o As Object) As Double + Try + If o Is Nothing Then Return 0 + If o Is DBNull.Value Then Return 0 + Return CDbl(o) + Catch ex As Exception + Return 0 + End Try + End Function + Shared Function getDbl2(o As Object) As Double + Try + If o Is Nothing Then Return 0 + If o Is DBNull.Value Then Return 0 + Return CDbl(o.ToString.Replace(".", ",")) + Catch ex As Exception + Return 0 + End Try + End Function + + + Shared Function getDbltr(o As Object) As String + Try + If o Is Nothing Then Return 0 + If o Is DBNull.Value Then Return 0 + Return CDbl(o).ToString("N2").Replace(".", "") '.Replace(",", ".") + Catch ex As Exception + Return 0 + End Try + End Function + + Shared Function fill0Stellen(i As Object, l As Integer) As String + If i Is DBNull.Value Then i = "" + If i Is Nothing Then i = "" + While i.ToString.Length < l + i &= "0" + End While + Return i + End Function + + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb new file mode 100644 index 0000000..80e92a5 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb @@ -0,0 +1,404 @@ +Public Class cDVO_Interface + + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Public Shared Function genStammdatenBuRef() As Boolean + Try + 'RTRIM([Name 1] + ' ' + isnull([Name 2],'')) as [Name] + Dim sqlStr = " select adressennr as [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz as [St],PLZ as [Postltz],LTRIM([Ort]) as Ort,isnull(BLZ,'') as [Bankltz],isnull(KTO,'') as [Bankkonto-Nr], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2 " + sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr " + sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr " + sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz " + sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel " + sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5501' " + sqlStr &= " Order by [Konto-Nr] " + + ' "Konto-Nr;Name;UST-Id-Nummer;Strasse;St;Postltz;Ort;Bankltz;Bankkonto-Nr;ZZiel;SPz;STg" + + Dim dt As DataTable = SQL.loadDgvBySql(sqlStr, "FMZOLL") + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + initKDNr(dt) + Dim ExcelPath = cProgramFunctions.genExcelFromDT_NEW(dt, , False,,, False) '{"C1:C" & (dt.Rows.Count + 1), "C1:C" & (dt.Rows.Count + 1)}) + If ExcelPath <> "" Then + Process.Start(ExcelPath) + Return True + End If + Else + Return True ' wenn keine da sind, auch ok... + End If + + ' UPDATE FiBuSchnittstelle --> 0 + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + 'BetreibsstammSatz + '10 Personenkonten + '100 Beginn Buchungsblock + '110 Buchungen + '111 Summe/Ende Buchungsblock + + + Public Shared Function genBetreibsstammSatz(Geschaeftsjahr As Integer) As String + Return "1,0910,""" & Geschaeftsjahr & """,""0101" & Geschaeftsjahr & """,4,6,""EUR""" + End Function + + + Public Shared Function genBuchungenBeginn(Geschaeftsjahr As Integer) As String + Return "100,""AR "",4,""" & Now.ToString("ddMMyyyy") & """," & Now.AddDays(-1).Month & ",0" + End Function + + + Public Shared Function genBuchungenEnd(SummeBuchungen As Double) As String + Return "111," & SummeBuchungen.ToString("N2").Replace(",", ".") + End Function + + Public Shared Function genStammdatenANSI(Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True) As Boolean + Try + 'RTRIM([Name 1] + ' ' + isnull([Name 2],'')) as [Name] + Dim bool_DatenVorhanden As Boolean = False + Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr + ' "Konto-Nr;Name;UST-Id-Nummer;Strasse;St;Postltz;Ort;Bankltz;Bankkonto-Nr;ZZiel;SPz;STg" + ' Dim Encoding As New System.Text.ASCIIEncoding() + ' Dim Encoding As New System.Text.UTF8Encoding(False) + Dim file As System.IO.StreamWriter + ' Dim path = DATENVERVER_OPTIONS.getTMPPath("dvo", ".txt", , False) + Dim path = "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\" + Dim pathArchiv = "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\" + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir + pathArchiv = "" + End If + + If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path) + + + 'Zuerst alle IMP-Daten löschen, damit es zu keinen Missverständnissen kommt + 'For Each f In IO.Directory.GetFiles(path) + ' If f.ToString.Contains("DVO_IMP_") Then + ' Try + ' IO.File.Delete(f) + ' Catch ex As Exception + ' End Try + ' End If + 'Next + + Dim Dateiname = "DVO_IMP_" & Now.ToString("ddMMyyyy_HHmm") & ".txt" + file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15")) + + file.WriteLine(genBetreibsstammSatz(Geschaeftsjahr)) + If boolKunden Then + '----------------- STAMMDATEN ----------------- + Dim dt_Stamm As DataTable = getStammdaten() + If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then + initKDNr(dt_Stamm) + For Each r In dt_Stamm.Rows + file.WriteLine(getPersonenKto(r)) + Next + bool_DatenVorhanden = True + End If + updateFibu() ' UPDATE FiBuSchnittstelle --> 0 + + '----------------- STAMMDATEN LG ----------------- + Dim dt_StammLG As DataTable = getStammdatenLG() + If dt_StammLG IsNot Nothing AndAlso dt_StammLG.Rows.Count > 0 Then + initKDNrLG(dt_StammLG) + For Each r In dt_StammLG.Rows + file.WriteLine(getPersonenKto(r)) + Next + bool_DatenVorhanden = True + End If + updateFibuLG() ' UPDATE FiBuSchnittstelleLG --> 0 + '---------------------------------- + End If + + + '----------------- Buchungssätze ----------------- + If boolBuchungen Then + TrdInvoice_FUNCTIONS.TrdinSchreiben(20) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX ) + Dim dt_Buchungen As DataTable = getBuchungen(20) + If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then + Try + ' initKDNr(dt_Buchungen) + Dim SummeBuchungen As Double = 0 + file.WriteLine(genBuchungenBeginn(Geschaeftsjahr)) + For Each r In dt_Buchungen.Rows + file.WriteLine(genBuchungsZeile(r, SummeBuchungen, Geschaeftsjahr)) + Next + file.WriteLine(genBuchungenEnd(SummeBuchungen)) + bool_DatenVorhanden = True + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + 'Update Filename TrdIn + SQL.doSQL("update [tblTrdinInvoice] set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL") + 'SQL.doSQL("update [VERAG].[dbo].[tblTrdinInvoice] set TrdinDateiname='" & Dateiname & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL") --> Auf 12 Zeichen beschränkt! + End If + End If + '---------------------------------- + + file.Close() + + 'In Archiv sichern + If pathArchiv <> "" Then + If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv) + IO.File.Copy(path & Dateiname, pathArchiv & Dateiname) + End If + + If bool_DatenVorhanden Then + If OpenFile Then Process.Start(path & Dateiname) + Else + IO.File.Delete(path & Dateiname) + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + Shared Function FormatStringDVO(s As Object, Optional length As Integer = -1, Optional defaultValue As String = "") As String + If s Is Nothing Then Return defaultValue + If s Is DBNull.Value Then Return defaultValue + FormatStringDVO = s.ToString.Replace(",", "") + FormatStringDVO = s.ToString.Replace("""", "\22") + If length > 0 Then + If FormatStringDVO.Length > length Then FormatStringDVO = FormatStringDVO.Substring(0, length) + End If + End Function + + Shared Function getStammdaten() As DataTable + Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail] " + sqlStr &= " ,Ordnungsbegriff " + sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr " + sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr " + sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz " + sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel " + sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5501' " + sqlStr &= " Order by [Konto-Nr] " + Return SQL.loadDgvBySql(sqlStr, "FMZOLL") + End Function + Shared Function updateFibu() As DataTable + Dim sqlStr = " UPDATE Kunden " + sqlStr &= " SET FiBuSchnittstelle = '0' " + sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr " + sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr " + sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5501' " + Return SQL.loadDgvBySql(sqlStr, "FMZOLL") + End Function + Shared Function updateFibuLG() As DataTable + Dim sqlStr = " UPDATE tblKundenErweitert " + sqlStr &= " SET FiBuSchnittstelleLG = '0' " + sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr " + sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr " + sqlStr &= " WHERE FiBuSchnittstelleLG=1 AND Auswahl='A' AND FilialenNr='5501' " + Return SQL.loadDgvBySql(sqlStr, "FMZOLL") + End Function + + Shared Function getStammdatenLG() As DataTable + Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail] " + sqlStr &= " ,Ordnungsbegriff " + sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr " + sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr " + sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz " + sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel " + sqlStr &= " WHERE FiBuSchnittstelleLG=1 AND Auswahl='A' AND FilialenNr='5501' " + sqlStr &= " Order by [Konto-Nr] " + Return SQL.loadDgvBySql(sqlStr, "FMZOLL") + End Function + + Public Shared Function getPersonenKto(row As DataRow) As String + getPersonenKto = "10," + getPersonenKto &= fill0Stellen(row("Konto-Nr"), 7) & "," + getPersonenKto &= """" & FormatStringDVO(row("Ordnungsbegriff"), 39) & """," + getPersonenKto &= """" & FormatStringDVO(row("Ordnungsbegriff"), 11) & """," + getPersonenKto &= """" & FormatStringDVO(row("UST-Id-Nummer")) & """," + If IsDate(row("UID-Datum")) Then + getPersonenKto &= """" & CDate(row("UID-Datum")).ToString("ddMMyyyy") & """," + Else + getPersonenKto &= "," + End If + getPersonenKto &= "," + getPersonenKto &= """Firma""," + getPersonenKto &= """" & FormatStringDVO(row("Name")) & """," + getPersonenKto &= """" & FormatStringDVO(row("Name2")) & """," + getPersonenKto &= """""," + getPersonenKto &= """""," + getPersonenKto &= """" & FormatStringDVO(row("Strasse")) & """," + getPersonenKto &= """" & cProgramFunctions.getISO2Land(FormatStringDVO(row("LandKz"))) & """," + getPersonenKto &= """" & FormatStringDVO(row("PLZ")) & """," + getPersonenKto &= """" & FormatStringDVO(row("Ort")) & """," + getPersonenKto &= """" & row("BLZ") & """," + getPersonenKto &= """" & row("KTO") & """," + getPersonenKto &= row("ZZiel") & "," + getPersonenKto &= "0," + getPersonenKto &= "," 'getPersonenKto &= FormatStringDVO(row("Zahlungsziel2"),, 0) & "," + getPersonenKto &= "," 'getPersonenKto &= "0," + getPersonenKto &= "," 'getPersonenKto &= FormatStringDVO(row("Zahlungsziel3"),, 0) & "," + getPersonenKto &= "," 'getPersonenKto &= "0," + + getPersonenKto &= "0," + getPersonenKto &= """""," 'IBAN + getPersonenKto &= """""," 'BIC + getPersonenKto &= """""," 'Bankeinzug + getPersonenKto &= """""," 'Prüfdatum2 + getPersonenKto &= """""," 'ISOCOde + getPersonenKto &= """""," 'Nicht In Zahlungsvorschläge aufnehemn + getPersonenKto &= """""," 'Kundendaten + getPersonenKto &= """""," 'Datum Einzugsermächtigung + getPersonenKto &= """""," 'Mandatsref + getPersonenKto &= """" & FormatStringDVO(row("E-Mail")) & """" 'e-Mail + + End Function + + + + Shared Function getBuchungen(Firma_ID As Integer) As DataTable + + Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer,min(Speditionsbuch) as Speditionsbuch ,min(FilialenNr) as FilialenNr,min(AbfertigungsNr) as AbfertigungsNr,min(UnterNr) as UnterNr,min(Abfertigungsdatum) as Abfertigungsdatum,min(BelegartenNr) as BelegartenNr + ,min(KundenNrZentrale) as [KundenNrZentrale],min(RechnungsKundenNr) as RechnungsKundenNr,min(RechnungsLandKz) as RechnungsLandKz,min(RechnungsUstIdKz) as RechnungsUstIdKz,min(RechnungsUstIdNr) as RechnungsUstIdNr + ,min(Lastschrift+0) as Lastschrift,min(Steuerschlüssel) as Steuerschlüssel,min([Steuersatz %]) as Steuersatz,min(WährungLokal) as WährungLokal,min(SteuerbetragLokal) as SteuerbetragLokal,min(RechnungsbetragLokal) as RechnungsbetragLokal + ,min(WährungFremd) as WährungFremd,min(SteuerbetragFremd) as SteuerbetragFremd,min(RechnungsbetragFremd) as RechnungsbetragFremd,min(TrdinDateiname) as TrdinDateiname,min(Abgleich_op_debitor+0) as Abgleich_op_debitor + ,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID ,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal + ,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten + ,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext + FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer + WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname Is Null + group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig + ORDER BY Rechnungsdatum, Rechnungsnummer " + ' --and IVO.Rechnungsnummer=19400002 + Return SQL.loadDgvBySql(sqlStr, "FMZOLL") + + End Function + Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer) As String + genBuchungsZeile = "110," + genBuchungsZeile &= fill0Stellen(initKDNr2(row("KundenNrZentrale")), 7) & "," + genBuchungsZeile &= fill0Stellen(row("Sachkonto"), 6) & "," + genBuchungsZeile &= """" & CDate(row("Rechnungsdatum")).ToString("ddMMyyyy") & """," + genBuchungsZeile &= """" & FormatStringDVO(row("Rechnungsnummer")) & """," + genBuchungsZeile &= """" & FormatStringDVO(row("Rechnungsnummer")) & """," + genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd"))) & "," + genBuchungsZeile &= getSteuercode(row) & "," + genBuchungsZeile &= """""," ' genBuchungsZeile &= """" & cProgramFunctions.getISO2Land(FormatStringDVO(row("RechnungsLandKz"))) & """," + Dim steuerbetragLokal As Double = 0 + If CBool(row("Steuerpflichtig")) Then + steuerbetragLokal = CDbl((getDbl2(row("SteuerpflichtigerBetragLokal")) * getDbl2(row("Steuersatz")))) + steuerbetragLokal += CDbl((getDbl2(row("SteuerpflichtigerBetragFremd")) * getDbl2(row("Steuersatz")))) + End If + If steuerbetragLokal < 0 Then steuerbetragLokal = steuerbetragLokal * -1 + genBuchungsZeile &= "" & If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "") & "," + genBuchungsZeile &= """" & FormatStringDVO(FormatStringDVO(row("RechnungsUstIdKz")) & FormatStringDVO(row("RechnungsUstIdNr")), 15) & """," + genBuchungsZeile &= "1," ' Kostenstelle + genBuchungsZeile &= """""," ' Fremdwährung + genBuchungsZeile &= "," ' Fremdwährung-Betrag + genBuchungsZeile &= """" & FormatStringDVO(row("Buchungstext")) & """," ' Text + genBuchungsZeile &= If(row("BelegartenNr") = "70", """R"",", """G"",") ' Rg/GS 70=Rechnung + genBuchungsZeile &= "," ' Fäll-Tage1 + genBuchungsZeile &= "," ' Fäll-% 1 + genBuchungsZeile &= "," ' Fäll-Tage2 + genBuchungsZeile &= "," ' Fäll-% 2 + genBuchungsZeile &= "," ' Fäll-Tage3 + genBuchungsZeile &= "," ' Fäll-% 3 + genBuchungsZeile &= """""," ' Storno --> S=Storno + genBuchungsZeile &= "," ' Kurs + genBuchungsZeile &= Geschäftsjahr & "," ' GJ + genBuchungsZeile &= """""," ' ISO + genBuchungsZeile &= """""," ' DL + genBuchungsZeile &= """""," ' Imp,Exp + genBuchungsZeile &= """""," ' Barcode + genBuchungsZeile &= "," ' DocuWare + genBuchungsZeile &= "," ' Nova + genBuchungsZeile &= FormatStringDVO(row("Lastschrift")) & "," ' Bankeinzug 0/1 + '... aus ... + SummeBuchungen += getDbl(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal"))) + End Function + Shared Sub initKDNr(ByRef dt As DataTable) + For Each r In dt.Rows + If IsNumeric(r("Konto-Nr")) AndAlso CInt(r("Konto-Nr")) > 1000000 Then r("Konto-Nr") = (CInt(r("Konto-Nr")) - 1000000) + 200000 + ' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000) + Next + End Sub + Shared Sub initKDNrLG(ByRef dt As DataTable) + For Each r In dt.Rows + If IsNumeric(r("Konto-Nr")) AndAlso CInt(r("Konto-Nr")) > 1000000 Then r("Konto-Nr") = (CInt(r("Konto-Nr")) - 1000000) + 500000 + ' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000) + Next + End Sub + Shared Function initKDNr2(ktoNr As String) As String + If IsNumeric(ktoNr) AndAlso CInt(ktoNr) > 1000000 Then ktoNr = (CInt(ktoNr) - 1000000) + 200000 + Return ktoNr + End Function + ' Trdin=false + + Shared Function getSteuercode(r As DataRow) As Double + Select Case r("Sachkonto") + Case "3550", "3553", "3558" + Return "999" + Case Else + + If CBool(r("Steuerpflichtig")) Then + Return "320" + Else + If (r("RechnungsLandKz")) = "A" Or (r("RechnungsLandKz")) = "AT" Then + Return "999" 'Steuerpflichtig und AT + Else + If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then + Return "969" ' EU-LAND + Else + Return "973" ' Drittland + End If + End If + End If + + End Select + Return "" + + End Function + + + + Shared Function getDbl(o As Object) As Double + Try + If o Is Nothing Then Return 0 + If o Is DBNull.Value Then Return 0 + Return CDbl(o) + Catch ex As Exception + Return 0 + End Try + End Function + Shared Function getDbl2(o As Object) As Double + Try + If o Is Nothing Then Return 0 + If o Is DBNull.Value Then Return 0 + Return CDbl(o.ToString.Replace(".", ",")) + Catch ex As Exception + Return 0 + End Try + End Function + + + Shared Function getDbltr(o As Object) As String + Try + If o Is Nothing Then Return 0 + If o Is DBNull.Value Then Return 0 + Return CDbl(o).ToString("N2").Replace(".", "").Replace(",", ".") + Catch ex As Exception + Return 0 + End Try + End Function + + Shared Function fill0Stellen(i As Object, l As Integer) As String + If i Is DBNull.Value Then i = "" + If i Is Nothing Then i = "" + While i.ToString.Length < l + i &= "0" + End While + Return i + End Function + + +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cJsonPost.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cJsonPost.vb new file mode 100644 index 0000000..7e73476 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cJsonPost.vb @@ -0,0 +1,43 @@ + +Imports Newtonsoft.Json +Imports System.Net +Imports System.Text + + +Public Class cJsonPost + + + ' Dim jsonPost As New JsonPost("http://192.168.254.104:8000") + ' Dim dictData As New Dictionary(Of String, Object) + 'dictData.Add("test_key", "test_value") + 'jsonPost.postData(dictData) + + + + Private urlToPost As String = "" + + Public Sub New(ByVal urlToPost As String) + Me.urlToPost = urlToPost + End Sub + + Public Function postData(ByVal dictData As Dictionary(Of String, Object)) As Boolean + Dim webClient As New WebClient() + Dim resByte As Byte() + Dim resString As String + Dim reqString() As Byte + + Try + webClient.Headers("content-type") = "application/json" + reqString = Encoding.Default.GetBytes(JsonConvert.SerializeObject(dictData, Formatting.Indented)) + resByte = webClient.UploadData(Me.urlToPost, "post", reqString) + resString = Encoding.Default.GetString(resByte) + Console.WriteLine(resString) + webClient.Dispose() + Return True + Catch ex As Exception + Console.WriteLine(ex.Message) + End Try + Return False + End Function + + End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cNCTS_Helper.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cNCTS_Helper.vb new file mode 100644 index 0000000..865a4e9 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cNCTS_Helper.vb @@ -0,0 +1,112 @@ +Public Class cNCTS_Helper + + + Shared Function getXLS_FremdBRG(_COMPANY As String, _BRG_TEXT As String, _BRG_VALUE As String, datVon As Date, datBis As Date, _EZOLL As Boolean) As String 'MyComboBox1._value ,cboBRG.TEXT,_BRG_VALUE,datVon.Value ,datBis.Value.ToShortDateString ,cbxEZollDaten.Checked + Try + Dim SQL As New SQL + + ' lblErr.Visible = False + If _BRG_VALUE = "" Then Return "" + + Dim where = "" + Select Case _COMPANY + Case "IMEX" : where = " and ncts_firma = 'IMEX' " + Case "UNISPED" : where = " and ncts_firma = 'UNISPED' " + Case "VERAG/ATILLA" : where = " and (ncts_firma is null OR ncts_firma IN ('VERAG','ATILLA','DURMAZ','FRONTOFFICE')) " + End Select + + + 'DAKOSY: + Dim sqlatr = " SELECT (SELECT TOP 1 CONVERT(varchar, [dySt_ergZeitpunkt] ,104 ) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=ncts_dyaAnmID AND [dySt_status] = 50 ) as Datum, ncts_Befoerderungsmittel_KennzeichenAbgang as Kennzeichen, isnull(ncts_MRN,'') as MRN, ncts_SumA_Befoerderer_Land as Land, nctsSA_AbgabenBetrag as GarantieBetrag, ncts_SumA_Befoerderer_Name as Firma " & + " " & If(_BRG_TEXT.Contains("TOBB") Or _BRG_TEXT.Contains("OREGON"), ", isnull(ncts_BestimmungsstelleDienststellennummer,'') as Bestimmungsstelle ", "") & " " & + " ,ncts_ObjectName as Bezugsnummer " & + "FROM [tblDakosy_NCTSOut] INNER JOIN [tblDakosy_NCTSOut_Sicherheitsangaben] on ncts_Id=[nctsSA_NctsId] " + + sqlatr &= " WHERE nctsSA_GRN IN (" & _BRG_VALUE & ") and ncts_Status between 50 and 60 " ' CONVERT(date, ncts_Trans_DatumZeit ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "'" + sqlatr &= where + sqlatr &= " AND (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=ncts_dyaAnmID AND [dySt_status] = 50 AND CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "')>0 " + Dim dt As DataTable = SQL.loadDgvBySql(sqlatr, "FMZOLL", 120) + + + 'Bei IMEX kein E-ZOLL + If _COMPANY = "VERAG/ATILLA" Then + If _EZOLL Then + + 'EZOLL: + sqlatr = " Select TOP 100 AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) as Land, cast(GarantieWert as Decimal(17,2)) as GarantieBetrag,(SELECT [Na] FROM [ezoll].[dbo].[zsAnmCarrTra] where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID) as Firma " + sqlatr &= " " & If(_BRG_TEXT.Contains("TOBB") Or _BRG_TEXT.Contains("OREGON"), ", isnull(Bestimmungszollstelle,'') as Bestimmungsstelle ", "") & " " + sqlatr &= " ,LRN as Bezugsnummer " + sqlatr &= " FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung " + sqlatr &= " WHERE GRN IN (" & _BRG_VALUE & ") and cast( AnmeldungsDatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' " + + Dim dt2 As DataTable = SQL.loadDgvBySql(sqlatr, "EZOLL", 120) + + If dt Is Nothing Then + dt = dt2 + Else + 'zusammenführen: + If dt2 IsNot Nothing Then + dt.Merge(dt2, True, MissingSchemaAction.Add) + + 'For Each r As DataRow In dt2.Rows + ' dt.Rows.Add(r) + 'Next + End If + End If + + End If + End If + + + If dt Is Nothing OrElse dt.Rows.Count = 0 Then Return "NO_RESULT" 'lblErr.Visible = True : + getEmptyFraechter(dt) + dt.Columns.Remove("Bezugsnummer") + Dim optfileName = "NCTS_TOBB_" & datVon.ToShortDateString & "-" & datBis.ToShortDateString + Return cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1)}, , "Bürgschaftsbuchungen " & _BRG_TEXT, "Datum: " & Now.ToShortDateString, False, optfileName) + + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return "" + End Try + End Function + + Shared Sub getEmptyFraechter(ByRef dt As DataTable) + Dim SQL As New SQL + If dt IsNot Nothing Then + For Each r In dt.Rows + Try + If r("Firma") Is DBNull.Value OrElse r("Firma") = "" Then + Dim Bezugsnummer = If(r("Bezugsnummer"), "") + Dim FirmaTmp = "" + Dim FirmaNat = "" + Dim FirmaTmpKdNR = SQL.DLookup("isnull([FrachtführerKundenNr],'')", "Speditionsbuch", " ([AtlasBezNrEZA]='" & Bezugsnummer & "' OR [AtlasBezNrNCTS]='" & Bezugsnummer & "')", "FMZOLL") + If IsNumeric(FirmaTmpKdNR) Then + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(FirmaTmpKdNR) + If AD.hasEntry Then + FirmaTmp = AD.Name_1 + FirmaNat = AD.LandKz + End If + Else + FirmaTmp = SQL.DLookup("isnull([Frachtführer],'')", "Speditionsbuch", " ([AtlasBezNrEZA]='" & Bezugsnummer & "' OR [AtlasBezNrNCTS]='" & Bezugsnummer & "')", "FMZOLL") + End If + + If FirmaTmp.ToString.Contains(";") Then FirmaTmp = FirmaTmp.ToString.Split(";")(0) + + If FirmaTmp.Length > 30 Then + FirmaTmp = FirmaTmp.ToString.Substring(0, 30) + End If + r("Firma") = FirmaTmp + r("Land") = FirmaNat + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Next + End If + + + End Sub + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb new file mode 100644 index 0000000..42bfbf1 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb @@ -0,0 +1,450 @@ +Public Class cSyska_Interface + ' Public Function fktFiBuDebitoren(ByVal intFirma_ID As Integer) As Boolean + + ' Dim dq As DAO.QueryDef + ' Dim rstACC As DAO.Recordset + + ' Dim cnnFIBU2 As ADODB.Connection + ' Dim rstSQL As ADODB.Recordset + + ' Dim DateiName As String + ' Dim DateiNr As Integer + ' Dim fDateiOpen As Boolean + + ' Dim strSQL As String + ' Dim lngFortschritt As Long + + '2060 On Error GoTo PROC_Error + + '2070 fktFiBuDebitoren = False + '2080 Call Logbucheintrag(0, 0, "basFiBuSyska.fktFiBuDebitoren(" & intFirma_ID & ")", 0, "gestartet") + '2090 DoCmd.Hourglass True + + ' ' Access-Datenbank lesen. + '2100 Set dq = dbs.QueryDefs("qryFiBuDebitoren") + '2110 dq.Parameters("[parFirma_ID]") = intFirma_ID + '2120 Set rstACC = dq.OpenRecordset(dbOpenSnapshot) + '2130 If Not rstACC.EOF Then + + ' ' Verbindung zur SQL-Server-Datenbank herstellen. + '2140 Set cnnFIBU2 = New ADODB.Connection + '2150 cnnFIBU2.ConnectionTimeout = 120 + '2160 cnnFIBU2.Open "File Name=F:\FMZoll\FIBU2.UDL" + '2170 Set rstSQL = New ADODB.Recordset + + ' ' Information über den Beginn der Verarbeitung anzeigen. + '2180 lngFortschritt = 0 + '2190 rstACC.MoveLast + '2200 Call SysCmd(acSysCmdInitMeter, "FIBU2 Debitoren ", rstACC.RecordCount) + '2210 rstACC.MoveFirst + + '2220 Do Until rstACC.EOF + + ' ' Information über den Fortschritt der Verarbeitung anzeigen. + '2230 lngFortschritt = lngFortschritt + 1 + '2240 Call SysCmd(acSysCmdUpdateMeter, lngFortschritt) + '2250 If lngFortschritt Mod 10 = 0 Then DoEvents + + ' ' SQL-Server-Datenbank lesen. + '2260 strSQL = "SELECT [i_konto]" & _ + ' " FROM [FIBU2].[dbo].[fibu_konto]" & _ + ' " WHERE [i_firm_refid] = " & intFirma_ID & _ + ' " AND [c_kontoart] = 'DE'" & _ + ' " AND [i_konto] = " & rstACC!KundenNrZentrale + '2270 rstSQL.Open strSQL, cnnFIBU2, adOpenStatic, adLockReadOnly, adCmdText + '2280 If rstSQL.EOF Then + + ' ' Datei zur Aufnahme der Schnittstellendaten anlegen. + '2290 If Not fDateiOpen Then + '2300 DateiName = "F:\FMZoll\FiBu\Syska\" & intFirma_ID & "\DEBI_" & Format(Now(), "yymmddhhmmss") & ".txt" + '2310 DateiNr = FreeFile + '2320 Forms![Daten-Transfer]!strInformation = DateiName + '2330 Open DateiName For Output As DateiNr + '2340 Forms![Daten-Transfer]!strInformation = "" + '2350 fDateiOpen = True + '2360 End If + + ' ' Schnittstellendaten bereitstellen. + '2370 Debitorensatz.FiBuKontonummer = rstACC!KundenNrZentrale + '2380 Debitorensatz.FiBuKürzel = IIf(IsNull(rstACC!Ordnungsbegriff), rstACC!KundenNrZentrale, Left(Left(rstACC!Ordnungsbegriff, 2) & rstACC!KundenNrZentrale, 8)) + '2390 Debitorensatz.FiBuName = IIf(IsNull(rstACC![Name 1]), Left(rstACC!Ordnungsbegriff, 40), Left(rstACC![Name 1], 40)) + '2400 Debitorensatz.FiBuZusatz = IIf(IsNull(rstACC![Name 2]), " ", Left(rstACC![Name 2], 40)) + '2410 Debitorensatz.FiBuStraße = IIf(IsNull(rstACC!Straße), " ", Left(rstACC!Straße, 30)) + '2420 Debitorensatz.FiBuPLZ = IIf(IsNull(rstACC!PLZ), " ", Right(rstACC!PLZ, 6)) + '2430 Debitorensatz.FiBuOrt = IIf(IsNull(rstACC!Ort), " ", Left(rstACC!Ort, 30)) + ' 'Für das neue Buchhaltungsprogramm muss das LandKz in ISO2 angegeben werden. + ' 'Debitorensatz.FiBuLand = IIf(IsNull(rstACC!LandKz), " ", Left(rstACC!LandKz, 3)) 'bis 30.11.2010 + '2440 Debitorensatz.FiBuLand = IIf(IsNull(rstACC!LandKz), " ", Nz(DLookup("[LandKzISO2]", "qryStaaten", "[LandKz] = '" & rstACC!LandKz & "'"), rstACC!LandKz)) 'ab 01.12.2010 + '2450 Debitorensatz.FiBuEröffnungsdatum = IIf(IsNull(rstACC![Eingegeben am]), " ", DateValue(rstACC![Eingegeben am])) + '2460 If rstACC!Lastschrift = True Then + '2470 Debitorensatz.FiBuBLZ = IIf(IsNull(rstACC!BLZ), " ", Left(rstACC!BLZ, 8)) + '2480 Debitorensatz.FiBuBankkonto = IIf(IsNull(rstACC!KTO), " ", Left(rstACC!KTO, 10)) + '2490 Else + '2500 Debitorensatz.FiBuBLZ = " " + '2510 Debitorensatz.FiBuBankkonto = " " + '2520 End If + '2530 Debitorensatz.FiBuSkontotage = "00" + '2540 Debitorensatz.FiBuZahlungstage = "10" + '2550 Debitorensatz.FiBuSkontoprozent = "00,00" + '2560 Debitorensatz.FiBuMahnkennzahl = "01" + '2570 Debitorensatz.FiBuIDNummer = IIf(IsNull(rstACC!UstIdNr), " ", IIf(IsNull(rstACC!UstIdKz), Left(rstACC!UstIdNr, 15), Left(rstACC!UstIdKz & rstACC!UstIdNr, 15))) + '2580 Debitorensatz.FiBuWährung = IIf(IsNull(rstACC!Währungscode), " ", Left(rstACC!Währungscode, 4)) + '2590 Debitorensatz.FiBuAnsprechpartner = IIf(IsNull(rstACC!Ansprechpartner), " ", IIf(IsNull(rstACC!Anrede), Left(rstACC!Ansprechpartner, 40), Left(Trim(rstACC!Anrede & " " & rstACC!Ansprechpartner), 40))) + '2600 Debitorensatz.FiBuTelefon = IIf(IsNull(rstACC!Telefon), " ", Left(rstACC!Telefon, 20)) + '2610 Debitorensatz.FiBuFax = IIf(IsNull(rstACC!Telefax), " ", Left(rstACC!Telefax, 20)) + '2620 Debitorensatz.FiBuEMailAdresse = IIf(IsNull(rstACC![E-Mail]), " ", Left(rstACC![E-Mail], 40)) + '2630 Debitorensatz.FiBuBemerkung = IIf(rstACC!KundenNr = rstACC!KundenNrZentrale, " ", rstACC!KundenNr) + '2640 If IsNull(rstACC!LandKz) Or rstACC!LandKz = " " Or rstACC!LandKz = "A" Then + '2650 Debitorensatz.FiBuGegenkontonummer = "4000" ' Erl. 20% + '2660 Debitorensatz.FiBuGegenkontonummer2 = "4000" ' Erl. 20% + '2670 Else + '2680 If DLookup(Nz("[MitgliedslandEU]", False), "[Währungstabelle]", "[LandKz]='" & rstACC!LandKz & "'") Then + '2690 Debitorensatz.FiBuGegenkontonummer = "4020" ' Erl. 0% EU + '2700 Debitorensatz.FiBuGegenkontonummer2 = "4020" ' Erl. 0% EU + '2710 Else + '2720 Debitorensatz.FiBuGegenkontonummer = "4021" ' Erl. 0% 3.Land + '2730 Debitorensatz.FiBuGegenkontonummer2 = "4021" ' Erl. 0% 3.Land + '2740 End If + '2750 End If + '2760 Debitorensatz.FiBuBankname = " " + '2770 Debitorensatz.FiBuLohnveredeler = " " + '2780 Debitorensatz.FiBuDurchbuchungskontonummer = " " + '2790 Debitorensatz.FiBuGeschäftsführer = " " + + ' ' Schnittstellendaten in Datei schreiben. + '2800 Print #DateiNr, Trim(Debitorensatz.FiBuKontonummer); Chr(9); + '2810 Print #DateiNr, Trim(Debitorensatz.FiBuKürzel); Chr(9); + '2820 Print #DateiNr, Trim(Debitorensatz.FiBuName); Chr(9); + '2830 Print #DateiNr, Trim(Debitorensatz.FiBuZusatz); Chr(9); + '2840 Print #DateiNr, Trim(Debitorensatz.FiBuStraße); Chr(9); + '2850 Print #DateiNr, Trim(Debitorensatz.FiBuPLZ); Chr(9); + '2860 Print #DateiNr, Trim(Debitorensatz.FiBuOrt); Chr(9); + '2870 Print #DateiNr, Trim(Debitorensatz.FiBuLand); Chr(9); + '2880 Print #DateiNr, Trim(Debitorensatz.FiBuEröffnungsdatum); Chr(9); + '2890 Print #DateiNr, Trim(Debitorensatz.FiBuGegenkontonummer); Chr(9); + '2900 Print #DateiNr, Trim(Debitorensatz.FiBuBankname); Chr(9); + '2910 Print #DateiNr, Trim(Debitorensatz.FiBuBLZ); Chr(9); + '2920 Print #DateiNr, Trim(Debitorensatz.FiBuBankkonto); Chr(9); + '2930 Print #DateiNr, Trim(Debitorensatz.FiBuSkontotage); Chr(9); + '2940 Print #DateiNr, Trim(Debitorensatz.FiBuZahlungstage); Chr(9); + '2950 Print #DateiNr, Trim(Debitorensatz.FiBuSkontoprozent); Chr(9); + '2960 Print #DateiNr, Trim(Debitorensatz.FiBuMahnkennzahl); Chr(9); + '2970 Print #DateiNr, Trim(Debitorensatz.FiBuIDNummer); Chr(9); + '2980 Print #DateiNr, Trim(Debitorensatz.FiBuWährung); Chr(9); + '2990 Print #DateiNr, Trim(Debitorensatz.FiBuLohnveredeler); Chr(9); + '3000 Print #DateiNr, Trim(Debitorensatz.FiBuDurchbuchungskontonummer); Chr(9); + '3010 Print #DateiNr, Trim(Debitorensatz.FiBuGegenkontonummer2); Chr(9); + '3020 Print #DateiNr, Trim(Debitorensatz.FiBuAnsprechpartner); Chr(9); + '3030 Print #DateiNr, Trim(Debitorensatz.FiBuGeschäftsführer); Chr(9); + '3040 Print #DateiNr, Trim(Debitorensatz.FiBuTelefon); Chr(9); + '3050 Print #DateiNr, Trim(Debitorensatz.FiBuFax); Chr(9); + '3060 Print #DateiNr, Trim(Debitorensatz.FiBuEMailAdresse); Chr(9); + '3070 Print #DateiNr, Trim(Debitorensatz.FiBuBemerkung); Chr(9) + + '3080 End If + '3090 rstSQL.Close + + ' ' Feld FiBuSchnittstelle in Tabelle Kunden ausschalten, nachdem die Schnittstellendaten bereitgestellt wurden. + '3100 dbs.Execute ("UPDATE Kunden SET Kunden.FiBuSchnittstelle = No WHERE (((Kunden.FiBuSchnittstelle)=Yes) AND ((Kunden.KundenNr)=" & rstACC!KundenNr & "));") + + '3110 rstACC.MoveNext + '3120 Loop + + '3130 Call SysCmd(acSysCmdRemoveMeter) + '3140 End If + '3150 rstACC.Close + '3160 Set rstACC = Nothing + + '3170 fktFiBuDebitoren = True + + 'PROC_Exit: + '3180 On Error Resume Next + ' ' Verbindung zur Schnittstellendatei trennen. + '3190 If fDateiOpen Then + '3200 Close DateiNr + '3210 fDateiOpen = False + '3220 End If + ' ' Verbindung zur SQL-Server-Datenbank trennen. + '3230 If Not rstSQL Is Nothing Then + '3240 If rstSQL.State = adStateOpen Then rstSQL.Close + '3250 Set rstSQL = Nothing + '3260 End If + '3270 If Not cnnFIBU2 Is Nothing Then + '3280 If cnnFIBU2.State = adStateOpen Then cnnFIBU2.Close + '3290 Set cnnFIBU2 = Nothing + '3300 End If + ' ' Verbindung zur Access-Datenbank trennen. + '3310 If Not rstACC Is Nothing Then + '3320 rstACC.Close + '3330 Set rstACC = Nothing + '3340 End If + '3350 DoCmd.Hourglass False + '3360 Exit Function + + 'PROC_Error: + '3370 DoCmd.Hourglass False + '3380 ErrNotify Err, "basFiBuSyska", "fktFiBuDebitoren", eNormalError + '3390 Resume PROC_Exit + + ' End Function + + + + + + ' Public Function fktFiBuBuchungen(ByVal intFirma_ID As Integer) + '100 On Error GoTo PROC_Error + + ' Dim wrk As DAO.Workspace + ' Dim db As DAO.Database + ' Dim rstInvoice As DAO.Recordset + ' Dim rstProduct As DAO.Recordset + ' Dim DateiName As String + ' Dim DateiNr As Integer + ' Dim fDateiOpen As Boolean + ' Dim lngFortschritt As Long + ' Dim fInTransaktion As Boolean + ' Dim curDifferenzbetrag As Currency + ' Dim curNettobetrag As Currency + ' Dim curSteuerbetrag As Currency + ' Dim curBruttobetrag As Currency + + '110 DoCmd.Hourglass True + '120 fInTransaktion = False + '130 fktFiBuBuchungen = False + + '140 Call Logbucheintrag(0, 0, "basFiBuSyska.fktFiBuBuchungen(" & intFirma_ID & ")", 0, "gestartet") + + '150 Set wrk = DBEngine.Workspaces(0) + '160 Set db = CurrentDb + + ' ' Transaktion starten + '170 wrk.BeginTrans + '180 fInTransaktion = True + + ' ' Invoice-Sätze lesen. + '190 Set rstInvoice = SPRecordsetMitParameter("dbo.spTrdinFiBuSelectInvoice", AktuelleVerbindungszeichenfolge(0), intFirma_ID) + '200 If Not rstInvoice.EOF Then + '210 DateiName = "F:\FMZoll\FiBu\Syska\" & intFirma_ID & "\BUBE_" & Format(Now(), "yymmddhhmmss") & ".txt" + '220 DateiNr = FreeFile ' Freie DateiNr + '230 Forms![Daten-Transfer]!strInformation = DateiName + '240 Open DateiName For Output As DateiNr ' Datei öffnen. + '250 Forms![Daten-Transfer]!strInformation = "" + '260 fDateiOpen = True + + ' ' Invoice-Sätze verarbeiten. + '270 rstInvoice.MoveLast + '280 RC = SysCmd(acSysCmdInitMeter, DateiName & " schreiben", rstInvoice.RecordCount) + '290 rstInvoice.MoveFirst + '300 lngFortschritt = 0 + '310 Do + '320 lngFortschritt = lngFortschritt + 1 + '330 RC = SysCmd(acSysCmdUpdateMeter, lngFortschritt) + + ' ' Buchungssatz Vorbelegung + '340 Buchungssatz.FiBuBuchungsart = "L" + '350 Buchungssatz.FiBuBelegdatum = Format(rstInvoice![RechnungsDatum], "dd.mm.yyyy") + '360 Buchungssatz.FiBuBelegnummer = Format(Right(rstInvoice![Rechnungsnummer], 8), "00000000") + '370 Buchungssatz.FiBuBuchungstext = Format(rstInvoice![FilialenNr], "0000") & "/" & Format(Right(rstInvoice![AbfertigungsNr], 8), "00000000") & "/" & Format(rstInvoice![UnterNr], "00") + '380 If IsNull(rstInvoice![WährungFremd]) Then + '390 Buchungssatz.FiBuWährung = rstInvoice![WährungLokal] + '400 curDifferenzbetrag = IIf(rstInvoice![RechnungsbetragLokal] < 0, 0 - rstInvoice![RechnungsbetragLokal], rstInvoice![RechnungsbetragLokal]) + '410 Else + '420 Buchungssatz.FiBuWährung = rstInvoice![WährungFremd] + '430 curDifferenzbetrag = IIf(rstInvoice![RechnungsbetragFremd] < 0, 0 - rstInvoice![RechnungsbetragFremd], rstInvoice![RechnungsbetragFremd]) + '440 End If + + ' ' Buchungssatz Rechnung (immer erste Buchungszeile) + '450 If rstInvoice![BelegartenNr] = RECHNUNG Then + '460 Buchungssatz.FiBuSollkontonummer = rstInvoice![KundenNrZentrale] + '470 Buchungssatz.FiBuHabenkontonummer = "0" + '480 If IsNull(rstInvoice![WährungFremd]) Then + '490 Buchungssatz.FiBuBruttobetrag = Format(rstInvoice![RechnungsbetragLokal], "########0.00") + '500 Else + '510 Buchungssatz.FiBuBruttobetrag = Format(rstInvoice![RechnungsbetragFremd], "########0.00") + '520 End If + '530 Buchungssatz.FiBuSteuersatz = " " + '540 Buchungssatz.FiBuSteuerbetrag = " " + '550 Buchungssatz.FiBuEigenbruttobetrag = Format(rstInvoice![RechnungsbetragLokal], "########0.00") + '560 Print #DateiNr, Trim(Buchungssatz.FiBuBuchungsart); Chr(9); + '570 Print #DateiNr, Trim(Buchungssatz.FiBuBelegdatum); Chr(9); + '580 Print #DateiNr, Trim(Buchungssatz.FiBuBelegnummer); Chr(9); + '590 Print #DateiNr, Trim(Buchungssatz.FiBuSollkontonummer); Chr(9); + '600 Print #DateiNr, Trim(Buchungssatz.FiBuHabenkontonummer); Chr(9); + '610 Print #DateiNr, Trim(Buchungssatz.FiBuBuchungstext); Chr(9); + '620 Print #DateiNr, Trim(Buchungssatz.FiBuBruttobetrag); Chr(9); + '630 Print #DateiNr, Trim(Buchungssatz.FiBuSteuersatz); Chr(9); + '640 Print #DateiNr, Trim(Buchungssatz.FiBuSteuerbetrag); Chr(9); + '650 Print #DateiNr, Trim(Buchungssatz.FiBuWährung); Chr(9); + '660 Print #DateiNr, Trim(Buchungssatz.FiBuEigenbruttobetrag) + '670 End If + + ' ' Product-Sätze lesen. + '680 Set rstProduct = SPRecordsetMitParameter("dbo.spTrdinFiBuSelectProduct", AktuelleVerbindungszeichenfolge(0), rstInvoice![RechnungsDatum], rstInvoice![Rechnungsnummer]) + '690 Do Until rstProduct.EOF + ' ' Buchungssatz Splittbuchungen + '700 Select Case rstInvoice![BelegartenNr] + ' Case RECHNUNG + '710 Buchungssatz.FiBuSollkontonummer = "0" + '720 Buchungssatz.FiBuHabenkontonummer = Nz(rstProduct![Sachkonto], " ") + '730 If IsNull(rstInvoice![WährungFremd]) Then + '740 curNettobetrag = rstProduct![BetragLokal] + '750 Else + '760 curNettobetrag = rstProduct![BetragFremd] + '770 End If + '780 Case GUTSCHRIFT + '790 Buchungssatz.FiBuSollkontonummer = Nz(rstProduct![Sachkonto], " ") + '800 Buchungssatz.FiBuHabenkontonummer = "0" + '810 If IsNull(rstInvoice![WährungFremd]) Then + '820 curNettobetrag = 0 - rstProduct![BetragLokal] + '830 Else + '840 curNettobetrag = 0 - rstProduct![BetragFremd] + '850 End If + '860 End Select + '870 Buchungssatz.FiBuBuchungstext = Nz(rstProduct![Buchungstext], "") + '880 If rstProduct![steuerpflichtig] Then + '890 curSteuerbetrag = CLng(curNettobetrag * rstInvoice![Steuersatz %] * 100) / 100 + '900 curBruttobetrag = curNettobetrag + curSteuerbetrag + '910 curDifferenzbetrag = curDifferenzbetrag - curBruttobetrag + '920 Buchungssatz.FiBuBruttobetrag = Format(curBruttobetrag, "########0.00") + '930 Buchungssatz.FiBuSteuersatz = Format(rstInvoice![Steuersatz %] * 100, "00.00") + ' ' Die folgende Zeile führt zu Buchungsfehler bei Fremdwährung, + ' ' Buchungssatz.FiBuSteuerbetrag = Format(curSteuerbetrag, "########0.00") + ' ' deshalb nur Steuerprozent und keinen Steuerbetrag übergeben. + '940 Buchungssatz.FiBuSteuerbetrag = " " + '950 Else + '960 curBruttobetrag = curNettobetrag + '970 curDifferenzbetrag = curDifferenzbetrag - curBruttobetrag + '980 Buchungssatz.FiBuBruttobetrag = Format(curBruttobetrag, "########0.00") + '990 Buchungssatz.FiBuSteuersatz = "00,00" + '1000 Buchungssatz.FiBuSteuerbetrag = " " + '1010 End If + '1020 If IsNull(rstInvoice![WährungFremd]) Then + '1030 Buchungssatz.FiBuEigenbruttobetrag = Format(curBruttobetrag, "########0.00") + '1040 Else + '1050 Buchungssatz.FiBuEigenbruttobetrag = Format(fktEuro(curBruttobetrag, rstInvoice![WährungFremd], "EUR"), "########0.00") + '1060 End If + '1070 Print #DateiNr, Trim(Buchungssatz.FiBuBuchungsart); Chr(9); + '1080 Print #DateiNr, Trim(Buchungssatz.FiBuBelegdatum); Chr(9); + '1090 Print #DateiNr, Trim(Buchungssatz.FiBuBelegnummer); Chr(9); + '1100 Print #DateiNr, Trim(Buchungssatz.FiBuSollkontonummer); Chr(9); + '1110 Print #DateiNr, Trim(Buchungssatz.FiBuHabenkontonummer); Chr(9); + '1120 Print #DateiNr, Trim(Buchungssatz.FiBuBuchungstext); Chr(9); + '1130 Print #DateiNr, Trim(Buchungssatz.FiBuBruttobetrag); Chr(9); + '1140 Print #DateiNr, Trim(Buchungssatz.FiBuSteuersatz); Chr(9); + '1150 Print #DateiNr, Trim(Buchungssatz.FiBuSteuerbetrag); Chr(9); + '1160 Print #DateiNr, Trim(Buchungssatz.FiBuWährung); Chr(9); + '1170 Print #DateiNr, Trim(Buchungssatz.FiBuEigenbruttobetrag) + '1180 rstProduct.MoveNext + '1190 Loop + '1200 rstProduct.Close + + ' ' Buchungssatz Steuerdifferenz + '1210 If curDifferenzbetrag <> 0 Then + '1220 Select Case rstInvoice![BelegartenNr] + ' Case RECHNUNG + '1230 Buchungssatz.FiBuSollkontonummer = "0" + '1240 Buchungssatz.FiBuHabenkontonummer = "8490" + '1250 Case GUTSCHRIFT + '1260 Buchungssatz.FiBuSollkontonummer = "8490" + '1270 Buchungssatz.FiBuHabenkontonummer = "0" + '1280 End Select + '1290 Buchungssatz.FiBuBuchungstext = Format(rstInvoice![FilialenNr], "0000") & "/" & Format(Right(rstInvoice![AbfertigungsNr], 8), "00000000") & "/" & Format(rstInvoice![UnterNr], "00") & "/Steuerdiff." + '1300 Buchungssatz.FiBuBruttobetrag = Format(curDifferenzbetrag, "########0.00") + '1310 Buchungssatz.FiBuSteuersatz = "00,00" + '1320 Buchungssatz.FiBuSteuerbetrag = " " + '1330 If IsNull(rstInvoice![WährungFremd]) Then + '1340 Buchungssatz.FiBuEigenbruttobetrag = Format(curDifferenzbetrag, "########0.00") + '1350 Else + '1360 Buchungssatz.FiBuEigenbruttobetrag = Format(fktEuro(curDifferenzbetrag, rstInvoice![WährungFremd], "EUR"), "########0.00") + '1370 End If + '1380 Print #DateiNr, Trim(Buchungssatz.FiBuBuchungsart); Chr(9); + '1390 Print #DateiNr, Trim(Buchungssatz.FiBuBelegdatum); Chr(9); + '1400 Print #DateiNr, Trim(Buchungssatz.FiBuBelegnummer); Chr(9); + '1410 Print #DateiNr, Trim(Buchungssatz.FiBuSollkontonummer); Chr(9); + '1420 Print #DateiNr, Trim(Buchungssatz.FiBuHabenkontonummer); Chr(9); + '1430 Print #DateiNr, Trim(Buchungssatz.FiBuBuchungstext); Chr(9); + '1440 Print #DateiNr, Trim(Buchungssatz.FiBuBruttobetrag); Chr(9); + '1450 Print #DateiNr, Trim(Buchungssatz.FiBuSteuersatz); Chr(9); + '1460 Print #DateiNr, Trim(Buchungssatz.FiBuSteuerbetrag); Chr(9); + '1470 Print #DateiNr, Trim(Buchungssatz.FiBuWährung); Chr(9); + '1480 Print #DateiNr, Trim(Buchungssatz.FiBuEigenbruttobetrag) + '1490 End If + + ' ' Buchungssatz Gutschrift (immer letzte Buchungszeile) + '1500 If rstInvoice![BelegartenNr] = GUTSCHRIFT Then + '1510 Buchungssatz.FiBuSollkontonummer = "0" + '1520 Buchungssatz.FiBuHabenkontonummer = rstInvoice![KundenNrZentrale] + '1530 Buchungssatz.FiBuBuchungstext = Format(rstInvoice![FilialenNr], "0000") & "/" & Format(Right(rstInvoice![AbfertigungsNr], 8), "00000000") & "/" & Format(rstInvoice![UnterNr], "00") + '1540 If IsNull(rstInvoice![WährungFremd]) Then + '1550 Buchungssatz.FiBuBruttobetrag = Format(0 - rstInvoice![RechnungsbetragLokal], "########0.00") + '1560 Else + '1570 Buchungssatz.FiBuBruttobetrag = Format(0 - rstInvoice![RechnungsbetragFremd], "########0.00") + '1580 End If + '1590 Buchungssatz.FiBuSteuersatz = " " + '1600 Buchungssatz.FiBuSteuerbetrag = " " + '1610 Buchungssatz.FiBuEigenbruttobetrag = Format(0 - rstInvoice![RechnungsbetragLokal], "########0.00") + '1620 Print #DateiNr, Trim(Buchungssatz.FiBuBuchungsart); Chr(9); + '1630 Print #DateiNr, Trim(Buchungssatz.FiBuBelegdatum); Chr(9); + '1640 Print #DateiNr, Trim(Buchungssatz.FiBuBelegnummer); Chr(9); + '1650 Print #DateiNr, Trim(Buchungssatz.FiBuSollkontonummer); Chr(9); + '1660 Print #DateiNr, Trim(Buchungssatz.FiBuHabenkontonummer); Chr(9); + '1670 Print #DateiNr, Trim(Buchungssatz.FiBuBuchungstext); Chr(9); + '1680 Print #DateiNr, Trim(Buchungssatz.FiBuBruttobetrag); Chr(9); + '1690 Print #DateiNr, Trim(Buchungssatz.FiBuSteuersatz); Chr(9); + '1700 Print #DateiNr, Trim(Buchungssatz.FiBuSteuerbetrag); Chr(9); + '1710 Print #DateiNr, Trim(Buchungssatz.FiBuWährung); Chr(9); + '1720 Print #DateiNr, Trim(Buchungssatz.FiBuEigenbruttobetrag) + '1730 End If + + ' ' Datenbereitstellung an FiBu - TrdinDateiname im Buchungskopfsatz eintragen. + '1740 Call SPAktionsabfrageOhneErgebnis("dbo.spTrdinFiBuUpdateInvoice", AktuelleVerbindungszeichenfolge(0), rstInvoice![RechnungsDatum], rstInvoice![Rechnungsnummer], Mid(DateiName, Len(DateiName) - 15, 12)) + + '1750 rstInvoice.MoveNext + '1760 Loop Until rstInvoice.EOF + '1770 RC = SysCmd(acSysCmdRemoveMeter) + + '1780 End If + '1790 rstInvoice.Close + + ' ' Transaktion beenden + '1800 If fInTransaktion Then + '1810 wrk.CommitTrans + '1820 fInTransaktion = False + '1830 End If + + '1840 fktFiBuBuchungen = True + + 'PROC_Exit: + '1850 On Error Resume Next + + ' ' Schnittstellendatei schließen. + '1860 If fDateiOpen Then Close DateiNr + + '1870 If Not rstProduct Is Nothing Then + '1880 rstProduct.Close + '1890 Set rstProduct = Nothing + '1900 End If + '1910 If Not rstInvoice Is Nothing Then + '1920 rstInvoice.Close + '1930 Set rstInvoice = Nothing + '1940 End If + '1950 If Not db Is Nothing Then Set db = Nothing + '1960 If Not wrk Is Nothing Then Set wrk = Nothing + + '1970 DoCmd.Hourglass False + '1980 Exit Function + + 'PROC_Error: + ' ' Änderungen am Datenbestand zurücknehmen. + '1990 If fInTransaktion Then + '2000 wrk.Rollback + '2010 fInTransaktion = False + '2020 End If + ' ' Fehlerinformation anzeigen. + '2030 ErrNotify Err, "basFiBuSyska", "fktFiBuBuchungen", eNormalError + '2040 Call Logbucheintrag(0, 0, "basFiBuSyska.fktFiBuBuchungen", 0, "Wegen Fehler beendet") + '2050 Resume PROC_Exit + + ' End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb new file mode 100644 index 0000000..97738b9 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb @@ -0,0 +1,158 @@ +Imports Therefore.API +Public Class cTherefore + + Shared Function saveFileTo_ImportFolder(Path As String, FilialeAbfertigungsNr As String, AvisoId As String, FirmaId As String, Optional deleteFileAfterImport As Boolean = False) + FilialeAbfertigungsNr = FilialeAbfertigungsNr.Replace(";", " ") + FilialeAbfertigungsNr = FilialeAbfertigungsNr.Replace("/", " ") + FilialeAbfertigungsNr = FilialeAbfertigungsNr.Replace("-", " ") + if FilialeAbfertigungsNr.Length> 30 then FilialeAbfertigungsNr=FilialeAbfertigungsNr.ToString.Substring(0,30) + Select Case FirmaId + Case 7 + Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport) + Case 21,22,23 + 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED", "UNISPED\Import ab Jänner 2021 UNISPED DE", deleteFileAfterImport) + 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED", "Import ab Jänner 2021 UNISPED DE", deleteFileAfterImport) + + Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED_DE", "UNISPED Zollakten", deleteFileAfterImport) + 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, 394, 394, deleteFileAfterImport) + Case 1, 11, 20, 17 ', 15 + ' Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2019", "Import ab Jänner 2019", deleteFileAfterImport) + Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021", "Import ab Jänner 2021", deleteFileAfterImport) + ' Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport) + Case Else + Return False + End Select + End Function + + Shared Function saveFileTo_ImportFolderCat(Path As String, FilialeAbfertigungsNr As String, AvisoId As String, Category As String, Optional Category2 As String = "", Optional deleteFileAfterImport As Boolean = False) + Try + If Category2 = "" Then Category2 = Category + Dim SQL As New SQL + + ' 1. Connect to the Therefore™ Server + Dim server As New TheServer + server.Connect(TheClientType.CustomApplication) + + ' 2. Create a new Therefore™ Document + Dim doc As New TheDocument() + + ' 3. Create temporary File + 'Dim filename As String = "" + 'doc.Create(filename) + + ' 4A. Set Therefore™ Category by Number + ' doc.IndexData.SetCategory(5, server) + ' or 4B. Set Therefore™ Category by Name + doc.IndexData.SetCategory(Category2, server) + + ' 5. Add streams + 'doc.AddStream("D:\\TestAll\\TestDocs\\Scsi.doc", "", 0) + 'doc.AddStream("D:\\TestAll\\TestDocs\\TEST.xls", "", 0) + ' 6. Set index data + 'Dim indexData As TheIndexData = doc.IndexData + 'indexData("String") = FilialeAbfertigungsNr + 'indexData("Eingabedatum") = Now.ToShortDateString + 'indexData("LKW_ID") = AvisoId + + 'MsgBox(doc.IndexData.Count) + ' 7. Archive the document + 'Dim docNo As Integer = doc.Archive(server, 0) + 'Dim docNo As Integer = 0 + 'Dim filenameNEW As String = doc.Retrieve(docNo, "", server) + Dim TableName = "" + If IsNumeric(Category) Then + TableName = "TheCat" & Category + If SQL.getValueTxtBySql("SELECT count(*) FROM [TheCategory] WHERE TableName='" & TableName & "'", "SCANCANON",,, "") = 0 Then + MsgBox("Therefore: Tabelle nicht gefunden: " & TableName) + Return False + End If + Else + TableName = SQL.getValueTxtBySql("SELECT TOP 1 [TableName] FROM [TheCategory] WHERE Title='" & Category & "'", "SCANCANON",,, "") + End If + + Dim docNo As Integer = SQL.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM " & TableName & " WHERE [String] LIKE '" & FilialeAbfertigungsNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON",,, -1) + ' MsgBox("docNo: " & docNo) + Dim filename As String = "" + If docNo <= 0 Then + doc.Create(filename) + + doc.AddStream(Path, "", 0) + Dim indexData As TheIndexData = doc.IndexData + indexData("String") = FilialeAbfertigungsNr + indexData("Eingabedatum") = Now.ToShortDateString + indexData("LKW_ID") = AvisoId + + docNo = doc.Archive(server, 0) + Else + Dim folder = "" + Dim VerionNo As Integer + filename = doc.Retrieve(docNo, VerionNo, folder, server, False) + + Dim user As String = "" + doc.CheckOut(server, False, user, VerionNo) + + doc.AddStream(Path, "", 0) + doc.CheckIn(server) + End If + + + + ' 8. Close Therefore™ document object + doc.Close() + + ' 9. Delete the temporary file + If deleteFileAfterImport Then System.IO.File.Delete(filename) + + ' 10. Optional: Print a success message on the console + ' Console.WriteLine("Document successfully archived as " + docNo.ToString() + ".") + Return True + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + 'Shared Function saveFileTo_ImportFolder2(Path As String, FilialeAbfertigungsNr As Integer, AvisoId As Integer) + ' Try + + ' ' 1. Connect to the Therefore™ Server + ' Dim server As New TheServer + ' server.Connect(TheClientType.CustomApplication) + + ' ' 2. Create a new Therefore™ Document + ' Dim doc As New TheDocument() + + ' ' 3. Create temporary File + ' Dim filename As String = "" + ' doc.Create(filename) + + ' ' 4A. Set Therefore™ Category by Number + ' ' doc.IndexData.SetCategory(5, server) + ' ' or 4B. Set Therefore™ Category by Name + ' doc.IndexData.SetCategory("Import ab Jänner 2019", server) + + ' ' 5. Add streams + ' 'doc.AddStream("D:\\TestAll\\TestDocs\\Scsi.doc", "", 0) + ' 'doc.AddStream("D:\\TestAll\\TestDocs\\TEST.xls", "", 0) + ' doc.AddStream(Path, "", 0) + ' ' 6. Set index data + + ' ' MsgBox(doc.IndexData.Count) + ' ' 7. Archive the document + ' Dim docNo As Integer = doc.Archive(server, 0) + ' MsgBox(docNo) + + ' ' 8. Close Therefore™ document object + ' doc.Close() + + ' ' 9. Delete the temporary file + ' System.IO.File.Delete(filename) + + ' ' 10. Optional: Print a success message on the console + ' ' Console.WriteLine("Document successfully archived as " + docNo.ToString() + ".") + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' End Try + 'End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/SDL/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj new file mode 100644 index 0000000..0e16e55 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -0,0 +1,931 @@ + + + + + Debug + AnyCPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1} + Library + + + VERAG_PROG_ALLGEMEIN + VERAG_PROG_ALLGEMEIN + 512 + Windows + v4.7 + + + + AnyCPU + true + full + true + true + bin\Debug\ + VERAG_PROG_ALLGEMEIN.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + VERAG_PROG_ALLGEMEIN.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + \\ylps023046.verag.ost.dmn\VB\dll\closedxml\ClosedXML.dll + + + False + \\ylps023046.verag.ost.dmn\VB\dll\Dynamsoft.Forms.Viewer.dll + + + False + \\ylps023046.verag.ost.dmn\VB\dll\Dynamsoft.ImageCore.dll + + + False + \\ylps023046.verag.ost.dmn\VB\dll\Dynamsoft.PDF.dll + + + False + \\ylps023046.verag.ost.dmn\VB\dll\Dynamsoft.Twain.dll + + + False + \\ylps023046.verag.ost.dmn\VB\dll\Dynamsoft.WPF.Viewer.dll + + + \\ylps023046.verag.ost.dmn\VB\dll\Ghostscript.NET.dll + + + False + \\ylps023046.verag.ost.dmn\VB\dll\itextsharp.dll + + + \\ylps023046.verag.ost.dmn\VB\dll\McDull.Windows.Forms.dll + + + True + \\ylps023046.verag.ost.dmn\VB\dll\Microsoft.Office.Interop.Outlook.dll + + + \\ylps023046.verag.ost.dmn\VB\dll\NetSpell.SpellChecker.DLL + + + \\ylps023046.verag.ost.dmn\VB\dll\NumericBox.dll + + + \\ylps023046.verag.ost.dmn\VB\dll\RichTextBoxEx.dll + + + False + \\ylps023046.verag.ost.dmn\VB\dll\Spire.PDF\Spire.License.dll + + + False + \\ylps023046.verag.ost.dmn\VB\dll\Spire.PDF\Spire.Pdf.dll + + + False + \\ylps023046.verag.ost.dmn\VB\dll\Spire.PDF\Spire.PdfViewer.Forms.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form1.vb + + + Form + + + frmGrayOut.vb + + + Form + + + + + DateTimePickerEx.vb + + + Component + + + Component + + + frmPDFScanList.vb + + + Form + + + HTMLTextBox.vb + + + UserControl + + + Component + + + MySearchBox.vb + + + Component + + + KdSearchBox.vb + + + Component + + + MyPanel.vb + + + Component + + + MyFlowLayoutPanel.vb + + + Component + + + MyCheckbox.vb + + + Component + + + MyCheckBoxValue.vb + + + Component + + + Component + + + MyDatagridview.vb + + + Component + + + Component + + + Component + + + MyRadioButton.vb + + + Component + + + Component + + + Component + + + + RichTextBoxEx.vb + + + UserControl + + + usrcntlSearch.vb + + + UserControl + + + usrcntlPDFScanList.vb + + + UserControl + + + usrcntlPDFScan.vb + + + UserControl + + + usrCntLPDFScanSimple.vb + + + UserControl + + + usrCntlTestsystem.vb + + + UserControl + + + usrcntlUnterposEntry.vb + + + UserControl + + + Component + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + frmVorlagen.vb + + + Form + + + frmVorlagenUpload.vb + + + Form + + + frmScan.vb + + + Form + + + frmSourceList.vb + + + Form + + + frmKdVermerkAdd.vb + + + Form + + + frmMessenger.vb + + + Form + + + frmMessenger_Members.vb + + + Form + + + frmMessenger_NeuerChat.vb + + + Form + + + usrCntlMessenger_ChatEmoji.vb + + + UserControl + + + usrCntlMessenger_ChatAnhang.vb + + + UserControl + + + usrCntlMessenger_ChatElement.vb + + + UserControl + + + frmMitarbeitersucheBearbeiten.vb + + + Form + + + frmMitarbeitersuche.vb + + + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + usrcntlKdSearch.vb + + + UserControl + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + True + True + Reference.map + + + True + True + Reference.map + + + True + True + Reference.map + + + + + frmGrayOut.vb + + + frmPDFScanList.vb + + + HTMLTextBox.vb + + + RichTextBoxEx.vb + + + usrcntlSearch.vb + + + usrcntlPDFScanList.vb + + + usrcntlPDFScan.vb + + + usrCntLPDFScanSimple.vb + + + usrCntlTestsystem.vb + + + usrcntlUnterposEntry.vb + + + frmVorlagen.vb + + + frmVorlagenUpload.vb + + + frmKdVermerkAdd.vb + + + frmScan.vb + + + frmSourceList.vb + + + frmMessenger.vb + + + frmMessenger_Members.vb + + + frmMessenger_NeuerChat.vb + + + usrCntlMessenger_ChatEmoji.vb + + + usrCntlMessenger_ChatAnhang.vb + + + usrCntlMessenger_ChatElement.vb + + + frmMitarbeitersucheBearbeiten.vb + + + frmMitarbeitersuche.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + usrcntlKdSearch.vb + + + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + + + Designer + + + + Designer + + + + Designer + + + MSDiscoCodeGenerator + Reference.vb + + + Designer + + + + MSDiscoCodeGenerator + Reference.vb + + + Designer + + + + Designer + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + PublicSettingsSingleFileGenerator + My + Designer + Settings.Designer.vb + + + Designer + + + Designer + + + Designer + + + + Reference.map + + + MSDiscoCodeGenerator + Reference.vb + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Dynamic + Web References\UIDPruefung\ + http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl + + + + + MySettings + VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService + + + Dynamic + Web References\at.gv.bmf.finanzonline\ + https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage.wsdl + + + + + MySettings + VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService + + + Dynamic + Web References\at.gv.bmf.finanzonline.session\ + https://finanzonline.bmf.gv.at/fonws/ws/sessionService.wsdl + + + + + MySettings + VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService + + + + + + + + {37687F89-8603-4E42-A5F4-4FBAB011D5F3} + 3 + 0 + 0 + tlbimp + False + True + + + + + + + + + + + + + + 3.8.0 + + + 6.0.8 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/Reference.map b/SDL/VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/Reference.map new file mode 100644 index 0000000..357ddc8 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/Reference.map @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/Reference.vb b/SDL/VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/Reference.vb new file mode 100644 index 0000000..d074c8e --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/Reference.vb @@ -0,0 +1,474 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System +Imports System.ComponentModel +Imports System.Diagnostics +Imports System.Web.Services +Imports System.Web.Services.Protocols +Imports System.Xml.Serialization + +' +'Der Quellcode wurde automatisch mit Microsoft.VSDesigner generiert. Version 4.0.30319.42000. +' +Namespace UIDPruefung + + ''' + _ + Partial Public Class checkVatService + Inherits System.Web.Services.Protocols.SoapHttpClientProtocol + + Private checkVatOperationCompleted As System.Threading.SendOrPostCallback + + Private checkVatApproxOperationCompleted As System.Threading.SendOrPostCallback + + Private useDefaultCredentialsSetExplicitly As Boolean + + ''' + Public Sub New() + MyBase.New + Me.Url = Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default.VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService + If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then + Me.UseDefaultCredentials = true + Me.useDefaultCredentialsSetExplicitly = false + Else + Me.useDefaultCredentialsSetExplicitly = true + End If + End Sub + + Public Shadows Property Url() As String + Get + Return MyBase.Url + End Get + Set + If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _ + AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _ + AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then + MyBase.UseDefaultCredentials = false + End If + MyBase.Url = value + End Set + End Property + + Public Shadows Property UseDefaultCredentials() As Boolean + Get + Return MyBase.UseDefaultCredentials + End Get + Set + MyBase.UseDefaultCredentials = value + Me.useDefaultCredentialsSetExplicitly = true + End Set + End Property + + ''' + Public Event checkVatCompleted As checkVatCompletedEventHandler + + ''' + Public Event checkVatApproxCompleted As checkVatApproxCompletedEventHandler + + ''' + _ + Public Function checkVat(ByRef countryCode As String, ByRef vatNumber As String, ByRef valid As Boolean, ByRef name As String, ByRef address As String) As Date + Dim results() As Object = Me.Invoke("checkVat", New Object() {countryCode, vatNumber}) + countryCode = CType(results(1),String) + vatNumber = CType(results(2),String) + valid = CType(results(3),Boolean) + name = CType(results(4),String) + address = CType(results(5),String) + Return CType(results(0),Date) + End Function + + ''' + Public Overloads Sub checkVatAsync(ByVal countryCode As String, ByVal vatNumber As String) + Me.checkVatAsync(countryCode, vatNumber, Nothing) + End Sub + + ''' + Public Overloads Sub checkVatAsync(ByVal countryCode As String, ByVal vatNumber As String, ByVal userState As Object) + If (Me.checkVatOperationCompleted Is Nothing) Then + Me.checkVatOperationCompleted = AddressOf Me.OncheckVatOperationCompleted + End If + Me.InvokeAsync("checkVat", New Object() {countryCode, vatNumber}, Me.checkVatOperationCompleted, userState) + End Sub + + Private Sub OncheckVatOperationCompleted(ByVal arg As Object) + If (Not (Me.checkVatCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent checkVatCompleted(Me, New checkVatCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function checkVatApprox( _ + ByRef countryCode As String, _ + ByRef vatNumber As String, _ + ByRef traderName As String, _ + ByRef traderCompanyType As String, _ + ByRef traderStreet As String, _ + ByRef traderPostcode As String, _ + ByRef traderCity As String, _ + ByVal requesterCountryCode As String, _ + ByVal requesterVatNumber As String, _ + ByRef valid As Boolean, _ + ByRef traderAddress As String, _ + ByRef traderNameMatch As matchCode, _ + ByRef traderNameMatchSpecified As Boolean, _ + ByRef traderCompanyTypeMatch As matchCode, _ + ByRef traderCompanyTypeMatchSpecified As Boolean, _ + ByRef traderStreetMatch As matchCode, _ + ByRef traderStreetMatchSpecified As Boolean, _ + ByRef traderPostcodeMatch As matchCode, _ + ByRef traderPostcodeMatchSpecified As Boolean, _ + ByRef traderCityMatch As matchCode, _ + ByRef traderCityMatchSpecified As Boolean, _ + ByRef requestIdentifier As String) As Date + Dim results() As Object = Me.Invoke("checkVatApprox", New Object() {countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber}) + countryCode = CType(results(1),String) + vatNumber = CType(results(2),String) + traderName = CType(results(3),String) + traderCompanyType = CType(results(4),String) + traderStreet = CType(results(5),String) + traderPostcode = CType(results(6),String) + traderCity = CType(results(7),String) + valid = CType(results(8),Boolean) + traderAddress = CType(results(9),String) + traderNameMatch = CType(results(10),matchCode) + traderNameMatchSpecified = CType(results(11),Boolean) + traderCompanyTypeMatch = CType(results(12),matchCode) + traderCompanyTypeMatchSpecified = CType(results(13),Boolean) + traderStreetMatch = CType(results(14),matchCode) + traderStreetMatchSpecified = CType(results(15),Boolean) + traderPostcodeMatch = CType(results(16),matchCode) + traderPostcodeMatchSpecified = CType(results(17),Boolean) + traderCityMatch = CType(results(18),matchCode) + traderCityMatchSpecified = CType(results(19),Boolean) + requestIdentifier = CType(results(20),String) + Return CType(results(0),Date) + End Function + + ''' + Public Overloads Sub checkVatApproxAsync(ByVal countryCode As String, ByVal vatNumber As String, ByVal traderName As String, ByVal traderCompanyType As String, ByVal traderStreet As String, ByVal traderPostcode As String, ByVal traderCity As String, ByVal requesterCountryCode As String, ByVal requesterVatNumber As String) + Me.checkVatApproxAsync(countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber, Nothing) + End Sub + + ''' + Public Overloads Sub checkVatApproxAsync(ByVal countryCode As String, ByVal vatNumber As String, ByVal traderName As String, ByVal traderCompanyType As String, ByVal traderStreet As String, ByVal traderPostcode As String, ByVal traderCity As String, ByVal requesterCountryCode As String, ByVal requesterVatNumber As String, ByVal userState As Object) + If (Me.checkVatApproxOperationCompleted Is Nothing) Then + Me.checkVatApproxOperationCompleted = AddressOf Me.OncheckVatApproxOperationCompleted + End If + Me.InvokeAsync("checkVatApprox", New Object() {countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber}, Me.checkVatApproxOperationCompleted, userState) + End Sub + + Private Sub OncheckVatApproxOperationCompleted(ByVal arg As Object) + If (Not (Me.checkVatApproxCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent checkVatApproxCompleted(Me, New checkVatApproxCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + Public Shadows Sub CancelAsync(ByVal userState As Object) + MyBase.CancelAsync(userState) + End Sub + + Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean + If ((url Is Nothing) _ + OrElse (url Is String.Empty)) Then + Return false + End If + Dim wsUri As System.Uri = New System.Uri(url) + If ((wsUri.Port >= 1024) _ + AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then + Return true + End If + Return false + End Function + End Class + + ''' + _ + Public Enum matchCode + + ''' + _ + Item1 + + ''' + _ + Item2 + + ''' + _ + Item3 + End Enum + + ''' + _ + Public Delegate Sub checkVatCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatCompletedEventArgs) + + ''' + _ + Partial Public Class checkVatCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As Date + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),Date) + End Get + End Property + + ''' + Public ReadOnly Property countryCode() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property vatNumber() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),String) + End Get + End Property + + ''' + Public ReadOnly Property valid() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property name() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),String) + End Get + End Property + + ''' + Public ReadOnly Property address() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),String) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub checkVatApproxCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatApproxCompletedEventArgs) + + ''' + _ + Partial Public Class checkVatApproxCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As Date + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),Date) + End Get + End Property + + ''' + Public ReadOnly Property countryCode() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property vatNumber() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),String) + End Get + End Property + + ''' + Public ReadOnly Property traderName() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),String) + End Get + End Property + + ''' + Public ReadOnly Property traderCompanyType() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),String) + End Get + End Property + + ''' + Public ReadOnly Property traderStreet() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),String) + End Get + End Property + + ''' + Public ReadOnly Property traderPostcode() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(6),String) + End Get + End Property + + ''' + Public ReadOnly Property traderCity() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(7),String) + End Get + End Property + + ''' + Public ReadOnly Property valid() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(8),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property traderAddress() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(9),String) + End Get + End Property + + ''' + Public ReadOnly Property traderNameMatch() As matchCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(10),matchCode) + End Get + End Property + + ''' + Public ReadOnly Property traderNameMatchSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(11),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property traderCompanyTypeMatch() As matchCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(12),matchCode) + End Get + End Property + + ''' + Public ReadOnly Property traderCompanyTypeMatchSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(13),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property traderStreetMatch() As matchCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(14),matchCode) + End Get + End Property + + ''' + Public ReadOnly Property traderStreetMatchSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(15),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property traderPostcodeMatch() As matchCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(16),matchCode) + End Get + End Property + + ''' + Public ReadOnly Property traderPostcodeMatchSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(17),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property traderCityMatch() As matchCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(18),matchCode) + End Get + End Property + + ''' + Public ReadOnly Property traderCityMatchSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(19),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property requestIdentifier() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(20),String) + End Get + End Property + End Class +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/checkVatService.wsdl b/SDL/VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/checkVatService.wsdl new file mode 100644 index 0000000..25691c2 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/checkVatService.wsdl @@ -0,0 +1,161 @@ + + + + The objective of this Internet site is to allow persons involved in the intra-Community supply of goods or of services to obtain confirmation of the validity of the VAT identification number of any specified person, in accordance to article 31 of Council Regulation (EC) No. 904/2010 of 7 October 2010. \n + Any other use and any extraction and use of the data which is not in conformity with the objective of this site is strictly forbidden. + Any retransmission of the contents of this site, whether for a commercial purpose or otherwise, as well as any more general use other than as far as is necessary to support the activity of a legitimate user (for example: to draw up their own invoices) is expressly forbidden. In addition, any copying or reproduction of the contents of this site is strictly forbidden. + The European Commission maintains this website to enhance the access by taxable persons making intra-Community supplies to verification of their customers' VAT identification numbers. Our goal is to supply instantaneous and accurate information. + However the Commission accepts no responsibility or liability whatsoever with regard to the information obtained using this site. This information: + - is obtained from Member States' databases over which the Commission services have no control and for which the Commission assumes no responsibility; it is the responsibility of the Member States to keep their databases complete, accurate and up to date; + - is not professional or legal advice (if you need specific advice, you should always consult a suitably qualified professional); + - does not in itself give a right to exempt intra-Community supplies from Value Added Tax; + - does not change any obligations imposed on taxable persons in relation to intra-Community supplies. + It is our goal to minimise disruption caused by technical errors. However some data or information on our site may have been created or structured in files or formats which are not error-free and we cannot guarantee that our service will not be interrupted or otherwise affected by such problems. The Commission accepts no responsibility with regard to such problems incurred as a result of using this site or any linked external sites. + This disclaimer is not intended to limit the liability of the Commission in contravention of any requirements laid down in applicable national law nor to exclude its liability for matters which may not be excluded under that law. + Collecting or handling personal data falls under the Data Protection Notice. This data protection declaration explains the Processing in the VIES-on-the-web Internet Website of VAT Identification Numbers for intra-Community Transaction on Goods or Services. Details of your legal rights associated with the collection, processing and use of this data are also provided: http://ec.europa.eu/dpo-register/details.htm?id=40647 . + + Usage: + The countryCode input parameter must follow the pattern [A-Z]{2} + The vatNumber input parameter must follow the pattern [0-9A-Za-z\+\*\.]{2,12} + In case of problems, the returned FaultString can take the following specific values: + - INVALID_INPUT: The provided CountryCode is invalid or the VAT number is empty; + - GLOBAL_MAX_CONCURRENT_REQ: Your Request for VAT validation has not been processed; the maximum number of concurrent requests has been reached. Please re-submit your request later or contact TAXUD-VIESWEB@ec.europa.eu for further information": Your request cannot be processed due to high traffic on the web application. Please try again later; + - MS_MAX_CONCURRENT_REQ: Your Request for VAT validation has not been processed; the maximum number of concurrent requests for this Member State has been reached. Please re-submit your request later or contact TAXUD-VIESWEB@ec.europa.eu for further information": Your request cannot be processed due to high traffic towards the Member State you are trying to reach. Please try again later. + - SERVICE_UNAVAILABLE: an error was encountered either at the network level or the Web application level, try again later; + - MS_UNAVAILABLE: The application at the Member State is not replying or not available. Please refer to the Technical Information page to check the status of the requested Member State, try again later; + - TIMEOUT: The application did not receive a reply within the allocated time period, try again later. + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + VALID + + + + + INVALID + + + + + NOT_PROCESSED + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/matchCode.datasource b/SDL/VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/matchCode.datasource new file mode 100644 index 0000000..7f09fee --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/matchCode.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.UIDPruefung.matchCode, Web References.UIDPruefung.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/Reference.map b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/Reference.map new file mode 100644 index 0000000..cee1f45 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/Reference.map @@ -0,0 +1,7 @@ + + + + + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/Reference.vb b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/Reference.vb new file mode 100644 index 0000000..91f9083 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/Reference.vb @@ -0,0 +1,235 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System +Imports System.ComponentModel +Imports System.Diagnostics +Imports System.Web.Services +Imports System.Web.Services.Protocols +Imports System.Xml.Serialization + +' +'Der Quellcode wurde automatisch mit Microsoft.VSDesigner generiert. Version 4.0.30319.42000. +' +Namespace at.gv.bmf.finanzonline.session + + ''' + _ + Partial Public Class sessionService + Inherits System.Web.Services.Protocols.SoapHttpClientProtocol + + Private loginOperationCompleted As System.Threading.SendOrPostCallback + + Private logoutOperationCompleted As System.Threading.SendOrPostCallback + + Private useDefaultCredentialsSetExplicitly As Boolean + + ''' + Public Sub New() + MyBase.New + Me.Url = Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default.VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService + If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then + Me.UseDefaultCredentials = true + Me.useDefaultCredentialsSetExplicitly = false + Else + Me.useDefaultCredentialsSetExplicitly = true + End If + End Sub + + Public Shadows Property Url() As String + Get + Return MyBase.Url + End Get + Set + If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _ + AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _ + AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then + MyBase.UseDefaultCredentials = false + End If + MyBase.Url = value + End Set + End Property + + Public Shadows Property UseDefaultCredentials() As Boolean + Get + Return MyBase.UseDefaultCredentials + End Get + Set + MyBase.UseDefaultCredentials = value + Me.useDefaultCredentialsSetExplicitly = true + End Set + End Property + + ''' + Public Event loginCompleted As loginCompletedEventHandler + + ''' + Public Event logoutCompleted As logoutCompletedEventHandler + + ''' + _ + Public Function login(ByVal tid As String, ByVal benid As String, ByVal pin As String, ByVal herstellerid As String, ByRef rc As Integer, ByRef msg As String) As String + Dim results() As Object = Me.Invoke("login", New Object() {tid, benid, pin, herstellerid}) + rc = CType(results(1),Integer) + msg = CType(results(2),String) + Return CType(results(0),String) + End Function + + ''' + Public Overloads Sub loginAsync(ByVal tid As String, ByVal benid As String, ByVal pin As String, ByVal herstellerid As String) + Me.loginAsync(tid, benid, pin, herstellerid, Nothing) + End Sub + + ''' + Public Overloads Sub loginAsync(ByVal tid As String, ByVal benid As String, ByVal pin As String, ByVal herstellerid As String, ByVal userState As Object) + If (Me.loginOperationCompleted Is Nothing) Then + Me.loginOperationCompleted = AddressOf Me.OnloginOperationCompleted + End If + Me.InvokeAsync("login", New Object() {tid, benid, pin, herstellerid}, Me.loginOperationCompleted, userState) + End Sub + + Private Sub OnloginOperationCompleted(ByVal arg As Object) + If (Not (Me.loginCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent loginCompleted(Me, New loginCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function logout(ByVal tid As String, ByVal benid As String, ByVal id As String, ByRef msg As String) As Integer + Dim results() As Object = Me.Invoke("logout", New Object() {tid, benid, id}) + msg = CType(results(1),String) + Return CType(results(0),Integer) + End Function + + ''' + Public Overloads Sub logoutAsync(ByVal tid As String, ByVal benid As String, ByVal id As String) + Me.logoutAsync(tid, benid, id, Nothing) + End Sub + + ''' + Public Overloads Sub logoutAsync(ByVal tid As String, ByVal benid As String, ByVal id As String, ByVal userState As Object) + If (Me.logoutOperationCompleted Is Nothing) Then + Me.logoutOperationCompleted = AddressOf Me.OnlogoutOperationCompleted + End If + Me.InvokeAsync("logout", New Object() {tid, benid, id}, Me.logoutOperationCompleted, userState) + End Sub + + Private Sub OnlogoutOperationCompleted(ByVal arg As Object) + If (Not (Me.logoutCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent logoutCompleted(Me, New logoutCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + Public Shadows Sub CancelAsync(ByVal userState As Object) + MyBase.CancelAsync(userState) + End Sub + + Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean + If ((url Is Nothing) _ + OrElse (url Is String.Empty)) Then + Return false + End If + Dim wsUri As System.Uri = New System.Uri(url) + If ((wsUri.Port >= 1024) _ + AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then + Return true + End If + Return false + End Function + End Class + + ''' + _ + Public Delegate Sub loginCompletedEventHandler(ByVal sender As Object, ByVal e As loginCompletedEventArgs) + + ''' + _ + Partial Public Class loginCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),String) + End Get + End Property + + ''' + Public ReadOnly Property rc() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Integer) + End Get + End Property + + ''' + Public ReadOnly Property msg() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),String) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub logoutCompletedEventHandler(ByVal sender As Object, ByVal e As logoutCompletedEventArgs) + + ''' + _ + Partial Public Class logoutCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),Integer) + End Get + End Property + + ''' + Public ReadOnly Property msg() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + End Class +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/session.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/session.xsd new file mode 100644 index 0000000..4512de3 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/session.xsd @@ -0,0 +1,83 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/sessionService.wsdl b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/sessionService.wsdl new file mode 100644 index 0000000..75f8d76 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/sessionService.wsdl @@ -0,0 +1,56 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/Reference.map b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/Reference.map new file mode 100644 index 0000000..13978a9 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/Reference.map @@ -0,0 +1,7 @@ + + + + + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/Reference.vb b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/Reference.vb new file mode 100644 index 0000000..d811318 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/Reference.vb @@ -0,0 +1,236 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System +Imports System.ComponentModel +Imports System.Diagnostics +Imports System.Web.Services +Imports System.Web.Services.Protocols +Imports System.Xml.Serialization + +' +'Der Quellcode wurde automatisch mit Microsoft.VSDesigner generiert. Version 4.0.30319.42000. +' +Namespace at.gv.bmf.finanzonline + + ''' + _ + Partial Public Class uidAbfrageService + Inherits System.Web.Services.Protocols.SoapHttpClientProtocol + + Private uidAbfrageOperationCompleted As System.Threading.SendOrPostCallback + + Private useDefaultCredentialsSetExplicitly As Boolean + + ''' + Public Sub New() + MyBase.New + Me.Url = Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default.VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService + If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then + Me.UseDefaultCredentials = true + Me.useDefaultCredentialsSetExplicitly = false + Else + Me.useDefaultCredentialsSetExplicitly = true + End If + End Sub + + Public Shadows Property Url() As String + Get + Return MyBase.Url + End Get + Set + If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _ + AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _ + AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then + MyBase.UseDefaultCredentials = false + End If + MyBase.Url = value + End Set + End Property + + Public Shadows Property UseDefaultCredentials() As Boolean + Get + Return MyBase.UseDefaultCredentials + End Get + Set + MyBase.UseDefaultCredentials = value + Me.useDefaultCredentialsSetExplicitly = true + End Set + End Property + + ''' + Public Event uidAbfrageCompleted As uidAbfrageCompletedEventHandler + + ''' + _ + Public Function uidAbfrage(ByVal tid As String, ByVal benid As String, ByVal id As String, ByVal uid_tn As String, ByVal uid As String, ByVal stufe As uidAbfrageServiceRequestStufe, ByRef msg As String, ByRef name As String, ByRef adrz1 As String, ByRef adrz2 As String, ByRef adrz3 As String, ByRef adrz4 As String, ByRef adrz5 As String, ByRef adrz6 As String) As Integer + Dim results() As Object = Me.Invoke("uidAbfrage", New Object() {tid, benid, id, uid_tn, uid, stufe}) + msg = CType(results(1),String) + name = CType(results(2),String) + adrz1 = CType(results(3),String) + adrz2 = CType(results(4),String) + adrz3 = CType(results(5),String) + adrz4 = CType(results(6),String) + adrz5 = CType(results(7),String) + adrz6 = CType(results(8),String) + Return CType(results(0),Integer) + End Function + + ''' + Public Overloads Sub uidAbfrageAsync(ByVal tid As String, ByVal benid As String, ByVal id As String, ByVal uid_tn As String, ByVal uid As String, ByVal stufe As uidAbfrageServiceRequestStufe) + Me.uidAbfrageAsync(tid, benid, id, uid_tn, uid, stufe, Nothing) + End Sub + + ''' + Public Overloads Sub uidAbfrageAsync(ByVal tid As String, ByVal benid As String, ByVal id As String, ByVal uid_tn As String, ByVal uid As String, ByVal stufe As uidAbfrageServiceRequestStufe, ByVal userState As Object) + If (Me.uidAbfrageOperationCompleted Is Nothing) Then + Me.uidAbfrageOperationCompleted = AddressOf Me.OnuidAbfrageOperationCompleted + End If + Me.InvokeAsync("uidAbfrage", New Object() {tid, benid, id, uid_tn, uid, stufe}, Me.uidAbfrageOperationCompleted, userState) + End Sub + + Private Sub OnuidAbfrageOperationCompleted(ByVal arg As Object) + If (Not (Me.uidAbfrageCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent uidAbfrageCompleted(Me, New uidAbfrageCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + Public Shadows Sub CancelAsync(ByVal userState As Object) + MyBase.CancelAsync(userState) + End Sub + + Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean + If ((url Is Nothing) _ + OrElse (url Is String.Empty)) Then + Return false + End If + Dim wsUri As System.Uri = New System.Uri(url) + If ((wsUri.Port >= 1024) _ + AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then + Return true + End If + Return false + End Function + End Class + + ''' + _ + Public Enum uidAbfrageServiceRequestStufe + + ''' + _ + Item1 + + ''' + _ + Item2 + End Enum + + ''' + _ + Public Delegate Sub uidAbfrageCompletedEventHandler(ByVal sender As Object, ByVal e As uidAbfrageCompletedEventArgs) + + ''' + _ + Partial Public Class uidAbfrageCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),Integer) + End Get + End Property + + ''' + Public ReadOnly Property msg() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property name() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),String) + End Get + End Property + + ''' + Public ReadOnly Property adrz1() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),String) + End Get + End Property + + ''' + Public ReadOnly Property adrz2() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),String) + End Get + End Property + + ''' + Public ReadOnly Property adrz3() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),String) + End Get + End Property + + ''' + Public ReadOnly Property adrz4() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(6),String) + End Get + End Property + + ''' + Public ReadOnly Property adrz5() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(7),String) + End Get + End Property + + ''' + Public ReadOnly Property adrz6() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(8),String) + End Get + End Property + End Class +End Namespace diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/uidAbfrage.xsd b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/uidAbfrage.xsd new file mode 100644 index 0000000..3b38668 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/uidAbfrage.xsd @@ -0,0 +1,69 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/uidAbfrageService.wsdl b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/uidAbfrageService.wsdl new file mode 100644 index 0000000..4dd6dc4 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/uidAbfrageService.wsdl @@ -0,0 +1,37 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/Web.config b/SDL/VERAG_PROG_ALLGEMEIN/Web.config new file mode 100644 index 0000000..d9a8a57 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/Web.config @@ -0,0 +1,52 @@ + + + + +
+ + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + + + + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200 + + + + + + + http://ec.europa.eu/taxation_customs/vies/services/checkVatService + + + + diff --git a/SDL/VERAG_PROG_ALLGEMEIN/cAllgemein.vb b/SDL/VERAG_PROG_ALLGEMEIN/cAllgemein.vb new file mode 100644 index 0000000..785e37e --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/cAllgemein.vb @@ -0,0 +1,359 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document +Imports System.Data.SqlClient + +Public Class cAllgemein + Public Shared FIRMA As String + Public Shared NIEDERLASSUNG As String 'SUB, WAI, ... + Public Shared ABTEILUNG As String 'QS ZOLL ... + Public Shared STAMMFILIALE As String 'IMEX,UNISPED;ATILLA... + + Public Shared CLUSTER As String = "" 'Firmenverbund + ' Public Shared SPECIFIC As cSPECIFIC = New cSPECIFIC + + Public Shared ERR_OP_GLOBAL As String = ERROR_OP.SHOW + + ' Public Shared AVISO_SERVER As String = "[BUCHHALTUNG\SQLEXPRESS]" + 'Public Shared AVISO_SERVER As String = "[SQL01.verag.ost.dmn\VERAG]" + 'Public Shared AVISO_SERVER As String = "[SQLGUIDE.verag.ost.dmn\VERAG]" + Public Shared AVISO_SERVER As String = "[SQLGUIDE01.verag.ost.dmn]" '"[SQLGUIDE01.verag.ost.dmn]" + Public Shared FMZOLL_SERVER As String = "[FMZOLL\SQLFMZOLL]" '"[SQLGUIDE01.verag.ost.dmn]" + 'Public Shared FMZOLL_ATLAS_Datensicherung As String = "\\192.168.0.91\f\FMZoll\Datensicherung\atlas\atlas\fssouzb" + Public Shared FMZOLL_ATLAS_Datensicherung As String = "\\share01\F\FMZoll\Datensicherung\atlas\atlas\fssouzb" + + Public Shared BÜRO As String + + Public Shared dpi As Integer + Public Shared TESTSYSTEM As Boolean = True + + Public Shared PROGNAME = "" + Public Shared PROGID As Integer = 16 + Public Shared PROGVERSION As String = "" + + Public Shared USRNAME As String + 'Public Shared USRBER As Integer + Public Shared USRID As Integer + Public Shared USR_VNAME As String + Public Shared USR_NNAME As String + Public Shared USRKURZNAME As String + Public Shared USR_HrFrNAME As String + + Public Shared FIRMA_ID As Integer + Public Shared FIRMA_NAME As String + + Public Shared AUTO_ABF_NR As Boolean = True + + Public Shared BENUTZER_BERECHTIGUNGS_GRUPPEN As cBerechtigungenBenutzerGruppenZuordnung_List = Nothing + Public Shared PARAMS As cParameterList = Nothing + Public Shared TRANSLATE As cTranslate_LIST = Nothing + Public Shared _LAN As String = "DE" '"EN" + + Public Shared SESSION As New cSession + Public Shared _DummyCNT As Integer + + + Shared SQL As New SQL + Public Shared MITARBEITER As cMitarbeiter + Public Const LeerDatum As Date = #12/30/1899# 'wird als leerer Datumswert verwendet, da sonst Probleme bei Null/Date + + Public Shared Sub LOAD_DATA() + MITARBEITER = New cMitarbeiter + If MITARBEITER.LOAD(USRID) Then + USR_NNAME = MITARBEITER.mit_nname + USR_VNAME = MITARBEITER.mit_vname + _LAN = MITARBEITER.mit_sprache + + USR_HrFrNAME = "" + Select Case MITARBEITER.mit_geschlecht + Case "m" : USR_HrFrNAME = "Herr " + Case "w" : USR_HrFrNAME = "Frau " + End Select + USR_HrFrNAME &= MITARBEITER.mit_nname + + If FIRMA = "" Then FIRMA = If(MITARBEITER.mit_firma = "BEIDE", "VERAG", MITARBEITER.mit_firma) + + + cSPECIFIC.FIRMA_BgColor = Drawing.Color.FromArgb(0, 54, 128) + Select Case FIRMA + Case "VERAG" + CLUSTER = "FRONTOFFICE" + Case "IMEX" + STAMMFILIALE = "5501" + CLUSTER = "FRONTOFFICE" + Case "UNISPED" + STAMMFILIALE = "5601" + cSPECIFIC.FIRMA_BgColor = Drawing.Color.FromArgb(200, 0, 0) + CLUSTER = "FRONTOFFICE" + Case "AMBAR" + STAMMFILIALE = "5701" + CLUSTER = "FRONTOFFICE" + Case "ATILLA" + STAMMFILIALE = "4801" + Case "FRONTOFFICE" + STAMMFILIALE = "5801" + CLUSTER = "FRONTOFFICE" + + Case "VERIMEX" + STAMMFILIALE = "6001" + CLUSTER = "FRONTOFFICE" + End Select + + USRNAME = (MITARBEITER.mit_vname & " " & MITARBEITER.mit_nname) + If NIEDERLASSUNG = "" Then NIEDERLASSUNG = MITARBEITER.mit_niederlassung + If ABTEILUNG = "" Then ABTEILUNG = MITARBEITER.mit_abteilung + Else + MITARBEITER = Nothing + End If + LOAD_PARAM() + LOAD_TRANSLATE() + If TESTSYSTEM Then + AVISO_SERVER = "[DEVELOPER\DEVSQL]" + FMZOLL_SERVER = "[DEVELOPER\DEVSQL]" + End If + End Sub + + Public Shared Sub LOAD_BER() + BENUTZER_BERECHTIGUNGS_GRUPPEN = New cBerechtigungenBenutzerGruppenZuordnung_List(USRID) + + End Sub + + Public Shared Sub LOAD_PARAM() + PARAMS = New cParameterList(PROGID, FIRMA) + End Sub + + Public Shared Sub LOAD_TRANSLATE() + TRANSLATE = New cTranslate_LIST(PROGID) + End Sub + + Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control) + _TRANSLATE(o, o, _LAN) + End Sub + + Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control, lan As String) + _TRANSLATE(o, o, lan) + End Sub + Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control, s As System.Windows.Forms.Control, lan As String) + If lan = "" Then Exit Sub + If lan = "DE" Then Exit Sub + 'o... Form + 's... SubContainer + 'c... Control + ' MsgBox(o.GetType.ToString & " - " & o.name) + Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = o.Name And x.trs_sprache = lan) + If TextTmp IsNot Nothing Then + For Each TXT As cTranslate In TextTmp + Dim found = o.Controls.Find(TXT.trs_control, True) + + ' MsgBox(TXT.trs_control) + If found IsNot Nothing AndAlso found.Count > 0 Then + ' MsgBox("JA") + Dim obj As System.Windows.Forms.Control = found(0) + If obj IsNot Nothing Then + If (TypeOf obj Is System.Windows.Forms.Label) Then + DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text + End If + If (TypeOf obj Is System.Windows.Forms.Button) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.FlatButton) Then + DirectCast(obj, System.Windows.Forms.Button).Text = TXT.trs_text + End If + If (TypeOf obj Is System.Windows.Forms.TabPage) Then + DirectCast(obj, System.Windows.Forms.TabPage).Text = TXT.trs_text + End If + If (TypeOf obj Is System.Windows.Forms.RadioButton) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyRadioButton) Then + DirectCast(obj, System.Windows.Forms.RadioButton).Text = TXT.trs_text + End If + If (TypeOf obj Is System.Windows.Forms.GroupBox) Then + DirectCast(obj, System.Windows.Forms.GroupBox).Text = TXT.trs_text + End If + 'If (TypeOf obj Is System.Windows.Forms.TabControl) Then -->in Tabpage geregelt + ' For Each tb As System.Windows.Forms.TabPage In DirectCast(obj, System.Windows.Forms.TabControl).TabPages + ' If tb.Name = TXT.trs_subControl Then + ' tb.Text = TXT.trs_text + ' End If + ' Next + 'End If + + If (TypeOf obj Is System.Windows.Forms.ComboBox) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyComboBox) Then + 'DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text + + End If + 'If (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyComboBox) Then + + ' Dim cboItems = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = o.Name And x.trs_sprache = lan And x.trs_control = TXT.trs_control) + + ' For Each item As VERAG_PROG_ALLGEMEIN.MyListItem In DirectCast(obj, VERAG_PROG_ALLGEMEIN.MyComboBox).Items + ' For Each sitem As cTranslate In cboItems + ' If item.Text = sitem.trs_subControl Then + ' Dim index = DirectCast(obj, VERAG_PROG_ALLGEMEIN.MyComboBox).Items(0).Equals + ' DirectCast(DirectCast(obj, VERAG_PROG_ALLGEMEIN.MyComboBox).Items(item), VERAG_PROG_ALLGEMEIN.MyListItem).Text = sitem.trs_text + ' End If + ' Next + ' Next + 'End If + End If + End If + Next + End If + + End Sub + + + Public Shared Function getMaxPosNrIncrement(FilialeNr As Integer, year As Integer) As Integer + Dim cnt = 0 + Dim returnValue = -1 + Dim newMaxwert = CInt(year.ToString.Substring(2, 2) & "000000") '16000000 + Do + Dim conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL + Dim sql As String = " begin tran" & + " if exists (select * from tblPosNr with (updlock,serializable) WHERE FilialeNr = @FilialeNr AND Jahr = @Jahr) " & + " begin " & + " UPDATE tblPosNr " & + " SET wert=(select MAX(wert) FROM tblPosNr WHERE FilialeNr = @FilialeNr AND Jahr = @Jahr)+1 " & + " WHERE FilialeNr = @FilialeNr AND Jahr = @Jahr " & + " End " & + " Else " & + " begin " & + " INSERT INTO tblPosNr " & + " (wert,FilialeNr,Jahr) " & + " VALUES(@newMaxwert, @FilialeNr,@Jahr) " & + " End " & + " commit tran " & + " SELECT isnull(wert,-1) FROM tblPosNr WHERE FilialeNr = @FilialeNr AND Jahr = @Jahr" + Dim dr As SqlDataReader + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@FilialeNr", FilialeNr) + cmd.Parameters.AddWithValue("@Jahr", year) + cmd.Parameters.AddWithValue("@newMaxwert", newMaxwert) + Try + dr = cmd.ExecuteReader() + If dr.Read Then returnValue = CInt(dr.Item(0)) + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + + End Using + cnt += 1 + Loop While (SpedBuchExists(FilialeNr, returnValue) And cnt < 100000) + ' conn.Close() + + Return returnValue + End Function + + + + Public Shared Function isCLUSTER() As Boolean + Return (FIRMA = CLUSTER) + End Function + + Public Shared Function getFirmaFromFiliale2(FilialenNr As Object, Optional usedefaultFirma As Boolean = True, Optional defaultFIRMA As String = "VERAG") As String + Dim FirmaTMP = "" + If FilialenNr IsNot Nothing AndAlso IsNumeric(FilialenNr) Then + FirmaTMP = SQL.getValueTxtBySql("SELECT TOP 1 [Firma] FROM [Filialen] WHERE FilialenNr='" & FilialenNr & "' ", "FMZOLL") + End If + If usedefaultFirma AndAlso FirmaTMP = "" Then FirmaTMP = defaultFIRMA + Return FirmaTMP + End Function + + + Public Shared Function getFirmaFromFiliale(FilialenNr As Object, Optional defaultVERAG As Boolean = True) As String + Dim FirmaTMP = "" + If FilialenNr IsNot Nothing AndAlso IsNumeric(FilialenNr) Then + FirmaTMP = SQL.getValueTxtBySql("SELECT TOP 1 [Firma] FROM [Filialen] WHERE FilialenNr='" & FilialenNr & "' AND ( Firma='" & FIRMA & "' OR Cluster='" & CLUSTER & "')", "FMZOLL") + End If + If defaultVERAG AndAlso FirmaTMP = "" Then FirmaTMP = "VERAG" + Return FirmaTMP + End Function + Public Shared Function getFirmaFromKdNr(KundenNr As Integer, Optional defaultVERAG As Boolean = True) As String + Dim FirmaTMP = SQL.getValueTxtBySql("SELECT TOP 1 [Firma] FROM [Filialen] inner join Kunden ON Kunden.FilialenNr=Filialen.FilialenNr WHERE KundenNr='" & KundenNr & "' ", "FMZOLL") + If defaultVERAG AndAlso FirmaTMP = "" Then FirmaTMP = "VERAG" + Return FirmaTMP + End Function + + Public Shared Function SpedBuchExists(FilialenNr As Integer, AbfertigungsNr As Integer) As Boolean + Return (CInt(SQL.getValueTxtBySql("SELECT count(*) FROM Speditionsbuch WHERE FilialenNr=" & FilialenNr & " AND AbfertigungsNr=" & AbfertigungsNr & " ", "FMZOLL")) > 0) + + End Function + + + + Class cSPECIFIC + Public Shared FIRMA_BgColor As System.Drawing.Color = Drawing.Color.FromArgb(0, 54, 128) + Public Shared FIRMA_ForeColor As System.Drawing.Color = Drawing.Color.White + End Class + + + + + Public Shared Sub buildConnectionDATENARCHIV() + Exit Sub + + buildConnectionDATENARCHIV_NEW() + ' buildConnectionDATENARCHIV_OLD() + End Sub + + Public Shared Sub buildConnectionDATENARCHIV_OLD() + Try + Dim netuse As New System.Diagnostics.ProcessStartInfo() + + netuse.FileName = "C:\Windows\system32\net" + ' netuse.Arguments = "use \\192.168.0.91\Datenarchiv /User:VERAGOST\AVISOSMB BmWr501956" + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then + netuse.Arguments = "use \\192.168.0.91\Datenarchiv /User:VERAGOST\AVISOSMB BmWr501956" + Else + netuse.Arguments = "use \\192.168.0.91\Datenarchiv /User:VERAGOST\AVISOSMB BmWr501956" + End If + + + netuse.CreateNoWindow = True + netuse.WindowStyle = ProcessWindowStyle.Hidden + System.Diagnostics.Process.Start(netuse) + + Catch ex As Exception + MsgBox("ERR: DATENARCHIV Netzwerkzugriff fehlgeschlagen...") + End Try + End Sub + Public Shared Sub buildConnectionDATENARCHIV_NEW() + Try + Dim netuse As New System.Diagnostics.ProcessStartInfo() + + netuse.FileName = "C:\Windows\system32\net" + ' netuse.Arguments = "use \\datenarchiv.verag.ost.dmn\Datenarchiv /User:VERAGOST\AVISOSMB BmWr501956" + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then + netuse.Arguments = "use " & VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir(False) & " /User:VERAGOST\AVISOSMB BmWr501956" + Else + netuse.Arguments = "use " & VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir(False) & " /User:VERAGOST\AVISOSMB BmWr501956" + End If + + + netuse.CreateNoWindow = True + netuse.WindowStyle = ProcessWindowStyle.Hidden + System.Diagnostics.Process.Start(netuse) + + Catch ex As Exception + MsgBox("ERR: DATENARCHIV Netzwerkzugriff fehlgeschlagen...") + End Try + End Sub + Public Shared Function getSTAMMFILIALE() As String + If IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE) Then + Return VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE + Else + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "VERAG" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + Case "SUB" : Return 4803 + Case "SBG" : Return 5003 + Case "WAI" : Return 5103 + Case "NKD" : Return 5303 + Case "NEU" : Return 4819 + End Select + Case "IMEX" : Return 5501 + Case "UNISPED" : Return 5601 + Case "AMBAR" : Return 5701 + Case "ATILLA" : Return 4801 + Case "FRONTOFFICE" : Return 5801 + End Select + End If + Return "" + End Function +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/cErrorHandler.vb b/SDL/VERAG_PROG_ALLGEMEIN/cErrorHandler.vb new file mode 100644 index 0000000..1c748e8 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/cErrorHandler.vb @@ -0,0 +1,76 @@ +Imports System.Net.Mail + +Public Class cErrorHandler + + Public Shared Sub ERR(message As String, stack As String, functionName As String, Optional OP As String = "", Optional title As String = "", Optional mailadess As String = "al@verag.ag", Optional recieverMailAdress As String = "", Optional zusatz As String = "", Optional errCode As String = Nothing) + If OP = "" Then OP = VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL ' GLobal gesetzes Errorhandling! (Standart=SHOW) + Select Case OP + Case ERROR_OP.MAIL + sendERRORperMail(title & " | " & My.Application.Info.AssemblyName, message, stack, mailadess, zusatz, functionName) + Case ERROR_OP.SHOW + 'MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + MsgBox(If(functionName <> "", "Fehler in der Funktion '" & functionName & "'" & vbNewLine & vbNewLine, "") & message & vbNewLine & stack & vbNewLine & zusatz, MsgBoxStyle.OkOnly, If(title <> "", title, "Fehler")) + End Select + + VERAG_PROG_ALLGEMEIN.cERS.saveErr(OP, message, stack, errCode, functionName, recieverMailAdress, zusatz) + + + End Sub + + Public Shared Sub sendERRORperMail(title, errmsg, errstack, recieverMailAdress, zusatz, functionName) + Dim Msg As New MailMessage + Dim myCredentials As New System.Net.NetworkCredential + 'myCredentials.UserName = "support@verag.ag" + 'myCredentials.Password = "$up0Rt2809!" + myCredentials.UserName = "al@verag.ag" + myCredentials.Password = "verag#2" + + Msg.IsBodyHtml = False + Dim mySmtpsvr As New SmtpClient() + mySmtpsvr.Host = "owa.verag.ag" 'bei web.de + mySmtpsvr.Port = 25 '587 '25 + mySmtpsvr.UseDefaultCredentials = False + mySmtpsvr.Credentials = myCredentials + + Try + Msg.From = New MailAddress("al@verag.ag") + Msg.To.Add(recieverMailAdress) + + Msg.Subject = title '"ERROR - DAKOSY Einarbeitung" + Msg.Body = "Uhrzeit: " & Now.ToShortDateString & " " & Now.ToShortTimeString + Msg.Body = "Function: " & functionName + Msg.Body &= vbNewLine + Msg.Body &= vbNewLine + Msg.Body &= "Fehlermeldung: " & errmsg + Msg.Body &= vbNewLine + Msg.Body &= vbNewLine + Msg.Body &= "Stacktrace: " & errstack + Msg.Body &= vbNewLine + If zusatz <> "" Then + Msg.Body &= "Zusatz: " & zusatz + Msg.Body &= vbNewLine + End If + Msg.Body &= errstack + mySmtpsvr.Send(Msg) + Catch ex As Exception + Try + mySmtpsvr.Host = "192.168.0.107" 'bei web.de ' 235 + mySmtpsvr.Send(Msg) + + Catch ex2 As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + + End Try + + End Sub + +End Class + +Public Class ERROR_OP + Shared Property SHOW As String = "SHOW" + Shared Property MAIL As String = "MAIL" + Shared Property TOFILE As String = "TOFILE" + Shared Property LOG As String = "LOG" 'Nur fürs Protokoll, keine Fehlermeldung +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/cErrorHandler1.vb b/SDL/VERAG_PROG_ALLGEMEIN/cErrorHandler1.vb new file mode 100644 index 0000000..85a5ddd --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/cErrorHandler1.vb @@ -0,0 +1,59 @@ +Imports System.Net.Mail + +Public Class cErrorHandler + + Public Shared Sub ERR(message As String, stack As String, functionName As String, Optional OP As String = "", Optional title As String = "", Optional mailadess As String = "al@erag.ag", Optional recieverMailAdress As String = "", Optional zusatz As String = "") + If OP = "" Then OP = VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL ' GLobal gesetzes Errorhandling! (Standart=SHOW) + Select Case OP + Case ERROR_OP.MAIL + sendERRORperMail(title, message, stack, mailadess, zusatz) + Case ERROR_OP.SHOW + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + MsgBox(If(functionName <> "", "Fehler in der Funktion '" & functionName & "'" & vbNewLine & vbNewLine, "") & message & vbNewLine & stack & vbNewLine & zusatz, MsgBoxStyle.OkOnly, If(title <> "", title, "Fehler")) + End Select + End Sub + + Shared Sub sendERRORperMail(title, errmsg, errstack, recieverMailAdress, zusatz) + Dim Msg As New MailMessage + Dim myCredentials As New System.Net.NetworkCredential + myCredentials.UserName = "al@verag.ag" + myCredentials.Password = "verag#2" + + Msg.IsBodyHtml = False + Dim mySmtpsvr As New SmtpClient() + mySmtpsvr.Host = "192.168.0.107" 'bei web.de + mySmtpsvr.Port = 25 '587 '25 + mySmtpsvr.UseDefaultCredentials = False + mySmtpsvr.Credentials = myCredentials + Try + Msg.From = New MailAddress("al@verag.ag") + Msg.To.Add(recieverMailAdress) + + Msg.Subject = title '"ERROR - DAKOSY Einarbeitung" + Msg.Body = "Uhrzeit: " & Now.ToShortDateString + Msg.Body &= vbNewLine + Msg.Body &= vbNewLine + Msg.Body &= "Fehlermeldung: " & errmsg + Msg.Body &= vbNewLine + Msg.Body &= vbNewLine + Msg.Body &= "Stacktrace: " & errstack + Msg.Body &= vbNewLine + If zusatz <> "" Then + Msg.Body &= "Zusatz: " & zusatz + Msg.Body &= vbNewLine + End If + Msg.Body &= errstack + mySmtpsvr.Send(Msg) + Catch ex As Exception + + End Try + + End Sub + +End Class + +Public Class ERROR_OP + Shared Property SHOW As String = "SHOW" + Shared Property MAIL As String = "MAIL" + Shared Property TOFILE As String = "TOFILE" +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/cFMZOLL_Personal.vb b/SDL/VERAG_PROG_ALLGEMEIN/cFMZOLL_Personal.vb new file mode 100644 index 0000000..6890013 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/cFMZOLL_Personal.vb @@ -0,0 +1,7 @@ +Public Class cFMZOLL_Personal + + + + + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/SDL/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb new file mode 100644 index 0000000..a62e85d --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -0,0 +1,346 @@ +Imports System.Net.Mail +Imports System.Text +Imports ClosedXML.Excel + +Public Class cProgramFunctions + + + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + Public Shared Function fktEuro(varBetrag As Object, varVonWährung As Object, varNachWährung As Object) As Object + '(FixeTaxe, "ATS", RECHNUNG.Währungscode) + 'Dim varVonWährung As Object + 'Dim varNachWährung As Object + Dim varKurs As Object + + If varVonWährung Is Nothing Then Return Nothing + If varNachWährung Is Nothing Then Return Nothing + + If varVonWährung = varNachWährung Then ' Sind beide Währungen gleich, + fktEuro = varBetrag ' ist keine Umrechnung erforderlich + Exit Function ' und die Funktion wird beendet + End If + + If Not IsNumeric(varVonWährung) Then + varVonWährung = SQL.DLookup("[Währungsschlüssel]", "Währungstabelle", "[Währungscode] = '" & varVonWährung & "' order by Währungsschlüssel DESC", "FMZOLL") + End If + If Not IsNumeric(varNachWährung) Then + varNachWährung = SQL.DLookup("[Währungsschlüssel]", "Währungstabelle", "[Währungscode] = '" & varNachWährung & "' order by Währungsschlüssel DESC", "FMZOLL") + End If + + ' + 'Select Case TypeName(fldVonWährung) + ' Case "Integer" + ' varVonWährung = fldVonWährung + ' Case "String", "Textbox", "Field", "Field2" + ' varVonWährung = SQL.DLookup("[Währungsschlüssel]", "Währungstabelle", "[Währungscode] = '" & fldVonWährung & "'", "FMZOLL") + ' If varVonWährung = "" Then + ' MsgBox("Währungstabelle![Währung] enthält keinen Eintrag " & fldVonWährung, , "fktEuro") + ' fktEuro = Nothing + ' Exit Function + ' End If + ' Case Else + ' MsgBox("Datentyp " & TypeName(fldVonWährung) & " ist für fldVonWährung ungültig.", , "fktEuro") + ' fktEuro = Nothing + ' Exit Function + 'End Select + + 'Select Case TypeName(fldNachWährung) + ' Case "Integer" + ' varNachWährung = fldNachWährung + ' Case "String", "Textbox", "Field", "Field2" + ' varNachWährung = SQL.DLookup("[Währungsschlüssel]", "Währungstabelle", " [Währungscode] = '" & fldNachWährung & "'", "FMZOLL") + ' If varNachWährung = "" Then + ' MsgBox("Währungstabelle![Währung] enthält keinen Eintrag " & fldNachWährung, , "fktEuro") + ' fktEuro = Nothing + ' Exit Function + ' End If + ' Case Else + ' MsgBox("Datentyp " & TypeName(fldNachWährung) & " ist für fldNachWährung ungültig.", , "fktEuro") + ' fktEuro = Nothing + ' Exit Function + ' End Select + + 'If varVonWährung = varNachWährung Then ' Sind beide Währungen gleich, + ' fktEuro = varBetrag ' ist keine Umrechnung erforderlich + ' Exit Function ' und die Funktion wird beendet + 'End If + + If varVonWährung <> 900 Then ' Eingangswährung in Euro umrechnen. + varKurs = SQL.DLookup("[Eurokurs]", "Währungstabelle", "[Währungsschlüssel] = " & varVonWährung & " order by Währungsschlüssel DESC", "FMZOLL") + If varKurs = "" OrElse varKurs = 0 Then + MsgBox("(1) Die Währungstabelle enthält keinen Umrechnungskurs für den Währungsschlüssel " & varVonWährung, , "fktEuro") + fktEuro = Nothing + Exit Function + End If + varBetrag = Int(varBetrag / varKurs * 100 + 0.5) / 100 + End If + + If varNachWährung <> 900 Then ' Euro In Ausgangswährung umrechnen. + varKurs = SQL.DLookup("[Eurokurs]", "Währungstabelle", "[Währungsschlüssel] = " & varNachWährung & " order by Währungsschlüssel DESC", "FMZOLL") + If varKurs = "" OrElse varKurs = 0 Then + MsgBox("(2) Die Währungstabelle enthält keinen Umrechnungskurs für den Währungsschlüssel " & varNachWährung, , "fktEuro") + fktEuro = Nothing + Exit Function + End If + varBetrag = Int(varBetrag * varKurs * 100 + 0.5) / 100 + End If + + fktEuro = varBetrag + + End Function + + + Public Shared Function fktEuroKurs(varVonWährung As Object, Rechnungsdatum As Date) As Object 'Funktioniert nciht mit datum!!!!!!!!!!!!!!!!!!! + '(FixeTaxe, "ATS", RECHNUNG.Währungscode) + 'Dim varVonWährung As Object + 'Dim varNachWährung As Object + Dim varKurs As Object + + If varVonWährung Is Nothing Then Return Nothing + + If varVonWährung = "EUR" Then ' Sind beide Währungen gleich, + Return 1 ' ist keine Umrechnung erforderlich + Exit Function ' und die Funktion wird beendet + End If + + If Not IsNumeric(varVonWährung) Then + varVonWährung = SQL.DLookup("[Währungsschlüssel]", "Währungstabelle", "[Währungscode] = '" & varVonWährung & "' order by Währungsschlüssel DESC", "FMZOLL") + End If + + Dim varBetrag = 1 + If varVonWährung <> 900 Then ' Eingangswährung in Euro umrechnen. + varKurs = SQL.DLookup("[Eurokurs]", "Währungstabelle", "[Währungsschlüssel] = " & varVonWährung & " order by Währungsschlüssel DESC", "FMZOLL") + If varKurs = "" OrElse varKurs = 0 Then + MsgBox("(1) Die Währungstabelle enthält keinen Umrechnungskurs für den Währungsschlüssel " & varVonWährung, , "fktEuro") + fktEuroKurs = Nothing + Exit Function + End If + varBetrag = Int(varBetrag / varKurs * 100 + 0.5) / 100 + End If + + fktEuroKurs = varBetrag + + End Function + + + + Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional openPDF As Boolean = True, Optional optFileName As String = "") As String + Try + + Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName + If Not My.Computer.FileSystem.DirectoryExists(sPath) Then + My.Computer.FileSystem.CreateDirectory(sPath) + End If + + Dim wb As New XLWorkbook + ' Dim dt As DataTable = (dgv.DataSource) + ' Dim dt As DataTable = TryCast(dgv., DataTable) + + wb.Worksheets.Add(dt, "DATEN") + wb.Worksheets(0).Tables.FirstOrDefault().ShowAutoFilter = ShowAutoFilter + + If rangeAsWaehrung IsNot Nothing Then + For Each r In rangeAsWaehrung + Try + wb.Worksheets(0).Range(r).Style.NumberFormat.SetFormat("###,###,##0.00 €") + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Next + End If + + If HeaderTxt <> "" Then + wb.Worksheets(0).FirstRow.InsertRowsAbove(2) + wb.Worksheets(0).Range("A1").Value = HeaderTxt + wb.Worksheets(0).Range("A1").Style.Font.Bold = True + If HeaderTxt2 <> "" Then + wb.Worksheets(0).Range("A2").Value = HeaderTxt2 + wb.Worksheets(0).Row(2).InsertRowsBelow(1) + End If + + End If + + Dim filename As String = "" + If optFileName <> "" Then + filename = sPath & optFileName & ".xlsx" + If IO.File.Exists(filename) Then + filename = sPath & optFileName & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + End If + Else + filename = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + End If + + wb.SaveAs(filename) + + If openPDF Then Process.Start(filename) + + Return filename + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return Nothing + End Try + End Function + + Public Shared Function sendMail(eMailTo, betreff, text, Optional eMailfrom = "support@verag.ag", Optional prio = False, Optional uhrzeitAngeben = True, Optional cc = "", Optional bcc = "", Optional anhaenge = Nothing) + Dim Msg As New MailMessage + Dim myCredentials As New System.Net.NetworkCredential + Msg.IsBodyHtml = True + Dim mySmtpsvr As New SmtpClient() + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + myCredentials.UserName = "support@verag.ag" + myCredentials.Password = "$up0Rt2809!" + mySmtpsvr.Host = "owa.verag.ag" + mySmtpsvr.Port = 587 + Case "ATILLA" + myCredentials.UserName = "support@verag.ag" + myCredentials.Password = "$up0Rt2809!" + mySmtpsvr.Host = "owa.verag.ag" + mySmtpsvr.Port = 587 + Case "AMBAR" + ' myCredentials.UserName = "office@ambarlog.com" + ' myCredentials.Password = "Naq30716" + myCredentials.UserName = "import@ambarlog.com" + myCredentials.Password = "Meh062020" + mySmtpsvr.Host = "smtp.office365.com" + mySmtpsvr.Port = 587 + mySmtpsvr.EnableSsl = True + ' eMailfrom = "import@ambarlog.com" + Case Else + myCredentials.UserName = "support@verag.ag" + myCredentials.Password = "$up0Rt2809!" + mySmtpsvr.Host = "owa.verag.ag" + mySmtpsvr.Port = 587 '25 '587 '25 + + End Select + mySmtpsvr.UseDefaultCredentials = False + mySmtpsvr.Credentials = myCredentials + Try + 'Msg.BodyEncoding = System.Text.Encoding.GetEncoding("UTF-8") + Msg.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1") + Msg.From = New MailAddress(eMailfrom) + + For Each s In eMailTo.ToString.Split(";") + If s <> "" Then Msg.To.Add(convertToIso(s).ToString.Trim()) + Next + + For Each s In cc.ToString.Split(";") + If s <> "" Then Msg.CC.Add(convertToIso(s).ToString.Trim()) + Next + + For Each s In bcc.ToString.Split(";") + If s <> "" Then Msg.Bcc.Add(convertToIso(s).ToString.Trim()) + Next + + Msg.Subject = betreff '"ERROR - DAKOSY Einarbeitung" + If uhrzeitAngeben Then + Msg.Body &= "Zeitpunkt: " & Now.ToShortDateString & " " & Now.ToShortTimeString & "

" + 'Msg.Body &= vbNewLine & vbNewLine + End If + Msg.Body &= text + If prio Then Msg.Priority = MailPriority.High + + + If anhaenge IsNot Nothing Then + For Each a In DirectCast(anhaenge, List(Of String)) + If a IsNot Nothing AndAlso a <> "" Then Msg.Attachments.Add(New System.Net.Mail.Attachment(a)) + Next + End If + mySmtpsvr.Send(Msg) + + Catch ex As Exception + Try + mySmtpsvr.Port = 25 + mySmtpsvr.Send(Msg) + + Catch ex2 As Exception + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then ' ERST DEN SERVER EINRICHTEN! + Return False + End If + Try + mySmtpsvr.Host = "192.168.0.107" + mySmtpsvr.Port = 25 + mySmtpsvr.Send(Msg) + + Catch ex3 As Exception + MsgBox(ex3.Message & ex3.StackTrace) + Return False + End Try + End Try + + + End Try + Return True + End Function + + + + Shared Function getISO2Land(LandKz As String) + If LandKz Is Nothing Then Return Nothing + Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].LandKz,'') AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel WHERE Währungstabelle.LandKz='" & LandKz & "' " + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql(sqlstr, "FMZOLL") + End Function + + + Shared Function getISO1Land(LandKz As String) + Dim sqlstr = "SELECT TOP 1 isnull(Währungstabelle.LandKz,'') AS LandKzISO1 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel WHERE [Länderverzeichnis für die Außenhandelsstatistik].LandKz='" & LandKz & "' " + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql(sqlstr, "FMZOLL") + End Function + Shared Function convertToIso(s) As String + Return s + + Dim converted As Byte() = Encoding.Convert(Encoding.UTF8, Encoding.GetEncoding("iso-8859-1"), s) 'Encoding.Convert(Encoding.UTF8, Encoding.GetEncoding("iso-8859-1"), s) + Return converted.ToString + End Function + + + Public Shared Sub sendMailTEST(eMailTo, betreff, text, Optional eMailfrom = "support@verag.ag", Optional prio = False, Optional uhrzeitAngeben = True) + Dim Msg As New MailMessage + Dim myCredentials As New System.Net.NetworkCredential + myCredentials.UserName = "support@verag.ag" + myCredentials.Password = "$up0Rt2809!" + Msg.IsBodyHtml = True + Dim mySmtpsvr As New SmtpClient() + mySmtpsvr.Host = "owa.verag.ag" + mySmtpsvr.Port = 25 '587 '25 + mySmtpsvr.UseDefaultCredentials = False + mySmtpsvr.Credentials = myCredentials + Try + Msg.From = New MailAddress(eMailfrom) + Msg.To.Add(eMailTo) + Msg.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1") + + Msg.Subject = betreff '"ERROR - DAKOSY Einarbeitung" + If uhrzeitAngeben Then + Msg.Body = "Zeitpunkt: " & Now.ToShortDateString & " " & Now.ToShortTimeString & "

" + 'Msg.Body &= vbNewLine & vbNewLine + End If + Msg.Body &= text + If prio Then Msg.Priority = MailPriority.High + + mySmtpsvr.Send(Msg) + Catch ex As Exception + Try + mySmtpsvr.Host = "192.168.0.107" + mySmtpsvr.Send(Msg) + + Catch ex2 As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + + End Try + + End Sub + +End Class + + +Public Class SDL_Functions + Shared Function SDL_GueltigBis_UTA_IDS() + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.doSQL("UPDATE SDL SET Archiviert=1 where SDLNr IN(212,100) AND (Archiviert is null OR Archiviert = 0) AND [GültigBis] is not null AND [GültigBis] < dateadd(month,-2,CAST(SUBSTRING(CAST((DATEADD(d,-DAY(GETDATE()),GETDATE()) + 1) AS BINARY(8)),1,4) + 0x00000000 AS DATETIME))", "SDL") + End Function +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/en-US.dic b/SDL/VERAG_PROG_ALLGEMEIN/en-US.dic new file mode 100644 index 0000000..3d540dc --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/en-US.dic @@ -0,0 +1,62361 @@ +[Copyright] +This dictionary is based on a subset of the original +English wordlist created by Kevin Atkinson for Pspell +and Aspell and thus is covered by his original +LGPL license. The affix file is a heavily modified +version of the original english.aff file which was +released as part of Geoff Kuenning's Ispell and as +such is covered by his BSD license. + +[Try] +esianrtolcdugmphbyfvkwESIANRTOLCDUGMPHBYFVKW + +[Replace] +a ei +ei a +a ey +ey a +ai ie +ie ai +are air +are ear +are eir +air are +air ere +ere air +ere ear +ere eir +ear are +ear air +ear ere +eir are +eir ere +ch te +te ch +ch ti +ti ch +ch tu +tu ch +ch s +s ch +ch k +k ch +f ph +ph f +gh f +f gh +i igh +igh i +i uy +uy i +i ee +ee i +j di +di j +j gg +gg j +j ge +ge j +s ti +ti s +s ci +ci s +k cc +cc k +k qu +qu k +kw qu +o eau +eau o +o ew +ew o +oo ew +ew oo +ew ui +ui ew +oo ui +ui oo +ew u +u ew +oo u +u oo +u oe +oe u +u ieu +ieu u +ue ew +ew ue +uff ough +oo ieu +ieu oo +ier ear +ear ier +ear air +air ear +w qu +qu w +z ss +ss z +shun tion +shun sion +shun cion + +[Prefix] +A Y 1 +A 0 re . +I Y 1 +I 0 in . +U Y 1 +U 0 un . +C Y 1 +C 0 de . +E Y 1 +E 0 dis . +F Y 1 +F 0 con . +K Y 1 +K 0 pro . + +[Suffix] +V N 2 +V e ive e +V 0 ive [^e] +N Y 3 +N e ion e +N y ication y +N 0 en [^ey] +X Y 3 +X e ions e +X y ications y +X 0 ens [^ey] +H N 2 +H y ieth y +H 0 th [^y] +Y Y 1 +Y 0 ly . +G Y 2 +G e ing e +G 0 ing [^e] +J Y 2 +J e ings e +J 0 ings [^e] +D Y 4 +D 0 d e +D y ied [^aeiou]y +D 0 ed [^ey] +D 0 ed [aeiou]y +T N 4 +T 0 st e +T y iest [^aeiou]y +T 0 est [aeiou]y +T 0 est [^ey] +R Y 4 +R 0 r e +R y ier [^aeiou]y +R 0 er [aeiou]y +R 0 er [^ey] +Z Y 4 +Z 0 rs e +Z y iers [^aeiou]y +Z 0 ers [aeiou]y +Z 0 ers [^ey] +S Y 4 +S y ies [^aeiou]y +S 0 s [aeiou]y +S 0 es [sxzh] +S 0 s [^sxzhy] +P Y 3 +P y iness [^aeiou]y +P 0 ness [aeiou]y +P 0 ness [^y] +M Y 1 +M 0 's . +B Y 3 +B 0 able [^aeiou] +B 0 able ee +B e able [^aeiou]e +L Y 1 +L 0 ment . + +[Phonetic] +AH(AEIOUY)-^ *H +AR(AEIOUY)-^ *R +A(HR)^ * +A^ * +AH(AEIOUY)- H +AR(AEIOUY)- R +A(HR) _ +BB- _ +B B +CQ- _ +CIA X +CH X +C(EIY)- S +CK K +COUGH^ KF +CC< C +C K +DG(EIY) K +DD- _ +D T +É< E +EH(AEIOUY)-^ *H +ER(AEIOUY)-^ *R +E(HR)^ * +ENOUGH^$ *NF +E^ * +EH(AEIOUY)- H +ER(AEIOUY)- R +E(HR) _ +FF- _ +F F +GN^ N +GN$ N +GNS$ NS +GNED$ N +GH(AEIOUY)- K +GH _ +GG9 K +G K +H H +IH(AEIOUY)-^ *H +IR(AEIOUY)-^ *R +I(HR)^ * +I^ * +ING6 N +IH(AEIOUY)- H +IR(AEIOUY)- R +I(HR) _ +J K +KN^ N +KK- _ +K K +LAUGH^ LF +LL- _ +L L +MB$ M +MM M +M M +NN- _ +N N +OH(AEIOUY)-^ *H +OR(AEIOUY)-^ *R +O(HR)^ * +O^ * +OH(AEIOUY)- H +OR(AEIOUY)- R +O(HR) _ +PH F +PN^ N +PP- _ +P P +Q K +RH^ R +ROUGH^ RF +RR- _ +R R +SCH(EOU)- SK +SC(IEY)- S +SH X +SI(AO)- X +SS- _ +S S +TI(AO)- X +TH @ +TCH-- _ +TOUGH^ TF +TT- _ +T T +UH(AEIOUY)-^ *H +UR(AEIOUY)-^ *R +U(HR)^ * +U^ * +UH(AEIOUY)- H +UR(AEIOUY)- R +U(HR) _ +V^ W +V F +WR^ R +WH^ W +W(AEIOU)- W +X^ S +X KS +Y(AEIOU)- Y +ZZ- _ +Z S + +[Words] +a//* +A//* +AA//* +AAA//* +Aachen/M/*XN +aardvark/SM/*TFK +Aaren/M/*RN +Aarhus/M/*HS +Aarika/M/*RK +Aaron/M/*RN +AB//*B +ab/DY/*B +Ab/M/*B +aback//*BK +abacus/SM/*BKS +abaft//*BFT +Abagael/M/*BKL +Abagail/M/*BKL +abalone/SM/*BLN +abandon/LGDRS/*BNTN +abandoner/M/*BNTN +abandonment/SM/*BNTNMNT +abase/LGDSR/*BS +abasement/S/*BSMNT +abaser/M/*BS +abash/SDLG/*BX +abashed/UY/*BXT +abashment/MS/*BXMNT +abate/DSRLG/*BT +abated/U/*BTT +abatement/MS/*BTMNT +abater/M/*BT +abattoir/SM/*BT +Abba/M/*B +Abbe/M/*B +abbé/S/*B +abbess/SM/*BS +Abbey/M/*B +abbey/MS/*B +Abbi/M/*B +Abbie/M/*B +Abbot/M/*BT +abbot/MS/*BT +Abbott/M/*BT +abbr//*BR +abbrev//*BRF +abbreviate/XDSNG/*BRFT +abbreviated/UA/*BRFTT +abbreviates/A/*BRFTS +abbreviating/A/*BRFTN +abbreviation/M/*BRFXN +Abby/M/*B +Abbye/M/*BY +ABC/M/*BK +Abdel/M/*BTL +abdicate/NGDSX/*BTKT +abdication/M/*BTKXN +abdomen/SM/*BTMN +abdominal/YS/*BTMNL +abduct/DGS/*BTKT +abduction/SM/*BTKXN +abductor/SM/*BTKT +Abdul/M/*BTL +Abe/M/*B +abeam//*BM +Abel/M/*BL +Abelard/M/*BLT +Abelson/M/*BLSN +Aberdeen/M/*BTN +Abernathy/M/*BN@ +aberrant/YS/*BRNT +aberration/SM/*BRXN +aberrational//*BRXNL +abet/S/*BT +abetted//*BTT +abetting//*BTN +abettor/SM/*BT +Abeu/M/*B +Abey/M/*B +abeyance/MS/*BYNS +abeyant//*BYNT +abhor/S/*BH +abhorred//*BHRT +abhorrence/MS/*BHRNS +abhorrent/Y/*BHRNT +abhorrer/M/*BHR +abhorring//*BHRN +abidance/MS/*BTNS +abide/JGSR/*BT +abider/M/*BT +abiding/Y/*BTN +Abidjan/M/*BTKN +Abie/M/*B +Abigael/M/*BKL +Abigail/M/*BKL +Abigale/M/*BKL +Abilene/M/*BLN +ability/IMES/*BLT +abject/SGPDY/*BKKT +abjection/MS/*BKKXN +abjectness/SM/*BKKTNS +abjuration/SM/*BKRXN +abjuratory//*BKRTR +abjure/ZGSRD/*BKR +abjurer/M/*BKR +ablate/VGNSDX/*BLT +ablation/M/*BLXN +ablative/SY/*BLTF +ablaze//*BLS +able/U/*BL +abler/E/*BL +ables/E/*BLS +ablest//*BLST +abloom//*BLM +ablution/MS/*BLXN +ABM/S/*BM +abnegate/NGSDX/*BNKT +abnegation/M/*BNKXN +Abner/M/*BN +abnormal/SY/*BNML +abnormality/SM/*BNMLT +Abo/SM/*B +aboard//*BT +abode/GMDS/*BT +abolish/LZRSDG/*BLX +abolisher/M/*BLX +abolishment/MS/*BLXMNT +abolition/SM/*BLXN +abolitionism/SM/*BLXNSM +abolitionist/SM/*BLXNST +abominable//*BMNBL +abominably//*BMNBL +abominate/XSDGN/*BMNT +abomination/M/*BMNXN +aboriginal/YS/*BRKNL +aborigine/SM/*BRKN +Aborigine/SM/*BRKN +aborning//*BNN +abort/SRDVG/*BT +abortion/MS/*BXN +abortionist/MS/*BXNST +abortive/PY/*BTF +abortiveness/M/*BTFNS +abound/GDS/*BNT +about/S/*BT +above/S/*BF +aboveboard//*BFBT +aboveground//*BFKRNT +Abra/M/*BR +abracadabra/S/*BRKTBR +abrade/SRDG/*BRT +abrader/M/*BRT +Abraham/M/*BRHM +Abrahan/M/*BRHN +Abram/SM/*BRM +Abramo/M/*BRM +Abramson/M/*BRMSN +Abran/M/*BRN +abrasion/MS/*BRXN +abrasive/SYMP/*BRSF +abrasiveness/S/*BRSFNS +abreaction/MS/*BRKXN +abreast//*BRST +abridge/DSRG/*BRK +abridged/U/*BRKT +abridger/M/*BRKR +abridgment/SM/*BRTKMNT +abroad//*BRT +abrogate/XDSNG/*BRKT +abrogation/M/*BRKXN +abrogator/SM/*BRKT +abrupt/TRYP/*BRPT +abruptness/SM/*BRPTNS +ABS//*BS +abs/M/*BS +abscess/GDSM/*BSS +abscissa/SM/*BSS +abscission/SM/*BSXN +abscond/SDRZG/*BSKNT +absconder/M/*BSKNT +abseil/SGDR/*BSL +absence/SM/*BSNS +absent/SGDRY/*BSNT +absentee/MS/*BSNT +absenteeism/SM/*BSNTSM +absentia/M/*BSNX +absentminded/PY/*BSNTMNTT +absentmindedness/S/*BSNTMNTTNS +absinthe/SM/*BSN@ +absolute/NPRSYTX/*BSLT +absoluteness/SM/*BSLTNS +absolution/M/*BSLXN +absolutism/MS/*BSLTSM +absolutist/SM/*BSLTST +absolve/GDSR/*BSLF +absolver/M/*BSLF +absorb/ASGD/*BSB +absorbed/U/*BSBT +absorbency/MS/*BSBNS +absorbent/MS/*BSBNT +absorber/SM/*BSB +absorbing/Y/*BSBN +absorption/MS/*BSPXN +absorptive//*BSPTF +absorptivity/M/*BSPTFT +abstain/GSDRZ/*BSTN +abstainer/M/*BSTN +abstemious/YP/*BSTMS +abstemiousness/MS/*BSTMSNS +abstention/SM/*BSTNXN +abstinence/MS/*BSTNNS +abstinent/Y/*BSTNNT +abstract/PTVGRDYS/*BSTRKT +abstracted/YP/*BSTRKTT +abstractedness/SM/*BSTRKTTNS +abstracter/M/*BSTRKT +abstraction/SM/*BSTRKXN +abstractionism/M/*BSTRKXNSM +abstractionist/SM/*BSTRKXNST +abstractness/SM/*BSTRKTNS +abstractor/MS/*BSTRKT +abstruse/PRYT/*BSTRS +abstruseness/SM/*BSTRSNS +absurd/PRYST/*BST +absurdity/SM/*BSTT +absurdness/SM/*BSTNS +Abuja//*BK +abundance/SM/*BNTNS +abundant/Y/*BNTNT +abuse/GVZDSRB/*BS +abused/E/*BST +abuser/M/*BS +abuses/E/*BSS +abusing/E/*BSN +abusive/YP/*BSF +abusiveness/SM/*BSFNS +abut/LS/*BT +abutment/SM/*BTMNT +abutted//*BTT +abutter/MS/*BT +abutting//*BTN +abuzz//*BS +abysmal/Y/*BSML +abyss/SM/*BS +abyssal//*BSL +Abyssinia/M/*BSN +Abyssinian//*BSNN +AC//*K +ac/DRG/*K +Ac/M/*K +acacia/SM/*KX +academe/MS/*KTM +academia/SM/*KTM +academic/S/*KTMK +academical/Y/*KTMKL +academician/SM/*KTMXN +academicianship//*KTMXNXP +academy/SM/*KTM +Acadia/M/*KT +acanthus/MS/*KN@S +Acapulco/M/*KPLK +accede/SDG/*ST +accelerate/NGSDXV/*SLRT +accelerated/U/*SLRTT +accelerating/Y/*SLRTN +acceleration/M/*SLRXN +accelerator/SM/*SLRT +accelerometer/SM/*SLRMT +accent/SGMD/*SNT +accented/U/*SNTT +accentual/Y/*SNTL +accentuate/XNGSD/*SNTT +accentuation/M/*SNTXN +accept/RDBSZVG/*SPT +acceptability/SM/*SPTBLT +acceptability's/U/*SPTBLTS +acceptable/P/*SPTBL +acceptableness/SM/*SPTBLNS +acceptably/U/*SPTBL +acceptance/SM/*SPTNS +acceptant//*SPTNT +acceptation/SM/*SPTXN +accepted/Y/*SPTT +accepter/M/*SPT +accepting/PY/*SPTN +acceptor/MS/*SPT +access/SDMG/*SS +accessed/A/*SST +accessibility/IMS/*SSBLT +accessible/IU/*SSBL +accessibly/I/*SSBL +accession/SMDG/*SXN +accessors//*SSS +accessory/SM/*SSR +accidence/M/*STNS +accident/MS/*STNT +accidental/SPY/*STNTL +accidentalness/M/*STNTLNS +acclaim/SDRG/*KLM +acclaimer/M/*KLM +acclamation/MS/*KLMXN +acclimate/XSDGN/*KLMT +acclimation/M/*KLMXN +acclimatisation//*KLMTSXN +acclimatise/DG/*KLMTS +acclimatization/AMS/*KLMTSXN +acclimatize/RSDGZ/*KLMTS +acclimatized/U/*KLMTST +acclimatizes/A/*KLMTSS +acclivity/SM/*KLFT +accolade/GDSM/*KLT +accommodate/XVNGSD/*KMTT +accommodated/U/*KMTTT +accommodating/Y/*KMTTN +accommodation/M/*KMTXN +accommodative/P/*KMTTF +accommodativeness/M/*KMTTFNS +accompanied/U/*KMPNT +accompanier/M/*KMPN +accompaniment/MS/*KMPNMNT +accompanist/SM/*KMPNST +accompany/DRSG/*KMPN +accomplice/MS/*KMPLS +accomplish/SRDLZG/*KMPLX +accomplished/U/*KMPLXT +accomplisher/M/*KMPLX +accomplishment/SM/*KMPLXMNT +accord/SZGMRD/*KT +accordance/SM/*KTNS +accordant/Y/*KTNT +accorder/M/*KT +according/Y/*KTN +accordion/MS/*KTN +accordionist/SM/*KTNST +accost/SGD/*KST +account/BMDSGJ/*KNT +accountability/MS/*KNTBLT +accountability's/U/*KNTBLTS +accountable/U/*KNTBL +accountableness/M/*KNTBLNS +accountably/U/*KNTBL +accountancy/SM/*KNTNS +accountant/MS/*KNTNT +accounted/U/*KNTT +accounting/M/*KNTN +accouter/GSD/*KT +accouterments//*KTMNTS +accouterment's//*KTMNTS +accoutrement/M/*KTRMNT +Accra/M/*KR +accredit/SGD/*KRTT +accreditation/SM/*KRTTXN +accredited/U/*KRTTT +accretion/SM/*KRXN +accrual/MS/*KRL +accrue/SDG/*KR +acct//*KT +acculturate/XSDVNG/*KLTRT +acculturation/M/*KLTRXN +accumulate/VNGSDX/*KMLT +accumulation/M/*KMLXN +accumulative/YP/*KMLTF +accumulativeness/M/*KMLTFNS +accumulator/MS/*KMLT +accuracy/IMS/*KRS +accurate/IY/*KRT +accurateness/SM/*KRTNS +accursed/YP/*KST +accursedness/SM/*KSTNS +accusal/M/*KSL +accusation/SM/*KSXN +accusative/S/*KSTF +accusatory//*KSTR +accuse/SRDZG/*KS +accused/M/*KST +accuser/M/*KS +accusing/Y/*KSN +accustom/SGD/*KSTM +accustomed/P/*KSTMT +accustomedness/M/*KSTMTNS +ace/SM/*S +aced/M/*ST +acerbate/DSG/*SBT +acerbic//*SBK +acerbically//*SBKL +acerbity/MS/*SBT +acetaminophen/S/*STMNFN +acetate/MS/*STT +acetic//*STK +acetone/SM/*STN +acetonic//*STNK +acetylene/MS/*STLN +Acevedo/M/*SFT +Achaean/M/*XN +ache/DSG/*X +Achebe/M/*XB +ached/A/*XT +achene/SM/*XN +Achernar/M/*XN +aches/A/*XS +Acheson/M/*XSN +achievable/U/*XFBL +achieve/LZGRSDB/*XF +achieved/UA/*XFT +achievement/SM/*XFMNT +achiever/M/*XF +Achilles//*XLS +aching/Y/*XN +achoo//*X +achromatic//*XRMTK +achy/TR/*X +acid/SMYP/*ST +acidic//*STK +acidification/M/*STFKXN +acidify/NSDG/*STF +acidity/SM/*STT +acidness/M/*STNS +acidoses//*STSS +acidosis/M/*STSS +acidulous//*STLS +acing/M/*SN +Ackerman/M/*KMN +acknowledge/GZDRS/*KNLK +acknowledgeable//*KNLKBL +acknowledged/U/*KNLKT +acknowledgedly//*KNLKTL +acknowledger/M/*KNLKR +acknowledgment/SAM/*KNLTKMNT +ACLU//*KL +ACM//*KM +acme/SM/*KM +acne/MDS/*KN +acolyte/MS/*KLT +Aconcagua/M/*KNKK +aconite/MS/*KNT +acorn/SM/*KN +Acosta/M/*KST +acoustic/S/*KSTK +acoustical/Y/*KSTKL +acoustician/M/*KSTXN +acoustics/M/*KSTKS +acquaint/GASD/*KNT +acquaintance/MS/*KNTNS +acquaintanceship/S/*KNTNSXP +acquainted/U/*KNTT +acquiesce/GSD/*KS +acquiescence/SM/*KSNS +acquiescent/Y/*KSNT +acquirable//*KRBL +acquire/ASDG/*KR +acquirement/SM/*KRMNT +acquisition/SM/*KSXN +acquisition's/A/*KSXNS +acquisitive/PY/*KSTF +acquisitiveness/MS/*KSTFNS +acquit/S/*KT +acquittal/MS/*KTL +acquittance/M/*KTNS +acquitted//*KTT +acquitter/M/*KT +acquitting//*KTN +acre/MS/*KR +acreage/MS/*KRK +acrid/TPRY/*KRT +acridity/MS/*KRTT +acridness/SM/*KRTNS +acrimonious/YP/*KRMNS +acrimoniousness/MS/*KRMNSNS +acrimony/MS/*KRMN +acrobat/SM/*KRBT +acrobatic/S/*KRBTK +acrobatically//*KRBTKL +acrobatics/M/*KRBTKS +acronym/SM/*KRNM +acrophobia/SM/*KRFB +Acropolis/M/*KRPLS +acropolis/SM/*KRPLS +across//*KRS +acrostic/SM/*KRSTK +Acrux/M/*KRKS +acrylate/M/*KRLT +acrylic/S/*KRLK +ACT//*KT +act/SADVG/*KT +Acta/M/*KT +Actaeon/M/*KTN +ACTH//*K@ +acting/S/*KTN +actinic//*KTNK +actinide/SM/*KTNT +actinium/MS/*KTNM +actinometer/MS/*KTNMT +action/DMSGB/*KXN +actions/AI/*KXNS +action's/IA/*KXNS +activate/AXCDSNGI/*KTFT +activated/U/*KTFTT +activation/AMCI/*KTFXN +activator/SM/*KTFT +active/APY/*KTF +actively/I/*KTFL +activeness/MS/*KTFNS +actives//*KTFS +activism/MS/*KTFSM +activist/MS/*KTFST +activities/A/*KTFTS +activity/MSI/*KTFT +Acton/M/*KTN +actor/MAS/*KT +actress/SM/*KTRS +act's//*KTS +Acts//*KTS +actual/SY/*KTL +actuality/SM/*KTLT +actualization/MAS/*KTLSXN +actualize/GSD/*KTLS +actualizes/A/*KTLSS +actuarial/Y/*KTRL +actuary/MS/*KTR +actuate/GNXSD/*KTT +actuation/M/*KTXN +actuator/SM/*KTT +acuity/MS/*KT +acumen/SM/*KMN +acupressure/S/*KPRSR +acupuncture/SM/*KPNKTR +acupuncturist/S/*KPNKTRST +acute/YTSRP/*KT +acuteness/MS/*KTNS +acyclic//*SKLK +acyclically//*SKLKL +acyclovir/S/*SKLF +AD//*T +ad/AS/*T +Ad/MN/*T +Ada/M/*T +adage/MS/*TK +adagio/S/*TK +Adah/M/*T +Adair/M/*T +Adaline/M/*TLN +Adam/SM/*TM +adamant/SY/*TMNT +Adamo/M/*TM +Adamson/M/*TMSN +Adan/M/*TN +Adana/M/*TN +adapt/SRDBZVG/*TPT +adaptability/MS/*TPTBLT +adaptable/U/*TPTBL +adaptation/MS/*TPTXN +adapted/P/*TPTT +adaptedness/M/*TPTTNS +adapter/M/*TPT +adapting/A/*TPTN +adaption//*TPXN +adaptive/U/*TPTF +adaptively//*TPTFL +adaptiveness/M/*TPTFNS +adaptivity//*TPTFT +Adara/M/*TR +ADC//*TK +add/ZGBSDR/*T +Adda/M/*T +Addams//*TMS +addend/SM/*TNT +addenda//*TNT +addendum/M/*TNTM +adder/M/*T +Addi/M/*T +Addia/M/*T +addict/SGVD/*TKT +addiction/MS/*TKXN +addictive/P/*TKTF +Addie/M/*T +Addison/M/*TSN +addition/MS/*TXN +additional/Y/*TXNL +additive/YMS/*TTF +additivity//*TTFT +addle/GDS/*TL +address/MDRSZGB/*TRS +addressability//*TRSBLT +addressable/U/*TRSBL +addressed/A/*TRST +addressee/SM/*TRS +addresser/M/*TRS +addresses/A/*TRSS +Addressograph/M/*TRSKRF +adduce/GRSD/*TS +adducer/M/*TS +adduct/DGVS/*TKT +adduction/M/*TKXN +adductor/M/*TKT +Addy/M/*T +Ade/M/*T +Adel/M/*TL +Adela/M/*TL +Adelaida/M/*TLT +Adelaide/M/*TLT +Adelbert/M/*TLBT +Adele/M/*TL +Adelheid/M/*TLHT +Adelice/M/*TLS +Adelina/M/*TLN +Adelind/M/*TLNT +Adeline/M/*TLN +Adella/M/*TL +Adelle/M/*TL +Aden/M/*TN +Adena/M/*TN +Adenauer/M/*TN +adenine/SM/*TNN +adenoid/S/*TNT +adenoidal//*TNTL +adept/RYPTS/*TPT +adeptness/MS/*TPTNS +adequacy/IMS/*TKS +adequate/IPY/*TKT +adequateness/SM/*TKTNS +adequateness's/I/*TKTNSS +Adey/M/*T +Adham/M/*THM +Adhara/M/*THR +adhere/ZGRSD/*THR +adherence/SM/*THRNS +adherent/YMS/*THRNT +adherer/M/*THR +adhesion/MS/*THXN +adhesive/PYMS/*THSF +adhesiveness/MS/*THSFNS +Adi/M/*T +adiabatic//*TBTK +adiabatically//*TBTKL +Adiana/M/*TN +Adidas/M/*TTS +adieu/S/*T +Adina/M/*TN +adiós//*TS +adipose/S/*TPS +Adirondack/SM/*TRNTK +adj//*TK +adjacency/MS/*TKSNS +adjacent/Y/*TKSNT +adjectival/Y/*TKKTFL +adjective/MYS/*TKKTF +adjoin/SDG/*TKN +adjoint/M/*TKNT +adjourn/DGLS/*TKN +adjournment/SM/*TKNMNT +adjudge/DSG/*TKK +adjudicate/VNGXSD/*TKTKT +adjudication/M/*TKTKXN +adjudicator/SM/*TKTKT +adjudicatory//*TKTKTR +adjunct/VSYM/*TKNKT +adjuration/SM/*TKRXN +adjure/GSD/*TKR +adjust/DRALGSB/*TKST +adjustable/U/*TKSTBL +adjustably//*TKSTBL +adjusted/U/*TKSTT +adjuster/SM/*TKST +adjuster's/A/*TKSTS +adjustive//*TKSTF +adjustment/MAS/*TKSTMNT +adjustor's//*TKSTS +adjutant/SM/*TKTNT +Adkins/M/*TKNS +Adlai/M/*TL +Adler/M/*TL +Adm/M/*TM +adman/M/*TMN +admen//*TMN +administer/GDJS/*TMNST +administrable//*TMNSTRBL +administrate/XSDVNG/*TMNSTRT +administration/M/*TMNSTRXN +administrative/Y/*TMNSTRTF +administrator/MS/*TMNSTRT +administratrix/M/*TMNSTRTRKS +admirable/P/*TMRBL +admirableness/M/*TMRBLNS +admirably//*TMRBL +admiral/SM/*TMRL +admiralty/MS/*TMRLT +Admiralty/S/*TMRLT +admiration/MS/*TMRXN +admire/RSDZBG/*TMR +admirer/M/*TMR +admiring/Y/*TMRN +admissibility/ISM/*TMSBLT +admissible/I/*TMSBL +admissibly//*TMSBL +admission/AMS/*TMXN +admit/AS/*TMT +admittance/MS/*TMTNS +admitted/A/*TMTT +admittedly//*TMTTL +admitting/A/*TMTN +admix/SDG/*TMKS +admixture/SM/*TMKSTR +admonish/GLSRD/*TMNX +admonisher/M/*TMNX +admonishing/Y/*TMNXN +admonishment/SM/*TMNXMNT +admonition/MS/*TMNXN +admonitory//*TMNTR +Ado/M/*T +ado/MS/*T +adobe/MS/*TB +adolescence/MS/*TLSNS +adolescent/SYM/*TLSNT +Adolf/M/*TLF +Adolfo/M/*TLF +Adolph/M/*TLF +Adolphe/M/*TLF +Adolpho/M/*TLF +Adolphus/M/*TLFS +Adonis/SM/*TNS +adopt/RDSBZVG/*TPT +adopted/AU/*TPTT +adopter/M/*TPT +adoption/MS/*TPXN +adoptive/Y/*TPTF +adopts/A/*TPTS +Adora/M/*TR +adorable/P/*TRBL +adorableness/SM/*TRBLNS +adorably//*TRBL +adoration/SM/*TRXN +adore/DSRGZB/*TR +Adore/M/*TR +Adoree/M/*TR +adorer/M/*TR +adoring/Y/*TRN +adorn/SGLD/*TN +Adorne/M/*TN +adorned/U/*TNT +adornment/SM/*TNMNT +ADP//*TP +Adrea/M/*TR +adrenal/YS/*TRNL +adrenalin//*TRNLN +Adrenalin/MS/*TRNLN +adrenaline/MS/*TRNLN +Adria/MX/*TR +Adrian/M/*TRN +Adriana/M/*TRN +Adriane/M/*TRN +Adrianna/M/*TRN +Adrianne/M/*TRN +Adriano/M/*TRN +Adriatic//*TRTK +Adrien/M/*TRN +Adriena/M/*TRN +Adrienne/M/*TRN +adrift//*TRFT +adroit/RTYP/*TRT +adroitness/MS/*TRTNS +ads//*TS +ad's//*TS +adsorb/GSD/*TSB +adsorbate/M/*TSBT +adsorbent/S/*TSBNT +adsorption/MS/*TSPXN +adsorptive/Y/*TSPTF +adulate/GNDSX/*TLT +adulation/M/*TLXN +adulator/SM/*TLT +adulatory//*TLTR +adult/MYPS/*TLT +adulterant/SM/*TLTRNT +adulterate/NGSDX/*TLTRT +adulterated/U/*TLTRTT +adulteration/M/*TLTRXN +adulterer/SM/*TLTR +adulteress/MS/*TLTRS +adulterous/Y/*TLTRS +adultery/SM/*TLTR +adulthood/MS/*TL@T +adultness/M/*TLTNS +adumbrate/XSDVGN/*TMBRT +adumbration/M/*TMBRXN +adumbrative/Y/*TMBRTF +adv//*TF +advance/DSRLZG/*TFNS +advancement/MS/*TFNSMNT +advancer/M/*TFNS +advantage/GMEDS/*TFNTK +advantageous/EY/*TFNTKS +advantageousness/M/*TFNTKSNS +Advent/SM/*TFNT +advent/SVM/*TFNT +Adventist/M/*TFNTST +adventist/S/*TFNTST +adventitious/PY/*TFNTXS +adventitiousness/M/*TFNTXSNS +adventive/Y/*TFNTF +adventure/SRDGMZ/*TFNTR +adventurer/M/*TFNTR +adventuresome//*TFNTRSM +adventuress/SM/*TFNTRS +adventurous/YP/*TFNTRS +adventurousness/SM/*TFNTRSNS +adverb/SM/*TFB +adverbial/MYS/*TFBL +adversarial//*TFSRL +adversary/SM/*TFSR +adverse/DSRPYTG/*TFS +adverseness/MS/*TFSNS +adversity/SM/*TFST +advert/GSD/*TFT +advertise/JGZSRDL/*TFTS +advertised/U/*TFTST +advertisement/SM/*TFTSMNT +advertiser/M/*TFTS +advertising/M/*TFTSN +advertorial/S/*TFTRL +advice/SM/*TFS +Advil/M/*TFL +advisability/SIM/*TFSBLT +advisable/I/*TFSBL +advisableness/M/*TFSBLNS +advisably//*TFSBL +advise/ZRSDGLB/*TFS +advised/YU/*TFST +advisedly/I/*TFSTL +advisee/MS/*TFS +advisement/MS/*TFSMNT +adviser/M/*TFS +advisor's//*TFSS +advisory/S/*TFSR +advocacy/SM/*TFKS +advocate/NGVDS/*TFKT +advocation/M/*TFKXN +advt//*TFT +adz/MDSG/*TS +adze's//*TSS +Aegean//*KN +aegis/SM/*KS +Aelfric/M/*LFRK +Aeneas//*NS +Aeneid/M/*NT +aeolian//*LN +Aeolus/M/*LS +aeon's//*NS +aerate/XNGSD/*RT +aeration/M/*RXN +aerator/MS/*RT +aerial/SMY/*RL +aerialist/MS/*RLST +aerie/SRMT/*R +Aeriel/M/*RL +Aeriela/M/*RL +Aeriell/M/*RL +aeroacoustic//*RKSTK +aerobatic/S/*RBTK +aerobic/S/*RBK +aerobically//*RBKL +aerodrome/SM/*RTRM +aerodynamic/S/*RTNMK +aerodynamically//*RTNMKL +aerodynamics/M/*RTNMKS +aeronautic/S/*RNTK +aeronautical/Y/*RNTKL +aeronautics/M/*RNTKS +aerosol/MS/*RSL +aerosolize/D/*RSLS +aerospace/SM/*RSPS +Aeschylus/M/*SXLS +Aesculapius/M/*SKLPS +Aesop/M/*SP +aesthete/S/*S@T +aesthetic/U/*S@TK +aesthetically//*S@TKL +aestheticism/MS/*S@TSSM +aesthetics/M/*S@TKS +aether/M/*@ +aetiology/M/*XLK +AF//*F +AFAIK//*FK +afar/S/*F +AFB//*FB +AFC//*FK +AFDC//*FTK +affability/MS/*FBLT +affable/TR/*FBL +affably//*FBL +affair/SM/*F +affect/EGSD/*FKT +affectation/MS/*FKTXN +affected/UEYP/*FKTT +affectedness/EM/*FKTTNS +affecter/M/*FKT +affecting/Y/*FKTN +affection/EMS/*FKXN +affectionate/UY/*FKXNT +affectioned//*FKXNT +affectioning//*FKXNN +affective/MY/*FKTF +afferent/YS/*FRNT +affiance/GDS/*FNS +affidavit/SM/*FTFT +affiliate/EXSDNG/*FLT +affiliated/U/*FLTT +affiliation/EM/*FLXN +affine//*FN +affinity/SM/*FNT +affirm/ASDG/*FM +affirmation/SAM/*FMXN +affirmative/SY/*FMTF +affix/SDG/*FKS +afflatus/MS/*FLTS +afflict/GVDS/*FLKT +affliction/SM/*FLKXN +afflictive/Y/*FLKTF +affluence/SM/*FLNS +affluent/YS/*FLNT +afford/DSBG/*FT +afforest/A/*FRST +afforestation/SM/*FRSTXN +afforested//*FRSTT +afforesting//*FRSTN +afforests//*FRSTS +affray/MDSG/*FR +affricate/VNMS/*FRKT +affrication/M/*FRKXN +affricative/M/*FRKTF +affright//*FRT +affront/GSDM/*FRNT +afghan/MS/*FKN +Afghan/SM/*FKN +Afghani/SM/*FKN +Afghanistan/M/*FKNSTN +aficionado/MS/*FSNT +afield//*FLT +afire//*FR +aflame//*FLM +afloat//*FLT +aflutter//*FLT +afoot//*FT +afore//*FR +aforementioned//*FRMNXNT +aforesaid//*FRST +aforethought/S/*FR@T +afoul//*FL +Afr//*FR +afraid/U/*FRT +afresh//*FRX +Africa/M/*FRK +African/MS/*FRKN +Afrikaans/M/*FRKNS +Afrikaner/SM/*FRKN +afro//*FR +Afro/MS/*FR +Afrocentric//*FRSNTRK +Afrocentrism/S/*FRSNTRSM +aft/ZR/*FT +afterbirth/M/*FTB@ +afterbirths//*FTB@S +afterburner/MS/*FTBN +aftercare/SM/*FTKR +aftereffect/MS/*FTRFKT +afterglow/MS/*FTKL +afterimage/MS/*FTRMK +afterlife/M/*FTLF +afterlives//*FTLFS +aftermath/M/*FTM@ +aftermaths//*FTM@S +aftermost//*FTMST +afternoon/SM/*FTNN +afters/M/*FTS +aftershave/S/*FTXF +aftershock/SM/*FTXK +aftertaste/SM/*FTTST +afterthought/MS/*FT@T +afterward//*FTWT +afterword/MS/*FTWT +Afton/M/*FTN +Ag/M/*K +Agace/M/*KS +again//*KN +against//*KNST +Agamemnon/M/*KMMNN +agapae//*KP +agape/S/*KP +agar/MS/*K +Agassiz/M/*KSS +Agata/M/*KT +agate/SM/*KT +Agatha/M/*K@ +Agathe/M/*K@ +agave/SM/*KF +age/GJDRSMZ/*K +aged/PY/*KT +agedness/M/*KTNS +ageism/S/*KSM +ageist/S/*KST +ageless/YP/*KLS +agelessness/MS/*KLSNS +agency/SM/*KNS +agenda/MS/*KNT +agent/AMS/*KNT +agented//*KNTT +agenting//*KNTN +agentive//*KNTF +ageratum/M/*KRTM +Aggi/M/*K +Aggie/M/*K +agglomerate/XNGVDS/*KLMRT +agglomeration/M/*KLMRXN +agglutinate/VNGXSD/*KLTNT +agglutination/M/*KLTNXN +agglutinin/MS/*KLTNN +aggrandize/LDSG/*KRNTS +aggrandizement/SM/*KRNTSMNT +aggravate/SDNGX/*KRFT +aggravating/Y/*KRFTN +aggravation/M/*KRFXN +aggregate/EGNVD/*KRKT +aggregated/U/*KRKTT +aggregately//*KRKTL +aggregateness/M/*KRKTNS +aggregates//*KRKTS +aggregation/SM/*KRKXN +aggregative/Y/*KRKTF +aggression/SM/*KRXN +aggressive/U/*KRSF +aggressively//*KRSFL +aggressiveness/S/*KRSFNS +aggressor/MS/*KRS +aggrieve/GDS/*KRF +aggrieved/Y/*KRFT +Aggy/SM/*K +aghast//*KST +agile/YTR/*KL +agility/MS/*KLT +agitate/XVNGSD/*KTT +agitated/Y/*KTTT +agitation/M/*KTXN +agitator/SM/*KTT +agitprop/MS/*KTPRP +Aglaia/M/*KL +agleam//*KLM +aglitter//*KLT +aglow//*KL +Agna/M/*KN +Agnella/M/*KNL +Agnes/M/*KNS +Agnese/M/*KNS +Agnesse/M/*KNS +Agneta/M/*KNT +Agnew/M/*KN +Agni/M/*KN +Agnola/M/*KNL +agnostic/SM/*KNSTK +agnosticism/MS/*KNSTSSM +ago//*K +agog//*KK +agonize/ZGRSD/*KNS +agonized/Y/*KNST +agonizedly/S/*KNSTL +agonizing/Y/*KNSN +agony/SM/*KN +agoraphobia/MS/*KRFB +agoraphobic/S/*KRFBK +Agosto/M/*KST +Agra/M/*KR +agrarian/S/*KRRN +agrarianism/MS/*KRRNSM +agree/LEBDS/*KR +agreeable/EP/*KRBL +agreeableness/SME/*KRBLNS +agreeably/E/*KRBL +agreeing/E/*KRN +agreement/ESM/*KRMNT +agreer/S/*KR +Agretha/M/*KR@ +agribusiness/SM/*KRBSNS +Agricola/M/*KRKL +agricultural/Y/*KRKLTRL +agriculturalist/S/*KRKLTRLST +agriculture/MS/*KRKLTR +agriculturist/SM/*KRKLTRST +Agrippa/M/*KRP +Agrippina/M/*KRPN +agrochemicals//*KRXMKLS +agronomic/S/*KRNMK +agronomist/SM/*KRNMST +agronomy/MS/*KRNM +aground//*KRNT +Aguascalientes/M/*KSKLNTS +ague/MS/*K +Aguie/M/*K +Aguilar/M/*KL +Aguinaldo/M/*KNLT +Aguirre/M/*KR +Aguistin/M/*KSTN +Aguste/M/*KST +Agustin/M/*KSTN +ah//* +aha/S/*H +Ahab/M/*HB +Aharon/M/*HRN +ahead//*HT +ahem/S/*HM +Ahmad/M/*MT +Ahmadabad//*MTBT +Ahmed/M/*MT +ahoy/S/*H +Ahriman/M/*RMN +AI//* +aid/ZGDRS/*T +Aida/M/*T +Aidan/M/*TN +aide/MS/*T +aided/U/*TT +aider/M/*T +AIDS//*TS +Aigneis/M/*KNS +aigrette/SM/*KRT +Aiken/M/*KN +ail/LSDG/*L +Aila/M/*L +Ailbert/M/*LBT +Aile/M/*L +Ailee/M/*L +Aileen/M/*LN +Ailene/M/*LN +aileron/MS/*LRN +Ailey/M/*L +Aili/SM/*L +Ailina/M/*LN +ailment/SM/*LMNT +Ailsun/M/*LSN +Ailyn/M/*LN +aim/ZSGDR/*M +Aime/M/*M +Aimee/M/*M +aimer/M/*M +Aimil/M/*ML +aimless/YP/*MLS +aimlessness/MS/*MLSNS +Aindrea/M/*NTR +Ainslee/M/*NSL +Ainsley/M/*NSL +Ainslie/M/*NSL +ain't//*NT +Ainu/M/*N +air/MDRTZGJS/* +airbag/MS/*BK +airbase/S/*BS +airborne//*BN +airbrush/SDMG/*BRX +Airbus/M/*BS +airbus/SM/*BS +aircraft/MS/*KRFT +aircrew/M/*KR +airdrop/MS/*TRP +airdropped//*TRPT +airdropping//*TRPN +Airedale/SM/*RTL +Aires//*RS +airfare/S/*FR +airfield/MS/*FLT +airflow/SM/*FL +airfoil/MS/*FL +airframe/MS/*FRM +airfreight/SGD/*FRT +airhead/MS/*HT +airily//*RL +airiness/MS/*RNS +airing/M/*RN +airless/P/*LS +airlessness/S/*LSNS +airlift/MDSG/*LFT +airline/SRMZ/*LN +airliner/M/*LN +airlock/MS/*LK +airmail/DSG/*ML +airman/M/*MN +airmass//*MS +airmen//*MN +airpark//*PK +airplane/SM/*PLN +airplay/S/*PL +airport/MS/*PT +airship/MS/*XP +airsick/P/*SK +airsickness/SM/*SKNS +airspace/SM/*SPS +airspeed/SM/*SPT +airstrip/MS/*STRP +airtight/P/*TT +airtightness/M/*TTNS +airtime//*TM +airwaves//*WFS +airway/SM/*W +airworthiness/SM/*W@NS +airworthy/PTR/*W@ +airy/PRT/*R +Aisha/M/*X +aisle/DSGM/*SL +aitch/MS/*X +ajar//*K +Ajax/M/*KKS +Ajay/M/*K +AK//*K +aka//*K +Akbar/M/*KB +Akihito/M/*KHT +Akim/M/*KM +akimbo//*KMB +akin//*KN +Akita/M/*KT +Akkad/M/*KT +Akron/M/*KRN +Aksel/M/*KSL +AL//*L +Al/MRY/*L +ala/MS/*L +Ala/MS/*L +Alabama/M/*LBM +Alabaman/S/*LBMN +Alabamian/MS/*LBMN +alabaster/MS/*LBST +alack/S/*LK +alacrity/SM/*LKRT +Aladdin/M/*LTN +Alain/M/*LN +Alaine/M/*LN +Alair/M/*L +Alameda/M/*LMT +Alamo/SM/*LM +Alamogordo/M/*LMKT +Alan/M/*LN +Alana/M/*LN +Alanah/M/*LN +Aland/M/*LNT +Alane/M/*LN +alanine/M/*LNN +Alanna/M/*LN +Alano/M/*LN +Alanson/M/*LNSN +Alar/M/*L +Alard/M/*LT +Alaric/M/*LRK +alarm/SDG/*LM +alarming/Y/*LMN +alarmist/MS/*LMST +alas/S/*LS +Alasdair/M/*LST +Alaska/M/*LSK +Alaskan/S/*LSKN +Alastair/M/*LST +Alasteir/M/*LST +Alaster/M/*LST +Alayne/M/*LN +alb/MS/*LB +alba/M/*LB +Alba/M/*LB +albacore/SM/*LBKR +Albania/M/*LBN +Albanian/SM/*LBNN +Albany/M/*LBN +albatross/SM/*LBTRS +albedo/M/*LBT +Albee/M/*LB +albeit//*LBT +Alberich/M/*LBRX +Alberik/M/*LBRK +Alberio/M/*LBR +Albert/M/*LBT +Alberta/M/*LBT +Albertan/S/*LBTN +Albertina/M/*LBTN +Albertine/M/*LBTN +Alberto/M/*LBT +Albie/M/*LB +Albigensian//*LBKNXN +Albina/M/*LBN +albinism/SM/*LBNSM +albino/MS/*LBN +Albion/M/*LBN +Albireo/M/*LBR +Albrecht/M/*LBRXT +album/MNXS/*LBM +albumen/M/*LBMN +albumin/MS/*LBMN +albuminous//*LBMNS +Albuquerque/M/*LBKK +Alcatraz/M/*LKTRS +Alcestis/M/*LSSTS +alchemical//*LXMKL +alchemist/SM/*LXMST +alchemy/MS/*LXM +Alcibiades/M/*LSBTS +Alcmena/M/*LKMN +Alcoa/M/*LK +alcohol/MS/*LKHL +alcoholic/MS/*LKHLK +alcoholically//*LKHLKL +alcoholism/SM/*LKHLSM +Alcott/M/*LKT +alcove/MSD/*LKF +Alcuin/M/*LKN +Alcyone/M/*LSYN +Aldan/M/*LTN +Aldebaran/M/*LTBRN +aldehyde/M/*LTHT +Alden/M/*LTN +alder/SM/*LT +Alderamin/M/*LTRMN +alderman/M/*LTMN +aldermen//*LTMN +alderwoman//*LTWMN +alderwomen//*LTWMN +Aldin/M/*LTN +Aldis/M/*LTS +Aldo/M/*LT +Aldon/M/*LTN +Aldous/M/*LTS +Aldric/M/*LTRK +Aldrich/M/*LTRX +Aldridge/M/*LTRK +Aldrin/M/*LTRN +Aldus/M/*LTS +Aldwin/M/*LTWN +ale/MVS/*L +aleatory//*LTR +Alec/M/*LK +Alecia/M/*LX +Aleck/M/*LK +Aleda/M/*LT +alee//*L +Aleece/M/*LS +Aleen/M/*LN +alehouse/MS/*LHS +Aleichem/M/*LXM +Alejandra/M/*LKNTR +Alejandrina/M/*LKNTRN +Alejandro/M/*LKNTR +Alejoa/M/*LK +Aleksandr/M/*LKSNTR +Alembert/M/*LMBT +alembic/SM/*LMBK +Alena/M/*LN +Alene/M/*LN +aleph/M/*LF +Aleppo/M/*LP +Aler/M/*L +alert/STZGPRDY/*LT +alerted/Y/*LTT +alertness/MS/*LTNS +Alessandra/M/*LSNTR +Alessandro/M/*LSNTR +Aleta/M/*LT +Alethea/M/*L@ +Aleut/SM/*LT +Aleutian/S/*LXN +alewife/M/*LWF +alewives//*LWFS +Alex/M/*LKS +Alexa/M/*LKS +Alexander/SM/*LKSNT +Alexandr/M/*LKSNTR +Alexandra/M/*LKSNTR +Alexandre/M/*LKSNTR +Alexandria/M/*LKSNTR +Alexandrian/S/*LKSNTRN +Alexandrina/M/*LKSNTRN +Alexandro/MS/*LKSNTR +Alexei/M/*LKS +Alexi/SM/*LKS +Alexia/M/*LKS +Alexina/M/*LKSN +Alexine/M/*LKSN +Alexio/M/*LKS +Alf/M/*LF +Alfa/M/*LF +alfalfa/MS/*LFLF +Alfi/M/*LF +Alfie/M/*LF +Alfons/M/*LFNS +Alfonse/M/*LFNS +Alfonso/M/*LFNS +Alfonzo/M/*LFNS +Alford/M/*LFT +Alfred/M/*LFRT +Alfreda/M/*LFRT +Alfredo/M/*LFRT +alfresco//*LFRSK +Alfy/M/*LF +alga/M/*LK +algae//*LK +algaecide//*LKST +algal//*LKL +algebra/MS/*LKBR +algebraic//*LKBRK +algebraical/Y/*LKBRKL +algebraist/M/*LKBRST +Algenib/M/*LKNB +Alger/M/*LK +Algeria/M/*LKR +Algerian/MS/*LKRN +Algernon/M/*LKNN +Algieba/M/*LKB +Algiers/M/*LKS +alginate/SM/*LKNT +ALGOL//*LKL +Algol/M/*LKL +Algonquian/SM/*LKNKN +Algonquin/SM/*LKNKN +algorithm/MS/*LKR@M +algorithmic//*LKR@MK +algorithmically//*LKR@MKL +Alhambra/M/*LHMBR +Alhena/M/*LHN +Ali/MS/*L +Alia/M/*L +alias/GSD/*LS +alibi/MDSG/*LB +Alic/M/*LK +Alica/M/*LK +Alice/M/*LS +Alicea/M/*LS +Alicia/M/*LX +Alick/M/*LK +Alida/M/*LT +Alidia/M/*LT +Alie/M/*L +alien/RDGMBS/*LN +alienable/IU/*LNBL +alienate/SDNGX/*LNT +alienation/M/*LNXN +alienist/MS/*LNST +Alighieri/M/*LKR +alight/DSG/*LT +align/LASDG/*LN +aligned/U/*LN +aligner/SM/*LKN +alignment/SAM/*LKNMNT +Alika/M/*LK +alike/U/*LK +Alikee/M/*LK +alikeness/M/*LKNS +aliment/SDMG/*LMNT +alimentary//*LMNTR +alimony/MS/*LMN +Alina/M/*LN +Aline/M/*LN +alinement's//*LNMNTS +Alioth/M/*L@ +aliquot/S/*LKT +Alisa/M/*LS +Alisander/M/*LSNT +Alisha/M/*LX +Alison/M/*LSN +Alissa/M/*LS +Alistair/M/*LST +Alister/M/*LST +Alisun/M/*LSN +alive/P/*LF +aliveness/MS/*LFNS +Alix/M/*LKS +aliyah/M/*LY +aliyahs//*LYS +Aliza/M/*LS +Alkaid/M/*LKT +alkali/M/*LKL +alkalies//*LKLS +alkaline//*LKLN +alkalinity/MS/*LKLNT +alkalize/SDG/*LKLS +alkaloid/MS/*LKLT +alkyd/S/*LKT +alkyl/M/*LKL +all/S/*L +Alla/M/*L +Allah/M/*L +Allahabad/M/*LHBT +Allan/M/*LN +Allard/M/*LT +allay/GDS/*L +Allayne/M/*LN +Alleen/M/*LN +allegation/SM/*LKXN +allege/SDG/*LK +alleged/Y/*LKT +Allegheny/MS/*LKN +allegiance/SM/*LKNS +allegiant//*LKNT +allegoric//*LKRK +allegorical/YP/*LKRKL +allegoricalness/M/*LKRKLNS +allegorist/MS/*LKRST +allegory/SM/*LKR +Allegra/M/*LKR +allegretto/MS/*LKRT +allegri//*LKR +allegro/MS/*LKR +allele/SM/*LL +alleluia/S/*LL +allemande/M/*LMNT +Allen/M/*LN +Allendale/M/*LNTL +Allende/M/*LNT +Allene/M/*LN +Allentown/M/*LNTN +allergen/MS/*LKN +allergenic//*LKNK +allergic//*LKK +allergically//*LKKL +allergist/MS/*LKST +allergy/MS/*LK +alleviate/SDVGNX/*LFT +alleviation/M/*LFXN +alleviator/MS/*LFT +Alley/M/*L +alley/MS/*L +Alleyn/M/*LN +alleyway/MS/*LW +Allhallows//*LHLS +Alli/MS/*L +alliance/MS/*LNS +Allianora/M/*LNR +Allie/M/*L +allier//*L +allies/M/*LS +alligator/DMGS/*LKT +Allin/M/*LN +Allina/M/*LN +Allison/M/*LSN +Allissa/M/*LS +Allister/M/*LST +Allistir/M/*LST +alliterate/XVNGSD/*LTRT +alliteration/M/*LTRXN +alliterative/Y/*LTRTF +Allix/M/*LKS +allocable/U/*LKBL +allocatable//*LKTBL +allocate/ACSDNGX/*LKT +allocated/U/*LKTT +allocation/AMC/*LKXN +allocative//*LKTF +allocator/AMS/*LKT +allophone/MS/*LFN +allophonic//*LFNK +allot/SDL/*LT +allotment/MS/*LTMNT +allotments/A/*LTMNTS +allotrope/M/*LTRP +allotropic//*LTRPK +allots/A/*LTS +allotted/A/*LTT +allotter/M/*LT +allotting/A/*LTN +allover/S/*LF +allow/SBGD/*L +allowable/P/*LWBL +allowableness/M/*LWBLNS +allowably//*LWBL +allowance/GSDM/*LWNS +allowed/Y/*LWT +allowing/E/*LWN +allows/E/*LS +alloy/SGMD/*L +alloyed/U/*LYT +allspice/MS/*LSPS +Allstate/M/*LSTT +Allsun/M/*LSN +allude/GSD/*LT +allure/GLSD/*LR +allurement/SM/*LRMNT +alluring/Y/*LRN +allusion/MS/*LXN +allusive/PY/*LSF +allusiveness/MS/*LSFNS +alluvial/S/*LFL +alluvions//*LFNS +alluvium/MS/*LFM +Allx/M/*LKS +ally/ASDG/*L +Ally/MS/*L +Allyce/M/*LS +Allyn/M/*LN +Allys//*LS +Allyson/M/*LSN +alma//*LM +Alma/M/*LM +Almach/M/*LMX +Almaden/M/*LMTN +almagest//*LMKST +almanac/MS/*LMNK +Almaty/M/*LMT +Almeda/M/*LMT +Almeria/M/*LMR +Almeta/M/*LMT +almightiness/M/*LMTNS +Almighty/M/*LMT +almighty/P/*LMT +Almira/M/*LMR +Almire/M/*LMR +almond/SM/*LMNT +almoner/MS/*LMN +almost//*LMST +alms/A/*LMS +almshouse/SM/*LMXS +almsman/M/*LMSMN +alnico//*LNK +Alnilam/M/*LNLM +Alnitak/M/*LNTK +aloe/MS/*L +aloft//*LFT +aloha/SM/*LH +Aloin/M/*LN +Aloise/M/*LS +Aloisia/M/*LX +Alon/M/*LN +alone/P/*LN +aloneness/M/*LNNS +along//*LNK +alongshore//*LNKXR +alongside//*LNKST +Alonso/M/*LNS +Alonzo/M/*LNS +aloof/YP/*LF +aloofness/MS/*LFNS +aloud//*LT +Aloysia/M/*LX +Aloysius/M/*LSS +alp/MS/*LP +alpaca/SM/*LPK +Alpert/M/*LPT +alpha/MS/*LF +alphabet/SGDM/*LFBT +alphabetic/S/*LFBTK +alphabetical/Y/*LFBTKL +alphabetization/SM/*LFBTSXN +alphabetize/SRDGZ/*LFBTS +alphabetizer/M/*LFBTS +alphanumeric/S/*LFNMRK +alphanumerical/Y/*LFNMRKL +Alphard/M/*LFT +Alphecca/M/*LFK +Alpheratz/M/*LFRTS +Alphonse/M/*LFNS +Alphonso/M/*LFNS +Alpine//*LPN +alpine/S/*LPN +Alps//*LPS +already//*LRT +Alric/M/*LRK +alright//*LRT +Alsace/M/*LSS +Alsatian/MS/*LSXN +also//*LS +Alsop/M/*LSP +Alston/M/*LSTN +alt/RZS/*LT +Alta/M/*LT +Altai/M/*LT +Altaic/M/*LTK +Altair/M/*LT +altar/MS/*LT +altarpiece/SM/*LTPS +alter/RDZBG/*LT +alterable/UI/*LTRBL +alteration/MS/*LTRXN +altercate/NX/*LTKT +altercation/M/*LTKXN +altered/U/*LTRT +alternate/SDVGNYX/*LTNT +alternation/M/*LTNXN +alternative/YMSP/*LTNTF +alternativeness/M/*LTNTFNS +alternator/MS/*LTNT +Althea/M/*L@ +although//*L@ +altimeter/SM/*LTMT +Altiplano/M/*LTPLN +altitude/SM/*LTTT +alto/SM/*LT +altogether/S/*LTK@ +Alton/M/*LTN +Altos/M/*LTS +altruism/SM/*LTRSM +altruist/SM/*LTRST +altruistic//*LTRSTK +altruistically//*LTRSTKL +ALU//*L +Aludra/M/*LTR +Aluin/M/*LN +Aluino/M/*LN +alum/SM/*LM +alumina/SM/*LMN +aluminum/MS/*LMNM +alumna/M/*LMN +alumnae//*LMN +alumni//*LMN +alumnus/MS/*LMNS +alundum//*LNTM +Alva/M/*LF +Alvan/M/*LFN +Alvarado/M/*LFRT +Alvarez/M/*LFRS +Alvaro/M/*LFR +alveolar/Y/*LFL +alveoli//*LFL +alveolus/M/*LFLS +Alvera/M/*LFR +Alverta/M/*LFT +Alvie/M/*LF +Alvin/M/*LFN +Alvina/M/*LFN +Alvinia/M/*LFN +Alvira/M/*LFR +Alvis/M/*LFS +Alvy/M/*LF +alway/S/*LW +Alwin/M/*LWN +Alwyn/M/*LN +Alyce/M/*LS +Alyda/M/*LT +Alyosha/M/*LYX +Alys/M/*LS +Alysa/M/*LS +Alyse/M/*LS +Alysia/M/*LX +Alyson/M/*LSN +Alyss//*LS +Alyssa/M/*LS +Alzheimer/M/*LSHM +AM//*M +am/AS/*M +Am/MR/*M +AMA//*M +Amabel/M/*MBL +Amabelle/M/*MBL +Amadeus/M/*MTS +Amado/M/*MT +amain//*MN +Amalea/M/*ML +Amalee/M/*ML +Amaleta/M/*MLT +amalgam/MS/*MLKM +amalgamate/VNGXSD/*MLKMT +amalgamation/M/*MLKMXN +Amalia/M/*ML +Amalie/M/*ML +Amalita/M/*MLT +Amalle/M/*ML +Amanda/M/*MNT +Amandi/M/*MNT +Amandie/M/*MNT +Amandy/M/*MNT +amanuenses//*MNNSS +amanuensis/M/*MNNSS +Amara/M/*MR +amaranth/M/*MRN@ +amaranths//*MRN@S +amaretto/S/*MRT +Amargo/M/*MK +Amarillo/M/*MRL +amaryllis/MS/*MRLS +amass/GRSD/*MS +amasser/M/*MS +Amata/M/*MT +amateur/SM/*MT +amateurish/YP/*MTRX +amateurishness/MS/*MTRXNS +amateurism/MS/*MTRSM +Amati/M/*MT +amatory//*MTR +amaze/LDSRGZ/*MS +amazed/Y/*MST +amazement/MS/*MSMNT +amazing/Y/*MSN +amazon/MS/*MSN +Amazon/SM/*MSN +amazonian//*MSNN +Amazonian//*MSNN +ambassador/MS/*MBST +ambassadorial//*MBSTRL +ambassadorship/MS/*MBSTXP +ambassadress/SM/*MBSTRS +amber/MS/*MB +Amber/YM/*MB +ambergris/SM/*MBKRS +Amberly/M/*MBL +ambiance/MS/*MBNS +ambidexterity/MS/*MBTKSTRT +ambidextrous/Y/*MBTKSTRS +ambience's//*MBNSS +ambient/S/*MBNT +ambiguity/MS/*MBKT +ambiguous/YP/*MBKS +ambiguously/U/*MBKSL +ambiguousness/M/*MBKSNS +ambit/M/*MBT +ambition/GMDS/*MBXN +ambitious/PY/*MBXS +ambitiousness/MS/*MBXSNS +ambivalence/SM/*MBFLNS +ambivalent/Y/*MBFLNT +amble/GZDSR/*MBL +Amble/M/*MBL +ambler/M/*MBL +Ambros/M/*MBRS +ambrose//*MBRS +Ambrose/M/*MBRS +Ambrosi/M/*MBRS +ambrosia/SM/*MBRX +ambrosial/Y/*MBRXL +Ambrosio/M/*MBRX +Ambrosius/M/*MBRSS +ambulance/MS/*MBLNS +ambulant/S/*MBLNT +ambulate/DSNGX/*MBLT +ambulation/M/*MBLXN +ambulatory/S/*MBLTR +Ambur/M/*MB +ambuscade/MGSRD/*MBSKT +ambuscader/M/*MBSKT +ambush/MZRSDG/*MBX +ambusher/M/*MBX +Amby/M/*MB +Amdahl/M/*MTL +Ame/SM/*M +ameba's//*MBS +Amelia/M/*ML +Amelie/M/*ML +Amelina/M/*MLN +Ameline/M/*MLN +ameliorate/XVGNSD/*MLRT +amelioration/M/*MLRXN +Amelita/M/*MLT +amen/DRGTSB/*MN +amenability/SM/*MNBLT +amenably//*MNBL +amend/SBRDGL/*MNT +amended/U/*MNTT +amender/M/*MNT +amendment/SM/*MNTMNT +amends/M/*MNTS +Amenhotep/M/*MNHTP +amenity/MS/*MNT +amenorrhea/M/*MNRH +Amer/M/*M +Amerada/M/*MRT +Amerasian/S/*MRXN +amerce/SDLG/*MS +amercement/MS/*MSMNT +America/SM/*MRK +American/MS/*MRKN +Americana/M/*MRKN +Americanism/SM/*MRKNSM +Americanization/SM/*MRKNSXN +Americanize/SDG/*MRKNS +americanized//*MRKNST +americium/MS/*MRSM +Amerigo/M/*MRK +Amerind/MS/*MRNT +Amerindian/MS/*MRNTN +Amery/M/*MR +Ameslan/M/*MSLN +amethyst/MS/*M@ST +amethystine//*M@STN +Amharic/M/*MHRK +Amherst/M/*MHST +Ami/M/*M +amiability/MS/*MBLT +amiable/RPT/*MBL +amiableness/M/*MBLNS +amiably//*MBL +amicability/SM/*MKBLT +amicable/P/*MKBL +amicableness/M/*MKBLNS +amicably//*MKBL +amid/S/*MT +amide/SM/*MT +amidships//*MTXPS +amidst//*MTST +Amie/M/*M +Amiga/M/*MK +amigo/MS/*MK +Amii/M/*M +Amil/M/*ML +amines//*MNS +amino/M/*MN +aminobenzoic//*MNBNSK +amir's//*MS +Amish//*MX +amiss//*MS +Amitie/M/*MT +Amity/M/*MT +amity/SM/*MT +Ammamaria/M/*MMR +Amman/M/*MN +Ammerman/M/*MMN +ammeter/MS/*MT +ammo/MS/*M +ammonia/MS/*MN +ammoniac//*MNK +ammonium/M/*MNM +ammunition/MS/*MNXN +amnesia/SM/*MNX +amnesiac/MS/*MNXK +amnesic/S/*MNSK +amnesty/GMSD/*MNST +amniocenteses//*MNSNTSS +amniocentesis/M/*MNSNTSS +amnion/SM/*MNN +amniotic//*MNTK +Amoco/M/*MK +amoeba/SM/*MB +amoebic//*MBK +amoeboid//*MBT +amok/MS/*MK +among//*MNK +amongst//*MNKST +Amontillado/M/*MNTLT +amontillado/MS/*MNTLT +amoral/Y/*MRL +amorality/MS/*MRLT +amorous/PY/*MRS +amorousness/SM/*MRSNS +amorphous/PY/*MFS +amorphousness/MS/*MFSNS +amortization/SUM/*MTSXN +amortize/SDG/*MTS +amortized/U/*MTST +Amory/M/*MR +Amos//*MS +amount/SMRDZG/*MNT +amour/MS/*M +amp/SGMDY/*MP +Amparo/M/*MPR +amperage/SM/*MPRK +Ampere/M/*MPR +ampere/MS/*MPR +ampersand/MS/*MPSNT +Ampex/M/*MPKS +amphetamine/MS/*MFTMN +amphibian/SM/*MFBN +amphibious/PY/*MFBS +amphibiousness/M/*MFBSNS +amphibology/M/*MFBLK +amphitheater/SM/*MF@T +amphora/M/*MFR +amphorae//*MFR +ample/PTR/*MPL +ampleness/M/*MPLNS +amplification/M/*MPLFKXN +amplifier/M/*MPLF +amplify/DRSXGNZ/*MPLF +amplitude/MS/*MPLTT +ampoule's//*MPLS +ampule/SM/*MPL +amputate/DSNGX/*MPTT +amputation/M/*MPTXN +amputee/SM/*MPT +Amritsar/M/*MRTS +ams//*MS +Amsterdam/M/*MSTTM +amt//*MT +Amtrak/M/*MTRK +amuck's//*MKS +amulet/SM/*MLT +Amundsen/M/*MNTSN +Amur/M/*M +amuse/LDSRGVZ/*MS +amused/Y/*MST +amusement/SM/*MSMNT +amuser/M/*MS +amusing/YP/*MSN +amusingness/M/*MSNNS +Amway/M/*MW +Amy/M/*M +Amye/M/*MY +amyl/M/*ML +amylase/MS/*MLS +an/CS/*N +Ana/M/*N +Anabal/M/*NBL +Anabaptist/SM/*NBPTST +Anabel/M/*NBL +Anabella/M/*NBL +Anabelle/M/*NBL +anabolic//*NBLK +anabolism/MS/*NBLSM +anachronism/SM/*NXRNSM +anachronistic//*NXRNSTK +anachronistically//*NXRNSTKL +Anacin/M/*NSN +anaconda/MS/*NKNT +Anacreon/M/*NKRN +anaerobe/SM/*NRB +anaerobic//*NRBK +anaerobically//*NRBKL +anaglyph/M/*NKLF +anagram/MS/*NKRM +anagrammatic//*NKRMTK +anagrammatically//*NKRMTKL +anagrammed//*NKRMT +anagramming//*NKRMN +Anaheim/M/*NHM +anal/Y/*NL +Analects/M/*NLKTS +analgesia/MS/*NLKX +analgesic/S/*NLKSK +Analiese/M/*NLS +Analise/M/*NLS +Anallese/M/*NLS +Anallise/M/*NLS +analog/SM/*NLK +analogical/Y/*NLKKL +analogize/SDG/*NLKS +analogous/YP/*NLKS +analogousness/MS/*NLKSNS +analogue/SM/*NLK +analogy/MS/*NLK +analysand/MS/*NLSNT +analysis/AM/*NLSS +analyst/SM/*NLST +analytic/S/*NLTK +analytical/Y/*NLTKL +analyticity/S/*NLTST +analytics/M/*NLTKS +analyzable/U/*NLSBL +analyze/DRSZGA/*NLS +analyzed/U/*NLST +analyzer/M/*NLS +anamorphic//*NMFK +Ananias/M/*NNS +anapaest's//*NPSTS +anapest/SM/*NPST +anapestic/S/*NPSTK +anaphora/M/*NFR +anaphoric//*NFRK +anaphorically//*NFRKL +anaplasmosis/M/*NPLSMSS +anarchic//*NXK +anarchical/Y/*NXKL +anarchism/MS/*NXSM +anarchist/MS/*NXST +anarchistic//*NXSTK +anarchy/MS/*NX +Anastasia/M/*NSTX +Anastasie/M/*NSTS +Anastassia/M/*NSTX +anastigmatic//*NSTKMTK +anastomoses//*NSTMSS +anastomosis/M/*NSTMSS +anastomotic//*NSTMTK +anathema/MS/*N@M +anathematize/GSD/*N@MTS +Anatol/M/*NTL +Anatola/M/*NTL +Anatole/M/*NTL +Anatolia/M/*NTL +Anatolian//*NTLN +Anatollo/M/*NTL +anatomic//*NTMK +anatomical/YS/*NTMKL +anatomist/MS/*NTMST +anatomize/GSD/*NTMS +anatomy/MS/*NTM +Anaxagoras/M/*NKSKRS +Ancell/M/*NSL +ancestor/SMDG/*NSST +ancestral/Y/*NSSTRL +ancestress/SM/*NSSTRS +ancestry/SM/*NSSTR +anchor/SGDM/*NX +Anchorage/M/*NXRK +anchorage/SM/*NXRK +anchored/U/*NXRT +anchorite/MS/*NXRT +anchoritism/M/*NXRTSM +anchorman/M/*NXMN +anchormen//*NXMN +anchorpeople//*NXPPL +anchorperson/S/*NXPSN +anchorwoman//*NXWMN +anchorwomen//*NXWMN +anchovy/MS/*NXF +ancient/SRYTP/*NSNT +ancientness/MS/*NSNTNS +ancillary/S/*NSLR +and/DZGS/*NT +Andalusia/M/*NTLX +Andalusian//*NTLXN +Andaman//*NTMN +andante/S/*NTNT +Andean/M/*NTN +Andee/M/*NT +Andeee/M/*NT +Anderea/M/*NTR +Anders/N/*NTS +Andersen/M/*NTSN +Anderson/M/*NTSN +Andes//*NTS +Andi/M/*NT +Andie/M/*NT +andiron/MS/*NTRN +Andonis/M/*NTNS +Andorra/M/*NTR +Andover/M/*NTF +Andra/SM/*NTR +Andre/SM/*NTR +Andrea/MS/*NTR +Andreana/M/*NTRN +Andree/M/*NTR +Andrei/M/*NTR +Andrej/M/*NTRK +Andrew/MS/*NTR +Andrey/M/*NTR +Andria/M/*NTR +Andriana/M/*NTRN +Andriette/M/*NTRT +Andris//*NTRS +androgen/SM/*NTRKN +androgenic//*NTRKNK +androgynous//*NTRKNS +androgyny/SM/*NTRKN +android/MS/*NTRT +Andromache/M/*NTRMX +Andromeda/M/*NTRMT +Andropov/M/*NTRPF +Andros/M/*NTRS +Andrus/M/*NTRS +Andy/M/*NT +anecdotal/Y/*NKTTL +anecdote/SM/*NKTT +anechoic//*NXK +anemia/SM/*NM +anemic/S/*NMK +anemically//*NMKL +anemometer/MS/*NMMT +anemometry/M/*NMMTR +anemone/SM/*NMN +anent//*NNT +aneroid//*NRT +Anestassia/M/*NSTX +anesthesia/MS/*NS@X +anesthesiologist/MS/*NS@XLKST +anesthesiology/SM/*NS@XLK +anesthetic/SM/*NS@TK +anesthetically//*NS@TKL +anesthetist/MS/*NS@TST +anesthetization/SM/*NS@TSXN +anesthetize/ZSRDG/*NS@TS +anesthetizer/M/*NS@TS +Anet/M/*NT +Anett/M/*NT +Anetta/M/*NT +Anette/M/*NT +aneurysm/MS/*NRSM +anew//*N +Angara/M/*NKR +Ange/M/*NK +Angel/M/*NKL +angel/MDSG/*NKL +Angela/M/*NKL +Angele/SM/*NKL +Angeleno/SM/*NKLN +angelfish/SM/*NKLFX +Angeli/M/*NKL +Angelia/M/*NKL +angelic//*NKLK +Angelica/M/*NKLK +angelica/MS/*NKLK +angelical/Y/*NKLKL +Angelico/M/*NKLK +Angelika/M/*NKLK +Angelina/M/*NKLN +Angeline/M/*NKLN +Angelique/M/*NKLK +Angelita/M/*NKLT +Angelle/M/*NKL +Angelo/M/*NKL +Angelou/M/*NKL +anger/GDMS/*NK +Angevin/M/*NKFN +Angie/M/*NK +Angil/M/*NKL +angina/MS/*NKN +angiography//*NKKRF +angioplasty/S/*NKPLST +angiosperm/MS/*NKSPM +Angkor/M/*NKK +angle/GMZDSRJ/*NKL +angler/M/*NKL +Angles//*NKLS +angleworm/MS/*NKLWM +Anglia/M/*NKL +Anglican/MS/*NKLKN +Anglicanism/MS/*NKLKNSM +Anglicism/SM/*NKLSSM +Anglicization/MS/*NKLSSXN +anglicize/SDG/*NKLSS +Anglicize/SDG/*NKLSS +angling/M/*NKLN +Anglo/MS/*NKL +Anglophile/SM/*NKLFL +Anglophilia/M/*NKLFL +Anglophobe/MS/*NKLFB +Anglophobia/M/*NKLFB +Angola/M/*NKL +Angolan/S/*NKLN +angora/MS/*NKR +Angora/MS/*NKR +angrily//*NKRL +angriness/M/*NKRNS +angry/RTP/*NKR +angst/MS/*NKST +Ångström/M/NKSTRM +angstrom/MS/*NKSTRM +Anguilla/M/*NKL +anguish/DSMG/*NKX +angular/Y/*NKL +angularity/MS/*NKLRT +Angus/M/*NKS +Angy/M/*NK +Anheuser/M/*NHS +anhydride/M/*NHTRT +anhydrite/M/*NHTRT +anhydrous/Y/*NHTRS +Ania/M/*N +Aniakchak/M/*NKXK +Anibal/M/*NBL +Anica/M/*NK +aniline/SM/*NLN +animadversion/SM/*NMTFXN +animadvert/DSG/*NMTFT +animal/MYPS/*NML +animalcule/MS/*NMLKL +animate/YNGXDSP/*NMT +animated/A/*NMTT +animatedly//*NMTTL +animately/I/*NMTL +animateness/MI/*NMTNS +animates/A/*NMTS +animating/A/*NMTN +animation/AMS/*NMXN +animator/SM/*NMT +animism/SM/*NMSM +animist/S/*NMST +animistic//*NMSTK +animized//*NMST +animosity/MS/*NMST +animus/SM/*NMS +anion/MS/*NN +anionic/S/*NNK +anise/MS/*NS +aniseed/MS/*NST +aniseikonic//*NSKNK +anisette/SM/*NST +anisotropic//*NSTRPK +anisotropy/MS/*NSTRP +Anissa/M/*NS +Anita/M/*NT +Anitra/M/*NTR +Anjanette/M/*NKNT +Anjela/M/*NKL +Ankara/M/*NKR +ankh/M/*NKH +ankhs//*NKHS +ankle/GMDS/*NKL +anklebone/SM/*NKLBN +anklet/MS/*NKLT +Ann/M/*N +Anna/M/*N +Annabal/M/*NBL +Annabel/M/*NBL +Annabela/M/*NBL +Annabell/M/*NBL +Annabella/M/*NBL +Annabelle/M/*NBL +Annadiana/M/*NTN +Annadiane/M/*NTN +annal/MNS/*NL +Annalee/M/*NL +Annaliese/M/*NLS +Annalise/M/*NLS +annalist/MS/*NLST +Annamaria/M/*NMR +Annamarie/M/*NMR +Annapolis/M/*NPLS +Annapurna/M/*NPN +Anne/M/*N +anneal/DRSZG/*NL +annealer/M/*NL +Annecorinne/M/*NKRN +annelid/MS/*NLT +Anneliese/M/*NLS +Annelise/M/*NLS +Annemarie/M/*NMR +Annetta/M/*NT +Annette/M/*NT +annex/GSD/*NKS +annexation/SM/*NKSXN +annexe/M/*NKS +Anni/MS/*N +Annice/M/*NS +Annie/M/*N +annihilate/XSDVGN/*NHLT +annihilation/M/*NHLXN +annihilator/MS/*NHLT +Annissa/M/*NS +anniversary/MS/*NFSR +Annmaria/M/*NMR +Annmarie/M/*NMR +Annnora/M/*NR +Annora/M/*NR +annotate/VNGXSD/*NTT +annotated/U/*NTTT +annotation/M/*NTXN +annotator/MS/*NTT +announce/ZGLRSD/*NNS +announced/U/*NNST +announcement/SM/*NNSMNT +announcer/M/*NNS +annoy/ZGSRD/*N +annoyance/MS/*NYNS +annoyer/M/*NY +annoying/Y/*NYN +annual/YS/*NL +annualized//*NLST +annuitant/MS/*NTNT +annuity/MS/*NT +annul/SL/*NL +annular/YS/*NL +annuli//*NL +annulled//*NLT +annulling//*NLN +annulment/MS/*NLMNT +annulus/M/*NLS +annum//*NM +annunciate/XNGSD/*NNXT +annunciation/M/*NNXXN +Annunciation/S/*NNXXN +annunciator/SM/*NNXT +Anny/M/*N +anode/SM/*NT +anodic//*NTK +anodize/GDS/*NTS +anodyne/SM/*NTN +anoint/DRLGS/*NNT +anointer/M/*NNT +anointment/SM/*NNTMNT +anomalous/YP/*NMLS +anomalousness/M/*NMLSNS +anomaly/MS/*NML +anomic//*NMK +anomie/M/*NM +anon/S/*NN +anonymity/MS/*NNMT +anonymous/YP/*NNMS +anonymousness/M/*NNMSNS +anopheles/M/*NFLS +anorak/SM/*NRK +anorectic/S/*NRKTK +anorexia/SM/*NRKS +anorexic/S/*NRKSK +another/M/*N@ +Anouilh/M/*NLH +ans/M/*NS +Ansel/M/*NSL +Ansell/M/*NSL +Anselm/M/*NSLM +Anselma/M/*NSLM +Anselmo/M/*NSLM +Anshan/M/*NXN +ANSI/M/*NS +Ansley/M/*NSL +Anson/M/*NSN +Anstice/M/*NSTS +answer/MZGBSDR/*NSW +answerable/U/*NSWRBL +answered/U/*NSWRT +answerer/M/*NSWR +ant/GSMD/*NT +antacid/MS/*NTST +Antaeus/M/*NTS +antagonism/MS/*NTKNSM +antagonist/MS/*NTKNST +antagonistic//*NTKNSTK +antagonistically//*NTKNSTKL +antagonize/GZRSD/*NTKNS +antagonized/U/*NTKNST +antagonizing/U/*NTKNSN +Antananarivo/M/*NTNNRF +antarctic//*NTKTK +Antarctic/M/*NTKTK +Antarctica/M/*NTKTK +Antares//*NTRS +ante/MS/*NT +anteater/MS/*NTT +antebellum//*NTBLM +antecedence/MS/*NTSTNS +antecedent/SMY/*NTSTNT +antechamber/SM/*NTXMB +antedate/GDS/*NTTT +antediluvian/S/*NTTLFN +anteing//*NTN +antelope/MS/*NTLP +antenatal//*NTNTL +antenna/MS/*NTN +antennae//*NTN +anterior/SY/*NTR +anteroom/SM/*NTRM +Anthe/M/*N@ +Anthea/M/*N@ +anthem/MGDS/*N@M +anther/MS/*N@ +Anthia/M/*N@ +Anthiathia/M/*N@@ +anthill/S/*N@L +anthologist/MS/*N@LKST +anthologize/GDS/*N@LKS +anthology/SM/*N@LK +Anthony/M/*N@N +anthraces//*N@RSS +anthracite/MS/*N@RST +anthrax/M/*N@RKS +anthropic//*N@RPK +anthropocentric//*N@RPSNTRK +anthropogenic//*N@RPKNK +anthropoid/S/*N@RPT +anthropological/Y/*N@RPLKKL +anthropologist/MS/*N@RPLKST +anthropology/SM/*N@RPLK +anthropometric/S/*N@RPMTRK +anthropometry/M/*N@RPMTR +anthropomorphic//*N@RPMFK +anthropomorphically//*N@RPMFKL +anthropomorphism/SM/*N@RPMFSM +anthropomorphizing//*N@RPMFSN +anthropomorphous//*N@RPMFS +anti/S/*NT +antiabortion//*NXBXN +antiabortionist/S/*NXBXNST +antiaircraft//*NXKRFT +antibacterial/S/*NTBKTRL +antibiotic/SM/*NTBTK +antibody/MS/*NTBT +antic/MS/*NTK +anticancer//*NTKNS +Antichrist/MS/*NTXRST +anticipate/XVGNSD/*NTSPT +anticipated/U/*NTSPTT +anticipation/M/*NTSPXN +anticipative/Y/*NTSPTF +anticipatory//*NTSPTR +anticked//*NTKT +anticking//*NTKN +anticlerical/S/*NTKLRKL +anticlimactic//*NTKLMKTK +anticlimactically//*NTKLMKTKL +anticlimax/SM/*NTKLMKS +anticline/SM/*NTKLN +anticlockwise//*NTKLKWS +anticoagulant/S/*NTKKLNT +anticoagulation/M/*NTKKLXN +anticommunism/SM/*NTKMNSM +anticommunist/SM/*NTKMNST +anticompetitive//*NTKMPTTF +anticyclone/MS/*NTSKLN +anticyclonic//*NTSKLNK +antidemocratic//*NTTMKRTK +antidepressant/SM/*NTTPRSNT +antidisestablishmentarianism/M/*NTTSSTBLXMNTRNSM +antidote/DSMG/*NTTT +Antietam/M/*NTTM +antifascist/SM/*NTFSST +antiformant//*NTFMNT +antifreeze/SM/*NTFRS +antifundamentalist/M/*NTFNTMNTLST +antigen/MS/*NTKN +antigenic//*NTKNK +antigenicity/SM/*NTKNST +antigone//*NTKN +Antigone/M/*NTKN +Antigua/M/*NTK +antihero/M/*NTHR +antiheroes//*NTHRS +antihistamine/MS/*NTHSTMN +antihistorical//*NTHSTRKL +antiknock/MS/*NTKNK +antilabor//*NTLB +Antillean//*NTLN +Antilles//*NTLS +antilogarithm/SM/*NTLKR@M +antilogs//*NTLKS +antimacassar/SM/*NTMKS +antimalarial/S/*NTMLRL +antimatter/SM/*NTMT +antimicrobial/S/*NTMKRBL +antimissile/S/*NTMSL +antimony/SM/*NTMN +Antin/M/*NTN +anting/M/*NTN +antinomian//*NTNMN +antinomy/M/*NTNM +antinuclear//*NTNKL +Antioch/M/*NXX +antioxidant/MS/*NXKSTNT +antiparticle/SM/*NTPTKL +Antipas/M/*NTPS +antipasti//*NTPST +antipasto/MS/*NTPST +antipathetic//*NTP@TK +antipathy/SM/*NTP@ +antipersonnel//*NTPSNL +antiperspirant/MS/*NTPSPRNT +antiphon/SM/*NTFN +antiphonal/SY/*NTFNL +antipodal/S/*NTPTL +antipode/MS/*NTPT +antipodean/S/*NTPTN +Antipodes//*NTPTS +antipollution/S/*NTPLXN +antipoverty//*NTPFT +antiquarian/MS/*NTKRN +antiquarianism/MS/*NTKRNSM +antiquary/SM/*NTKR +antiquate/NGSD/*NTKT +antiquation/M/*NTKXN +antique/MGDS/*NTK +antiquity/SM/*NTKT +antiredeposition//*NTRTPSXN +antiresonance/M/*NTRSNNS +antiresonator//*NTRSNT +antisemitic//*NTSMTK +antisemitism/M/*NTSMTSM +antisepses//*NTSPSS +antisepsis/M/*NTSPSS +antiseptic/S/*NTSPTK +antiseptically//*NTSPTKL +antiserum/SM/*NTSRM +antislavery/S/*NTSLFR +antisocial/Y/*NTSXL +antispasmodic/S/*NTSPSMTK +antisubmarine//*NTSBMRN +antisymmetric//*NTSMTRK +antisymmetry//*NTSMTR +antitank//*NTTNK +antitheses//*NT@SS +antithesis/M/*NT@SS +antithetic//*NT@TK +antithetical/Y/*NT@TKL +antithyroid//*NT@RT +antitoxin/MS/*NTTKSN +antitrust/MR/*NTTRST +antivenin/MS/*NTFNN +antiviral/S/*NTFRL +antivivisectionist/S/*NTFFSKXNST +antiwar//*NTW +antler/SDM/*NTL +Antofagasta/M/*NTFKST +Antoine/M/*NTN +Antoinette/M/*NTNT +Anton/MS/*NTN +Antone/M/*NTN +Antonella/M/*NTNL +Antonetta/M/*NTNT +Antoni/M/*NTN +Antonia/M/*NTN +Antonie/M/*NTN +Antonietta/M/*NTNT +Antonin/M/*NTNN +Antonina/M/*NTNN +Antonino/M/*NTNN +Antoninus/M/*NTNNS +Antonio/M/*NTN +Antonius/M/*NTNS +Antonovics/M/*NTNFKS +Antony/M/*NTN +antonym/SM/*NTNM +antonymous//*NTNMS +antral//*NTRL +antsy/RT/*NTS +Antwan/M/*NTWN +Antwerp/M/*NTWP +Anubis/M/*NBS +anus/SM/*NS +anvil/MDSG/*NFL +anxiety/MS/*NKST +anxious/PY/*NKSS +anxiousness/SM/*NKSSNS +any//*N +Any/M/*N +Anya/M/*NY +anybody/S/*NBT +anyhow//*NH +anymore//*NMR +anyone/MS/*NYN +anyplace//*NPLS +anything/S/*N@N +anytime//*NTM +anyway/S/*NW +anywhere/S/*NHR +anywise//*NWS +AOL/M/*L +aorta/MS/*T +aortic//*TK +AP//*P +apace//*PS +apache/MS/*PX +Apache/MS/*PX +Apalachicola/M/*PLXKL +apart/LP/*PT +apartheid/SM/*P@T +apartment/MS/*PTMNT +apartness/M/*PTNS +apathetic//*P@TK +apathetically//*P@TKL +apathy/SM/*P@ +apatite/MS/*PTT +APB//*PB +ape/MDRSG/*P +aped/A/*PT +apelike//*PLK +Apennines//*PNNS +aper/A/*P +aperiodic//*PRTK +aperiodically//*PRTKL +aperiodicity/M/*PRTST +aperitif/S/*PRTF +aperture/MDS/*PTR +apex/MS/*PKS +aphasia/SM/*FX +aphasic/S/*FSK +aphelia//*FL +aphelion/SM/*FLN +aphid/MS/*FT +aphonic//*FNK +aphorism/MS/*FRSM +aphoristic//*FRSTK +aphoristically//*FRSTKL +aphrodisiac/SM/*FRTXK +Aphrodite/M/*FRTT +Apia/M/*P +apiarist/SM/*PRST +apiary/SM/*PR +apical/YS/*PKL +apices's//*PSSS +apiece//*PS +apish/YP/*PX +apishness/M/*PXNS +aplenty//*PLNT +aplomb/SM/*PLM +APO//*P +Apocalypse/M/*PKLPS +apocalypse/MS/*PKLPS +apocalyptic//*PKLPTK +apocrypha/M/*PKRF +Apocrypha/M/*PKRF +apocryphal/YP/*PKRFL +apocryphalness/M/*PKRFLNS +apogee/MS/*PK +apolar//*PL +apolitical/Y/*PLTKL +Apollinaire/M/*PLNR +Apollo/SM/*PL +Apollonian//*PLNN +apologetic/S/*PLKTK +apologetically/U/*PLKTKL +apologetics/M/*PLKTKS +apologia/SM/*PLK +apologist/MS/*PLKST +apologize/GZSRD/*PLKS +apologizer/M/*PLKS +apologizes/A/*PLKSS +apologizing/U/*PLKSN +apology/MS/*PLK +apoplectic//*PPLKTK +apoplexy/SM/*PPLKS +apostasy/SM/*PSTS +apostate/SM/*PSTT +apostatize/DSG/*PSTTS +apostle/SM/*PSTL +apostleship/SM/*PSTLXP +apostolic//*PSTLK +apostrophe/SM/*PSTRF +apostrophized//*PSTRFST +apothecary/MS/*P@KR +apothegm/MS/*P@KM +apotheoses//*P@SS +apotheosis/M/*P@SS +apotheosized//*P@SST +apotheosizes//*P@SSS +apotheosizing//*P@SSN +Appalachia/M/*PLX +Appalachian/MS/*PLXN +appall/SDG/*PL +appalling/Y/*PLN +Appaloosa/MS/*PLS +appaloosa/S/*PLS +appanage/M/*PNK +apparatus/SM/*PRTS +apparel/SGMD/*PRL +apparency//*PRNS +apparent/U/*PRNT +apparently/I/*PRNTL +apparentness/M/*PRNTNS +apparition/SM/*PRXN +appeal/SGMDRZ/*PL +appealer/M/*PL +appealing/UY/*PLN +appear/AEGDS/*P +appearance/AMES/*PRNS +appearer/S/*PR +appease/DSRGZL/*PS +appeased/U/*PST +appeasement/MS/*PSMNT +appeaser/M/*PS +appellant/MS/*PLNT +appellate/VNX/*PLT +appellation/M/*PLXN +appellative/MY/*PLTF +append/SGZDR/*PNT +appendage/MS/*PNTK +appendectomy/SM/*PNTKTM +appendices//*PNTSS +appendicitis/SM/*PNTSTS +appendix/SM/*PNTKS +appertain/DSG/*PTN +appetite/MVS/*PTT +appetizer/SM/*PTS +appetizing/YU/*PTSN +Appia/M/*P +Appian/M/*PN +applaud/ZGSDR/*PLT +applauder/M/*PLT +applause/MS/*PLS +Apple/M/*PL +apple/MS/*PL +applecart/M/*PLKT +applejack/MS/*PLKK +applesauce/SM/*PLSS +Appleseed/M/*PLST +applet/S/*PLT +Appleton/M/*PLTN +appliance/SM/*PLNS +applicabilities//*PLKBLTS +applicability/IM/*PLKBLT +applicable/I/*PLKBL +applicably//*PLKBL +applicant/MS/*PLKNT +applicate/V/*PLKT +application/MA/*PLKXN +applicative/Y/*PLKTF +applicator/MS/*PLKT +applier/SM/*PL +appliqué/MSG/*PLK +appliquéd//*PLKT +apply/AGSDXN/*PL +appoint/ELSADG/*PNT +appointee/SM/*PNT +appointer/MS/*PNT +appointive//*PNTF +appointment/ASEM/*PNTMNT +Appolonia/M/*PLN +Appomattox/M/*PMTKS +apportion/GADLS/*PXN +apportionment/SAM/*PXNMNT +appose/SDG/*PS +apposite/XYNVP/*PST +appositeness/MS/*PSTNS +apposition/M/*PSXN +appositive/SY/*PSTF +appraisal/SAM/*PRSL +appraise/ZGDRS/*PRS +appraised/A/*PRST +appraisees//*PRSS +appraiser/M/*PRS +appraises/A/*PRSS +appraising/Y/*PRSN +appreciable/I/*PRXBL +appreciably/I/*PRXBL +appreciate/XDSNGV/*PRXT +appreciated/U/*PRXTT +appreciation/M/*PRXXN +appreciative/PIY/*PRXTF +appreciativeness/MI/*PRXTFNS +appreciator/MS/*PRXT +appreciatory//*PRXTR +apprehend/DRSG/*PRHNT +apprehender/M/*PRHNT +apprehensible//*PRHNSBL +apprehension/SM/*PRHNXN +apprehensive/YP/*PRHNSF +apprehensiveness/SM/*PRHNSFNS +apprentice/DSGM/*PRNTS +apprenticeship/SM/*PRNTSXP +apprise/DSG/*PRS +apprizer/SM/*PRS +apprizingly//*PRSNL +apprizings//*PRSNS +approach/BRSDZG/*PRX +approachability/UM/*PRXBLT +approachable/UI/*PRXBL +approacher/M/*PRX +approbate/NX/*PRBT +approbation/EMS/*PRBXN +appropriable//*PRPRBL +appropriate/XDSGNVYTP/*PRPRT +appropriated/U/*PRPRTT +appropriately/I/*PRPRTL +appropriateness/SMI/*PRPRTNS +appropriation/M/*PRPRXN +appropriator/SM/*PRPRT +approval/ESM/*PRFL +approve/DSREG/*PRF +approved/U/*PRFT +approver/SM/*PRF +approver's/E/*PRFS +approving/YE/*PRFN +approx//*PRKS +approximate/XGNVYDS/*PRKSMT +approximation/M/*PRKSMXN +approximative/Y/*PRKSMTF +appurtenance/MS/*PTNNS +appurtenant/S/*PTNNT +APR//*PR +Apr/M/*PR +apricot/MS/*PRKT +April/MS/*PRL +Aprilette/M/*PRLT +apron/SDMG/*PRN +apropos//*PRPS +apse/MS/*PS +apsis/M/*PSS +apt/UPYI/*PT +apter//*PT +aptest//*PTST +aptitude/SM/*PTTT +aptness/SMI/*PTNS +aptness's/U/*PTNSS +Apuleius/M/*PLS +aqua/SM/*K +aquaculture/MS/*KKLTR +aqualung/SM/*KLNK +aquamarine/SM/*KMRN +aquanaut/SM/*KNT +aquaplane/GSDM/*KPLN +aquarium/MS/*KRM +Aquarius/MS/*KRS +aquatic/S/*KTK +aquatically//*KTKL +aquavit/SM/*KFT +aqueduct/MS/*KTKT +aqueous/Y/*KS +aquiculture's//*KKLTRS +aquifer/SM/*KF +Aquila/M/*KL +aquiline//*KLN +Aquinas/M/*KNS +Aquino/M/*KN +Aquitaine/M/*KTN +AR//* +Ar/MY/* +Ara/M/*R +Arab/MS/*RB +Arabel/M/*RBL +Arabela/M/*RBL +Arabele/M/*RBL +Arabella/M/*RBL +Arabelle/M/*RBL +arabesque/SM/*RBSK +Arabia/M/*RB +Arabian/MS/*RBN +Arabic/M/*RBK +arability/MS/*RBLT +Arabist/MS/*RBST +arable/S/*RBL +Araby/M/*RB +Araceli/M/*RSL +arachnid/MS/*RXNT +arachnoid/M/*RXNT +arachnophobia//*RXNFB +Arafat/M/*RFT +Araguaya/M/*RKY +Aral/M/*RL +Araldo/M/*RLT +Aramaic/M/*RMK +Aramco/M/*RMK +Arapaho/MS/*RPH +Arapahoes//*RPHS +Arapahoe's//*RPHS +Ararat/M/*RRT +Araucanian/M/*RKNN +Arawak/M/*RWK +Arawakan/M/*RWKN +arbiter/MS/*BT +arbitrage/GMZRSD/*BTRK +arbitrager/M/*BTRK +arbitrageur/S/*BTRK +arbitrament/MS/*BTRMNT +arbitrarily//*BTRRL +arbitrariness/MS/*BTRRNS +arbitrary/P/*BTRR +arbitrate/SDXVNG/*BTRT +arbitration/M/*BTRXN +arbitrator/SM/*BTRT +arbor/DMS/*B +arboreal/Y/*BRL +arbores//*BRS +arboretum/MS/*BRTM +arborvitae/MS/*BFT +arbutus/SM/*BTS +ARC//*K +arc/DSGM/*K +arcade/SDMG/*KT +Arcadia/M/*KT +Arcadian//*KTN +arcana/M/*KN +arcane/P/*KN +Arch/MR/*X +arch/PGVZTMYDSR/*X +archaeological/Y/*XLKKL +archaeologist/SM/*XLKST +archaic/P/*XK +archaically//*XKL +Archaimbaud/M/*XMBT +archaism/SM/*XSM +archaist/MS/*XST +archaize/GDRSZ/*XS +archaizer/M/*XS +Archambault/M/*XMBLT +archangel/SM/*XNKL +archbishop/SM/*XBXP +archbishopric/SM/*XBXPRK +archdeacon/MS/*XTKN +archdiocesan//*XTSSN +archdiocese/SM/*XTSS +archduchess/MS/*XTXS +archduke/MS/*XTK +Archean//*XN +archenemy/SM/*XNM +archeologist's//*XLKSTS +archeology/MS/*XLK +archer/M/*X +Archer/M/*X +archery/MS/*XR +archetypal//*XTPL +archetype/SM/*XTP +archfiend/SM/*XFNT +archfool//*XFL +Archibald/M/*XBLT +Archibaldo/M/*XBLT +Archibold/M/*XBLT +Archie/M/*X +archiepiscopal//*XPSKPL +Archimedes/M/*XMTS +arching/M/*XN +archipelago/SM/*XPLK +architect/MS/*XTKT +architectonic/S/*XTKTNK +architectonics/M/*XTKTNKS +architectural/Y/*XTKTRL +architecture/SM/*XTKTR +architrave/MS/*XTRF +archival//*XFL +archive/DRSGMZ/*XF +archived/U/*XFT +archivist/MS/*XFST +archness/MS/*XNS +archway/SM/*XW +Archy/M/*X +arclike//*KLK +ARCO/M/*K +arcsine//*KSN +arctangent//*KTNKNT +Arctic/M/*KTK +arctic/S/*KTK +Arcturus/M/*KTRS +Arda/MH/*T +Ardabil//*TBL +Ardath/M/*T@ +Ardeen/M/*TN +Ardelia/M/*TL +Ardelis/M/*TLS +Ardella/M/*TL +Ardelle/M/*TL +Arden/M/*TN +ardency/M/*TNS +Ardene/M/*TN +Ardenia/M/*TN +ardent/Y/*TNT +Ardine/M/*TN +Ardis/M/*TS +Ardisj/M/*TSK +Ardith/M/*T@ +ardor/SM/*T +Ardra/M/*TR +arduous/YP/*TS +arduousness/SM/*TSNS +Ardyce/M/*TS +Ardys//*TS +Ardyth/M/*T@ +are/BS/*R +area/SM/*R +areal//*RL +areawide//*RWT +Arel/M/*RL +arena/SM/*RN +arenaceous//*RNSS +aren't//*RNT +Arequipa/M/*RKP +Ares//*RS +Aretha/M/*R@ +argent/MS/*KNT +Argentina/M/*KNTN +Argentine/SM/*KNTN +Argentinean/S/*KNTNN +Argentinian/S/*KNTNN +Argo/SM/*K +argon/MS/*KN +Argonaut/MS/*KNT +argonaut/S/*KNT +Argonne/M/*KN +argosy/SM/*KS +argot/SM/*KT +arguable/IU/*KBL +arguably/IU/*KBL +argue/DSRGZ/*K +arguer/M/*K +argument/SM/*KMNT +argumentation/SM/*KMNTXN +argumentative/YP/*KMNTTF +argumentativeness/MS/*KMNTTFNS +Argus/M/*KS +argyle/S/*KL +Ari/M/*R +aria/SM/*R +Ariadne/M/*RTN +Ariana/M/*RN +Arianism/M/*RNSM +Arianist/SM/*RNST +arid/TYRP/*RT +Aridatha/M/*RT@ +aridity/SM/*RTT +aridness/M/*RTNS +Arie/SM/*R +Ariel/M/*RL +Ariela/M/*RL +Ariella/M/*RL +Arielle/M/*RL +Aries/S/*RS +aright//*RT +Arin/M/*RN +Ario/M/*R +Ariosto/M/*RST +arise/GJSR/*RS +arisen//*RSN +Aristarchus/M/*RSTXS +Aristides//*RSTTS +aristocracy/SM/*RSTKRS +aristocrat/MS/*RSTKRT +aristocratic//*RSTKRTK +aristocratically//*RSTKRTKL +Aristophanes/M/*RSTFNS +Aristotelean//*RSTTLN +Aristotelian/M/*RSTTLN +Aristotle/M/*RSTTL +arithmetic/MS/*R@MTK +arithmetical/Y/*R@MTKL +arithmetician/SM/*R@MTXN +arithmetize/SD/*R@MTS +Arius/M/*RS +Ariz/M/*RS +Arizona/M/*RSN +Arizonan/S/*RSNN +Arizonian/S/*RSNN +Arjuna/M/*KN +Ark/M/*K +ark/MS/*K +Arkansan/MS/*KNSN +Arkansas/M/*KNSS +Arkhangelsk/M/*KHNKLSK +Arkwright/M/*KRT +Arlan/M/*LN +Arlana/M/*LN +Arlee/M/*L +Arleen/M/*LN +Arlen/M/*LN +Arlena/M/*LN +Arlene/M/*LN +Arleta/M/*LT +Arlette/M/*LT +Arley/M/*L +Arleyne/M/*LN +Arlie/M/*L +Arliene/M/*LN +Arlin/M/*LN +Arlina/M/*LN +Arlinda/M/*LNT +Arline/M/*LN +Arlington/M/*LNTN +Arluene/M/*LN +Arly/M/*L +Arlyn/M/*LN +Arlyne/M/*LN +arm/ASEDG/*M +Armada/M/*MT +armada/SM/*MT +armadillo/MS/*MTL +Armageddon/SM/*MKTN +Armagnac/M/*MKNK +armament/EAS/*MMNT +armament's/E/*MMNTS +Arman/M/*MN +Armand/M/*MNT +Armando/M/*MNT +Armata/M/*MT +armature/MGSD/*MTR +armband/SM/*MBNT +armchair/MS/*MX +Armco/M/*MK +armed/U/*MT +Armenia/M/*MN +Armenian/MS/*MNN +armer/MES/*M +armful/SM/*MFL +armhole/MS/*MHL +Armin/M/*MN +arming/M/*MN +Arminius/M/*MNS +armistice/MS/*MSTS +armless//*MLS +armlet/SM/*MLT +armload/M/*MLT +Armonk/M/*MNK +armor/ZRDMGS/*M +armored/U/*MRT +armorer/M/*MR +armorial/S/*MRL +armory/DSM/*MR +Armour/M/*M +armpit/MS/*MPT +armrest/MS/*MRST +arm's//*MS +Armstrong/M/*MSTRNK +army/SM/*M +Arnaldo/M/*NLT +Arne/M/*N +Arneb/M/*NB +Arney/M/*N +Arnhem/M/*NHM +Arni/M/*N +Arnie/M/*N +Arno/M/*N +Arnold/M/*NLT +Arnoldo/M/*NLT +Arnuad/M/*NT +Arnulfo/M/*NLF +Arny/M/*N +aroma/SM/*RM +aromatherapist/S/*RM@RPST +aromatherapy/S/*RM@RP +aromatic/SP/*RMTK +aromatically//*RMTKL +aromaticity/M/*RMTST +aromaticness/M/*RMTKNS +Aron/M/*RN +arose//*RS +around//*RNT +arousal/MS/*RSL +arouse/GSD/*RS +aroused/U/*RST +ARPA/M/*P +Arpanet/M/*PNT +ARPANET/M/*PNT +arpeggio/SM/*PK +arr/TV/*R +arrack/M/*RK +Arragon/M/*RKN +arraign/SDGL/*RN +arraignment/MS/*RKNMNT +arrange/ZDSRLG/*RNK +arrangeable/A/*RNKBL +arranged/EA/*RNKT +arrangement/AMSE/*RNKMNT +arranger/M/*RNK +arranges/EA/*RNKS +arranging/EA/*RNKN +arrant/Y/*RNT +arras/SM/*RS +array/ESGMD/*R +arrayer//*RY +arrear/SM/*R +arrest/ADSG/*RST +arrestee/MS/*RST +arrester/MS/*RST +arresting/Y/*RSTN +arrestor/MS/*RST +Arrhenius/M/*RHNS +arrhythmia/SM/*RH@M +arrhythmic//*RH@MK +arrhythmical//*RH@MKL +Arri/M/*R +arrival/MS/*RFL +arrive/SRDG/*RF +arriver/M/*RF +arrogance/MS/*RKNS +arrogant/Y/*RKNT +arrogate/XNGDS/*RKT +arrogation/M/*RKXN +Arron/M/*RN +arrow/SDMG/*R +arrowhead/SM/*RHT +arrowroot/MS/*RRT +arroyo/MS/*RY +arsenal/MS/*SNL +arsenate/M/*SNT +arsenic/MS/*SNK +arsenide/M/*SNT +arsine/MS/*SN +arson/SM/*SN +arsonist/MS/*SNST +Art/M/*T +art/SM/*T +Artair/M/*T +Artaxerxes/M/*TKSKSS +Arte/M/*T +artefact's//*TFKTS +Artemas//*TMS +Artemis/M/*TMS +Artemus/M/*TMS +arterial/SY/*TRL +arteriolar//*TRL +arteriole/SM/*TRL +arterioscleroses//*TRSKLRSS +arteriosclerosis/M/*TRSKLRSS +artery/SM/*TR +artesian//*TXN +artful/YP/*TFL +artfulness/SM/*TFLNS +Arther/M/*@ +arthritic/S/*@RTK +arthritides//*@RTTS +arthritis/M/*@RTS +arthrogram/MS/*@RKRM +arthropod/SM/*@RPT +arthroscope/S/*@RSKP +arthroscopic//*@RSKPK +Arthur/M/*@ +Arthurian//*@RN +artichoke/SM/*TXK +article/GMDS/*TKL +articulable/I/*TKLBL +articular//*TKL +articulate/VGNYXPSD/*TKLT +articulated/EU/*TKLTT +articulately/I/*TKLTL +articulateness/IMS/*TKLTNS +articulates/I/*TKLTS +articulation/M/*TKLXN +articulator/SM/*TKLT +articulatory//*TKLTR +Artie/M/*T +artifact/MS/*TFKT +artifice/ZRSM/*TFS +artificer/M/*TFS +artificial/PY/*TFXL +artificiality/MS/*TFXLT +artificialness/M/*TFXLNS +artillerist//*TLRST +artillery/SM/*TLR +artilleryman/M/*TLRMN +artillerymen//*TLRMN +artiness/MS/*TNS +artisan/SM/*TSN +artist/MS/*TST +artiste/SM/*TST +artistic/I/*TSTK +artistically/I/*TSTKL +artistry/SM/*TSTR +artless/YP/*TLS +artlessness/MS/*TLSNS +artsy/RT/*TS +Artur/M/*T +Arturo/M/*TR +Artus/M/*TS +artwork/MS/*TWK +Arty/M/*T +arty/TPR/*T +Aruba/M/*RB +arum/MS/*RM +Arv/M/*F +Arvie/M/*F +Arvin/M/*FN +Arvy/M/*F +Aryan/MS/*RYN +Aryn/M/*RN +as//*S +As//*S +A's//*S +Asa/M/*S +Asama/M/*SM +asap//*SP +ASAP//*SP +asbestos/MS/*SBSTS +Ascella/M/*SL +ascend/ADGS/*SNT +ascendancy/MS/*SNTNS +ascendant/SY/*SNTNT +ascender/SM/*SNT +Ascension/M/*SNXN +ascension/SM/*SNXN +ascent/SM/*SNT +ascertain/DSBLG/*STN +ascertainment/MS/*STNMNT +ascetic/SM/*STK +ascetically//*STKL +asceticism/MS/*STSSM +ASCII//*S +ascot/MS/*SKT +ascribe/GSDB/*SKRB +ascription/MS/*SKRPXN +ascriptive//*SKRPTF +Ase/M/*S +aseptic/S/*SPTK +aseptically//*SPTKL +asexual/Y/*SKSL +asexuality/MS/*SKSLT +Asgard/M/*SKT +ash/MNDRSG/*X +Ash/MRY/*X +ashame/D/*XM +ashamed/UY/*XMT +Ashanti/M/*XNT +Ashbey/M/*XB +Ashby/M/*XB +ashcan/SM/*XKN +Ashely/M/*XL +Asher/M/*X +Asheville/M/*XFL +Ashia/M/*X +Ashien/M/*XN +Ashil/M/*XL +Ashkenazim//*XKNSM +Ashkhabad/M/*XKHBT +Ashla/M/*XL +Ashlan/M/*XLN +Ashland/M/*XLNT +ashlar/GSDM/*XL +Ashlee/M/*XL +Ashleigh/M/*XL +Ashlen/M/*XLN +Ashley/M/*XL +Ashli/M/*XL +Ashlie/M/*XL +Ashlin/M/*XLN +Ashly/M/*XL +ashman/M/*XMN +Ashmolean/M/*XMLN +ashore//*XR +ashram/SM/*XRM +Ashton/M/*XTN +ashtray/MS/*XTR +Ashurbanipal/M/*XBNPL +ashy/RT/*X +Asia/M/*X +Asian/MS/*XN +Asiatic/SM/*XTK +aside/S/*ST +Asilomar/M/*SLM +Asimov//*SMF +asinine/Y/*SNN +asininity/MS/*SNNT +ask/DRZGS/*SK +askance//*SKNS +asked/U/*SKT +asker/M/*SK +askew/P/*SK +ASL//*SL +aslant//*SLNT +asleep//*SLP +Asmara/M/*SMR +asocial/S/*SXL +Asoka/M/*SK +asp/MNRXS/*SP +asparagus/MS/*SPRKS +aspartame/S/*SPTM +ASPCA//*SPK +aspect/SM/*SPKT +Aspell/M/*SPL +aspen/M/*SPN +Aspen/M/*SPN +asper/M/*SP +asperity/SM/*SPRT +aspersion/SM/*SPXN +asphalt/MDRSG/*SFLT +asphodel/MS/*SFTL +asphyxia/MS/*SFKS +asphyxiate/GNXSD/*SFKST +asphyxiation/M/*SFKSXN +aspic/MS/*SPK +Aspidiske/M/*SPTSK +aspidistra/MS/*SPTSTR +aspirant/MS/*SPRNT +aspirate/NGDSX/*SPRT +aspiration/M/*SPRXN +aspirational//*SPRXNL +aspirator/SM/*SPRT +aspire/GSRD/*SPR +aspirer/M/*SPR +aspirin/SM/*SPRN +asplenium//*SPLNM +Asquith/M/*SK@ +ass/MNS/*S +Assad/M/*ST +assail/BGDS/*SL +assailable/U/*SLBL +assailant/SM/*SLNT +Assam/M/*SM +Assamese/M/*SMS +assassin/MS/*SSN +assassinate/DSGNX/*SSNT +assassination/M/*SSNXN +assault/SGVMDR/*SLT +assaulter/M/*SLT +assaultive/YP/*SLTF +assay/SZGRD/*S +assayer/M/*SY +assemblage/MS/*SMBLK +assemble/ADSREG/*SMBL +assembled/U/*SMBLT +assembler/EMS/*SMBL +assemblies/A/*SMBLS +assembly/EAM/*SMBL +Assembly/MS/*SMBL +assemblyman/M/*SMBLMN +assemblymen//*SMBLMN +assemblywoman//*SMBLWMN +assemblywomen//*SMBLWMN +assent/SGMRD/*SNT +assert/ADGS/*ST +asserter/MS/*ST +assertion/AMS/*SXN +assertional//*SXNL +assertive/PY/*STF +assertiveness/SM/*STFNS +assess/BLSDG/*SS +assessed/A/*SST +assesses/A/*SSS +assessment/SAM/*SSMNT +assessor/MS/*SS +asset/SM/*ST +asseverate/XSDNG/*SFRT +asseveration/M/*SFRXN +asshole/MS/*XL +assiduity/SM/*STT +assiduous/PY/*STS +assiduousness/SM/*STSNS +assign/ALBSGD/*SN +assignation/MS/*SKNXN +assigned/U/*SN +assignee/MS/*SKN +assigner/MS/*SKN +assignment/MAS/*SKNMNT +assignor/MS/*SKN +assigns/CU/*SNS +assimilate/VNGXSD/*SMLT +assimilation/M/*SMLXN +assimilationist/M/*SMLXNST +Assisi/M/*SS +assist/RDGS/*SST +assistance/SM/*SSTNS +assistant/SM/*SSTNT +assistantship/SM/*SSTNTXP +assisted/U/*SSTT +assister/M/*SST +assize/MGSD/*SS +assn//*SN +assoc//*SK +associable//*SXBL +associate/SDEXNG/*SXT +associated/U/*SXTT +associateship//*SXTXP +association/ME/*SXXN +associational//*SXXNL +associative/Y/*SXTF +associativity/S/*SXTFT +associator/MS/*SXT +assonance/SM/*SNNS +assonant/S/*SNNT +assort/LRDSG/*ST +assorter/M/*ST +assortment/SM/*STMNT +asst//*ST +assuage/SDG/*SK +assuaged/U/*SKT +assumability//*SMBLT +assume/SRDBJG/*SM +assumer/M/*SM +assuming/UA/*SMN +assumption/SM/*SMPXN +assumptive//*SMPTF +assurance/AMS/*SRNS +assure/AGSD/*SR +assured/PYS/*SRT +assuredness/M/*SRTNS +assurer/SM/*SR +assuring/YA/*SRN +Assyria/M/*SR +Assyrian/SM/*SRN +Assyriology/M/*SRLK +Astaire/SM/*STR +Astarte/M/*STT +astatine/MS/*STTN +aster/ESM/*ST +asteria//*STR +asterisk/SGMD/*STRSK +asterisked/U/*STRSKT +astern//*STN +asteroid/SM/*STRT +asteroidal//*STRTL +asthma/MS/*S@M +asthmatic/S/*S@MTK +astigmatic/S/*STKMTK +astigmatism/SM/*STKMTSM +astir//*ST +Aston/M/*STN +astonish/GSDL/*STNX +astonishing/Y/*STNXN +astonishment/SM/*STNXMNT +Astor/M/*ST +Astoria/M/*STR +astound/SDG/*STNT +astounding/Y/*STNTN +Astra/M/*STR +astraddle//*STRTL +Astrakhan/M/*STRKHN +astrakhan/SM/*STRKHN +astral/SY/*STRL +astray//*STR +Astrid/M/*STRT +astride//*STRT +astringency/SM/*STRNNS +astringent/YS/*STRNNT +Astrix/M/*STRKS +astrolabe/MS/*STRLB +astrologer/MS/*STRLK +astrological/Y/*STRLKKL +astrologist/M/*STRLKST +astrology/SM/*STRLK +astronaut/SM/*STRNT +astronautic/S/*STRNTK +astronautical//*STRNTKL +astronautics/M/*STRNTKS +astronomer/MS/*STRNM +astronomic//*STRNMK +astronomical/Y/*STRNMKL +astronomy/SM/*STRNM +astrophysical//*STRFSKL +astrophysicist/SM/*STRFSSST +astrophysics/M/*STRFSKS +Astroturf/M/*STRTF +AstroTurf/S/*STRTF +Asturias/M/*STRS +astute/RTYP/*STT +astuteness/MS/*STTNS +Asunción/M/*SNSN +asunder//*SNT +Aswan/M/*SWN +asylum/MS/*SLM +asymmetric//*SMTRK +asymmetrical/Y/*SMTRKL +asymmetry/MS/*SMTR +asymptomatic//*SMPTMTK +asymptomatically//*SMPTMTKL +asymptote/MS/*SMPTT +asymptotic/Y/*SMPTTK +asymptotically//*SMPTTKL +asynchronism/M/*SNXRNSM +asynchronous/Y/*SNXRNS +asynchrony//*SNXRN +at//*T +At/M/*T +Atacama/M/*TKM +Atahualpa/M/*THLP +Atalanta/M/*TLNT +Atari/M/*TR +Atatürk/M/*TTRK +atavism/MS/*TFSM +atavist/MS/*TFST +atavistic//*TFSTK +ataxia/MS/*TKS +ataxic/S/*TKSK +ate/S/*T +atelier/SM/*TL +atemporal//*TMPRL +Athabasca/M/*@BSK +Athabascan's//*@BSKNS +Athabaskan/MS/*@BSKN +Athabaska's//*@BSKS +atheism/SM/*@SM +atheist/SM/*@ST +atheistic//*@STK +Athena/M/*@N +Athene/M/*@N +Athenian/SM/*@NN +Athens/M/*@NS +atheroscleroses//*@RSKLRSS +atherosclerosis/M/*@RSKLRSS +athirst//*@ST +athlete/MS/*@LT +athletic/S/*@LTK +athletically//*@LTKL +athleticism/M/*@LTSSM +athletics/M/*@LTKS +athwart//*@WT +atilt//*TLT +Atkins/M/*TKNS +Atkinson/M/*TKNSN +Atlanta/M/*TLNT +Atlante/MS/*TLNT +atlantes//*TLNTS +Atlantic/M/*TLNTK +Atlantis/M/*TLNTS +atlas/SM/*TLS +Atlas/SM/*TLS +ATM/M/*TM +Atman//*TMN +atmosphere/DSM/*TMSFR +atmospheric/S/*TMSFRK +atmospherically//*TMSFRKL +atoll/MS/*TL +atom/SM/*TM +atomic/S/*TMK +atomically//*TMKL +atomicity/M/*TMST +atomics/M/*TMKS +atomistic//*TMSTK +atomization/SM/*TMSXN +atomize/GZDRS/*TMS +atomizer/M/*TMS +atonal/Y/*TNL +atonality/MS/*TNLT +atone/LDSG/*TN +atonement/SM/*TNMNT +atop//*TP +ATP//*TP +Atreus/M/*TRS +atria//*TR +Atria/M/*TR +atrial//*TRL +atrium/M/*TRM +atrocious/YP/*TRSS +atrociousness/SM/*TRSSNS +atrocity/SM/*TRST +atrophic//*TRFK +atrophy/DSGM/*TRF +atropine/SM/*TRPN +Atropos/M/*TRPS +Ats//*TS +attach/BLGZMDR/*TX +attaché/S/*TX +attached/UA/*TXT +attacher/M/*TX +attachment/ASM/*TXMNT +attack/GBZSDR/*TK +attacker/M/*TK +attain/AGSD/*TN +attainabilities//*TNBLTS +attainability/UM/*TNBLT +attainable/U/*TNBL +attainableness/M/*TNBLNS +attainably/U/*TNBL +attainder/MS/*TNT +attained/U/*TNT +attainer/MS/*TN +attainment/MS/*TNMNT +attar/MS/*T +attempt/ADSG/*TMPT +attempter/MS/*TMPT +attend/SGZDR/*TNT +attendance/MS/*TNTNS +attendant/SM/*TNTNT +attended/U/*TNTT +attendee/SM/*TNT +attender/M/*TNT +attention/IMS/*TNXN +attentional//*TNXNL +attentionality//*TNXNLT +attentive/YIP/*TNTF +attentiveness/IMS/*TNTFNS +attenuate/SDXGN/*TNT +attenuated/U/*TNTT +attenuation/M/*TNXN +attenuator/MS/*TNT +attest/GSDR/*TST +attestation/SM/*TSTXN +attested/U/*TSTT +attester/M/*TST +Attic//*TK +attic/MS/*TK +Attica/M/*TK +Attila/M/*TL +attire/SDG/*TR +attitude/MS/*TTT +attitudinal/Y/*TTTNL +attitudinize/SDG/*TTTNS +Attlee/M/*TL +attn//*TN +Attn//*TN +attorney/SM/*TN +attract/BSDGV/*TRKT +attractant/SM/*TRKTNT +attraction/MS/*TRKXN +attractive/UYP/*TRKTF +attractiveness/UM/*TRKTFNS +attractivenesses//*TRKTFNSS +attractor/MS/*TRKT +attributable/U/*TRBTBL +attribute/BVNGRSDX/*TRBT +attributed/U/*TRBTT +attributer/M/*TRBT +attribution/M/*TRBXN +attributional//*TRBXNL +attributive/SY/*TRBTF +attrition/MS/*TRXN +Attucks//*TKS +attune/SDG/*TN +atty//*T +ATV/S/*TF +atwitter//*TWT +Atwood/M/*TWT +atypical/Y/*TPKL +Au/M/* +Aube/M/*B +Auberge/M/*BK +aubergine/MS/*BKN +Auberon/M/*BRN +Aubert/M/*BT +Auberta/M/*BT +Aubine/M/*BN +Aubree/M/*BR +Aubrette/M/*BRT +Aubrey/M/*BR +Aubrie/M/*BR +Aubry/M/*BR +auburn/SM/*BN +Auckland/M/*KLNT +auction/MDSG/*KXN +auctioneer/SDMG/*KXN +audacious/PY/*TSS +audaciousness/SM/*TSSNS +audacity/MS/*TST +Auden/M/*TN +Audi/M/*T +audibility/MSI/*TBLT +audible/I/*TBL +audibles//*TBLS +audibly/I/*TBL +Audie/M/*T +audience/MS/*TNS +audio/SM/*T +audiogram/SM/*TKRM +audiological//*TLKKL +audiologist/MS/*TLKST +audiology/SM/*TLK +audiometer/MS/*TMT +audiometric//*TMTRK +audiometry/M/*TMTR +audiophile/SM/*TFL +audiotape/S/*TTP +audiovisual/S/*TFSL +audit/SMDVG/*TT +audited/U/*TTT +audition/MDSG/*TXN +auditor/MS/*TT +auditorium/MS/*TTRM +auditory/S/*TTR +Audra/M/*TR +Audre/M/*TR +Audrey/M/*TR +Audrie/M/*TR +Audry/M/*TR +Audrye/M/*TRY +Audubon/M/*TBN +Audy/M/*T +Auerbach/M/*BX +Aug/M/*K +Augean//*KN +auger/SM/*K +aught/S/*T +Augie/M/*K +augment/DRZGS/*KMNT +augmentation/SM/*KMNTXN +augmentative/S/*KMNTTF +augmenter/M/*KMNT +augur/GDMS/*K +augury/SM/*KR +August/SM/*KST +august/STPYR/*KST +Augusta/M/*KST +Augustan/S/*KSTN +Auguste/M/*KST +Augustin/M/*KSTN +Augustina/M/*KSTN +Augustine/M/*KSTN +Augustinian/S/*KSTNN +augustness/SM/*KSTNS +Augusto/M/*KST +Augustus/M/*KSTS +Augy/M/*K +auk/MS/*K +Aundrea/M/*NTR +aunt/MYS/*NT +auntie/MS/*NT +aunty's//*NTS +Aura/M/*R +aura/SM/*R +aural/Y/*RL +Aurea/M/*R +Aurel/M/*RL +Aurelea/M/*RL +Aurelia/M/*RL +Aurelie/M/*RL +Aurelio/M/*RL +Aurelius/M/*RLS +aureole/GMSD/*RL +aureomycin//*RMSN +Aureomycin/M/*RMSN +Auria/M/*R +auric//*RK +auricle/SM/*RKL +auricular//*RKL +Aurie/M/*R +Auriga/M/*RK +Aurilia/M/*RL +Aurlie/M/*L +Auroora/M/*RR +Aurora/M/*RR +aurora/SM/*RR +auroral//*RRL +Aurore/M/*RR +Aurthur/M/*@ +Auschwitz/M/*SXWTS +auscultate/XDSNG/*SKLTT +auscultation/M/*SKLTXN +auspice/SM/*SPS +auspicious/IPY/*SPSS +auspiciousness/IM/*SPSSNS +auspiciousnesses//*SPSSNSS +Aussie/MS/*S +Austen/M/*STN +austere/TYRP/*STR +austereness/M/*STRNS +austerity/SM/*STRT +Austin/SM/*STN +Austina/M/*STN +Austine/M/*STN +austral//*STRL +Australasia/M/*STRLX +Australasian/S/*STRLXN +australes//*STRLS +Australia/M/*STRL +Australian/MS/*STRLN +Australis/M/*STRLS +australites//*STRLTS +Australoid//*STRLT +Australopithecus/M/*STRLP@KS +Austria/M/*STR +Austrian/SM/*STRN +Austronesian//*STRNXN +authentic/UI/*@NTK +authentically//*@NTKL +authenticate/GNDSX/*@NTKT +authenticated/U/*@NTKTT +authentication/M/*@NTKXN +authenticator/MS/*@NTKT +authenticity/MS/*@NTST +author/DMGS/*@ +authoress/S/*@RS +authorial//*@RL +authoritarian/S/*@RTRN +authoritarianism/MS/*@RTRNSM +authoritative/PY/*@RTTF +authoritativeness/SM/*@RTTFNS +authority/SM/*@RT +authorization/MAS/*@RSXN +authorize/AGDS/*@RS +authorized/U/*@RST +authorizer/SM/*@RS +authorizes/U/*@RSS +authorship/MS/*@XP +autism/MS/*TSM +autistic/S/*TSTK +auto/SDMG/*T +autobahn/MS/*TBN +autobiographer/MS/*TBKRF +autobiographic//*TBKRFK +autobiographical/Y/*TBKRFKL +autobiography/MS/*TBKRF +autoclave/SDGM/*TKLF +autocollimator/M/*TKLMT +autocorrelate/GNSDX/*TKRLT +autocorrelation/M/*TKRLXN +autocracy/SM/*TKRS +autocrat/SM/*TKRT +autocratic//*TKRTK +autocratically//*TKRTKL +autodial/R/*TTL +autodidact/MS/*TTTKT +autofluorescence//*TFLRSNS +autograph/MDG/*TKRF +autographs//*TKRFS +autoignition/M/*TKNXN +autoimmune//*TMN +autoimmunity/S/*TMNT +autoloader//*TLT +automaker/S/*TMK +automata's//*TMTS +automate/NGDSX/*TMT +automatic/S/*TMTK +automatically//*TMTKL +automation/M/*TMXN +automatism/SM/*TMTSM +automatize/DSG/*TMTS +automaton/SM/*TMTN +automobile/GDSM/*TMBL +automorphism/SM/*TMFSM +automotive//*TMTF +autonavigator/SM/*TNFKT +autonomic/S/*TNMK +autonomous/Y/*TNMS +autonomy/MS/*TNM +autopilot/SM/*TPLT +autopsy/MDSG/*TPS +autoregressive//*TRKRSF +autorepeat/GS/*TRPT +autostart//*TSTT +autosuggestibility/M/*TSKSTBLT +autotransformer/M/*TTRNSFM +autoworker/S/*TWK +Autumn/M/*TMN +autumn/MS/*TMN +autumnal/Y/*TMNL +aux//*KS +auxiliary/S/*KSLR +auxin/MS/*KSN +AV//*F +av/ZR/*F +Ava/M/*F +avail/BSZGRD/*FL +availability/USM/*FLBLT +available/U/*FLBL +availableness/M/*FLBLNS +availably//*FLBL +availing/U/*FLN +avalanche/MGSD/*FLNX +Avalon/M/*FLN +avant//*FNT +avarice/SM/*FRS +avaricious/PY/*FRSS +avariciousness/M/*FRSSNS +avast/S/*FST +avatar/MS/*FT +avaunt/S/*FNT +avdp//*FTP +Ave/MS/*F +ave/S/*F +Aveline/M/*FLN +avenge/ZGSRD/*FNK +avenged/U/*FNKT +avenger/M/*FNK +Aventine/M/*FNTN +Aventino/M/*FNTN +avenue/MS/*FN +average/DSPGYM/*FRK +Averell/M/*FRL +Averil/M/*FRL +Averill/M/*FRL +Avernus/M/*FNS +averred//*FRT +averrer//*FR +averring//*FRN +Averroes/M/*FRS +avers/V/*FS +averse/YNXP/*FS +averseness/M/*FSNS +aversion/M/*FXN +avert/GSD/*FT +Avery/M/*FR +Averyl/M/*FRL +aves/C/*FS +Avesta/M/*FST +avg//*FK +avian/S/*FN +aviary/SM/*FR +aviate/NX/*FT +aviation/M/*FXN +aviator/SM/*FT +aviatrices//*FTRSS +aviatrix/SM/*FTRKS +Avicenna/M/*FSN +Avictor/M/*FKT +avid/TPYR/*FT +avidity/MS/*FTT +Avie/M/*F +Avigdor/M/*FKT +Avignon/M/*FKNN +Avila/M/*FL +avionic/S/*FNK +avionics/M/*FNKS +Avior/M/*F +Avis//*FS +avitaminoses//*FTMNSS +avitaminosis/M/*FTMNSS +Aviv/M/*FF +Aviva/M/*FF +Avivah/M/*FF +avocado/MS/*FKT +avocation/SM/*FKXN +avocational//*FKXNL +Avogadro/M/*FKTR +avoid/ZRDBGS/*FT +avoidable/U/*FTBL +avoidably/U/*FTBL +avoidance/SM/*FTNS +avoider/M/*FT +avoirdupois/MS/*FTPS +Avon/M/*FN +avouch/GDS/*FX +avow/GEDS/*F +avowal/EMS/*FWL +avowed/Y/*FWT +avower/M/*FW +Avram/M/*FRM +Avril/M/*FRL +Avrit/M/*FRT +Avrom/M/*FRM +avuncular//*FNKL +aw/GD/* +AWACS//*WKS +await/SDG/*WT +awake/GS/*WK +awaken/SADG/*WKN +awakened/U/*WKNT +awakener/M/*WKN +awakening/S/*WKNN +award/RDSZG/*WT +awarder/M/*WT +aware/TRP/*WR +awareness/MSU/*WRNS +awash//*WX +away/PS/*W +awe/SM/*W +aweigh//*W +awesome/PY/*WSM +awesomeness/SM/*WSMNS +awestruck//*WSTRK +awful/YP/*FL +awfuller//*FL +awfullest//*FLST +awfulness/SM/*FLNS +awhile/S/*HL +awkward/PRYT/*KWT +awkwardness/MS/*KWTNS +awl/MS/*L +awn/MDJGS/*N +awning/DM/*NN +awoke//*WK +awoken//*WKN +AWOL//*WL +awry/RT/*R +ax/DRSZGM/*KS +Ax/M/*KS +Axe/M/*KS +axehead/S/*KSHT +Axel/M/*KSL +axeman//*KSMN +axial/Y/*KSL +axillary//*KSLR +axiological/Y/*KSLKKL +axiology/M/*KSLK +axiom/SM/*KSM +axiomatic/S/*KSMTK +axiomatically//*KSMTKL +axiomatization/MS/*KSMTSXN +axiomatize/GDS/*KSMTS +axion/SM/*KSN +axis/SM/*KSS +axle/MS/*KSL +axletree/MS/*KSLTR +axolotl/SM/*KSLTL +axon/SM/*KSN +ayah/M/*Y +ayahs//*YS +Ayala/M/*YL +ayatollah//*YTL +ayatollahs//*YTLS +aye/MZRS/*Y +Ayers//*YS +Aylmar/M/*LM +Aylmer/M/*LM +Aymara/M/*MR +Aymer/M/*M +Ayn/M/*N +AZ//*S +azalea/SM/*SL +Azania/M/*SN +Azazel/M/*SSL +Azerbaijan/M/*SBKN +azimuth/M/*SM@ +azimuthal/Y/*SM@L +azimuths//*SM@S +Azores//*SRS +Azov/M/*SF +AZT//*ST +Aztec/MS/*STK +Aztecan//*STKN +azure/MS/*SR +B/GT/B +b/KGD/B +BA//B +Ba/M/B +baa/SDG/B +Baal/SM/BL +Bab/SM/BB +Babara/M/BBR +Babar's//BBS +Babb/M/BB +Babbage/M/BBK +Babbette/M/BBT +Babbie/M/BB +babbitt/GDS/BBT +Babbitt/M/BBT +babble/RSDGZ/BBL +babbler/M/BBL +Babcock/M/BBKK +babe/SM/BB +Babel/MS/BBL +babel/S/BBL +Babette/M/BBT +Babita/M/BBT +Babka/M/BBK +baboon/MS/BBN +babushka/MS/BBXK +baby/TDSRMG/BB +babyhood/MS/BBHT +babyish//BBYX +Babylon/MS/BBLN +Babylonia/M/BBLN +Babylonian/SM/BBLNN +babysat//BBST +babysit/S/BBST +babysitter/S/BBST +babysitting//BBSTN +Bacall/M/BKL +Bacardi/M/BKT +baccalaureate/MS/BKLRT +baccarat/SM/BKRT +bacchanal/SM/BXNL +bacchanalia//BXNL +Bacchanalia/M/BXNL +bacchanalian/S/BXNLN +Bacchic//BXK +Bacchus/M/BXS +Bach/M/BX +bachelor/SM/BXL +bachelorhood/SM/BXLHT +bacillary//BSLR +bacilli//BSL +bacillus/MS/BSLS +back/GZDRMSJ/BK +backache/SM/BKX +backarrow//BKR +backbench/ZR/BKBNX +backbencher/M/BKBNX +backbit/ZGJR/BKBT +backbite/S/BKBT +backbiter/M/BKBT +backbitten//BKBTN +backboard/SM/BKBT +backbone/SM/BKBN +backbreaking//BKBRKN +backchaining//BKXNN +backcloth/M/BKKL@ +backdate/GDS/BKTT +backdrop/MS/BKTRP +backdropped//BKTRPT +backdropping//BKTRPN +backed/U/BKT +backer/M/BK +backfield/SM/BKFLT +backfill/SDG/BKFL +backfire/GDS/BKFR +backgammon/MS/BKKMN +background/SDRMZG/BKKRNT +backhand/RDMSZG/BKHNT +backhanded/Y/BKHNTT +backhander/M/BKHNT +backhoe/S/BKH +backing/M/BKN +backlash/GRSDM/BKLX +backless//BKLS +backlog/MS/BKLK +backlogged//BKLKT +backlogging//BKLKN +backorder//BKT +backpack/ZGSMRD/BKPK +backpacker/M/BKPK +backpedal/DGS/BKPTL +backplane/MS/BKPLN +backplate/SM/BKPLT +backrest/MS/BKRST +backscatter/SMDG/BKSKT +backseat/S/BKST +backside/SM/BKST +backslapper/MS/BKSLP +backslapping/M/BKSLPN +backslash/DSG/BKSLX +backslid/RZG/BKSLT +backslide/S/BKSLT +backslider/M/BKSLT +backspace/GSD/BKSPS +backspin/SM/BKSPN +backstabber/M/BKSTB +backstabbing//BKSTBN +backstage//BKSTK +backstair/S/BKST +backstitch/GDSM/BKSTX +backstop/MS/BKSTP +backstopped//BKSTPT +backstopping//BKSTPN +backstreet/M/BKSTRT +backstretch/SM/BKSTRX +backstroke/GMDS/BKSTRK +backtalk/S/BKTLK +backtrack/SDRGZ/BKTRK +backup/SM/BKP +Backus/M/BKS +backward/YSP/BKWT +backwardness/MS/BKWTNS +backwash/SDMG/BKWX +backwater/SM/BKWT +backwood/S/BKWT +backwoodsman/M/BKWTSMN +backwoodsmen//BKWTSMN +backyard/MS/BKYT +Bacon/M/BKN +bacon/SRM/BKN +baconer/M/BKN +bacteria/MS/BKTR +bacterial/Y/BKTRL +bactericidal//BKTRSTL +bactericide/SM/BKTRST +bacteriologic//BKTRLKK +bacteriological//BKTRLKKL +bacteriologist/MS/BKTRLKST +bacteriology/SM/BKTRLK +bacterium/M/BKTRM +Bactria/M/BKTR +bad/PSNY/BT +badder//BT +baddest//BTST +baddie/MS/BT +bade//BT +Baden/M/BTN +badge/DSRGMZ/BK +badger/DMG/BKR +badinage/DSMG/BTNK +badland/S/BTLNT +Badlands/M/BTLNTS +badman/M/BTMN +badmen//BTMN +badminton/MS/BTMNTN +badmouth/DG/BTM@ +badmouths//BTM@S +badness/SM/BTNS +Baedeker/SM/BTK +Baez/M/BS +Baffin/M/BFN +baffle/RSDGZL/BFL +bafflement/MS/BFLMNT +baffler/M/BFL +baffling/Y/BFLN +bag/SM/BK +bagatelle/MS/BKTL +bagel/SM/BKL +bagful/MS/BKFL +baggage/SM/BKK +baggageman//BKKMN +baggagemen//BKKMN +bagged/M/BKT +bagger/SM/BK +baggily//BKL +bagginess/MS/BKNS +bagging/M/BKN +baggy/PRST/BK +Baghdad/M/BTT +bagpipe/RSMZ/BKPP +bagpiper/M/BKPP +Bagrodia/MS/BKRT +baguette/SM/BKT +Baguio/M/BK +bah//B +Baha'i//BH +Bahama/MS/BHM +Bahamanian/S/BHMNN +Bahamian/MS/BHMN +Baha'ullah//BHL +Bahia/M/BH +Bahrain/M/BRN +bahs//BS +Baikal/M/BKL +bail/GSMYDRB/BL +Bail/M/BL +Bailey/SM/BL +Bailie/M/BL +bailiff/SM/BLF +bailiwick/MS/BLWK +Baillie/M/BL +bailout/MS/BLT +bailsman/M/BLSMN +bailsmen//BLSMN +Baily/M/BL +Baird/M/BT +bairn/SM/BN +bait/GSMDR/BT +baiter/M/BT +baize/GMDS/BS +Baja/M/BK +bake/ZGJDRS/BK +baked/U/BKT +bakehouse/M/BKHS +Bakelite/M/BKLT +baker/M/BK +Baker/M/BK +Bakersfield/M/BKSFLT +bakery/SM/BKR +bakeshop/S/BKXP +baking/M/BKN +baklava/M/BKLF +baksheesh/SM/BKXX +Baku/M/BK +Bakunin/M/BKNN +balaclava/MS/BLKLF +balalaika/MS/BLLK +balance/USDG/BLNS +balanced/A/BLNST +balancedness//BLNSTNS +balancer/MS/BLNS +balance's//BLNSS +Balanchine/M/BLNXN +Balboa/M/BLB +balboa/SM/BLB +balcony/MSD/BLKN +Bald/MR/BLT +bald/PYDRGST/BLT +Balder/M/BLT +balderdash/MS/BLTTX +baldfaced//BLTFST +baldness/MS/BLTNS +baldric/SM/BLTRK +Balduin/M/BLTN +Baldwin/M/BLTWN +baldy//BLT +Bale/M/BL +bale/MZGDRS/BL +Balearic/M/BLRK +baleen/MS/BLN +baleful/YP/BLFL +balefuller//BLFL +balefullest//BLFLST +balefulness/MS/BLFLNS +baler/M/BL +Balfour/M/BLF +Bali/M/BL +Balinese//BLNS +balk/GDRS/BLK +Balkan/SM/BLKN +balkanization//BLKNSXN +balkanize/DG/BLKNS +balker/M/BLK +Balkhash/M/BLKHX +balkiness/M/BLKNS +balky/PRT/BLK +ball/GZMSDR/BL +Ball/M/BL +ballad/SM/BLT +ballade/MS/BLT +balladeer/MS/BLT +balladry/MS/BLTR +Ballard/SM/BLT +ballast/SGMD/BLST +ballcock/S/BLKK +baller/M/BL +ballerina/MS/BLRN +ballet/MS/BLT +balletic//BLTK +ballfields//BLFLTS +ballgame/S/BLKM +ballistic/S/BLSTK +ballistics/M/BLSTKS +balloon/RDMZGS/BLN +balloonist/S/BLNST +ballot/MRDGS/BLT +balloter/M/BLT +ballpark/SM/BLPK +ballplayer/SM/BLPLY +ballpoint/SM/BLPNT +ballroom/SM/BLRM +ballsy/TR/BLS +ballyhoo/SGMD/BLH +balm/MS/BLM +balminess/SM/BLMNS +balmy/PRT/BLM +baloney/SM/BLN +balsa/MS/BLS +balsam/GMDS/BLSM +balsamic//BLSMK +Balthazar/M/BL@S +Baltic/M/BLTK +Baltimore/M/BLTMR +Baluchistan/M/BLXSTN +baluster/MS/BLST +balustrade/SM/BLSTRT +Balzac/M/BLSK +Bamako/M/BMK +Bamberger/M/BMBK +Bambi/M/BMB +Bambie/M/BMB +bamboo/SM/BMB +bamboozle/GSD/BMBSL +Bamby/M/BMB +Ban/M/BN +ban/SGMD/BN +Banach/M/BNX +banal/TYR/BNL +banality/MS/BNLT +banana/SM/BNN +Bancroft/M/BNKRFT +band/EDGS/BNT +bandage/RSDMG/BNTK +bandager/M/BNTK +bandanna/SM/BNTN +bandbox/MS/BNTBKS +bandeau/M/BNT +bandeaux//BNTKS +bander/M/BNT +banding/M/BNTN +bandit/MS/BNTT +banditry/MS/BNTTR +bandmaster/MS/BNTMST +bandoleer/SM/BNTL +bandpass//BNTPS +band's//BNTS +bandsman/M/BNTSMN +bandsmen//BNTSMN +bandstand/SM/BNTSTNT +bandstop//BNTSTP +Bandung/M/BNTNK +bandwagon/MS/BNTWKN +bandwidth/M/BNTWT@ +bandwidths//BNTWT@S +bandy/TGRSD/BNT +bane/MS/BN +baneful/Y/BNFL +banefuller//BNFL +banefullest//BNFLST +bang/GDRZMS/BNK +Bangalore/M/BNKLR +banger/M/BNK +bangkok//BNKKK +Bangkok/M/BNKKK +Bangladesh/M/BNKLTX +Bangladeshi/S/BNKLTX +bangle/MS/BNKL +Bangor/M/BNK +Bangui/M/BNK +bani//BN +banish/RSDGL/BNX +banisher/M/BNX +banishment/MS/BNXMNT +banister/MS/BNST +Banjarmasin/M/BNKMSN +banjo/MS/BNK +banjoist/SM/BNKST +Banjul/M/BNKL +bank/GZJDRMBS/BNK +Bank/MS/BNK +bankbook/SM/BNKBK +bankcard/S/BNKKT +banker/M/BNK +banking/M/BNKN +banknote/S/BNKNT +bankroll/DMSG/BNKRL +bankrupt/DMGS/BNKRPT +bankruptcy/MS/BNKRPTS +Banky/M/BNK +banned/U/BNT +Banneker/M/BNK +banner/SDMG/BN +banning/U/BNN +Bannister/M/BNST +bannister's//BNSTS +bannock/SM/BNK +banns//BNS +banquet/SZGJMRD/BNKT +banqueter/M/BNKT +banquette/MS/BNKT +bans/U/BNS +banshee/MS/BNX +bantam/MS/BNTM +bantamweight/MS/BNTMWT +banter/RDSG/BNT +banterer/M/BNTR +bantering/Y/BNTRN +Banting/M/BNTN +Bantu/SM/BNT +banyan/MS/BNYN +banzai/S/BNS +baobab/SM/BBB +Baotou/M/BT +baptism/SM/BPTSM +baptismal/Y/BPTSML +baptist/MS/BPTST +Baptist/MS/BPTST +Baptiste/M/BPTST +baptistery/MS/BPTSTR +baptistry's//BPTSTRS +baptize/SRDZG/BPTS +baptized/U/BPTST +baptizer/M/BPTS +baptizes/U/BPTSS +Bar/MH/B +bar/TGMDRS/B +Barabbas/M/BRBS +barb/DRMSGZ/BB +Barb/RM/BB +Barbabas/M/BBBS +Barbabra/M/BBBR +Barbadian/S/BBTN +Barbados/M/BBTS +Barbara/M/BBR +Barbaraanne/M/BBRN +Barbarella/M/BBRL +barbarian/MS/BBRN +barbarianism/MS/BBRNSM +barbaric//BBRK +barbarically//BBRKL +barbarism/MS/BBRSM +barbarity/SM/BBRT +barbarize/SDG/BBRS +Barbarossa/M/BBRS +barbarous/PY/BBRS +barbarousness/M/BBRSNS +Barbary/M/BBR +Barbe/M/BB +barbecue/DRSMG/BBK +barbed/P/BBT +Barbee/M/BB +barbel/MS/BBL +barbell/SM/BBL +barbeque's//BBKS +barber/DMG/BB +Barber/M/BB +barbered/U/BBRT +barberry/MS/BBR +barbershop/MS/BBXP +Barbette/M/BBT +Barbey/M/BB +Barbi/M/BB +Barbie/M/BB +barbital/M/BBTL +barbiturate/MS/BBTRT +Barbour/M/BB +Barbra/M/BBR +Barbuda/M/BBT +barbwire/SM/BBWR +Barby/M/BB +barcarole/SM/BKRL +Barcelona/M/BSLN +Barclay/M/BKL +Bard/M/BT +bard/MDSG/BT +Barde/M/BT +Bardeen/M/BTN +bardic//BTK +bare/YSP/BR +bareback/D/BRBK +barefaced/YP/BRFST +barefacedness/M/BRFSTNS +barefoot/D/BRFT +barehanded//BRHNTT +bareheaded//BRHTT +barelegged//BRLKT +bareness/MS/BRNS +Barents/M/BRNTS +barf/YDSG/BF +barfly/SM/BFL +bargain/ZGSDRM/BKN +bargainer/M/BKN +barge/DSGM/BK +bargeman/M/BKMN +bargemen//BKMN +bargepole/M/BKPL +barhop/S/BHP +barhopped//BHPT +barhopping//BHPN +Bari/M/BR +baritone/MS/BRTN +barium/MS/BRM +bark/GZDRMS/BK +barked/C/BKT +barkeep/SRZ/BKP +barkeeper/M/BKP +barker/M/BK +Barker/M/BK +Barkley/M/BKL +barks/C/BKS +barley/MS/BL +barleycorn/MS/BLKN +Barlow/M/BL +barmaid/SM/BMT +barman/M/BMN +barmen//BMN +barn/GDSM/BN +Barn/M/BN +Barnabas//BNBS +Barnabe/M/BNB +Barnaby/M/BNB +barnacle/MDS/BNKL +Barnard/M/BNT +Barnaul/M/BNL +Barnebas/M/BNBS +Barnes//BNS +Barnett/M/BNT +Barney/M/BN +barnful//BNFL +Barnhard/M/BNHT +Barnie/M/BN +barnsful//BNSFL +barnstorm/DRGZS/BNSTM +barnstormer/M/BNSTM +Barnum/M/BNM +Barny/M/BN +barnyard/MS/BNYT +Baroda/M/BRT +barometer/MS/BRMT +barometric//BRMTRK +barometrically//BRMTRKL +Baron/M/BRN +baron/SM/BRN +baronage/MS/BRNK +baroness/MS/BRNS +baronet/MS/BRNT +baronetcy/SM/BRNTS +baronial//BRNL +barony/SM/BRN +baroque/SPMY/BRK +barque's//BKS +Barquisimeto/M/BKSMT +Barr/M/BR +barrack/SDRG/BRK +barracker/M/BRK +barracuda/MS/BRKT +barrage/MGSD/BRK +Barranquilla/M/BRNKL +barre/GMDSJ/BR +barred/ECU/BRT +barrel/SGMD/BRL +barren/SPRT/BRN +barrenness/SM/BRNS +Barrera/M/BRR +Barret/M/BRT +Barrett/M/BRT +barrette/SM/BRT +Barri/SM/BR +barricade/SDMG/BRKT +Barrie/M/BR +barrier/MS/BR +barring/R/BRN +barrio/SM/BR +barrister/MS/BRST +Barron/M/BRN +barroom/SM/BRM +barrow/MS/BR +Barry/M/BR +Barrymore/MS/BRMR +bars/ECU/BS +barstool/SM/BSTL +Barstow/M/BST +Bart/M/BT +Bartel/M/BTL +bartend/ZR/BTNT +bartender/M/BTNT +barter/SRDZG/BT +barterer/M/BTR +Barth/M/B@ +Barthel/M/B@L +Bartholdi/M/B@LT +Bartholemy/M/B@LM +Bartholomeo/M/B@LM +Bartholomeus/M/B@LMS +Bartholomew/M/B@LM +Bartie/M/BT +Bartlet/M/BTLT +Bartlett/M/BTLT +Bartók/M/BTK +Bartolemo/M/BTLM +Bartolomeo/M/BTLM +Barton/M/BTN +Bartram/M/BTRM +Barty/M/BT +Bary/M/BR +barycenter//BRSNT +barycentre's//BRSNTRS +barycentric//BRSNTRK +baryon/SM/BRYN +Baryram/M/BRRM +Baryshnikov/M/BRXNKF +bas/DRSTG/BS +basal/Y/BSL +basalt/SM/BSLT +basaltic//BSLTK +Bascom/M/BSKM +base/CGRSDL/BS +Base/M/BS +baseball/MS/BSBL +baseband//BSBNT +baseboard/MS/BSBT +Basel/M/BSL +baseless//BSLS +baseline/SM/BSLN +basely//BSL +baseman/M/BSMN +basemen//BSMN +basement/CSM/BSMNT +baseness/MS/BSNS +baseplate/M/BSPLT +base's//BSS +basetting//BSTN +bash/JGDSR/BX +bashful/PY/BXFL +bashfulness/MS/BXFLNS +Basho/M/BX +Basia/M/BX +BASIC//BSK +basic/S/BSK +basically//BSKL +Basie/M/BS +Basil/M/BSL +basil/MS/BSL +basilar//BSL +Basile/M/BSL +basilica/SM/BSLK +Basilio/M/BSL +basilisk/SM/BSLSK +Basilius/M/BSLS +basin/DMS/BSN +basinful/S/BSNFL +basis/M/BSS +bask/GSD/BSK +basket/SM/BSKT +basketball/MS/BSKTBL +basketry/MS/BSKTR +basketwork/SM/BSKTWK +basophilic//BSFLK +Basque/SM/BSK +Basra/M/BSR +Bass/M/BS +bass/SM/BS +basset/GMDS/BST +Basseterre/M/BSTR +Bassett/M/BST +bassinet/SM/BSNT +bassist/MS/BSST +basso/MS/BS +bassoon/MS/BSN +bassoonist/MS/BSNST +basswood/SM/BSWT +bast/SGZMDR/BST +bastard/MYS/BSTT +bastardization/MS/BSTTSXN +bastardize/SDG/BSTTS +bastardized/U/BSTTST +bastardy/MS/BSTT +baste/NXS/BST +baster/M/BST +Bastian/M/BSXN +Bastien/M/BSTN +Bastille/M/BSTL +basting/M/BSTN +bastion/DM/BSXN +Basutoland/M/BSTLNT +Bat/M/BT +bat/SMDRG/BT +Bataan/M/BTN +Batavia/M/BTF +batch/MRSDG/BX +bate/KGSADC/BT +bated/U/BTT +bater/AC/BT +Bates//BTS +bath/JMDSRGZ/B@ +bathe//B@ +bather/M/B@ +bathetic//B@TK +bathhouse/SM/B@HS +bathmat/S/B@MT +Batholomew/M/B@LM +bathos/SM/B@S +bathrobe/MS/B@RB +bathroom/SDM/B@RM +baths//B@S +Bathsheba/M/B@XB +bathtub/MS/B@TB +bathwater//B@WT +bathyscaphe's//B@SKFS +bathysphere/MS/B@SFR +batik/DMSG/BTK +Batista/M/BTST +batiste/SM/BTST +batman/M/BTMN +Batman/M/BTMN +batmen//BTMN +baton/SM/BTN +Batsheva/M/BTXF +batsman/M/BTSMN +batsmen//BTSMN +battalion/MS/BTLN +batted//BTT +batten/SDMG/BTN +batter/SRDZG/BT +battery/MS/BTR +batting/MS/BTN +battle/GMZRSDL/BTL +Battle/M/BTL +battledore/MS/BTLTR +battledress//BTLTRS +battlefield/SM/BTLFLT +battlefront/SM/BTLFRNT +battleground/SM/BTLKRNT +battlement/SMD/BTLMNT +battler/M/BTL +battleship/MS/BTLXP +batty/RT/BT +Batu/M/BT +batwings//BTWNS +bauble/SM/BBL +baud/M/BT +Baudelaire/M/BTLR +Baudoin/M/BTN +Baudouin/M/BTN +Bauer/M/B +Bauhaus/M/BHS +baulk/GSDM/BLK +Bausch/M/BSX +bauxite/SM/BKST +Bavaria/M/BFR +Bavarian/S/BFRN +bawd/SM/BT +bawdily//BTL +bawdiness/MS/BTNS +bawdy/PRST/BT +bawl/SGDR/BL +bawler/M/BL +Bax/M/BKS +Baxie/M/BKS +Baxter/M/BKST +Baxy/M/BKS +bay/GSMDY/B +Bay/MR/B +Bayamon//BYMN +Bayard/M/BYT +bayberry/MS/BBR +Bayda/M/BT +Bayer/M/BY +Bayes//BYS +Bayesian//BYXN +Baylor/M/BL +bayonet/SGMD/BYNT +Bayonne/M/BYN +bayou/MS/BY +Bayreuth/M/BR@ +bazaar/MS/BS +bazillion/S/BSLN +bazooka/MS/BSK +BB//B +BBB//B +BBC//BK +bbl//BL +BBQ//BK +BBS//BS +BC//BK +BCD//BKT +bdrm//BTRM +be/KS/B +Be/MH/B +Bea/M/B +Beach/M/BX +beach/MSDG/BX +beachcomber/SM/BXKMB +beachhead/SM/BXHT +beachwear/M/BXW +beacon/DMSG/BKN +bead/SJGMD/BT +beading/M/BTN +Beadle/M/BTL +beadle/SM/BTL +beadsman/M/BTSMN +beadworker//BTWK +beady/TR/BT +beagle/SDGM/BKL +beak/ZSDRM/BK +beaker/M/BK +Beale/M/BL +Bealle/M/BL +beam/MDRSGZ/BM +bean/DRMGZS/BN +Bean/M/BN +beanbag/SM/BNBK +beanie/SM/BN +beanpole/MS/BNPL +beanstalk/SM/BNSTLK +Bear/M/B +bear/ZBRSJG/B +bearable/U/BRBL +bearably/U/BRBL +beard/DSGM/BT +Beard/M/BT +bearded/P/BTT +beardless//BTLS +Beardmore/M/BTMR +Beardsley/M/BTSL +bearer/M/BR +bearing/M/BRN +bearish/PY/BRX +bearishness/SM/BRXNS +bearlike//BLK +Bearnaise/M/BNS +Bearnard/M/BNT +bearskin/MS/BSKN +Beasley/M/BSL +beast/SJMY/BST +beasties//BSTS +beastings/M/BSTNS +beastliness/MS/BSTLNS +beastly/PTR/BSTL +beat/NRGSBZJ/BT +beatable/U/BTBL +beatably/U/BTBL +beaten/U/BTN +beater/M/BT +beatific//BTFK +beatifically//BTFKL +beatification/M/BTFKXN +beatify/GNXDS/BTF +beating/M/BTN +beatitude/MS/BTTT +Beatlemania/M/BTLMN +Beatles/M/BTLS +beatnik/SM/BTNK +Beatrice/M/BTRS +Beatrisa/M/BTRS +Beatrix/M/BTRKS +Beatriz/M/BTRS +Beau/M/B +beau/MS/B +Beauchamps//BXMPS +Beaufort/M/BFT +Beaujolais/M/BKLS +Beaumarchais/M/BMXS +Beaumont/M/BMNT +Beauregard/M/BRKT +beaut/SM/BT +beauteous/YP/BTS +beauteousness/M/BTSNS +beautician/MS/BTXN +beautification/M/BTFKXN +beautifier/M/BTF +beautiful/PTYR/BTFL +beautifully/U/BTFL +beautifulness/M/BTFLNS +beautify/SRDNGXZ/BTF +beauty/SM/BT +Beauvoir/M/BF +beaux's//BKSS +beaver/DMSG/BF +Beaverton/M/BFTN +Bebe/M/BB +bebop/MS/BBP +becalm/GDS/BKLM +became//BKM +because//BKS +Becca/M/BK +Bechtel/M/BXTL +beck/GSDM/BK +Beck/RM/BK +Becka/M/BK +Becker/M/BK +Becket/M/BKT +Beckett/M/BKT +Becki/M/BK +Beckie/M/BK +beckon/SDG/BKN +Becky/M/BK +becloud/SGD/BKLT +become/GJS/BKM +becoming/UY/BKMN +Becquerel/M/BKRL +bed/MS/BT +bedaub/GDS/BTB +bedazzle/GLDS/BTSL +bedazzlement/SM/BTSLMNT +bedbug/SM/BTBK +bedchamber/M/BTXMB +bedclothes//BTKL@S +bedded//BTT +bedder/MS/BT +bedding/MS/BTN +Bede/M/BT +bedeck/DGS/BTK +bedevil/DGLS/BTFL +bedevilment/SM/BTFLMNT +bedfast//BTFST +bedfellow/MS/BTFL +Bedford/M/BTFT +bedim/S/BTM +bedimmed//BTMT +bedimming//BTMN +bedizen/DGS/BTSN +bedlam/MS/BTLM +bedlinen//BTLNN +bedmaker/SM/BTMK +bedmate/MS/BTMT +Bedouin/SM/BTN +bedpan/SM/BTPN +bedpost/SM/BTPST +bedraggle/GSD/BTRKL +bedridden//BTRTN +bedrock/SM/BTRK +bedroll/SM/BTRL +bedroom/DMS/BTRM +bedsheets//BTXTS +bedside/MS/BTST +bedsit//BTST +bedsitter/M/BTST +bedsore/MS/BTSR +bedspread/SM/BTSPRT +bedspring/SM/BTSPRN +bedstead/SM/BTSTT +bedstraw/M/BTSTR +bedtime/SM/BTTM +Bee/M/B +bee/MZGJRS/B +Beebe/M/BB +beebread/MS/BBRT +beech/MRSN/BX +Beecher/M/BX +beechnut/MS/BXNT +beechwood//BXWT +beef/GZSDRM/BF +beefburger/SM/BFBK +beefcake/MS/BFKK +beefiness/MS/BFNS +beefsteak/MS/BFSTK +beefy/TRP/BF +beehive/MS/BHF +beekeeper/MS/BKP +beekeeping/SM/BKPN +beeline/MGSD/BLN +Beelzebub/M/BLSBB +been/S/BN +beep/GZSMDR/BP +beeper/M/BP +beer/M/B +Beerbohm/M/BBM +beermat/S/BMT +beery/TR/BR +beeswax/DSMG/BSWKS +beet/SM/BT +Beethoven/M/B@FN +beetle/GMRSD/BTL +Beeton/M/BTN +beetroot/M/BTRT +beeves/M/BFS +befall/SGN/BFL +befell//BFL +befit/SM/BFT +befitted//BFTT +befitting/Y/BFTN +befog/S/BFK +befogged//BFKT +befogging//BFKN +before//BFR +beforehand//BFRHNT +befoul/GSD/BFL +befriend/DGS/BFRNT +befuddle/GLDS/BFTL +befuddlement/SM/BFTLMNT +beg/S/BK +began//BKN +beget/S/BKT +begetting//BKTN +beggar/DYMSG/BK +beggarliness/M/BKLNS +beggarly/P/BKL +beggary/MS/BKR +begged//BKT +begging//BKN +Begin/M/BKN +begin/S/BKN +beginner/MS/BKN +beginning/MS/BKNN +begone/S/BKN +begonia/SM/BKN +begot//BKT +begotten//BKTN +begrime/SDG/BKRM +begrudge/GDRS/BKRK +begrudging/Y/BKRKNK +beguile/RSDLZG/BKL +beguilement/SM/BKLMNT +beguiler/M/BKL +beguiling/Y/BKLN +beguine/SM/BKN +begum/MS/BKM +begun//BKN +behalf/M/BHLF +behalves//BHLFS +Behan/M/BHN +behave/GRSD/BHF +behavior/SMD/BHF +behavioral/Y/BHFRL +behaviorism/MS/BHFRSM +behaviorist/S/BHFRST +behavioristic/S/BHFRSTK +behead/GSD/BHT +beheld//BHLT +behemoth/M/BHM@ +behemoths//BHM@S +behest/SM/BHST +behind/S/BHNT +behindhand//BHNTHNT +behold/ZGRNS/BHLT +beholder/M/BHLT +behoofs//BHFS +behoove/SDJMG/BHF +behooving/YM/BHFN +Behring/M/BRN +Beiderbecke/M/BTBK +beige/MS/BK +Beijing//BKN +Beilul/M/BLL +being/M/BN +Beirut/M/BRT +Beitris/M/BTRS +bejewel/SDG/BKWL +Bekesy/M/BKS +Bekki/M/BK +Bel/M/BL +Bela/M/BL +belabor/MDSG/BLB +Belarus//BLRS +belate/D/BLT +belated/PY/BLTT +belatedness/M/BLTTNS +Belau/M/BL +belay/GSD/BL +belch/GSD/BLX +beleaguer/GDS/BLK +Belem/M/BLM +Belfast/M/BLFST +belfry/SM/BLFR +Belg/M/BLK +Belgian/MS/BLKN +Belgium/M/BLKM +Belgrade/M/BLKRT +Belia/M/BL +Belicia/M/BLX +belie//BL +belief/ESUM/BLF +belier/M/BL +believability/U/BLFBLT +believability's//BLFBLTS +believable/U/BLFBL +believably/U/BLFBL +believe/EZGDRS/BLF +believed/U/BLFT +believer/MUSE/BLF +believing/U/BLFN +Belinda/M/BLNT +Belita/M/BLT +belittle/RSDGL/BLTL +belittlement/MS/BLTLMNT +belittler/M/BLTL +Belize/M/BLS +bell/GSMD/BL +Bell/M/BL +Bella/M/BL +belladonna/MS/BLTN +Bellamy/M/BLM +Bellanca/M/BLNK +Bellatrix/M/BLTRKS +bellboy/MS/BLB +Belle/M/BL +belle/MS/BL +belled/A/BLT +belletrist/SM/BLTRST +belletristic//BLTRSTK +Belleville/M/BLFL +bellflower/M/BLFLW +bellhop/MS/BLHP +bellicose/YP/BLKS +bellicoseness/M/BLKSNS +bellicosity/MS/BLKST +belligerence/SM/BLKRNS +belligerency/MS/BLKRNS +belligerent/SMY/BLKRNT +Bellina/M/BLN +belling/A/BLN +Bellini/M/BLN +bellman/M/BLMN +bellmen//BLMN +Bellovin/M/BLFN +bellow/DGS/BL +Bellow/M/BL +bellows/M/BLS +bells/A/BLS +bellwether/MS/BLW@ +Bellwood/M/BLWT +belly/SDGM/BL +bellyache/SRDGM/BLYX +bellyacher/M/BLYX +bellybutton/MS/BLBTN +bellyful/MS/BLFL +bellyfull//BLFL +Belmont/M/BLMNT +Belmopan/M/BLMPN +Beloit/M/BLT +belong/DGJS/BLNK +belonging/MP/BLNKN +Belorussian/S/BLRXN +Belorussia's//BLRXS +belove/D/BLF +beloved/S/BLFT +below/S/BL +Belshazzar/M/BLXS +belt/GSMD/BLT +belted/U/BLTT +belting/M/BLTN +Belton/M/BLTN +Beltran/M/BLTRN +Beltsville/M/BLTSFL +beltway/SM/BLTW +beluga/SM/BLK +Belushi/M/BLX +Belva/M/BLF +belvedere/M/BLFTR +Belvia/M/BLF +bely/DSRG/BL +beman//BMN +bemire/SDG/BMR +bemoan/GDS/BMN +bemuse/GSDL/BMS +bemused/Y/BMST +bemusement/SM/BMSMNT +Ben/M/BN +Benacerraf/M/BNSRF +Benares's//BNRSS +bench/MRSDG/BNX +bencher/M/BNX +benchmark/GDMS/BNXMK +bend/BUSG/BNT +bended//BNTT +Bender/M/BNT +bender/MS/BNT +Bendick/M/BNTK +Bendicty/M/BNTKT +Bendite/M/BNTT +Bendix/M/BNTKS +beneath//BN@ +Benedetta/M/BNTT +Benedetto/M/BNTT +Benedick/M/BNTK +Benedict/M/BNTKT +Benedicta/M/BNTKT +Benedictine/MS/BNTKTN +benediction/MS/BNTKXN +Benedicto/M/BNTKT +benedictory//BNTKTR +Benedikt/M/BNTKT +Benedikta/M/BNTKT +benefaction/MS/BNFKXN +benefactor/MS/BNFKT +benefactress/S/BNFKTRS +benefice/MGSD/BNFS +beneficence/SM/BNFSNS +beneficent/Y/BNFSNT +beneficial/PY/BNFXL +beneficialness/M/BNFXLNS +beneficiary/MS/BNFXR +benefit/SRDMZG/BNFT +benefiter/M/BNFT +Benelux/M/BNLKS +Benet/M/BNT +Benetta/M/BNT +Benetton/M/BNTN +benevolence/SM/BNFLNS +benevolent/YP/BNFLNT +benevolentness/M/BNFLNTNS +Bengal/SM/BNKL +Bengali/M/BNKL +Benghazi/M/BNKS +Bengt/M/BNKT +Beniamino/M/BNMN +benighted/YP/BNTT +benightedness/M/BNTTNS +benign/Y/BNN +benignant//BNKNNT +benignity/MS/BNKNT +Benin/M/BNN +Beninese//BNNS +Benita/M/BNT +Benito/M/BNT +Benjamen/M/BNKMN +Benjamin/M/BNKMN +Benji/M/BNK +Benjie/M/BNK +Benjy/M/BNK +Benn/M/BN +Bennett/M/BNT +Benni/M/BN +Bennie/M/BN +Bennington/M/BNNTN +Benny/M/BN +Benoit/M/BNT +Benoite/M/BNT +Benson/M/BNSN +Bent/M/BNT +bent/U/BNT +Bentham/M/BN@M +Bentlee/M/BNTL +Bentley/MS/BNTL +Benton/M/BNTN +bents//BNTS +bentwood/SM/BNTWT +benumb/SGD/BNM +Benyamin/M/BNYMN +Benz/M/BNS +Benzedrine/M/BNSTRN +benzene/MS/BNSN +benzine/SM/BNSN +Beograd's//BKRTS +Beowulf/M/BWLF +bequeath/GSD/BK@ +bequeaths//BK@S +bequest/MS/BKST +Ber/MG/B +berate/GSD/BRT +Berber/MS/BB +bereave/GLSD/BRF +bereavement/MS/BRFMNT +bereft//BRFT +Berenice/M/BRNS +Beret/M/BRT +beret/SM/BRT +Berg/NRM/BK +berg/NRSM/BK +Bergen/M/BKN +Berger/M/BK +Bergerac/M/BKRK +Berget/M/BKT +Berglund/M/BKLNT +Bergman/M/BKMN +Bergson/M/BKSN +Bergsten/M/BKSTN +Bergstrom/M/BKSTRM +beribbon/D/BRBN +beriberi/SM/BRBR +Bering/RM/BRN +Beringer/M/BRN +Berk/YM/BK +Berke/M/BK +Berkeley/M/BKL +berkelium/SM/BKLM +Berkie/M/BK +Berkley/M/BKL +Berkly/M/BKL +Berkowitz/M/BKWTS +Berkshire/SM/BKXR +Berky/M/BK +Berle/M/BL +Berlin/SZRM/BLN +Berliner/M/BLN +Berlioz/M/BLS +Berlitz/M/BLTS +berm/SM/BM +Berman/M/BMN +Bermuda/MS/BMT +Bermudan/S/BMTN +Bermudian/S/BMTN +Bern/M/BN +Berna/M/BN +Bernadene/M/BNTN +Bernadette/M/BNTT +Bernadina/M/BNTN +Bernadine/M/BNTN +Bernard/M/BNT +Bernardina/M/BNTN +Bernardine/M/BNTN +Bernardino/M/BNTN +Bernardo/M/BNT +Bernarr/M/BNR +Bernays/M/BNS +Bernbach/M/BNBX +Bernelle/M/BNL +Berne's//BNS +Bernese//BNS +Bernete/M/BNT +Bernetta/M/BNT +Bernette/M/BNT +Bernhard/M/BNHT +Bernhardt/M/BNHTT +Berni/M/BN +Bernice/M/BNS +Bernie/M/BN +Berniece/M/BNS +Bernini/M/BNN +Bernita/M/BNT +Bernoulli/M/BNL +Bernstein/M/BNSTN +Berny/M/BN +Berra/M/BR +Berri/M/BR +Berrie/M/BR +Berry/M/BR +berry/SDMG/BR +berrylike//BRLK +berserk/SR/BSK +berserker/M/BSK +Bert/M/BT +Berta/M/BT +Berte/M/BT +berth/MDGJ/B@ +Bertha/M/B@ +Berthe/M/B@ +berths//B@S +Berti/M/BT +Bertie/M/BT +Bertillon/M/BTLN +Bertina/M/BTN +Bertine/M/BTN +Berton/M/BTN +Bertram/M/BTRM +Bertrand/M/BTRNT +Bertrando/M/BTRNT +Berty/M/BT +Beryl/M/BRL +beryl/SM/BRL +Beryle/M/BRL +beryllium/MS/BRLM +Berzelius/M/BSLS +bes//BS +beseech/RSJZG/BSX +beseecher/M/BSX +beseeching/Y/BSXN +beseem/GDS/BSM +beset/S/BST +besetting//BSTN +beside/S/BST +besiege/SRDZG/BSK +besieger/M/BSK +besmear/GSD/BSM +besmirch/GSD/BSMX +besom/GMDS/BSM +besot/S/BST +besotted//BSTT +besotting//BSTN +besought//BST +bespangle/GSD/BSPNKL +bespatter/SGD/BSPT +bespeak/SG/BSPK +bespectacled//BSPKTKLT +bespoke//BSPK +bespoken//BSPKN +Bess//BS +Bessel/M/BSL +Bessemer/M/BSM +Bessie/M/BS +Bessy/M/BS +best/DRSG/BST +Best/M/BST +bestial/Y/BSXL +bestiality/MS/BSXLT +bestiary/MS/BSXR +bestir/S/BST +bestirred//BSTRT +bestirring//BSTRN +bestow/SGD/BST +bestowal/SM/BSTWL +bestrew/DGS/BSTR +bestrewn//BSTRN +bestridden//BSTRTN +bestride/SG/BSTRT +bestrode//BSTRT +bestseller/MS/BSTSL +bestselling//BSTSLN +bestubble/D/BSTBL +bet/MS/BT +beta/SM/BT +betake/SG/BTK +betaken//BTKN +betatron/M/BTTRN +betcha//BX +betel/MS/BTL +Betelgeuse/M/BTLKS +beth/M/B@ +Beth/M/B@ +Bethanne/M/B@N +Bethany/M/B@N +Bethe/M/B@ +bethel/M/B@L +Bethena/M/B@N +Bethesda/M/B@ST +Bethina/M/B@N +bethink/GS/B@NK +Bethlehem/M/B@LHM +bethought//B@T +Bethune//B@N +betide/GSD/BTT +betimes//BTMS +betoken/GSD/BTKN +betook//BTK +betray/SRDZG/BTR +betrayal/SM/BTRYL +betrayer/M/BTRY +betroth/GD/BTR@ +betrothal/SM/BTR@L +betrothed/U/BTR@T +betroths//BTR@S +Betsey/M/BTS +Betsy/M/BTS +Betta/M/BT +Bette/M/BT +Betteann/M/BTN +Betteanne/M/BTN +better/SDLG/BT +betterment/MS/BTMNT +Betti/M/BT +Bettie/M/BT +Bettina/M/BTN +Bettine/M/BTN +betting//BTN +bettor/SM/BT +Betty/SM/BT +Bettye/M/BTY +between/SP/BTWN +betweenness/M/BTWNS +betwixt//BTWKST +Beulah/M/BL +Bevan/M/BFN +bevel/SJGMRD/BFL +beverage/MS/BFRK +Beverie/M/BFR +Beverlee/M/BFL +Beverley/M/BFL +Beverlie/M/BFL +Beverly/M/BFL +Bevin/M/BFN +Bevon/M/BFN +Bev's//BFS +Bevvy/M/BFF +bevy/SM/BF +bewail/GDS/BWL +beware/GSD/BWR +bewhisker/D/BHSK +bewigged//BWKT +bewilder/LDSG/BWLT +bewildered/PY/BWLTRT +bewildering/Y/BWLTRN +bewilderment/SM/BWLTMNT +bewitch/LGDS/BWX +bewitching/Y/BWXN +bewitchment/SM/BWXMNT +bey/MS/B +beyond/S/BYNT +bezel/MS/BSL +bf//BF +Bhopal/M/BHPL +Bhutan/M/BHTN +Bhutanese//BHTNS +Bhutto/M/BHT +bi/M/B +Bi/M/B +Bialystok/M/BLSTK +Bianca/M/BNK +Bianco/M/BNK +Bianka/M/BNK +biannual/Y/BNL +bias/DSMPG/BS +biased/U/BST +biathlon/MS/B@LN +biaxial/Y/BKSL +Bib/M/BB +bib/MS/BB +bibbed//BBT +Bibbie/M/BB +bibbing//BBN +Bibby/M/BB +Bibbye/M/BBY +Bibi/M/BB +bible/MS/BBL +Bible/MS/BBL +biblical/Y/BBLKL +biblicists//BBLSSTS +bibliographer/MS/BBLKRF +bibliographic/S/BBLKRFK +bibliographical/Y/BBLKRFKL +bibliography/MS/BBLKRF +bibliophile/MS/BBLFL +bibulous//BBLS +bicameral//BKMRL +bicameralism/MS/BKMRLSM +bicarb/MS/BKB +bicarbonate/MS/BKBNT +bicentenary/S/BSNTNR +bicentennial/S/BSNTNL +bicep/S/BSP +biceps/M/BSPS +bichromate/DM/BXRMT +bicker/SRDZG/BK +bickerer/M/BKR +bickering/M/BKRN +biconcave//BKNKF +biconnected//BKNKTT +biconvex//BKNFKS +bicuspid/S/BKSPT +bicycle/RSDMZG/BSKL +bicycler/M/BSKL +bicyclist/SM/BSKLST +bid/GMRS/BT +biddable//BTBL +bidden/U/BTN +bidder/MS/BT +Biddie/M/BT +bidding/MS/BTN +Biddle/M/BTL +Biddy/M/BT +biddy/SM/BT +bide/S/BT +bider/M/BT +bidet/SM/BTT +Bidget/M/BKT +bidiagonal//BTKNL +bidirectional/Y/BTRKXNL +bids/A/BTS +biennial/SY/BNL +biennium/SM/BNM +Bienville/M/BNFL +bier/M/B +Bierce/M/BS +bifocal/S/BFKL +bifurcate/SDXGNY/BFKT +bifurcation/M/BFKXN +big/PYS/BK +bigamist/SM/BKMST +bigamous//BKMS +bigamy/SM/BKM +Bigelow/M/BKL +Bigfoot//BKFT +bigged//BKT +bigger//BK +biggest//BKST +biggie/SM/BK +bigging//BKN +biggish//BKX +bighead/MS/BKT +bighearted/P/BKTT +bigheartedness/S/BKTTNS +bighorn/MS/BKN +bight/SMDG/BT +bigmouth/M/BKM@ +bigmouths//BKM@S +bigness/SM/BKNS +bigot/MDSG/BKT +bigoted/Y/BKTT +bigotry/MS/BKTR +bigwig/MS/BKWK +biharmonic//BHMNK +bijection/MS/BKKXN +bijective/Y/BKKTF +bijou/M/BK +bijoux//BKKS +bike/MZGDRS/BK +biker/M/BK +bikini/SMD/BKN +Biko/M/BK +Bil/MY/BL +bilabial/S/BLBL +bilateral/PY/BLTRL +bilateralness/M/BLTRLNS +bilayer/S/BLY +Bilbao/M/BLB +bilberry/MS/BLBR +Bilbo/M/BLB +bile/SM/BL +bilge/GMDS/BLK +Bili/M/BL +biliary//BLR +bilinear//BLN +bilingual/SY/BLNL +bilingualism/SM/BLNLSM +bilious/P/BLS +biliousness/SM/BLSNS +bilk/GZSDR/BLK +bilker/M/BLK +bill/JGZSBMDR/BL +Bill/JM/BL +billboard/MDGS/BLBT +biller/M/BL +billet/MDGS/BLT +billfold/MS/BLFLT +Billi/M/BL +billiard/SM/BLT +Billie/M/BL +billing/M/BLN +Billings/M/BLNS +billingsgate/SM/BLNSKT +billion/SHM/BLN +billionaire/MS/BLNR +billionths//BLN@S +billow/DMGS/BL +billowy/RT/BL +billposters//BLPSTS +Billy/M/BL +billy/SM/BL +Billye/M/BLY +bimbo/MS/BMB +bimetallic/S/BMTLK +bimetallism/MS/BMTLSM +Bimini/M/BMN +bimodal//BMTL +bimolecular/Y/BMLKL +bimonthly/S/BMN@L +bin/SM/BN +binary/S/BNR +binaural/Y/BNRL +bind/JDRGZS/BNT +binder/M/BNT +bindery/MS/BNTR +binding/MPY/BNTN +bindingness/M/BNTNNS +bindle/M/BNTL +binds/AU/BNTS +bindweed/MS/BNTWT +bing/GNDM/BN +Bing/M/BN +binge/MS/BN +Bingham/M/BNHM +Binghamton/M/BNHMTN +bingo/MS/BN +Bini/M/BN +Bink/M/BNK +Binky/M/BNK +binnacle/MS/BNKL +binned//BNT +Binni/M/BN +Binnie/M/BN +binning//BNN +Binny/M/BN +binocular/SY/BNKL +binodal//BNTL +binomial/SYM/BNML +binuclear//BNKL +biochemical/SY/BXMKL +biochemist/MS/BXMST +biochemistry/MS/BXMSTR +biodegradability/S/BTKRTBLT +biodegradable//BTKRTBL +biodiversity/S/BTFST +bioengineering/M/BNKNRN +bioethics//B@KS +biofeedback/SM/BFTBK +biog/S/BK +biograph/RZ/BKRF +biographer/M/BKRF +biographic//BKRFK +biographical/Y/BKRFKL +biography/MS/BKRF +Bioko/M/BK +biol//BL +biologic/S/BLKK +biological/SY/BLKKL +biologist/SM/BLKST +biology/MS/BLK +biomass/SM/BMS +biomedical//BMTKL +biomedicine/M/BMTSN +biometric/S/BMTRK +biometrics/M/BMTRKS +biometry/M/BMTR +biomolecule/S/BMLKL +biomorph//BMF +bionic/S/BNK +bionically//BNKL +bionics/M/BNKS +biophysic/S/BFSK +biophysical/Y/BFSKL +biophysicist/SM/BFSSST +biophysics/M/BFSKS +biopic/S/BPK +biopsy/SDGM/BPS +biorhythm/S/BH@M +BIOS//BS +bioscience/S/BSNS +biosphere/MS/BSFR +biostatistic/S/BSTTSTK +biosynthesized//BSN@SST +biotechnological//BTXNLKKL +biotechnologist//BTXNLKST +biotechnology/SM/BTXNLK +biotic//BTK +biotin/SM/BTN +bipartisan//BPTSN +bipartisanship/MS/BPTSNXP +bipartite/YN/BPTT +bipartition/M/BPTXN +biped/MS/BPT +bipedal//BPTL +biplane/MS/BPLN +bipolar//BPL +bipolarity/MS/BPLRT +biracial//BRXL +Birch/M/BX +birch/MRSDNG/BX +Bird/M/BT +bird/SMDRGZ/BT +birdbath/M/BTB@ +birdbaths//BTB@S +birdbrain/SDM/BTBRN +birdcage/SM/BTKK +birder/M/BT +birdhouse/MS/BTHS +Birdie/M/BT +birdie/MSD/BT +birdieing//BTN +birdlike//BTLK +birdlime/MGDS/BTLM +birdseed/MS/BTST +Birdseye/M/BTSY +birdsong//BTSNK +birdtables//BTTBLS +birdwatch/GZR/BTWX +birefringence/M/BRFRNNS +birefringent//BRFRNNT +biretta/SM/BRT +Birgit/M/BKT +Birgitta/M/BKT +Birk/M/BK +Birkenstock/M/BKNSTK +Birmingham/M/BMNHM +Biro/M/BR +Biron/M/BRN +birth/MDG/B@ +birthday/SM/B@T +birthmark/MS/B@MK +birthplace/SM/B@PLS +birthrate/MS/B@RT +birthright/MS/B@RT +births/A/B@S +birth's/A/B@S +birthstone/SM/B@STN +bis//BS +Biscay/M/BSK +Biscayne/M/BSKN +biscuit/MS/BSKT +bisect/DSG/BSKT +bisection/MS/BSKXN +bisector/MS/BSKT +biserial//BSRL +bisexual/YMS/BSKSL +bisexuality/MS/BSKSLT +Bishkek//BXKK +bishop/DGSM/BXP +Bishop/M/BXP +bishopric/SM/BXPRK +Bismarck/M/BSMK +Bismark/M/BSMK +bismuth/M/BSM@ +bismuths//BSM@S +bison/M/BSN +bisque/SM/BSK +Bissau/M/BS +bistable//BSTBL +bistate//BSTT +bistro/SM/BSTR +bisyllabic//BSLBK +bit/MRJSZG/BT +bitblt/S/BTBLT +bitch/MSDG/BX +bitchily//BXL +bitchiness/MS/BXNS +bitchy/PTR/BX +bite/S/BT +biter/M/BT +biting/Y/BTN +bitmap/SM/BTMP +BITNET/M/BTNT +bits/C/BTS +bit's/C/BTS +bitser/M/BTS +bitted//BTT +bitten//BTN +bitter/PSRDYTG/BT +bittern/SM/BTN +bitterness/SM/BTNS +bitternut/M/BTNT +bitterroot/M/BTRT +bittersweet/YMSP/BTSWT +bitting//BTN +bitty/PRT/BT +bitumen/MS/BTMN +bituminous//BTMNS +bitwise//BTWS +bivalent/S/BFLNT +bivalve/MSD/BFLF +bivariate//BFRT +bivouac/MS/BFK +bivouacked//BFKT +bivouacking//BFKN +biweekly/S/BWKL +biyearly//BYL +biz/M/BS +bizarre/YSP/BSR +bizarreness/M/BSRNS +Bizet/M/BST +bizzes//BSS +Bjorn/M/BKN +bk//BK +Bk/M/BK +bl/D/BL +blab/S/BLB +blabbed//BLBT +blabber/GMDS/BLB +blabbermouth/M/BLBM@ +blabbermouths//BLBM@S +blabbing//BLBN +black/SJTXPYRDNG/BLK +blackamoor/SM/BLKM +blackball/SDMG/BLKBL +blackberry/GMS/BLKBR +blackbird/SGDRM/BLKBT +blackbirder/M/BLKBT +blackboard/SM/BLKBT +blackbody/S/BLKBT +Blackburn/M/BLKBN +blackcurrant/M/BLKKRNT +blacken/GDR/BLKN +blackener/M/BLKN +Blackfeet//BLKFT +Blackfoot/M/BLKFT +blackguard/MDSG/BLKKT +blackhead/SM/BLKHT +blacking/M/BLKN +blackish//BLKX +blackjack/SGMD/BLKKK +blackleg/M/BLKLK +blacklist/DRMSG/BLKLST +blackmail/DRMGZS/BLKML +blackmailer/M/BLKML +Blackman/M/BLKMN +Blackmer/M/BLKM +blackness/MS/BLKNS +blackout/SM/BLKT +Blackpool/M/BLKPL +Black's//BLKS +blacksmith/MG/BLKSM@ +blacksmiths//BLKSM@S +blacksnake/MS/BLKSNK +blackspot//BLKSPT +Blackstone/M/BLKSTN +blackthorn/MS/BLK@N +blacktop/MS/BLKTP +blacktopped//BLKTPT +blacktopping//BLKTPN +Blackwell/MS/BLKWL +bladder/MS/BLT +bladdernut/M/BLTNT +bladderwort/M/BLTWT +blade/DSGM/BLT +blah/MDG/BL +blahs//BLS +Blaine/M/BLN +Blair/M/BL +Blaire/M/BLR +Blake/M/BLK +Blakelee/M/BLKL +Blakeley/M/BLKL +Blakey/M/BLK +blame/DSRBGMZ/BLM +blameless/YP/BLMLS +blamelessness/SM/BLMLSNS +blamer/M/BLM +blameworthiness/SM/BLMW@NS +blameworthy/P/BLMW@ +blanc/M/BLNK +Blanca/M/BLNK +blanch/DRSG/BLNX +Blanch/M/BLNX +Blancha/M/BLNX +Blanchard/M/BLNXT +Blanche/M/BLNX +blancher/M/BLNX +blancmange/SM/BLNKMNK +bland/PYRT/BLNT +blandish/SDGL/BLNTX +blandishment/MS/BLNTXMNT +blandness/MS/BLNTNS +Blane/M/BLN +blank/SPGTYRD/BLNK +Blankenship/M/BLNKNXP +blanket/SDRMZG/BLNKT +blanketing/M/BLNKTN +blankness/MS/BLNKNS +Blanton/M/BLNTN +Blantyre/M/BLNTR +blare/DSG/BLR +blarney/DMGS/BLN +blasé//BLS +blaspheme/RSDZG/BLSFM +blasphemer/M/BLSFM +blasphemous/PY/BLSFMS +blasphemousness/M/BLSFMSNS +blasphemy/SM/BLSFM +blast/SMRDGZ/BLST +blaster/M/BLST +blasting/M/BLSTN +blastoff/SM/BLSTF +blatancy/SM/BLTNS +blatant/YP/BLTNT +blather/DRGS/BL@ +blatting//BLTN +Blatz/M/BLTS +Blavatsky/M/BLFTSK +Blayne/M/BLN +blaze/DSRGMZ/BLS +blazer/M/BLS +blazing/Y/BLSN +blazon/SGDR/BLSN +blazoner/M/BLSN +bldg//BLTK +bleach/DRSZG/BLX +bleached/U/BLXT +bleacher/M/BLX +bleak/TPYRS/BLK +bleakness/MS/BLKNS +blear/GDS/BL +blearily//BLRL +bleariness/SM/BLRNS +bleary/PRT/BLR +bleat/RDGS/BLT +bleater/M/BLT +bleed/ZRJSG/BLT +bleeder/M/BLT +Bleeker/M/BLK +bleep/GMRDZS/BLP +blemish/DSMG/BLMX +blemished/U/BLMXT +blench/DSG/BLNX +blend/GZRDS/BLNT +blender/M/BLNT +Blenheim/M/BLNHM +bless/JGSD/BLS +blessed/PRYT/BLST +blessedness/MS/BLSTNS +blessing/M/BLSN +Blevins/M/BLFNS +blew//BL +Bligh/M/BL +blight/GSMDR/BLT +blighter/M/BLT +blimey/S/BLM +blimp/MS/BLMP +blind/JGTZPYRDS/BLNT +blinded/U/BLNTT +blinder/M/BLNT +blindfold/SDG/BLNTFLT +blinding/MY/BLNTN +blindness/MS/BLNTNS +blindside/SDG/BLNTST +blink/RDGSZ/BLNK +blinker/MDG/BLNK +blinking/U/BLNKN +blinks/M/BLNKS +Blinni/M/BLN +Blinnie/M/BLN +Blinny/M/BLN +blintz/SM/BLNTS +blintze/M/BLNTS +blip/MS/BLP +blipped//BLPT +blipping//BLPN +Bliss/M/BLS +bliss/SDMG/BLS +Blisse/M/BLS +blissful/PY/BLSFL +blissfulness/MS/BLSFLNS +blister/SMDG/BLST +blistering/Y/BLSTRN +blistery//BLSTR +Blithe/M/BL@ +blithe/TYPR/BL@ +blitheness/SM/BL@NS +blither/G/BL@ +blithesome//BL@SM +blitz/GSDM/BLTS +blitzkrieg/SM/BLTSKRK +blizzard/MS/BLST +bloat/SRDGZ/BLT +bloater/M/BLT +blob/MS/BLB +blobbed//BLBT +blobbing//BLBN +bloc/MS/BLK +Bloch/M/BLX +block/USDG/BLK +blockade/ZMGRSD/BLKT +blockader/M/BLKT +blockage/MS/BLKK +blockbuster/SM/BLKBST +blockbusting/MS/BLKBSTN +blocker/MS/BLK +blockhead/MS/BLKHT +blockhouse/SM/BLKHS +block's//BLKS +blocky/R/BLK +Bloemfontein/M/BLMFNTN +bloke/SM/BLK +Blomberg/M/BLMBK +Blomquist/M/BLMKST +blond/SPMRT/BLNT +Blondell/M/BLNTL +Blondelle/M/BLNTL +blonde's//BLNTS +Blondie/M/BLNT +blondish//BLNTX +blondness/MS/BLNTNS +Blondy/M/BLNT +blood/SMDG/BLT +bloodbath//BLTB@ +bloodbaths//BLTB@S +bloodcurdling//BLTKTLN +bloodhound/SM/BLTHNT +bloodied/U/BLTT +bloodiness/MS/BLTNS +bloodless/PY/BLTLS +bloodlessness/SM/BLTLSNS +bloodletting/MS/BLTLTN +bloodline/SM/BLTLN +bloodmobile/MS/BLTMBL +bloodroot/M/BLTRT +bloodshed/SM/BLTXT +bloodshot//BLTXT +bloodsport/S/BLTSPT +bloodstain/MDS/BLTSTN +bloodstock/SM/BLTSTK +bloodstone/M/BLTSTN +bloodstream/SM/BLTSTRM +bloodsucker/SM/BLTSK +bloodsucking/S/BLTSKN +bloodthirstily//BLT@STL +bloodthirstiness/MS/BLT@STNS +bloodthirsty/RTP/BLT@ST +bloodworm/M/BLTWM +bloody/TPGDRS/BLT +bloodymindedness//BLTMNTTNS +Bloom/MR/BLM +bloom/SMRDGZ/BLM +bloomer/M/BLM +Bloomer/M/BLM +Bloomfield/M/BLMFLT +Bloomington/M/BLMNTN +bloop/GSZRD/BLP +blooper/M/BLP +blossom/DMGS/BLSM +blossomy//BLSM +blot/MS/BLT +blotch/GMDS/BLX +blotchy/RT/BLX +blotted//BLTT +blotter/MS/BLT +blotting//BLTN +blotto//BLT +blouse/GMSD/BLS +blow/GZRS/BL +blower/M/BLW +blowfish/M/BLFX +blowfly/MS/BLFL +blowgun/SM/BLKN +blowing/M/BLWN +blown/U/BLN +blowout/MS/BLWT +blowpipe/SM/BLPP +blowtorch/SM/BLTX +blowup/MS/BLWP +blowy/RST/BL +blowzy/RT/BLS +BLT//BLT +blubber/GSDR/BLB +blubbery//BLBR +Blucher/M/BLX +bludgeon/GSMD/BLKN +blue/JMYTGDRSP/BL +blueback//BLBK +Bluebeard/M/BLBT +bluebell/MS/BLBL +blueberry/SM/BLBR +bluebill/M/BLBL +bluebird/MS/BLBT +bluebonnet/SM/BLBNT +bluebook/M/BLBK +bluebottle/MS/BLBTL +bluebush//BLBX +bluefish/SM/BLFX +bluegill/SM/BLKL +bluegrass/MS/BLKRS +blueing's//BLNS +blueish//BLX +bluejacket/MS/BLKKT +bluejeans//BLKNS +blueness/MS/BLNS +bluenose/MS/BLNS +bluepoint/SM/BLPNT +blueprint/GDMS/BLPRNT +bluer/M/BL +bluest/M/BLST +bluestocking/SM/BLSTKN +bluesy/TR/BLS +bluet/MS/BLT +bluff/SPGTZYRD/BLF +bluffer/M/BLF +bluffness/MS/BLFNS +bluing/M/BLN +bluish/P/BLX +bluishness/M/BLXNS +Blum/M/BLM +Blumenthal/M/BLMN@L +blunder/GSMDRJZ/BLNT +blunderbuss/MS/BLNTBS +blunderer/M/BLNTR +blundering/Y/BLNTRN +blunt/PSGTYRD/BLNT +bluntness/MS/BLNTNS +blur/MS/BL +blurb/GSDM/BLB +blurred/Y/BLRT +blurriness/S/BLRNS +blurring/Y/BLRN +blurry/RPT/BLR +blurt/GSRD/BLT +blush/RSDGZ/BLX +blusher/M/BLX +blushing/UY/BLXN +bluster/SDRZG/BLST +blusterer/M/BLSTR +blustering/Y/BLSTRN +blusterous//BLSTRS +blustery//BLSTR +blvd//BLFT +Blvd//BLFT +Blythe/M/BL@ +BM//BM +BMW/M/BM +BO//B +Bo/MRZ/B +boa/SM/B +boar/MS/B +board/IS/BT +boarded//BTT +boarder/SM/BT +boardgames//BTKMS +boarding/SM/BTN +boardinghouse/SM/BTNHS +boardroom/MS/BTRM +board's//BTS +boardwalk/SM/BTWLK +boast/SJRDGZ/BST +boaster/M/BST +boastful/YP/BSTFL +boastfulness/MS/BSTFLNS +boat/MDRGZJS/BT +boatclubs//BTKLBS +boater/M/BT +boathouse/SM/B@S +boating/M/BTN +boatload/SM/BTLT +boatman/M/BTMN +boatmen//BTMN +boatswain/SM/BTSWN +boatyard/SM/BTYT +Bob/M/BB +bob/SM/BB +Bobbe/M/BB +bobbed//BBT +Bobbee/M/BB +Bobbette/M/BBT +Bobbi/M/BB +Bobbie/M/BB +bobbin/MS/BBN +bobbing/M/BBN +Bobbitt/M/BBT +bobble/SDGM/BBL +Bobbsey/M/BBS +Bobby/M/BB +bobby/SM/BB +Bobbye/M/BBY +bobbysoxer's//BBSKSS +bobcat/MS/BBKT +Bobette/M/BBT +Bobina/M/BBN +Bobine/M/BBN +Bobinette/M/BBNT +bobolink/SM/BBLNK +Bobrow/M/BBR +bobs/M/BBS +bobsled/MS/BBSLT +bobsledded//BBSLTT +bobsledder/MS/BBSLT +bobsledding/M/BBSLTN +bobsleigh/M/BBSL +bobsleighs//BBSLS +bobtail/SGDM/BBTL +bobwhite/SM/BBHT +Boca/M/BK +Boccaccio/M/BKS +boccie/SM/BS +bock/GDS/BK +bockwurst//BKWST +bod/SGMD/BT +bode/S/BT +bodega/MS/BTK +Bodenheim/M/BTNHM +Bodhidharma/M/BTHTHM +bodhisattva//BTHSTF +Bodhisattva/M/BTHSTF +bodice/SM/BTS +bodied/M/BTT +bodiless//BTLS +bodily//BTL +boding/M/BTN +bodkin/SM/BTKN +body/DSMG/BT +bodybuilder/SM/BTBLT +bodybuilding/S/BTBLTN +bodyguard/MS/BTKT +bodying/M/BTYN +bodysuit/S/BTST +bodyweight//BTWT +bodywork/SM/BTWK +Boeing/M/BN +Boeotia/M/BX +Boeotian//BXN +Boer/M/B +bog/MS/BK +Bogart/M/BKT +Bogartian/M/BKXN +Bogey/M/BK +bogey/SGMD/BK +bogeyman/M/BKMN +bogeymen//BKMN +bogged//BKT +bogging//BKN +boggle/SDG/BKL +boggling/Y/BKLN +boggy/RT/BK +bogie's//BKS +Bogotá/M/BKT +bogus//BKS +bogyman//BKMN +bogymen//BKMN +bogy's//BKS +Boheme/M/BHM +Bohemia/SM/BHM +bohemian/S/BHMN +Bohemian/SM/BHMN +bohemianism/S/BHMNSM +Bohr/M/BR +Boigie/M/BK +boil/JSGZDR/BL +boiled/AU/BLT +boiler/M/BL +boilermaker/MS/BLMK +boilerplate/SM/BLPLT +boils/A/BLS +Bois/M/BS +Boise/M/BS +boisterous/YP/BSTRS +boisterousness/MS/BSTRSNS +bola/SM/BL +bold/YRPST/BLT +boldface/SDMG/BLTFS +boldness/MS/BLTNS +bole/MS/BL +bolero/MS/BLR +Boleyn/M/BLN +Bolivar/M/BLF +bolivar/MS/BLF +bolivares//BLFRS +Bolivia/M/BLF +Bolivian/S/BLFN +boll/MDSG/BL +bollard/SM/BLT +bollix/GSD/BLKS +bolo/MS/BL +Bologna/M/BLKN +bologna/MS/BLKN +bolometer/MS/BLMT +boloney's//BLNS +Bolshevik/MS/BLXFK +Bolshevism/MS/BLXFSM +Bolshevist/MS/BLXFST +Bolshevistic/M/BLXFSTK +Bolshoi/M/BLX +bolster/SRDG/BLST +bolsterer/M/BLSTR +bolt/MDRGS/BLT +bolted/U/BLTT +bolter/M/BLT +Bolton/M/BLTN +bolts/U/BLTS +Boltzmann/M/BLTSMN +bolus/SM/BLS +bomb/SGZDRJ/BM +bombard/LDSG/BMBT +bombardier/MS/BMBT +bombardment/SM/BMBTMNT +bombast/RMS/BMBST +bombastic//BMBSTK +bombastically//BMBSTKL +Bombay/M/BMB +bomber/M/BMB +bombproof//BMBPRF +bombshell/SM/BMBXL +bona//BN +bonanza/MS/BNNS +Bonaparte/M/BNPT +Bonaventure/M/BNFNTR +bonbon/SM/BNBN +bond/JMDRSGZ/BNT +Bond/M/BNT +bondage/SM/BNTK +bonder/M/BNT +bondholder/SM/BNTHLT +Bondie/M/BNT +bondman/M/BNTMN +bondmen//BNTMN +Bondon/M/BNTN +bonds/A/BNTS +bondsman/M/BNTSMN +bondsmen//BNTSMN +bondwoman/M/BNTWMN +bondwomen//BNTWMN +Bondy/M/BNT +Bone/M/BN +bone/MZDRSG/BN +boned/U/BNT +bonehead/SDM/BNHT +boneless//BNLS +boner/M/BN +bonfire/MS/BNFR +bong/GDMS/BNK +bongo/MS/BNK +Bonham/M/BNHM +bonhomie/MS/BNHM +Boniface/M/BNFS +boniness/MS/BNNS +Bonita/M/BNT +bonito/MS/BNT +bonjour//BNK +bonkers//BNKS +Bonn/RM/BN +Bonnee/M/BN +Bonner/M/BN +bonnet/SGMD/BNT +bonneted/U/BNTT +Bonneville/M/BNFL +Bonni/M/BN +Bonnibelle/M/BNBL +bonnie//BN +Bonnie/M/BN +Bonny/M/BN +bonny/RT/BN +bonsai/SM/BNS +Bontempo/M/BNTMP +bonus/SM/BNS +bony/RTP/BN +bonzes//BNSS +boo/GSDH/B +boob/DMSG/BB +booby/SM/BB +boodle/GMSD/BTL +boogeyman's//BKMNS +boogie/SD/BK +boogieing//BKN +boohoo/GDS/BH +book/GZDRMJSB/BK +bookbind/JRGZ/BKBNT +bookbinder/M/BKBNT +bookbindery/SM/BKBNTR +bookbinding/M/BKBNTN +bookcase/MS/BKKS +booked/U/BKT +bookend/SGD/BKNT +Booker/M/BK +bookie/SM/BK +booking/M/BKN +bookish/PY/BKX +bookishness/M/BKXNS +bookkeep/GZJR/BKP +bookkeeper/M/BKP +bookkeeping/M/BKPN +booklet/MS/BKLT +bookmaker/MS/BKMK +bookmaking/MS/BKMKN +bookmark/MDGS/BKMK +bookmobile/MS/BKMBL +bookplate/SM/BKPLT +bookseller/SM/BKSL +bookshelf/M/BKXLF +bookshelves//BKXLFS +bookshop/MS/BKXP +bookstall/MS/BKSTL +bookstore/SM/BKSTR +bookwork/M/BKWK +bookworm/MS/BKWM +Boole/M/BL +Boolean//BLN +boolean/S/BLN +boom/DRGJS/BM +boomer/M/BM +boomerang/MDSG/BMRNK +boomtown/S/BMTN +boon/MS/BN +boondocks//BNTKS +boondoggle/DRSGZ/BNTKL +boondoggler/M/BNTKL +Boone/M/BN +Boonie/M/BN +boonies//BNS +Boony/M/BN +boor/MS/B +boorish/PY/BRX +boorishness/SM/BRXNS +boost/SGZMRD/BST +booster/M/BST +boosterism//BSTRSM +boot/AGDS/BT +Boot/M/BT +bootblack/MS/BTBLK +Boote/M/BT +bootee/MS/BT +Boötes//BTS +booth/M/B@ +Booth/M/B@ +Boothe/M/B@ +booths//B@S +bootie's//BTS +bootlaces//BTLSS +Bootle/M/BTL +bootleg/S/BTLK +bootlegged/M/BTLKT +bootlegger/SM/BTLK +bootlegging/M/BTLKN +bootless//BTLS +bootprints//BTPRNTS +boot's//BTS +bootstrap/SM/BTSTRP +bootstrapped//BTSTRPT +bootstrapping//BTSTRPN +booty/SM/BT +booze/DSRGMZ/BS +boozer/M/BS +boozy/TR/BS +bop/S/BP +bopped//BPT +bopping//BPN +borate/MSD/BRT +borax/MS/BRKS +Bord/MN/BT +Bordeaux/M/BTKS +bordello/MS/BTL +Borden/M/BTN +border/JRDMGS/BT +borderer/M/BTR +borderland/SM/BTLNT +borderline/MS/BTLN +Bordie/M/BT +Bordon/M/BTN +Bordy/M/BT +bore/ZGJDRS/BR +Borealis/M/BRLS +Boreas/M/BRS +boredom/MS/BRTM +boreholes//BRHLS +borer/M/BR +Borg/M/BK +Borges//BKS +Borgia/M/BK +boric//BRK +boring/YMP/BRN +Boris//BRS +Bork/M/BK +born/AIU/BN +Born/M/BN +borne/U/BN +Borneo/M/BN +Borodin/M/BRTN +boron/SM/BRN +borosilicate/M/BRSLKT +borough/M/BR +boroughs//BRS +Borroughs/M/BRS +borrow/JZRDGBS/BR +borrower/M/BRW +borrowing/M/BRWN +borscht/SM/BSXT +borstal/MS/BSTL +Boru/M/BR +borzoi/MS/BS +Bosch/M/BSX +Bose/M/BS +bosh/MS/BX +Bosnia/M/BSN +Bosnian/S/BSNN +bosom/SGUD/BSM +bosom's//BSMS +bosomy/RT/BSM +boson/SM/BSN +Bosporus/M/BSPRS +boss/DSRMG/BS +bossily//BSL +bossiness/MS/BSNS +bossism/MS/BSSM +bossy/PTSR/BS +Bostitch/M/BSTX +Boston/MS/BSTN +Bostonian/SM/BSTNN +bosun's//BSNS +Boswell/MS/BSWL +bot/S/BT +botanic/S/BTNK +botanical/SY/BTNKL +botanist/SM/BTNST +botany/SM/BTN +botch/SRDGZ/BX +botcher/M/BX +botfly/M/BTFL +both/ZR/B@ +bother/DG/B@ +bothersome//B@SM +bothy/M/B@ +Botswana/M/BTSWN +Botticelli/M/BTSL +bottle/GMZSRD/BTL +bottleneck/GSDM/BTLNK +bottler/M/BTL +bottom/SMRDG/BTM +bottomless/YP/BTMLS +bottomlessness/M/BTMLSNS +bottommost//BTMST +botulin/M/BTLN +botulinus/M/BTLNS +botulism/SM/BTLSM +Boucher/M/BX +boudoir/MS/BT +bouffant/S/BFNT +bougainvillea/SM/BKNFL +bough/MD/B +boughs//BS +bought/N/BT +bouillabaisse/MS/BLBS +bouillon/MS/BLN +boulder/GMDS/BLT +Boulder/M/BLT +boulevard/MS/BLFT +bounce/SRDGZ/BNS +bouncer/M/BNS +bouncily//BNSL +bouncing/Y/BNSN +bouncy/TRP/BNS +bound/AUDI/BNT +boundary/MS/BNTR +bounded/UP/BNTT +boundedness/MU/BNTTNS +bounden//BNTN +bounder/AM/BNT +bounders//BNTS +bounding//BNTN +boundless/YP/BNTLS +boundlessness/SM/BNTLSNS +bounds/IA/BNTS +bounteous/PY/BNTS +bounteousness/MS/BNTSNS +bountiful/PY/BNTFL +bountifulness/SM/BNTFLNS +bounty/SDM/BNT +bouquet/SM/BKT +Bourbaki/M/BBK +bourbon/SM/BBN +Bourbon/SM/BBN +bourgeois/M/BKS +bourgeoisie/SM/BKS +Bourke/M/BK +Bourne/M/BN +Bournemouth/M/BNM@ +bout/MS/BT +boutique/MS/BTK +boutonnière/MS/BTNR +Bouvier//BF +Bovary/M/BFR +bovine/YS/BFN +bow/SZGNDR/B +Bowditch/M/BTX +bowdlerization/MS/BTLRSXN +bowdlerize/GRSD/BTLRS +bowed/U/BWT +bowel/GMDS/BWL +Bowell/M/BWL +Bowen/M/BWN +bower/DMG/BW +Bowers//BWS +Bowery/M/BWR +Bowes//BWS +bowie//BW +Bowie/M/BW +bowing/M/BWN +bowl/GZSMDR/BL +bowlder's//BLTS +bowleg/SM/BLK +bowlegged//BLKT +bowler/M/BL +bowlful/S/BLFL +bowline/MS/BLN +bowling/M/BLN +bowman/M/BMN +Bowman/M/BMN +bowmen//BMN +bows/R/BS +bowser/M/BS +bowsprit/SM/BSPRT +bowstring/GSMD/BSTRN +bowwow/DMGS/BW +box/DRSJZGM/BKS +boxcar/SM/BKSK +boxer/M/BKS +boxful/M/BKSFL +boxing/M/BKSN +boxlike//BKSLK +boxtops//BKSTPS +boxwood/SM/BKSWT +boxy/TPR/BKS +Boy/MR/B +boy/MRS/B +Boyce/M/BS +Boycey/M/BS +Boycie/M/BS +boycott/RDGS/BKT +boycotter/M/BKT +Boyd/M/BT +Boyer/M/BY +boyfriend/MS/BFRNT +boyhood/SM/BHT +boyish/PY/BYX +boyishness/MS/BYXNS +Boyle/M/BL +boyscout//BSKT +boysenberry/SM/BSNBR +bozo/SM/BS +bpi//BP +bps//BPS +BR//BR +Br/TMN/BR +bra/MS/BR +brace/DSRJGM/BRS +braced/U/BRST +bracelet/MS/BRSLT +bracer/M/BRS +brachia//BRX +brachium/M/BRXM +bracken/SM/BRKN +bracket/SGMD/BRKT +bracketed/U/BRKTT +bracketing/M/BRKTN +brackish/P/BRKX +brackishness/SM/BRKXNS +bract/SM/BRKT +Brad/MYN/BRT +brad/SM/BRT +Bradan/M/BRTN +bradawl/M/BRTL +Bradbury/M/BRTBR +Bradburys//BRTBRS +bradded//BRTT +bradding//BRTN +Braddock/M/BRTK +Brade/M/BRT +Braden/M/BRTN +Bradford/M/BRTFT +Bradley/M/BRTL +Bradly/M/BRTL +Bradney/M/BRTN +Bradshaw/M/BRTX +Bradstreet/M/BRTSTRT +Brady/M/BRT +brae/SM/BR +brag/S/BRK +Bragg/M/BRK +braggadocio/SM/BRKTS +braggart/SM/BRKT +bragged//BRKT +bragger/MS/BRK +braggest//BRKST +bragging//BRKN +Brahe/M/BRH +Brahma/MS/BRM +Brahman/SM/BRMN +Brahmanism/MS/BRMNSM +Brahmaputra/M/BRMPTR +Brahmin's//BRMNS +Brahms//BRMS +braid/RDSJG/BRT +braider/M/BRT +braiding/M/BRTN +braille/DSG/BRL +Braille/GDSM/BRL +brain/GSDM/BRN +Brain/M/BRN +Brainard/SM/BRNT +braincell/S/BRNSL +brainchild/M/BRNXLT +brainchildren//BRNXLTRN +braininess/MS/BRNNS +brainless/YP/BRNLS +brainlessness/M/BRNLSNS +brainpower/M/BRNPW +brainstorm/DRMGJS/BRNSTM +brainstorming/M/BRNSTMN +brainteaser/S/BRNTS +brainteasing//BRNTSN +brainwash/JGRSD/BRNWX +brainwasher/M/BRNWX +brainwashing/M/BRNWXN +brainwave/S/BRNWF +brainy/RPT/BRN +braise/SDG/BRS +brake/DSGM/BRK +brakeman/M/BRKMN +brakemen/M/BRKMN +Bram/M/BRM +bramble/DSGM/BRMBL +brambling/M/BRMBLN +brambly/RT/BRMBL +Brampton/M/BRMPTN +Bran/M/BRN +bran/SM/BRN +Brana/M/BRN +Branch/M/BRNX +branch/MDSJG/BRNX +branched/U/BRNXT +branching/M/BRNXN +branchlike//BRNXLK +Branchville/M/BRNXFL +Brand/MRN/BRNT +brand/SMRDGZ/BRNT +Brandais/M/BRNTS +Brande/M/BRNT +Brandea/M/BRNT +branded/U/BRNTT +Brandeis/M/BRNTS +Brandel/M/BRNTL +Branden/M/BRNTN +Brandenburg/M/BRNTNBK +brander/GDM/BRNT +Brander/M/BRNT +Brandi/M/BRNT +Brandice/M/BRNTS +Brandie/M/BRNT +Brandise/M/BRNTS +brandish/GSD/BRNTX +Brando/M/BRNT +Brandon/M/BRNTN +Brandt/M/BRNTT +Brandtr/M/BRNTTR +brandy/GDSM/BRNT +Brandy/M/BRNT +Brandyn/M/BRNTN +brandywine//BRNTWN +Braniff/M/BRNF +branned//BRNT +branning//BRNN +Brannon/M/BRNN +Brant/M/BRNT +Brantley/M/BRNTL +Braque/M/BRK +brash/PYSRT/BRX +brashness/MS/BRXNS +Brasilia//BRSL +brass/GSDM/BRS +brasserie/SM/BRSR +brassiere/MS/BRSR +brassily//BRSL +brassiness/SM/BRSNS +brassy/RSPT/BRS +brat/SM/BRT +Bratislava/M/BRTSLF +Brattain/M/BRTN +bratty/RT/BRT +bratwurst/MS/BRTWST +Braun/M/BRN +bravado/M/BRFT +bravadoes//BRFTS +brave/DSRGYTP/BRF +braveness/MS/BRFNS +bravery/MS/BRFR +bravest/M/BRFST +bravo/SDG/BRF +bravura/SM/BRFR +brawl/MRDSGZ/BRL +brawler/M/BRL +brawn/MS/BRN +brawniness/SM/BRNNS +brawny/TRP/BRN +Bray/M/BR +bray/SDRG/BR +brayer/M/BRY +braze/GZDSR/BRS +brazen/PYDSG/BRSN +brazenness/MS/BRSNS +brazer/M/BRS +brazier/SM/BRS +Brazil/M/BRSL +Brazilian/MS/BRSLN +Brazos/M/BRSS +Brazzaville/M/BRSFL +breach/MDRSGZ/BRX +breacher/M/BRX +bread/SMDHG/BRT +breadbasket/SM/BRTBSKT +breadboard/SMDG/BRTBT +breadbox/S/BRTBKS +breadcrumb/S/BRTKRM +breadfruit/MS/BRTFRT +breadline/MS/BRTLN +breadth/M/BRT@ +breadths//BRT@S +breadwinner/MS/BRTWN +break/SZRBG/BRK +breakable/U/BRKBL +breakables//BRKBLS +breakage/MS/BRKK +breakaway/MS/BRKW +breakdown/MS/BRKTN +breaker/M/BRK +breakfast/RDMGZS/BRKFST +breakfaster/M/BRKFST +breakfront/S/BRKFRNT +breaking/M/BRKN +breakneck//BRKNK +breakout/MS/BRKT +breakpoint/SMDG/BRKPNT +breakthrough/SM/BRK@R +breakthroughs//BRK@RS +breakup/SM/BRKP +breakwater/SM/BRKWT +bream/SDG/BRM +Breanne/M/BRN +Brear/M/BR +breast/MDSG/BRST +breastbone/MS/BRSTBN +breastfed//BRSTFT +breastfeed/G/BRSTFT +breasting/M/BRSTN +breastplate/SM/BRSTPLT +breaststroke/SM/BRSTSTRK +breastwork/MS/BRSTWK +breath/ZBJMDRSG/BR@ +breathable/U/BR@BL +breathalyser/S/BR@LS +Breathalyzer/SM/BR@LS +breathe//BR@ +breather/M/BR@ +breathing/M/BR@N +breathless/PY/BR@LS +breathlessness/SM/BR@LSNS +breaths//BR@S +breathtaking/Y/BR@TKN +breathy/TR/BR@ +Brecht/M/BRXT +Breckenridge/M/BRKNRK +bred/DG/BRT +bredes//BRTS +Bree/M/BR +breech/MDSG/BRX +breeching/M/BRXN +breed/SZJRG/BRT +breeder/I/BRT +breeder's//BRTS +breeding/IM/BRTN +breeds/I/BRTS +Breena/M/BRN +breeze/GMSD/BRS +breezeway/SM/BRSW +breezily//BRSL +breeziness/SM/BRSNS +breezy/RPT/BRS +Bremen/M/BRMN +bremsstrahlung/M/BRMSTRLNK +Bren/M/BRN +Brena/M/BRN +Brenda/M/BRNT +Brendan/M/BRNTN +Brenden/M/BRNTN +Brendin/M/BRNTN +Brendis/M/BRNTS +Brendon/M/BRNTN +Brenn/RNM/BRN +Brenna/M/BRN +Brennan/M/BRNN +Brennen/M/BRNN +Brenner/M/BRN +Brent/M/BRNT +Brenton/M/BRNTN +Bresenham/M/BRSNHM +Brest/M/BRST +Bret/M/BRT +brethren//BR@RN +Breton//BRTN +Brett/M/BRT +breve/SM/BRF +brevet/MS/BRFT +brevetted//BRFTT +brevetting//BRFTN +breviary/SM/BRFR +brevity/MS/BRFT +brew/DRGZS/BR +Brew/RM/BR +brewer/M/BRW +Brewer/M/BRW +brewery/MS/BRWR +brewing/M/BRWN +brewpub/S/BRPB +Brewster/M/BRST +Brezhnev/M/BRSHNF +Bria/M/BR +Brian/M/BRN +Briana/M/BRN +Brianna/M/BRN +Brianne/M/BRN +Briano/M/BRN +Briant/M/BRNT +briar's//BRS +bribe/GZDSR/BRB +briber/M/BRB +bribery/MS/BRBR +Brice/M/BRS +brick/GRDSM/BRK +brickbat/SM/BRKBT +bricklayer/MS/BRKLY +bricklaying/SM/BRKLYN +brickmason/S/BRKMSN +brickwork/SM/BRKWK +brickyard/M/BRKYT +bridal/S/BRTL +Bridalveil/M/BRTLFL +Bride/M/BRT +bride/MS/BRT +bridegroom/MS/BRTKRM +bridesmaid/MS/BRTSMT +Bridewell/M/BRTWL +bridge/SDGM/BRK +bridgeable/U/BRKBL +bridged/U/BRKT +bridgehead/MS/BRKHT +Bridgeport/M/BRKPT +Bridger/M/BRKR +Bridges//BRKS +Bridget/M/BRKT +Bridgetown/M/BRKTN +Bridgett/M/BRKT +Bridgette/M/BRKT +Bridgewater/M/BRKWT +bridgework/MS/BRKWK +bridging/M/BRKNK +Bridgman/M/BRTKMN +Bridie/M/BRT +bridle/SDGM/BRTL +bridled/U/BRTLT +bridleway/S/BRTLW +Brie/RSM/BR +brief/YRDJPGTS/BRF +briefcase/SM/BRFKS +briefed/C/BRFT +briefing/M/BRFN +briefness/MS/BRFNS +briefs/C/BRFS +Brien/M/BRN +Brier/M/BR +brier/MS/BR +Brietta/M/BRT +Brig/M/BRK +brig/SM/BRK +brigade/GDSM/BRKT +brigadier/MS/BRKT +Brigadoon//BRKTN +brigand/MS/BRKNT +brigandage/MS/BRKNTK +brigantine/MS/BRKNTN +Brigg/MS/BRK +Brigham/M/BRKM +bright/GXTPSYNR/BRT +Bright/M/BRT +brighten/RDZG/BRTN +brightener/M/BRTN +brightness/SM/BRTNS +Brighton/M/BRTN +Brigid/M/BRKT +Brigida/M/BRKT +Brigit/M/BRKT +Brigitta/M/BRKT +Brigitte/M/BRKT +brilliance/MS/BRLNS +brilliancy/MS/BRLNS +brilliant/PSY/BRLNT +brilliantine/MS/BRLNTN +brilliantness/M/BRLNTNS +Brillo//BRL +Brillouin/M/BRLN +brim/SM/BRM +brimful//BRMFL +brimless//BRMLS +brimmed//BRMT +brimming//BRMN +brimstone/MS/BRMSTN +Brina/M/BRN +Brindisi/M/BRNTS +brindle/DSM/BRNTL +brine/GMDSR/BRN +briner/M/BRN +Briney/M/BRN +bring/RGZS/BRN +bringer/M/BRN +brininess/MS/BRNNS +brink/MS/BRNK +Brinkley/M/BRNKL +brinkmanship/SM/BRNKMNXP +Brinn/M/BRN +Brinna/M/BRN +Briny/M/BRN +briny/PTSR/BRN +brioche/SM/BRX +Brion/M/BRN +briquet's//BRKTS +briquette/MGSD/BRKT +Brisbane/M/BRSBN +brisk/YRDPGTS/BRSK +brisket/SM/BRSKT +briskness/MS/BRSKNS +bristle/DSGM/BRSTL +bristly/TR/BRSTL +Bristol/M/BRSTL +bristol/S/BRSTL +Brit/MS/BRT +Brita/M/BRT +Britain/M/BRTN +Britannia/M/BRTN +Britannic//BRTNK +Britannica/M/BRTNK +britches//BRXS +Briticism/MS/BRTSSM +British/RYZ/BRTX +Britisher/M/BRTX +Britishly/M/BRTXL +Britney/M/BRTN +Britni/M/BRTN +Briton/MS/BRTN +Britt/MN/BRT +Britta/M/BRT +Brittan/M/BRTN +Brittaney/M/BRTN +Brittani/M/BRTN +Brittany/MS/BRTN +Britte/M/BRT +Britten/M/BRTN +Britteny/M/BRTN +brittle/YTPDRSG/BRTL +brittleness/MS/BRTLNS +Brittne/M/BRTN +Brittney/M/BRTN +Brittni/M/BRTN +Brnaba/M/BRNB +Brnaby/M/BRNB +Brno/M/BRN +bro/SH/BR +broach/DRSG/BRX +broacher/M/BRX +broad/TXSYRNP/BRT +broadband//BRTBNT +broadcast/RSGZJ/BRTKST +broadcaster/M/BRTKST +broadcasts/A/BRTKSTS +broadcloth/M/BRTKL@ +broadcloths//BRTKL@S +broaden/JGRDZ/BRTN +broadleaved//BRTLFT +broadloom/SM/BRTLM +broadminded/P/BRTMNTT +broadness/S/BRTNS +broadsheet/MS/BRTXT +broadside/SDGM/BRTST +broadsword/MS/BRTSWT +Broadway/SM/BRTW +Brobdingnag/M/BRBTNNK +Brobdingnagian//BRBTNNKN +brocade/DSGM/BRKT +broccoli/MS/BRKL +brochette/SM/BRXT +brochure/SM/BRXR +Brock/M/BRK +Brockie/M/BRK +Brocky/M/BRK +Brod/M/BRT +Broddie/M/BRT +Broddy/M/BRT +Broderic/M/BRTRK +Broderick/M/BRTRK +Brodie/M/BRT +Brody/M/BRT +brogan/MS/BRKN +Broglie/M/BRKL +brogue/MS/BRK +broil/RDSGZ/BRL +broiler/M/BRL +Brok/M/BRK +broke/RGZ/BRK +broken/YP/BRKN +brokenhearted/Y/BRKNHTT +brokenness/MS/BRKNS +broker/DMG/BRK +brokerage/MS/BRKRK +bromide/MS/BRMT +bromidic//BRMTK +bromine/MS/BRMN +Bron/M/BRN +bronc/S/BRNK +bronchi/M/BRNX +bronchial//BRNXL +bronchiolar//BRNXL +bronchiole/MS/BRNXL +bronchiolitis//BRNXLTS +bronchitic/S/BRNXTK +bronchitis/MS/BRNXTS +broncho's//BRNXS +bronchus/M/BRNXS +bronco/SM/BRNK +broncobuster/SM/BRNKBST +Bronnie/M/BRN +Bronny/M/BRN +Bronson/M/BRNSN +Bronte//BRNT +brontosaur/SM/BRNTS +brontosaurus/SM/BRNTSRS +Bronx/M/BRNKS +bronze/SRDGM/BRNS +bronzed/M/BRNST +bronzing/M/BRNSN +brooch/MS/BRX +brood/SMRDGZ/BRT +brooder/M/BRT +broodiness/M/BRTNS +brooding/Y/BRTN +broodmare/SM/BRTMR +broody/PTR/BRT +brook/SGDM/BRK +Brook/SM/BRK +Brookdale/M/BRKTL +Brooke/M/BRK +Brookfield/M/BRKFLT +Brookhaven/M/BRKHFN +brooklet/MS/BRKLT +Brooklyn/M/BRKLN +Brookmont/M/BRKMNT +brookside//BRKST +broom/SMDG/BRM +broomstick/MS/BRMSTK +Bros//BRS +bros/S/BRS +Brose/M/BRS +broth/ZMR/BR@ +brothel/MS/BR@L +brother/DYMG/BR@ +brotherhood/SM/BR@HT +brotherliness/MS/BR@LNS +brotherly/P/BR@L +broths//BR@S +brougham/MS/BRKM +brought//BRT +brouhaha/MS/BRHH +brow/MS/BR +browbeat/NSG/BRBT +Brown/MG/BRN +brown/YRDMSJGTP/BRN +Browne/M/BRN +Brownell/M/BRNL +Brownian/M/BRNN +Brownie/MS/BRN +brownie/MTRS/BRN +browning/M/BRNN +Browning/M/BRNN +brownish//BRNX +brownness/MS/BRNS +brownout/MS/BRNT +brownstone/MS/BRNSTN +Brownsville/M/BRNSFL +brows/SRDGZ/BRS +browse//BRS +browser/M/BRS +brr//BR +Brubeck/M/BRBK +Bruce/M/BRS +brucellosis/M/BRSLSS +Brucie/M/BRS +Bruckner/M/BRKN +Bruegel/M/BRKL +Brueghel's//BRKLS +bruin/MS/BRN +Bruis/M/BRS +bruise/JGSRDZ/BRS +bruised/U/BRST +bruiser/M/BRS +bruit/DSG/BRT +Brumidi/M/BRMT +Brummel/M/BRML +brunch/MDSG/BRNX +Brunei/M/BRN +Brunelleschi/M/BRNLSX +brunet/S/BRNT +brunette/SM/BRNT +Brunhilda/M/BRNHLT +Brunhilde/M/BRNHLT +Bruno/M/BRN +Brunswick/M/BRNSWK +brunt/GSMD/BRNT +brush/MSRDG/BRX +brusher/M/BRX +brushfire/MS/BRXFR +brushlike//BRXLK +brushoff/S/BRXF +brushwood/SM/BRXWT +brushwork/MS/BRXWK +brushy/R/BRX +brusque/PYTR/BRSK +brusqueness/MS/BRSKNS +Brussels//BRSLS +brutal/Y/BRTL +brutality/SM/BRTLT +brutalization/SM/BRTLSXN +brutalize/SDG/BRTLS +brutalized/U/BRTLST +brutalizes/AU/BRTLSS +brute/DSRGM/BRT +brutish/YP/BRTX +brutishness/SM/BRTXNS +Brutus/M/BRTS +Bruxelles/M/BRKSLS +Bryan/M/BRYN +Bryana/M/BRYN +Bryant/M/BRYNT +Bryanty/M/BRYNT +Bryce/M/BRS +Bryn/M/BRN +Bryna/M/BRN +Brynn/RM/BRN +Brynna/M/BRN +Brynne/M/BRN +Brynner/M/BRN +Bryon/M/BRYN +Brzezinski/M/BRSSNSK +B's//BS +BS//BS +BSA//BS +BSD//BST +Btu//BT +BTU//BT +BTW//BT +bu//B +bub/MS/BB +bubble/RSDGM/BBL +bubblegum/S/BBLKM +bubbler/M/BBL +bubbly/TRS/BBL +Buber/M/BB +bubo/M/BB +buboes//BBS +bubonic//BBNK +buccaneer/GMDS/BKN +Buchanan/M/BXNN +Bucharest/M/BXRST +Buchenwald/M/BXNWLT +Buchwald/M/BXWLT +buck/GSDRM/BK +Buck/M/BK +buckaroo/SM/BKR +buckboard/SM/BKBT +bucker/M/BK +bucket/SGMD/BKT +bucketful/MS/BKTFL +buckeye/SM/BKY +buckhorn/M/BKHN +Buckie/M/BK +Buckingham/M/BKNHM +buckle/RSDGMZ/BKL +buckled/U/BKLT +buckler/MDG/BKL +buckles/U/BKLS +Buckley/M/BKL +buckling/U/BKLN +buckling's//BKLNS +Buckner/M/BKN +buckram/GSDM/BKRM +bucksaw/SM/BKS +buckshot/MS/BKXT +buckskin/SM/BKSKN +buckteeth//BKT@ +bucktooth/DM/BKT@ +buckwheat/SM/BKHT +Bucky/M/BK +bucolic/S/BKLK +bucolically//BKLKL +Bud/M/BT +bud/MS/BT +Budapest/M/BTPST +Budd/M/BT +budded//BTT +Buddha/MS/BTH +Buddhism/SM/BTHSM +Buddhist/SM/BTHST +Buddie/M/BT +budding/S/BTN +buddy/GSDM/BT +Buddy/M/BT +budge/GDS/BK +budgerigar/MS/BKRK +budget/GMRDZS/BKT +budgetary//BKTR +budgeter/M/BKT +budgie/MS/BK +budging/U/BKNK +Budweiser/MS/BTWS +Buehring/M/BRN +Buena/M/BN +buff/ASGD/BF +Buffalo/M/BFL +buffalo/MDG/BFL +buffaloes//BFLS +buffer/RDMSGZ/BF +buffered/U/BFRT +bufferer/M/BFR +buffet/GMDJS/BFT +bufflehead/M/BFLHT +buffoon/SM/BFN +buffoonery/MS/BFNR +buffoonish//BFNX +buff's//BFS +Buffy/M/BF +Buford/M/BFT +bug/CS/BK +bugaboo/SM/BKB +Bugatti/M/BKT +bugbear/SM/BKB +bugeyed//BKYT +bugged/C/BKT +bugger/SCM/BK +buggered//BKRT +buggering//BKRN +buggery/M/BKR +bugging/C/BKN +buggy/RSMT/BK +bugle/GMDSRZ/BKL +bugler/M/BKL +bug's//BKS +Buick/M/BK +build/SAG/BLT +builder/SM/BLT +building/SM/BLTN +buildup/MS/BLTP +built/AUI/BLT +Buiron/M/BRN +Bujumbura/M/BKMBR +Bukhara/M/BKHR +Bukharin/M/BKHRN +Bulawayo/M/BLWY +bulb/DMGS/BLB +Bulba/M/BLB +bulblet//BLBLT +bulbous//BLBS +Bulfinch/M/BLFNX +Bulganin/M/BLKNN +Bulgaria/M/BLKR +Bulgarian/S/BLKRN +bulge/DSGM/BLK +bulgy/RT/BLK +bulimarexia/S/BLMRKS +bulimia/MS/BLM +bulimic/S/BLMK +bulk/GDRMS/BLK +bulkhead/SDM/BLKHT +bulkiness/SM/BLKNS +bulky/RPT/BLK +bull/MDGS/BL +bulldog/SM/BLTK +bulldogged//BLTKT +bulldogger//BLTK +bulldogging//BLTKN +bulldoze/GRSDZ/BLTS +bulldozer/M/BLTS +bullet/GMDS/BLT +bulletin/SGMD/BLTN +bulletproof/SGD/BLTPRF +bullfight/SJGZMR/BLFT +bullfighter/M/BLFT +bullfighting/M/BLFTN +bullfinch/MS/BLFNX +bullfrog/SM/BLFRK +bullhead/DMS/BLHT +bullheaded/YP/BLHTT +bullheadedness/SM/BLHTTNS +bullhide//BLHT +bullhorn/SM/BLHN +bullied/M/BLT +bullion/SM/BLN +bullish/PY/BLX +bullishness/SM/BLXNS +Bullock/M/BLK +bullock/MS/BLK +bullpen/MS/BLPN +bullring/SM/BLRN +bullseye//BLSY +bullshit/MS/BLXT +bullshitted//BLXTT +bullshitter/S/BLXT +bullshitting//BLXTN +bullwhackers//BLHKS +Bullwinkle/M/BLWNKL +bully/TRSDGM/BL +bullyboy/MS/BLB +bullying/M/BLYN +bulrush/SM/BLRX +Bultmann/M/BLTMN +bulwark/GMDS/BLWK +bum/SM/BM +bumble/JGZRSD/BMBL +bumblebee/MS/BMBLB +bumbler/M/BMBL +bumbling/Y/BMBLN +Bumbry/M/BMBR +bummed/M/BMT +bummer/MS/BM +bummest//BMST +bumming/M/BMN +bump/GZDRS/BMP +bumper/DMG/BMP +bumpiness/MS/BMPNS +bumpkin/MS/BMPKN +Bumppo/M/BMP +bumptious/PY/BMPXS +bumptiousness/SM/BMPXSNS +bumpy/PRT/BMP +bun/SM/BN +bunch/MSDG/BNX +Bunche/M/BNX +bunchy/RT/BNX +buncombe's//BNKMBS +bunco's//BNKS +Bundestag/M/BNTSTK +bundle/GMRSD/BNTL +bundled/U/BNTLT +bundler/M/BNTL +Bundy/M/BNT +bung/GDMS/BNK +bungalow/MS/BNKL +bungee/SM/BNK +bunghole/MS/BNKL +bungle/GZRSD/BNKL +bungler/M/BNKL +bungling/Y/BNKLN +Bunin/M/BNN +bunion/SM/BNN +bunk/CSGDR/BNK +Bunker/M/BNK +bunker/SDMG/BNK +bunker's/C/BNKS +bunkhouse/SM/BNKHS +bunkmate/MS/BNKMT +bunko's//BNKS +bunk's//BNKS +bunkum/SM/BNKM +Bunni/M/BN +Bunnie/M/BN +Bunny/M/BN +bunny/SM/BN +Bunsen/SM/BNSN +bunt/GJZDRS/BNT +bunting/M/BNTN +Buñuel/M/BL +Bunyan/M/BNYN +buoy/SMDG/B +buoyancy/MS/BYNS +buoyant/Y/BYNT +bur/MYS/B +Burbank/M/BBNK +burble/RSDG/BBL +burbler/M/BBL +burbs//BBS +Burch/M/BX +burden/UGDS/BTN +burden's//BTNS +burdensome/PY/BTNSM +burdensomeness/M/BTNSMNS +burdock/SM/BTK +bureau/MS/BR +bureaucracy/MS/BRKRS +bureaucrat/MS/BRKRT +bureaucratic/U/BRKRTK +bureaucratically//BRKRTKL +bureaucratization/MS/BRKRTSXN +bureaucratize/SDG/BRKRTS +Burg/RM/BK +burg/SZRM/BK +burgeon/GDS/BKN +burger/M/BK +Burger/M/BK +Burgess/M/BKS +burgess/MS/BKS +burgh/MRZ/B +burgher/M/BK +burghs//BS +burglar/SM/BKL +burglarize/GDS/BKLRS +burglarproof/DGS/BKLPRF +burglary/MS/BKLR +burgle/SDG/BKL +burgomaster/SM/BKMST +Burgoyne/M/BKN +Burgundian/S/BKNTN +Burgundy/MS/BKNT +burgundy/S/BKNT +burial/ASM/BRL +buried/U/BRT +burier/M/BR +Burk/SM/BK +Burke/M/BK +Burl/M/BL +burl/SMDRG/BL +burlap/MS/BLP +burler/M/BL +burlesque/SRDMYG/BLSK +burlesquer/M/BLSK +burley/M/BL +Burlie/M/BL +burliness/SM/BLNS +Burlingame/M/BLNM +Burlington/M/BLNTN +burly/PRT/BL +Burma/M/BM +Burmese//BMS +burn/GZSDRBJ/BN +burnable/S/BNBL +Burnaby/M/BNB +Burnard/M/BNT +Burne/MS/BN +burned/U/BNT +burner/M/BN +Burnett/M/BNT +burning/Y/BNN +burnish/GDRSZ/BNX +burnisher/M/BNX +burnoose/MS/BNS +burnout/MS/BNT +Burns//BNS +Burnside/MS/BNST +burnt/YP/BNT +burp/SGMD/BP +burr/GSDRM/BR +Burr/M/BR +Burris/M/BRS +burrito/S/BRT +burro/SM/BR +Burroughs/M/BRS +burrow/GRDMZS/BR +burrower/M/BRW +bursa/M/BS +Bursa/M/BS +bursae//BS +bursar/MS/BS +bursary/MS/BSR +bursitis/MS/BSTS +burst/SRG/BST +burster/M/BST +Burt/M/BT +Burtie/M/BT +Burton/M/BTN +Burty/M/BT +Burundi/M/BRNT +Burundian/S/BRNTN +bury/ASDG/BR +bus/GMDSJ/BS +busboy/MS/BSB +busby/SM/BSB +Busch/M/BSX +buses/A/BSS +busgirl/S/BSKL +bush/JMDSRG/BX +Bush/M/BX +bushel/MDJSG/BXL +Bushido/M/BXT +bushiness/MS/BXNS +bushing/M/BXN +bushland//BXLNT +bushman/M/BXMN +bushmaster/SM/BXMST +bushmen//BXMN +Bushnell/M/BXNL +bushwhack/RDGSZ/BXHK +bushwhacker/M/BXHK +bushwhacking/M/BXHKN +bushy/PTR/BX +busily//BSL +business/MS/BSNS +businesslike//BSNSLK +businessman/M/BSNSMN +businessmen//BSNSMN +businesspeople//BSNSPPL +businessperson/S/BSNSPSN +businesswoman/M/BSNSWMN +businesswomen//BSNSWMN +busk/GRM/BSK +busker/M/BSK +buskin/SM/BSKN +bus's/A/BSS +buss/D/BS +bust/MSDRGZ/BST +bustard/MS/BSTT +buster/M/BST +bustle/GSD/BSTL +bustling/Y/BSTLN +busty/RT/BST +busy/DSRPTG/BS +busybody/MS/BSBT +busyness/MS/BSNS +busywork/SM/BSWK +but/ACS/BT +butane/MS/BTN +Butch/M/BX +butch/RSZ/BX +butcher/MDRYG/BX +butcherer/M/BXR +butchery/MS/BXR +butene/M/BTN +Butler/M/BTL +butler/SDMG/BTL +butt/SGZMDR/BT +butte/MS/BT +butted/A/BTT +butter/RDMGZ/BT +butterball/MS/BTBL +buttercup/SM/BTKP +buttered/U/BTRT +butterfat/MS/BTFT +Butterfield/M/BTFLT +butterfingered//BTFNRT +butterfingers/M/BTFNS +butterfly/MGSD/BTFL +buttermilk/MS/BTMLK +butternut/MS/BTNT +butterscotch/SM/BTSKX +buttery/TRS/BTR +butting/M/BTN +buttock/SGMD/BTK +button/SUDG/BTN +buttoner/M/BTN +buttonhole/GMRSD/BTNHL +buttonholer/M/BTNHL +button's//BTNS +buttonweed//BTNWT +buttonwood/SM/BTNWT +buttress/MSDG/BTRS +butyl/M/BTL +butyrate/M/BTRT +buxom/TPYR/BKSM +buxomness/M/BKSMNS +Buxtehude/M/BKSTHT +buy/ZGRS/B +buyback/S/BBK +buyer/M/BY +buyout/S/BYT +buzz/DSRMGZ/BS +buzzard/MS/BST +buzzer/M/BS +buzzword/SM/BSWT +buzzy//BS +bx//BKS +bxs//BKSS +by/ZR/B +bye/MZS/BY +byelaw's//BYLS +Byelorussia's//BYLRXS +Byers/M/BYS +bygone/S/BKN +bylaw/SM/BL +byline/RSDGM/BLN +byliner/M/BLN +BYOB//BYB +bypass/GSDM/BPS +bypath/M/BP@ +bypaths//BP@S +byplay/S/BPL +byproduct/SM/BPRTKT +Byram/M/BRM +Byran/M/BRN +Byrann/M/BRN +Byrd/M/BRT +byre/SM/BR +Byrle/M/BRL +Byrne/M/BRN +byroad/MS/BRT +Byrom/M/BRM +Byron/M/BRN +Byronic//BRNK +Byronism/M/BRNSM +bystander/SM/BSTNT +byte/SM/BT +byway/SM/BW +byword/SM/BWT +byzantine//BSNTN +Byzantine/S/BSNTN +Byzantium/M/BSNTM +C//K +c/B/K +ca//K +CA//K +Ca/M/K +cab/SMR/KB +cabal/SM/KBL +cabala/MS/KBL +caballed//KBLT +caballero/SM/KBLR +caballing//KBLN +cabana/MS/KBN +cabaret/SM/KBRT +cabbage/MGSD/KBK +cabbed//KBT +cabbing//KBN +cabby's//KBS +cabdriver/SM/KBTRF +caber/M/KB +Cabernet/M/KBNT +cabin/GDMS/KBN +cabinet/MS/KBNT +cabinetmaker/SM/KBNTMK +cabinetmaking/MS/KBNTMKN +cabinetry/SM/KBNTR +cabinetwork/MS/KBNTWK +cable/GMDS/KBL +cablecast/SG/KBLKST +cablegram/SM/KBLKRM +cabochon/MS/KBXN +caboodle/SM/KBTL +caboose/MS/KBS +Cabot/M/KBT +Cabrera/M/KBRR +Cabrini/M/KBRN +cabriolet/MS/KBRLT +cabstand/MS/KBSTNT +cacao/SM/KK +cacciatore//KXTR +cache/DSRGM/KX +cachepot/MS/KXPT +cachet/MDGS/KXT +Cacilia/M/KSL +Cacilie/M/KSL +cackle/RSDGZ/KKL +cackler/M/KKL +cackly//KKL +CACM//KKM +cacophonist//KKFNST +cacophonous//KKFNS +cacophony/SM/KKFN +cacti//KKT +cactus/M/KKTS +CAD//KT +Cad/M/KT +cad/SM/KT +cadaver/SM/KTF +cadaverous/Y/KTFRS +caddish/PY/KTX +caddishness/SM/KTXNS +Caddric/M/KTRK +caddy/GSDM/KT +cadence/CSM/KTNS +cadenced//KTNST +cadencing//KTNSN +cadent/C/KTNT +cadenza/MS/KTNS +cadet/SM/KTT +Cadette/S/KTT +cadge/DSRGZ/KK +cadger/M/KKR +Cadillac/MS/KTLK +Cadiz/M/KTS +cadmium/MS/KTMM +cadre/SM/KTR +caducei//KTS +caduceus/M/KTSS +Caedmon/M/KTMN +Caesar/MS/KS +caesura/SM/KSR +café/MS/KF +cafeteria/SM/KFTR +caffeine/SM/KFN +caftan/SM/KFTN +Cage/M/KK +cage/MZGDRS/KK +caged/U/KKT +cager/M/KK +cagey/P/KK +cagier//KK +cagiest//KKST +cagily//KKL +caginess/MS/KKNS +Cagney/M/KKN +Cahokia/M/KHK +cahoot/MS/KHT +Cahra/M/KR +CAI//K +Caiaphas/M/KFS +caiman's//KMNS +Cain/MS/KN +Caine/M/KN +Cairistiona/M/KRSXN +cairn/SDM/KN +Cairo/M/KR +caisson/SM/KSN +caitiff/MS/KTF +Caitlin/M/KTLN +Caitrin/M/KTRN +cajole/LGZRSD/KKL +cajolement/MS/KKLMNT +cajoler/M/KKL +cajolery/SM/KKLR +Cajun/MS/KKN +cake/MGDS/KK +cakewalk/SMDG/KKWLK +cal/C/KL +Cal/MY/KL +calabash/SM/KLBX +calaboose/MS/KLBS +Calais/M/KLS +calamari/S/KLMR +calamine/GSDM/KLMN +calamitous/YP/KLMTS +calamitousness/M/KLMTSNS +calamity/MS/KLMT +calcareous/PY/KLKRS +calcareousness/M/KLKRSNS +calciferous//KLSFRS +calcification/M/KLSFKXN +calcify/XGNSD/KLSF +calcimine/GMSD/KLSMN +calcine/SDG/KLSN +calcite/SM/KLST +calcium/SM/KLSM +Calcomp/M/KLKMP +CalComp/M/KLKMP +CALCOMP/M/KLKMP +calculability/IM/KLKLBLT +calculable/IP/KLKLBL +calculate/AXNGDS/KLKLT +calculated/PY/KLKLTT +calculating/U/KLKLTN +calculatingly//KLKLTNL +calculation/AM/KLKLXN +calculative//KLKLTF +calculator/SM/KLKLT +calculi//KLKL +calculus/M/KLKLS +Calcutta/M/KLKT +Calder/M/KLT +caldera/SM/KLTR +Calderon/M/KLTRN +caldron's//KLTRNS +Caldwell/M/KLTWL +Cale/M/KL +Caleb/M/KLB +Caledonia/M/KLTN +calendar/MDGS/KLNT +calender/MDGS/KLNT +calf/M/KLF +calfskin/SM/KLFSKN +Calgary/M/KLKR +Calhoun/M/KLHN +Cali/M/KL +Caliban/M/KLBN +caliber/SM/KLB +calibrate/XNGSD/KLBRT +calibrated/U/KLBRTT +calibrater's//KLBRTS +calibrating/A/KLBRTN +calibration/M/KLBRXN +calibrator/MS/KLBRT +calico/M/KLK +calicoes//KLKS +Calida/M/KLT +Calif/M/KLF +California/M/KLFN +Californian/MS/KLFNN +californium/SM/KLFNM +calif's//KLFS +Caligula/M/KLKL +caliper/SDMG/KLP +caliph/M/KLF +caliphate/SM/KLFT +caliphs//KLFS +calisthenic/S/KLS@NK +calisthenics/M/KLS@NKS +call/AGRDBS/KL +calla/MS/KL +Calla/MS/KL +Callaghan/M/KLKN +Callahan/M/KLHN +Callao/M/KL +callback/S/KLBK +Callean/M/KLN +called/U/KLT +callee/M/KL +caller/MS/KL +Calley/M/KL +Calli/M/KL +Callida/M/KLT +Callie/M/KL +calligraph/RZ/KLKRF +calligrapher/M/KLKRF +calligraphic//KLKRFK +calligraphist/MS/KLKRFST +calligraphy/MS/KLKRF +calling/SM/KLN +Calliope/M/KLP +calliope/SM/KLP +callisthenics's//KLS@NKSS +Callisto/M/KLST +callosity/MS/KLST +callous/PGSDY/KLS +callousness/SM/KLSNS +callow/RTSP/KL +callowness/MS/KLNS +callus/SDMG/KLS +Cally/M/KL +calm/PGTYDRS/KLM +calming/Y/KLMN +calmness/MS/KLMNS +Caloocan/M/KLKN +caloric/S/KLRK +calorie/SM/KLR +calorific//KLRFK +calorimeter/MS/KLRMT +calorimetric//KLRMTRK +calorimetry/M/KLRMTR +Caltech/M/KLTX +Calumet/M/KLMT +calumet/MS/KLMT +calumniate/NGSDX/KLMNT +calumniation/M/KLMNXN +calumniator/SM/KLMNT +calumnious//KLMNS +calumny/MS/KLMN +Calv/M/KLF +calvary/M/KLFR +Calvary/M/KLFR +calve/GDS/KLF +Calvert/M/KLFT +calves/M/KLFS +Calvin/M/KLFN +Calvinism/MS/KLFNSM +Calvinist/MS/KLFNST +Calvinistic//KLFNSTK +calyces's//KLSSS +Calypso/M/KLPS +calypso/SM/KLPS +calyx/MS/KLKS +CAM//KM +Cam/M/KM +cam/MS/KM +Camacho/M/KMX +Camala/M/KML +camaraderie/SM/KMRTR +camber/DMSG/KMB +cambial//KMBL +cambium/SM/KMBM +Cambodia/M/KMBT +Cambodian/S/KMBTN +Cambrian/S/KMBRN +cambric/MS/KMBRK +Cambridge/M/KMBRK +camcorder/S/KMKT +Camden/M/KMTN +came/SN/KM +Camel/M/KML +camel/SM/KML +camelhair's//KMLHS +Camella/M/KML +Camellia/M/KML +camellia/MS/KML +Camelopardalis/M/KMLPTLS +Camelot/M/KMLT +Camembert/MS/KMMBT +cameo/GSDM/KM +camera/MS/KMR +camerae//KMR +cameraman/M/KMRMN +cameramen//KMRMN +camerawoman//KMRWMN +camerawomen//KMRWMN +Cameron/M/KMRN +Cameroon/SM/KMRN +Cameroonian/S/KMRNN +Camey/M/KM +Cami/M/KM +Camila/M/KML +Camile/M/KML +Camilla/M/KML +Camille/M/KML +Camino/M/KMN +camion/M/KMN +camisole/MS/KMSL +cammed//KMT +Cammi/M/KM +Cammie/M/KM +Cammy/M/KM +Camoens/M/KMNS +camomile's//KMMLS +camouflage/DRSGZM/KMFLK +camouflager/M/KMFLK +camp/SCGD/KMP +campaign/ZMRDSG/KMPN +campaigner/M/KMPKN +campanile/SM/KMPNL +campanological//KMPNLKKL +campanologist/SM/KMPNLKST +campanology/MS/KMPNLK +Campbell/M/KMPBL +Campbellsport/M/KMPBLSPT +camper/SM/KMP +campesinos//KMPSNS +campest//KMPST +campfire/SM/KMPFR +campground/MS/KMPKRNT +camphor/MS/KMF +Campinas/M/KMPNS +camping/S/KMPN +Campos//KMPS +camp's//KMPS +campsite/MS/KMPST +campus/GSDM/KMPS +campy/RT/KMP +Camry/M/KMR +camshaft/SM/KMXFT +Camus/M/KMS +Can/M/KN +can/MDRSZGJ/KN +Canaan/M/KNN +Canaanite/SM/KNNT +Canad/M/KNT +Canada/M/KNT +Canadian/S/KNTN +Canadianism/SM/KNTNSM +canal/SGMD/KNL +Canaletto/M/KNLT +canalization/MS/KNLSXN +canalize/GSD/KNLS +canapé/S/KNP +canard/MS/KNT +Canaries//KNRS +canary/SM/KNR +canasta/SM/KNST +Canaveral/M/KNFRL +Canberra/M/KNBR +cancan/SM/KNKN +cancel/RDZGS/KNSL +cancelate/D/KNSLT +canceled/U/KNSLT +canceler/M/KNSL +cancellation/MS/KNSLXN +cancer/MS/KNS +Cancer/MS/KNS +cancerous/Y/KNSRS +Cancun/M/KNKN +Candace/M/KNTS +candelabra/S/KNTLBR +candelabrum/M/KNTLBRM +Candi/SM/KNT +Candice/M/KNTS +candid/TRYPS/KNTT +Candida/M/KNTT +candidacy/MS/KNTTS +candidate/SM/KNTTT +candidature/S/KNTTTR +Candide/M/KNTT +candidly/U/KNTTL +candidness/SM/KNTTNS +Candie/M/KNT +candle/GMZRSD/KNTL +candlelight/SMR/KNTLLT +candlelit//KNTLLT +candlepower/SM/KNTLPW +candler/M/KNTL +candlestick/SM/KNTLSTK +Candlewick/M/KNTLWK +candlewick/MS/KNTLWK +candor/MS/KNT +Candra/M/KNTR +candy/GSDM/KNT +Candy/M/KNT +cane/SM/KN +canebrake/SM/KNBRK +caner/M/KN +canine/S/KNN +caning/M/KNN +Canis/M/KNS +canister/SGMD/KNST +canker/SDMG/KNK +cankerous//KNKRS +cannabis/MS/KNBS +canned//KNT +cannelloni//KNLN +canner/SM/KN +cannery/MS/KNR +Cannes//KNS +cannibal/SM/KNBL +cannibalism/MS/KNBLSM +cannibalistic//KNBLSTK +cannibalization/SM/KNBLSXN +cannibalize/GSD/KNBLS +cannily/U/KNL +canniness/UM/KNNS +canninesses//KNNSS +canning/M/KNN +cannister/SM/KNST +Cannon/M/KNN +cannon/SDMG/KNN +cannonade/SDGM/KNNT +cannonball/SGDM/KNNBL +cannot//KNT +canny/RPUT/KN +canoe/DSGM/KN +canoeist/SM/KNST +Canoga/M/KNK +canon/SM/KNN +canonic//KNNK +canonical/SY/KNNKL +canonicalization//KNNKLSXN +canonicalize/GSD/KNNKLS +canonist/M/KNNST +canonization/MS/KNNSXN +canonize/SDG/KNNS +canonized/U/KNNST +Canopus/M/KNPS +canopy/GSDM/KNP +canst//KNST +can't//KNT +cant/CZGSRD/KNT +cantabile/S/KNTBL +Cantabrigian//KNTBRKN +cantaloupe/MS/KNTLP +cantankerous/PY/KNTNKRS +cantankerousness/SM/KNTNKRSNS +cantata/SM/KNTT +canted/IA/KNTT +canteen/MS/KNTN +canter/CM/KNT +Canterbury/M/KNTBR +cantered//KNTRT +cantering//KNTRN +canticle/SM/KNTKL +cantilever/SDMG/KNTLF +canto/MS/KNT +Canton/M/KNTN +canton/MGSLD/KNTN +cantonal//KNTNL +Cantonese/M/KNTNS +cantonment/SM/KNTNMNT +Cantor/M/KNT +cantor/MS/KNT +Cantrell/M/KNTRL +cant's//KNTS +cants/A/KNTS +Cantu/M/KNT +Canute/M/KNT +canvas/RSDMG/KNFS +canvasback/MS/KNFSBK +canvass/RSDZG/KNFS +canvasser/M/KNFS +canyon/MS/KNYN +CAP//KP +cap/MDRSZB/KP +capability/ISM/KPBLT +capable/PI/KPBL +capableness/IM/KPBLNS +capabler//KPBL +capablest//KPBLST +capably/I/KPBL +capacious/PY/KPSS +capaciousness/MS/KPSSNS +capacitance/SM/KPSTNS +capacitate/V/KPSTT +capacitive/Y/KPSTF +capacitor/MS/KPST +capacity/IMS/KPST +caparison/SDMG/KPRSN +cape/SM/KP +Capek/M/KPK +Capella/M/KPL +caper/GDM/KP +capeskin/SM/KPSKN +Capet/M/KPT +Capetown/M/KPTN +Caph/M/KF +capillarity/MS/KPLRT +capillary/S/KPLR +Capistrano/M/KPSTRN +capita/M/KPT +capital/SMY/KPTL +capitalism/SM/KPTLSM +capitalist/SM/KPTLST +capitalistic//KPTLSTK +capitalistically//KPTLSTKL +capitalization/SMA/KPTLSXN +capitalize/RSDGZ/KPTLS +capitalized/AU/KPTLST +capitalizer/M/KPTLS +capitalizes/A/KPTLSS +Capitan/M/KPTN +capitation/CSM/KPTXN +Capitol/MS/KPTL +capitol/SM/KPTL +Capitoline/M/KPTLN +capitulate/AXNGSD/KPTLT +capitulation/MA/KPTLXN +caplet/S/KPLT +capo/SM/KP +capon/SM/KPN +Capone/M/KPN +Capote/M/KPT +capped/UA/KPT +capping/M/KPN +cappuccino/MS/KPSN +Cappy/M/KP +Capra/M/KPR +Capri/M/KPR +Caprice/M/KPRS +caprice/MS/KPRS +capricious/PY/KPRSS +capriciousness/MS/KPRSSNS +Capricorn/MS/KPRKN +caps/AU/KPS +capsicum/MS/KPSKM +capsize/SDG/KPSS +capstan/MS/KPSTN +capstone/MS/KPSTN +capsular//KPSL +capsule/MGSD/KPSL +capsulize/GSD/KPSLS +Capt/M/KPT +capt/V/KPT +captain/SGDM/KPTN +captaincy/MS/KPTNS +caption/GSDRM/KPXN +captious/PY/KPXS +captiousness/SM/KPXSNS +captivate/XGNSD/KPTFT +captivation/M/KPTFXN +captivator/SM/KPTFT +captive/MS/KPTF +captivity/SM/KPTFT +captor/SM/KPT +capture/AGSD/KPTR +capturer/MS/KPTR +Capulet/M/KPLT +Caputo/M/KPT +Car/MNY/K +car/ZGSMDR/K +Cara/M/KR +Caracalla/M/KRKL +Caracas/M/KRKS +caracul's//KRKLS +carafe/SM/KRF +Caralie/M/KRL +caramel/MS/KRML +caramelize/SDG/KRMLS +carapace/SM/KRPS +carapaxes//KRPKSS +carat/SM/KRT +Caravaggio/M/KRFK +caravan/DRMGS/KRFN +caravaner/M/KRFN +caravansary/MS/KRFNSR +caravanserai's//KRFNSRS +caravel/MS/KRFL +caraway/MS/KRW +carbide/MS/KBT +carbine/MS/KBN +carbohydrate/MS/KBHTRT +carbolic//KBLK +Carboloy/M/KBL +carbon/MS/KBN +carbonaceous//KBNSS +carbonate/SDXMNG/KBNT +carbonation/M/KBNXN +Carbondale/M/KBNTL +Carbone/MS/KBN +carbonic//KBNK +carboniferous//KBNFRS +Carboniferous//KBNFRS +carbonization/SAM/KBNSXN +carbonize/ZGRSD/KBNS +carbonizer/AS/KBNS +carbonizer's//KBNSS +carbonizes/A/KBNSS +carbonyl/M/KBNL +carborundum//KBRNTM +Carborundum/MS/KBRNTM +carboy/MS/KB +carbuncle/SDM/KBNKL +carbuncular//KBNKL +carburetor/MS/KBRT +carburetter/S/KBRT +carburettor/SM/KBRT +carcase/MS/KKS +carcass/SM/KKS +Carce/M/KS +carcinogen/SM/KSNKN +carcinogenic//KSNKNK +carcinogenicity/MS/KSNKNST +carcinoma/SM/KSNM +card/EDRSG/KT +cardamom/MS/KTMM +cardboard/MS/KTBT +Cardenas/M/KTNS +carder/MS/KT +carder's/E/KTS +cardholders//KTHLTS +cardiac/S/KTK +Cardiff/M/KTF +cardigan/SM/KTKN +Cardin/M/KTN +cardinal/SYM/KTNL +cardinality/SM/KTNLT +carding/M/KTN +Cardiod/M/KTT +cardiogram/MS/KTKRM +cardiograph/M/KTKRF +cardiographs//KTKRFS +cardioid/M/KTT +cardiologist/SM/KTLKST +cardiology/MS/KTLK +cardiomegaly/M/KTMKL +cardiopulmonary//KTPLMNR +cardiovascular//KTFSKL +card's//KTS +cardsharp/ZSMR/KTXP +CARE//KR +Care/M/KR +care/S/KR +cared/U/KRT +careen/DSG/KRN +career/SGRDM/KR +careerism/M/KRRSM +careerist/MS/KRRST +carefree//KRFR +careful/PY/KRFL +carefuller//KRFL +carefullest//KRFLST +carefulness/MS/KRFLNS +caregiver/S/KRKF +careless/YP/KRLS +carelessness/MS/KRLSNS +Caren/M/KRN +Carena/M/KRN +carer/M/KR +Caresa/M/KRS +caress/SRDMVG/KRS +Caressa/M/KRS +Caresse/M/KRS +caresser/M/KRS +caressing/Y/KRSN +caressive/Y/KRSF +caret/SM/KRT +caretaker/SM/KRTK +careworn//KRWN +Carey/M/KR +carfare/MS/KFR +cargo/M/KK +cargoes//KKS +carhop/SM/KHP +carhopped//KHPT +carhopping//KHPN +Cari/M/KR +Caria/M/KR +Carib/M/KRB +Caribbean/S/KRBN +caribou/MS/KRB +caricature/GMSD/KRKTR +caricaturisation//KRKTRSXN +caricaturist/MS/KRKTRST +caricaturization//KRKTRSXN +Carie/M/KR +caries/M/KRS +Caril/M/KRL +carillon/SM/KRLN +carillonned//KRLNT +carillonning//KRLNN +Carilyn/M/KRLN +Carin/M/KRN +Carina/M/KRN +Carine/M/KRN +caring/U/KRN +Cariotta/M/KRT +carious//KRS +Carissa/M/KRS +Carita/M/KRT +Caritta/M/KRT +carjack/GSJDRZ/KKK +Carl/MNG/KL +Carla/M/KL +Carlee/M/KL +Carleen/M/KLN +Carlen/M/KLN +Carlene/M/KLN +Carleton/M/KLTN +Carletonian/M/KLTNN +Carley/M/KL +Carlie/M/KL +Carlin/M/KLN +Carlina/M/KLN +Carline/M/KLN +Carling/M/KLN +Carlita/M/KLT +Carlo/SM/KL +carload/MSG/KLT +Carlota/M/KLT +Carlotta/M/KLT +Carlsbad/M/KLSBT +Carlson/M/KLSN +Carlton/M/KLTN +Carly/M/KL +Carlye/M/KLY +Carlyle/M/KLL +Carlyn/M/KLN +Carlynn/M/KLN +Carlynne/M/KLN +Carma/M/KM +Carmel/M/KML +Carmela/M/KML +Carmelia/M/KML +Carmelina/M/KMLN +Carmelita/M/KMLT +Carmella/M/KML +Carmelle/M/KML +Carmelo/M/KML +Carmen/M/KMN +Carmencita/M/KMNST +Carmichael/M/KMXL +Carmina/M/KMN +Carmine/M/KMN +carmine/MS/KMN +Carmita/M/KMT +Carmon/M/KMN +carnage/MS/KNK +carnal/Y/KNL +carnality/SM/KNLT +Carnap/M/KNP +carnation/IMS/KNXN +Carnegie/M/KNK +carnelian/SM/KNLN +Carney/M/KN +carney's//KNS +carnival/MS/KNFL +carnivore/SM/KNFR +carnivorous/YP/KNFRS +carnivorousness/MS/KNFRSNS +Carnot/M/KNT +Carny/M/KN +carny/SDG/KN +Caro/M/KR +carob/SM/KRB +Carol/M/KRL +carol/SGZMRD/KRL +Carola/M/KRL +Carolan/M/KRLN +Carolann/M/KRLN +Carole/M/KRL +Carolee/M/KRL +caroler/M/KRL +Carolin/M/KRLN +Carolina/MS/KRLN +Caroline/M/KRLN +Carolingian//KRLNN +Carolinian/S/KRLNN +Caroljean/M/KRLKN +Carolus/M/KRLS +Carolyn/M/KRLN +Carolyne/M/KRLN +Carolynn/M/KRLN +carom/GSMD/KRM +Caron/M/KRN +carotene/MS/KRTN +carotid/MS/KRTT +carousal/MS/KRSL +carouse/SRDZG/KRS +carousel/MS/KRSL +carouser/M/KRS +carp/MDRSGZ/KP +carpal/SM/KPL +Carpathian/MS/KP@N +carpel/SM/KPL +carpenter/DSMG/KPNT +Carpenter/M/KPNT +carpentering/M/KPNTRN +carpentry/MS/KPNTR +carper/M/KP +carpet/MDJGS/KPT +carpetbag/MS/KPTBK +carpetbagged//KPTBKT +carpetbagger/MS/KPTBK +carpetbagging//KPTBKN +carpeting/M/KPTN +carpi/M/KP +carping/Y/KPN +carpool/DGS/KPL +carport/MS/KPT +carpus/M/KPS +Carr/M/KR +carrageen/M/KRKN +Carree/M/KR +carrel/SM/KRL +Carri/M/KR +carriage/SM/KRK +carriageway/SM/KRKW +Carrie/M/KR +carrier/M/KR +Carrier/M/KR +Carrillo/M/KRL +carrion/SM/KRN +Carrissa/M/KRS +Carrol/M/KRL +Carroll/M/KRL +carrot/MS/KRT +carroty/RT/KRT +carrousel's//KRSLS +Carry/MR/KR +carry/RSDZG/KR +carryall/MS/KRYL +carryout/S/KRYT +carryover/S/KRYF +carsick/P/KSK +carsickness/SM/KSKNS +Carson/M/KSN +cart/MDRGSZ/KT +Cart/MR/KT +cartage/MS/KTK +carte/M/KT +cartel/SM/KTL +carter/M/KT +Carter/M/KT +Cartesian//KTXN +Carthage/M/K@K +Carthaginian/S/K@KNN +carthorse/MS/K@S +Cartier/M/KT +cartilage/MS/KTLK +cartilaginous//KTLKNS +cartload/MS/KTLT +cartographer/MS/KTKRF +cartographic//KTKRFK +cartography/MS/KTKRF +carton/GSDM/KTN +cartoon/GSDM/KTN +cartoonist/MS/KTNST +cartridge/SM/KTRK +cartwheel/MRDGS/KTHL +Cartwright/M/KTRT +Carty/RM/KT +Caruso/M/KRS +carve/DSRJGZ/KF +carven//KFN +carver/M/KF +Carver/M/KF +carving/M/KFN +Cary/M/KR +caryatid/MS/KRYTT +Caryl/M/KRL +Caryn/M/KRN +casaba/SM/KSB +Casablanca/M/KSBLNK +Casals/M/KSLS +Casandra/M/KSNTR +Casanova/SM/KSNF +Casar/M/KS +casbah/M/KSB +cascade/MSDG/KSKT +Cascades/M/KSKTS +cascara/MS/KSKR +case/DSJMGL/KS +Case/M/KS +casebook/SM/KSBK +cased/U/KST +caseharden/SGD/KSHTN +casein/SM/KSN +caseload/MS/KSLT +casement/SM/KSMNT +casework/ZMRS/KSWK +caseworker/M/KSWK +Casey/M/KS +cash/GZMDSR/KX +Cash/M/KX +cashbook/SM/KXBK +cashew/MS/KX +cashier/SDMG/KX +cashless//KXLS +cashmere/MS/KXMR +Casi/M/KS +Casie/M/KS +casing/M/KSN +casino/MS/KSN +cask/GSDM/KSK +casket/SGMD/KSKT +Caspar/M/KSP +Casper/M/KSP +Caspian//KSPN +Cass//KS +Cassandra/SM/KSNTR +Cassandre/M/KSNTR +Cassandry/M/KSNTR +Cassatt/M/KST +Cassaundra/M/KSNTR +cassava/MS/KSF +casserole/MGSD/KSRL +cassette/SM/KST +Cassey/M/KS +Cassi/M/KS +cassia/MS/KX +Cassie/M/KS +cassino's//KSNS +Cassiopeia/M/KXP +Cassite/M/KST +Cassius/M/KSS +cassock/SDM/KSK +Cassondra/M/KSNTR +cassowary/SM/KSWR +Cassy/M/KS +cast/GZSJMDR/KST +Castaneda/M/KSTNT +castanet/SM/KSTNT +castaway/SM/KSTW +caste/MHS/KST +castellated//KSTLTT +caster/M/KST +castigate/XGNSD/KSTKT +castigation/M/KSTKXN +castigator/SM/KSTKT +Castile's//KSTLS +Castillo/M/KSTL +casting/M/KSTN +castle/GMSD/KSTL +castoff/S/KSTF +Castor/M/KST +castor's//KSTS +castrate/DSNGX/KSTRT +castration/M/KSTRXN +Castries/M/KSTRS +Castro/M/KSTR +casts/A/KSTS +casual/SYP/KSL +casualness/SM/KSLNS +casualty/SM/KSLT +casuist/MS/KSST +casuistic//KSSTK +casuistry/SM/KSSTR +cat/SMRZ/KT +cataclysm/MS/KTKLSM +cataclysmal//KTKLSML +cataclysmic//KTKLSMK +catacomb/MS/KTKM +catafalque/SM/KTFLK +Catalan/MS/KTLN +catalepsy/MS/KTLPS +cataleptic/S/KTLPTK +Catalina/M/KTLN +catalog/SDRMZG/KTLK +cataloger/M/KTLK +Catalonia/M/KTLN +catalpa/SM/KTLP +catalysis/M/KTLSS +catalyst/SM/KTLST +catalytic//KTLTK +catalytically//KTLTKL +catalyze/DSG/KTLS +catamaran/MS/KTMRN +catapult/MGSD/KTPLT +cataract/MS/KTRKT +Catarina/M/KTRN +catarrh/M/KTRH +catarrhs//KTRHS +catastrophe/SM/KTSTRF +catastrophic//KTSTRFK +catastrophically//KTSTRFKL +catatonia/MS/KTTN +catatonic/S/KTTNK +Catawba/M/KTB +catbird/MS/KTBT +catboat/SM/KTBT +catcall/SMDG/KTKL +catch/BRSJLGZ/KX +catchable/U/KXBL +catchall/MS/KXL +catcher/M/KX +catchment/SM/KXMNT +catchpenny/S/KXPN +catchphrase/S/KXFRS +catchup/MS/KXP +catchword/MS/KXWT +catchy/TR/KX +Cate/M/KT +catechism/MS/KTXSM +catechist/SM/KTXST +catechize/SDG/KTXS +catecholamine/MS/KTXLMN +categoric//KTKRK +categorical/Y/KTKRKL +categorization/MS/KTKRSXN +categorize/RSDGZ/KTKRS +categorized/AU/KTKRST +category/MS/KTKR +catenate/NF/KTNT +catenation/MF/KTNXN +cater/GRDZ/KT +catercorner//KTKN +caterer/M/KTR +Caterina/M/KTRN +catering/M/KTRN +Caterpillar//KTPL +caterpillar/SM/KTPL +caterwaul/DSG/KTWL +catfish/MS/KTFX +catgut/SM/KTKT +Catha/M/K@ +Catharina/M/K@RN +Catharine/M/K@RN +catharses//K@SS +catharsis/M/K@SS +cathartic/S/K@TK +Cathay/M/K@ +Cathe/RM/K@ +cathedral/SM/K@TRL +Cathee/M/K@ +Cather/M/K@ +Catherin/M/K@RN +Catherina/M/K@RN +Catherine/M/K@RN +catheter/SM/K@T +catheterize/GSD/K@TRS +Cathi/M/K@ +Cathie/M/K@ +Cathleen/M/K@LN +Cathlene/M/K@LN +cathode/MS/K@T +cathodic//K@TK +catholic/MS/K@LK +Catholic/S/K@LK +catholicism//K@LSSM +Catholicism/SM/K@LSSM +catholicity/MS/K@LST +Cathrin/M/K@RN +Cathrine/M/K@RN +Cathryn/M/K@RN +Cathy/M/K@ +Cathyleen/M/K@LN +Cati/M/KT +Catie/M/KT +Catiline/M/KTLN +Catina/M/KTN +cation/MS/KXN +cationic//KXNK +catkin/SM/KTKN +Catlaina/M/KTLN +Catlee/M/KTL +catlike//KTLK +Catlin/M/KTLN +catnap/SM/KTNP +catnapped//KTNPT +catnapping//KTNPN +catnip/MS/KTNP +Cato/M/KT +Catrina/M/KTRN +Catriona/M/KTRN +Catskill/SM/KTSKL +catsup's//KTSPS +Catt/M/KT +cattail/SM/KTL +catted//KTT +cattery/M/KTR +cattily//KTL +cattiness/SM/KTNS +catting//KTN +cattle/M/KTL +cattleman/M/KTLMN +cattlemen//KTLMN +catty/PRST/KT +Catullus/M/KTLS +CATV//KTF +catwalk/MS/KTWLK +Caty/M/KT +Caucasian/S/KKXN +Caucasoid/S/KKST +Caucasus/M/KKSS +Cauchy/M/KX +caucus/SDMG/KKS +caudal/Y/KTL +caught/U/KT +cauldron/MS/KLTRN +cauliflower/MS/KLFLW +caulk/JSGZRD/KLK +caulker/M/KLK +causal/YS/KSL +causality/SM/KSLT +causate/XVN/KST +causation/M/KSXN +causative/SY/KSTF +cause/DSRGMZ/KS +caused/U/KST +causeless//KSLS +causer/M/KS +causerie/MS/KSR +causeway/SGDM/KSW +caustic/YS/KSTK +caustically//KSTKL +causticity/MS/KSTST +cauterization/SM/KTRSXN +cauterize/GSD/KTRS +cauterized/U/KTRST +caution/GJDRMSZ/KXN +cautionary//KXNR +cautioner/M/KXN +cautious/PIY/KXS +cautiousness/SM/KXSNS +cautiousness's/I/KXSNSS +cavalcade/MS/KFLKT +cavalier/SGYDP/KFL +cavalierness/M/KFLNS +cavalry/MS/KFLR +cavalryman/M/KFLRMN +cavalrymen//KFLRMN +cave/GFRSD/KF +caveat/SM/KFT +caveatted//KFTT +caveatting//KFTN +caveman/M/KFMN +cavemen//KFMN +Cavendish/M/KFNTX +caver/M/KF +cavern/GSDM/KFN +cavernous/Y/KFNS +cave's//KFS +caviar/MS/KF +cavil/SJRDGZ/KFL +caviler/M/KFL +caving/MS/KFN +cavity/MFS/KFT +cavort/SDG/KFT +Cavour/M/KF +caw/SMDG/K +Caxton/M/KKSTN +cay/SC/K +Caye/M/KY +Cayenne/M/KYN +cayenne/SM/KYN +Cayla/M/KL +Cayman/M/KMN +cayman/SM/KMN +cay's//KS +Cayuga/M/KYK +cayuse/SM/KYS +Caz/M/KS +Cazzie/M/KS +CB//KB +Cb/M/KB +CBC//KBK +CBS//KBS +cc//K +Cchaddie/M/XT +CCTV//KTF +CCU//K +CD//KT +Cd/M/KT +CDC/M/KTK +CDT//KTT +Ce//S +cease/DSCG/SS +ceasefire/S/SSFR +ceaseless/YP/SSLS +ceaselessness/SM/SSLSNS +ceasing/U/SSN +Ceausescu/M/SSSK +Cebu/M/SB +Cebuano/M/SBN +ceca//SK +cecal//SKL +Cece/M/SS +Cecelia/M/SSL +Cecil/M/SSL +Cecile/M/SSL +Ceciley/M/SSL +Cecilia/M/SSL +Cecilio/M/SSL +Cecilius/M/SSLS +Cecilla/M/SSL +Cecily/M/SSL +cecum/M/SKM +Ced/M/ST +cedar/SM/ST +cede/FRSDG/ST +ceded/A/STT +ceder/SM/ST +ceder's/F/STS +cedes/A/STS +cedilla/SM/STL +ceding/A/STN +Cedric/M/STRK +Ceil/M/SL +ceilidh/M/SLTH +ceiling/MDS/SLN +celandine/MS/SLNTN +Celanese/M/SLNS +Cele/M/SL +Celebes's//SLBSS +celebrant/MS/SLBRNT +celebrate/XSDGN/SLBRT +celebrated/P/SLBRTT +celebratedness/M/SLBRTTNS +celebration/M/SLBRXN +celebrator/MS/SLBRT +celebratory//SLBRTR +celebrity/MS/SLBRT +Celene/M/SLN +celerity/SM/SLRT +celery/SM/SLR +Celesta/M/SLST +celesta/SM/SLST +Celeste/M/SLST +Celestia/M/SLSX +celestial/YS/SLSXL +Celestina/M/SLSTN +Celestine/M/SLSTN +Celestyn/M/SLSTN +Celestyna/M/SLSTN +Celia/M/SL +celibacy/MS/SLBS +celibate/SM/SLBT +Celie/M/SL +Celina/M/SLN +Celinda/M/SLNT +Celine/M/SLN +Celinka/M/SLNK +Celisse/M/SLS +Celka/M/SLK +cell/GMDS/SL +cellar/RDMGS/SL +cellarer/M/SLR +Celle/M/SL +Cellini/M/SLN +cellist/SM/SLST +Cello/M/SL +cello/MS/SL +cellophane/SM/SLFN +cellphone/S/SLFN +cellular/SY/SLL +cellulite/S/SLLT +celluloid/SM/SLLT +cellulose/SM/SLLS +Celsius/S/SLSS +Celt/MS/SLT +Celtic/SM/SLTK +cement/ZGMRDS/SMNT +cementa//SMNT +cementer/M/SMNT +cementum/SM/SMNTM +cemetery/MS/SMTR +cenobite/MS/SNBT +cenobitic//SNBTK +cenotaph/M/SNTF +cenotaphs//SNTFS +Cenozoic//SNSK +censer/MS/SNS +censor/GDMS/SNS +censored/U/SNSRT +censorial//SNSRL +censorious/YP/SNSRS +censoriousness/MS/SNSRSNS +censorship/MS/SNSXP +censure/BRSDZMG/SNSR +censurer/M/SNSR +census/SDMG/SNSS +cent/SZMR/SNT +centaur/SM/SNT +Centaurus/M/SNTRS +centavo/SM/SNTF +centenarian/MS/SNTNRN +centenary/S/SNTNR +centennial/YS/SNTNL +center/AC/SNT +centerboard/SM/SNTBT +centered//SNTRT +centerer/S/SNTR +centerfold/S/SNTFLT +centering/SM/SNTRN +centerline/SM/SNTLN +centerpiece/SM/SNTPS +center's//SNTS +Centigrade//SNTKRT +centigrade/S/SNTKRT +centigram/SM/SNTKRM +centiliter/MS/SNTLT +centime/SM/SNTM +centimeter/SM/SNTMT +centipede/MS/SNTPT +central/STRY/SNTRL +Centralia/M/SNTRL +centralism/M/SNTRLSM +centralist/M/SNTRLST +centrality/MS/SNTRLT +centralization/CAMS/SNTRLSXN +centralize/CGSD/SNTRLS +centralizer/SM/SNTRLS +centralizes/A/SNTRLSS +centrefold's//SNTRFLTS +Centrex//SNTRKS +CENTREX/M/SNTRKS +centric/F/SNTRK +centrifugal/SY/SNTRFKL +centrifugate/NM/SNTRFKT +centrifugation/M/SNTRFKXN +centrifuge/GMSD/SNTRFK +centripetal/Y/SNTRPTL +centrist/MS/SNTRST +centroid/MS/SNTRT +centurion/MS/SNTRN +century/MS/SNTR +CEO//S +cephalic/S/SFLK +Cepheid//SFT +Cepheus/M/SFS +ceramic/MS/SRMK +ceramicist/S/SRMSST +ceramist/MS/SRMST +cerate/MD/SRT +Cerberus/M/SBRS +cereal/MS/SRL +cerebellar//SRBL +cerebellum/MS/SRBLM +cerebra//SRBR +cerebral/SY/SRBRL +cerebrate/XSDGN/SRBRT +cerebration/M/SRBRXN +cerebrum/MS/SRBRM +cerement/SM/SRMNT +ceremonial/YSP/SRMNL +ceremonious/YUP/SRMNS +ceremoniousness/MS/SRMNSNS +ceremoniousness's/U/SRMNSNSS +ceremony/MS/SRMN +Cerenkov/M/SRNKF +Ceres/M/SRS +Cerf/M/SF +cerise/SM/SRS +cerium/MS/SRM +cermet/SM/SMT +CERN/M/SN +cert/FS/ST +certain/UY/STN +certainer//STN +certainest//STNST +certainty/UMS/STNT +certifiable//STFBL +certifiably//STFBL +certificate/SDGM/STFKT +certification/AMC/STFKXN +certified/U/STFT +certifier/M/STF +certify/DRSZGNX/STF +certiorari/M/SXRR +certitude/ISM/STTT +cerulean/MS/SRLN +Cervantes/M/SFNTS +cervical//SFKL +cervices/M/SFSS +cervix/M/SFKS +Cesar/M/SS +Cesare/M/SSR +Cesarean//SSRN +cesarean/S/SSRN +Cesaro/M/SSR +cesium/MS/SSM +cessation/SM/SSXN +cession/FAMSK/SXN +Cessna/M/SSN +cesspit/M/SSPT +cesspool/SM/SSPL +Cesya/M/SSY +cetacean/S/STSN +cetera/S/STR +Cetus/M/STS +Ceylon/M/SLN +Ceylonese//SLNS +Cezanne/S/SSN +cf//KF +CF//KF +Cf/M/KF +CFC//KFK +CFO//KF +cg//KK +Ch/MGNRS/X +ch/VT/X +Chablis/SM/XBLS +Chad/M/XT +Chadd/M/XT +Chaddie/M/XT +Chaddy/M/XT +Chadian/S/XTN +Chadwick/M/XTWK +chafe/GDSR/XF +chafer/M/XF +chaff/GRDMS/XF +chaffer/DRG/XF +chafferer/M/XFR +Chaffey/M/XF +chaffinch/SM/XFNX +Chagall/M/XKL +chagrin/DGMS/XKRN +Chaim/M/XM +chain/SGUD/XN +chainlike//XNLK +chain's//XNS +chainsaw/SGD/XNS +chair/SGDM/X +chairlady/M/XLT +chairlift/MS/XLFT +chairman/MDGS/XMN +chairmanship/MS/XMNXP +chairmen//XMN +chairperson/MS/XPSN +chairwoman/M/XWMN +chairwomen//XWMN +chaise/SM/XS +chalcedony/MS/XLSTN +Chaldea/M/XLT +Chaldean/M/XLTN +chalet/SM/XLT +chalice/DSM/XLS +chalk/DSMG/XLK +chalkboard/SM/XLKBT +chalkiness/S/XLKNS +chalkline//XLKLN +chalky/RPT/XLK +challenge/ZGSRD/XLNK +challenged/U/XLNKT +challenger/M/XLNK +challenging/Y/XLNKN +challis/SM/XLS +Chalmers//XLMS +chamber/SZGDRM/XMB +chamberer/M/XMBR +Chamberlain/M/XMBLN +chamberlain/MS/XMBLN +chambermaid/MS/XMBMT +chamberpot/S/XMBPT +Chambers/M/XMBS +chambray/MS/XMBR +chameleon/SM/XMLN +chamfer/DMGS/XMF +chammy's//XMS +chamois/DSMG/XMS +chamomile/MS/XMML +champ/DGSZ/XMP +champagne/MS/XMPKN +champaign/M/XMPN +champion/MDGS/XMPN +championship/MS/XMPNXP +Champlain/M/XMPLN +Chan/M/XN +chance/GMRSD/XNS +Chance/M/XNS +chanced/M/XNST +chancel/SM/XNSL +chancellery/SM/XNSLR +chancellor/SM/XNSL +chancellorship/SM/XNSLXP +Chancellorsville/M/XNSLSFL +chancery/SM/XNSR +Chancey/M/XNS +chanciness/S/XNSNS +chancing/M/XNSN +chancre/SM/XNKR +chancy/RPT/XNS +Chanda/M/XNT +Chandal/M/XNTL +chandelier/SM/XNTL +Chandigarh/M/XNTKH +Chandler/M/XNTL +chandler/MS/XNTL +Chandra/M/XNTR +Chandragupta/M/XNTRKPT +Chandrasekhar/M/XNTRSKH +Chandy/M/XNT +Chane/M/XN +Chanel/M/XNL +Chaney/M/XN +Chang/M/XNK +Changchun/M/XNKXN +change/GZRSD/XNK +changeabilities//XNKBLTS +changeability/UM/XNKBLT +changeable/U/XNKBL +changeableness/SM/XNKBLNS +changeably/U/XNKBL +changed/U/XNKT +changeless//XNKLS +changeling/M/XNKLN +changeover/SM/XNKF +changer/M/XNK +changing/U/XNKN +Changsha/M/XNKX +Channa/M/XN +channel/MDRZSG/XNL +channeler/M/XNL +channeling/M/XNLN +channelization/SM/XNLSXN +channelize/GDS/XNLS +channellings//XNLNS +Channing/M/XNN +chanson/SM/XNSN +chant/SJGZMRD/XNT +Chantal/M/XNTL +Chantalle/M/XNTL +chanter/M/XNT +chanteuse/MS/XNTS +chantey/SM/XNT +chanticleer/SM/XNTKL +Chantilly/M/XNTL +chantry/MS/XNTR +chanty's//XNTS +Chanukah's//XNKS +Chao/M/X +chaos/SM/XS +chaotic//XTK +chaotically//XTKL +chap/MS/XP +chaparral/MS/XPRL +chapbook/SM/XPBK +chapeau/MS/XP +chapel/MS/XPL +chaperon/GMDS/XPRN +chaperonage/MS/XPRNK +chaperoned/U/XPRNT +chaperone's//XPRNS +chaplain/MS/XPLN +chaplaincy/MS/XPLNS +chaplet/SM/XPLT +Chaplin/M/XPLN +Chapman/M/XPMN +Chappaquiddick/M/XPKTK +chapped//XPT +chapping//XPN +chapter/SGDM/XPT +char/GS/X +Chara//XR +charabanc/MS/XRBNK +character/MDSG/XRKT +characterful//XRKTFL +characteristic/SM/XRKTRSTK +characteristically/U/XRKTRSTKL +characterizable/MS/XRKTRSBL +characterization/MS/XRKTRSXN +characterize/DRSBZG/XRKTRS +characterized/U/XRKTRST +characterizer/M/XRKTRS +characterless//XRKTLS +charade/SM/XRT +charbroil/SDG/XBRL +charcoal/MGSD/XKL +chard/SM/XT +Chardonnay//XTN +chardonnay/S/XTN +charge/EGRSDA/XK +chargeable/P/XKBL +chargeableness/M/XKBLNS +charged/U/XKT +charger/AME/XK +chargers//XKS +Charil/M/XRL +charily//XRL +Charin/M/XRN +chariness/MS/XRNS +Chariot/M/XRT +chariot/SMDG/XRT +charioteer/GSDM/XRT +Charis//XRS +charisma/M/XRSM +charismata//XRSMT +charismatic/S/XRSMTK +charismatically//XRSMTKL +Charissa/M/XRS +Charisse/M/XRS +Charita/M/XRT +charitable/UP/XRTBL +charitableness/UM/XRTBLNS +charitablenesses//XRTBLNSS +charitably/U/XRTBL +Charity/M/XRT +charity/MS/XRT +Charla/M/XL +charlady/M/XLT +charlatan/SM/XLTN +charlatanism/MS/XLTNSM +charlatanry/SM/XLTNR +Charlean/M/XLN +Charleen/M/XLN +Charlemagne/M/XLMKN +Charlena/M/XLN +Charlene/M/XLN +Charles/M/XLS +Charleston/SM/XLSTN +Charley/M/XL +Charlie/M/XL +Charline/M/XLN +Charlot/M/XLT +Charlotta/M/XLT +Charlotte/M/XLT +Charlottesville/M/XLTSFL +Charlottetown/M/XLTTN +Charlton/M/XLTN +charm/SGMZRD/XM +Charmain/M/XMN +Charmaine/M/XMN +Charmane/M/XMN +charmer/M/XM +Charmian/M/XMN +Charmin/M/XMN +Charmine/M/XMN +charming/RYT/XMN +Charmion/M/XMN +charmless//XMLS +Charo/M/XR +Charolais//XRLS +Charon/M/XRN +charred//XRT +charring//XRN +chart/SJMRDGBZ/XT +charted/U/XTT +charter/AGDS/XT +chartered/U/XTRT +charterer/SM/XTR +charter's//XTS +chartist/SM/XTST +Chartres/M/XTRS +chartreuse/MS/XTRS +chartroom/S/XTRM +charwoman/M/XWMN +charwomen//XWMN +chary/PTR/XR +Charybdis/M/XRBTS +Charyl/M/XRL +Chas//XS +chase/DSRGZ/XS +Chase/M/XS +chaser/M/XS +chasing/M/XSN +Chasity/M/XST +chasm/SM/XSM +chassis/M/XSS +chaste/UTR/XST +chastely//XSTL +chasten/GSD/XSTN +chasteness/SM/XSTNS +chastise/ZGLDRS/XSTS +chastisement/SM/XSTSMNT +chastiser/M/XSTS +Chastity/M/XSTT +chastity/SM/XSTT +chastity's/U/XSTTS +chasuble/SM/XSBL +chat/MS/XT +château/M/XT +Chateaubriand//XTBRNT +chateaus//XTS +châteaux//XTKS +châtelaine/SM/XTLN +Chattahoochee/M/XTHX +Chattanooga/M/XTNK +chatted//XTT +chattel/MS/XTL +chatter/SZGDRY/XT +chatterbox/MS/XTBKS +chatterer/M/XTR +Chatterley/M/XTL +Chatterton/M/XTTN +chattily//XTL +chattiness/SM/XTNS +chatting//XTN +chatty/RTP/XT +Chaucer/M/XS +chauffeur/GSMD/XF +Chaunce/M/XNS +Chauncey/M/XNS +Chautauqua/M/XTK +chauvinism/MS/XFNSM +chauvinist/MS/XFNST +chauvinistic//XFNSTK +chauvinistically//XFNSTKL +Chavez/M/XFS +chaw//X +Chayefsky/M/XYFSK +Che/M/X +cheap/YRNTXSP/XP +cheapen/DG/XPN +cheapish//XPX +cheapness/MS/XPNS +cheapskate/MS/XPSKT +cheat/RDSGZ/XT +cheater/M/XT +Chechen/M/XXN +Chechnya/M/XXNY +check/GZBSRDM/XK +checkable/U/XKBL +checkbook/MS/XKBK +checked/UA/XKT +checker/DMG/XK +checkerboard/MS/XKBT +checklist/S/XKLST +checkmate/MSDG/XKMT +checkoff/SM/XKF +checkout/S/XKT +checkpoint/MS/XKPNT +checkroom/MS/XKRM +checks/A/XKS +check's/A/XKS +checksum/SM/XKSM +checksummed//XKSMT +checksumming//XKSMN +checkup/MS/XKP +Cheddar/MS/XT +cheddar/S/XT +cheek/DMGS/XK +cheekbone/SM/XKBN +cheekily//XKL +cheekiness/SM/XKNS +cheeky/PRT/XK +cheep/GMDS/XP +cheer/YRDGZS/X +cheerer/M/XR +cheerful/YP/XFL +cheerfuller//XFL +cheerfullest//XFLST +cheerfulness/MS/XFLNS +cheerily//XRL +cheeriness/SM/XRNS +cheerio/S/XR +Cheerios/M/XRS +cheerleader/SM/XLT +cheerless/PY/XLS +cheerlessness/SM/XLSNS +cheers/S/XS +cheery/PTR/XR +cheese/SDGM/XS +cheeseburger/SM/XSBK +cheesecake/SM/XSKK +cheesecloth/M/XSKL@ +cheesecloths//XSKL@S +cheeseparing/S/XSPRN +cheesiness/SM/XSNS +cheesy/PRT/XS +cheetah/M/XT +cheetahs//XTS +Cheeto/M/XT +Cheever/M/XF +chef/SM/XF +cheffed//XFT +cheffing//XFN +Chekhov/M/XKHF +chelate/XDMNG/XLT +chelation/M/XLXN +Chelsae/M/XLS +Chelsea/M/XLS +Chelsey/M/XLS +Chelsie/M/XLS +Chelsy/M/XLS +Chelyabinsk/M/XLYBNSK +chem//XM +chemic//XMK +chemical/SYM/XMKL +chemiluminescence/M/XMLMNSNS +chemiluminescent//XMLMNSNT +chemise/SM/XMS +chemist/SM/XMST +chemistry/SM/XMSTR +chemotherapeutic/S/XM@RPTK +chemotherapy/SM/XM@RP +chemurgy/SM/XMK +Chen/M/XN +Cheng/M/XNK +Chengdu//XNKT +chenille/SM/XNL +Cheops/M/XPS +Cher/M/X +Chere/M/XR +Cherey/M/XR +Cheri/M/XR +Cherianne/M/XRN +Cherice/M/XRS +Cherida/M/XRT +Cherie/M/XR +Cherilyn/M/XRLN +Cherilynn/M/XRLN +Cherin/M/XRN +Cherise/M/XRS +cherish/GDRS/XRX +Cherish/M/XRX +cherisher/M/XRX +Cheriton/M/XRTN +Cherlyn/M/XLN +Chernenko/M/XNNK +Chernobyl/M/XNBL +Cherokee/MS/XRK +cheroot/MS/XRT +Cherri/M/XR +Cherrita/M/XRT +Cherry/M/XR +cherry/SM/XR +chert/MS/XT +cherub/SM/XRB +cherubic//XRBK +cherubim/S/XRBM +chervil/MS/XFL +Chery/M/XR +Cherye/M/XRY +Cheryl/M/XRL +Chesapeake/M/XSPK +Cheshire/M/XXR +Cheslie/M/XSL +chess/SM/XS +chessboard/SM/XSBT +chessman/M/XSMN +chessmen//XSMN +chest/MRDS/XST +Chester/M/XST +Chesterfield/M/XSTFLT +chesterfield/MS/XSTFLT +Chesterton/M/XSTTN +chestful/S/XSTFL +chestnut/SM/XSTNT +Cheston/M/XSTN +chesty/TR/XST +Chet/M/XT +Chev/M/XF +Chevalier/M/XFL +chevalier/SM/XFL +Cheviot/M/XFT +cheviot/S/XFT +Chevrolet/M/XFRLT +chevron/DMS/XFRN +Chevy/M/XF +chew/GZSDR/X +chewer/M/XW +chewiness/S/XWNS +chewy/RTP/X +Cheyenne/SM/XYN +chg//XK +chge//XK +Chi/M/X +chi/MS/X +Chiang/M/XNK +chianti/M/XNT +Chianti/S/XNT +chiaroscuro/SM/XRSKR +Chiarra/M/XR +Chiba/M/XB +Chic/M/XK +chic/SYRPT/XK +Chicago/M/XKK +Chicagoan/SM/XKKN +Chicana/MS/XKN +chicane/MGDS/XKN +chicanery/MS/XKNR +Chicano/MS/XKN +chichi/RTS/XX +Chick/M/XK +chick/XSNM/XK +chickadee/SM/XKT +Chickasaw/SM/XKS +chicken/GDM/XKN +chickenfeed//XKNFT +chickenhearted//XKNHTT +chickenpox/MS/XKNPKS +Chickie/M/XK +chickpea/MS/XKP +chickweed/MS/XKWT +Chicky/M/XK +chicle/MS/XKL +chicness/S/XKNS +Chico/M/XK +chicory/MS/XKR +chide/GDS/XT +chiding/Y/XTN +chief/YRMST/XF +chiefdom/MS/XFTM +chieftain/SM/XFTN +chiffon/MS/XFN +chiffonier/MS/XFN +chigger/MS/XK +chignon/MS/XKNN +Chihuahua/MS/XHH +chihuahua/S/XHH +chilblain/MS/XLBLN +child/GMYD/XLT +childbearing/MS/XLTBRN +childbirth/M/XLTB@ +childbirths//XLTB@S +childcare/S/XLTKR +childes//XLTS +childhood/MS/XLTHT +childish/YP/XLTX +childishness/SM/XLTXNS +childless/P/XLTLS +childlessness/SM/XLTLSNS +childlike/P/XLTLK +childlikeness/M/XLTLKNS +childminders//XLTMNTS +childproof/GSD/XLTPRF +childrearing//XLTRRN +children/M/XLTRN +Chile/MS/XL +Chilean/S/XLN +chile's//XLS +chili/M/XL +chilies//XLS +chill/MRDJGTZPS/XL +chiller/M/XL +chilliness/MS/XLNS +chilling/Y/XLN +chilli's//XLS +chillness/MS/XLNS +chilly/TPRS/XL +Chilton/M/XLTN +chimaera's//XMRS +chimaerical//XMRKL +Chimborazo/M/XMBRS +chime/DSRGMZ/XM +chimer/M/XM +Chimera/S/XMR +chimera/SM/XMR +chimeric//XMRK +chimerical//XMRKL +Chimiques//XMKS +chimney/SMD/XMN +chimp/MS/XMP +chimpanzee/SM/XMPNS +Chimu/M/XM +Ch'in//XN +Chin/M/XN +chin/SGDM/XN +China/M/XN +china/MS/XN +Chinaman/M/XNMN +Chinamen//XNMN +Chinatown/SM/XNTN +chinchilla/SM/XNXL +chine/MS/XN +Chinese/M/XNS +Ching/M/XN +chink/DMSG/XNK +chinless//XNLS +chinned//XNT +chinner/S/XN +chinning//XNN +chino/MS/XN +Chinook/MS/XNK +chinstrap/S/XNSTRP +chintz/SM/XNTS +chintzy/TR/XNTS +Chip/M/XP +chip/SM/XP +chipboard/M/XPBT +Chipewyan/M/XPYN +chipmunk/SM/XPMNK +chipped//XPT +Chippendale/M/XPNTL +chipper/DGS/XP +Chippewa/MS/XPW +chipping/MS/XPN +Chiquia/M/XK +Chiquita/M/XKT +chiral//XRL +Chirico/M/XRK +chirography/SM/XRKRF +chiropodist/SM/XRPTST +chiropody/MS/XRPT +chiropractic/MS/XRPRKTK +chiropractor/SM/XRPRKT +chirp/GDS/XP +chirpy/RT/XP +chirrup/DGS/XRP +chisel/ZGSJMDR/XSL +chiseler/M/XSL +Chisholm/M/XXLM +Chisinau/M/XSN +chit/SM/XT +chitchat/SM/XXT +chitchatted//XXTT +chitchatting//XXTN +chitin/SM/XTN +chitinous//XTNS +Chittagong/M/XTKNK +chitterlings//XTLNS +chivalric//XFLRK +chivalrous/YP/XFLRS +chivalrously/U/XFLRSL +chivalrousness/MS/XFLRSNS +chivalry/SM/XFLR +chive/GMDS/XF +chivvy/D/XFF +chivying//XFYN +chlamydia/S/XLMT +chlamydiae//XLMT +Chlo/M/XL +Chloe/M/XL +Chloette/M/XLT +chloral/MS/XLRL +chlorate/M/XLRT +chlordane/MS/XLTN +chloride/MS/XLRT +chlorinate/XDSGN/XLRNT +chlorinated/C/XLRNTT +chlorinates/C/XLRNTS +chlorination/M/XLRNXN +chlorine/MS/XLRN +Chloris//XLRS +chlorofluorocarbon/S/XLRFLRKBN +chloroform/DMSG/XLRFM +chlorophyll/SM/XLRFL +chloroplast/MS/XLRPLST +chloroquine/M/XLRKN +chm//XM +chock/SGRDM/XK +chockablock//XKBLK +chocoholic/S/XKHLK +chocolate/MS/XKLT +chocolaty//XKLT +Choctaw/MS/XKT +choice/RSMTYP/XS +choiceness/M/XSNS +choir/SDMG/X +choirboy/MS/XB +choirmaster/SM/XMST +choke/DSRGZ/XK +chokeberry/M/XKBR +chokecherry/SM/XKXR +choker/M/XK +chokes/M/XKS +choking/Y/XKN +choler/SM/XL +cholera/SM/XLR +choleric//XLRK +cholesterol/SM/XLSTRL +choline/M/XLN +cholinesterase/M/XLNSTRS +chomp/DSG/XMP +Chomsky/M/XMSK +Chongqing//XNKKN +choose/GZRS/XS +chooser/M/XS +choosiness/S/XSNS +choosy/RPT/XS +chop/S/XP +chophouse/SM/XFS +Chopin/M/XPN +chopped//XPT +chopper/SDMG/XP +choppily//XPL +choppiness/MS/XPNS +chopping//XPN +choppy/RPT/XP +chopstick/SM/XPSTK +choral/SY/XRL +chorale/MS/XRL +chord/SGMD/XT +chordal//XTL +chordata//XTT +chordate/MS/XTT +chording/M/XTN +chore/DSGNM/XR +chorea/MS/XR +choreograph/ZGDR/XRKRF +choreographer/M/XRKRF +choreographic//XRKRFK +choreographically//XRKRFKL +choreographs//XRKRFS +choreography/MS/XRKRF +chorines//XRNS +chorion/M/XRN +chorister/SM/XRST +choroid/S/XRT +chortle/ZGDRS/XTL +chortler/M/XTL +chorus/GDSM/XRS +chose/S/XS +chosen/U/XSN +Chou/M/X +chow/DGMS/X +chowder/SGDM/XT +Chretien/M/XRTN +Chris/M/XRS +chrism/SM/XRSM +chrissake//XRSK +Chrisse/M/XRS +Chrissie/M/XRS +Chrissy/M/XRS +Christ/SMN/XRST +Christa/M/XRST +Christabel/M/XRSTBL +Christabella/M/XRSTBL +Christal/M/XRSTL +Christalle/M/XRSTL +Christan/M/XRSTN +Christchurch/M/XRSXX +Christean/M/XRSTN +Christel/M/XRSTL +Christen/M/XRSTN +christen/SAGD/XRSTN +Christendom/MS/XRSTNTM +christened/U/XRSTNT +christening/SM/XRSTNN +Christensen/M/XRSTNSN +Christenson/M/XRSTNSN +Christi/M/XRST +Christian/MS/XRSXN +Christiana/M/XRSXN +Christiane/M/XRSXN +Christianity/SM/XRSXNT +Christianize/GSD/XRSXNS +Christiano/M/XRSXN +Christians/N/XRSXNS +Christiansen/M/XRSXNSN +Christie/SM/XRST +Christin/M/XRSTN +Christina/M/XRSTN +Christine/M/XRSTN +Christlike//XRSTLK +Christmas/SM/XRSTMS +Christmastide/SM/XRSTMSTT +Christmastime/S/XRSTMSTM +Christoffel/M/XRSTFL +Christoffer/M/XRSTF +Christoforo/M/XRSTFR +Christoper/M/XRSTP +Christoph/MR/XRSTF +Christophe/M/XRSTF +Christopher/M/XRSTF +Christophorus/M/XRSTFRS +Christos/M/XRSTS +Christye/M/XRSTY +Christyna/M/XRSTN +Christy's//XRSTS +Chrisy/M/XRS +chroma/M/XRM +chromate/M/XRMT +chromatic/PS/XRMTK +chromatically//XRMTKL +chromaticism/M/XRMTSSM +chromaticness/M/XRMTKNS +chromatics/M/XRMTKS +chromatin/MS/XRMTN +chromatogram/MS/XRMTKRM +chromatograph//XRMTKRF +chromatographic//XRMTKRFK +chromatography/M/XRMTKRF +chrome/GMSD/XRM +chromic//XRMK +chromite/M/XRMT +chromium/SM/XRMM +chromosomal//XRMSML +chromosome/MS/XRMSM +chromosphere/M/XRMSFR +chronic/S/XRNK +chronically//XRNKL +chronicle/SRDMZG/XRNKL +chronicled/U/XRNKLT +chronicler/M/XRNKL +chronograph/M/XRNKRF +chronographs//XRNKRFS +chronography//XRNKRF +chronological/Y/XRNLKKL +chronologist/MS/XRNLKST +chronology/MS/XRNLK +chronometer/MS/XRNMT +chronometric//XRNMTRK +Chrotoem/M/XRTM +Chrysa/M/XRS +chrysalids//XRSLTS +chrysalis/SM/XRSLS +chrysanthemum/MS/XRSN@MM +Chrysler/M/XRSL +Chrysostom/M/XRSSTM +Chrystal/M/XRSTL +Chryste/M/XRST +Chrystel/M/XRSTL +chub/MS/XB +chubbiness/SM/XBNS +chubby/RTP/XB +Chucho/M/XX +chuck/GSDM/XK +Chuck/M/XK +chuckhole/SM/XKHL +chuckle/DSG/XKL +chuckling/Y/XKLN +chuff/DM/XF +chug/MS/XK +chugged//XKT +chugging//XKN +Chukchi/M/XKX +chukka/S/XK +chum/MS/XM +Chumash/M/XMX +chummed//XMT +chummily//XML +chumminess/MS/XMNS +chumming//XMN +chummy/SRTP/XM +chump/MDGS/XMP +chumping/M/XMPN +Chung/M/XNK +Chungking's//XNKKNS +chunk/SGDM/XNK +chunkiness/MS/XNKNS +chunky/RPT/XNK +chuntering//XNTRN +church/MDSYG/XX +Church/MS/XX +churchgoer/SM/XXK +churchgoing/SM/XXKN +Churchill/M/XXL +Churchillian//XXLN +churchliness/M/XXLNS +churchly/P/XXL +churchman/M/XXMN +churchmen//XXMN +churchwarden/SM/XXWTN +churchwoman/M/XXWMN +churchwomen//XXWMN +churchyard/SM/XXYT +churl/SM/XL +churlish/YP/XLX +churlishness/SM/XLXNS +churn/SGZRDM/XN +churner/M/XN +churning/M/XNN +chute/DSGM/XT +chutney/MS/XTN +chutzpa/SM/XTSP +chutzpah/M/XTSP +chutzpahs//XTSPS +Chuvash/M/XFX +chyme/SM/XM +Ci//S +CIA//X +ciao/S/X +cicada/MS/SKT +cicatrice/S/SKTRS +cicatrix's//SKTRKSS +Cicely/M/SSL +Cicero/M/SSR +cicerone/MS/SSRN +ciceroni//SSRN +Ciceronian//SSRNN +Cicily/M/SSL +CID//ST +Cid/M/ST +cider/SM/ST +cider's/C/STS +Ciel/M/SL +cigar/SM/SK +cigarette/MS/SKRT +cigarillo/MS/SKRL +cilantro/S/SLNTR +cilia/M/SL +ciliate/FDS/SLT +ciliately//SLTL +cilium/M/SLM +Cilka/M/SLK +cinch/MSDG/SNX +cinchona/SM/SNXN +Cincinnati/M/SNSNT +cincture/MGSD/SNKTR +Cinda/M/SNT +Cindee/M/SNT +Cindelyn/M/SNTLN +cinder/DMGS/SNT +Cinderella/MS/SNTRL +Cindi/M/SNT +Cindie/M/SNT +Cindra/M/SNTR +Cindy/M/SNT +cine/M/SN +cinema/SM/SNM +cinematic//SNMTK +cinematographer/MS/SNMTKRF +cinematographic//SNMTKRFK +cinematography/MS/SNMTKRF +Cinerama/M/SNRM +cinnabar/MS/SNB +Cinnamon/M/SNMN +cinnamon/MS/SNMN +cipher/MSGD/SF +ciphered/C/SFRT +ciphers/C/SFS +cir//S +circa//SK +circadian//SKTN +Circe/M/SS +circle/RSDGM/SKL +circler/M/SKL +circlet/MS/SKLT +circuit/GSMD/SKT +circuital//SKTL +circuitous/YP/SKTS +circuitousness/MS/SKTSNS +circuitry/SM/SKTR +circuity/MS/SKT +circulant//SKLNT +circular/PSMY/SKL +circularity/SM/SKLRT +circularize/GSD/SKLRS +circularness/M/SKLNS +circulate/ASDNG/SKLT +circulation/MA/SKLXN +circulations//SKLXNS +circulative//SKLTF +circulatory//SKLTR +circumcise/DRSXNG/SKMSS +circumcised/U/SKMSST +circumciser/M/SKMSS +circumcision/M/SKMSXN +circumference/SM/SKMFRNS +circumferential/Y/SKMFRNXL +circumflex/MSDG/SKMFLKS +circumlocution/MS/SKMLKXN +circumlocutory//SKMLKTR +circumnavigate/DSNGX/SKMNFKT +circumnavigation/M/SKMNFKXN +circumnavigational//SKMNFKXNL +circumpolar//SKMPL +circumscribe/GSD/SKMSKRB +circumscription/SM/SKMSKRPXN +circumspect/Y/SKMSPKT +circumspection/SM/SKMSPKXN +circumsphere//SKMSFR +circumstance/SDMG/SKMSTNS +circumstantial/YS/SKMSTNXL +circumvent/SBGD/SKMFNT +circumvention/MS/SKMFNXN +circus/SM/SKS +Cirillo/M/SRL +Cirilo/M/SRL +Ciro/M/SR +cirque/SM/SK +cirrhoses//SRHSS +cirrhosis/M/SRHSS +cirrhotic/S/SRHTK +cirri/M/SR +cirrus/M/SRS +Cissiee/M/SS +Cissy/M/SS +cistern/SM/SSTN +cit/DSG/ST +citadel/SM/STTL +citation/SMA/STXN +citations/I/STXNS +cite/ISDAG/ST +Citibank/M/STBNK +citified//STFT +citizen/SYM/STSN +citizenry/SM/STSNR +citizenship/MS/STSNXP +citrate/DM/STRT +citric//STRK +Citroen/M/STRN +citron/MS/STRN +citronella/MS/STRNL +citrus/SM/STRS +city/DSM/ST +cityscape/MS/STSKP +citywide//STWT +civet/SM/SFT +civic/S/SFK +civics/M/SFKS +civil/UY/SFL +civilian/SM/SFLN +civility/IMS/SFLT +civilization/AMS/SFLSXN +civilizational/MS/SFLSXNL +civilize/DRSZG/SFLS +civilized/PU/SFLST +civilizedness/M/SFLSTNS +civilizer/M/SFLS +civilizes/AU/SFLSS +civvies//SFFS +ck/C/K +cl/GJ/KL +Cl/VM/KL +clack/SDG/KLK +clad/U/KLT +cladding/SM/KLTN +clads//KLTS +Claiborn/M/KLBN +Claiborne/M/KLBN +claim/CDRSKAEGZ/KLM +claimable//KLMBL +claimant/MS/KLMNT +claimed/U/KLMT +claimer/KMACE/KLM +Clair/M/KL +Claire/M/KLR +Clairol/M/KLRL +clairvoyance/MS/KLFYNS +clairvoyant/YS/KLFYNT +clam/MS/KLM +clambake/MS/KLMBK +clamber/SDRZG/KLMB +clamberer/M/KLMBR +clammed//KLMT +clammily//KLML +clamminess/MS/KLMNS +clamming//KLMN +clammy/TPR/KLM +clamor/GDRMSZ/KLM +clamorer/M/KLMR +clamorous/PUY/KLMRS +clamorousness/UM/KLMRSNS +clamp/MRDGS/KLMP +clampdown/SM/KLMPTN +clamper/M/KLMP +clamshell/MS/KLMXL +clan/MS/KLN +Clancy/M/KLNS +clandestine/YP/KLNTSTN +clandestineness/M/KLNTSTNNS +clang/SGZRD/KLNK +clanger/M/KLNK +clangor/MDSG/KLNK +clangorous/Y/KLNKRS +clank/SGDM/KLNK +clanking/Y/KLNKN +clannish/PY/KLNX +clannishness/SM/KLNXNS +clansman/M/KLNSMN +clansmen//KLNSMN +clap/S/KLP +clapboard/SDGM/KLPBT +Clapeyron/M/KLPRN +clapped//KLPT +clapper/GMDS/KLP +clapping//KLPN +Clapton/M/KLPTN +claptrap/SM/KLPTRP +claque/MS/KLK +Clara/M/KLR +Clarabelle/M/KLRBL +Clarance/M/KLRNS +Clare/M/KLR +Claremont/M/KLRMNT +Clarence/M/KLRNS +Clarendon/M/KLRNTN +Claresta/M/KLRST +claret/MDGS/KLRT +Clareta/M/KLRT +Claretta/M/KLRT +Clarette/M/KLRT +Clarey/M/KLR +Clari/M/KLR +Claribel/M/KLRBL +Clarice/M/KLRS +Clarie/M/KLR +clarification/M/KLRFKXN +clarifier/M/KLRF +clarify/NGXDRS/KLRF +Clarinda/M/KLRNT +Clarine/M/KLRN +clarinet/SM/KLRNT +clarinetist/SM/KLRNTST +clarinettist's//KLRNTSTS +clarion/GSMD/KLRN +Clarissa/M/KLRS +Clarisse/M/KLRS +Clarita/M/KLRT +clarities//KLRTS +clarity/UM/KLRT +Clark/M/KLK +Clarke/M/KLK +Clarridge/M/KLRK +Clary/M/KLR +clash/RSDG/KLX +clasher/M/KLX +clasp/UGSD/KLSP +clasped/M/KLSPT +clasper/M/KLSP +clasp's//KLSPS +class/GRSDM/KLS +classer/M/KLS +classic/S/KLSK +classical/Y/KLSKL +classicism/SM/KLSSSM +classicist/SM/KLSSST +classics/M/KLSKS +classifiable/U/KLSFBL +classification/AMC/KLSFKXN +classificatory//KLSFKTR +classified/S/KLSFT +classifier/SM/KLSF +classify/CNXASDG/KLSF +classiness/SM/KLSNS +classless/P/KLSLS +classmate/MS/KLSMT +classroom/MS/KLSRM +classwork/M/KLSWK +classy/PRT/KLS +clatter/SGDR/KLT +clatterer/M/KLTR +clattering/Y/KLTRN +clattery//KLTR +Claude/M/KLT +Claudell/M/KLTL +Claudelle/M/KLTL +Claudetta/M/KLTT +Claudette/M/KLTT +Claudia/M/KLT +Claudian/M/KLTN +Claudianus/M/KLTNS +Claudie/M/KLT +Claudina/M/KLTN +Claudine/M/KLTN +Claudio/M/KLT +Claudius/M/KLTS +Claus/NM/KLS +clausal//KLSL +clause/MS/KLS +Clausen/M/KLSN +Clausewitz/M/KLSWTS +Clausius/M/KLSS +claustrophobia/SM/KLSTRFB +claustrophobic//KLSTRFBK +clave/RM/KLF +clave's/F/KLFS +clavichord/SM/KLFXT +clavicle/MS/KLFKL +clavier/MS/KLF +claw/GDRMS/KL +clawer/M/KLW +Clay/M/KL +clay/MDGS/KL +Clayborn/M/KLBN +Clayborne/M/KLBN +Claybourne/M/KLBN +clayey//KLY +clayier//KLY +clayiest//KLYST +claymore/MS/KLMR +Clayson/M/KLSN +Clayton/M/KLTN +Clea/M/KL +clean/UYRDPT/KLN +cleanable//KLNBL +cleaner/MS/KLN +cleaning/SM/KLNN +cleanliness/UMS/KLNLNS +cleanly/PRTU/KLNL +cleanness/MSU/KLNS +cleans/GDRSZ/KLNS +cleanse//KLNS +cleanser/M/KLNS +cleanup/MS/KLNP +clear/UTRD/KL +clearance/MS/KLRNS +clearcut//KLKT +clearer/M/KLR +clearheaded/PY/KLHTT +clearheadedness/M/KLHTTNS +clearing/MS/KLRN +clearinghouse/S/KLRNHS +clearly//KLL +clearness/MS/KLNS +clears//KLS +Clearwater/M/KLWT +clearway/M/KLW +cleat/MDSG/KLT +cleavage/MS/KLFK +cleave/RSDGZ/KLF +cleaver/M/KLF +Cleavland/M/KLFLNT +clef/SM/KLF +cleft/MDGS/KLFT +Clem/XM/KLM +clematis/MS/KLMTS +clemence//KLMNS +Clemence/M/KLMNS +Clemenceau/M/KLMNS +clemency/ISM/KLMNS +clement/IY/KLMNT +Clement/MS/KLMNT +Clemente/M/KLMNT +Clementia/M/KLMNX +Clementina/M/KLMNTN +Clementine/M/KLMNTN +Clementius/M/KLMNTS +clements//KLMNTS +Clemmie/M/KLM +Clemmy/M/KLM +Clemons//KLMNS +Clemson/M/KLMSN +clench/UD/KLNX +clenches//KLNXS +clenching//KLNXN +Cleo/M/KL +Cleon/M/KLN +Cleopatra/M/KLPTR +Clerc/M/KLK +clerestory/MS/KLRSTR +clergy/MS/KLK +clergyman/M/KLKMN +clergymen//KLKMN +clergywoman//KLKWMN +clergywomen//KLKWMN +cleric/SM/KLRK +clerical/YS/KLRKL +clericalism/SM/KLRKLSM +Clerissa/M/KLRS +clerk/SGYDM/KLK +clerkship/MS/KLKXP +Cletis//KLTS +Cletus/M/KLTS +Cleve/M/KLF +Cleveland/M/KLFLNT +clever/RYPT/KLF +cleverness/SM/KLFNS +Clevey/M/KLF +Clevie/M/KLF +clevis/SM/KLFS +clew/DMGS/KL +Cliburn/M/KLBN +cliché/SM/KLX +clichéd//KLXT +click/GZSRDM/KLK +clicker/M/KLK +client/SM/KLNT +clientèle/SM/KLNTL +Cliff/M/KLF +cliff/SM/KLF +cliffhanger/MS/KLFHNK +cliffhanging//KLFHNKN +Clifford/M/KLFT +Clifton/M/KLFTN +Clim/M/KLM +climacteric/SM/KLMKTRK +climactic//KLMKTK +climate/MS/KLMT +climatic//KLMTK +climatically//KLMTKL +climatological/Y/KLMTLKKL +climatologist/SM/KLMTLKST +climatology/MS/KLMTLK +climax/MDSG/KLMKS +climb/BGZSJRD/KLM +climbable/U/KLMBBL +climbdown//KLMBTN +climbed/U/KLMBT +climber/M/KLMB +clime/SM/KLM +clinch/DRSZG/KLNX +clincher/M/KLNX +clinching/Y/KLNXN +Cline/M/KLN +cling/U/KLN +clinger/MS/KLN +clinging//KLNN +clingy/TR/KLN +clinic/MS/KLNK +clinical/Y/KLNKL +clinician/MS/KLNXN +clink/RDGSZ/KLNK +clinker/GMD/KLNK +clinometer/MIS/KLNMT +Clint/M/KLNT +Clinton/M/KLNTN +Clio/M/KL +cliometric/S/KLMTRK +cliometrician/S/KLMTRXN +clip/SM/KLP +clipboard/SM/KLPBT +clipped/U/KLPT +clipper/MS/KLP +clipping/SM/KLPN +clique/SDGM/KLK +cliquey//KLK +cliquier//KLK +cliquiest//KLKST +cliquish/YP/KLKX +cliquishness/SM/KLKXNS +clitoral//KLTRL +clitorides//KLTRTS +clitoris/MS/KLTRS +Clive/M/KLF +Clo/M/KL +cloaca/M/KLK +cloacae//KLK +cloak/USDG/KLK +cloakroom/MS/KLKRM +cloak's//KLKS +clobber/DGS/KLB +cloche/MS/KLX +clock/SGZRDMJ/KLK +clocker/M/KLK +clockmaker/M/KLKMK +clockwatcher//KLKWX +clockwise//KLKWS +clockwork/MS/KLKWK +clod/MS/KLT +clodded//KLTT +clodding//KLTN +cloddish/P/KLTX +cloddishness/M/KLTXNS +clodhopper/SM/KLTHP +Cloe/M/KL +clog/US/KLK +clogged/U/KLKT +clogging/U/KLKN +clog's//KLKS +cloisonné//KLSN +cloisonnes//KLSNS +cloister/MDGS/KLST +cloistral//KLSTRL +clomp/MDSG/KLMP +clonal//KLNL +clone/DSRGMZ/KLN +clonk/SGD/KLNK +clop/S/KLP +clopped//KLPT +clopping//KLPN +Cloris/M/KLRS +close/EDSRG/KLS +closed/U/KLST +closefisted//KLSFSTT +closely//KLSL +closemouthed//KLSM@T +closeness/MS/KLSNS +closeout/MS/KLST +closer/EM/KLS +closers//KLSS +closest//KLSST +closet/MDSG/KLST +closeup/S/KLSP +closing/S/KLSN +closure/EMS/KLSR +closured//KLSRT +closure's/I/KLSRS +closuring//KLSRN +clot/MS/KLT +cloth/GJMSD/KL@ +clothbound//KL@BNT +clothe/UDSG/KL@ +clothesbrush//KL@SBRX +clotheshorse/MS/KL@XS +clothesline/SDGM/KL@SLN +clothesman//KL@SMN +clothesmen//KL@SMN +clothespin/MS/KL@SPN +clothier/MS/KL@ +clothing/M/KL@N +Clotho/M/KL@ +cloths//KL@S +Clotilda/M/KLTLT +clotted//KLTT +clotting//KLTN +cloture/MDSG/KLTR +cloud/SGMD/KLT +cloudburst/MS/KLTBST +clouded/U/KLTT +cloudiness/SM/KLTNS +cloudless/YP/KLTLS +cloudlessness/M/KLTLSNS +cloudscape/SM/KLTSKP +cloudy/TPR/KLT +clout/GSMD/KLT +clove/SRMZ/KLF +cloven//KLFN +clover/M/KLF +cloverleaf/MS/KLFLF +Clovis/M/KLFS +clown/DMSG/KLN +clownish/PY/KLNX +clownishness/SM/KLNXNS +cloy/DSG/KL +cloying/Y/KLYN +club/MS/KLB +clubbed/M/KLBT +clubbing/M/KLBN +clubfeet//KLBFT +clubfoot/DM/KLBFT +clubhouse/SM/KLBHS +clubroom/SM/KLBRM +cluck/GSDM/KLK +clue/MGDS/KL +clueless//KLLS +Cluj/M/KLK +clump/MDGS/KLMP +clumpy/RT/KLMP +clumsily//KLMSL +clumsiness/MS/KLMSNS +clumsy/PRT/KLMS +clung//KLNK +clunk/SGZRDM/KLNK +clunky/PRYT/KLNK +cluster/SGJMD/KLST +clustered/AU/KLSTRT +clusters/A/KLSTS +clutch/DSG/KLX +clutter/GSD/KLT +cluttered/U/KLTRT +Cly/M/KL +Clyde/M/KLT +Clydesdale/M/KLTSTL +Clytemnestra/M/KLTMNSTR +Clyve/M/KLF +Clywd/M/KLT +cm//KM +Cm/M/KM +CMOS//KMS +cnidarian/MS/KNTRN +CNN//KN +CNS//KNS +CO//K +co/DES/K +Co/M/K +coach/MSRDG/KX +coacher/M/KX +coachman/M/KXMN +coachmen//KXMN +coachwork/M/KXWK +coadjutor/MS/KTKT +coagulable//KKLBL +coagulant/SM/KKLNT +coagulate/GNXSD/KKLT +coagulation/M/KKLXN +coagulator/S/KKLT +coal/MDRGS/KL +coaler/M/KL +coalesce/GDS/KLS +coalescence/SM/KLSNS +coalescent//KLSNT +coalface/SM/KLFS +coalfield/MS/KLFLT +coalition/MS/KLXN +coalitionist/SM/KLXNST +coalminers//KLMNS +coarse/TYRP/KS +coarsen/SGD/KSN +coarseness/SM/KSNS +coast/SMRDGZ/KST +coastal//KSTL +coaster/M/KST +coastguard/MS/KSTKT +coastline/SM/KSTLN +coat/MDRGZJS/KT +coated/U/KTT +Coates/M/KTS +coating/M/KTN +coattail/S/KTL +coattest//KTST +coauthor/MDGS/K@ +coax/GZDSR/KKS +coaxer/M/KKS +coaxial/Y/KKSL +coaxing/Y/KKSN +Cob/M/KB +cob/SM/KB +Cobain/M/KBN +cobalt/MS/KBLT +Cobb/M/KB +cobbed//KBT +Cobbie/M/KB +cobbing//KBN +cobble/SRDGMZ/KBL +cobbler/M/KBL +cobblestone/MSD/KBLSTN +Cobby/M/KB +coble/M/KBL +COBOL//KBL +Cobol/M/KBL +cobra/MS/KBR +cobweb/SM/KBWB +cobwebbed//KBWBT +cobwebbing//KBWBN +cobwebby/RT/KBWB +coca/MS/KK +cocaine/MS/KKN +cocci/MS/KS +coccus/M/KKS +coccyges//KSKS +coccyx/M/KSKS +Cochabamba/M/KXBMB +Cochin/M/KXN +cochineal/SM/KXNL +Cochise/M/KXS +cochlea/SM/KXL +cochleae//KXL +cochlear//KXL +Cochran/M/KXRN +cock/GDRMS/KK +cockade/SM/KKT +cockamamie//KKMM +cockatoo/SM/KKT +cockatrice/MS/KKTRS +cockcrow/MS/KKKR +cocker/M/KK +cockerel/MS/KKRL +cockeye/DM/KKY +cockeyed/PY/KKYT +cockfight/MJSG/KKFT +cockfighting/M/KKFTN +cockily//KKL +cockiness/MS/KKNS +cockle/SDGM/KKL +cocklebur/M/KKLB +cockleshell/SM/KKLXL +Cockney//KKN +cockney/MS/KKN +cockpit/MS/KKPT +cockroach/SM/KKRX +cockscomb/SM/KKSKM +cockshies//KKXS +cocksucker/S/KKSK +cocksure//KKSR +cocktail/GDMS/KKTL +cocky/RPT/KK +coco/MS/KK +cocoa/SM/KK +coconut/SM/KKNT +cocoon/GDMS/KKN +Cocteau/M/KKT +COD//KT +Cod/M/KT +cod/MDRSZGJ/KT +coda/SM/KT +codded//KTT +codding//KTN +coddle/GSRD/KTL +coddler/M/KTL +code/SCZGJRD/KT +codebook/S/KTBK +codebreak/R/KTBRK +coded/UA/KTT +Codee/M/KT +codeine/MS/KTN +codename/D/KTNM +codependency/S/KTPNTNS +codependent/S/KTPNTNT +coder/CM/KT +code's//KTS +codes/A/KTS +codetermine/S/KTTMN +codeword/SM/KTWT +codex/M/KTKS +codfish/SM/KTFX +codger/MS/KKR +Codi/M/KT +codices/M/KTSS +codicil/SM/KTSL +Codie/M/KT +codification/M/KTFKXN +codifier/M/KTF +codify/NZXGRSD/KTF +coding/M/KTN +codling/M/KTLN +codpiece/MS/KTPS +Cody/M/KT +coed/SM/KT +coedited//KTTT +coediting//KTTN +coeditor/MS/KTT +coedits//KTTS +coeducation/SM/KTKXN +coeducational//KTKXNL +coefficient/SYM/KFSNT +coelenterate/MS/KLNTRT +coequal/SY/KKL +coerce/SRDXVGNZ/KS +coercer/M/KS +coercible/I/KSBL +coercion/M/KSN +coercive/PY/KSF +coerciveness/M/KSFNS +coeval/YS/KFL +coexist/GDS/KKSST +coexistence/MS/KKSSTNS +coexistent//KKSSTNT +coextensive/Y/KKSTNSF +cofactor/MS/KFKT +coffee/SM/KF +coffeecake/SM/KFKK +coffeecup//KFKP +coffeehouse/SM/KFHS +coffeemaker/S/KFMK +coffeepot/MS/KFPT +coffer/DMSG/KF +cofferdam/SM/KFTM +Coffey/M/KF +coffin/DMGS/KFN +Coffman/M/KFMN +cog/MS/KK +cogency/MS/KKNS +cogent/Y/KKNT +cogged//KKT +cogging//KKN +cogitate/DSXNGV/KKTT +cogitation/M/KKTXN +cogitator/MS/KKTT +Cognac/M/KKNK +cognac/SM/KKNK +cognate/SXYN/KKNT +cognation/M/KKNXN +cognition/SAM/KKNXN +cognitional//KKNXNL +cognitive/SY/KKNTF +cognizable//KKNSBL +cognizance/MAI/KKNSNS +cognizances/A/KKNSNSS +cognizant/I/KKNSNT +cognomen/SM/KKNMN +cognoscente//KKNSNT +cognoscenti//KKNSNT +cogwheel/SM/KKHL +cohabit/SDG/KHBT +cohabitant/MS/KHBTNT +cohabitation/SM/KHBTXN +cohabitational//KHBTXNL +Cohan/M/KHN +coheir/MS/KH +Cohen/M/KHN +cohere/GSRD/KHR +coherence/SIM/KHRNS +coherencies//KHRNSS +coherency/I/KHRNS +coherent/IY/KHRNT +coherer/M/KHR +cohesion/MS/KHXN +cohesive/PY/KHSF +cohesiveness/SM/KHSFNS +Cohn/M/KN +coho/MS/KH +cohoes//KHS +cohort/SM/KHT +coif/SM/KF +coiffed//KFT +coiffing//KFN +coiffure/MGSD/KFR +coil/UGSAD/KL +Coimbatore/M/KMBTR +coin/GZSDRM/KN +coinage/SM/KNK +coinage's/A/KNKS +coincide/GSD/KNST +coincidence/MS/KNSTNS +coincident/Y/KNSTNT +coincidental/Y/KNSTNTL +coined/U/KNT +coiner/M/KN +coinsurance/SM/KNSRNS +Cointon/M/KNTN +cointreau//KNTR +coital/Y/KTL +coitus/SM/KTS +coke/MGDS/KK +Coke/MS/KK +COL//KL +Col/MY/KL +col/SD/KL +COLA//KL +cola/SM/KL +Colan/M/KLN +colander/SM/KLNT +Colas//KLS +colatitude/MS/KLTTT +Colbert/M/KLBT +Colby/M/KLB +cold/YRPST/KLT +coldblooded//KLTBLTT +coldish//KLTX +coldness/MS/KLTNS +Cole/M/KL +Coleen/M/KLN +Coleman/M/KLMN +Colene/M/KLN +Coleridge/M/KLRK +coleslaw/SM/KLSL +Colet/M/KLT +Coletta/M/KLT +Colette/M/KLT +coleus/SM/KLS +Colfax/M/KLFKS +Colgate/M/KLKT +colic/SM/KLK +colicky//KLK +coliform//KLFM +Colin/M/KLN +coliseum/SM/KLSM +colitis/MS/KLTS +coll/G/KL +collaborate/VGNXSD/KLBRT +collaboration/M/KLBRXN +collaborative/SY/KLBRTF +collaborator/SM/KLBRT +collage/MGSD/KLK +collagen/M/KLKN +collapse/SDG/KLPS +collapsibility/M/KLPSBLT +collapsible//KLPSBL +collar/DMGS/KL +collarbone/MS/KLBN +collard/SM/KLT +collarless//KLLS +collate/SDVNGX/KLT +collated/U/KLTT +collateral/SYM/KLTRL +collation/M/KLXN +collator/MS/KLT +colleague/SDGM/KLK +collect/SAGD/KLKT +collected/PY/KLKTT +collectedness/M/KLKTTNS +collectible/S/KLKTBL +collection/AMS/KLKXN +collective/SY/KLKTF +collectivism/SM/KLKTFSM +collectivist/MS/KLKTFST +collectivity/MS/KLKTFT +collectivization/MS/KLKTFSXN +collectivize/DSG/KLKTFS +collector/MS/KLKT +Colleen/M/KLN +colleen/SM/KLN +college/SM/KLK +collegiality/S/KLKLT +collegian/SM/KLKN +collegiate/Y/KLKT +Collen/M/KLN +Collete/M/KLT +Collette/M/KLT +collide/SDG/KLT +Collie/M/KL +collie/MZSRD/KL +collier/M/KL +Collier/M/KL +colliery/MS/KLR +collimate/C/KLMT +collimated/U/KLMTT +collimates//KLMTS +collimating//KLMTN +collimation/M/KLMXN +collimator/M/KLMT +Collin/MS/KLN +Colline/M/KLN +collinear//KLN +collinearity/M/KLNRT +collision/SM/KLXN +collisional//KLXNL +collocate/XSDGN/KLKT +collocation/M/KLKXN +colloid/MS/KLT +colloidal/Y/KLTL +colloq//KLK +colloquial/SY/KLKL +colloquialism/MS/KLKLSM +colloquies//KLKS +colloquium/SM/KLKM +colloquy/M/KLK +collude/SDG/KLT +collusion/SM/KLXN +collusive//KLSF +Colly/RM/KL +collying//KLYN +Colman/M/KLMN +Colo/M/KL +Cologne/M/KLKN +cologne/MSD/KLKN +Colombia/M/KLMB +Colombian/S/KLMBN +Colombo/M/KLMB +Colon/M/KLN +colon/SM/KLN +colonel/MS/KLNL +colonelcy/MS/KLNLS +colonial/SPY/KLNL +colonialism/MS/KLNLSM +colonialist/MS/KLNLST +colonist/SM/KLNST +colonization/ACSM/KLNSXN +colonize/ACSDG/KLNS +colonized/U/KLNST +colonizer/MS/KLNS +colonizes/U/KLNSS +colonnade/MSD/KLNT +colony/SM/KLN +colophon/SM/KLFN +color/SRDMGZJ/KL +Coloradan/S/KLRTN +Colorado/M/KLRT +Coloradoan/S/KLRTN +colorant/SM/KLRNT +coloration/EMS/KLRXN +coloratura/SM/KLRTR +colorblind/P/KLBLNT +colorblindness/S/KLBLNTNS +colored/USE/KLRT +colorer/M/KLR +colorfast/P/KLFST +colorfastness/SM/KLFSTNS +colorful/PY/KLFL +colorfulness/MS/KLFLNS +colorimeter/SM/KLRMT +colorimetry//KLRMTR +coloring/M/KLRN +colorization/S/KLRSXN +colorize/GSD/KLRS +colorizing/C/KLRSN +colorless/PY/KLLS +colorlessness/SM/KLLSNS +colors/EA/KLS +colossal/Y/KLSL +Colosseum/M/KLSM +colossi//KLS +colossus/M/KLSS +colostomy/SM/KLSTM +colostrum/SM/KLSTRM +Colt/M/KLT +colt/MRS/KLT +colter/M/KLT +coltish/PY/KLTX +coltishness/M/KLTXNS +Coltrane/M/KLTRN +Columbia/M/KLMB +Columbian//KLMBN +Columbine/M/KLMBN +columbine/SM/KLMBN +Columbus/M/KLMBS +column/SDM/KLMN +columnar//KLMN +columnist/MS/KLMNST +columnize/GSD/KLMNS +Colver/M/KLF +com/LJRTZG/KM +Com/M/KM +coma/SM/KM +comae//KM +comaker/SM/KMK +Comanche/MS/KMNX +comatose//KMTS +comb/SGZDRMJ/KM +combat/SVGMD/KMBT +combatant/SM/KMBTNT +combative/PY/KMBTF +combativeness/MS/KMBTFNS +combed/U/KMBT +comber/M/KMB +combination/ASM/KMBNXN +combinational/A/KMBNXNL +combinator/SM/KMBNT +combinatorial/Y/KMBNTRL +combinatoric/S/KMBNTRK +combine/ZGBRSD/KMBN +combined/AU/KMBNT +combiner/M/KMBN +combines/A/KMBNS +combining/A/KMBNN +combo/MS/KMB +Combs/M/KMBS +combusted//KMBSTT +combustibility/SM/KMBSTBLT +combustible/SI/KMBSTBL +combustion/MS/KMBSXN +combustive//KMBSTF +Comdex/M/KMTKS +Comdr/M/KMTR +come/IZSRGJ/KM +comeback/SM/KMBK +comedian/SM/KMTN +comedic//KMTK +comedienne/SM/KMTN +comedown/MS/KMTN +comedy/SM/KMT +comeliness/SM/KMLNS +comely/TPR/KML +comer/IM/KM +comes/M/KMS +comestible/MS/KMSTBL +comet/SM/KMT +cometary//KMTR +cometh//KM@ +comeuppance/SM/KMPNS +comfit/SE/KMFT +comfit's//KMFTS +comfort/ESMDG/KMFT +comfortability/S/KMFTBLT +comfortable/U/KMFTBL +comfortableness/MS/KMFTBLNS +comfortably/U/KMFTBL +comforted/U/KMFTT +comforter/MS/KMFT +comforting/YE/KMFTN +comfy/RT/KMF +comic/MS/KMK +comical/Y/KMKL +comicality/MS/KMKLT +Cominform/M/KMNFM +comity/SM/KMT +comm//KM +comma/MS/KM +command/SZRDMGL/KMNT +commandant/MS/KMNTNT +commandeer/SDG/KMNT +commander/M/KMNT +commanding/Y/KMNTN +commandment/SM/KMNTMNT +commando/SM/KMNT +commemorate/SDVNGX/KMMRT +commemoration/M/KMMRXN +commemorative/YS/KMMRTF +commemorator/S/KMMRT +commence/ALDSG/KMNS +commencement/AMS/KMNSMNT +commencer/M/KMNS +commend/GSADRB/KMNT +commendably//KMNTBL +commendation/ASM/KMNTXN +commendatory/A/KMNTTR +commender/AM/KMNT +commensurable/I/KMNSRBL +commensurate/IY/KMNSRT +commensurates//KMNSRTS +commensuration/SM/KMNSRXN +comment/SUGD/KMNT +commentary/MS/KMNTR +commentate/GSD/KMNTT +commentator/SM/KMNTT +commenter/M/KMNT +comment's//KMNTS +commerce/MGSD/KMS +commercial/PYS/KMXL +commercialism/MS/KMXLSM +commercialization/SM/KMXLSXN +commercialize/GSD/KMXLS +Commie//KM +commie/SM/KM +commingle/GSD/KMNL +commiserate/VGNXSD/KMSRT +commiseration/M/KMSRXN +commissar/MS/KMS +commissariat/MS/KMSRT +commissary/MS/KMSR +commission/ASCGD/KMXN +commissioner/SM/KMXN +commission's/A/KMXNS +commit/SA/KMT +commitment/SM/KMTMNT +committable//KMTBL +committal/MA/KMTL +committals//KMTLS +committed/UA/KMTT +committee/MS/KMT +committeeman/M/KMTMN +committeemen//KMTMN +committeewoman/M/KMTWMN +committeewomen//KMTWMN +committing/A/KMTN +commode/MS/KMT +commodes/IE/KMTS +commodious/YIP/KMTS +commodiousness/MI/KMTSNS +commodity/MS/KMTT +commodore/SM/KMTR +common/RYUPT/KMN +commonality/MS/KMNLT +commonalty/MS/KMNLT +commoner/MS/KMN +commonness/MSU/KMNS +commonplace/SP/KMNPLS +commonplaceness/M/KMNPLSNS +commons/M/KMNS +Commons/M/KMNS +commonsense//KMNSNS +commonweal/SHM/KMNWL +commonwealth/M/KMNWL@ +Commonwealth/M/KMNWL@ +commonwealths//KMNWL@S +Commonwealths//KMNWL@S +commotion/MS/KMXN +communal/Y/KMNL +communality/M/KMNLT +commune/XSDNG/KMN +communicability/MS/KMNKBLT +communicable/IU/KMNKBL +communicably//KMNKBL +communicant/MS/KMNKNT +communicate/VNGXSD/KMNKT +communication/M/KMNKXN +communicational//KMNKXNL +communicative/PY/KMNKTF +communicativeness/M/KMNKTFNS +communicator/SM/KMNKT +communion/M/KMNN +Communion/SM/KMNN +communique/S/KMNK +communism/MS/KMNSM +Communism/S/KMNSM +communist/MS/KMNST +Communist/S/KMNST +communistic//KMNSTK +communitarian/M/KMNTRN +community/MS/KMNT +communize/SDG/KMNS +commutable/I/KMTBL +commutate/XVGNSD/KMTT +commutation/M/KMTXN +commutative/Y/KMTTF +commutativity//KMTTFT +commutator/MS/KMTT +commute/BZGRSD/KMT +commuter/M/KMT +Comoros//KMRS +comp/GSYD/KMP +compact/TZGSPRDY/KMPKT +compaction/M/KMPKXN +compactness/MS/KMPKTNS +compactor/MS/KMPKT +companion/GBSMD/KMPNN +companionable/P/KMPNNBL +companionableness/M/KMPNNBLNS +companionably//KMPNNBL +companionship/MS/KMPNNXP +companionway/MS/KMPNNW +company/MSDG/KMPN +Compaq/M/KMPK +comparabilities//KMPRBLTS +comparability/IM/KMPRBLT +comparable/P/KMPRBL +comparableness/M/KMPRBLNS +comparably/I/KMPRBL +comparative/PYS/KMPRTF +comparativeness/M/KMPRTFNS +comparator/SM/KMPRT +compare/GRSDB/KMPR +comparer/M/KMPR +comparison/MS/KMPRSN +compartment/SDMG/KMPTMNT +compartmental//KMPTMNTL +compartmentalization/SM/KMPTMNTLSXN +compartmentalize/DSG/KMPTMNTLS +compass/MSDG/KMPS +compassion/MS/KMPXN +compassionate/PSDGY/KMPXNT +compassionateness/M/KMPXNTNS +compatibility/IMS/KMPTBLT +compatible/SI/KMPTBL +compatibleness/M/KMPTBLNS +compatibly/I/KMPTBL +compatriot/SM/KMPTRT +compeer/DSGM/KMP +compel/S/KMPL +compellable//KMPLBL +compelled//KMPLT +compelling/YM/KMPLN +compendious//KMPNTS +compendium/MS/KMPNTM +compensable//KMPNSBL +compensate/XVNGSD/KMPNST +compensated/U/KMPNSTT +compensation/M/KMPNSXN +compensator/M/KMPNST +compensatory//KMPNSTR +compete/GSD/KMPT +competence/ISM/KMPTNS +competency/IS/KMPTNS +competency's//KMPTNSS +competent/IY/KMPTNT +competition/SM/KMPTXN +competitive/YP/KMPTTF +competitiveness/SM/KMPTTFNS +competitor/MS/KMPTT +compilable/U/KMPLBL +compilation/SAM/KMPLXN +compile/ASDCG/KMPL +compiler/CS/KMPL +compiler's//KMPLS +complacence/S/KMPLSNS +complacency/SM/KMPLSNS +complacent/Y/KMPLSNT +complain/GZRDS/KMPLN +complainant/MS/KMPLNNT +complainer/M/KMPLN +complaining/YU/KMPLNN +complaint/MS/KMPLNT +complaisance/SM/KMPLSNS +complaisant/Y/KMPLSNT +complected//KMPLKTT +complement/ZSMRDG/KMPLMNT +complementariness/M/KMPLMNTRNS +complementarity//KMPLMNTRT +complementary/SP/KMPLMNTR +complementation/M/KMPLMNTXN +complementer/M/KMPLMNT +complete/BTYVNGPRSDX/KMPLT +completed/U/KMPLTT +completely/I/KMPLTL +completeness/ISM/KMPLTNS +completer/M/KMPLT +completion/MI/KMPLXN +complex/TGPRSDY/KMPLKS +complexion/DMS/KMPLKSN +complexional//KMPLKSNL +complexity/MS/KMPLKST +complexness/M/KMPLKSNS +compliance/SM/KMPLNS +compliant/Y/KMPLNT +complicate/SDG/KMPLKT +complicated/YP/KMPLKTT +complicatedness/M/KMPLKTTNS +complication/M/KMPLKXN +complicator/SM/KMPLKT +complicit//KMPLST +complicity/MS/KMPLST +complier/M/KMPL +compliment/ZSMRDG/KMPLMNT +complimentary/U/KMPLMNTR +complimenter/M/KMPLMNT +comply/ZXRSDNG/KMPL +component/SM/KMPNNT +comport/GLSD/KMPT +comportment/SM/KMPTMNT +compose/CGASDE/KMPS +composed/PY/KMPST +composedness/M/KMPSTNS +composer/CM/KMPS +composers//KMPSS +composite/YSDXNG/KMPST +composition/CMA/KMPSXN +compositional/Y/KMPSXNL +compositions/C/KMPSXNS +compositor/MS/KMPST +compost/DMGS/KMPST +composure/ESM/KMPSR +compote/MS/KMPT +compound/RDMBGS/KMPNT +compounded/U/KMPNTT +compounder/M/KMPNT +comprehend/DGS/KMPRHNT +comprehending/U/KMPRHNTN +comprehensibility/SIM/KMPRHNSBLT +comprehensible/PI/KMPRHNSBL +comprehensibleness/IM/KMPRHNSBLNS +comprehensibly/I/KMPRHNSBL +comprehension/IMS/KMPRHNXN +comprehensive/YPS/KMPRHNSF +comprehensiveness/SM/KMPRHNSFNS +compress/SDUGC/KMPRS +compressed/Y/KMPRST +compressibility/IM/KMPRSBLT +compressible/I/KMPRSBL +compression/CSM/KMPRXN +compressional//KMPRXNL +compressive/Y/KMPRSF +compressor/MS/KMPRS +comprise/GSD/KMPRS +compromise/SRDGMZ/KMPRMS +compromiser/M/KMPRMS +compromising/UY/KMPRMSN +Compton/M/KMPTN +comptroller/SM/KMPTRL +compulsion/SM/KMPLXN +compulsive/PYS/KMPLSF +compulsiveness/MS/KMPLSFNS +compulsivity//KMPLSFT +compulsorily//KMPLSRL +compulsory/S/KMPLSR +compunction/MS/KMPNKXN +Compuserve/M/KMPSF +CompuServe/M/KMPSF +computability/M/KMPTBLT +computable/UI/KMPTBL +computably//KMPTBL +computation/SM/KMPTXN +computational/Y/KMPTXNL +compute/RSDZBG/KMPT +computed/A/KMPTT +computer/M/KMPT +computerese//KMPTRS +computerization/MS/KMPTRSXN +computerize/SDG/KMPTRS +computes/A/KMPTS +computing/A/KMPTN +comrade/YMS/KMRT +comradely/P/KMRTL +comradeship/MS/KMRTXP +Comte/M/KMT +Con/M/KN +con/SGM/KN +Conakry/M/KNKR +Conan/M/KNN +Conant/M/KNNT +concatenate/XSDG/KNKTNT +concave/YP/KNKF +concaveness/MS/KNKFNS +conceal/BSZGRDL/KNSL +concealed/U/KNSLT +concealer/M/KNSL +concealing/Y/KNSLN +concealment/MS/KNSLMNT +conceded/Y/KNSTT +conceit/SGDM/KNST +conceited/YP/KNSTT +conceitedness/SM/KNSTTNS +conceivable/IU/KNSFBL +conceivably/I/KNSFBL +conceive/BGRSD/KNSF +conceiver/M/KNSF +concentrate/VNGSDX/KNSNTRT +concentration/M/KNSNTRXN +concentrator/MS/KNSNTRT +concentrically//KNSNTRKL +Concepción/M/KNSPSN +concept/SVM/KNSPT +conception/MS/KNSPXN +conceptional//KNSPXNL +conceptual/Y/KNSPTL +conceptuality/M/KNSPTLT +conceptualization/A/KNSPTLSXN +conceptualizations//KNSPTLSXNS +conceptualization's//KNSPTLSXNS +conceptualize/DRSG/KNSPTLS +conceptualizing/A/KNSPTLSN +concern/USGD/KNSN +concerned/YU/KNSNT +concert/EDSG/KNST +concerted/PY/KNSTT +concertina/MDGS/KNSTN +concertize/GDS/KNSTS +concertmaster/MS/KNSTMST +concerto/SM/KNST +concert's//KNSTS +concession/R/KNSXN +concessionaire/SM/KNSXNR +concessional//KNSXNL +concessionary//KNSXNR +Concetta/M/KNST +Concettina/M/KNSTN +conch/MDG/KNX +Conchita/M/KNXT +conchs//KNXS +concierge/SM/KNSK +conciliar//KNSL +conciliate/GNVX/KNSLT +conciliation/ASM/KNSLXN +conciliator/MS/KNSLT +conciliatory/A/KNSLTR +concise/TYRNPX/KNSS +conciseness/SM/KNSSNS +concision/M/KNSXN +conclave/S/KNKLF +conclude/RSDG/KNKLT +concluder/M/KNKLT +conclusion/SM/KNKLXN +conclusive/IPY/KNKLSF +conclusiveness/ISM/KNKLSFNS +concoct/RDVGS/KNKKT +concocter/M/KNKKT +concoction/SM/KNKKXN +concomitant/YS/KNKMTNT +Concord/MS/KNKT +concordance/MS/KNKTNS +concordant/Y/KNKTNT +concordat/SM/KNKTT +Concorde/M/KNKT +Concordia/M/KNKT +concourse//KNKS +concrete/NGXRSDPYM/KNKRT +concreteness/MS/KNKRTNS +concretion/M/KNKRXN +concubinage/SM/KNKBNK +concubine/SM/KNKBN +concupiscence/SM/KNKPSNS +concupiscent//KNKPSNT +concur/S/KNK +concurrence/MS/KNKRNS +concuss/VD/KNKS +concussion/MS/KNKXN +condemn/ZSGRDB/KNTMN +condemnate/XN/KNTMNT +condemnation/M/KNTMNXN +condemnatory//KNTMNTR +condemner/M/KNTMN +condensate/NMXS/KNTNST +condensation/M/KNTNSXN +condense/ZGSD/KNTNS +condenser/M/KNTNS +condensible//KNTNSBL +condescend//KNTSNT +condescending/Y/KNTSNTN +condescension/MS/KNTSNXN +condign//KNTN +condiment/SM/KNTMNT +condition/AGSJD/KNTXN +conditional/UY/KNTXNL +conditionals//KNTXNLS +conditioned/U/KNTXNT +conditioner/MS/KNTXN +conditioning/M/KNTXNN +condition's//KNTXNS +condo/SM/KNT +condole//KNTL +condolence/MS/KNTLNS +condom/SM/KNTM +condominium/MS/KNTMNM +condone/GRSD/KNTN +condoner/M/KNTN +condor/MS/KNT +Condorcet/M/KNTST +conduce/VGSD/KNTS +conducive/P/KNTSF +conduciveness/M/KNTSFNS +conduct/V/KNTKT +conductance/SM/KNTKTNS +conductibility/SM/KNTKTBLT +conductible//KNTKTBL +conduction/MS/KNTKXN +conductive/Y/KNTKTF +conductivity/MS/KNTKTFT +conductor/MS/KNTKT +conductress/MS/KNTKTRS +conduit/MS/KNTT +coneflower/M/KNFLW +Conestoga//KNSTK +coney's//KNS +confab/MS/KNFB +confabbed//KNFBT +confabbing//KNFBN +confabulate/XSDGN/KNFBLT +confabulation/M/KNFBLXN +confect/S/KNFKT +confection/RDMGZS/KNFKXN +confectioner/M/KNFKXN +confectionery/SM/KNFKXNR +confectionist//KNFKXNST +Confederacy/M/KNFTRS +confederacy/MS/KNFTRS +confederate/M/KNFTRT +Confederate/S/KNFTRT +confer/SB/KNF +conferee/MS/KNFR +conference/DSGM/KNFRNS +conferrable//KNFRBL +conferral/SM/KNFRL +conferred//KNFRT +conferrer/SM/KNFR +conferring//KNFRN +confessed/Y/KNFST +confession/MS/KNFXN +confessional/SY/KNFXNL +confessor/SM/KNFS +confetti/M/KNFT +confidant/SM/KNFTNT +confidante/SM/KNFTNT +confide/ZGRSD/KNFT +confidence/SM/KNFTNS +confident/Y/KNFTNT +confidential/PY/KNFTNXL +confidentiality/MS/KNFTNXLT +confidentialness/M/KNFTNXLNS +confider/M/KNFT +confiding/PY/KNFTN +configuration/ASM/KNFKRXN +configure/AGSDB/KNFKR +confine/L/KNFN +confined/U/KNFNT +confinement/MS/KNFNMNT +confiner/M/KNFN +confirm/AGDS/KNFM +confirmation/ASM/KNFMXN +confirmatory//KNFMTR +confirmed/YP/KNFMT +confirmedness/M/KNFMTNS +confiscate/DSGNX/KNFSKT +confiscation/M/KNFSKXN +confiscator/MS/KNFSKT +confiscatory//KNFSKTR +conflagration/MS/KNFLKRXN +conflate/NGSDX/KNFLT +conflation/M/KNFLXN +conflict/SVGDM/KNFLKT +conflicting/Y/KNFLKTN +confluence/MS/KNFLNS +conform/B/KNFM +conformable/U/KNFMBL +conformal//KNFML +conformance/SM/KNFMNS +conformational/Y/KNFMXNL +conformer/M/KNFM +conformism/SM/KNFMSM +conformist/SM/KNFMST +conformities//KNFMTS +conformity/MUI/KNFMT +confound/R/KNFNT +confounded/Y/KNFNTT +confrère/MS/KNFRR +confront/Z/KNFRNT +confrontation/SM/KNFRNTXN +confrontational//KNFRNTXNL +confronter/M/KNFRNT +Confucian/S/KNFXN +Confucianism/SM/KNFXNSM +Confucius/M/KNFSS +confuse/RBZ/KNFS +confused/PY/KNFST +confusedness/M/KNFSTNS +confusing/Y/KNFSN +confutation/MS/KNFTXN +confute/GRSD/KNFT +confuter/M/KNFT +Cong/M/KNK +conga/MDG/KNK +congeal/GSDL/KNKL +congealment/MS/KNKLMNT +congenial/U/KNKNL +congeniality/UM/KNKNLT +conger/SM/KNK +congeries/M/KNKRS +congest/VGSD/KNKST +congestion/MS/KNKSXN +conglomerate/XDSNGVM/KNKLMRT +conglomeration/M/KNKLMRXN +Congo/M/KNK +Congolese//KNKLS +congrats//KNKRTS +congratulate/NGXSD/KNKRTLT +congratulation/M/KNKRTLXN +congratulatory//KNKRTLTR +congregate/DSXGN/KNKRKT +congregation/M/KNKRKXN +congregational//KNKRKXNL +Congregational//KNKRKXNL +congregationalism/MS/KNKRKXNLSM +congregationalist/MS/KNKRKXNLST +Congregationalist/S/KNKRKXNLST +Congress/MS/KNKRS +congress/MSDG/KNKRS +congressional/Y/KNKRXNL +congressman/M/KNKRSMN +congressmen//KNKRSMN +congresspeople//KNKRSPPL +congressperson/S/KNKRSPSN +congresswoman/M/KNKRSWMN +congresswomen//KNKRSWMN +Congreve/M/KNKRF +congruence/IM/KNKRNS +congruences//KNKRNSS +congruency/M/KNKRNS +congruent/YI/KNKRNT +congruential//KNKRNXL +congruity/MSI/KNKRT +congruous/YIP/KNKRS +congruousness/IM/KNKRSNS +conic/S/KNK +conical/PSY/KNKL +conicalness/M/KNKLNS +conics/M/KNKS +conifer/MS/KNF +coniferous//KNFRS +conjectural/Y/KNKKTRL +conjecture/GMDRS/KNKKTR +conjecturer/M/KNKKTR +conjoint//KNKNT +conjugacy//KNKKS +conjugal/Y/KNKKL +conjugate/XVNGYSDP/KNKKT +conjugation/M/KNKKXN +conjunct/DSV/KNKNKT +conjunctiva/MS/KNKNKTF +conjunctive/YS/KNKNKTF +conjunctivitis/SM/KNKNKTFTS +conjuration/MS/KNKRXN +conjure/RSDZG/KNKR +conjurer/M/KNKR +conjuring/M/KNKRN +conk/ZDR/KNK +conker/M/KNK +Conley/M/KNL +conman//KNMN +conn/GVDR/KN +Conn/RM/KN +connect/ADGES/KNKT +connected/U/KNKTT +connectedly/E/KNKTTL +connectedness/ME/KNKTTNS +connectible//KNKTBL +Connecticut/M/KNKTKT +connection/AME/KNKXN +connectionless//KNKXNLS +connections/E/KNKXNS +connective/SYM/KNKTF +connectivity/MS/KNKTFT +connector/MS/KNKT +Connelly/M/KNL +Conner/M/KN +Connery/M/KNR +connexion/MS/KNKSN +Conney/M/KN +Conni/M/KN +Connie/M/KN +conniption/MS/KNPXN +connivance/MS/KNFNS +connive/ZGRSD/KNF +conniver/M/KNF +connoisseur/MS/KNS +Connor/SM/KN +connotative/Y/KNTTF +connubial/Y/KNBL +Conny/M/KN +conquer/RDSBZG/KNK +conquerable/U/KNKRBL +conquered/AU/KNKRT +conqueror/MS/KNKR +conquers/A/KNKS +conquest/ASM/KNKST +conquistador/MS/KNKSTT +Conrad/M/KNRT +Conrade/M/KNRT +Conrado/M/KNRT +Conrail/M/KNRL +Conroy/M/KNR +Consalve/M/KNSLF +consanguineous/Y/KNSNKNS +consanguinity/SM/KNSNKNT +conscienceless//KNSNSLS +conscientious/YP/KNSNXS +conscientiousness/MS/KNSNXSNS +conscionable/U/KNSNBL +conscious/UYSP/KNSS +consciousness/MUS/KNSSNS +conscription/SM/KNSKRPXN +consecrate/XDSNGV/KNSKRT +consecrated/AU/KNSKRTT +consecrates/A/KNSKRTS +consecrating/A/KNSKRTN +consecration/AMS/KNSKRXN +consecutive/YP/KNSKTF +consecutiveness/M/KNSKTFNS +consensus/SM/KNSNSS +consent/SZGRD/KNSNT +consenter/M/KNSNT +consenting/Y/KNSNTN +consequence//KNSKNS +consequent/PSY/KNSKNT +consequential/IY/KNSKNXL +consequentiality/S/KNSKNXLT +consequentialness/M/KNSKNXLNS +consequently/I/KNSKNTL +conservancy/SM/KNSFNS +conservation/SM/KNSFXN +conservationism//KNSFXNSM +conservationist/SM/KNSFXNST +conservatism/SM/KNSFTSM +Conservative/S/KNSFTF +conservative/SYP/KNSFTF +conservativeness/M/KNSFTFNS +conservator/MS/KNSFT +conservatory/MS/KNSFTR +consider/GASD/KNST +considerable/I/KNSTRBL +considerables//KNSTRBLS +considerably/I/KNSTRBL +considerate/XIPNY/KNSTRT +considerateness/MSI/KNSTRTNS +consideration/ASMI/KNSTRXN +considered/U/KNSTRT +considerer/M/KNSTR +considering/S/KNSTRN +consign/ASGD/KNSN +consignee/SM/KNSKN +consignment/SM/KNSKNMNT +consist/DSG/KNSST +consistence/S/KNSSTNS +consistency/IMS/KNSSTNS +consistent/IY/KNSSTNT +consistory/MS/KNSSTR +consolable/I/KNSLBL +Consolata/M/KNSLT +consolation/MS/KNSLXN +consolation's/E/KNSLXNS +consolatory//KNSLTR +console/ZBG/KNSL +consoled/U/KNSLT +consoler/M/KNSL +consolidate/NGDSX/KNSLTT +consolidated/AU/KNSLTTT +consolidates/A/KNSLTTS +consolidation/M/KNSLTXN +consolidator/SM/KNSLTT +consoling/Y/KNSLN +consommé/S/KNSM +consonance/IM/KNSNNS +consonances//KNSNNSS +consonant/MYS/KNSNNT +consonantal//KNSNNTL +consortia//KNSX +consortium/M/KNSTM +conspectus/MS/KNSPKTS +conspicuous/YIP/KNSPKS +conspicuousness/IMS/KNSPKSNS +conspiracy/MS/KNSPRS +conspirator/SM/KNSPRT +conspiratorial/Y/KNSPRTRL +constable//KNSTBL +Constable/M/KNSTBL +constabulary/MS/KNSTBLR +constance//KNSTNS +Constance/M/KNSTNS +Constancia/M/KNSTNX +constancy/IMS/KNSTNS +Constancy/M/KNSTNS +constant/IY/KNSTNT +Constanta/M/KNSTNT +Constantia/M/KNSTNX +Constantin/M/KNSTNTN +Constantina/M/KNSTNTN +Constantine/M/KNSTNTN +Constantino/M/KNSTNTN +Constantinople/M/KNSTNTNPL +constants//KNSTNTS +constellation/SM/KNSTLXN +consternate/XNGSD/KNSTNT +consternation/M/KNSTNXN +constipate/XDSNG/KNSTPT +constipation/M/KNSTPXN +constituency/MS/KNSTTNS +constituent/SYM/KNSTTNT +constitute/NGVXDS/KNSTTT +constituted/A/KNSTTTT +constitutes/A/KNSTTTS +constituting/A/KNSTTTN +Constitution//KNSTTXN +constitution/AMS/KNSTTXN +constitutional/SY/KNSTTXNL +constitutionality/US/KNSTTXNLT +constitutionality's//KNSTTXNLTS +constitutionally/U/KNSTTXNL +constitutive/Y/KNSTTTF +constrain//KNSTRN +constrained/U/KNSTRNT +constrainedly//KNSTRNTL +constraint/MS/KNSTRNT +constrict/SDGV/KNSTRKT +constriction/MS/KNSTRKXN +constrictor/MS/KNSTRKT +construable//KNSTRBL +construct/ASDGV/KNSTRKT +constructibility//KNSTRKTBLT +constructible/A/KNSTRKTBL +construction/MAS/KNSTRKXN +constructional/Y/KNSTRKXNL +constructionist/MS/KNSTRKXNST +constructions/C/KNSTRKXNS +constructive/YP/KNSTRKTF +constructiveness/SM/KNSTRKTFNS +constructor/MS/KNSTRKT +construe/GSD/KNSTR +Consuela/M/KNSL +Consuelo/M/KNSL +consul/KMS/KNSL +consular/S/KNSL +consulate/MS/KNSLT +consulship/MS/KNSLXP +consult/RDVGS/KNSLT +consultancy/S/KNSLTNS +consultant/MS/KNSLTNT +consultation/SM/KNSLTXN +consultative//KNSLTTF +consulted/A/KNSLTT +consulter/M/KNSLT +consumable/S/KNSMBL +consume/JZGSDB/KNSM +consumed/Y/KNSMT +consumer/M/KNSM +consumerism/MS/KNSMRSM +consumerist/S/KNSMRST +consuming/Y/KNSMN +consummate/DSGVY/KNSMT +consummated/U/KNSMTT +consumption/SM/KNSMPXN +consumptive/YS/KNSMPTF +cont//KNT +contact/BGD/KNTKT +contacted/A/KNTKTT +contacts/A/KNTKTS +contact's/A/KNTKTS +contagion/SM/KNTKN +contagious/YP/KNTKS +contagiousness/MS/KNTKSNS +contain/SLZGBRD/KNTN +container/M/KNTN +containerization/SM/KNTNRSXN +containerize/GSD/KNTNRS +containment/SM/KNTNMNT +contaminant/SM/KNTMNNT +contaminate/SDCXNG/KNTMNT +contaminated/AU/KNTMNTT +contaminates/A/KNTMNTS +contaminating/A/KNTMNTN +contamination/CM/KNTMNXN +contaminative//KNTMNTF +contaminator/MS/KNTMNT +contd//KNTT +cont'd//KNTT +contemn/SGD/KNTMN +contemplate/DVNGX/KNTMPLT +contemplation/M/KNTMPLXN +contemplative/PSY/KNTMPLTF +contemplativeness/M/KNTMPLTFNS +contemporaneity/MS/KNTMPRNT +contemporaneous/PY/KNTMPRNS +contemporaneousness/M/KNTMPRNSNS +contempt/M/KNTMPT +contemptible/P/KNTMPTBL +contemptibleness/M/KNTMPTBLNS +contemptibly//KNTMPTBL +contemptuous/PY/KNTMPTS +contemptuousness/SM/KNTMPTSNS +content/EMDLSG/KNTNT +contented/YP/KNTNTT +contentedly/E/KNTNTTL +contentedness/SM/KNTNTTNS +contention/MS/KNTNXN +contentious/PY/KNTNXS +contentiousness/SM/KNTNXSNS +contently//KNTNTL +contentment/ES/KNTNTMNT +contentment's//KNTNTMNTS +conterminous/Y/KNTMNS +contestable/I/KNTSTBL +contestant/SM/KNTSTNT +contested/U/KNTSTT +contextualize/GDS/KNTKSTLS +contiguity/MS/KNTKT +contiguous/YP/KNTKS +contiguousness/M/KNTKSNS +continence/ISM/KNTNNS +continent/IY/KNTNNT +Continent/M/KNTNNT +Continental/S/KNTNNTL +continental/SY/KNTNNTL +continents//KNTNNTS +continent's//KNTNNTS +contingency/SM/KNTNNS +contingent/SMY/KNTNNT +continua//KNTN +continuable//KNTNBL +continual/Y/KNTNL +continuance/ESM/KNTNNS +continuant/M/KNTNNT +continuation/ESM/KNTNXN +continue/ESDG/KNTN +continuer/M/KNTN +continuity/SEM/KNTNT +continuous/YE/KNTNS +continuousness/M/KNTNSNS +continuum/M/KNTNM +contort/VGD/KNTT +contortion/MS/KNTXN +contortionist/SM/KNTXNST +contour//KNT +contra/S/KNTR +contraband/SM/KNTRBNT +contrabass/M/KNTRBS +contraception/SM/KNTRSPXN +contraceptive/S/KNTRSPTF +contract/DG/KNTRKT +contractible//KNTRKTBL +contractile//KNTRKTL +contractual/Y/KNTRKTL +contradict/GDS/KNTRTKT +contradiction/MS/KNTRTKXN +contradictorily//KNTRTKTRL +contradictoriness/M/KNTRTKTRNS +contradictory/PS/KNTRTKTR +contradistinction/MS/KNTRTSTNKXN +contraflow/S/KNTRFL +contrail/M/KNTRL +contraindicate/SDVNGX/KNTRNTKT +contraindication/M/KNTRNTKXN +contralto/SM/KNTRLT +contrapositive/S/KNTRPSTF +contraption/MS/KNTRPXN +contrapuntal/Y/KNTRPNTL +contrariety/MS/KNTRRT +contrarily//KNTRRL +contrariness/MS/KNTRRNS +contrariwise//KNTRRWS +contrary/PS/KNTRR +contrast/SRDVGZ/KNTRST +contrasting/Y/KNTRSTN +contrastive/Y/KNTRSTF +contravene/GSRD/KNTRFN +contravener/M/KNTRFN +contravention/MS/KNTRFNXN +Contreras/M/KNTRRS +contretemps/M/KNTRTMPS +contribute/XVNZRD/KNTRBT +contribution/M/KNTRBXN +contributive/Y/KNTRBTF +contributor/SM/KNTRBT +contributorily//KNTRBTRL +contributory/S/KNTRBTR +contrite/NXP/KNTRT +contriteness/M/KNTRTNS +contrition/M/KNTRXN +contrivance/SM/KNTRFNS +contrive/ZGRSD/KNTRF +contriver/M/KNTRF +control/CS/KNTRL +controllability/M/KNTRLBLT +controllable/IU/KNTRLBL +controllably/U/KNTRLBL +controlled/CU/KNTRLT +controller/SM/KNTRL +controlling/C/KNTRLN +control's//KNTRLS +controversial/UY/KNTRFXL +controversialists//KNTRFXLSTS +controversy/MS/KNTRFS +controvert/DGS/KNTRFT +controvertible/I/KNTRFTBL +contumacious/Y/KNTMSS +contumacy/MS/KNTMS +contumelious//KNTMLS +contumely/MS/KNTML +contuse/NGXSD/KNTS +contusion/M/KNTXN +conundrum/SM/KNNTRM +conurbation/MS/KNBXN +convalesce/GDS/KNFLS +convalescence/SM/KNFLSNS +convalescent/S/KNFLSNT +convect/DSVG/KNFKT +convection/MS/KNFKXN +convectional//KNFKXNL +convector//KNFKT +convene/ASDG/KNFN +convener/MS/KNFN +convenience/ISM/KNFNNS +convenient/IY/KNFNNT +conventicle/SM/KNFNTKL +convention/MA/KNFNXN +conventional/UY/KNFNXNL +conventionalism/M/KNFNXNLSM +conventionalist/M/KNFNXNLST +conventionality/SUM/KNFNXNLT +conventionalize/GDS/KNFNXNLS +conventions//KNFNXNS +convergence/MS/KNFKNS +convergent//KNFKNT +conversant/Y/KNFSNT +conversation/SM/KNFSXN +conversational/Y/KNFSXNL +conversationalist/SM/KNFSXNLST +conversazione/M/KNFSSN +converse/Y/KNFS +conversion/AM/KNFXN +conversioning//KNFXNN +convert/GADS/KNFT +converted/U/KNFTT +converter/MS/KNFT +convertibility/SM/KNFTBLT +convertibility's/I/KNFTBLTS +convertible/PS/KNFTBL +convertibleness/M/KNFTBLNS +convex/Y/KNFKS +convexity/MS/KNFKST +convey/BDGS/KNF +conveyance/DRSGMZ/KNFYNS +conveyancer/M/KNFYNS +conveyancing/M/KNFYNSN +conveyor/MS/KNFY +convict/SVGD/KNFKT +conviction/MS/KNFKXN +convince/RSDZG/KNFNS +convinced/U/KNFNST +convincer/M/KNFNS +convincing/PUY/KNFNSN +convincingness/M/KNFNSNNS +convivial/Y/KNFFL +conviviality/MS/KNFFLT +convoke/GSD/KNFK +convolute/XDNY/KNFLT +convolution/M/KNFLXN +convolve/C/KNFLF +convolved//KNFLFT +convolves//KNFLFS +convolving//KNFLFN +convoy/GMDS/KNF +convulse/SDXVNG/KNFLS +convulsion/M/KNFLXN +convulsive/YP/KNFLSF +convulsiveness/M/KNFLSFNS +Conway/M/KNW +cony/SM/KN +coo/GSD/K +cook/GZDRMJS/KK +Cook/M/KK +cookbook/SM/KKBK +Cooke/M/KK +cooked/AU/KKT +cooker/M/KK +cookery/MS/KKR +Cookie/M/KK +cookie/SM/KK +cooking/M/KKN +cookout/SM/KKT +cooks/A/KKS +cookware/SM/KKWR +cooky's//KKS +cool/YDRPJGZTS/KL +coolant/SM/KLNT +cooled/U/KLT +cooler/M/KL +Cooley/M/KL +coolheaded//KLHTT +Coolidge/M/KLK +coolie/MS/KL +coolness/MS/KLNS +coon/MS/KN +coonskin/MS/KNSKN +coop/MDRGZS/KP +Coop/MR/KP +cooper/GDM/KP +Cooper/M/KP +cooperage/MS/KPRK +cooperate/VNGXSD/KPRT +cooperation/M/KPRXN +cooperative/PSY/KPRTF +cooperativeness/SM/KPRTFNS +cooperator/MS/KPRT +coordinate/XNGVYPDS/KTNT +coordinated/U/KTNTT +coordinateness/M/KTNTNS +coordination/M/KTNXN +coordinator/MS/KTNT +Coors/M/KS +coot/MS/KT +cootie/SM/KT +cop/SJMDRG/KP +copay/S/KP +cope/S/KP +Copeland/M/KPLNT +Copenhagen/M/KPNHKN +coper/M/KP +Copernican//KPNKN +Copernicus/M/KPNKS +copied/A/KPT +copier/M/KP +copies/A/KPS +copilot/SM/KPLT +coping/M/KPN +copious/YP/KPS +copiousness/SM/KPSNS +coplanar//KPLN +Copland/M/KPLNT +Copley/M/KPL +copolymer/MS/KPLM +copora//KPR +copped//KPT +copper/MSGD/KP +Copperfield/M/KPFLT +copperhead/MS/KPHT +copperplate/MS/KPPLT +coppersmith/M/KPSM@ +coppersmiths//KPSM@S +coppery//KPR +coppice's//KPSS +copping//KPN +Coppola/M/KPL +copra/MS/KPR +coprolite/M/KPRLT +coprophagous//KPRFKS +cops/GDS/KPS +copse/M/KPS +copter/SM/KPT +Coptic/M/KPTK +copula/MS/KPL +copulate/XDSNGV/KPLT +copulation/M/KPLXN +copulative/S/KPLTF +copy/MZBDSRG/KP +copybook/MS/KPBK +copycat/SM/KPKT +copycatted//KPKTT +copycatting//KPKTN +copyist/SM/KPYST +copyright/MSRDGZ/KPRT +copyrighter/M/KPRT +copywriter/MS/KPRT +coquetry/MS/KKTR +coquette/DSMG/KKT +coquettish/Y/KKTX +Cora/M/KR +Corabel/M/KRBL +Corabella/M/KRBL +Corabelle/M/KRBL +coracle/SM/KRKL +Coral/M/KRL +coral/SM/KRL +Coralie/M/KRL +Coraline/M/KRLN +coralline//KRLN +Coralyn/M/KRLN +corbel/GMDJS/KBL +Corbet/M/KBT +Corbett/M/KBT +Corbie/M/KB +Corbin/M/KBN +Corby/M/KB +cord/FSAEM/KT +Cord/M/KT +cordage/MS/KTK +corded/AE/KTT +Cordelia/M/KTL +Cordelie/M/KTL +Cordell/M/KTL +corder/AM/KT +Cordey/M/KT +Cordi/M/KT +cordial/PYS/KTL +cordiality/MS/KTLT +cordialness/M/KTLNS +Cordie/M/KT +cordillera/MS/KTLR +Cordilleras//KTLRS +cording/MA/KTN +cordite/MS/KTT +cordless//KTLS +Cordoba//KTB +cordon/DMSG/KTN +cordovan/SM/KTFN +Cordula/M/KTL +corduroy/GDMS/KTR +Cordy/M/KT +core/MZGDRS/KR +cored/A/KRT +Coreen/M/KRN +Corella/M/KRL +Corenda/M/KRNT +Corene/M/KRN +corer/M/KR +corespondent/MS/KRSPNTNT +Coretta/M/KRT +Corette/M/KRT +Corey/M/KR +Corfu/M/KF +corgi/MS/KK +Cori/M/KR +coriander/SM/KRNT +Corie/M/KR +Corilla/M/KRL +Corina/M/KRN +Corine/M/KRN +coring/M/KRN +Corinna/M/KRN +Corinne/M/KRN +Corinth/M/KRN@ +Corinthian/S/KRN@N +Corinthians/M/KRN@NS +Coriolanus/M/KRLNS +Coriolis/M/KRLS +Coriss/M/KRS +Corissa/M/KRS +cork/GZDRMS/KK +Cork/M/KK +corked/U/KKT +corker/M/KK +corks/U/KKS +corkscrew/DMGS/KKSKR +Corliss/M/KLS +Corly/M/KL +corm/MS/KM +Cormack/M/KMK +cormorant/MS/KMRNT +corn/GZDRMS/KN +Cornall/M/KNL +cornball/SM/KNBL +cornbread/S/KNBRT +corncob/SM/KNKB +corncrake/M/KNKRK +cornea/SM/KN +corneal//KNL +Corneille/M/KNL +Cornela/M/KNL +Cornelia/M/KNL +Cornelius/M/KNLS +Cornell/M/KNL +Cornelle/M/KNL +corner/GDM/KN +cornerstone/MS/KNSTN +cornet/SM/KNT +Corney/M/KN +cornfield/SM/KNFLT +cornflake/S/KNFLK +cornflour/M/KNFL +cornflower/SM/KNFLW +cornice/GSDM/KNS +Cornie/M/KN +cornily//KNL +corniness/S/KNNS +Cornish/S/KNX +cornmeal/S/KNML +cornrow/GDS/KNR +cornstalk/MS/KNSTLK +cornstarch/SM/KNSTX +cornucopia/MS/KNKP +Cornwall/M/KNWL +Cornwallis/M/KNWLS +Corny/M/KN +corny/RPT/KN +corolla/MS/KRL +corollary/SM/KRLR +corona/SM/KRN +Coronado/M/KRNT +coronal/MS/KRNL +coronary/S/KRNR +coronate/NX/KRNT +coronation/M/KRNXN +coroner/MS/KRN +coronet/DMS/KRNT +Corot/M/KRT +coroutine/SM/KRTN +Corp//KP +corp/S/KP +corpora/MS/KPR +corporal/SYM/KPRL +corporate/INVXS/KPRT +corporately//KPRTL +corporation/MI/KPRXN +corporatism/M/KPRTSM +corporatist//KPRTST +corporeal/IY/KPRL +corporeality/MS/KPRLT +corporealness/M/KPRLNS +corps/SM/KPS +corpse/M/KPS +corpsman/M/KPSMN +corpsmen//KPSMN +corpulence/MS/KPLNS +corpulent/YP/KPLNT +corpulentness/S/KPLNTNS +corpus/M/KPS +corpuscle/SM/KPSKL +corpuscular//KPSKL +corr//KR +corral/MS/KRL +corralled//KRLT +corralling//KRLN +correct/BPSDRYTGV/KRKT +correctable/U/KRKTBL +corrected/U/KRKTT +correction/MS/KRKXN +correctional//KRKXNL +corrective/YPS/KRKTF +correctly/I/KRKTL +correctness/MSI/KRKTNS +corrector/MS/KRKT +Correggio/M/KRK +correlate/SDXVNG/KRLT +correlated/U/KRLTT +correlation/M/KRLXN +correlative/YS/KRLTF +Correna/M/KRN +correspond/DSG/KRSPNT +correspondence/MS/KRSPNTNS +correspondent/SM/KRSPNTNT +corresponding/Y/KRSPNTN +Correy/M/KR +Corri/M/KR +Corrianne/M/KRN +corridor/SM/KRT +Corrie/M/KR +corrigenda//KRKNT +corrigendum/M/KRKNTM +corrigible/I/KRKBL +Corrina/M/KRN +Corrine/M/KRN +Corrinne/M/KRN +corroborate/GNVXDS/KRBRT +corroborated/U/KRBRTT +corroboration/M/KRBRXN +corroborative/Y/KRBRTF +corroborator/MS/KRBRT +corroboratory//KRBRTR +corrode/SDG/KRT +corrodible//KRTBL +corrosion/SM/KRXN +corrosive/YPS/KRSF +corrosiveness/M/KRSFNS +corrugate/NGXSD/KRKT +corrugation/M/KRKXN +corrupt/DRYPTSGV/KRPT +corrupted/U/KRPTT +corrupter/M/KRPT +corruptibility/SMI/KRPTBLT +corruptible/I/KRPTBL +corruption/IM/KRPXN +corruptions//KRPXNS +corruptive/Y/KRPTF +corruptness/MS/KRPTNS +Corry/M/KR +corsage/MS/KSK +corsair/SM/KS +corset/GMDS/KST +Corsica/M/KSK +Corsican/S/KSKN +Cort/M/KT +cortège/MS/KTK +Cortes/S/KTS +cortex/M/KTKS +Cortez's//KTSS +cortical/Y/KTKL +cortices//KTSS +corticosteroid/SM/KTKSTRT +Cortie/M/KT +cortisone/SM/KTSN +Cortland/M/KTLNT +Cortney/M/KTN +Corty/M/KT +corundum/MS/KRNTM +coruscate/XSDGN/KRSKT +coruscation/M/KRSKXN +Corvallis/M/KFLS +corvette/MS/KFT +Corvus/M/KFS +Cory/M/KR +Cos//KS +cos/GDS/KS +Cosby/M/KSB +Cosetta/M/KST +Cosette/M/KST +cosign/SRDZG/KSN +cosignatory/MS/KSKNTR +cosily//KSL +Cosimo/M/KSM +cosine/MS/KSN +cosiness/MS/KSNS +Cosme/M/KSM +cosmetic/SM/KSMTK +cosmetically//KSMTKL +cosmetician/MS/KSMTXN +cosmetologist/MS/KSMTLKST +cosmetology/MS/KSMTLK +cosmic//KSMK +cosmical/Y/KSMKL +Cosmo/M/KSM +cosmogonist/MS/KSMKNST +cosmogony/SM/KSMKN +cosmological/Y/KSMLKKL +cosmologist/MS/KSMLKST +cosmology/SM/KSMLK +cosmonaut/MS/KSMNT +cosmopolitan/SM/KSMPLTN +cosmopolitanism/MS/KSMPLTNSM +cosmos/SM/KSMS +cosponsor/DSG/KSPNS +cossack/S/KSK +Cossack/SM/KSK +cosset/GDS/KST +cost/MYGVJS/KST +Costa/M/KST +Costanza/M/KSTNS +costar/S/KST +costarred//KSTRT +costarring//KSTRN +Costello/M/KSTL +costive/PY/KSTF +costiveness/M/KSTFNS +costless//KSTLS +costliness/SM/KSTLNS +costly/RTP/KSTL +Costner/M/KSTN +costume/ZMGSRD/KSTM +costumer/M/KSTM +cot/SGMD/KT +cotangent/SM/KTNKNT +Cote/M/KT +cote/MS/KT +coterie/MS/KTR +coterminous/Y/KTMNS +cotillion/SM/KTLN +Cotonou/M/KTN +Cotopaxi/M/KTPKS +cottage/ZMGSRD/KTK +cottager/M/KTK +cottar's//KTS +cotted//KTT +cotter/SDM/KT +cotton/GSDM/KTN +Cotton/M/KTN +cottonmouth/M/KTNM@ +cottonmouths//KTNM@S +cottonseed/MS/KTNST +cottontail/SM/KTNTL +cottonwood/SM/KTNWT +cottony//KTN +cotyledon/MS/KTLTN +couch/MSDG/KX +couching/M/KXN +cougar/MS/KK +cough/RDG/KF +cougher/M/KF +coughs//KFS +could/T/KLT +couldn't//KLTNT +could've//KLTF +coulée/MS/KL +Coulomb/M/KLM +coulomb/SM/KLM +council/SM/KNSL +councilman/M/KNSLMN +councilmen//KNSLMN +councilor/MS/KNSL +councilperson/S/KNSLPSN +councilwoman/M/KNSLWMN +councilwomen//KNSLWMN +counsel/GSDM/KNSL +counsellings//KNSLNS +counselor/MS/KNSL +count/EGARDS/KNT +countability/E/KNTBLT +countable/U/KNTBL +countably/U/KNTBL +countdown/SM/KNTTN +counted/U/KNTT +countenance/EGDS/KNTNNS +countenancer/M/KNTNNS +countenance's//KNTNNSS +counter/GSMD/KNT +counteract/DSVG/KNTRKT +counteraction/SM/KNTRKXN +counterargument/SM/KNTRKMNT +counterattack/DRMGS/KNTRTK +counterbalance/MSDG/KNTBLNS +counterclaim/GSDM/KNTKLM +counterclockwise//KNTKLKWS +counterculture/MS/KNTKLTR +countercyclical//KNTSKLKL +counterespionage/MS/KNTRSPNK +counterexample/S/KNTRKSMPL +counterfeit/ZSGRD/KNTFT +counterfeiter/M/KNTFT +counterflow//KNTFL +counterfoil/MS/KNTFL +counterforce/M/KNTFS +counterinsurgency/MS/KNTRNSKNS +counterintelligence/MS/KNTRNTLKNS +counterintuitive//KNTRNTTF +counterman/M/KNTMN +countermand/DSG/KNTMNT +countermeasure/SM/KNTMSR +countermen//KNTMN +counteroffensive/SM/KNTRFNSF +counteroffer/SM/KNTRF +counterpane/SM/KNTPN +counterpart/SM/KNTPT +counterpoint/GSDM/KNTPNT +counterpoise/GMSD/KNTPS +counterproductive//KNTPRTKTF +counterproposal/M/KNTPRPSL +counterrevolution/MS/KNTRFLXN +counterrevolutionary/MS/KNTRFLXNR +counters/E/KNTS +counter's/E/KNTS +countersign/SDG/KNTSN +countersignature/MS/KNTSKNTR +countersink/SG/KNTSNK +counterspy/MS/KNTSP +counterstrike//KNTSTRK +countersunk//KNTSNK +countertenor/SM/KNTTN +countervail/DSG/KNTFL +counterweight/GMDS/KNTWT +countess/MS/KNTS +countless/Y/KNTLS +countrify/D/KNTRF +country/MS/KNTR +countryman/M/KNTRMN +countrymen//KNTRMN +countryside/MS/KNTRST +countrywide//KNTRWT +countrywoman/M/KNTRWMN +countrywomen//KNTRWMN +county/SM/KNT +coup/ASDG/KP +coupe/MS/KP +Couperin/M/KPRN +couple/ACU/KPL +coupled/CU/KPLT +coupler/C/KPL +couplers//KPLS +coupler's//KPLS +couple's//KPLS +couples/CU/KPLS +couplet/SM/KPLT +coupling/SM/KPLN +coupling's/C/KPLNS +coupon/SM/KPN +coup's//KPS +courage/MS/KRK +courageous/U/KRKS +courageously//KRKSL +courageousness/MS/KRKSNS +courages/E/KRKS +Courbet/M/KBT +courgette/MS/KKT +courier/GMDS/KR +course/EGSRDM/KS +courser/SM/KS +courser's/E/KSS +course's/AF/KSS +courses/FA/KSS +coursework//KSWK +coursing/M/KSN +court/GZMYRDS/KT +Court/M/KT +Courtenay/M/KTN +courteous/PEY/KTS +courteousness/EM/KTSNS +courteousnesses//KTSNSS +courtesan/MS/KTSN +courtesied//KTST +courtesy/ESM/KTS +courtesying//KTSYN +courthouse/MS/K@S +courtier/SM/KT +courtliness/MS/KTLNS +courtly/RTP/KTL +Courtnay/M/KTN +Courtney/M/KTN +courtroom/MS/KTRM +courtship/SM/KTXP +courtyard/SM/KTYT +couscous/MS/KSKS +cousin/YMS/KSN +cousinly/U/KSNL +Cousteau/M/KST +couture/SM/KTR +couturier/SM/KTR +covalent/Y/KFLNT +covariance/SM/KFRNS +covariant/S/KFRNT +covariate/SN/KFRT +covary//KFR +cove/DRSMZG/KF +coven/SM/KFN +covenant/SGRDM/KFNNT +covenanted/U/KFNNTT +covenanter/M/KFNNT +Covent/M/KFNT +Coventry/MS/KFNTR +cover/AEGUDS/KF +coverable/E/KFRBL +coverage/MS/KFRK +coverall/DMS/KFRL +coverer/AME/KFR +covering/MS/KFRN +coverlet/MS/KFLT +covers/M/KFS +coversheet//KFXT +covert/YPS/KFT +covertness/SM/KFTNS +covet/SGRD/KFT +coveter/M/KFT +coveting/Y/KFTN +covetous/PY/KFTS +covetousness/SM/KFTSNS +covey/SM/KF +covington//KFNTN +cow/MDRSZG/K +Coward/M/KWT +coward/MYS/KWT +cowardice/MS/KWTS +cowardliness/MS/KWTLNS +cowardly/P/KWTL +cowbell/MS/KBL +cowbird/MS/KBT +cowboy/MS/KB +cowcatcher/SM/KKX +cowed/Y/KWT +cower/RDGZ/KW +cowering/Y/KWRN +cowgirl/MS/KKL +cowhand/S/KHNT +cowherd/SM/KHT +cowhide/MGSD/KHT +cowl/SGMD/KL +Cowley/M/KL +cowlick/MS/KLK +cowling/M/KLN +cowman/M/KMN +cowmen//KMN +coworker/MS/KWK +Cowper/M/KP +cowpoke/MS/KPK +cowpony//KPN +cowpox/MS/KPKS +cowpunch/RZ/KPNX +cowpuncher/M/KPNX +cowrie/SM/KR +cowshed/SM/KXT +cowslip/MS/KSLP +Cox/M/KKS +cox/MDSG/KKS +coxcomb/MS/KKSKM +coxswain/GSMD/KKSSWN +coy/CDSG/K +Coy/M/K +coyer//KY +coyest//KYST +coyly//KL +coyness/MS/KNS +coyote/SM/KYT +coypu/SM/KP +cozen/SGD/KSN +cozenage/MS/KSNK +cozily//KSL +coziness/MS/KSNS +Cozmo/M/KSM +Cozumel/M/KSML +cozy/DSRTPG/KS +CPA//KP +cpd//KPT +CPI//KP +cpl//KPL +Cpl//KPL +CPO//KP +CPR//KPR +cps//KPS +CPU/SM/KP +Cr/M/KR +crab/MS/KRB +crabapple//KRBPL +Crabbe/M/KRB +crabbed/YP/KRBT +crabbedness/M/KRBTNS +crabber/MS/KRB +crabbily//KRBL +crabbiness/S/KRBNS +crabbing/M/KRBN +crabby/PRT/KRB +crabgrass/S/KRBKRS +crablike//KRBLK +crack/ZSBYRDG/KRK +crackable/U/KRKBL +crackdown/MS/KRKTN +cracker/M/KRK +crackerjack/S/KRKKK +crackle/GJDS/KRKL +crackling/M/KRKLN +crackly/RT/KRKL +crackpot/SM/KRKPT +crackup/S/KRKP +cradle/SRDGM/KRTL +cradler/M/KRTL +cradling/M/KRTLN +Craft/M/KRFT +craft/MRDSG/KRFT +craftily//KRFTL +craftiness/SM/KRFTNS +craftsman/M/KRFTSMN +craftsmanship/SM/KRFTSMNXP +craftsmen//KRFTSMN +craftspeople//KRFTSPPL +craftspersons//KRFTSPSNS +craftswoman//KRFTSWMN +craftswomen//KRFTSWMN +crafty/TRP/KRFT +crag/SM/KRK +Craggie/M/KRK +cragginess/SM/KRKNS +Craggy/M/KRK +craggy/RTP/KRK +Craig/M/KRK +cram/S/KRM +Cramer/M/KRM +crammed//KRMT +crammer/M/KRM +cramming//KRMN +cramp/MRDGS/KRMP +cramper/M/KRMP +crampon/SM/KRMPN +Cranach/M/KRNX +cranberry/SM/KRNBR +Crandall/M/KRNTL +crane/DSGM/KRN +Crane/M/KRN +cranelike//KRNLK +Cranford/M/KRNFT +cranial//KRNL +cranium/MS/KRNM +crank/SGTRDM/KRNK +crankcase/MS/KRNKKS +crankily//KRNKL +crankiness/MS/KRNKNS +crankshaft/MS/KRNKXFT +cranky/TRP/KRNK +Cranmer/M/KRNM +cranny/DSGM/KRN +Cranston/M/KRNSTN +crap/SMDG/KRP +crape/SM/KRP +crapped//KRPT +crappie/M/KRP +crapping//KRPN +crappy/RST/KRP +crapshooter/SM/KRPXT +crash/SRDGZ/KRX +crasher/M/KRX +crashing/Y/KRXN +crass/TYRP/KRS +crassness/MS/KRSNS +crate/DSRGMZ/KRT +crater/DMG/KRT +Crater/M/KRT +cravat/SM/KRFT +cravatted//KRFTT +cravatting//KRFTN +crave/DSRGJ/KRF +craven/SPYDG/KRFN +cravenness/SM/KRFNS +craver/M/KRF +craving/M/KRFN +craw/SYM/KR +crawdad/S/KRTT +crawfish's//KRFXS +Crawford/M/KRFT +crawl/RDSGZ/KRL +crawler/M/KRL +crawlspace/S/KRLSPS +crawlway//KRLW +crawly/TRS/KRL +Cray/SM/KR +crayfish/GSDM/KRFX +Crayola/M/KRYL +crayon/GSDM/KRYN +craze/GMDS/KRS +crazily//KRSL +craziness/MS/KRSNS +crazy/SRTP/KRS +creak/SDG/KRK +creakily//KRKL +creakiness/SM/KRKNS +creaky/PTR/KRK +cream/SMRDGZ/KRM +creamer/M/KRM +creamery/MS/KRMR +creamily//KRML +creaminess/SM/KRMNS +creamy/TRP/KRM +crease/IDRSG/KRS +creased/CU/KRST +crease's//KRSS +creases/C/KRSS +creasing/C/KRSN +create/XKVNGADS/KRT +created/U/KRTT +Creation/M/KRXN +creation/MAK/KRXN +creationism/MS/KRXNSM +creationist/MS/KRXNST +creative/YP/KRTF +creativeness/SM/KRTFNS +creativities//KRTFTS +creativity/K/KRTFT +creativity's//KRTFTS +Creator/M/KRT +creator/MS/KRT +creature/YMS/KRTR +creatureliness/M/KRTRLNS +creaturely/P/KRTRL +crèche/SM/KRX +credence/MS/KRTNS +credent//KRTNT +credential/SGMD/KRTNXL +credenza/SM/KRTNS +credibility/IMS/KRTBLT +credible/I/KRTBL +credibly/I/KRTBL +credit/EGBSD/KRTT +creditability/M/KRTTBLT +creditable/P/KRTTBL +creditableness/M/KRTTBLNS +creditably/E/KRTTBL +credited/U/KRTTT +creditor/MS/KRTT +credit's//KRTTS +creditworthiness//KRTTW@NS +credo/SM/KRT +credulity/ISM/KRTLT +credulous/IY/KRTLS +credulousness/SM/KRTLSNS +Cree/MDS/KR +creed/C/KRT +creedal//KRTL +creeds//KRTS +creed's//KRTS +creek/SM/KRK +Creek/SM/KRK +creekside//KRKST +creel/SMDG/KRL +creep/SGZR/KRP +creeper/M/KRP +creepily//KRPL +creepiness/SM/KRPNS +creepy/PRST/KRP +Creigh/M/KR +Creight/M/KRT +Creighton/M/KRTN +cremate/XDSNG/KRMT +cremation/M/KRMXN +crematoria//KRMTR +crematorium/MS/KRMTRM +crematory/S/KRMTR +creme/S/KRM +crenelate/XGNSD/KRNLT +crenelation/M/KRNLXN +Creole/MS/KRL +creole/SM/KRL +Creon/M/KRN +creosote/MGDS/KRST +crepe/DSGM/KRP +crept//KRPT +crescendo/SCM/KRSNT +crescendoed//KRSNTT +crescendoing//KRSNTN +crescent/MS/KRSNT +cress/S/KRS +crest/SGMD/KRST +crestfallen/PY/KRSTFLN +crestfallenness/M/KRSTFLNS +cresting/M/KRSTN +crestless//KRSTLS +Crestview/M/KRSTF +cretaceous//KRTSS +Cretaceous/Y/KRTSS +Cretaceously/M/KRTSSL +Cretan/S/KRTN +Crete/M/KRT +cretin/MS/KRTN +cretinism/MS/KRTNSM +cretinous//KRTNS +cretonne/SM/KRTN +crevasse/DSMG/KRFS +crevice/SM/KRFS +crew/DMGS/KR +crewel/SM/KRWL +crewelwork/SM/KRWLWK +crewman/M/KRMN +crewmen//KRMN +crib/SM/KRB +cribbage/SM/KRBK +cribbed//KRBT +cribber/SM/KRB +cribbing/M/KRBN +Crichton/M/KRXTN +crick/GDSM/KRK +Crick/M/KRK +cricket/SMZRDG/KRKT +cricketer/M/KRKT +cried/C/KRT +crier/CM/KR +cries/C/KRS +crime/GMDS/KRM +Crimea/M/KRM +Crimean//KRMN +criminal/SYM/KRMNL +criminality/MS/KRMNLT +criminalization/C/KRMNLSXN +criminalize/GC/KRMNLS +criminologist/SM/KRMNLKST +criminology/MS/KRMNLK +crimp/RDGS/KRMP +crimper/M/KRMP +crimson/DMSG/KRMSN +Crin/M/KRN +cringe/SRDG/KRN +cringer/M/KRN +crinkle/DSG/KRNKL +crinkly/TRS/KRNKL +crinoline/SM/KRNLN +cripple/GMZDRS/KRPL +crippler/M/KRPL +crippling/Y/KRPLN +Cris/M/KRS +Crisco/M/KRSK +crises//KRSS +crisis/M/KRSS +crisp/PGTYRDS/KRSP +crisper/M/KRSP +crispiness/SM/KRSPNS +crispness/MS/KRSPNS +crispy/RPT/KRSP +criss//KRS +crisscross/GDS/KRSKRS +Crissie/M/KRS +Crissy/M/KRS +Crista/M/KRST +Cristabel/M/KRSTBL +Cristal/M/KRSTL +Cristen/M/KRSTN +Cristi/M/KRST +Cristian/M/KRSXN +Cristiano/M/KRSXN +Cristie/M/KRST +Cristin/M/KRSTN +Cristina/M/KRSTN +Cristine/M/KRSTN +Cristionna/M/KRSXN +Cristobal/M/KRSTBL +Cristy/M/KRST +criteria//KRTR +criterion/M/KRTRN +critic/MS/KRTK +critical/YP/KRTKL +criticality//KRTKLT +critically/U/KRTKL +criticalness/M/KRTKLNS +criticism/MS/KRTSSM +criticize/GSRDZ/KRTSS +criticized/U/KRTSST +criticizer/M/KRTSS +criticizes/A/KRTSSS +criticizing/UY/KRTSSN +criticizingly/S/KRTSSNL +critique/MGSD/KRTK +critter/SM/KRT +croak/SRDGZ/KRK +croaker/M/KRK +croaky/RT/KRK +Croat/SM/KRT +Croatia/M/KRX +Croatian/S/KRXN +Croce/M/KRS +crochet/RDSZJG/KRXT +crocheter/M/KRXT +crock/SGRDM/KRK +crockery/SM/KRKR +Crockett/M/KRKT +Crockpot/M/KRKPT +crocodile/MS/KRKTL +crocus/SM/KRKS +Croesus/SM/KRSS +croft/MRGZS/KRFT +crofter/M/KRFT +croissant/MS/KRSNT +Croix/M/KRKS +Cromwell/M/KRMWL +Cromwellian//KRMWLN +crone/SM/KRN +Cronin/M/KRNN +Cronkite/M/KRNKT +Cronus/M/KRNS +crony/SM/KRN +crook/SGDM/KRK +crooked/TPRY/KRKT +crookedness/SM/KRKTNS +Crookes/M/KRKS +crookneck/MS/KRKNK +croon/SRDGZ/KRN +crooner/M/KRN +crop/MS/KRP +cropland/MS/KRPLNT +cropped//KRPT +cropper/SM/KRP +cropping//KRPN +croquet/MDSG/KRKT +croquette/SM/KRKT +Crosby/M/KRSB +crosier/SM/KRS +Cross/M/KRS +cross/ZTYSRDMPBJG/KRS +crossarm//KRSM +crossbar/SM/KRSB +crossbarred//KRSBRT +crossbarring//KRSBRN +crossbeam/MS/KRSBM +crossbones//KRSBNS +crossbow/SM/KRSB +crossbowman/M/KRSBMN +crossbowmen//KRSBMN +crossbred/S/KRSBRT +crossbreed/SG/KRSBRT +crosscheck/SGD/KRSKK +crosscurrent/SM/KRSKRNT +crosscut/SM/KRSKT +crosscutting//KRSKTN +crossed/UA/KRST +crosses/UA/KRSS +crossfire/SM/KRSFR +crosshatch/GDS/KRXX +crossing/M/KRSN +crossness/MS/KRSNS +crossover/MS/KRSF +crosspatch/MS/KRSPX +crosspiece/SM/KRSPS +crosspoint//KRSPNT +crossproduct/S/KRSPRTKT +crossroad/GSM/KRSRT +crossroads/M/KRSRTS +crosstalk/M/KRSTLK +crosstown//KRSTN +crosswalk/MS/KRSWLK +crossway/M/KRSW +crosswind/SM/KRSWNT +crosswise//KRSWS +crossword/MS/KRSWT +crotch/MDS/KRX +crotchet/MS/KRXT +crotchetiness/M/KRXTNS +crotchety/P/KRXT +crotchless//KRXLS +crouch/DSG/KRX +croup/SMDG/KRP +croupier/M/KRP +croupy/TZR/KRP +croûton/MS/KRTN +crow/GDMS/KR +crowbait//KRBT +crowbar/SM/KRB +crowbarred//KRBRT +crowbarring//KRBRN +crowd/MRDSG/KRT +crowded/P/KRTT +crowdedness/M/KRTTNS +crowfeet//KRFT +crowfoot/M/KRFT +Crowley/M/KRL +crown/RDMSJG/KRN +crowned/U/KRNT +crowner/M/KRN +crozier's//KRSS +CRT/S/KRT +crucial/Y/KRXL +crucible/MS/KRSBL +crucifiable//KRSFBL +crucifix/SM/KRSFKS +crucifixion/MS/KRSFKSN +Crucifixion/MS/KRSFKSN +cruciform/S/KRSFM +crucify/NGDS/KRSF +crud/STMR/KRT +crudded//KRTT +crudding//KRTN +cruddy/TR/KRT +crude/YSP/KRT +crudeness/MS/KRTNS +crudités//KRTTS +crudity/MS/KRTT +cruel/YRTSP/KRL +cruelness/MS/KRLNS +cruelty/SM/KRLT +cruet/MS/KRT +cruft//KRFT +crufty//KRFT +Cruikshank/M/KRKXNK +cruise/GZSRD/KRS +cruiser/M/KRS +cruller/SM/KRL +crumb/GSYDM/KRM +crumble/DSJG/KRMBL +crumbliness/MS/KRMBLNS +crumbly/PTRS/KRMBL +crumby/RT/KRMB +crumminess/S/KRMNS +crummy/SRTP/KRM +crump//KRMP +crumpet/SM/KRMPT +crumple/DSG/KRMPL +crunch/DSRGZ/KRNX +crunchiness/MS/KRNXNS +crunchy/TRP/KRNX +crupper/MS/KRP +crusade/GDSRMZ/KRST +crusader/M/KRST +cruse/MS/KRS +crush/SRDBGZ/KRX +crushable/U/KRXBL +crusher/M/KRX +crushing/Y/KRXN +crushproof//KRXPRF +Crusoe/M/KRS +crust/GMDS/KRST +crustacean/MS/KRSTSN +crustal//KRSTL +crustily//KRSTL +crustiness/SM/KRSTNS +crusty/SRTP/KRST +crutch/MDSG/KRX +Crux/M/KRKS +crux/MS/KRKS +Cruz/M/KRS +cry/JGDRSZ/KR +crybaby/MS/KRBB +cryogenic/S/KRYKNK +cryogenics/M/KRYKNKS +cryostat/M/KRYSTT +cryosurgery/SM/KRYSKR +crypt/CS/KRPT +cryptanalysis/M/KRPTNLSS +cryptanalyst/M/KRPTNLST +cryptanalytic//KRPTNLTK +cryptic//KRPTK +cryptically//KRPTKL +cryptogram/MS/KRPTKRM +cryptographer/MS/KRPTKRF +cryptographic//KRPTKRFK +cryptographically//KRPTKRFKL +cryptography/MS/KRPTKRF +cryptologic//KRPTLKK +cryptological//KRPTLKKL +cryptologist/M/KRPTLKST +cryptology/M/KRPTLK +Cryptozoic/M/KRPTSK +crypt's//KRPTS +Crysta/M/KRST +Crystal/M/KRSTL +crystal/SM/KRSTL +crystalline/S/KRSTLN +crystallite/SM/KRSTLT +crystallization/AMS/KRSTLSXN +crystallize/SRDZG/KRSTLS +crystallized/UA/KRSTLST +crystallizes/A/KRSTLSS +crystallizing/A/KRSTLSN +crystallographer/MS/KRSTLKRF +crystallographic//KRSTLKRFK +crystallography/M/KRSTLKRF +Crystie/M/KRST +Cs//KS +C's//KS +cs/EA/KS +cs's//KSS +CST//KST +ct//KT +CT//KT +Ct/M/KT +Cthrine/M/K@RN +ctn//KTN +ctr//KTR +cu/DG/K +Cu/M/K +cub/MDRSZG/KB +Cuba/M/KB +Cuban/S/KBN +cubbed//KBT +cubbing//KBN +cubbyhole/MS/KBHL +cube/SM/KB +cuber/M/KB +cubic/YS/KBK +cubical/Y/KBKL +cubicle/SM/KBKL +cubism/SM/KBSM +cubist/MS/KBST +cubit/MS/KBT +cuboid//KBT +Cuchulain/M/KXLN +cuckold/GSDM/KKLT +cuckoldry/MS/KKLTR +cuckoo/SGDM/KK +cucumber/MS/KKMB +cud/MS/KT +cuddle/GSD/KTL +cuddly/TRP/KTL +cudgel/GSJMD/KKL +cue/MS/K +cuff/GSDM/KF +Cuisinart/M/KSNT +cuisine/MS/KSN +Culbertson/M/KLBTSN +culinary//KLNR +cull/DRGS/KL +Cull/MN/KL +Cullan/M/KLN +Cullen/M/KLN +cullender's//KLNTS +culler/M/KL +Culley/M/KL +Cullie/M/KL +Cullin/M/KLN +Cully/M/KL +culminate/XSDGN/KLMNT +culmination/M/KLMNXN +culotte/S/KLT +culpa/SM/KLP +culpability/MS/KLPBLT +culpable/I/KLPBL +culpableness/M/KLPBLNS +culpably//KLPBL +culprit/SM/KLPRT +cult/MS/KLT +cultism/SM/KLTSM +cultist/SM/KLTST +cultivable//KLTFBL +cultivate/XBSDGN/KLTFT +cultivated/U/KLTFTT +cultivation/M/KLTFXN +cultivator/SM/KLTFT +cultural/Y/KLTRL +culture/SDGM/KLTR +cultured/U/KLTRT +Culver/MS/KLF +culvert/SM/KLFT +cum/S/KM +cumber/DSG/KMB +Cumberland/M/KMBLNT +cumbersome/YP/KMBSM +cumbersomeness/MS/KMBSMNS +cumbrous//KMBRS +cumin/MS/KMN +cummerbund/MS/KMBNT +Cummings//KMNS +cumquat's//KMKTS +cumulate/XVNGSD/KMLT +cumulation/M/KMLXN +cumulative/Y/KMLTF +cumuli//KML +cumulonimbi//KMLNMB +cumulonimbus/M/KMLNMBS +cumulus/M/KMLS +Cunard/M/KNT +cuneiform/S/KNFM +cunnilingus/SM/KNLNS +cunning/RYSPT/KNN +Cunningham/M/KNNHM +cunningness/M/KNNNS +cunt/SM/KNT +cup/MS/KP +cupboard/SM/KPBT +cupcake/SM/KPKK +Cupertino/M/KPTN +cupful/SM/KPFL +Cupid/M/KPT +cupid/S/KPT +cupidinously//KPTNSL +cupidity/MS/KPTT +cupola/MDGS/KPL +cupped//KPT +cupping/M/KPN +cupric//KPRK +cuprous//KPRS +cur/IBS/K +curability/MS/KRBLT +curable/IP/KRBL +curableness/MI/KRBLNS +curably/I/KRBL +Curacao/M/KRK +curacy/SM/KRS +curare/MS/KRR +curate/VGMSD/KRT +curative/YS/KRTF +curator/KMS/KRT +curatorial//KRTRL +curb/SJDMG/KB +curbing/M/KBN +curbside//KBST +curbstone/MS/KBSTN +Curcio/M/KS +curd/SMDG/KT +curdle/SDG/KTL +cure/KBDRSGZ/KR +cured/U/KRT +curer/MK/KR +curettage/SM/KRTK +curfew/SM/KF +curfs//KFS +curia/M/KR +curiae//KR +Curie/M/KR +curie/SM/KR +curio/SM/KR +curiosity/SM/KRST +curious/TPRY/KRS +curiousness/SM/KRSNS +Curitiba/M/KRTB +curium/MS/KRM +curl/UDSG/KL +curler/SM/KL +curlew/MS/KL +curlicue/MGDS/KLK +curliness/SM/KLNS +curling/M/KLN +curly/PRT/KL +curlycue's//KLKS +curmudgeon/MYS/KMKN +Curr/M/KR +Curran/M/KRN +currant/SM/KRNT +curred/AFI/KRT +currency/SF/KRNS +currency's//KRNSS +current/FSY/KRNT +currently/A/KRNTL +currentness/M/KRNTNS +Currey/M/KR +curricle/M/KRKL +curricula//KRKL +curricular//KRKL +curriculum/M/KRKLM +Currie/M/KR +currier/M/KR +Currier/M/KR +curring/FAI/KRN +Curry/MR/KR +curry/RSDMG/KR +currycomb/DMGS/KRKM +cur's//KS +curs/ASDVG/KS +curse/A/KS +cursed/YRPT/KST +cursedness/M/KSTNS +curse's//KSS +cursive/EPYA/KSF +cursiveness/EM/KSFNS +cursives//KSFS +cursor/DMSG/KS +cursorily//KSRL +cursoriness/SM/KSRNS +cursory/P/KSR +Curt/M/KT +curt/TYRP/KT +curtail/LSGDR/KTL +curtailer/M/KTL +curtailment/SM/KTLMNT +curtain/GSMD/KTN +Curtice/M/KTS +Curtis/M/KTS +curtness/MS/KTNS +curtsey's//KTSS +curtsy/SDMG/KTS +curvaceous/YP/KFSS +curvaceousness/S/KFSSNS +curvature/MS/KFTR +curve/DSGM/KF +curved/A/KFT +curved's//KFTS +curvilinear/Y/KFLN +curvilinearity/M/KFLNRT +curving/M/KFN +curvy/RT/KF +cushion/SMDG/KXN +Cushman/M/KXMN +cushy/TR/KX +cusp/MS/KSP +cuspid/MS/KSPT +cuspidor/MS/KSPT +cuss/EGDSR/KS +cussed/YP/KST +cussedness/M/KSTNS +cusses/F/KSS +cussing/F/KSN +cuss's//KSS +custard/MS/KSTT +Custer/M/KST +custodial//KSTTL +custodian/SM/KSTTN +custodianship/MS/KSTTNXP +custody/MS/KSTT +custom/SMRZ/KSTM +customarily//KSTMRL +customariness/M/KSTMRNS +customary/PS/KSTMR +customer/M/KSTM +customhouse/S/KSTMHS +customization/SM/KSTMSXN +customize/ZGBSRD/KSTMS +cut/MRST/KT +cutaneous/Y/KTNS +cutaway/SM/KTW +cutback/SM/KTBK +cute/SPY/KT +cuteness/MS/KTNS +cutesy/RT/KTS +cuticle/SM/KTKL +cutlass/MS/KTLS +cutler/SM/KTL +cutlery/MS/KTLR +cutlet/SM/KTLT +cutoff/MS/KTF +cutout/SM/KTT +cutter/SM/KT +cutthroat/SM/K@RT +cutting/MYS/KTN +cuttle/M/KTL +cuttlebone/SM/KTLBN +cuttlefish/MS/KTLFX +cutup/MS/KTP +cutworm/MS/KTWM +Cuvier/M/KF +Cuzco/M/KSK +CV//KF +cw//K +cwt//KT +Cy/M/S +cyan/MS/SYN +Cyanamid/M/SYNMT +cyanate/M/SYNT +cyanic//SYNK +cyanide/GMSD/SYNT +cyanogen/M/SYNKN +Cyb/M/SB +Cybele/M/SBL +cybernetic/S/SBNTK +cybernetics/M/SBNTKS +cyberpunk/S/SBPNK +cyberspace/S/SBSPS +Cybil/M/SBL +Cybill/M/SBL +cyborg/S/SBK +Cyclades//SKLTS +cyclamen/MS/SKLMN +cycle/ASDG/SKL +cycler//SKL +cycle's//SKLS +cycleway/S/SKLW +cyclic//SKLK +cyclical/SY/SKLKL +cycling/M/SKLN +cyclist/MS/SKLST +cyclohexanol//SKLHKSNL +cycloid/SM/SKLT +cycloidal//SKLTL +cyclometer/MS/SKLMT +cyclone/SM/SKLN +cyclonic//SKLNK +cyclopean//SKLPN +cyclopedia/MS/SKLPT +cyclopes//SKLPS +Cyclopes//SKLPS +cyclops//SKLPS +Cyclops/M/SKLPS +cyclotron/MS/SKLTRN +cyder/SM/ST +cygnet/MS/SKNT +Cygnus/M/SKNS +cylinder/GMDS/SLNT +cylindric//SLNTRK +cylindrical/Y/SLNTRKL +cymbal/SM/SMBL +cymbalist/MS/SMBLST +Cymbre/M/SMBR +Cynde/M/SNT +Cyndi/M/SNT +Cyndia/M/SNT +Cyndie/M/SNT +Cyndy/M/SNT +cynic/MS/SNK +cynical/UY/SNKL +cynicism/MS/SNSSM +cynosure/SM/SNSR +Cynthea/M/SN@ +Cynthia/M/SN@ +Cynthie/M/SN@ +Cynthy/M/SN@ +cypher/MGSD/SF +cypreses//SPRSS +cypress/SM/SPRS +Cyprian//SPRN +Cypriot/SM/SPRT +Cyprus/M/SPRS +Cyrano/M/SRN +Cyril/M/SRL +Cyrill/M/SRL +Cyrille/M/SRL +Cyrillic//SRLK +Cyrillus/M/SRLS +Cyrus/M/SRS +cyst/MS/SST +cystic//SSTK +cytochemistry/M/STXMSTR +cytochrome/M/STXRM +cytologist/MS/STLKST +cytology/MS/STLK +cytolysis/M/STLSS +cytoplasm/SM/STPLSM +cytoplasmic//STPLSMK +cytosine/MS/STSN +cytotoxic//STTKSK +CZ//KS +czar/SM/KS +czarevitch/M/KSRFX +czarina/SM/KSRN +czarism/M/KSRSM +czarist/S/KSRST +czarship//KSXP +Czech//KSX +Czechoslovak/S/KSXSLFK +Czechoslovakia/M/KSXSLFK +Czechoslovakian/S/KSXSLFKN +Czechs//KSXS +Czerniak/M/KSNK +Czerny/M/KSN +D//T +d/JGVX/T +DA//T +dab/S/TB +dabbed//TBT +dabber/MS/TB +dabbing//TBN +dabble/RSDZG/TBL +dabbler/M/TBL +Dacca's//TKS +dace/MS/TS +Dacey/M/TS +dacha/SM/TX +Dachau/M/TX +dachshund/SM/TXXNT +Dacia/M/TX +Dacie/M/TS +Dacron/MS/TKRN +dactyl/MS/TKTL +dactylic/S/TKTLK +Dacy/M/TS +dad/SM/TT +Dada/M/TT +Dadaism/M/TTSM +dadaism/S/TTSM +Dadaist/M/TTST +dadaist/S/TTST +daddy/SM/TT +Dade/M/TT +dado/DMG/TT +dadoes//TTS +Daedalus/M/TTLS +Dael/M/TL +daemon/SM/TMN +daemonic//TMNK +Daffi/M/TF +Daffie/M/TF +daffiness/S/TFNS +daffodil/MS/TFTL +Daffy/M/TF +daffy/PTR/TF +daft/TYRP/TFT +daftness/MS/TFTNS +DAG//TK +Dag/M/TK +dagger/DMSG/TK +Dagmar/M/TKM +Dagny/M/TKN +Daguerre/M/TKR +daguerreotype/MGDS/TKRTP +Dagwood/M/TKWT +Dahl/M/TL +Dahlia/M/TL +dahlia/MS/TL +Dahomey/M/THM +Daile/M/TL +dailiness/MS/TLNS +daily/PS/TL +Daimler/M/TML +daintily//TNTL +daintiness/MS/TNTNS +dainty/TPRS/TNT +daiquiri/SM/TKR +dairy/MJGS/TR +dairying/M/TRYN +dairyland//TRLNT +dairymaid/SM/TRMT +dairyman/M/TRMN +dairymen//TRMN +dairywoman/M/TRWMN +dairywomen//TRWMN +dais/SM/TS +Daisey/M/TS +Daisi/M/TS +Daisie/M/TS +Daisy/M/TS +daisy/SM/TS +Dakar/M/TK +Dakota/SM/TKT +Dakotan//TKTN +Dal/M/TL +Dale/M/TL +dale/SMH/TL +Dalenna/M/TLN +daleth/M/TL@ +Daley/M/TL +Dalhousie/M/TLHS +Dali/SM/TL +Dalia/M/TL +Dalian/M/TLN +Dalila/M/TLL +Dall/M/TL +Dallas/M/TLS +Dalli/MS/TL +dalliance/SM/TLNS +dallier/M/TL +Dallon/M/TLN +dally/ZRSDG/TL +Dalmatia/M/TLMX +dalmatian/S/TLMXN +Dalmatian/SM/TLMXN +Daloris/M/TLRS +Dalston/M/TLSTN +Dalt/M/TLT +Dalton/M/TLTN +Daly/M/TL +dam/MDS/TM +damage/MZGRSD/TMK +damageable//TMKBL +damaged/U/TMKT +damager/M/TMK +damaging/Y/TMKN +Damara/M/TMR +Damaris/M/TMRS +Damascus/M/TMSKS +damask/DMGS/TMSK +dame/SM/TM +Dame/SMN/TM +Damian/M/TMN +Damiano/M/TMN +Damien/M/TMN +Damion/M/TMN +Damita/M/TMT +dammed//TMT +damming//TMN +dammit/S/TMT +damn/GSBRD/TMN +damnably//TMNBL +damnation/MS/TMNXN +damned/TR/TMNT +damnedest/MS/TMNTST +damning/Y/TMNN +Damocles/M/TMKLS +Damon/M/TMN +damp/SGZTXYRDNP/TMP +damped/U/TMPT +dampen/RDZG/TMPN +dampener/M/TMPN +damper/M/TMP +dampness/MS/TMPNS +damsel/MS/TMSL +damselfly/MS/TMSLFL +damson/MS/TMSN +Dan/SM/TN +Dana/M/TN +Danaë//TN +Danbury/M/TNBR +dance/SRDJGZ/TNS +dancelike//TNSLK +dancer/M/TNS +dandelion/MS/TNTLN +dander/DMGS/TNT +dandify/SDG/TNTF +dandily//TNTL +dandle/GSD/TNTL +dandruff/MS/TNTRF +dandy/TRSM/TNT +Dane/SM/TN +Danelaw/M/TNL +Danell/M/TNL +Danella/M/TNL +Danette/M/TNT +dang/SGZRD/TNK +danger/DMG/TNK +Dangerfield/M/TNKFLT +dangerous/YP/TNKRS +dangerousness/M/TNKRSNS +dangle/ZGRSD/TNKL +dangler/M/TNKL +dangling/Y/TNKLN +Dani/M/TN +Dania/M/TN +Danial/M/TNL +Danica/M/TNK +Danice/M/TNS +Danie/M/TN +Daniel/SM/TNL +Daniela/M/TNL +Daniele/M/TNL +Daniella/M/TNL +Danielle/M/TNL +Danielson/M/TNLSN +Danika/M/TNK +Danila/M/TNL +Danish//TNX +danish/S/TNX +Danit/M/TNT +Danita/M/TNT +dank/TPYR/TNK +dankness/MS/TNKNS +Danna/M/TN +Dannel/M/TNL +Danni/M/TN +Dannie/M/TN +Danny/M/TN +Dannye/M/TNY +danseuse/SM/TNSS +Dante/M/TNT +Danton/M/TNTN +Danube/M/TNB +Danubian//TNBN +Danville/M/TNFL +Danya/M/TNY +Danyelle/M/TNYL +Danyette/M/TNYT +Danzig/M/TNSK +Daphene/M/TFN +Daphna/M/TFN +Daphne/M/TFN +dapper/PSTRY/TP +dapperness/M/TPNS +dapple/SDG/TPL +Dar/MNH/T +Dara/M/TR +Darb/M/TB +Darbee/M/TB +Darbie/M/TB +Darby/M/TB +Darcee/M/TS +Darcey/M/TS +Darci/M/TS +Darcie/M/TS +D'Arcy//TS +Darcy/M/TS +Darda/M/TT +Dardanelles//TTNLS +Dare/M/TR +dare/ZGDRSJ/TR +daredevil/MS/TRTFL +daredevilry/S/TRTFLR +Dareen/M/TRN +Darell/M/TRL +Darelle/M/TRL +Daren/M/TRN +darer/M/TR +daresay//TRS +d'Arezzo//TRS +Dari/M/TR +Daria/M/TR +Darice/M/TRS +Darill/M/TRL +Darin/M/TRN +daring/PY/TRN +daringness/M/TRNNS +Dario/M/TR +Darius/M/TRS +Darjeeling/M/TKLN +dark/GTXYRDNSP/TK +darken/RDZG/TKN +darkener/M/TKN +darkish//TKX +darkly/TR/TKL +darkness/MS/TKNS +darkroom/SM/TKRM +Darla/M/TL +Darleen/M/TLN +Darlene/M/TLN +Darline/M/TLN +Darling/M/TLN +darling/YMSP/TLN +darlingness/M/TLNNS +Darlington/M/TLNTN +Darlleen/M/TLN +darn/GRDZS/TN +Darn/M/TN +Darnall/M/TNL +darned/TR/TNT +Darnell/M/TNL +darner/M/TN +darning/M/TNN +Daron/M/TRN +DARPA/M/TP +Darrel/M/TRL +Darrell/M/TRL +Darrelle/M/TRL +Darren/M/TRN +Darrick/M/TRK +Darrin/M/TRN +Darrow/M/TR +Darryl/M/TRL +Darsey/M/TS +Darsie/M/TS +d'art//TT +dart/MRDGZS/TT +dartboard/SM/TTBT +darter/M/TT +Darth/M/T@ +Dartmouth/M/TTM@ +Darvon/M/TFN +Darwin/M/TWN +Darwinian/S/TWNN +Darwinism/MS/TWNSM +Darwinist/MS/TWNST +Darya/M/TRY +Daryl/M/TRL +Daryle/M/TRL +Daryn/M/TRN +dash/GZSRD/TX +Dasha/M/TX +dashboard/SM/TXBT +dasher/M/TX +dashiki/SM/TXK +dashing/Y/TXN +Dasi/M/TS +Dasie/M/TS +dastard/MYS/TSTT +dastardliness/SM/TSTTLNS +dastardly/P/TSTTL +Dasya/M/TSY +DAT//TT +data/M/TT +database/DSMG/TTBS +datafile//TTFL +datagram/MS/TTKRM +Datamation/M/TTMXN +Datamedia/M/TTMT +dataset/S/TTST +date/DRSMZGV/TT +dated/U/TTT +datedly//TTTL +datedness//TTTNS +dateless//TTLS +dateline/DSMG/TTLN +dater/M/TT +Datha/M/T@ +dative/S/TTF +Datsun/M/TTSN +datum/MS/TTM +daub/RDSGZ/TB +dauber/M/TB +Daugherty/M/TKT +daughter/MYS/TT +Daumier/M/TM +Daune/M/TN +daunt/DSG/TNT +daunted/U/TNTT +daunting/Y/TNTN +dauntless/PY/TNTLS +dauntlessness/SM/TNTLSNS +dauphin/SM/TFN +Dav/MN/TF +Davao/M/TF +Dave/M/TF +Daveen/M/TFN +Daven/M/TFN +Davenport/M/TFNPT +davenport/MS/TFNPT +Daveta/M/TFT +Davey/M/TF +David/SM/TFT +Davida/M/TFT +Davidde/M/TFT +Davide/M/TFT +Davidson/M/TFTSN +Davie/M/TF +Davin/M/TFN +Davina/M/TFN +Davine/M/TFN +Davinich/M/TFNX +Davis/M/TFS +davit/SM/TFT +Davita/M/TFT +Davon/M/TFN +Davy/SM/TF +dawdle/ZGRSD/TTL +dawdler/M/TTL +Dawes/M/TWS +dawn/GSDM/TN +Dawn/M/TN +Dawna/M/TN +Dawson/M/TSN +Day/M/T +day/SM/T +daybed/S/TBT +daybreak/SM/TBRK +daycare/S/TKR +daydream/RDMSZG/TTRM +daydreamer/M/TTRM +Dayle/M/TL +daylight/GSDM/TLT +Dayna/M/TN +daysack//TSK +daytime/SM/TTM +Dayton/M/TTN +daze/DSG/TS +dazed/PY/TST +dazzle/ZGJRSD/TSL +dazzler/M/TSL +dazzling/Y/TSLN +db//TB +DB//TB +dB/M/TB +dbl//TBL +DBMS//TBMS +DC//TK +DD//T +Ddene/M/TN +DDS//TS +DDT//TT +DE//T +De/NM/T +deacon/DSMG/TKN +deaconess/MS/TKNS +dead/PTXYRN/TT +deadbeat/SM/TTBT +deadbolt/S/TTBLT +deaden/RDG/TTN +deadener/M/TTN +deadening/MY/TTNN +deadhead/MS/TTHT +deadline/MGDS/TTLN +deadliness/SM/TTLNS +deadlock/MGDS/TTLK +deadly/RPT/TTL +deadness/M/TTNS +deadpan/S/TTPN +deadpanned//TTPNT +deadpanner//TTPN +deadpanning//TTPNN +deadwood/SM/TTWT +deaf/TXPYRN/TF +deafen/JGD/TFN +deafening/MY/TFNN +deafness/MS/TFNS +deal/RSGZJ/TL +dealer/M/TL +dealership/MS/TLXP +dealing/M/TLN +deallocator//TLKT +dealt//TLT +dean/DMG/TN +Dean/M/TN +Deana/M/TN +Deandre/M/TNTR +Deane/M/TN +deanery/MS/TNR +Deann/M/TN +Deanna/M/TN +Deanne/M/TN +deanship/SM/TNXP +dear/TYRHPS/T +Dearborn/M/TBN +dearness/MS/TNS +dearth/M/T@ +dearths//T@S +deary/MS/TR +deassign//TSN +death/MY/T@ +deathbed/MS/T@BT +deathblow/SM/T@BL +deathless/Y/T@LS +deathlike//T@LK +deathly/TR/T@L +deaths//T@S +deathtrap/SM/T@TRP +deathward//T@WT +deathwatch/MS/T@WX +deb/MS/TB +Deb/MS/TB +debacle/SM/TBKL +debar/L/TB +debark/G/TBK +debarkation/SM/TBKXN +debarment/SM/TBMNT +debarring//TBRN +debaser/M/TBS +debatable/U/TBTBL +debate/BMZ/TBT +debater/M/TBT +debauch/GDRS/TBX +debauched/PY/TBXT +debauchedness/M/TBXTNS +debauchee/SM/TBX +debaucher/M/TBX +debauchery/SM/TBXR +Debbi/M/TB +Debbie/M/TB +Debby/M/TB +Debee/M/TB +debenture/MS/TBNTR +Debera/M/TBR +Debi/M/TB +debilitate/NGXSD/TBLTT +debilitation/M/TBLTXN +debility/MS/TBLT +debit/DG/TBT +debonair/PY/TBN +debonairness/SM/TBNNS +Debor/M/TB +Debora/M/TBR +Deborah/M/TBR +debouch/DSG/TBX +Debra/M/TBR +debrief/GJ/TBRF +debris/M/TBRS +debt/SM/TBT +debtor/SM/TBT +Debussy/M/TBS +debut/MDG/TBT +débutante/SM/TBTNT +Dec/M/TK +DEC/M/TK +decade/MS/TKT +decadency/S/TKTNS +decadent/YS/TKTNT +decaf/S/TKF +decaffeinate/DSG/TKFNT +decagon/MS/TKKN +decal/SM/TKL +Decalogue/M/TKLK +decamp/L/TKMP +decampment/MS/TKMPMNT +decapitate/GSD/TKPTT +decapitator/SM/TKPTT +decathlon/SM/TK@LN +Decatur/M/TKT +decay/GRD/TK +Decca/M/TK +Deccan/M/TKN +decease/M/TSS +decedent/MS/TSTNT +deceit/SM/TST +deceitful/PY/TSTFL +deceitfulness/SM/TSTFLNS +deceive/ZGRSD/TSF +deceived/U/TSFT +deceiver/M/TSF +deceives/U/TSFS +deceiving/U/TSFN +deceivingly//TSFNL +decelerate/XNGSD/TSLRT +deceleration/M/TSLRXN +decelerator/SM/TSLRT +December/SM/TSMB +decency/ISM/TSNS +decennial/SY/TSNL +decent/TIYR/TSNT +deception/SM/TSPXN +deceptive/YP/TSPTF +deceptiveness/SM/TSPTFNS +decertify/N/TSTF +dechlorinate/N/TXLRNT +decibel/MS/TSBL +decidability/U/TSTBLT +decidable/U/TSTBL +decide/GRSDB/TST +decided/PY/TSTT +decidedness/M/TSTTNS +deciduous/YP/TSTS +deciduousness/M/TSTSNS +decile/SM/TSL +deciliter/SM/TSLT +decimal/SYM/TSML +decimate/XNGDS/TSMT +decimation/M/TSMXN +decimeter/MS/TSMT +decipher/BRZG/TSF +decipherable/IU/TSFRBL +decipherer/M/TSFR +decision/ISM/TSXN +decisional//TSXNL +decisioned//TSXNT +decisioning//TSXNN +decisive/IPY/TSSF +decisiveness/MSI/TSSFNS +deck/GRDMSJ/TK +Deck/RM/TK +deckchair//TKX +decker/M/TK +Decker/M/TK +deckhand/S/TKHNT +decking/M/TKN +declamation/SM/TKLMXN +declamatory//TKLMTR +declarable//TKLRBL +declaration/MS/TKLRXN +declaration's/A/TKLRXNS +declarative/SY/TKLRTF +declarator/MS/TKLRT +declaratory//TKLRTR +declare/AGSD/TKLR +declared/U/TKLRT +declarer/MS/TKLR +declension/SM/TKLNXN +declination/MS/TKLNXN +decline/ZGRSD/TKLN +decliner/M/TKLN +declivity/SM/TKLFT +DECNET//TKNT +DECnet/M/TKNT +deco//TK +décolletage/S/TKLTK +décolleté//TKLT +decolletes//TKLTS +decolorising//TKLRSN +decomposability/M/TKMPSBLT +decomposable/IU/TKMPSBL +decompose/B/TKMPS +decompress/R/TKMPRS +decongestant/S/TKNKSTNT +deconstruction//TKNSTRKXN +deconvolution//TKNFLXN +decor/S/TK +decorate/NGVDSX/TKRT +decorated/AU/TKRTT +decorates/A/TKRTS +decorating/A/TKRTN +decoration/ASM/TKRXN +decorative/YP/TKRTF +decorativeness/M/TKRTFNS +decorator/SM/TKRT +decorous/PIY/TKRS +decorousness/MS/TKRSNS +decorousness's/I/TKRSNSS +decorticate/GNDS/TKTKT +decortication/M/TKTKXN +decorum/MS/TKRM +decoupage/MGSD/TKPK +decouple/G/TKPL +decoy/M/TK +decrease//TKRS +decreasing/Y/TKRSN +decree/RSM/TKR +decreeing//TKRN +decrement/DMGS/TKRMNT +decremental//TKRMNTL +decrepit//TKRPT +decrepitude/SM/TKRPTT +decriminalization/S/TKRMNLSXN +decriminalize/DS/TKRMNLS +decry/G/TKR +decrypt/GD/TKRPT +decryption//TKRPXN +DECstation/M/TKSTXN +DECsystem/M/TKSSTM +DECtape/M/TKTP +decustomised//TKSTMST +Dede/M/TT +Dedekind/M/TTKNT +dedicate/AGDS/TTKT +dedicated/Y/TTKTT +dedication/MS/TTKXN +dedicative//TTKTF +dedicator/MS/TTKT +dedicatory//TTKTR +Dedie/M/TT +Dedra/M/TTR +deduce/RSDG/TTS +deducible//TTSBL +deduct/VG/TTKT +deductibility/M/TTKTBLT +deductible/S/TTKTBL +deduction/SM/TTKXN +deductive/Y/TTKTF +Dee/M/T +Deeann/M/TN +Deeanne/M/TN +deed/IS/TT +deeded//TTT +Deedee/M/TT +deeding//TTN +deed's//TTS +deejay/MDSG/TK +deem/ADGS/TM +deemphasis//TMFSS +Deena/M/TN +deep/PTXSYRN/TP +deepen/DG/TPN +deepish//TPX +deepness/MS/TPNS +deer/SM/T +Deerdre/M/TTR +Deere/M/TR +deerskin/MS/TSKN +deerstalker/SM/TSTLK +deerstalking/M/TSTLKN +Deeyn/M/TN +def/Z/TF +deface/LZ/TFS +defacement/SM/TFSMNT +defaecate//TFKT +defalcate/NGXSD/TFLKT +defalcation/M/TFLKXN +defamation/SM/TFMXN +defamatory//TFMTR +defame/ZR/TFM +defamer/M/TFM +default/ZR/TFLT +defaulter/M/TFLT +defeat/ZGD/TFT +defeated/U/TFTT +defeater/M/TFT +defeatism/SM/TFTSM +defeatist/SM/TFTST +defecate/DSNGX/TFKT +defecation/M/TFKXN +defect/MDSVG/TFKT +defection/SM/TFKXN +defective/PYS/TFKTF +defectiveness/MS/TFKTFNS +defector/MS/TFKT +defendant/SM/TFNTNT +defended/U/TFNTT +defenestrate/GSD/TFNSTRT +defense/VGSDM/TFNS +defenseless/PY/TFNSLS +defenselessness/MS/TFNSLSNS +defenses/U/TFNSS +defensibility/M/TFNSBLT +defensible/I/TFNSBL +defensibly/I/TFNSBL +defensive/PSY/TFNSF +defensiveness/MS/TFNSFNS +deference/MS/TFRNS +deferent/S/TFRNT +deferential/Y/TFRNXL +deferrable//TFRBL +deferral/SM/TFRL +deferred//TFRT +deferrer/MS/TFR +deferring//TFRN +deffer//TF +defiance/MS/TFNS +defiant/Y/TFNT +defibrillator/M/TFBRLT +deficiency/MS/TFSNS +deficient/SY/TFSNT +deficit/MS/TFST +defier/M/TF +defile/L/TFL +defilement/MS/TFLMNT +definable/UI/TFNBL +definably/I/TFNBL +define/AGDRS/TFN +defined/U/TFNT +definer/SM/TFN +definite/IPY/TFNT +definiteness/IMS/TFNTNS +definition/ASM/TFNXN +definitional//TFNXNL +definitive/SYP/TFNTF +definitiveness/M/TFNTFNS +defis//TFS +deflate/XNGRSDB/TFLT +deflation/M/TFLXN +deflationary//TFLXNR +deflect/DSGV/TFLKT +deflected/U/TFLKTT +deflection/MS/TFLKXN +deflector/MS/TFLKT +defocus//TFKS +defocussing//TFKSN +Defoe/M/TF +defog//TFK +defogger/S/TFK +defoliant/SM/TFLNT +defoliator/SM/TFLT +deform/B/TFM +deformational//TFMXNL +deformed/U/TFMT +deformity/SM/TFMT +defraud/ZGDR/TFRT +defrauder/M/TFRT +defrayal/SM/TFRYL +defrost/RZ/TFRST +defroster/M/TFRST +deft/TYRP/TFT +deftness/MS/TFTNS +defunct/S/TFNKT +defy/RDG/TF +defying/Y/TFYN +deg//TK +Degas/M/TKS +degassing//TKSN +degauss/GD/TKS +degeneracy/MS/TKNRS +degenerate/PY/TKNRT +degenerateness/M/TKNRTNS +degrade/B/TKRT +degraded/YP/TKRTT +degradedness/M/TKRTTNS +degrading/Y/TKRTN +degrease//TKRS +degree/SM/TKR +degum//TKM +Dehlia/M/TL +dehumanize//THMNS +dehydrator/MS/THTRT +deice/ZR/TS +deicer/M/TS +deictic//TKTK +Deidre/M/TTR +deification/M/TFKXN +deify/SDXGN/TF +deign/DGS/TN +Deimos/M/TMS +Deina/M/TN +Deirdre/MS/TTR +deist/SM/TST +deistic//TSTK +Deity/M/TT +deity/SM/TT +deja//TK +deject/DSG/TKKT +dejected/PY/TKKTT +dejectedness/M/TKKTTNS +dejection/SM/TKKXN +Dejesus/M/TKSS +DeKalb/M/TKLB +DeKastere/M/TKSTR +Del/MY/TL +Dela/M/TL +Delacroix/M/TLKRKS +Delacruz/M/TLKRS +Delainey/M/TLN +Delaney/M/TLN +Delano/M/TLN +Delaware/MS/TLWR +Delawarean/SM/TLWRN +delay/D/TL +delayer/G/TLY +Delbert/M/TLBT +Delcina/M/TLSN +Delcine/M/TLSN +delectable/SP/TLKTBL +delectableness/M/TLKTBLNS +delectably//TLKTBL +delectation/MS/TLKTXN +delegable//TLKBL +Deleon/M/TLN +delete/XBRSDNG/TLT +deleted/U/TLTT +deleterious/PY/TLTRS +deleteriousness/M/TLTRSNS +deletion/M/TLXN +delfs//TLFS +Delft/M/TLFT +delft/MS/TLFT +delftware/S/TLFTWR +Delgado/M/TLKT +Delhi/M/TLH +deli/SM/TL +Delia/M/TL +deliberate/PVY/TLBRT +deliberateness/SM/TLBRTNS +deliberative/PY/TLBRTF +deliberativeness/M/TLBRTFNS +Delibes/M/TLBS +delicacy/IMS/TLKS +delicate/IYP/TLKT +delicateness/IM/TLKTNS +delicatenesses//TLKTNSS +delicates//TLKTS +delicatessen/MS/TLKTSN +delicious/YSP/TLSS +deliciousness/MS/TLSSNS +delicti//TLKT +delighted/YP/TLTT +delightedness/M/TLTTNS +delightful/YP/TLTFL +delightfulness/M/TLTFLNS +Delila/M/TLL +Delilah/M/TLL +Delilahs//TLLS +Delinda/M/TLNT +delineate/SDXVNG/TLNT +delineation/M/TLNXN +delinquency/MS/TLNKNS +delinquent/SYM/TLNKNT +deliquesce/GSD/TLKS +deliquescent//TLKSNT +delirious/PY/TLRS +deliriousness/MS/TLRSNS +delirium/SM/TLRM +Delius/M/TLS +deliver/AGSD/TLF +deliverable/U/TLFRBL +deliverables//TLFRBLS +deliverance/SM/TLFRNS +delivered/U/TLFRT +deliverer/SM/TLFR +delivery/AM/TLFR +deliverymen/M/TLFRMN +Dell/M/TL +dell/SM/TL +Della/M/TL +Dellwood/M/TLWT +Delly/M/TL +Delmar/M/TLM +Delmarva/M/TLMF +Delmer/M/TLM +Delmonico//TLMNK +Delmor/M/TLM +Delmore/M/TLMR +Delora/M/TLR +Delores/M/TLRS +Deloria/M/TLR +Deloris/M/TLRS +Delphi/M/TLF +Delphic//TLFK +Delphine/M/TLFN +Delphinia/M/TLFN +delphinium/SM/TLFNM +Delphinus/M/TLFNS +Delta/M/TLT +delta/MS/TLT +deltoid/SM/TLTT +delude/RSDG/TLT +deluder/M/TLT +deluding/Y/TLTN +deluge/SDG/TLK +delusion/SM/TLXN +delusional//TLXNL +delusive/PY/TLSF +delusiveness/M/TLSFNS +deluxe//TLKS +delve/GZSRD/TLF +delver/M/TLF +Dem/MG/TM +demagnify/N/TMKNF +demagogic//TMKKK +demagogue/GSDM/TMKK +demagoguery/SM/TMKKR +demagogy/MS/TMKK +demand/GSRD/TMNT +demander/M/TMNT +demanding/U/TMNTN +demandingly//TMNTNL +demarcate/SDNGX/TMKT +demarcation/M/TMKXN +Demavend/M/TMFNT +demean/GDS/TMN +demeanor/SM/TMN +demented/YP/TMNTT +dementedness/M/TMNTTNS +dementia/MS/TMNX +Demerol/M/TMRL +demesne/SM/TMSN +Demeter/M/TMT +Demetra/M/TMTR +Demetre/M/TMTR +Demetri/MS/TMTR +Demetria/M/TMTR +Demetrius/M/TMTRS +demigod/MS/TMKT +demijohn/MS/TMKN +demimondaine/SM/TMMNTN +demimonde/SM/TMMNT +demineralization/SM/TMNRLSXN +Deming/M/TMN +demise/DMG/TMS +demit//TMT +demitasse/MS/TMTS +demitted//TMTT +demitting//TMTN +demo/DMPG/TM +democracy/MS/TMKRS +Democrat/MS/TMKRT +democrat/SM/TMKRT +Democratic//TMKRTK +democratic/U/TMKRTK +democratically/U/TMKRTKL +democratization/MS/TMKRTSXN +democratize/DRSG/TMKRTS +democratizes/U/TMKRTSS +Democritus/M/TMKRTS +démodé//TMT +demographer/MS/TMKRF +demographic/S/TMKRFK +demographical/Y/TMKRFKL +demography/MS/TMKRF +demolish/GSRD/TMLX +demolisher/M/TMLX +demolition/MS/TMLXN +demon/SM/TMN +demonetization/S/TMNTSXN +demoniac/S/TMNK +demoniacal/Y/TMNKL +demonic//TMNK +demonology/M/TMNLK +demonstrable/I/TMNSTRBL +demonstrableness/M/TMNSTRBLNS +demonstrably/I/TMNSTRBL +demonstrate/XDSNGV/TMNSTRT +demonstration/M/TMNSTRXN +demonstrative/YUP/TMNSTRTF +demonstrativeness/UM/TMNSTRTFNS +demonstrativenesses//TMNSTRTFNSS +demonstratives//TMNSTRTFS +demonstrator/MS/TMNSTRT +demoralization/M/TMRLSXN +demoralizer/M/TMRLS +demoralizing/Y/TMRLSN +DeMorgan/M/TMKN +Demosthenes/M/TMS@NS +demote/DGX/TMT +demotic/S/TMTK +Demott/M/TMT +demount/B/TMNT +Dempsey/M/TMPS +demulcent/S/TMLSNT +demultiplex//TMLTPLKS +demur/RTS/TM +demure/YP/TMR +demureness/SM/TMRNS +demurral/MS/TMRL +demurred//TMRT +demurrer/MS/TMR +demurring//TMRN +demythologization/M/TM@LKSXN +demythologize/R/TM@LKS +den//TN +Den/M/TN +Dena/M/TN +dendrite/MS/TNTRT +Dene/M/TN +Deneb/M/TNB +Denebola/M/TNBL +Deneen/M/TNN +Deng/M/TNK +dengue/MS/TNK +Deni/SM/TN +deniable/U/TNBL +denial/SM/TNL +Denice/M/TNS +denier/M/TN +denigrate/VNGXSD/TNKRT +denigration/M/TNKRXN +denim/SM/TNM +Denise/M/TNS +denizen/SMDG/TNSN +Denmark/M/TNMK +Denna/M/TN +denned//TNT +Dennet/M/TNT +Denney/M/TN +Denni/MS/TN +Dennie/M/TN +denning//TNN +Dennison/M/TNSN +Denny/M/TN +denominate/V/TNMNT +denominational/Y/TNMNXNL +denote/B/TNT +denouement/MS/TNMNT +denounce/LZRSDG/TNNS +denouncement/SM/TNNSMNT +denouncer/M/TNNS +dens/RT/TNS +dense/FR/TNS +densely//TNSL +denseness/SM/TNSNS +densitometer/MS/TNSTMT +densitometric//TNSTMTRK +densitometry/M/TNSTMTR +density/MS/TNST +dent/ISGD/TNT +dental/YS/TNTL +dentifrice/SM/TNTFRS +dentin/SM/TNTN +dentine's//TNTNS +dentist/SM/TNTST +dentistry/MS/TNTSTR +dentition/MS/TNTXN +dent's//TNTS +denture/IMS/TNTR +denuclearize/GSD/TNKLRS +denudation/SM/TNTXN +denude/DG/TNT +denuder/M/TNT +denunciate/VNGSDX/TNNXT +denunciation/M/TNNXXN +Denver/M/TNF +Deny/M/TN +deny/SRDZG/TN +denying/Y/TNYN +Denys//TNS +Denyse/M/TNS +deodorant/SM/TTRNT +deodorization/SM/TTRSXN +deodorize/GZSRD/TTRS +deodorizer/M/TTRS +Deon/M/TN +Deonne/M/TN +deoxyribonucleic//TKSRBNKLK +depart/L/TPT +department/MS/TPTMNT +departmental/Y/TPTMNTL +departmentalization/SM/TPTMNTLSXN +departmentalize/DSG/TPTMNTLS +departure/MS/TPTR +depend/B/TPNT +dependability/MS/TPNTBLT +dependable/P/TPNTBL +dependableness/M/TPNTBLNS +dependably//TPNTBL +Dependant/MS/TPNTNT +dependence/ISM/TPNTNS +dependency/MS/TPNTNS +dependent/IYS/TPNTNT +dependent's//TPNTNTS +depict/RDSG/TPKT +depicted/U/TPKTT +depicter/M/TPKT +depiction/SM/TPKXN +depilatory/S/TPLTR +deplete/VGNSDX/TPLT +depletion/M/TPLXN +deplorable/P/TPLRBL +deplorableness/M/TPLRBLNS +deplorably//TPLRBL +deplore/SRDBG/TPLR +deplorer/M/TPLR +deploring/Y/TPLRN +deploy/AGDLS/TPL +deployable//TPLYBL +deployment/SAM/TPLMNT +depolarize//TPLRS +deponent/S/TPNNT +deport/LG/TPT +deportation/MS/TPTXN +deportee/SM/TPT +deportment/MS/TPTMNT +depose//TPS +deposit/ADGS/TPST +depositary/M/TPSTR +deposition/A/TPSXN +depositor/SAM/TPST +depository/MS/TPSTR +deprave/GSRD/TPRF +depraved/PY/TPRFT +depravedness/M/TPRFTNS +depraver/M/TPRF +depravity/SM/TPRFT +deprecate/XSDNG/TPRKT +deprecating/Y/TPRKTN +deprecation/M/TPRKXN +deprecatory//TPRKTR +depreciable//TPRXBL +depreciate/XDSNGV/TPRXT +depreciating/Y/TPRXTN +depreciation/M/TPRXXN +depreciative/Y/TPRXTF +depress/V/TPRS +depressant/S/TPRSNT +depressible//TPRSBL +depression/MS/TPRXN +depressive/YS/TPRSF +depressor/MS/TPRS +deprive/GSD/TPRF +Dept/M/TPT +depth/M/TP@ +depths//TP@S +deputation/SM/TPTXN +depute/SDG/TPT +deputize/DSG/TPTS +deputy/MS/TPT +dequeue//TK +Der/M/T +derail/L/TRL +dérailleur/MS/TRL +derailment/MS/TRLMNT +derange/L/TRNK +derangement/MS/TRNKMNT +derby/SM/TB +Derby/SM/TB +Derbyshire/M/TBXR +dereference/Z/TRFRNS +Derek/M/TRK +derelict/S/TRLKT +dereliction/SM/TRLKXN +Derick/M/TRK +deride/D/TRT +deriding/Y/TRTN +derision/SM/TRXN +derisive/PY/TRSF +derisiveness/MS/TRSFNS +derisory//TRSR +derivable/U/TRFBL +derivate/XNV/TRFT +derivation/M/TRFXN +derivative/SPYM/TRFTF +derivativeness/M/TRFTFNS +derive/B/TRF +derived/U/TRFT +Derk/M/TK +dermal//TML +dermatitides//TMTTTS +dermatitis/MS/TMTTS +dermatological//TMTLKKL +dermatologist/MS/TMTLKST +dermatology/MS/TMTLK +dermis/SM/TMS +Dermot/M/TMT +derogate/XDSNGV/TRKT +derogation/M/TRKXN +derogatorily//TRKTRL +derogatory//TRKTR +Derrek/M/TRK +Derrick/M/TRK +derrick/SMDG/TRK +Derrida/M/TRT +derrière/S/TRR +Derrik/M/TRK +Derril/M/TRL +derringer/SM/TRN +Derron/M/TRN +Derry/M/TR +dervish/SM/TFX +Derward/M/TWT +Derwin/M/TWN +Des//TS +desalinate/NGSDX/TSLNT +desalination/M/TSLNXN +desalinization/MS/TSLNSXN +desalinize/GSD/TSLNS +desalt/G/TSLT +descant/M/TSKNT +Descartes/M/TSKTS +descend/ZGSDR/TSNT +descendant/SM/TSNTNT +descended/FU/TSNTT +descendent's//TSNTNTS +descender/M/TSNT +descending/F/TSNTN +descends/F/TSNTS +descent//TSNT +describable/I/TSKRBBL +describe/ZB/TSKRB +description/MS/TSKRPXN +descriptive/SYP/TSKRPTF +descriptiveness/MS/TSKRPTFNS +descriptor/SM/TSKRPT +descry/SDG/TSKR +Desdemona/M/TSTMN +desecrate/SRDGNX/TSKRT +desecrater/M/TSKRT +desecration/M/TSKRXN +desert/ZGMRDS/TST +deserter/M/TST +desertification//TSTFKXN +desertion/MS/TSXN +deserve/J/TSF +deserved/YU/TSFT +deservedness/M/TSFTNS +deserving/Y/TSFN +déshabillé's//TXBLS +Desi/M/TS +desiccant/S/TSKNT +desiccate/XNGSD/TSKT +desiccation/M/TSKXN +desiccator/SM/TSKT +desiderata//TSTRT +desideratum/M/TSTRTM +design/ADGS/TSN +designable//TSKNBL +designate/VNGSDX/TSKNT +designation/M/TSKNXN +designational//TSKNXNL +designator/SM/TSKNT +designed/Y/TSN +designer/M/TSKN +designing/U/TSKNN +desirabilia//TSRBL +desirability/US/TSRBLT +desirability's//TSRBLTS +desirable/UPS/TSRBL +desirableness/SM/TSRBLNS +desirableness's/U/TSRBLNSS +desirably/U/TSRBL +Desirae/M/TSR +desire/BR/TSR +desired/U/TSRT +Desiree/M/TSR +desirer/M/TSR +Desiri/M/TSR +desirous/PY/TSRS +desirousness/M/TSRSNS +desist/DSG/TSST +desk/SM/TSK +desktop/S/TSKTP +Desmond/M/TSMNT +Desmund/M/TSMNT +desolate/PXDRSYNG/TSLT +desolateness/SM/TSLTNS +desolater/M/TSLT +desolating/Y/TSLTN +desolation/M/TSLXN +desorption/M/TSPXN +despair/SGDR/TSP +despairer/M/TSPR +despairing/Y/TSPRN +desperado/M/TSPRT +desperadoes//TSPRTS +desperate/YNXP/TSPRT +desperateness/SM/TSPRTNS +desperation/M/TSPRXN +despicable//TSPKBL +despicably//TSPKBL +despise/SRDG/TSPS +despiser/M/TSPS +despoil/L/TSPL +despoilment/MS/TSPLMNT +despond//TSPNT +despondence/S/TSPNTNS +despondency/MS/TSPNTNS +despondent/Y/TSPNTNT +despotic//TSPTK +despotically//TSPTKL +despotism/SM/TSPTSM +dessert/SM/TST +dessicate/DN/TSKT +d'Estaing//TSTN +destinate/NX/TSTNT +destination/M/TSTNXN +destine/GSD/TSTN +destiny/MS/TSTN +destitute/NXP/TSTTT +destituteness/M/TSTTTNS +destitution/M/TSTTXN +destroy/BZGDRS/TSTR +destroyer/M/TSTRY +destruct/VGSD/TSTRKT +destructibility/SMI/TSTRKTBLT +destructible/I/TSTRKTBL +destruction/SM/TSTRKXN +destructive/YP/TSTRKTF +destructiveness/MS/TSTRKTFNS +destructor/M/TSTRKT +desuetude/MS/TSTT +desultorily//TSLTRL +desultoriness/M/TSLTRNS +desultory/P/TSLTR +detach/LSRDBG/TTX +detached/YP/TTXT +detachedness/M/TTXTNS +detacher/M/TTX +detachment/SM/TTXMNT +detailed/YP/TTLT +detailedness/M/TTLTNS +detain/LGRDS/TTN +detainee/S/TTN +detainer/M/TTN +detainment/MS/TTNMNT +d'etat//TTT +detect/DBSVG/TTKT +detectability/U/TTKTBLT +detectable/U/TTKTBL +detectably/U/TTKTBL +detected/U/TTKTT +detection/SM/TTKXN +detective/MS/TTKTF +detector/MS/TTKT +détente//TTNT +detentes//TTNTS +detention/SM/TTNXN +deter/SL/TT +detergency/M/TTKNS +detergent/SM/TTKNT +deteriorate/XDSNGV/TTRRT +deterioration/M/TTRRXN +determent/SM/TTMNT +determinability/M/TTMNBLT +determinable/IP/TTMNBL +determinableness/IM/TTMNBLNS +determinacy/I/TTMNS +determinant/MS/TTMNNT +determinate/PYIN/TTMNT +determinateness/IM/TTMNTNS +determination/IM/TTMNXN +determinative/P/TTMNTF +determinativeness/M/TTMNTFNS +determine/GASD/TTMN +determined/U/TTMNT +determinedly//TTMNTL +determinedness/M/TTMNTNS +determiner/SM/TTMN +determinism/MS/TTMNSM +determinism's/I/TTMNSMS +deterministic/I/TTMNSTK +deterministically//TTMNSTKL +deterred/U/TTRT +deterrence/SM/TTRNS +deterrent/SMY/TTRNT +deterring//TTRN +deters/V/TTS +detersive/S/TTSF +detestable/P/TTSTBL +detestableness/M/TTSTBLNS +detestably//TTSTBL +detestation/SM/TTSTXN +dethrone/L/T@RN +dethronement/SM/T@RNMNT +detonable//TTNBL +detonate/XDSNGV/TTNT +detonated/U/TTNTT +detonation/M/TTNXN +detonator/MS/TTNT +detour/G/TT +detox/SDG/TTKS +detoxification/M/TTKSFKXN +detoxify/NXGSD/TTKSF +detract/GVD/TTRKT +detractive/Y/TTRKTF +d'etre//TTR +detribalize/GSD/TTRBLS +detriment/SM/TTRMNT +detrimental/SY/TTRMNTL +detritus/M/TTRTS +Detroit/M/TTRT +deuce/SDGM/TS +deuced/Y/TST +deus//TS +deuterium/MS/TTRM +deuteron/M/TTRN +Deuteronomy/M/TTRNM +Deutsch/M/TTSX +Dev/M/TF +Deva/M/TF +Devan/M/TFN +Devanagari/M/TFNKR +devastate/XVNGSD/TFSTT +devastating/Y/TFSTTN +devastation/M/TFSTXN +devastator/SM/TFSTT +develop/ALZSGDR/TFLP +developed/U/TFLPT +developer/MA/TFLP +development/ASM/TFLPMNT +developmental/Y/TFLPMNTL +Devi/M/TF +deviance/MS/TFNS +deviancy/S/TFNS +deviant/YMS/TFNT +deviate/XSDGN/TFT +deviated/U/TFTT +deviating/U/TFTN +deviation/M/TFXN +devil/SLMDG/TFL +devilish/PY/TFLX +devilishness/MS/TFLXNS +devilment/SM/TFLMNT +devilry/MS/TFLR +deviltry/MS/TFLTR +Devin/M/TFN +Devina/M/TFN +Devinne/M/TFN +devious/YP/TFS +deviousness/SM/TFSNS +devise/JR/TFS +deviser/M/TFS +Devland/M/TFLNT +Devlen/M/TFLN +Devlin/M/TFLN +devoice//TFS +devolution/MS/TFLXN +devolve/GSD/TFLF +Devon/M/TFN +Devondra/M/TFNTR +Devonian//TFNN +Devonna/M/TFN +Devonne/M/TFN +Devonshire/M/TFNXR +Devora/M/TFR +devote/XN/TFT +devoted/Y/TFTT +devotee/MS/TFT +devotion/M/TFXN +devotional/YS/TFXNL +devour/SRDZG/TF +devourer/M/TFR +devout/PRYT/TFT +devoutness/MS/TFTNS +Devy/M/TF +Dew/M/T +dew/MDGS/T +Dewain/M/TWN +dewar//TW +Dewar/M/TW +Dewayne/M/TWN +dewberry/MS/TBR +dewclaw/SM/TKL +dewdrop/MS/TTRP +Dewey/M/TW +Dewie/M/TW +dewiness/MS/TWNS +Dewitt/M/TWT +dewlap/MS/TLP +dewy/TPR/T +Dex/M/TKS +Dexedrine/M/TKSTRN +dexes/I/TKSS +dexter//TKST +Dexter/M/TKST +dexterity/MS/TKSTRT +dexterous/PY/TKSTRS +dexterousness/MS/TKSTRSNS +dextrose/SM/TKSTRS +DH//TH +Dhaka//THK +Dhaulagiri/M/THLKR +dhoti/SM/THT +dhow/MS/TH +DI//T +Di/M/T +diabase/M/TBS +diabetes/M/TBTS +diabetic/S/TBTK +diabolic//TBLK +diabolical/YP/TBLKL +diabolicalness/M/TBLKLNS +diabolism/M/TBLSM +diachronic/P/TXRNK +diacritic/MS/TKRTK +diacritical/YS/TKRTKL +diadem/GMDS/TTM +diaereses//TRSS +diaeresis/M/TRSS +Diaghilev/M/TKLF +diagnometer/SM/TKNMT +diagnosable/U/TKNSBL +diagnose/BGDS/TKNS +diagnosed/U/TKNST +diagnosis/M/TKNSS +diagnostic/MS/TKNSTK +diagnostically//TKNSTKL +diagnostician/SM/TKNSTXN +diagnostics/M/TKNSTKS +diagonal/YS/TKNL +diagonalize/GDSB/TKNLS +diagram/MS/TKRM +diagrammable//TKRMBL +diagrammatic//TKRMTK +diagrammaticality//TKRMTKLT +diagrammatically//TKRMTKL +diagrammed//TKRMT +diagrammer/SM/TKRM +diagramming//TKRMN +Diahann/M/THN +dial/MRDSGZJ/TL +dialect/MS/TLKT +dialectal/Y/TLKTL +dialectic/MS/TLKTK +dialectical/Y/TLKTKL +dialed/A/TLT +dialer/M/TL +dialing/M/TLN +dialog/MS/TLK +dialogged//TLKT +dialogging//TLKN +dials/A/TLS +dialysis/M/TLSS +dialyzed/U/TLST +dialyzes//TLSS +diam//TM +diamagnetic//TMKNTK +diameter/MS/TMT +diametric//TMTRK +diametrical/Y/TMTRKL +diamond/GSMD/TMNT +diamondback/SM/TMNTBK +Dian/M/TN +Diana/M/TN +Diandra/M/TNTR +Diane/M/TN +Dianemarie/M/TNMR +Diann/M/TN +Dianna/M/TN +Dianne/M/TN +Diannne/M/TN +diapason/MS/TPSN +diaper/SGDM/TP +diaphanous/YP/TFNS +diaphanousness/M/TFNSNS +diaphragm/SM/TFRKM +diaphragmatic//TFRKMTK +diarist/SM/TRST +Diarmid/M/TMT +diarrhea/MS/TRH +diarrheal//TRHL +diary/MS/TR +diaspora//TSPR +Diaspora/SM/TSPR +diastase/SM/TSTS +diastole/MS/TSTL +diastolic//TSTLK +diathermy/SM/T@M +diathesis/M/T@SS +diatom/SM/TTM +diatomic//TTMK +diatonic//TTNK +diatribe/MS/TTRB +Diaz's//TSS +dibble/SDMG/TBL +dibs//TBS +DiCaprio/M/TKPR +dice/GDRS/TS +dicer/M/TS +dicey//TS +dichloride/M/TXLRT +dichotomization/M/TXTMSXN +dichotomize/DSG/TXTMS +dichotomous/PY/TXTMS +dichotomy/SM/TXTM +dicier//TS +diciest//TSST +dicing/M/TSN +dick/GZXRDMS/TK +Dick/XM/TK +dickens/M/TKNS +Dickens/M/TKNS +Dickensian/S/TKNXN +dicker/DG/TK +Dickerson/M/TKSN +dickey/SM/TK +Dickie/M/TK +dickier//TK +dickiest//TKST +Dickinson/M/TKNSN +Dickson/M/TKSN +Dicky/M/TK +dicky's//TKS +dicotyledon/SM/TKTLTN +dicotyledonous//TKTLTNS +dicta/M/TKT +Dictaphone/SM/TKTFN +dictate/SDNGX/TKTT +dictation/M/TKTXN +dictator/MS/TKTT +dictatorial/YP/TKTTRL +dictatorialness/M/TKTTRLNS +dictatorship/SM/TKTTXP +diction/MS/TKXN +dictionary/SM/TKXNR +dictum/M/TKTM +did/AU/TT +didactic/S/TTKTK +didactically//TTKTKL +didactics/M/TTKTKS +diddle/ZGRSD/TTL +diddler/M/TTL +Diderot/M/TTRT +Didi/M/TT +didn't//TTNT +dido/M/TT +Dido/M/TT +didoes//TTS +didst//TTST +die/DS/T +Diefenbaker/M/TFNBK +Diego/M/TK +dieing//TN +dielectric/MS/TLKTRK +diem//TM +Diem/M/TM +Diena/M/TN +Dierdre/M/TTR +diereses//TRSS +dieresis/M/TRSS +dies/U/TS +diesel/GMDS/TSL +Diesel's//TSLS +dies's//TSS +diet/RDGZSM/TT +dietary/S/TTR +dieter/M/TT +Dieter/M/TT +dietetic/S/TTTK +dietetics/M/TTTKS +diethylaminoethyl//T@LMN@L +diethylstilbestrol/M/T@LSTLBSTRL +dietitian/MS/TTXN +Dietrich/M/TTRX +Dietz/M/TTS +differ/SZGRD/TF +difference/DSGM/TFRNS +differences/I/TFRNSS +difference's/I/TFRNSS +different/YI/TFRNT +differentiability//TFRNXBLT +differentiable//TFRNXBL +differential/SMY/TFRNXL +differentiate/XSDNG/TFRNXT +differentiated/U/TFRNXTT +differentiation/M/TFRNXXN +differentiator/SM/TFRNXT +differentness//TFRNTNS +difficile//TFSL +difficult/Y/TFKLT +difficulty/SM/TFKLT +diffidence/MS/TFTNS +diffident/Y/TFTNT +diffract/GSD/TFRKT +diffraction/SM/TFRKXN +diffractometer/SM/TFRKTMT +diffuse/PRSDZYVXNG/TFS +diffuseness/MS/TFSNS +diffuser/M/TFS +diffusible//TFSBL +diffusion/M/TFXN +diffusional//TFXNL +diffusive/YP/TFSF +diffusiveness/M/TFSFNS +diffusivity/M/TFSFT +dig/TS/TK +digerati//TKRT +digest/RDVGS/TKST +digested/IU/TKSTT +digester/M/TKST +digestibility/MS/TKSTBLT +digestible/I/TKSTBL +digestifs//TKSTFS +digestion/ISM/TKSXN +digestive/YSP/TKSTF +digger/MS/TK +digging/S/TKN +digit/SM/TKT +digital/SY/TKTL +digitalis/M/TKTLS +digitalization/MS/TKTLSXN +digitalized//TKTLST +digitalizes//TKTLSS +digitalizing//TKTLSN +digitization/M/TKTSXN +digitize/ZGDRS/TKTS +digitizer/M/TKTS +dignified/U/TKNFT +dignify/DSG/TKNF +dignitary/SM/TKNTR +dignity/ISM/TKNT +digram//TKRM +digraph/M/TKRF +digraphs//TKRFS +digress/GVDS/TKRS +digression/SM/TKRXN +digressive/PY/TKRSF +digressiveness/M/TKRSFNS +dihedral//THTRL +Dijkstra/M/TKKSTR +Dijon/M/TKN +dike/DRSMG/TK +diker/M/TK +diktat/SM/TKTT +Dilan/M/TLN +dilapidate/XGNSD/TLPTT +dilapidation/M/TLPTXN +dilatation/SM/TLTXN +dilate/XVNGSD/TLT +dilated/YP/TLTT +dilation/M/TLXN +dilator/SM/TLT +dilatoriness/M/TLTRNS +dilatory/P/TLTR +Dilbert/M/TLBT +dilemma/MS/TLM +dilettante/MS/TLTNT +dilettantish//TLTNTX +dilettantism/MS/TLTNTSM +diligence/SM/TLKNS +diligent/YP/TLKNT +diligentness/M/TLKNTNS +dilithium//TL@M +Dill/M/TL +dill/SGMD/TL +Dillard/M/TLT +Dillie/M/TL +dilling/R/TLN +Dillinger/M/TLN +dillis//TLS +Dillon/M/TLN +Dilly/M/TL +dilly/SM/TL +dillydally/GSD/TLTL +dilogarithm//TLKR@M +diluent//TLNT +dilute/RSDPXYVNG/TLT +diluted/U/TLTT +diluteness/M/TLTNS +dilution/M/TLXN +dim/RYPZS/TM +DiMaggio/M/TMK +dime/SM/TM +dimension/MDGS/TMNXN +dimensional/Y/TMNXNL +dimensionality/M/TMNXNLT +dimensionless//TMNXNLS +dimer/M/TM +dimethyl/M/TM@L +dimethylglyoxime//TM@LKLYKSM +diminish/SDGBJ/TMNX +diminished/U/TMNXT +diminuendo/SM/TMNNT +diminution/SM/TMNXN +diminutive/SYP/TMNTF +diminutiveness/M/TMNTFNS +Dimitri/M/TMTR +Dimitry/M/TMTR +dimity/MS/TMT +dimmed/U/TMT +dimmer/MS/TM +dimmest//TMST +dimming//TMN +dimness/SM/TMNS +dimorphism/M/TMFSM +dimple/MGSD/TMPL +dimply/RT/TMPL +dimwit/MS/TMWT +dimwitted//TMWTT +din/MDRZGS/TN +Dina/M/TN +Dinah/M/TN +dinar/SM/TN +dine/S/TN +diner/M/TN +dinette/MS/TNT +ding/GD/TN +dingbat/MS/TNBT +dinghy/SM/TNH +dingily//TNL +dinginess/SM/TNNS +dingle/MS/TNL +dingo/MS/TN +dingoes//TNS +dingus/SM/TNS +dingy/PRST/TN +dinky/RST/TNK +dinned//TNT +dinner/SM/TN +dinnertime/S/TNTM +dinnerware/MS/TNWR +Dinnie/M/TN +dinning//TNN +Dinny/M/TN +Dino/M/TN +dinosaur/MS/TNS +dint/SGMD/TNT +diocesan/S/TSSN +diocese/SM/TSS +Diocletian/M/TKLXN +diode/SM/TT +Diogenes/M/TKNS +Dion/M/TN +Dione/M/TN +Dionis/M/TNS +Dionisio/M/TNX +Dionne/M/TN +Dionysian//TNXN +Dionysus/M/TNSS +Diophantine/M/TFNTN +diopter/MS/TPT +Dior/M/T +diorama/SM/TRM +dioxalate//TKSLT +dioxide/MS/TKST +dioxin/S/TKSN +dip/S/TP +diphtheria/SM/TF@R +diphthong/SM/TF@NK +diplexers//TPLKSS +diploid/S/TPLT +diploma/SMDG/TPLM +diplomacy/SM/TPLMS +diplomat/MS/TPLMT +diplomata//TPLMT +diplomatic/S/TPLMTK +diplomatically//TPLMTKL +diplomatics/M/TPLMTKS +diplomatist/SM/TPLMTST +dipodic//TPTK +dipody/M/TPT +dipole/MS/TPL +dipped//TPT +Dipper/M/TP +dipper/SM/TP +dipping/S/TPN +dippy/TR/TP +dipsomania/SM/TPSMN +dipsomaniac/MS/TPSMNK +dipstick/MS/TPSTK +dipterous//TPTRS +diptych/M/TPTX +diptychs//TPTXS +Dir//T +Dirac/M/TRK +dire/YTRP/TR +direct/RDYPTSVG/TRKT +directed/IUA/TRKTT +direction/MIS/TRKXN +directional/SY/TRKXNL +directionality//TRKXNLT +directions/A/TRKXNS +directive/SM/TRKTF +directivity/M/TRKTFT +directly/I/TRKTL +directness/ISM/TRKTNS +director/AMS/TRKT +directorate/SM/TRKTRT +directorial//TRKTRL +directorship/SM/TRKTXP +directory/SM/TRKTR +directrix/MS/TRKTRKS +directs/IA/TRKTS +direful/Y/TRFL +direness/M/TRNS +dirge/GSDM/TK +Dirichlet/M/TRXLT +dirigible/S/TRKBL +dirk/GDMS/TK +Dirk/M/TK +dirndl/MS/TNTL +dirt/MS/TT +dirtily//TTL +dirtiness/SM/TTNS +dirty/GPRSDT/TT +Dis//TS +dis/MB/TS +disable/LZGD/TSBL +disablement/MS/TSBLMNT +disabler/M/TSBL +disabuse//TSBS +disadvantaged/P/TSTFNTKT +disagreeable/S/TSKRBL +disallow/D/TSL +disambiguate/DSGNX/TSMBKT +disappointed/Y/TSPNTT +disappointing/Y/TSPNTN +disarming/Y/TSMN +disarrange/L/TSRNK +disastrous/Y/TSSTRS +disband/L/TSBNT +disbandment/SM/TSBNTMNT +disbar/L/TSB +disbarment/MS/TSBMNT +disbarring//TSBRN +disbelieving/Y/TSBLFN +disbursal/S/TSBSL +disburse/GDRSL/TSBS +disbursement/MS/TSBSMNT +disburser/M/TSBS +disc/GDM/TSK +discern/SDRGL/TSN +discerner/M/TSN +discernibility//TSNBLT +discernible/I/TSNBL +discernibly//TSNBL +discerning/Y/TSNN +discernment/MS/TSNMNT +discharged/U/TSXKT +disciple/DSMG/TSPL +discipleship/SM/TSPLXP +disciplinarian/SM/TSPLNRN +disciplinary//TSPLNR +discipline/IDM/TSPLN +disciplined/U/TSPLNT +discipliner/M/TSPLN +disciplines//TSPLNS +disciplining//TSPLNN +disclosed/U/TSKLST +disco/MG/TSK +discography/MS/TSKKRF +discolor/G/TSKL +discolored/MP/TSKLRT +discoloreds/U/TSKLRTS +discombobulate/SDGNX/TSKMBBLT +discomfit/DG/TSKMFT +discomfiture/MS/TSKMFTR +discommode/DG/TSKMT +disconcerting/Y/TSKNSTN +disconnect/R/TSKNKT +disconnected/P/TSKNKTT +disconnectedness/S/TSKNKTTNS +disconnecter/M/TSKNKT +disconsolate/YN/TSKNSLT +discord/G/TSKT +discordance/SM/TSKTNS +discordant/Y/TSKTNT +discorporate/D/TSKPRT +discotheque/MS/TSK@K +discount/B/TSKNT +discourage/LGDR/TSKRK +discouragement/MS/TSKRKMNT +discouraging/Y/TSKRKN +discover/ADGS/TSKF +discoverable/I/TSKFRBL +discovered/U/TSKFRT +discoverer/S/TSKFR +discovery/SAM/TSKFR +discreet/TRYP/TSKRT +discreetly/I/TSKRTL +discreetness/SM/TSKRTNS +discreetness's/I/TSKRTNSS +discrepancy/SM/TSKRPNS +discrepant/Y/TSKRPNT +discrete/YPNX/TSKRT +discreteness/SM/TSKRTNS +discretion/IMS/TSKRXN +discretionary//TSKRXNR +discretization//TSKRTSXN +discretized//TSKRTST +discriminable//TSKRMNBL +discriminant/MS/TSKRMNNT +discriminate/SDVNGX/TSKRMNT +discriminated/U/TSKRMNTT +discriminating/YI/TSKRMNTN +discrimination/MI/TSKRMNXN +discriminator/MS/TSKRMNT +discriminatory//TSKRMNTR +discursiveness/S/TSKSFNS +discus/SM/TSKS +discussant/MS/TSKSNT +discussed/UA/TSKST +discusser/M/TSKS +discussion/SM/TSKXN +disdain/MGSD/TSTN +disdainful/YP/TSTNFL +disdainfulness/M/TSTNFLNS +disease/G/TSS +disembowel/SLGD/TSMBWL +disembowelment/SM/TSMBWLMNT +disengage/L/TSNKK +disfigure/L/TSFKR +disfigurement/MS/TSFKRMNT +disfranchise/L/TSFRNXS +disfranchisement/MS/TSFRNXSMNT +disgorge//TSKK +disgrace/R/TSKRS +disgracer/M/TSKRS +disgruntle/DSLG/TSKRNTL +disgruntlement/MS/TSKRNTLMNT +disguise/R/TSKS +disguised/UY/TSKST +disguiser/M/TSKS +disgust//TSKST +disgusted/Y/TSKSTT +disgustful/Y/TSKSTFL +disgusting/Y/TSKSTN +dish/GD/TX +dishabille/SM/TXBL +disharmonious//TXMNS +dishcloth/M/TXKL@ +dishcloths//TXKL@S +dishevel/LDGS/TXFL +dishevelment/MS/TXFLMNT +dishonest//TXNST +dishonored/U/TXNRT +dishpan/MS/TXPN +dishrag/SM/TXRK +dishtowel/SM/TXTWL +dishwasher/MS/TXWX +dishwater/SM/TXWT +disillusion/LGD/TSLXN +disillusionment/SM/TSLXNMNT +disinfectant/MS/TSNFKTNT +disinherit//TSNHRT +disinterested/P/TSNTRSTT +disinterestedness/SM/TSNTRSTTNS +disinvest/L/TSNFST +disjoin//TSKN +disjointedness/S/TSKNTTNS +disjunct/VS/TSKNKT +disjunctive/YS/TSKNKTF +disk/D/TSK +diskette/S/TSKT +dislike/G/TSLK +dislodge/LG/TSLK +dislodgement/M/TSLKMNT +dismal/PSTRY/TSML +dismalness/M/TSMLNS +dismantle/L/TSMNTL +dismantlement/SM/TSMNTLMNT +dismay/D/TSM +dismayed/U/TSMYT +dismaying/Y/TSMYN +dismember/LG/TSMMB +dismemberment/MS/TSMMBMNT +dismiss/RZ/TSMS +dismissive/Y/TSMSF +Disney/M/TSN +Disneyland/M/TSNLNT +disoblige/G/TSBLK +disorder/Y/TST +disordered/YP/TSTRT +disorderedness/M/TSTRTNS +disorderliness/M/TSTLNS +disorderly/P/TSTL +disorganize//TSKNS +disorganized/U/TSKNST +disparage/RSDLG/TSPRK +disparagement/MS/TSPRKMNT +disparager/M/TSPRK +disparaging/Y/TSPRKN +disparate/PSY/TSPRT +disparateness/M/TSPRTNS +dispatch/Z/TSPX +dispel/S/TSPL +dispelled//TSPLT +dispelling//TSPLN +dispensable/I/TSPNSBL +dispensary/MS/TSPNSR +dispensate/NX/TSPNST +dispensation/M/TSPNSXN +dispense/ZGDRSB/TSPNS +dispenser/M/TSPNS +dispersal/MS/TSPSL +dispersant/M/TSPSNT +disperse/XDRSZLNGV/TSPS +dispersed/Y/TSPST +disperser/M/TSPS +dispersible//TSPSBL +dispersion/M/TSPXN +dispersive/PY/TSPSF +dispersiveness/M/TSPSFNS +dispirit/DSG/TSPRT +displace/L/TSPLS +display/AGDS/TSPL +displayed/U/TSPLYT +displease/G/TSPLS +displeased/Y/TSPLST +displeasure//TSPLSR +disport//TSPT +disposable/S/TSPSBL +disposal/SM/TSPSL +dispose/IGSD/TSPS +disposition/ISM/TSPSXN +dispositional//TSPSXNL +disproportional//TSPRPXNL +disproportionate/N/TSPRPXNT +disproportionation/M/TSPRPXNXN +disprove/B/TSPRF +disputable/I/TSPTBL +disputably/I/TSPTBL +disputant/SM/TSPTNT +disputation/SM/TSPTXN +disputatious/Y/TSPTXS +dispute/ZBGSRD/TSPT +disputed/U/TSPTT +disputer/M/TSPT +disquiet/M/TSKT +disquieting/Y/TSKTN +disquisition/SM/TSKSXN +Disraeli/M/TSRL +disregardful//TSRKTFL +disrepair/M/TSRP +disreputable/P/TSRPTBL +disreputableness/M/TSRPTBLNS +disrepute/M/TSRPT +disrespect//TSRSPKT +disrupt/GVDRS/TSRPT +disrupted/U/TSRPTT +disrupter/M/TSRPT +disruption/MS/TSRPXN +disruptive/YP/TSRPTF +disruptor/M/TSRPT +dissatisfy//TSTSF +dissect/DG/TSKT +dissed//TST +dissemble/ZGRSD/TSMBL +dissembler/M/TSMBL +disseminate/XGNSD/TSMNT +dissemination/M/TSMNXN +dissension/SM/TSNXN +dissent/ZGSDR/TSNT +dissenter/M/TSNT +dissertation/SM/TSTXN +disservice//TSFS +disses//TSS +dissever//TSF +dissidence/SM/TSTNS +dissident/MS/TSTNT +dissimilar/S/TSML +dissing//TSN +dissipate/XRSDVNG/TSPT +dissipated/U/TSPTT +dissipatedly//TSPTTL +dissipatedness/M/TSPTTNS +dissipater/M/TSPT +dissipation/M/TSPXN +dissociable/I/TSXBL +dissociate/DSXNGV/TSXT +dissociated/U/TSXTT +dissociation/M/TSXXN +dissociative/Y/TSXTF +dissoluble/I/TSLBL +dissolute/PY/TSLT +dissoluteness/SM/TSLTNS +dissolve/ASDG/TSLF +dissolved/U/TSLFT +dissonance/SM/TSNNS +dissonant/Y/TSNNT +dissuade/GDRS/TST +dissuader/M/TST +dissuasive//TSSF +dist//TST +distaff/SM/TSTF +distal/Y/TSTL +distance/DSMG/TSTNS +distant/YP/TSTNT +distantness/M/TSTNTNS +distaste//TSTST +distemper//TSTMP +distend//TSTNT +distension//TSTNXN +distention/SM/TSTNXN +distillate/XNMS/TSTLT +distillation/M/TSTLXN +distillery/MS/TSTLR +distinct/IYVP/TSTNKT +distincter//TSTNKT +distinctest//TSTNKTST +distinction/MS/TSTNKXN +distinctive/YP/TSTNKTF +distinctiveness/MS/TSTNKTFNS +distinctness/MSI/TSTNKTNS +distinguish/BDRSG/TSTNX +distinguishable/I/TSTNXBL +distinguishably/I/TSTNXBL +distinguished/U/TSTNXT +distinguisher/M/TSTNX +distort/BGDR/TSTT +distorted/U/TSTTT +distorter/M/TSTT +distortion/MS/TSTXN +distract/DG/TSTRKT +distracted/YP/TSTRKTT +distractedness/M/TSTRKTTNS +distracting/Y/TSTRKTN +distrait//TSTRT +distraught/Y/TSTRT +distress//TSTRS +distressful//TSTRSFL +distressing/Y/TSTRSN +distribute/ADXSVNGB/TSTRBT +distributed/U/TSTRBTT +distributer//TSTRBT +distribution/AM/TSTRBXN +distributional//TSTRBXNL +distributive/SPY/TSTRBTF +distributiveness/M/TSTRBTFNS +distributivity//TSTRBTFT +distributor/SM/TSTRBT +distributorship/M/TSTRBTXP +district/GSAD/TSTRKT +district's//TSTRKTS +distrust/G/TSTRST +disturb/ZGDRS/TSTB +disturbance/SM/TSTBNS +disturbed/U/TSTBT +disturber/M/TSTB +disturbing/Y/TSTBN +disulfide/M/TSLFT +disuse/M/TSS +disyllable/M/TSLBL +Dita/M/TT +ditch/MRSDG/TX +ditcher/M/TX +dither/RDZSG/T@ +ditsy/TR/TTS +ditto/DMGS/TT +ditty/SDGM/TT +ditz/S/TTS +Ditzel/M/TTSL +diuresis/M/TRSS +diuretic/S/TRTK +diurnal/SY/TNL +div/TZGJDRS/TF +diva/MS/TF +divalent/S/TFLNT +divan/SM/TFN +dive/S/TF +dived/M/TFT +diver/M/TF +diverge/SDG/TFK +divergence/SM/TFKNS +divergent/Y/TFKNT +diverse/XYNP/TFS +diverseness/MS/TFSNS +diversification/M/TFSFKXN +diversifier/M/TFSF +diversify/GSRDNX/TFSF +diversion/M/TFXN +diversionary//TFXNR +diversity/SM/TFST +divert/GSD/TFT +diverticulitis/SM/TFTKLTS +divertimento/M/TFTMNT +divest/LDGS/TFST +divestiture/MS/TFSTTR +divestment/S/TFSTMNT +dividable//TFTBL +divide/AGDS/TFT +divided/U/TFTT +dividend/MS/TFTNT +divider/MS/TFT +divination/SM/TFNXN +divine/RSDTZYG/TFN +diviner/M/TFN +divinity/MS/TFNT +divisibility/IMS/TFSBLT +divisible/I/TFSBL +division/SM/TFXN +divisional//TFXNL +divisive/PY/TFSF +divisiveness/MS/TFSFNS +divisor/SM/TFS +divorce/GSDLM/TFS +divorcée/MS/TFK +divorcement/MS/TFSMNT +divot/MS/TFT +divulge/GSD/TFLK +divvy/GSDM/TFF +Dix/M/TKS +Dixie/M/TKS +Dixiecrat/MS/TKSKRT +dixieland//TKSLNT +Dixieland/MS/TKSLNT +Dixon/M/TKSN +dizzily//TSL +dizziness/SM/TSNS +dizzy/PGRSDT/TS +dizzying/Y/TSYN +DJ//TK +Djakarta's//TKKTS +djellaba/S/TKLB +djellabah's//TKLBS +Djibouti/M/TKBT +DMD//TMT +Dmitri/M/TMTR +DMZ//TMS +DNA//TN +Dnepropetrovsk/M/TNPRPTRFSK +Dnepr's//TNPRS +Dnieper's//TNPS +Dniester/M/TNST +Dniren/M/TNRN +do/TZRHGJ/T +DOA//T +doable//TBL +DOB//TB +Dobbin/M/TBN +dobbin/MS/TBN +Doberman//TBMN +Dobro/M/TBR +doc/MS/TK +docent/SM/TSNT +docile/Y/TSL +docility/MS/TSLT +dock/GZSRDM/TK +docker/M/TK +docket/GSMD/TKT +dockland/MS/TKLNT +dockside/M/TKST +dockworker/S/TKWK +dockyard/SM/TKYT +Doctor//TKT +doctor/GSDM/TKT +doctoral//TKTRL +doctorate/SM/TKTRT +Doctorow/M/TKTR +doctrinaire/S/TKTRNR +doctrinal/Y/TKTRNL +doctrine/SM/TKTRN +docudrama/S/TKTRM +document/RDMZGS/TKMNT +documentary/MS/TKMNTR +documentation/MS/TKMNTXN +documented/U/TKMNTT +DOD//TT +dodder/DGS/TT +Dode/M/TT +dodecahedra//TTKHTR +dodecahedral//TTKHTRL +dodecahedron/M/TTKHTRN +dodge/GZSRD/TK +Dodge/M/TK +dodgem/S/TKM +dodger/M/TKR +Dodgson/M/TTKSN +Dodi/M/TT +Dodie/M/TT +Dodington/M/TTNTN +dodo/SM/TT +Dodoma/M/TTM +Dodson/M/TTSN +Dody/M/TT +DOE//T +Doe/M/T +doe/MS/T +doer/MU/T +does/AU/TS +doeskin/MS/TSKN +doesn't//TSNT +d'oeuvre//TFR +doff/SGD/TF +dog/SM/TK +dogcart/SM/TKKT +dogcatcher/MS/TKKX +Doge/M/TK +doge/SM/TK +dogeared//TKRT +dogfight/GMS/TKFT +dogfish/SM/TKFX +dogfought//TKFT +dogged/PY/TKT +doggedness/SM/TKTNS +doggerel/SM/TKRL +dogging//TKN +doggone/RSDTG/TKN +doggy/SRMT/TK +doghouse/SM/TKS +dogie/SM/TK +dogleg/SM/TKLK +doglegged//TKLKT +doglegging//TKLKN +dogma/MS/TKM +dogmatic/S/TKMTK +dogmatically/U/TKMTKL +dogmatics/M/TKMTKS +dogmatism/SM/TKMTSM +dogmatist/SM/TKMTST +dogsbody/M/TKSBT +dogtooth/M/TKT@ +Dogtown/M/TKTN +dogtrot/MS/TKTRT +dogtrotted//TKTRTT +dogtrotting//TKTRTN +dogwood/SM/TKWT +dogy's//TKS +Doha/M/TH +doh's//TS +doily/SM/TL +doing/MU/TN +Dolby/SM/TLB +doldrum/S/TLTRM +doldrums/M/TLTRMS +Dole/M/TL +dole/MGDS/TL +doled/F/TLT +doleful/PY/TLFL +dolefuller//TLFL +dolefullest//TLFLST +dolefulness/MS/TLFLNS +doles/F/TLS +Dolf/M/TLF +doling/F/TLN +Doll/M/TL +doll/MDGS/TL +dollar/SM/TL +Dolley/M/TL +Dolli/M/TL +Dollie/M/TL +dollop/GSMD/TLP +Dolly/M/TL +dolly/SDMG/TL +dolmen/MS/TLMN +dolomite/SM/TLMT +dolomitic//TLMTK +dolor/SM/TL +Dolores/M/TLRS +Dolorita/SM/TLRT +dolorous/Y/TLRS +Dolph/M/TLF +dolphin/SM/TLFN +dolt/MS/TLT +doltish/YP/TLTX +doltishness/SM/TLTXNS +Dom/M/TM +domain/MS/TMN +dome/DSMG/TM +Domenic/M/TMNK +Domenico/M/TMNK +Domeniga/M/TMNK +Domesday/M/TMST +domestic/S/TMSTK +domestically//TMSTKL +domesticate/DSXGN/TMSTKT +domesticated/U/TMSTKTT +domestication/M/TMSTKXN +domesticity/MS/TMSTST +domicile/SDMG/TMSL +domiciliary//TMSLR +dominance/MS/TMNNS +dominant/YS/TMNNT +dominate/VNGXSD/TMNT +domination/M/TMNXN +dominator/M/TMNT +dominatrices//TMNTRSS +dominatrix//TMNTRKS +domineer/DSG/TMN +domineering/YP/TMNRN +domineeringness/M/TMNRNNS +Dominga/M/TMN +Domingo/M/TMN +Dominguez/M/TMNS +Domini/M/TMN +Dominic/M/TMNK +Dominica/M/TMNK +Dominican/MS/TMNKN +Dominick/M/TMNK +Dominik/M/TMNK +dominion/MS/TMNN +Dominique/M/TMNK +domino/M/TMN +dominoes//TMNS +Domitian/M/TMXN +don/S/TN +Don/SM/TN +Dona/M/TN +dona/MS/TN +Donahue/M/TNH +Donal/M/TNL +Donald/M/TNLT +Donaldson/M/TNLTSN +Donall/M/TNL +Donalt/M/TNLT +donate/XVGNSD/TNT +Donatello/M/TNTL +donation/M/TNXN +donative/M/TNTF +Donaugh/M/TN +Donavon/M/TNFN +done/AUF/TN +Donella/M/TNL +Donelle/M/TNL +Donetsk/M/TNTSK +Donetta/M/TNT +dong/GDMS/TNK +dongle/S/TNKL +Donia/M/TN +Donica/M/TNK +Donielle/M/TNL +Donizetti/M/TNST +donkey/MS/TNK +Donn/RM/TN +Donna/M/TN +Donnamarie/M/TNMR +Donne/M/TN +donned//TNT +Donnell/M/TNL +Donnelly/M/TNL +Donner/M/TN +Donni/M/TN +Donnie/M/TN +donning//TNN +donnish/YP/TNX +donnishness/M/TNXNS +Donny/M/TN +donnybrook/MS/TNBRK +donor/MS/TN +Donovan/M/TNFN +don't//TNT +donut/MS/TNT +donutted//TNTT +donutting//TNTN +doodad/MS/TTT +doodle/SRDZG/TTL +doodlebug/MS/TTLBK +doodler/M/TTL +doohickey/MS/THK +Dooley/M/TL +Doolittle/M/TLTL +doom/MDGS/TM +doomsday/SM/TMST +Doonesbury/M/TNSBR +door/GDMS/T +doorbell/SM/TBL +doorhandles//THNTLS +doorkeep/RZ/TKP +doorkeeper/M/TKP +doorknob/SM/TKNB +doorman/M/TMN +doormat/SM/TMT +doormen//TMN +doornail/M/TNL +doorplate/SM/TPLT +doors/I/TS +doorstep/MS/TSTP +doorstepped//TSTPT +doorstepping//TSTPN +doorstop/MS/TSTP +doorway/MS/TW +dooryard/SM/TRYT +dopa/SM/TP +dopamine//TPMN +dopant/M/TPNT +dope/DRSMZG/TP +doper/M/TP +dopey//TP +dopier//TP +dopiest//TPST +dopiness/S/TPNS +Doppler/M/TPL +Dora/M/TR +Dorado/M/TRT +Doralia/M/TRL +Doralin/M/TRLN +Doralyn/M/TRLN +Doralynn/M/TRLN +Doralynne/M/TRLN +Dorcas//TKS +Dorchester/M/TXST +Doré/M/T +Doreen/M/TRN +Dorelia/M/TRL +Dorella/M/TRL +Dorelle/M/TRL +Dorena/M/TRN +Dorene/M/TRN +Doretta/M/TRT +Dorette/M/TRT +Dorey/M/TR +Dori/MS/TR +Doria/M/TR +Dorian/M/TRN +Doric//TRK +Dorice/M/TRS +Dorie/M/TR +Dorine/M/TRN +Dorisa/M/TRS +Dorise/M/TRS +Dorita/M/TRT +dork/S/TK +dorky/RT/TK +dorm/MRZS/TM +dormancy/MS/TMNS +dormant/S/TMNT +dormer/M/TM +dormice//TMS +dormitory/SM/TMTR +dormouse/M/TMS +Doro/M/TR +Dorolice/M/TRLS +Dorolisa/M/TRLS +Dorotea/M/TRT +Doroteya/M/TRTY +Dorothea/M/TR@ +Dorothee/M/TR@ +Dorothy/M/TR@ +Dorree/M/TR +Dorri/SM/TR +Dorrie/M/TR +Dorry/M/TR +dorsal/YS/TSL +Dorsey/M/TS +Dorthea/M/T@ +Dorthy/M/T@ +Dortmund/M/TTMNT +Dory/M/TR +dory/SM/TR +DOS//TS +dos/GDS/TS +dosage/SM/TSK +dose/M/TS +Dosi/M/TS +dosimeter/MS/TSMT +dosimetry/M/TSMTR +dossier/MS/TS +dost//TST +Dostoevsky/M/TSTFSK +DOT//TT +Dot/M/TT +dot/MDRSJZG/TT +dotage/SM/TTK +dotard/MS/TTT +dote/S/TT +doter/M/TT +Doti/M/TT +doting/Y/TTN +Dotson/M/TTSN +dotted//TTT +Dotti/M/TT +Dottie/M/TT +dottiness/M/TTNS +dotting//TTN +Dotty/M/TT +dotty/PRT/TT +Douala/M/TL +Douay/M/T +double/GPSRDZ/TBL +doubled/UA/TBLT +Doubleday/M/TBLT +doubleheader/MS/TBLHT +doubleness/M/TBLNS +doubler/M/TBL +doubles/M/TBLS +doublespeak/S/TBLSPK +doublet/MS/TBLT +doublethink/M/TBL@NK +doubleton/M/TBLTN +doubling/A/TBLN +doubloon/MS/TBLN +doubly//TBL +doubt/AGSDMB/TBT +doubted/U/TBTT +doubter/SM/TBT +doubtful/YP/TBTFL +doubtfulness/SM/TBTFLNS +doubting/Y/TBTN +doubtless/YP/TBTLS +doubtlessness/M/TBTLSNS +douche/GSDM/TX +Doug/M/TK +dough/M/T +Dougherty/M/TKT +doughs//TS +doughty/RT/TT +doughy/RT/TK +Dougie/M/TK +Douglas/M/TKLS +Douglass//TKLS +Dougy/M/TK +dour/TYRP/T +dourness/MS/TNS +Douro/M/TR +douse/SRDG/TS +douser/M/TS +Dov/MR/TF +dove/RSM/TF +dovecote/MS/TFKT +Dover/M/TF +dovetail/GSDM/TFTL +dovish//TFX +Dow/M/T +dowager/SM/TWK +dowdily//TTL +dowdiness/MS/TTNS +dowdy/TPSR/TT +dowel/GMDS/TWL +dower/GDMS/TW +down/GZSRD/TN +downbeat/SM/TNBT +downcast/S/TNKST +downdraft/M/TNTRFT +downer/M/TN +Downey/M/TN +downfall/NMS/TNFL +downgrade/GSD/TNKRT +downhearted/PY/TNHTT +downheartedness/MS/TNHTTNS +downhill/RS/TNHL +downland//TNLNT +download/DGS/TNLT +downpipes//TNPPS +downplay/GDS/TNPL +downpour/MS/TNP +downrange//TNRNK +downright/YP/TNRT +downrightness/M/TNRTNS +downriver//TNRF +Downs//TNS +downscale/GSD/TNSKL +downside/S/TNST +downsize/DSG/TNSS +downslope//TNSLP +downspout/SM/TNSPT +downstage/S/TNSTK +downstairs//TNSTS +downstate/SR/TNSTT +downstream//TNSTRM +downswing/MS/TNSWN +downtime/SM/TNTM +downtown/MRS/TNTN +downtowner/M/TNTN +downtrend/M/TNTRNT +downtrodden//TNTRTN +downturn/MS/TNTN +downward/YPS/TNWT +downwardness/M/TNWTNS +downwind//TNWNT +downy/RT/TN +dowry/SM/TR +dowse/GZSRD/TS +dowser/M/TS +doxology/MS/TKSLK +Doy/M/T +doyen/SM/TYN +doyenne/SM/TYN +Doyle/M/TL +doz/XGNDRS/TS +doze//TS +dozen/GHD/TSN +dozenths//TSN@S +dozer/M/TS +dozy//TS +DP//TP +DPs//TPS +dpt//TPT +DPT//TPT +Dr/M/TR +drab/YSP/TRB +drabbed//TRBT +drabber//TRB +drabbest//TRBST +drabbing//TRBN +drabness/MS/TRBNS +drachma/MS/TRXM +Draco/M/TRK +draconian//TRKNN +Draconian//TRKNN +Dracula/M/TRKL +draft/AMDGS/TRFT +draftee/SM/TRFT +drafter/MS/TRFT +draftily//TRFTL +draftiness/SM/TRFTNS +drafting/S/TRFTN +draftsman/M/TRFTSMN +draftsmanship/SM/TRFTSMNXP +draftsmen//TRFTSMN +draftsperson//TRFTSPSN +draftswoman//TRFTSWMN +draftswomen//TRFTSWMN +drafty/PTR/TRFT +drag/MS/TRK +dragged//TRKT +dragger/M/TRK +dragging/Y/TRKN +draggy/RT/TRK +dragnet/MS/TRKNT +dragon/SM/TRKN +dragonfly/SM/TRKNFL +dragonhead/M/TRKNHT +dragoon/DMGS/TRKN +drain/SZGRDM/TRN +drainage/MS/TRNK +drainboard/SM/TRNBT +drained/U/TRNT +drainer/M/TRN +drainpipe/MS/TRNPP +Drake/M/TRK +drake/SM/TRK +dram/MS/TRM +drama/SM/TRM +Dramamine/MS/TRMMN +dramatic/S/TRMTK +dramatical/Y/TRMTKL +dramatically/U/TRMTKL +dramatics/M/TRMTKS +dramatist/MS/TRMTST +dramatization/MS/TRMTSXN +dramatize/SRDZG/TRMTS +dramatized/U/TRMTST +dramatizer/M/TRMTS +dramaturgy/M/TRMTK +Drambuie/M/TRMB +drammed//TRMT +dramming//TRMN +drank//TRNK +Drano/M/TRN +drape/SRDGZ/TRP +draper/M/TRP +drapery/MS/TRPR +drastic//TRSTK +drastically//TRSTKL +drat/S/TRT +dratted//TRTT +dratting//TRTN +Dravidian/M/TRFTN +draw/ASG/TR +drawable//TRWBL +drawback/MS/TRBK +drawbridge/SM/TRBRK +drawer/SM/TRW +drawing/SM/TRWN +drawl/RDSG/TRL +drawler/M/TRL +drawling/Y/TRLN +drawly//TRL +drawn/AI/TRN +drawnly//TRNL +drawnness//TRNS +drawstring/MS/TRSTRN +dray/SMDG/TR +Dre/M/TR +dread/SRDG/TRT +dreadful/YPS/TRTFL +dreadfulness/SM/TRTFLNS +dreadlocks//TRTLKS +dreadnought/SM/TRTNT +dream/SMRDZG/TRM +dreamboat/SM/TRMBT +dreamed/U/TRMT +dreamer/M/TRM +dreamily//TRML +dreaminess/SM/TRMNS +dreaming/Y/TRMN +dreamland/SM/TRMLNT +dreamless/PY/TRMLS +dreamlessness/M/TRMLSNS +dreamlike//TRMLK +dreamworld/S/TRMWLT +dreamy/PTR/TRM +drear/S/TR +drearily//TRRL +dreariness/SM/TRRNS +dreary/TRSP/TRR +Dreddy/M/TRT +dredge/MZGSRD/TRK +dredger/M/TRKR +Dredi/M/TRT +dreg/MS/TRK +Dreiser/M/TRS +drench/GDRS/TRNX +drencher/M/TRNX +Dresden/M/TRSTN +dress/ADRSG/TRS +dressage/MS/TRSK +dressed/U/TRST +dresser/MS/TRS +dresser's/A/TRSS +dresses/U/TRSS +dressiness/SM/TRSNS +dressing/MS/TRSN +dressmaker/MS/TRSMK +dressmaking/SM/TRSMKN +dressy/PTR/TRS +drew/A/TR +Drew/M/TR +Drexel/M/TRKSL +Dreyfus/M/TRFS +Dreyfuss//TRFS +drib/SM/TRB +dribble/DRSGZ/TRBL +dribbler/M/TRBL +driblet/SM/TRBLT +dried/U/TRT +drier/M/TR +drift/RDZSG/TRFT +drifter/M/TRFT +drifting/Y/TRFTN +driftwood/SM/TRFTWT +drill/MRDZGS/TRL +driller/M/TRL +drilling/M/TRLN +drillmaster/SM/TRLMST +drink/BRSZG/TRNK +drinkable/S/TRNKBL +drinker/M/TRNK +drip/SM/TRP +dripped//TRPT +dripping/MS/TRPN +drippy/RT/TRP +drive/SRBGZJ/TRF +drivel/GZDRS/TRFL +driveler/M/TRFL +driven/P/TRFN +driver/M/TRF +driveway/MS/TRFW +drizzle/DSGM/TRSL +drizzling/Y/TRSLN +drizzly/TR/TRSL +drogue/MS/TRK +droll/RDSPTG/TRL +drollery/SM/TRLR +drollness/MS/TRLNS +drolly//TRL +dromedary/MS/TRMTR +Drona/M/TRN +drone/SRDGM/TRN +droning/Y/TRNN +drool/GSRD/TRL +droop/SGD/TRP +droopiness/MS/TRPNS +drooping/Y/TRPN +droopy/PRT/TRP +drop/SM/TRP +drophead//TRFT +dropkick/S/TRPKK +droplet/SM/TRPLT +dropout/MS/TRPT +dropped//TRPT +dropper/SM/TRP +dropping/MS/TRPN +dropsical//TRPSKL +dropsy/MS/TRPS +drosophila/M/TRSFL +dross/SM/TRS +drought/SM/TRT +drove/SRDGZ/TRF +drover/M/TRF +drown/RDSJG/TRN +drowner/M/TRN +drowse/SDG/TRS +drowsily//TRSL +drowsiness/SM/TRSNS +drowsy/PTR/TRS +Dru/M/TR +drub/S/TRB +drubbed//TRBT +drubber/MS/TRB +drubbing/SM/TRBN +Druci/M/TRS +Drucie/M/TRS +Drucill/M/TRSL +Drucy/M/TRS +Drud/M/TRT +drudge/MGSRD/TRK +drudger/M/TRKR +drudgery/SM/TRKR +drudging/Y/TRKNK +drug/SM/TRK +drugged//TRKT +druggie/SRT/TRK +drugging//TRKN +druggist/SM/TRKST +Drugi/M/TRK +drugless//TRKLS +drugstore/SM/TRKSTR +druid/MS/TRT +druidism/MS/TRTSM +Druid's//TRTS +drum/SM/TRM +drumbeat/SGM/TRMBT +drumhead/M/TRMHT +drumlin/MS/TRMLN +drummed//TRMT +drummer/SM/TRM +drumming//TRMN +Drummond/M/TRMNT +drumstick/SM/TRMSTK +drunk/SRNYMT/TRNK +drunkard/SM/TRNKT +drunken/YP/TRNKN +drunkenness/SM/TRNKNS +drupe/SM/TRP +Drury/M/TRR +Drusi/M/TRS +Drusie/M/TRS +Drusilla/M/TRSL +Drusy/M/TRS +druthers//TR@S +dry/GYDRSTZ/TR +dryad/MS/TRYT +Dryden/M/TRTN +dryer/MS/TRY +dryish//TRYX +dryness/SM/TRNS +drys//TRS +drystone//TRSTN +drywall/GSD/TRWL +D's//TS +d's/A/TS +Dshubba/M/TXB +DST//TST +DTP//TTP +Du/M/T +dual/YS/TL +dualism/MS/TLSM +dualist/M/TLST +dualistic//TLSTK +duality/MS/TLT +Duane/M/TN +dub/S/TB +Dubai/M/TB +dubbed//TBT +dubber/S/TB +dubbin/MS/TBN +dubbing/M/TBN +Dubcek/M/TBSK +Dubhe/M/TBH +dubiety/MS/TBT +dubious/YP/TBS +dubiousness/SM/TBSNS +Dublin/M/TBLN +Dubrovnik/M/TBRFNK +Dubuque/M/TBK +ducal//TKL +ducat/SM/TKT +duce/CAIKF/TS +duce's//TSS +Duchamp/M/TXMP +duchess/MS/TXS +duchy/SM/TX +duck/GSRDM/TK +duckbill/SM/TKBL +ducker/M/TK +duckling/SM/TKLN +duckpins//TKPNS +duckpond//TKPNT +duckweed/MS/TKWT +ducky/RSMT/TK +duct/KMSF/TKT +ducted/CFI/TKTT +ductile/I/TKTL +ductility/SM/TKTLT +ducting/F/TKTN +ductless//TKTLS +duct's/A/TKTS +ducts/CI/TKTS +ductwork/M/TKTWK +dud/GMDS/TT +Dud/M/TT +dudder//TT +dude/MS/TT +dudgeon/SM/TKN +Dudley/M/TTL +due/PMS/T +duel/MRDGZSJ/TL +duelist/MS/TLST +dueness/M/TNS +duenna/MS/TN +duet/MS/TT +duetted//TTT +duetting//TTN +duff/GZSRDM/TF +Duff/M/TF +duffel/M/TFL +duffer/M/TF +Duffie/M/TF +Duffy/M/TF +dug/S/TK +Dugald/M/TKLT +dugout/SM/TKT +duh//T +DUI//T +Duisburg/M/TSBK +duke/DSMG/TK +Duke/M/TK +dukedom/SM/TKTM +Dukey/M/TK +Dukie/M/TK +Duky/M/TK +Dulce/M/TLS +Dulcea/M/TLS +dulcet/SY/TLST +Dulci/M/TLS +Dulcia/M/TLX +Dulciana/M/TLXN +Dulcie/M/TLS +dulcify//TLSF +dulcimer/MS/TLSM +Dulcine/M/TLSN +Dulcinea/M/TLSN +Dulcy/M/TLS +dull/SRDPGT/TL +dullard/MS/TLT +Dulles/M/TLS +dullness/MS/TLNS +dully//TL +dulness's//TLNSS +Dulsea/M/TLS +Duluth/M/TL@ +duly/U/TL +Dumas//TMS +dumb/PSGTYRD/TM +dumbbell/MS/TMBL +dumbfound/GSDR/TMBFNT +dumbness/MS/TMBNS +Dumbo/M/TMB +dumbstruck//TMBSTRK +dumbwaiter/SM/TMBWT +dumdum/MS/TMTM +dummy/SDMG/TM +Dumont/M/TMNT +dump/SGZRD/TMP +dumper/UM/TMP +dumpiness/MS/TMPNS +dumpling/MS/TMPLN +dumpster/S/TMPST +Dumpster/S/TMPST +Dumpty/M/TMPT +dumpy/PRST/TMP +Dun/M/TN +dun/S/TN +Dunant/M/TNNT +Dunbar/M/TNB +Dunc/M/TNK +Duncan/M/TNKN +dunce/MS/TNS +Dundee/M/TNT +dunderhead/MS/TNTHT +dune/SM/TN +Dunedin/M/TNTN +dung/SGDM/TNK +dungaree/SM/TNKR +dungeon/GSMD/TNKN +dunghill/MS/TNKL +Dunham/M/TNHM +dunk/GSRD/TNK +dunker/M/TNK +Dunkirk/M/TNKK +Dunlap/M/TNLP +Dunn/M/TN +Dunne/M/TN +dunned//TNT +dunner//TN +dunnest//TNST +dunning//TNN +dunno/M/TN +Dunstan/M/TNSTN +duo/MS/T +duodecimal/S/TTSML +duodena//TTN +duodenal//TTNL +duodenum/M/TTNM +duologue/M/TLK +duopolist//TPLST +duopoly/M/TPL +dupe/NGDRSMZ/TP +duper/M/TP +dupion/M/TPN +duple//TPL +duplex/MSRDG/TPLKS +duplexer/M/TPLKS +duplicability/M/TPLKBLT +duplicable//TPLKBL +duplicate/ADSGNX/TPLKT +duplication/AM/TPLKXN +duplicative//TPLKTF +duplicator/MS/TPLKT +duplicitous//TPLSTS +duplicity/SM/TPLST +Dupont/MS/TPNT +DuPont/MS/TPNT +Dur/M/T +durability/MS/TRBLT +durable/PS/TRBL +durableness/M/TRBLNS +durably//TRBL +Duracell/M/TRSL +Duran/M/TRN +durance/SM/TRNS +Durand/M/TRNT +Durant/M/TRNT +Durante/M/TRNT +duration/MS/TRXN +durational//TRXNL +Durban/M/TBN +Dürer/M/TR +duress/SM/TRS +Durex/M/TRKS +Durham/MS/THM +during//TRN +Durkee/M/TK +Durkheim/M/TKHM +Durocher/M/TRX +durst//TST +durum/MS/TRM +Durward/M/TWT +Duse/M/TS +Dusenberg/M/TSNBK +Dusenbury/M/TSNBR +Dushanbe/M/TXNB +dusk/GDMS/TSK +duskiness/MS/TSKNS +dusky/RPT/TSK +Düsseldorf//TSLTF +dust/MRDGZS/TST +dustbin/MS/TSTBN +dustcart/M/TSTKT +dustcover//TSTKF +duster/M/TST +dustily//TSTL +Dustin/M/TSTN +dustiness/MS/TSTNS +dusting/M/TSTN +dustless//TSTLS +dustman/M/TSTMN +dustmen//TSTMN +dustpan/SM/TSTPN +Dusty/M/TST +dusty/RPT/TST +Dutch/M/TX +dutch/MS/TX +Dutchman/M/TXMN +Dutchmen//TXMN +Dutchwoman//TXWMN +Dutchwomen//TXWMN +duteous/Y/TTS +dutiable//TXBL +dutiful/UPY/TTFL +dutifulness/S/TTFLNS +duty/SM/TT +Duvalier/M/TFL +duvet/SM/TFT +duxes//TKSS +Dvina/M/TFN +Dvorák/M/TFK +Dwain/M/TWN +dwarf/MTGSPRD/TWF +dwarfish//TWFX +dwarfism/MS/TWFSM +Dwayne/M/TWN +dweeb/S/TWB +dwell/IGS/TWL +dweller/SM/TWL +dwelling/MS/TWLN +dwelt/I/TWLT +DWI//TW +Dwight/M/TWT +dwindle/GSD/TWNTL +Dy/M/T +dyad/MS/TYT +dyadic//TYTK +Dyan/M/TYN +Dyana/M/TYN +Dyane/M/TYN +Dyann/M/TYN +Dyanna/M/TYN +Dyanne/M/TYN +dybbuk/SM/TBK +dybbukim//TBKM +dye/JDRSMZG/TY +dyed/A/TYT +dyeing/M/TYN +dyer/M/TY +Dyer/M/TY +dyes/A/TYS +dyestuff/SM/TYSTF +dying/UA/TYN +Dyke/M/TK +dyke's//TKS +Dylan/M/TLN +Dyna/M/TN +Dynah/M/TN +dynamic/S/TNMK +dynamical/Y/TNMKL +dynamics/M/TNMKS +dynamism/SM/TNMSM +dynamite/RSDZMG/TNMT +dynamiter/M/TNMT +dynamized//TNMST +dynamo/MS/TNM +dynastic//TNSTK +dynasty/MS/TNST +dyne/M/TN +dysentery/SM/TSNTR +dysfunction/MS/TSFNKXN +dysfunctional//TSFNKXNL +dyslectic/S/TSLKTK +dyslexia/MS/TSLKS +dyslexic/S/TSLKSK +dyslexically//TSLKSKL +dyspepsia/MS/TSPPX +dyspeptic/S/TSPPTK +dysprosium/MS/TSPRSM +dystopia/M/TSTP +dystrophy/M/TSTRF +dz//TS +Dzerzhinsky/M/TSSHNSK +E//* +e/FMDS/* +ea//* +each//*X +Eachelle/M/*XL +Eada/M/*T +Eadie/M/*T +Eadith/M/*T@ +Eadmund/M/*TMNT +eager/TSPRYM/*K +eagerness/MS/*KNS +eagle/SDGM/*KL +eaglet/SM/*KLT +Eakins/M/*KNS +Eal/M/*L +Ealasaid/M/*LST +Eamon/M/*MN +ear/GSMDYH/* +earache/SM/*RX +eardrum/SM/*TRM +earful/MS/*FL +Earhart/M/*HT +earing/M/*RN +Earl/M/*L +earl/MS/*L +earldom/MS/*LTM +Earle/M/*L +Earlene/M/*LN +Earlie/M/*L +Earline/M/*LN +earliness/SM/*LNS +earlobe/S/*LB +Early/M/*L +early/PRST/*L +earmark/DGSJ/*MK +earmuff/SM/*MF +earn/GRDZTSJ/*N +earned/U/*NT +earner/M/*N +Earnest/M/*NST +earnest/PYS/*NST +Earnestine/M/*NSTN +earnestness/MS/*NSTNS +earning/M/*NN +Earp/M/*P +earphone/MS/*FN +earpieces//*PSS +earplug/MS/*PLK +earring/MS/*RN +earshot/MS/*XT +earsplitting//*SPLTN +earth/MDNYG/*@ +Eartha/M/*@ +earthbound//*@BNT +earthed/U/*@T +earthenware/MS/*@NWR +earthiness/SM/*@NS +earthliness/M/*@LNS +earthling/MS/*@LN +earthly/TPR/*@L +earthmen//*@MN +earthmover/M/*@MF +earthmoving//*@MFN +earthquake/SDGM/*@KK +earths/U/*@S +earthshaking//*@XKN +earthward/S/*@WT +earthwork/MS/*@WK +earthworm/MS/*@WM +earthy/PTR/*@ +Earvin/M/*FN +earwax/MS/*WKS +earwig/MS/*WK +earwigged//*WKT +earwigging//*WKN +ease/LDRSMG/*S +eased/E/*ST +easel/MS/*SL +easement/MS/*SMNT +easer/M/*S +ease's/EU/*SS +eases/UE/*SS +easies//*SS +easily/U/*SL +easiness/MSU/*SNS +easing/M/*SN +east/GSMR/*ST +East/ZSMR/*ST +eastbound//*STBNT +Easter/M/*ST +easter/Y/*ST +easterly/S/*STL +Eastern/RZ/*STN +eastern/ZR/*STN +easterner/M/*STN +Easterner/M/*STN +easternmost//*STNMST +Easthampton/M/*S@MPTN +easting/M/*STN +Eastland/M/*STLNT +Eastman/M/*STMN +eastward/S/*STWT +Eastwick/M/*STWK +Eastwood/M/*STWT +easy/PUTR/*S +easygoing/P/*SKN +easygoingness/M/*SKNNS +eat/SJZGNRB/*T +eatable/U/*TBL +eatables//*TBLS +eaten/U/*TN +eater/M/*T +eatery/MS/*TR +eating/M/*TN +Eaton/M/*TN +eave/SM/*F +eavesdrop/S/*FSTRP +eavesdropped//*FSTRPT +eavesdropper/MS/*FSTRP +eavesdropping//*FSTRPN +Eb/MN/*B +Eba/M/*B +ebb/DSG/*B +Ebba/M/*B +EBCDIC//*BKTK +Eben/M/*BN +Ebeneezer/M/*BNS +Ebeneser/M/*BNS +Ebenezer/M/*BNS +Eberhard/M/*BHT +Eberto/M/*BT +Ebola//*BL +Ebonee/M/*BN +Ebonics//*BNKS +Ebony/M/*BN +ebony/SM/*BN +Ebro/M/*BR +ebullience/SM/*BLNS +ebullient/Y/*BLNT +ebullition/SM/*BLXN +EC//*K +eccentric/MS/*SNTRK +eccentrically//*SNTRKL +eccentricity/SM/*SNTRST +eccl//*KL +Eccles//*KLS +Ecclesiastes/M/*KLXSTS +ecclesiastic/MS/*KLXSTK +ecclesiastical/Y/*KLXSTKL +ECG//*KK +echelon/SGDM/*XLN +echinoderm/SM/*XNTM +echo/DMG/*X +echoed/A/*XT +echoes/A/*XS +echoic//*XK +echolocation/SM/*XLKXN +éclair/MS/KL +éclat/MS/KLT +eclectic/S/*KLKTK +eclectically//*KLKTKL +eclecticism/MS/*KLKTSSM +eclipse/MGSD/*KLPS +ecliptic/MS/*KLPTK +eclogue/MS/*KLK +Eco/M/*K +ecocide/SM/*KST +ecol//*KL +Ecole/M/*KL +ecologic//*KLKK +ecological/Y/*KLKKL +ecologist/MS/*KLKST +ecology/MS/*KLK +econ//*KN +econometric/S/*KNMTRK +Econometrica/M/*KNMTRK +econometricians//*KNMTRXNS +econometrics/M/*KNMTRKS +economic/S/*KNMK +economical/YU/*KNMKL +economics/M/*KNMKS +economist/MS/*KNMST +economization//*KNMSXN +economize/GZSRD/*KNMS +economizer/M/*KNMS +economizing/U/*KNMSN +economy/MS/*KNM +ecosystem/MS/*KSSTM +ecru/SM/*KR +ecstasy/MS/*KSTS +Ecstasy/S/*KSTS +ecstatic/S/*KSTTK +ecstatically//*KSTTKL +ectoplasm/M/*KTPLSM +Ecuador/M/*KT +Ecuadoran/S/*KTRN +Ecuadorean/S/*KTRN +Ecuadorian/S/*KTRN +ecumenic/MS/*KMNK +ecumenical/Y/*KMNKL +ecumenicism/SM/*KMNSSM +ecumenicist/MS/*KMNSST +ecumenics/M/*KMNKS +ecumenism/SM/*KMNSM +ecumenist/MS/*KMNST +eczema/MS/*KSM +ed/ASC/*T +Ed/XMN/*T +Eda/M/*T +Edam/SM/*TM +Edan/M/*TN +Edd/M/*T +Edda/M/*T +Eddi/M/*T +Eddie/M/*T +Eddy/M/*T +eddy/SDMG/*T +Ede/M/*T +Edee/M/*T +Edeline/M/*TLN +edelweiss/MS/*TLWS +edema/SM/*TM +edematous//*TMTS +eden//*TN +Eden/M/*TN +Edgar/M/*TK +Edgard/M/*TKT +Edgardo/M/*TKT +edge/DRSMZGJ/*K +edgeless//*KLS +edger/M/*KR +Edgerton/M/*KRTN +Edgewater/M/*KWT +edgewise//*KWS +Edgewood/M/*KWT +edgily//*KL +edginess/MS/*KNS +edging/M/*KNK +edgy/TRP/*K +Edi/MH/*T +edibility/MS/*TBLT +edible/SP/*TBL +edibleness/SM/*TBLNS +edict/SM/*TKT +Edie/M/*T +edification/M/*TFKXN +edifice/SM/*TFS +edifier/M/*TF +edify/ZNXGRSD/*TF +edifying/U/*TFYN +Edik/M/*TK +Edin/M/*TN +Edinburgh/M/*TNB +Edison/M/*TSN +edit/SADG/*TT +Edita/M/*TT +editable//*TTBL +edited/IU/*TTT +Edith/M/*T@ +Editha/M/*T@ +Edithe/M/*T@ +edition/SM/*TXN +editor/MS/*TT +editorial/YS/*TTRL +editorialist/M/*TTRLST +editorialize/DRSG/*TTRLS +editorializer/M/*TTRLS +editorship/MS/*TTXP +Ediva/M/*TF +Edlin/M/*TLN +Edmon/M/*TMN +Edmond/M/*TMNT +Edmonton/M/*TMNTN +Edmund/M/*TMNT +Edna/M/*TN +Edouard/M/*TT +EDP//*TP +eds//*TS +Edsel/M/*TSL +Edsger/M/*TSK +EDT//*TT +Eduard/M/*TT +Eduardo/M/*TT +educ/DBG/*TK +educability/SM/*TKBLT +educable/S/*TKBL +educate/XASDGN/*TKT +educated/YP/*TKTT +education/AM/*TKXN +educational/Y/*TKXNL +educationalists//*TKXNLSTS +educationists//*TKXNSTS +educative//*TKTF +educator/MS/*TKT +educe/S/*TS +eduction/M/*TKXN +Eduino/M/*TN +edutainment/S/*TTNMNT +Edvard/M/*TFT +Edward/SM/*TWT +Edwardian//*TWTN +Edwardo/M/*TWT +Edwin/M/*TWN +Edwina/M/*TWN +Edy/M/*T +Edyth/M/*T@ +Edythe/M/*T@ +EEC//*K +EEG//*K +eek/S/*K +eel/MS/*L +eelgrass/M/*LKRS +e'en//*N +EEO//* +EEOC//*K +e'er//* +eerie/RT/*R +eerily//*RL +eeriness/MS/*RNS +Eeyore/M/*YR +efface/SRDLG/*FS +effaceable/I/*FSBL +effacement/MS/*FSMNT +effacer/M/*FS +effect/SMDGV/*FKT +effective/YIP/*FKTF +effectiveness/ISM/*FKTFNS +effectives//*FKTFS +effector/MS/*FKT +effectual/IYP/*FKTL +effectualness/MI/*FKTLNS +effectuate/SDGN/*FKTT +effectuation/M/*FKTXN +effeminacy/MS/*FMNS +effeminate/SY/*FMNT +effendi/MS/*FNT +efferent/SY/*FRNT +effervesce/GSD/*FFS +effervescence/SM/*FFSNS +effervescent/Y/*FFSNT +effete/YP/*FT +effeteness/SM/*FTNS +efficacious/IPY/*FKSS +efficaciousness/MI/*FKSSNS +efficacy/IMS/*FKS +efficiency/MIS/*FSNS +efficient/ISY/*FSNT +Effie/M/*F +effigy/SM/*FK +effloresce//*FLRS +efflorescence/SM/*FLRSNS +efflorescent//*FLRSNT +effluence/SM/*FLNS +effluent/MS/*FLNT +effluvia//*FLF +effluvium/M/*FLFM +efflux/M/*FLKS +effluxion//*FLKSN +effort/MS/*FT +effortless/PY/*FTLS +effortlessness/SM/*FTLSNS +effrontery/MS/*FRNTR +effulgence/SM/*FLKNS +effulgent//*FLKNT +effuse/XSDVGN/*FS +effusion/M/*FXN +effusive/YP/*FSF +effusiveness/MS/*FSFNS +EFL//*FL +Efrain/M/*FRN +Efrem/M/*FRM +Efren/M/*FRN +EFT//*FT +EGA/M/*K +egad//*KT +egalitarian/I/*KLTRN +egalitarianism/MS/*KLTRNSM +egalitarians//*KLTRNS +Egan/M/*KN +Egbert/M/*KBT +Egerton/M/*KTN +egg/GMDRS/*K +eggbeater/SM/*KBT +eggcup/MS/*KKP +egger/M/*K +egghead/SDM/*KHT +eggheaded/P/*KHTT +eggnog/SM/*KNK +eggplant/MS/*KPLNT +eggshell/SM/*KXL +egis's//*KSS +eglantine/MS/*KLNTN +ego/SM/*K +egocentric/S/*KSNTRK +egocentrically//*KSNTRKL +egocentricity/SM/*KSNTRST +egoism/SM/*KSM +egoist/SM/*KST +egoistic//*KSTK +egoistical/Y/*KSTKL +egomania/MS/*KMN +egomaniac/MS/*KMNK +Egon/M/*KN +Egor/M/*K +egotism/SM/*KTSM +egotist/MS/*KTST +egotistic//*KTSTK +egotistical/Y/*KTSTKL +egregious/PY/*KRKS +egregiousness/MS/*KRKSNS +egress/SDMG/*KRS +egret/SM/*KRT +Egypt/M/*KPT +Egyptian/S/*KPXN +Egyptology/M/*KPTLK +eh//* +Ehrlich/M/*RLX +Eichmann/M/*XMN +eider/SM/*T +eiderdown/SM/*TTN +eidetic//*TTK +Eiffel/M/*FL +eigenfunction/MS/*KNFNKXN +eigenstate/S/*KNSTT +eigenvalue/SM/*KNFL +eigenvector/MS/*KNFKT +eight/SM/*T +eighteen/MHS/*TN +eighteenths//*TN@S +eightfold//*TFLT +eighth/MS/*@ +eighths//*@S +eightieths//*T@S +eightpence//*TPNS +eighty/SHM/*T +Eileen/M/*LN +Eilis/M/*LS +Eimile/M/*ML +Einstein/SM/*NSTN +Einsteinian//*NSTNN +einsteinium/MS/*NSTNM +Eire/M/*R +Eirena/M/*RN +Eisenhower/M/*SNHW +Eisenstein/M/*SNSTN +Eisner/M/*SN +eisteddfod/M/*STTFT +either//*@ +ejaculate/SDXNG/*KKLT +ejaculation/M/*KKLXN +ejaculatory//*KKLTR +eject/VGSD/*KKT +ejecta//*KKT +ejection/SM/*KKXN +ejector/SM/*KKT +Ekaterina/M/*KTRN +Ekberg/M/*KBK +eke/DSG/*K +eked/A/*KT +EKG//*KK +Ekstrom/M/*KSTRM +Ektachrome/M/*KTXRM +el/AS/*L +El/MY/*L +elaborate/SDYPVNGX/*LBRT +elaborateness/SM/*LBRTNS +elaboration/M/*LBRXN +elaborators//*LBRTS +Elaina/M/*LN +Elaine/M/*LN +élan/M/LN +Elana/M/*LN +eland/SM/*LNT +Elane/M/*LN +Elanor/M/*LN +elans//*LNS +elapse/SDG/*LPS +elastic/S/*LSTK +elastically/I/*LSTKL +elasticated//*LSTKTT +elasticity/SM/*LSTST +elasticize/GDS/*LSTSS +elastodynamics//*LSTTNMKS +elastomer/M/*LSTM +elate/SRDXGN/*LT +elated/PY/*LTT +elatedness/M/*LTTNS +elater/M/*LT +elation/M/*LXN +Elayne/M/*LN +Elba/MS/*LB +Elbe/M/*LB +Elbert/M/*LBT +Elberta/M/*LBT +Elbertina/M/*LBTN +Elbertine/M/*LBTN +elbow/GDMS/*LB +elbowroom/SM/*LBRM +Elbrus/M/*LBRS +Elden/M/*LTN +elder/SY/*LT +elderberry/MS/*LTBR +elderflower//*LTFLW +elderliness/M/*LTLNS +elderly/PS/*LTL +eldest//*LTST +Eldin/M/*LTN +Eldon/M/*LTN +Eldorado's//*LTRTS +Eldredge/M/*LTRK +Eldridge/M/*LTRK +Eleanor/M/*LN +Eleanora/M/*LNR +Eleanore/M/*LNR +Eleazar/M/*LS +elect/ASGD/*LKT +electable/U/*LKTBL +elected/U/*LKTT +election/SAM/*LKXN +electioneer/GSD/*LKXN +elective/SPY/*LKTF +electiveness/M/*LKTFNS +elector/SM/*LKT +electoral/Y/*LKTRL +electorate/SM/*LKTRT +Electra/M/*LKTR +electress/M/*LKTRS +electric/S/*LKTRK +electrical/PY/*LKTRKL +electricalness/M/*LKTRKLNS +electrician/SM/*LKTRXN +electricity/SM/*LKTRST +electrification/M/*LKTRFKXN +electrifier/M/*LKTRF +electrify/ZXGNDRS/*LKTRF +electro/M/*LKTR +electrocardiogram/MS/*LKTRKTKRM +electrocardiograph/M/*LKTRKTKRF +electrocardiographs//*LKTRKTKRFS +electrocardiography/MS/*LKTRKTKRF +electrochemical/Y/*LKTRXMKL +electrocute/GNXSD/*LKTRKT +electrocution/M/*LKTRKXN +electrode/SM/*LKTRT +electrodynamic/YS/*LKTRTNMK +electrodynamics/M/*LKTRTNMKS +electroencephalogram/SM/*LKTRNSFLKRM +electroencephalograph/M/*LKTRNSFLKRF +electroencephalographic//*LKTRNSFLKRFK +electroencephalographs//*LKTRNSFLKRFS +electroencephalography/MS/*LKTRNSFLKRF +electrologist/MS/*LKTRLKST +electroluminescent//*LKTRLMNSNT +electrolysis/M/*LKTRLSS +electrolyte/SM/*LKTRLT +electrolytic//*LKTRLTK +electrolytically//*LKTRLTKL +electrolyze/SDG/*LKTRLS +electromagnet/SM/*LKTRMKNT +electromagnetic//*LKTRMKNTK +electromagnetically//*LKTRMKNTKL +electromagnetism/SM/*LKTRMKNTSM +electromechanical//*LKTRMXNKL +electromechanics//*LKTRMXNKS +electromotive//*LKTRMTF +electromyograph//*LKTRMYKRF +electromyographic//*LKTRMYKRFK +electromyographically//*LKTRMYKRFKL +electromyography/M/*LKTRMYKRF +electron/MS/*LKTRN +electronegative//*LKTRNKTF +electronic/S/*LKTRNK +electronically//*LKTRNKL +electronics/M/*LKTRNKS +electrophoresis/M/*LKTRFRSS +electrophorus/M/*LKTRFRS +electroplate/DSG/*LKTRPLT +electroscope/MS/*LKTRSKP +electroscopic//*LKTRSKPK +electroshock/GDMS/*LKTRXK +electrostatic/S/*LKTRSTTK +electrostatics/M/*LKTRSTTKS +electrotherapist/M/*LKTR@RPST +electrotype/GSDZM/*LKTRTP +electroweak//*LKTRWK +eleemosynary//*LMSNR +Eleen/M/*LN +elegance/ISM/*LKNS +elegant/YI/*LKNT +elegiac/S/*LKK +elegiacal//*LKKL +elegy/SM/*LK +elem//*LM +element/MS/*LMNT +elemental/YS/*LMNTL +elementarily//*LMNTRL +elementariness/M/*LMNTRNS +elementary/P/*LMNTR +Elena/M/*LN +Elene/M/*LN +Eleni/M/*LN +Elenore/M/*LNR +Eleonora/M/*LNR +Eleonore/M/*LNR +elephant/SM/*LFNT +elephantiases//*LFNXSS +elephantiasis/M/*LFNXSS +elephantine//*LFNTN +elev/NX/*LF +elevate/XDSNG/*LFT +elevated/S/*LFTT +elevation/M/*LFXN +elevator/SM/*LFT +eleven/HM/*LFN +elevens/S/*LFNS +elevenths//*LFN@S +elf/M/*LF +Elfie/M/*LF +elfin/S/*LFN +elfish//*LFX +Elfreda/M/*LFRT +Elfrida/M/*LFRT +Elfrieda/M/*LFRT +Elga/M/*LK +Elgar/M/*LK +Eli/M/*L +Elia/SM/*L +Elianora/M/*LNR +Elianore/M/*LNR +Elicia/M/*LX +elicit/GSD/*LST +elicitation/MS/*LSTXN +elide/GSD/*LT +Elie/M/*L +eligibility/ISM/*LKBLT +eligible/SI/*LKBL +Elihu/M/*LH +Elijah/M/*LK +eliminate/XSDYVGN/*LMNT +elimination/M/*LMNXN +eliminator/SM/*LMNT +Elinor/M/*LN +Elinore/M/*LNR +Eliot/M/*LT +Elisa/M/*LS +Elisabet/M/*LSBT +Elisabeth/M/*LSB@ +Elisabetta/M/*LSBT +Elise/M/*LS +Eliseo/M/*LS +Elisha/M/*LX +elision/SM/*LXN +Elissa/M/*LS +Elita/M/*LT +elite/MPS/*LT +elitism/SM/*LTSM +elitist/SM/*LTST +elixir/MS/*LKS +Eliza/M/*LS +Elizabet/M/*LSBT +Elizabeth/M/*LSB@ +Elizabethan/S/*LSB@N +elk/MS/*LK +Elka/M/*LK +Elke/M/*LK +Elkhart/M/*LKHT +ell/MS/*L +Ella/M/*L +Elladine/M/*LTN +Ellary/M/*LR +Elle/M/*L +Ellen/M/*LN +Ellene/M/*LN +Ellerey/M/*LR +Ellery/M/*LR +Ellesmere/M/*LSMR +Ellette/M/*LT +Elli/SM/*L +Ellie/M/*L +Ellington/M/*LNTN +Elliot/M/*LT +Elliott/M/*LT +ellipse/MS/*LPS +ellipsis/M/*LPSS +ellipsoid/MS/*LPST +ellipsoidal//*LPSTL +ellipsometer/MS/*LPSMT +ellipsometry//*LPSMTR +elliptic//*LPTK +elliptical/YS/*LPTKL +ellipticity/M/*LPTST +Ellison/M/*LSN +Ellissa/M/*LS +Ellswerth/M/*LSW@ +Ellsworth/M/*LSW@ +Ellwood/M/*LWT +Elly/M/*L +Ellyn/M/*LN +Ellynn/M/*LN +elm/MRS/*LM +Elma/M/*LM +Elmer/M/*LM +Elmhurst/M/*LMHST +Elmira/M/*LMR +Elmo/M/*LM +Elmore/M/*LMR +Elmsford/M/*LMSFT +Elna/MH/*LN +Elnar/M/*LN +Elnath/M/*LN@ +Elnora/M/*LNR +Elnore/M/*LNR +elocution/SM/*LKXN +elocutionary//*LKXNR +elocutionist/MS/*LKXNST +elodea/S/*LT +Elohim/M/*LHM +Eloisa/M/*LS +Eloise/M/*LS +elongate/NGXSD/*LNKT +elongation/M/*LNKXN +Elonore/M/*LNR +elope/SRDLG/*LP +elopement/MS/*LPMNT +eloper/M/*LP +eloquence/SM/*LKNS +eloquent/IY/*LKNT +Elora/M/*LR +Eloy/M/*L +Elroy/M/*LR +els//*LS +Elsa/M/*LS +Elsbeth/M/*LSB@ +else/M/*LS +Else/M/*LS +Elset/M/*LST +elsewhere//*LSHR +Elsey/M/*LS +Elsi/M/*LS +Elsie/M/*LS +Elsinore/M/*LSNR +Elspeth/M/*LSP@ +Elston/M/*LSTN +Elsworth/M/*LSW@ +Elsy/M/*LS +Eltanin/M/*LTNN +Elton/M/*LTN +eluate/SM/*LT +elucidate/SDVNGX/*LSTT +elucidation/M/*LSTXN +elude/GSD/*LT +elusive/YP/*LSF +elusiveness/SM/*LSFNS +elute/DGN/*LT +elution/M/*LXN +Elva/M/*LF +elven//*LFN +elver/SM/*LF +Elvera/M/*LFR +elves/M/*LFS +Elvia/M/*LF +Elvin/M/*LFN +Elvina/M/*LFN +Elvira/M/*LFR +Elvis/M/*LFS +elvish//*LFX +Elvyn/M/*LFN +Elwin/M/*LWN +Elwira/M/*LWR +Elwood/M/*LWT +Elwyn/M/*LN +Ely/M/*L +Elyn/M/*LN +Elyse/M/*LS +Elysée/M/*LS +Elysees//*LSS +Elysha/M/*LX +Elysia/M/*LX +elysian//*LXN +Elysian//*LXN +Elysium/SM/*LSM +Elyssa/M/*LS +EM//*M +em/M/*M +Em/M/*M +Ema/M/*M +emaciate/NGXDS/*MXT +emaciation/M/*MXXN +emacs/M/*MKS +Emacs/M/*MKS +email/SMDG/*ML +Emalee/M/*ML +Emalia/M/*ML +emanate/XSDVNG/*MNT +emanation/M/*MNXN +emancipate/DSXGN/*MNSPT +emancipation/M/*MNSPXN +emancipator/MS/*MNSPT +Emanuel/M/*MNL +Emanuele/M/*MNL +emasculate/GNDSX/*MSKLT +emasculation/M/*MSKLXN +embalm/ZGRDS/*MBLM +embalmer/M/*MBLM +embank/GLDS/*MBNK +embankment/MS/*MBNKMNT +embarcadero//*MBKTR +embargo/GMD/*MBK +embargoes//*MBKS +embark/ADESG/*MBK +embarkation/EMS/*MBKXN +embarrass/SDLG/*MBRS +embarrassed/U/*MBRST +embarrassedly//*MBRSTL +embarrassing/Y/*MBRSN +embarrassment/MS/*MBRSMNT +embassy/MS/*MBS +embattle/DSG/*MBTL +embed/S/*MBT +embeddable//*MBTBL +embedded//*MBTT +embedder//*MBT +embedding/MS/*MBTN +embellish/LGRSD/*MBLX +embellished/U/*MBLXT +embellisher/M/*MBLX +embellishment/MS/*MBLXMNT +ember/MS/*MB +embezzle/LZGDRS/*MBSL +embezzlement/MS/*MBSLMNT +embezzler/M/*MBSL +embitter/LGDS/*MBT +embitterment/SM/*MBTMNT +emblazon/DLGS/*MBLSN +emblazonment/SM/*MBLSNMNT +emblem/GSMD/*MBLM +emblematic//*MBLMTK +embodier/M/*MBT +embodiment/ESM/*MBTMNT +embody/ESDGA/*MBT +embolden/DSG/*MBLTN +embolism/SM/*MBLSM +embosom//*MBSM +emboss/ZGRSD/*MBS +embosser/M/*MBS +embouchure/SM/*MBXR +embower/GSD/*MBW +embrace/RSDVG/*MBRS +embraceable//*MBRSBL +embracer/M/*MBRS +embracing/Y/*MBRSN +embrasure/MS/*MBRSR +embrittle//*MBRTL +embrocation/SM/*MBRKXN +embroider/SGZDR/*MBRT +embroiderer/M/*MBRTR +embroidery/MS/*MBRTR +embroil/SLDG/*MBRL +embroilment/MS/*MBRLMNT +embryo/SM/*MBRY +embryologist/SM/*MBRYLKST +embryology/MS/*MBRYLK +embryonic//*MBRYNK +emcee/SDM/*MS +emceeing//*MSN +Emelda/M/*MLT +Emelen/M/*MLN +Emelia/M/*ML +Emelina/M/*MLN +Emeline/M/*MLN +Emelita/M/*MLT +Emelyne/M/*MLN +emend/SRDGB/*MNT +emendation/MS/*MNTXN +Emera/M/*MR +emerald/SM/*MRLT +emerge/ADSG/*MK +emergence/MAS/*MKNS +emergency/SM/*MKNS +emergent/S/*MKNT +emerita//*MRT +emeritae//*MRT +emeriti//*MRT +emeritus//*MRTS +Emerson/M/*MSN +Emery/M/*MR +emery/MGSD/*MR +emetic/S/*MTK +emf/S/*MF +emigrant/MS/*MKRNT +emigrate/SDXNG/*MKRT +emigration/M/*MKRXN +émigré/S/MKR +Emil/M/*ML +Emile/M/*ML +Emilee/M/*ML +Emili/M/*ML +Emilia/M/*ML +Emilie/M/*ML +Emiline/M/*MLN +Emilio/M/*ML +Emily/M/*ML +eminence/MS/*MNNS +Eminence/MS/*MNNS +eminent/Y/*MNNT +emir/SM/*M +emirate/SM/*MRT +emissary/SM/*MSR +emission/AMS/*MXN +emissivity/MS/*MSFT +emit/S/*MT +emittance/M/*MTNS +emitted//*MTT +emitter/SM/*MT +emitting//*MTN +Emlen/M/*MLN +Emlyn/M/*MLN +Emlynn/M/*MLN +Emlynne/M/*MLN +Emma/M/*M +Emmalee/M/*ML +Emmaline/M/*MLN +Emmalyn/M/*MLN +Emmalynn/M/*MLN +Emmalynne/M/*MLN +Emmanuel/M/*MNL +Emmeline/M/*MLN +Emmerich/M/*MRX +Emmery/M/*MR +Emmet/M/*MT +Emmett/M/*MT +Emmey/M/*M +Emmi/M/*M +Emmie/M/*M +Emmit/M/*MT +Emmott/M/*MT +Emmy/SM/*M +Emmye/M/*MY +Emogene/M/*MKN +emollient/S/*MLNT +emolument/SM/*MLMNT +Emory/M/*MR +emote/SDVGNX/*MT +emotion/M/*MXN +emotional/UY/*MXNL +emotionalism/MS/*MXNLSM +emotionality/M/*MXNLT +emotionalize/GDS/*MXNLS +emotionless//*MXNLS +emotive/Y/*MTF +empaneled//*MPNLT +empaneling//*MPNLN +empath//*MP@ +empathetic//*MP@TK +empathetical/Y/*MP@TKL +empathic//*MP@K +empathize/SDG/*MP@S +empathy/MS/*MP@ +emperor/MS/*MPR +emphases//*MFSS +emphasis/M/*MFSS +emphasize/ZGCRSDA/*MFSS +emphatic/U/*MFTK +emphatically/U/*MFTKL +emphysema/SM/*MFSM +emphysematous//*MFSMTS +empire/MS/*MPR +empiric/SM/*MPRK +empirical/Y/*MPRKL +empiricism/SM/*MPRSSM +empiricist/SM/*MPRSST +emplace/L/*MPLS +emplacement/MS/*MPLSMNT +employ/LAGDS/*MPL +employability/UM/*MPLYBLT +employable/US/*MPLYBL +employed/U/*MPLYT +employee/SM/*MPLY +employer/SM/*MPLY +employment/UMAS/*MPLMNT +emporium/MS/*MPRM +empower/GLSD/*MPW +empowerment/MS/*MPWMNT +empress/MS/*MPRS +emptier/M/*MPT +emptily//*MPTL +emptiness/SM/*MPTNS +empty/GRSDPT/*MPT +empyrean/SM/*MPRN +ems/C/*MS +EMT//*MT +emu/SM/*M +emulate/SDVGNX/*MLT +emulation/M/*MLXN +emulative/Y/*MLTF +emulator/MS/*MLT +emulsification/M/*MLSFKXN +emulsifier/M/*MLSF +emulsify/NZSRDXG/*MLSF +emulsion/SM/*MLXN +Emyle/M/*ML +Emylee/M/*ML +en/BM/*N +enable/SRDZG/*NBL +enabler/M/*NBL +enact/SGALD/*NKT +enactment/ASM/*NKTMNT +enamel/ZGJMDRS/*NML +enameler/M/*NML +enamelware/SM/*NMLWR +enamor/DSG/*NM +enc//*NK +encamp/LSDG/*NKMP +encampment/MS/*NKMPMNT +encapsulate/SDGNX/*NKPSLT +encapsulation/M/*NKPSLXN +encase/GSDL/*NKS +encasement/SM/*NKSMNT +encephalitic//*NSFLTK +encephalitides//*NSFLTTS +encephalitis/M/*NSFLTS +encephalographic//*NSFLKRFK +encephalopathy/M/*NSFLP@ +enchain/SGD/*NXN +enchant/ESLDG/*NXNT +enchanter/MS/*NXNT +enchanting/Y/*NXNTN +enchantment/MSE/*NXNTMNT +enchantress/MS/*NXNTRS +enchilada/SM/*NXLT +encipher/SRDG/*NSF +encipherer/M/*NSFR +encircle/GLDS/*NSKL +encirclement/SM/*NSKLMNT +encl//*NKL +enclave/MGDS/*NKLF +enclose/GDS/*NKLS +enclosed/U/*NKLST +enclosure/SM/*NKLSR +encode/ZJGSRD/*NKT +encoder/M/*NKT +encomium/SM/*NKMM +encompass/GDS/*NKMPS +encore/GSD/*NKR +encounter/GSD/*NKNT +encourage/SRDGL/*NKRK +encouragement/SM/*NKRKMNT +encourager/M/*NKRK +encouraging/Y/*NKRKN +encroach/LGRSD/*NKRX +encroacher/M/*NKRX +encroachment/MS/*NKRXMNT +encrust/DSG/*NKRST +encrustation/MS/*NKRSTXN +encrypt/DGS/*NKRPT +encrypted/U/*NKRPTT +encryption/SM/*NKRPXN +encumber/SEDG/*NKMB +encumbered/U/*NKMBRT +encumbrance/SRM/*NKMBRNS +encumbrancer/M/*NKMBRNS +ency//*NS +encyclical/SM/*NSKLKL +encyclopaedia's//*NSKLPTS +encyclopedia/SM/*NSKLPT +encyclopedic//*NSKLPTK +encyst/GSLD/*NSST +encystment/MS/*NSSTMNT +end/ZGVMDRSJ/*NT +endanger/DGSL/*NTNK +endangerment/SM/*NTNKMNT +endear/GSLD/*NT +endearing/Y/*NTRN +endearment/MS/*NTMNT +endeavor/GZSMRD/*NTF +endeavored/U/*NTFRT +endeavorer/M/*NTFR +endemic/S/*NTMK +endemically//*NTMKL +endemicity//*NTMST +ender/M/*NT +endgame/M/*NTKM +Endicott/M/*NTKT +ending/M/*NTN +endive/SM/*NTF +endless/PY/*NTLS +endlessness/MS/*NTLSNS +endmost//*NTMST +endnote/MS/*NTNT +endocrine/S/*NTKRN +endocrinologist/SM/*NTKRNLKST +endocrinology/SM/*NTKRNLK +endogamous//*NTKMS +endogamy/M/*NTKM +endogenous/Y/*NTKNS +endomorphism/SM/*NTMFSM +endorse/DRSZGL/*NTS +endorsement/MS/*NTSMNT +endorser/M/*NTS +endoscope/MS/*NTSKP +endoscopic//*NTSKPK +endoscopy/SM/*NTSKP +endosperm/M/*NTSPM +endothelial//*NT@LL +endothermic//*NT@MK +endow/GSDL/*NT +endowment/SM/*NTMNT +endpoint/MS/*NTPNT +endue/SDG/*NT +endungeoned//*NTNKNT +endurable/U/*NTRBL +endurably/U/*NTRBL +endurance/SM/*NTRNS +endure/BSDG/*NTR +enduring/YP/*NTRN +enduringness/M/*NTRNNS +endways//*NTWS +Endymion/M/*NTMN +ENE//*N +enema/SM/*NM +enemy/SM/*NM +energetic/S/*NKTK +energetically//*NKTKL +energetics/M/*NKTKS +energize/ZGDRS/*NKS +energized/U/*NKST +energizer/M/*NKS +energy/MS/*NK +enervate/XNGVDS/*NFT +enervation/M/*NFXN +enfeeble/GLDS/*NFBL +enfeeblement/SM/*NFBLMNT +enfilade/MGDS/*NFLT +enfold/SGD/*NFLT +enforce/LDRSZG/*NFS +enforceability/M/*NFSBLT +enforceable/U/*NFSBL +enforced/Y/*NFST +enforcement/SM/*NFSMNT +enforcer/M/*NFS +enforcible/U/*NFSBL +enfranchise/ELDRSG/*NFRNXS +enfranchisement/EMS/*NFRNXSMNT +enfranchiser/M/*NFRNXS +Eng/M/*NK +engage/ADSGE/*NKK +engagement/SEM/*NKKMNT +engaging/Y/*NKKN +Engel/MS/*NKL +Engelbert/M/*NKLBT +engender/DGS/*NKNT +engine/MGSD/*NKN +engineer/GSMDJ/*NKN +engineering/MY/*NKNRN +England/M/*NKLNT +england/ZR/*NKLNT +Englebert/M/*NKLBT +Englewood/M/*NKLWT +English/GDRSM/*NKLX +Englishman/M/*NKLXMN +Englishmen//*NKLXMN +Englishwoman/M/*NKLXWMN +Englishwomen//*NKLXWMN +engorge/LGDS/*NKK +engorgement/MS/*NKKMNT +Engracia/M/*NKRX +engram/MS/*NKRM +engrave/ZGDRSJ/*NKRF +engraver/M/*NKRF +engraving/M/*NKRFN +engross/GLDRS/*NKRS +engrossed/Y/*NKRST +engrosser/M/*NKRS +engrossing/Y/*NKRSN +engrossment/SM/*NKRSMNT +engulf/GDSL/*NKLF +engulfment/SM/*NKLFMNT +enhance/LZGDRS/*NHNS +enhanceable//*NHNSBL +enhancement/MS/*NHNSMNT +enhancer/M/*NHNS +enharmonic//*NHMNK +Enid/M/*NT +Enif/M/*NF +enigma/MS/*NKM +enigmatic//*NKMTK +enigmatically//*NKMTKL +Eniwetok/M/*NWTK +enjambement's//*NKMBMNTS +enjambment/MS/*NKMBMNT +enjoin/GSD/*NKN +enjoinder//*NKNT +enjoy/GBDSL/*NK +enjoyability//*NKYBLT +enjoyable/P/*NKYBL +enjoyableness/M/*NKYBLNS +enjoyably//*NKYBL +enjoyment/SM/*NKMNT +Enkidu/M/*NKT +enlarge/LDRSZG/*NLK +enlargeable//*NLKBL +enlargement/MS/*NLKMNT +enlarger/M/*NLK +enlighten/GDSL/*NLTN +enlightened/U/*NLTNT +enlightening/U/*NLTNN +enlightenment/SM/*NLTNMNT +enlist/SAGDL/*NLST +enlistee/MS/*NLST +enlister/M/*NLST +enlistment/SAM/*NLSTMNT +enliven/LDGS/*NLFN +enlivenment/SM/*NLFNMNT +enmesh/DSLG/*NMX +enmeshment/SM/*NMXMNT +enmity/MS/*NMT +Ennis/M/*NS +ennoble/LDRSG/*NBL +ennoblement/SM/*NBLMNT +ennobler/M/*NBL +ennui/SM/*N +Enoch/M/*NX +enormity/SM/*NMT +enormous/YP/*NMS +enormousness/MS/*NMSNS +Enos//*NS +enough//*NF +enoughs//*NS +enplane/DSG/*NPLN +enqueue/DS/*NK +enquirer/S/*NKR +enquiringly//*NKRNL +enrage/SDG/*NRK +enrapture/GSD/*NRPTR +Enrica/M/*NRK +enrich/LDSRG/*NRX +enricher/M/*NRX +Enrichetta/M/*NRXT +enrichment/SM/*NRXMNT +Enrico/M/*NRK +Enrika/M/*NRK +Enrique/M/*NRK +Enriqueta/M/*NRKT +enrobed//*NRBT +enroll/LGSD/*NRL +enrollee/SM/*NRL +enrollment/SM/*NRLMNT +ens//*NS +ensconce/DSG/*NSKNS +ensemble/MS/*NSMBL +enshrine/DSLG/*NXRN +enshrinement/SM/*NXRNMNT +enshroud/DGS/*NXRT +ensign/SM/*NSN +ensilage/DSMG/*NSLK +enslave/ZGLDSR/*NSLF +enslavement/MS/*NSLFMNT +enslaver/M/*NSLF +ensnare/GLDS/*NSNR +ensnarement/SM/*NSNRMNT +Ensolite/M/*NSLT +ensue/SDG/*NS +ensure/SRDZG/*NSR +ensurer/M/*NSR +entail/SDRLG/*NTL +entailer/M/*NTL +entailment/MS/*NTLMNT +entangle/EGDRSL/*NTNKL +entanglement/ESM/*NTNKLMNT +entangler/EM/*NTNKL +entente/MS/*NTNT +enter/ASDG/*NT +entered/U/*NTRT +enterer/M/*NTR +enteritides//*NTRTTS +enteritis/SM/*NTRTS +enterprise/GMSR/*NTPRS +Enterprise/M/*NTPRS +enterpriser/M/*NTPRS +enterprising/Y/*NTPRSN +entertain/SGZRDL/*NTTN +entertainer/M/*NTTN +entertaining/Y/*NTTNN +entertainment/SM/*NTTNMNT +enthalpy/SM/*N@LP +enthrall/GDSL/*N@RL +enthrallment/SM/*N@RLMNT +enthrone/GDSL/*N@RN +enthronement/MS/*N@RNMNT +enthuse/DSG/*N@S +enthusiasm/SM/*N@XSM +enthusiast/MS/*N@XST +enthusiastic/U/*N@XSTK +enthusiastically/U/*N@XSTKL +entice/SRDJLZG/*NTS +enticement/SM/*NTSMNT +enticing/Y/*NTSN +entire/SY/*NTR +entirety/SM/*NTRT +entitle/GLDS/*NTTL +entitlement/MS/*NTTLMNT +entity/SM/*NTT +entomb/GDSL/*NTM +entombment/MS/*NTMBMNT +entomological//*NTMLKKL +entomologist/S/*NTMLKST +entomology/MS/*NTMLK +entourage/SM/*NTRK +entr'acte/S/*NTRKT +entrails//*NTRLS +entrain/GSLDR/*NTRN +entrainer/M/*NTRN +entrance/MGDSL/*NTRNS +entrancement/MS/*NTRNSMNT +entranceway/M/*NTRNSW +entrancing/Y/*NTRNSN +entrant/MS/*NTRNT +entrap/SL/*NTRP +entrapment/SM/*NTRPMNT +entrapped//*NTRPT +entrapping//*NTRPN +entreat/SGD/*NTRT +entreating/Y/*NTRTN +entreaty/SM/*NTRT +entrée/S/*NTR +entrench/LSDG/*NTRNX +entrenchment/MS/*NTRNXMNT +entrepreneur/MS/*NTRPRN +entrepreneurial//*NTRPRNRL +entrepreneurship/M/*NTRPRNXP +entropic//*NTRPK +entropy/MS/*NTRP +entrust/DSG/*NTRST +entry/ASM/*NTR +entryway/SM/*NTRW +entwine/DSG/*NTWN +enumerable//*NMRBL +enumerate/AN/*NMRT +enumerated/U/*NMRTT +enumerates//*NMRTS +enumerating//*NMRTN +enumeration/SM/*NMRXN +enumeration's/A/*NMRXNS +enumerative//*NMRTF +enumerator/SM/*NMRT +enunciable//*NNXBL +enunciate/XGNSD/*NNXT +enunciated/U/*NNXTT +enunciation/M/*NNXXN +enureses//*NRSS +enuresis/M/*NRSS +envelop/ZGLSDR/*NFLP +envelope/MS/*NFLP +enveloper/M/*NFLP +envelopment/MS/*NFLPMNT +envenom/SDG/*NFNM +enviable/U/*NFBL +enviableness/M/*NFBLNS +enviably//*NFBL +envied/U/*NFT +envier/M/*NF +envious/PY/*NFS +enviousness/SM/*NFSNS +environ/LGSD/*NFRN +environment/MS/*NFRNMNT +environmental/Y/*NFRNMNTL +environmentalism/SM/*NFRNMNTLSM +environmentalist/SM/*NFRNMNTLST +envisage/DSG/*NFSK +envision/GSD/*NFXN +envoy/SM/*NF +envy/SRDMG/*NF +envying/Y/*NFYN +enzymatic//*NSMTK +enzymatically//*NSMTKL +enzyme/SM/*NSM +enzymology/M/*NSMLK +Eocene//*SN +EOE//* +eohippus/M/*HPS +Eolanda/M/*LNT +Eolande/M/*LNT +eolian//*LN +eon/SM/*N +EPA//*P +epaulet/SM/*PLT +épée/S/P +ephedrine/MS/*FTRN +ephemera/MS/*FMR +ephemeral/SY/*FMRL +ephemerids//*FMRTS +ephemeris/M/*FMRS +Ephesian/S/*FXN +Ephesians/M/*FXNS +Ephesus/M/*FSS +Ephraim/M/*FRM +Ephrayim/M/*FRYM +Ephrem/M/*FRM +epic/SM/*PK +epically//*PKL +epicenter/SM/*PSNT +Epictetus/M/*PKTTS +epicure/SM/*PKR +Epicurean//*PKRN +epicurean/S/*PKRN +Epicurus/M/*PKRS +epicycle/MS/*PSKL +epicyclic//*PSKLK +epicyclical/Y/*PSKLKL +epicycloid/M/*PSKLT +epidemic/MS/*PTMK +epidemically//*PTMKL +epidemiological/Y/*PTMLKKL +epidemiologist/MS/*PTMLKST +epidemiology/MS/*PTMLK +epidermal//*PTML +epidermic//*PTMK +epidermis/MS/*PTMS +epidural//*PTRL +epigenetic//*PKNTK +epiglottis/SM/*PKLTS +epigram/MS/*PKRM +epigrammatic//*PKRMTK +epigraph/RM/*PKRF +epigrapher/M/*PKRF +epigraphs//*PKRFS +epigraphy/MS/*PKRF +epilepsy/SM/*PLPS +epileptic/S/*PLPTK +epilogue/SDMG/*PLK +Epimethius/M/*PM@S +epinephrine/SM/*PNFRN +epiphany/SM/*PFN +Epiphany/SM/*PFN +epiphenomena//*PFNMN +episcopacy/MS/*PSKPS +Episcopal/S/*PSKPL +episcopal/Y/*PSKPL +episcopalian//*PSKPLN +Episcopalian/S/*PSKPLN +episcopate/MS/*PSKPT +episode/SM/*PST +episodic//*PSTK +episodically//*PSTKL +epistemic//*PSTMK +epistemological/Y/*PSTMLKKL +epistemology/M/*PSTMLK +epistle/MRS/*PSTL +Epistle/SM/*PSTL +epistolary/S/*PSTLR +epistolatory//*PSTLTR +epitaph/GMD/*PTF +epitaphs//*PTFS +epitaxial/Y/*PTKSL +epitaxy/M/*PTKS +epithelial//*P@LL +epithelium/MS/*P@LM +epithet/MS/*P@T +epitome/MS/*PTM +epitomize/SRDZG/*PTMS +epitomized/U/*PTMST +epitomizer/M/*PTMS +epoch/M/*PX +epochal/Y/*PXL +epochs//*PXS +eponymous//*PNMS +epoxy/GSD/*PKS +epsilon/SM/*PSLN +Epsom/M/*PSM +Epstein/M/*PSTN +equability/MS/*KBLT +equable/P/*KBL +equableness/M/*KBLNS +equably//*KBL +equal/USDY/*KL +equaling//*KLN +equality/ISM/*KLT +equalization/MS/*KLSXN +equalize/DRSGJZ/*KLS +equalized/U/*KLST +equalizer/M/*KLS +equalizes/U/*KLSS +equanimity/MS/*KNMT +equate/NGXBSD/*KT +equation/M/*KXN +equator/SM/*KT +equatorial/S/*KTRL +equerry/MS/*KR +equestrian/S/*KSTRN +equestrianism/SM/*KSTRNSM +equestrienne/SM/*KSTRN +equiangular//*KNKL +equidistant/Y/*KTSTNT +equilateral/S/*KLTRL +equilibrate/GNSD/*KLBRT +equilibration/M/*KLBRXN +equilibrium/MSE/*KLBRM +equine/S/*KN +equinoctial/S/*KNKXL +equinox/MS/*KNKS +equip/AS/*KP +equipage/SM/*KPK +equipartition/M/*KPTXN +equipment/SM/*KPMNT +equipoise/GMSD/*KPS +equipotent//*KPTNT +equipped/AU/*KPT +equipping/A/*KPN +equiproportional//*KPRPXNL +equiproportionality//*KPRPXNLT +equiproportionate//*KPRPXNT +equitable/I/*KTBL +equitableness/M/*KTBLNS +equitably/I/*KTBL +equitation/SM/*KTXN +equity/IMS/*KT +equiv//*KF +equivalence/DSMG/*KFLNS +equivalent/SY/*KFLNT +equivocal/UY/*KFKL +equivocalness/MS/*KFKLNS +equivocate/NGSDX/*KFKT +equivocation/M/*KFKXN +equivocator/SM/*KFKT +Equuleus/M/*KLS +ER//* +Er/M/* +ERA//*R +era/MS/*R +eradicable/I/*RTKBL +eradicate/SDXVGN/*RTKT +eradication/M/*RTKXN +eradicator/SM/*RTKT +Eran/M/*RN +eras/SRDBGZ/*RS +erase/N/*RS +eraser/M/*RS +erasion/M/*RXN +Erasmus/M/*RSMS +Erastus/M/*RSTS +erasure/MS/*RSR +Erato/M/*RT +Eratosthenes/M/*RTS@NS +erbium/SM/*BM +Erda/M/*T +ere//*R +Erebus/M/*RBS +erect/GPSRDY/*RKT +erectile//*RKTL +erection/SM/*RKXN +erectness/MS/*RKTNS +erector/SM/*RKT +Erek/M/*RK +erelong//*RLNK +eremite/MS/*RMT +Erena/M/*RN +erg/SM/*K +ergo//*K +ergodic//*KTK +ergodicity/M/*KTST +ergonomic/U/*KNMK +ergonomically//*KNMKL +ergonomics/M/*KNMKS +ergophobia//*KFB +ergosterol/SM/*KSTRL +ergot/SM/*KT +Erhard/M/*HT +Erhart/M/*HT +Eric/M/*RK +Erica/M/*RK +Erich/M/*RX +Ericha/M/*RX +Erick/M/*RK +Ericka/M/*RK +Erickson/M/*RKSN +Ericson's//*RKSNS +Ericsson's//*RKSNS +Eridanus/M/*RTNS +Erie/SM/*R +Erik/M/*RK +Erika/M/*RK +Erikson/M/*RKSN +Erin/M/*RN +Erina/M/*RN +Erinn/M/*RN +Erinna/M/*RN +eris//*RS +Eris//*RS +Eritrea/M/*RTR +Erl/M/*L +Erlang/M/*LNK +Erlenmeyer/M/*LNMY +Erma/M/*M +Ermanno/M/*MN +Ermengarde/M/*MNKT +Ermentrude/M/*MNTRT +Ermin/M/*MN +Ermina/M/*MN +ermine/MSD/*MN +Erminia/M/*MN +Erminie/M/*MN +Erna/M/*N +Ernaline/M/*NLN +Ernest/M/*NST +Ernesta/M/*NST +Ernestine/M/*NSTN +Ernesto/M/*NST +Ernestus/M/*NSTS +Ernie/M/*N +Ernst/M/*NST +Erny/M/*N +erode/SDG/*RT +erodible//*RTBL +erogenous//*RKNS +Eros/SM/*RS +erosible//*RSBL +erosion/SM/*RXN +erosional//*RXNL +erosive/P/*RSF +erosiveness/M/*RSFNS +erotic/S/*RTK +erotica/M/*RTK +erotically//*RTKL +eroticism/MS/*RTSSM +err/DGS/*R +errancy/MS/*RNS +errand/MS/*RNT +errant/YS/*RNT +errantry/M/*RNTR +errata/SM/*RT +erratic/S/*RTK +erratically//*RTKL +erratum/MS/*RTM +Errick/M/*RK +erring/UY/*RN +Errol/M/*RL +Erroll/M/*RL +erroneous/YP/*RNS +erroneousness/M/*RNSNS +error/SM/*R +ersatz/S/*STS +Erse/M/*S +Erskine/M/*SKN +erst//*ST +erstwhile//*STHL +Ertha/M/*@ +eruct/DGS/*RKT +eructation/MS/*RKTXN +erudite/NYX/*RTT +erudition/M/*RTXN +erupt/DSVG/*RPT +eruption/SM/*RPXN +eruptive/SY/*RPTF +Erv/M/*F +Ervin/M/*FN +ErvIn/M/*FN +Erwin/M/*WN +Eryn/M/*RN +erysipelas/SM/*RSPLS +erythrocyte/SM/*R@RST +es//*S +e's//*S +Es//*S +E's//*S +Esau/M/*S +escadrille/M/*SKTRL +escalate/CDSXGN/*SKLT +escalation/MC/*SKLXN +escalator/SM/*SKLT +escallop/SGDM/*SKLP +escapable/I/*SKPBL +escapade/SM/*SKPT +escape/LGSRDB/*SKP +escapee/MS/*SKP +escapement/MS/*SKPMNT +escaper/M/*SKP +escapism/SM/*SKPSM +escapist/S/*SKPST +escapology//*SKPLK +escarole/MS/*SKRL +escarpment/MS/*SKPMNT +eschatology/M/*SXTLK +Escher/M/*SK +Escherichia/M/*SKRX +eschew/SGD/*SK +Escondido/M/*SKNTT +escort/SGMD/*SKT +escritoire/SM/*SKRTR +escrow/DMGS/*SKR +escudo/MS/*SKT +escutcheon/SM/*SKXN +Esdras/M/*STRS +ESE//*S +Eskimo/SM/*SKM +ESL//*SL +Esma/M/*SM +Esmaria/M/*SMR +Esmark/M/*SMK +Esme/M/*SM +Esmeralda/M/*SMRLT +esophageal//*SFKL +esophagi//*SFK +esophagus/M/*SFKS +esoteric//*STRK +esoterica//*STRK +esoterically//*STRKL +esp//*SP +ESP//*SP +Esp/M/*SP +espadrille/MS/*SPTRL +Espagnol/M/*SPKNL +espalier/SMDG/*SPL +especial/Y/*SPXL +Esperanto/M/*SPRNT +Esperanza/M/*SPRNS +Espinoza/M/*SPNS +espionage/SM/*SPNK +esplanade/SM/*SPLNT +Esposito/M/*SPST +espousal/MS/*SPSL +espouse/SRDG/*SPS +espouser/M/*SPS +espresso/SM/*SPRS +esprit/SM/*SPRT +espy/GSD/*SP +Esq/M/*SK +esquire/GMSD/*SKR +Esquire/S/*SKR +Esra/M/*SR +Essa/M/*S +essay/SZMGRD/*S +essayer/M/*SY +essayist/SM/*SYST +Essen/M/*SN +essence/MS/*SNS +Essene/SM/*SN +essential/USI/*SNXL +essentialist/M/*SNXLST +essentially//*SNXL +essentialness/M/*SNXLNS +Essequibo/M/*SKB +Essex/M/*SKS +Essie/M/*S +Essy/M/*S +EST//*ST +est/RZ/*ST +Esta/M/*ST +establish/LAEGSD/*STBLX +established/U/*STBLXT +establisher/M/*STBLX +establishment/EMAS/*STBLXMNT +Establishment/MS/*STBLXMNT +estate/GSDM/*STT +Esteban/M/*STBN +esteem/EGDS/*STM +Estel/M/*STL +Estela/M/*STL +Estele/M/*STL +Estell/M/*STL +Estella/M/*STL +Estelle/M/*STL +ester/M/*ST +Ester/M/*ST +Esterházy/M/*STHS +Estes//*STS +Estevan/M/*STFN +Esther/M/*S@ +esthete's//*S@TS +esthetically//*S@TKL +esthetic's//*S@TKS +esthetics's//*S@TKSS +estimable/I/*STMBL +estimableness/M/*STMBLNS +estimate/XDSNGV/*STMT +estimating/A/*STMTN +estimation/M/*STMXN +estimator/SM/*STMT +Estonia/M/*STN +Estonian/S/*STNN +estoppal//*STPL +Estrada/M/*STRT +estrange/DRSLG/*STRNK +estrangement/SM/*STRNKMNT +estranger/M/*STRNK +Estrella/M/*STRL +Estrellita/M/*STRLT +estrogen/SM/*STRKN +estrous//*STRS +estrus/SM/*STRS +estuarine//*STRN +estuary/SM/*STR +et//*T +ET//*T +ETA//*T +eta/SM/*T +Etan/M/*TN +etc//*TK +etcetera/SM/*TSTR +etch/GZJSRD/*X +etcher/M/*X +etching/M/*XN +ETD//*TT +eternal/PSY/*TNL +eternalness/SM/*TNLNS +eternity/SM/*TNT +Ethan/M/*@N +ethane/SM/*@N +ethanol/MS/*@NL +Ethe/M/*@ +Ethel/M/*@L +Ethelbert/M/*@LBT +Ethelda/M/*@LT +Ethelin/M/*@LN +Ethelind/M/*@LNT +Etheline/M/*@LN +Ethelred/M/*@LRT +Ethelyn/M/*@LN +ether/SM/*@ +ethereal/PY/*@RL +etherealness/M/*@RLNS +etherized//*@RST +Ethernet/MS/*@NT +ethic/MS/*@K +ethical/PYS/*@KL +ethically/U/*@KL +ethicalness/M/*@KLNS +ethicist/S/*@SST +Ethiopia/M/*@P +Ethiopian/S/*@PN +ethnic/S/*@NK +ethnically//*@NKL +ethnicity/MS/*@NST +ethnocentric//*@NSNTRK +ethnocentrism/MS/*@NSNTRSM +ethnographers//*@NKRFS +ethnographic//*@NKRFK +ethnography/M/*@NKRF +ethnological//*@NLKKL +ethnologist/SM/*@NLKST +ethnology/SM/*@NLK +ethnomethodology//*@NM@TLK +ethological//*@LKKL +ethologist/MS/*@LKST +ethology/SM/*@LK +ethos/SM/*@S +Ethyl/M/*@L +ethyl/SM/*@L +ethylene/MS/*@LN +Etienne/M/*TN +etiologic//*XLKK +etiological//*XLKKL +etiology/SM/*XLK +etiquette/SM/*TKT +Etna/M/*TN +Etruria/M/*TRR +Etruscan/MS/*TRSKN +Etta/M/*T +Etti/M/*T +Ettie/M/*T +Ettore/M/*TR +Etty/M/*T +étude/MS/TT +etymological/Y/*TMLKKL +etymologist/SM/*TMLKST +etymology/MS/*TMLK +EU//* +Eu/M/* +eucalypti//*KLPT +eucalyptus/SM/*KLPTS +Eucharist/SM/*XRST +Eucharistic//*XRSTK +euchre/MGSD/*XR +Euclid/M/*KLT +euclidean//*KLTN +Eudora/M/*TR +Euell/M/*L +Eugen/M/*KN +Eugene/M/*KN +Eugenia/M/*KN +eugenic/S/*KNK +eugenically//*KNKL +eugenicist/SM/*KNSST +eugenics/M/*KNKS +Eugenie/M/*KN +Eugenio/M/*KN +Eugenius/M/*KNS +Eugine/M/*KN +Eula/M/*L +Eulalie/M/*LL +Euler/M/*L +Eulerian/M/*LRN +eulogist/MS/*LKST +eulogistic//*LKSTK +eulogize/GRSDZ/*LKS +eulogized/U/*LKST +eulogizer/M/*LKS +eulogy/MS/*LK +Eumenides//*MNTS +Eunice/M/*NS +eunuch/M/*NX +eunuchs//*NXS +Euphemia/M/*FM +euphemism/MS/*FMSM +euphemist/M/*FMST +euphemistic//*FMSTK +euphemistically//*FMSTKL +euphonious/Y/*FNS +euphonium/M/*FNM +euphony/SM/*FN +euphoria/SM/*FR +euphoric//*FRK +euphorically//*FRKL +Euphrates/M/*FRTS +Eur/M/* +Eurasia/M/*RX +Eurasian/S/*RXN +eureka/S/*RK +Euripides/M/*RPTS +Eurodollar/SM/*RTL +Europa/M/*RP +Europe/M/*RP +European/MS/*RPN +Europeanization/SM/*RPNSXN +Europeanized//*RPNST +europium/MS/*RPM +Eurydice/M/*RTS +Eustace/M/*STS +Eustachian/M/*STXN +Eustacia/M/*STX +eutectic//*TKTK +Euterpe/M/*TP +euthanasia/SM/*@NX +euthenics/M/*@NKS +Ev/MN/*F +Eva/M/*F +evacuate/DSXNGV/*FKT +evacuation/M/*FKXN +evacuee/MS/*FK +evade/SRDBGZ/*FT +evader/M/*FT +Evaleen/M/*FLN +evaluable//*FLBL +evaluate/ADSGNX/*FLT +evaluated/U/*FLTT +evaluation/MA/*FLXN +evaluational//*FLXNL +evaluative//*FLTF +evaluator/MS/*FLT +Evan/MS/*FN +evanescence/MS/*FNSNS +evanescent//*FNSNT +Evangelia/M/*FNKL +evangelic//*FNKLK +Evangelical/S/*FNKLKL +evangelical/YS/*FNKLKL +evangelicalism/SM/*FNKLKLSM +Evangelin/M/*FNKLN +Evangelina/M/*FNKLN +Evangeline/M/*FNKLN +evangelism/SM/*FNKLSM +evangelist/MS/*FNKLST +Evangelist/MS/*FNKLST +evangelistic//*FNKLSTK +evangelize/GDS/*FNKLS +Evania/M/*FN +Evanne/M/*FN +Evanston/M/*FNSTN +Evansville/M/*FNSFL +evaporate/VNGSDX/*FPRT +evaporation/M/*FPRXN +evaporative/Y/*FPRTF +evaporator/MS/*FPRT +evasion/SM/*FXN +evasive/PY/*FSF +evasiveness/SM/*FSFNS +Eve/M/*F +eve/RSM/*F +Eveleen/M/*FLN +Evelin/M/*FLN +Evelina/M/*FLN +Eveline/M/*FLN +Evelyn/M/*FLN +Even/M/*FN +even/PUYRT/*FN +evened//*FNT +evener/M/*FN +evenhanded/YP/*FNHNTT +evening/SM/*FNN +Evenki/M/*FNK +evenness/MSU/*FNS +evens//*FNS +evensong/MS/*FNSNK +event/SGM/*FNT +eventful/YU/*FNTFL +eventfulness/SM/*FNTFLNS +eventide/SM/*FNTT +eventual/Y/*FNTL +eventuality/MS/*FNTLT +eventuate/GSD/*FNTT +ever/T/*F +Everard/M/*FRT +Eveready/M/*FRT +Evered/M/*FRT +Everest/M/*FRST +Everett/M/*FRT +Everette/M/*FRT +everglade/MS/*FKLT +Everglades//*FKLTS +evergreen/S/*FKRN +Everhart/M/*FHT +everlasting/PYS/*FLSTN +everlastingness/M/*FLSTNNS +everliving//*FLFN +evermore//*FMR +EverReady/M/*FRT +every//*FR +everybody/M/*FRBT +everyday/P/*FRT +everydayness/M/*FRTNS +everyman//*FRMN +everyone/MS/*FRYN +everyplace//*FRPLS +everything//*FR@N +everywhere//*FRHR +eves/A/*FS +eve's/A/*FS +Evey/M/*F +evict/DGS/*FKT +eviction/SM/*FKXN +evidence/MGSD/*FTNS +evident/YS/*FTNT +evidential/Y/*FTNXL +Evie/M/*F +evil/YRPTS/*FL +evildoer/SM/*FLT +evildoing/MS/*FLTN +evilness/MS/*FLNS +Evin/M/*FN +evince/SDG/*FNS +eviscerate/GNXDS/*FSRT +evisceration/M/*FSRXN +Evita/M/*FT +evocable//*FKBL +evocate/NVX/*FKT +evocation/M/*FKXN +evocative/YP/*FKTF +evocativeness/M/*FKTFNS +evoke/SDG/*FK +evolute/NMXS/*FLT +evolution/M/*FLXN +evolutionarily//*FLXNRL +evolutionary//*FLXNR +evolutionist/MS/*FLXNST +evolve/SDG/*FLF +Evonne/M/*FN +Evvie/M/*FF +Evvy/M/*FF +Evy/M/*F +Evyn/M/*FN +Ewan/M/*WN +Eward/M/*WT +Ewart/M/*WT +ewe/MZRS/*W +Ewell/M/*WL +Ewen/M/*WN +ewer/M/*W +Ewing/M/*WN +ex/S/*KS +exacerbate/NGXDS/*KSSBT +exacerbation/M/*KSSBXN +exact/TGSPRDY/*KSKT +exacter/M/*KSKT +exacting/YP/*KSKTN +exactingness/M/*KSKTNNS +exaction/SM/*KSKXN +exactitude/ISM/*KSKTTT +exactly/I/*KSKTL +exactness/MSI/*KSKTNS +exaggerate/DSXNGV/*KSKRT +exaggerated/YP/*KSKRTT +exaggeration/M/*KSKRXN +exaggerative/Y/*KSKRTF +exaggerator/MS/*KSKRT +exalt/ZRDGS/*KSLT +exaltation/SM/*KSLTXN +exalted/Y/*KSLTT +exalter/M/*KSLT +exam/MNS/*KSM +examen/M/*KSMN +examination/AS/*KSMNXN +examination's//*KSMNXNS +examine/BGZDRS/*KSMN +examined/AU/*KSMNT +examinees//*KSMNS +examiner/M/*KSMN +examines/A/*KSMNS +examining/A/*KSMNN +example/DSGM/*KSMPL +exampled/U/*KSMPLT +exasperate/DSXGN/*KSSPRT +exasperated/Y/*KSSPRTT +exasperating/Y/*KSSPRTN +exasperation/M/*KSSPRXN +Excalibur/M/*KSKLB +excavate/NGDSX/*KSKFT +excavation/M/*KSKFXN +excavator/SM/*KSKFT +Excedrin/M/*KSSTRN +exceed/SGDR/*KSST +exceeder/M/*KSST +exceeding/Y/*KSSTN +excel/S/*KSSL +excelled//*KSSLT +excellence/SM/*KSSLNS +excellency/MS/*KSSLNS +Excellency/MS/*KSSLNS +excellent/Y/*KSSLNT +excelling//*KSSLN +excelsior/S/*KSSLX +except/DSGV/*KSSPT +exception/BMS/*KSSPXN +exceptionable/U/*KSSPXNBL +exceptional/YU/*KSSPXNL +exceptionalness/M/*KSSPXNLNS +excerpt/GMDRS/*KSSPT +excerpter/M/*KSSPT +excess/GVDSM/*KSSS +excessive/PY/*KSSSF +excessiveness/M/*KSSSFNS +exchange/GDRSZ/*KSXNK +exchangeable//*KSXNKBL +exchanger/M/*KSXNK +exchequer/SM/*KSXK +Exchequer/SM/*KSXK +excise/XMSDNGB/*KSSS +excision/M/*KSSXN +excitability/MS/*KSSTBLT +excitable/P/*KSSTBL +excitableness/M/*KSSTBLNS +excitably//*KSSTBL +excitation/SM/*KSSTXN +excitatory//*KSSTTR +excite/RSDLBZG/*KSST +excited/Y/*KSSTT +excitement/MS/*KSSTMNT +exciter/M/*KSST +exciting/U/*KSSTN +excitingly//*KSSTNL +exciton/M/*KSSTN +exclaim/SZDRG/*KSKLM +exclaimer/M/*KSKLM +exclamation/MS/*KSKLMXN +exclamatory//*KSKLMTR +exclude/DRSG/*KSKLT +excluder/M/*KSKLT +exclusion/SZMR/*KSKLXN +exclusionary//*KSKLXNR +exclusioner/M/*KSKLXN +exclusive/SPY/*KSKLSF +exclusiveness/SM/*KSKLSFNS +exclusivity/MS/*KSKLSFT +excommunicate/XVNGSD/*KSKMNKT +excommunication/M/*KSKMNKXN +excoriate/GNXSD/*KSKRT +excoriation/M/*KSKRXN +excrement/SM/*KSKRMNT +excremental//*KSKRMNTL +excrescence/MS/*KSKRSNS +excrescent//*KSKRSNT +excreta//*KSKRT +excrete/NGDRSX/*KSKRT +excreter/M/*KSKRT +excretion/M/*KSKRXN +excretory/S/*KSKRTR +excruciate/NGDS/*KSKRXT +excruciating/Y/*KSKRXTN +excruciation/M/*KSKRXXN +exculpate/XSDGN/*KSKLPT +exculpation/M/*KSKLPXN +exculpatory//*KSKLPTR +excursion/MS/*KSKXN +excursionist/SM/*KSKXNST +excursive/PY/*KSKSF +excursiveness/SM/*KSKSFNS +excursus/MS/*KSKSS +excusable/IP/*KSKSBL +excusableness/IM/*KSKSBLNS +excusably/I/*KSKSBL +excuse/BGRSD/*KSKS +excused/U/*KSKST +excuser/M/*KSKS +exec/MS/*KSK +execrable/P/*KSKRBL +execrableness/M/*KSKRBLNS +execrably//*KSKRBL +execrate/DSXNGV/*KSKRT +execration/M/*KSKRXN +executable/MS/*KSKTBL +execute/NGVZBXDRS/*KSKT +executer/M/*KSKT +execution/ZMR/*KSKXN +executional//*KSKXNL +executioner/M/*KSKXN +executive/SM/*KSKTF +executor/SM/*KSKT +executrices//*KSKTRSS +executrix/M/*KSKTRKS +exegeses//*KSKSS +exegesis/M/*KSKSS +exegete/M/*KSKT +exegetic/S/*KSKTK +exegetical//*KSKTKL +exemplar/MS/*KSMPL +exemplariness/M/*KSMPLRNS +exemplary/P/*KSMPLR +exemplification/M/*KSMPLFKXN +exemplifier/M/*KSMPLF +exemplify/ZXNSRDG/*KSMPLF +exempt/SDG/*KSMPT +exemption/MS/*KSMPXN +exercise/ZDRSGB/*KSSS +exerciser/M/*KSSS +exert/SGD/*KST +exertion/MS/*KSXN +Exeter/M/*KST +exeunt//*KSNT +exhalation/SM/*KSHLXN +exhale/GSD/*KSHL +exhaust/VGRDS/*KSHST +exhausted/Y/*KSHSTT +exhauster/M/*KSHST +exhaustible/I/*KSHSTBL +exhausting/Y/*KSHSTN +exhaustion/SM/*KSHSXN +exhaustive/YP/*KSHSTF +exhaustiveness/MS/*KSHSTFNS +exhibit/VGSD/*KSHBT +exhibition/ZMRS/*KSHBXN +exhibitioner/M/*KSHBXN +exhibitionism/MS/*KSHBXNSM +exhibitionist/MS/*KSHBXNST +exhibitor/SM/*KSHBT +exhilarate/XSDVNG/*KSHLRT +exhilarating/Y/*KSHLRTN +exhilaration/M/*KSHLRXN +exhort/DRSG/*KSHT +exhortation/SM/*KSHTXN +exhorter/M/*KSHT +exhumation/SM/*KSHMXN +exhume/GRSD/*KSHM +exhumer/M/*KSHM +exigence/S/*KSKNS +exigency/SM/*KSKNS +exigent/SY/*KSKNT +exiguity/SM/*KSKT +exiguous//*KSKS +exile/SDGM/*KSL +exist/SDG/*KSST +existence/MS/*KSSTNS +existent/I/*KSSTNT +existential/Y/*KSSTNXL +existentialism/MS/*KSSTNXLSM +existentialist/MS/*KSSTNXLST +existentialistic//*KSSTNXLSTK +existents//*KSSTNTS +exit/MDSG/*KST +exobiology/MS/*KSBLK +exocrine//*KSKRN +Exodus/M/*KSTS +exodus/SM/*KSTS +exogamous//*KSKMS +exogamy/M/*KSKM +exogenous/Y/*KSKNS +exonerate/SDVGNX/*KSNRT +exoneration/M/*KSNRXN +exorbitance/MS/*KSBTNS +exorbitant/Y/*KSBTNT +exorcise/SDG/*KSSS +exorcism/SM/*KSSSM +exorcist/SM/*KSSST +exorcizer/M/*KSSS +exoskeleton/MS/*KSSKLTN +exosphere/SM/*KSSFR +exothermic//*KS@MK +exothermically//*KS@MKL +exotic/PS/*KSTK +exotica//*KSTK +exotically//*KSTKL +exoticism/SM/*KSTSSM +exoticness/M/*KSTKNS +exp//*KSP +expand/DRSGZB/*KSPNT +expandability/M/*KSPNTBLT +expanded/U/*KSPNTT +expander/M/*KSPNT +expanse/DSXGNVM/*KSPNS +expansible//*KSPNSBL +expansion/M/*KSPNXN +expansionary//*KSPNXNR +expansionism/MS/*KSPNXNSM +expansionist/MS/*KSPNXNST +expansive/YP/*KSPNSF +expansiveness/S/*KSPNSFNS +expatiate/XSDNG/*KSPXT +expatiation/M/*KSPXXN +expatriate/SDNGX/*KSPTRT +expatriation/M/*KSPTRXN +expect/SBGD/*KSPKT +expectancy/MS/*KSPKTNS +expectant/YS/*KSPKTNT +expectation/MS/*KSPKTXN +expectational//*KSPKTXNL +expected/UPY/*KSPKTT +expecting/Y/*KSPKTN +expectorant/S/*KSPKTRNT +expectorate/NGXDS/*KSPKTRT +expectoration/M/*KSPKTRXN +expedience/IS/*KSPTNS +expediency/IMS/*KSPTNS +expedient/YI/*KSPTNT +expedients//*KSPTNTS +expedite/ZDRSNGX/*KSPTT +expediter/M/*KSPTT +expedition/M/*KSPTXN +expeditionary//*KSPTXNR +expeditious/YP/*KSPTXS +expeditiousness/MS/*KSPTXSNS +expeditor's//*KSPTTS +expel/S/*KSPL +expellable//*KSPLBL +expelled//*KSPLT +expelling//*KSPLN +expend/SDRGB/*KSPNT +expendable/S/*KSPNTBL +expended/U/*KSPNTT +expender/M/*KSPNT +expenditure/SM/*KSPNTTR +expense/DSGVM/*KSPNS +expensive/IYP/*KSPNSF +expensiveness/SMI/*KSPNSFNS +experience/ISDM/*KSPRNS +experienced/U/*KSPRNST +experiencing//*KSPRNSN +experiential/Y/*KSPRNXL +experiment/GSMDRZ/*KSPRMNT +experimental/Y/*KSPRMNTL +experimentalism/M/*KSPRMNTLSM +experimentalist/SM/*KSPRMNTLST +experimentation/SM/*KSPRMNTXN +experimenter/M/*KSPRMNT +expert/PISY/*KSPT +experted//*KSPTT +experting//*KSPTN +expertise/SM/*KSPTS +expertize/GD/*KSPTS +expertness/IM/*KSPTNS +expertnesses//*KSPTNSS +expert's//*KSPTS +expiable/I/*KSPBL +expiate/XGNDS/*KSPT +expiation/M/*KSPXN +expiatory//*KSPTR +expiration/MS/*KSPRXN +expire/SDG/*KSPR +expired/U/*KSPRT +expiry/MS/*KSPR +explain/ADSG/*KSPLN +explainable/UI/*KSPLNBL +explained/U/*KSPLNT +explainer/SM/*KSPLN +explanation/MS/*KSPLNXN +explanatory//*KSPLNTR +expletive/SM/*KSPLTF +explicable/I/*KSPLKBL +explicate/VGNSDX/*KSPLKT +explication/M/*KSPLKXN +explicative/Y/*KSPLKTF +explicit/PSY/*KSPLST +explicitness/SM/*KSPLSTNS +explode/DSRGZ/*KSPLT +exploded/U/*KSPLTT +exploder/M/*KSPLT +exploit/ZGVSMDRB/*KSPLT +exploitation/MS/*KSPLTXN +exploitative//*KSPLTTF +exploited/U/*KSPLTT +exploiter/M/*KSPLT +exploration/MS/*KSPLRXN +exploratory//*KSPLRTR +explore/DSRBGZ/*KSPLR +explored/U/*KSPLRT +explorer/M/*KSPLR +explosion/MS/*KSPLXN +explosive/YPS/*KSPLSF +explosiveness/SM/*KSPLSFNS +expo/MS/*KSP +exponent/MS/*KSPNNT +exponential/SY/*KSPNNXL +exponentiate/XSDNG/*KSPNNXT +exponentiation/M/*KSPNNXXN +export/AGSD/*KSPT +exportability//*KSPTBLT +exportable//*KSPTBL +exportation/SM/*KSPTXN +exporter/MS/*KSPT +export's//*KSPTS +expos/RSDZG/*KSPS +expose//*KSPS +exposed/U/*KSPST +exposer/M/*KSPS +exposit/D/*KSPST +exposition/SM/*KSPSXN +expositor/MS/*KSPST +expository//*KSPSTR +expostulate/DSXNG/*KSPSTLT +expostulation/M/*KSPSTLXN +exposure/SM/*KSPSR +expound/ZGSDR/*KSPNT +expounder/M/*KSPNT +express/GVDRSY/*KSPRS +expressed/U/*KSPRST +expresser/M/*KSPRS +expressibility/I/*KSPRSBLT +expressible/I/*KSPRSBL +expressibly/I/*KSPRSBL +expression/MS/*KSPRXN +expressionism/SM/*KSPRXNSM +expressionist/S/*KSPRXNST +expressionistic//*KSPRXNSTK +expressionless/YP/*KSPRXNLS +expressive/IYP/*KSPRSF +expressiveness/MS/*KSPRSFNS +expressiveness's/I/*KSPRSFNSS +expressway/SM/*KSPRSW +expropriate/XDSGN/*KSPRPRT +expropriation/M/*KSPRPRXN +expropriator/SM/*KSPRPRT +expulsion/MS/*KSPLXN +expunge/GDSR/*KSPNK +expunger/M/*KSPNK +expurgate/SDGNX/*KSPKT +expurgated/U/*KSPKTT +expurgation/M/*KSPKXN +exquisite/YPS/*KSKST +exquisiteness/SM/*KSKSTNS +ext//*KST +extant//*KSTNT +extemporaneous/YP/*KSTMPRNS +extemporaneousness/MS/*KSTMPRNSNS +extempore/S/*KSTMPR +extemporization/SM/*KSTMPRSXN +extemporize/ZGSRD/*KSTMPRS +extemporizer/M/*KSTMPRS +extend/SGZDR/*KSTNT +extendability/M/*KSTNTBLT +extended/U/*KSTNTT +extendedly//*KSTNTTL +extendedness/M/*KSTNTTNS +extender/M/*KSTNT +extendibility/M/*KSTNTBLT +extendibles//*KSTNTBLS +extensibility/M/*KSTNSBLT +extensible/I/*KSTNSBL +extension/SM/*KSTNXN +extensional/Y/*KSTNXNL +extensive/PY/*KSTNSF +extensiveness/SM/*KSTNSFNS +extensor/MS/*KSTNS +extent/SM/*KSTNT +extenuate/XSDGN/*KSTNT +extenuation/M/*KSTNXN +exterior/MYS/*KSTR +exterminate/XNGDS/*KSTMNT +extermination/M/*KSTMNXN +exterminator/SM/*KSTMNT +extern/M/*KSTN +external/YS/*KSTNL +externalities//*KSTNLTS +externalization/SM/*KSTNLSXN +externalize/GDS/*KSTNLS +extinct/DGVS/*KSTNKT +extinction/MS/*KSTNKXN +extinguish/BZGDRS/*KSTNX +extinguishable/I/*KSTNXBL +extinguisher/M/*KSTNX +extirpate/XSDVNG/*KSTPT +extirpation/M/*KSTPXN +extol/S/*KSTL +extolled//*KSTLT +extoller/M/*KSTL +extolling//*KSTLN +extort/DRSGV/*KSTT +extorter/M/*KSTT +extortion/ZSRM/*KSTXN +extortionate/Y/*KSTXNT +extortioner/M/*KSTXN +extortionist/SM/*KSTXNST +extra/S/*KSTR +extracellular/Y/*KSTRSLL +extract/GVSBD/*KSTRKT +extraction/SM/*KSTRKXN +extractive/Y/*KSTRKTF +extractor/SM/*KSTRKT +extracurricular/S/*KSTRKRKL +extradite/XNGSDB/*KSTRTT +extradition/M/*KSTRTXN +extragalactic//*KSTRKLKTK +extralegal/Y/*KSTRLKL +extramarital//*KSTRMRTL +extramural//*KSTRMRL +extraneous/YP/*KSTRNS +extraneousness/M/*KSTRNSNS +extraordinarily//*KSTRTNRL +extraordinariness/M/*KSTRTNRNS +extraordinary/PS/*KSTRTNR +extrapolate/XVGNSD/*KSTRPLT +extrapolation/M/*KSTRPLXN +extrasensory//*KSTRSNSR +extraterrestrial/S/*KSTRTRSTRL +extraterritorial//*KSTRTRTRL +extraterritoriality/MS/*KSTRTRTRLT +extravagance/MS/*KSTRFKNS +extravagant/Y/*KSTRFKNT +extravaganza/SM/*KSTRFKNS +extravehicular//*KSTRFHKL +extravert's//*KSTRFTS +extrema//*KSTRM +extremal//*KSTRML +extreme/DSRYTP/*KSTRM +extremeness/MS/*KSTRMNS +extremism/SM/*KSTRMSM +extremist/MS/*KSTRMST +extremity/SM/*KSTRMT +extricable/I/*KSTRKBL +extricate/XSDNG/*KSTRKT +extrication/M/*KSTRKXN +extrinsic//*KSTRNSK +extrinsically//*KSTRNSKL +extroversion/SM/*KSTRFXN +extrovert/GMDS/*KSTRFT +extrude/GDSR/*KSTRT +extruder/M/*KSTRT +extrusion/MS/*KSTRXN +extrusive//*KSTRSF +exuberance/MS/*KSBRNS +exuberant/Y/*KSBRNT +exudate/XNM/*KSTT +exudation/M/*KSTXN +exude/GSD/*KST +exult/DGS/*KSLT +exultant/Y/*KSLTNT +exultation/SM/*KSLTXN +exulting/Y/*KSLTN +exurb/MS/*KSB +exurban//*KSBN +exurbanite/SM/*KSBNT +exurbia/MS/*KSB +Exxon/M/*KSKSN +Eyck/M/*K +Eyde/M/*T +Eydie/M/*T +eye/GDRSMZ/*Y +eyeball/GSMD/*YBL +eyebrow/MS/*YBR +eyed/P/*YT +eyedropper/MS/*YTRP +eyeful/MS/*YFL +eyeglass/MS/*YKLS +eyelash/MS/*YLX +eyeless//*YLS +eyelet/GSMD/*YLT +eyelid/SM/*YLT +eyeliner/MS/*YLN +eyeopener/MS/*YPN +eyeopening//*YPNN +eyepiece/SM/*YPS +eyer/M/*Y +eyeshadow//*YXT +eyesight/MS/*YST +eyesore/SM/*YSR +eyestrain/MS/*YSTRN +eyeteeth//*YT@ +eyetooth/M/*YT@ +eyewash/MS/*YWX +eyewitness/SM/*YWTNS +Eyre/M/*R +eyrie's//*RS +Eysenck/M/*SNK +Ezechiel/M/*SXL +Ezekiel/M/*SKL +Ezequiel/M/*SKL +Eziechiele/M/*SXL +Ezmeralda/M/*SMRLT +Ezra/M/*SR +Ezri/M/*SR +F//F +f/IRAC/F +fa/M/F +FAA//F +Fabe/MR/FB +Faber/M/FB +Fabergé/M/FBK +Fabian/S/FBN +Fabiano/M/FBN +Fabien/M/FBN +Fabio/M/FB +fable/GMSRD/FBL +fabler/M/FBL +fabric/MS/FBRK +fabricate/SDXNG/FBRKT +fabrication/M/FBRKXN +fabricator/MS/FBRKT +fabulists//FBLSTS +fabulous/YP/FBLS +fabulousness/M/FBLSNS +facade/GMSD/FKT +face/AGCSD/FS +facecloth//FSKL@ +facecloths//FSKL@S +faceless/P/FSLS +faceplate/M/FSPLT +facer/CM/FS +face's//FSS +facet/SGMD/FST +facetious/YP/FSXS +facetiousness/MS/FSXSNS +facial/YS/FXL +facile/YP/FSL +facileness/M/FSLNS +facilitate/VNGXSD/FSLTT +facilitation/M/FSLTXN +facilitator/SM/FSLTT +facilitatory//FSLTTR +facility/MS/FSLT +facing/MS/FSN +facsimile/MSD/FKSML +facsimileing//FKSMLN +fact/MS/FKT +faction/SM/FKXN +factional//FKXNL +factionalism/SM/FKXNLSM +factious/PY/FKXS +factiousness/M/FKXSNS +factitious//FKTXS +facto//FKT +factoid/S/FKTT +factor/SDMJG/FKT +factorial/MS/FKTRL +factoring/A/FKTRN +factoring's//FKTRNS +factorisable//FKTRSBL +factorization/SM/FKTRSXN +factorize/GSD/FKTRS +factory/MS/FKTR +factotum/MS/FKTTM +factual/PY/FKTL +factuality/M/FKTLT +factualness/M/FKTLNS +faculty/MS/FKLT +fad/ZGSMDR/FT +faddish//FTX +faddist/SM/FTST +fade/S/FT +faded/U/FTT +fadedly//FTTL +fadeout//FTT +fader/M/FT +fading/U/FTN +fading's//FTNS +Fae/M/F +faerie/MS/FR +Faeroe/M/FR +faery's//FRS +Fafnir/M/FFN +fag/MS/FK +fagged//FKT +fagging//FKN +faggoting's//FKTNS +Fagin/M/FKN +fagot/MDSJG/FKT +fagoting/M/FKTN +Fahd/M/FT +Fahrenheit/S/FRNHT +faïence/S/FNS +fail/JSGD/FL +failing/UY/FLN +failing's//FLNS +faille/MS/FL +failsafe//FLSF +failure/SM/FLR +fain/GTSRD/FN +Faina/M/FN +faint/YRDSGPT/FNT +fainter/M/FNT +fainthearted//FN@TT +faintness/MS/FNTNS +Fair/M/F +fair/TURYP/F +Fairbanks//FBNKS +Fairchild/M/FXLT +faired//FRT +Fairfax/M/FFKS +Fairfield/M/FFLT +fairgoer/S/FK +fairground/MS/FKRNT +fairing/MS/FRN +fairish//FRX +Fairleigh/M/FL +fairless//FLS +Fairlie/M/FL +Fairmont/M/FMNT +fairness/US/FNS +fairness's//FNSS +Fairport/M/FPT +fairs//FS +Fairview/M/FF +fairway/MS/FW +fairy/MS/FR +fairyland/MS/FRLNT +fairytale//FRTL +Faisal/M/FSL +Faisalabad//FSLBT +Faith/M/F@ +faith/U/F@ +faithed//F@T +faithful/UYP/F@FL +faithfulness/MSU/F@FLNS +faithfuls//F@FLS +faithing//F@N +faithless/YP/F@LS +faithlessness/SM/F@LSNS +faiths//F@S +faith's//F@S +fajitas//FKTS +fake/ZGDRS/FK +faker/M/FK +fakir/SM/FK +falafel//FLFL +falcon/ZSRM/FLKN +falconer/M/FLKN +falconry/MS/FLKNR +Falito/M/FLT +Falk/M/FLK +Falkland/MS/FLKLNT +Falkner/M/FLKN +fall/SGZMRN/FL +fallacious/PY/FLSS +fallaciousness/M/FLSSNS +fallacy/MS/FLS +faller/M/FL +fallibility/MSI/FLBLT +fallible/I/FLBL +fallibleness/MS/FLBLNS +fallibly/I/FLBL +falloff/S/FLF +Fallon/M/FLN +fallopian//FLPN +Fallopian/M/FLPN +fallout/MS/FLT +fallow/PSGD/FL +fallowness/M/FLNS +false/PTYR/FLS +falsehood/SM/FLSHT +falseness/SM/FLSNS +falsetto/SM/FLST +falsie/MS/FLS +falsifiability/M/FLSFBLT +falsifiable/U/FLSFBL +falsification/M/FLSFKXN +falsifier/M/FLSF +falsify/ZRSDNXG/FLSF +falsity/MS/FLST +Falstaff/M/FLSTF +falter/RDSGJ/FLT +falterer/M/FLTR +faltering/UY/FLTRN +Falwell/M/FLWL +fame/DSMG/FM +famed/C/FMT +fames/C/FMS +familial//FMLL +familiar/YPS/FML +familiarity/MUS/FMLRT +familiarization/MS/FMLRSXN +familiarize/ZGRSD/FMLRS +familiarized/U/FMLRST +familiarizer/M/FMLRS +familiarizing/Y/FMLRSN +familiarly/U/FMLL +familiarness/M/FMLNS +family/MS/FML +famine/SM/FMN +faming/C/FMN +famish/GSD/FMX +famous/PY/FMS +famously/I/FMSL +famousness/M/FMSNS +Fan/M/FN +fan/SM/FN +fanatic/SM/FNTK +fanatical/YP/FNTKL +fanaticalness/M/FNTKLNS +fanaticism/MS/FNTSSM +Fanchette/M/FNXT +Fanchon/M/FNXN +Fancie/M/FNS +fancied//FNST +fancier/SM/FNS +fanciest//FNSST +fanciful/YP/FNSFL +fancifulness/MS/FNSFLNS +fancily//FNSL +fanciness/SM/FNSNS +fancy/IS/FNS +Fancy/M/FNS +fancying//FNSYN +fancywork/SM/FNSWK +fandango/SM/FNTNK +Fanechka/M/FNXK +fanfare/SM/FNFR +fanfold/M/FNFLT +fang/DMS/FNK +fangled//FNKLT +Fania/M/FN +fanlight/SM/FNLT +fanned//FNT +Fanni/M/FN +Fannie/M/FN +fanning//FNN +fanny/SM/FN +Fanny/SM/FN +fanout//FNT +fantail/SM/FNTL +fantasia/SM/FNTX +fantasist/M/FNTSST +fantasize/SRDG/FNTSS +fantastic/S/FNTSTK +fantastical/Y/FNTSTKL +fantasy/GMSD/FNTS +Fanya/M/FNY +fanzine/S/FNSN +FAQ/SM/FK +far/GDR/F +Far/MY/F +Fara/M/FR +farad/SM/FRT +Faraday/M/FRT +Farah/M/FR +Farand/M/FRNT +faraway//FRW +Farber/M/FB +farce/SDGM/FS +farcical/Y/FSKL +fare/MS/FR +farer/M/FR +farewell/DGMS/FRWL +farfetchedness/M/FFXTNS +Fargo/M/FK +Farica/M/FRK +farina/MS/FRN +farinaceous//FRNSS +Farkas/M/FKS +Farlay/M/FL +Farlee/M/FL +Farleigh/M/FL +Farley/M/FL +Farlie/M/FL +Farly/M/FL +farm/MRDGZSJ/FM +farmer/M/FM +Farmer/M/FM +farmhand/S/FMHNT +farmhouse/SM/FMHS +farming/M/FMN +Farmington/M/FMNTN +farmland/SM/FMLNT +farmstead/SM/FMSTT +farmworker/S/FMWK +farmyard/MS/FMYT +faro/MS/FR +Farr/M/FR +Farra/M/FR +farrago/M/FRK +farragoes//FRKS +Farragut/M/FRKT +Farrah/M/FR +Farrakhan/M/FRKHN +Farrand/M/FRNT +Farrel/M/FRL +Farrell/M/FRL +farrier/SM/FR +Farris/M/FRS +farrow/DMGS/FR +farseeing//FSN +farsighted/YP/FSTT +farsightedness/SM/FSTTNS +fart/MDGS/FT +farther//F@ +farthermost//F@MST +farthest//F@ST +farthing/SM/F@N +fas//FS +fascia/SM/FS +fascicle/DSM/FSKL +fasciculate/DNX/FSKLT +fasciculation/M/FSKLXN +fascinate/SDNGX/FSNT +fascinating/Y/FSNTN +fascination/M/FSNXN +fascism/MS/FSSM +Fascism's//FSSMS +fascist/SM/FSST +fascistic//FSSTK +Fascist's//FSSTS +fashion/ADSG/FXN +fashionable/PS/FXNBL +fashionableness/M/FXNBLNS +fashionably/U/FXNBL +fashioner/SM/FXN +fashion's//FXNS +Fassbinder/M/FSBNT +fast/GTXSPRND/FST +fastback/MS/FSTBK +fastball/S/FSTBL +fasten/AGUDS/FSTN +fastener/MS/FSTN +fastening/SM/FSTNN +fastidious/PY/FSTTS +fastidiousness/MS/FSTTSNS +fastness/MS/FSTNS +fat/PSGMDY/FT +fatal/SY/FTL +fatalism/MS/FTLSM +fatalist/MS/FTLST +fatalistic//FTLSTK +fatalistically//FTLSTKL +fatality/MS/FTLT +fatback/SM/FTBK +fate/MS/FT +fateful/YP/FTFL +fatefulness/MS/FTFLNS +Fates//FTS +fathead/SMD/F@T +fatheaded/P/F@TT +father/DYMGS/F@ +Father/SM/F@ +fathered/U/F@RT +fatherhood/MS/F@HT +fatherland/SM/F@LNT +fatherless//F@LS +fatherliness/M/F@LNS +fatherly/P/F@L +fathom/MDSBG/F@M +fathomable/U/F@MBL +fathomless//F@MLS +fatigue/MGSD/FTK +fatigued/U/FTKT +fatiguing/Y/FTKN +Fatima/M/FTM +fatness/SM/FTNS +fatso/M/FTS +fatted//FTT +fatten/JZGSRD/FTN +fattener/M/FTN +fatter//FT +fattest/M/FTST +fattiness/SM/FTNS +fatting//FTN +fatty/RSPT/FT +fatuity/MS/FTT +fatuous/YP/FTS +fatuousness/SM/FTSNS +fatwa/SM/FTW +faucet/SM/FST +Faulkner/M/FLKN +Faulknerian//FLKNRN +fault/CGSMD/FLT +faultfinder/MS/FLTFNT +faultfinding/MS/FLTFNTN +faultily//FLTL +faultiness/MS/FLTNS +faultless/PY/FLTLS +faultlessness/SM/FLTLSNS +faulty/RTP/FLT +Faun/M/FN +faun/MS/FN +fauna/MS/FN +Faunie/M/FN +Fauntleroy/M/FNTLR +Faust/M/FST +Faustian//FSXN +Faustina/M/FSTN +Faustine/M/FSTN +Faustino/M/FSTN +Faustus/M/FSTS +fauvism/S/FFSM +favor/ESMRDGZ/FF +favorable/UMPS/FFRBL +favorableness/MU/FFRBLNS +favorably/U/FFRBL +favored/YPSM/FFRT +favoredness/M/FFRTNS +favored's/U/FFRTS +favorer/EM/FFR +favoring/MYS/FFRN +favorings/U/FFRNS +favorite/SMU/FFRT +favoritism/MS/FFRTSM +favors/A/FFS +Fawkes/M/FKS +fawn/GZRDMS/FN +Fawn/M/FN +Fawne/M/FN +fawner/M/FN +Fawnia/M/FN +fawning/Y/FNN +fax/GMDS/FKS +Fax/M/FKS +Fay/M/F +fay/MDRGS/F +Faydra/M/FTR +Faye/M/FY +Fayette/M/FYT +Fayetteville/M/FYTFL +Fayina/M/FYN +Fayre/M/FR +Fayth/M/F@ +Faythe/M/F@ +faze/DSG/FS +FBI//FB +FCC//FK +FD//FT +FDA//FT +FDIC//FTK +FDR/M/FTR +Fe/M/F +fealty/MS/FLT +fear/RDMSG/F +fearful/YP/FFL +fearfuller//FFL +fearfullest//FFLST +fearfulness/MS/FFLNS +fearless/PY/FLS +fearlessness/MS/FLSNS +fearsome/PY/FSM +fearsomeness/M/FSMNS +feasibility/SM/FSBLT +feasible/UI/FSBL +feasibleness/M/FSBLNS +feasibly/U/FSBL +feast/GSMRD/FST +feaster/M/FST +feat/MYRGTS/FT +feater/C/FT +feather/ZMDRGS/F@ +featherbed//F@BT +featherbedding/SM/F@BTN +featherbrain/MD/F@BRN +feathered/U/F@RT +feathering/M/F@RN +featherless//F@LS +featherlight//F@LT +Featherman/M/F@MN +feathertop//F@TP +featherweight/SM/F@WT +feathery/TR/F@R +feats/C/FTS +feature/MGSD/FTR +featureless//FTRLS +Feb/M/FB +febrile//FBRL +February/MS/FBRR +fecal//FKL +feces//FSS +feckless/PY/FKLS +fecklessness/M/FKLSNS +fecund/I/FKNT +fecundability//FKNTBLT +fecundate/XSDGN/FKNTT +fecundation/M/FKNTXN +fecundity/SM/FKNTT +Fed/SM/FT +fed/U/FT +Federal/S/FTRL +federal/YS/FTRL +federalism/SM/FTRLSM +Federalist//FTRLST +federalist/MS/FTRLST +federalization/MS/FTRLSXN +federalize/GSD/FTRLS +federate/FSDXVNG/FTRT +federated/U/FTRTT +federation/FM/FTRXN +federative/Y/FTRTF +Federica/M/FTRK +Federico/M/FTRK +FedEx/M/FTKS +Fedora/M/FTR +fedora/SM/FTR +feds//FTS +Fee/M/F +fee/MDS/F +feeble/TPR/FBL +feebleness/SM/FBLNS +feebly//FBL +feed/GRZJS/FT +feedback/SM/FTBK +feedbag/MS/FTBK +feeder/M/FT +feeding/M/FTN +feedlot/SM/FTLT +feedstock//FTSTK +feedstuffs//FTSTFS +feeing//FN +feel/GZJRS/FL +feeler/M/FL +feeling/MYP/FLN +feelingly/U/FLNL +feelingness/M/FLNNS +feet/M/FT +feign/RDGS/FN +feigned/U/FN +feigner/M/FKN +feint/MDSG/FNT +feisty/RT/FST +Felder/M/FLT +Feldman/M/FLTMN +feldspar/MS/FLTSP +Felecia/M/FLX +Felic/M/FLK +Felicdad/M/FLKTT +Felice/M/FLS +Felicia/M/FLX +Felicio/M/FLS +felicitate/XGNSD/FLSTT +felicitation/M/FLSTXN +felicitous/IY/FLSTS +felicitousness/M/FLSTSNS +felicity/IMS/FLST +Felicity/M/FLST +Felicle/M/FLKL +Felike/M/FLK +Feliks/M/FLKS +feline/SY/FLN +Felipa/M/FLP +Felipe/M/FLP +Felisha/M/FLX +Felita/M/FLT +Felix/M/FLKS +Feliza/M/FLS +Felizio/M/FLS +fell/PSGZTRD/FL +fella/S/FL +fellatio/SM/FLX +felled/A/FLT +feller/M/FL +felling/A/FLN +Fellini/M/FLN +fellness/M/FLNS +fellow/SGDYM/FL +fellowman//FLMN +fellowmen//FLMN +fellowship/SM/FLXP +fellowshipped//FLXPT +fellowshipping//FLXPN +felon/MS/FLN +felonious/PY/FLNS +feloniousness/M/FLNSNS +felony/MS/FLN +felt/GSD/FLT +felting/M/FLTN +fem/S/FM +female/MPS/FML +femaleness/SM/FMLNS +feminine/PYS/FMNN +feminineness/M/FMNNNS +femininity/MS/FMNNT +feminism/MS/FMNSM +feminist/MS/FMNST +femme/MS/FM +femoral//FMRL +femur/MS/FM +fen/MS/FN +fence/SRDJGMZ/FNS +fenced/U/FNST +fencepost/M/FNSPST +fencer/M/FNS +fencing/M/FNSN +fend/RDSCZG/FNT +fender/CM/FNT +Fenelia/M/FNL +fenestration/CSM/FNSTRXN +Fenian/M/FNN +fenland/M/FNLNT +fennel/SM/FNL +Fenwick/M/FNWK +Feodor/M/FT +Feodora/M/FTR +fer/FLC/F +feral//FRL +Ferber/M/FB +Ferd/M/FT +Ferdie/M/FT +Ferdinand/M/FTNNT +Ferdinanda/M/FTNNT +Ferdinande/M/FTNNT +Ferdinando/M/FTNNT +Ferdy/M/FT +Fergus/M/FKS +Ferguson/M/FKSN +Ferlinghetti/M/FLNHT +Fermat/M/FMT +ferment/FSCM/FMNT +fermentation/MS/FMNTXN +fermented//FMNTT +fermenter//FMNT +fermenting//FMNTN +Fermi/M/FM +fermion/MS/FMN +fermium/MS/FMM +Fern/M/FN +fern/MS/FN +Fernanda/M/FNNT +Fernande/M/FNNT +Fernandez/M/FNNTS +Fernandina/M/FNNTN +Fernando/M/FNNT +Ferne/M/FN +fernery/M/FNR +ferny/TR/FN +ferocious/YP/FRSS +ferociousness/MS/FRSSNS +ferocity/MS/FRST +Ferrari/M/FRR +Ferraro/M/FRR +Ferreira/M/FRR +Ferrel/M/FRL +Ferrell/M/FRL +Ferrer/M/FR +ferret/SMRDG/FRT +ferreter/M/FRT +ferric//FRK +ferris//FRS +Ferris//FRS +ferrite/M/FRT +ferro//FR +ferroelectric//FRLKTRK +ferromagnet/M/FRMKNT +ferromagnetic//FRMKNTK +ferrous//FRS +ferrule/MGSD/FRL +ferry/SDMG/FR +ferryboat/MS/FRBT +ferryman/M/FRMN +ferrymen//FRMN +fertile/YP/FTL +fertileness/M/FTLNS +fertility/IMS/FTLT +fertilization/ASM/FTLSXN +fertilize/SRDZG/FTLS +fertilized/U/FTLST +fertilizer/M/FTLS +fertilizes/A/FTLSS +ferule/SDGM/FRL +fervency/MS/FFNS +fervent/Y/FFNT +fervid/YP/FFT +fervidness/M/FFTNS +fervor/MS/FF +fess/KGFSD/FS +Fess/M/FS +fess's//FSS +fest/RVZ/FST +festal/S/FSTL +fester/GD/FST +festival/SM/FSTFL +festive/PY/FSTF +festiveness/SM/FSTFNS +festivity/SM/FSTFT +festoon/SMDG/FSTN +feta/MS/FT +fetal//FTL +fetch/RSDGZ/FX +fetcher/M/FX +fetching/Y/FXN +fête/MS/FT +feted//FTT +fetich's//FTXS +fetid/YP/FTT +fetidness/SM/FTTNS +feting//FTN +fetish/MS/FTX +fetishism/SM/FTXSM +fetishist/SM/FTXST +fetishistic//FTXSTK +fetlock/MS/FTLK +fetter/UGSD/FT +fetter's//FTS +fettle/GSD/FTL +fettling/M/FTLN +fettuccine/S/FTSN +fetus/SM/FTS +feud/MDSG/FT +feudal/Y/FTL +feudalism/MS/FTLSM +feudalistic//FTLSTK +feudatory/M/FTTR +fever/SDMG/FF +feverish/PY/FFRX +feverishness/SM/FFRXNS +few/PTRS/F +fewness/MS/FNS +Fey/M/F +fey/RT/F +Feynman/M/FNMN +fez/M/FS +Fez/M/FS +fezzes//FSS +ff//F +FHA//FH +fiancé/MS/FNK +fiancée/S/FNK +Fiann/M/FN +Fianna/M/FN +fiasco/M/FSK +fiascoes//FSKS +Fiat/M/FT +fiat/MS/FT +fib/SZMR/FB +fibbed//FBT +fibber/MS/FB +fibbing//FBN +fiber/DM/FB +fiberboard/MS/FBBT +fiberfill/S/FBFL +Fiberglas/M/FBKLS +fiberglass/DSMG/FBKLS +Fibonacci/M/FBNS +fibril/MS/FBRL +fibrillate/XGNDS/FBRLT +fibrillation/M/FBRLXN +fibrin/MS/FBRN +fibroblast/MS/FBRBLST +fibroid/S/FBRT +fibroses//FBRSS +fibrosis/M/FBRSS +fibrous/YP/FBRS +fibrousness/M/FBRSNS +fibula/M/FBL +fibulae//FBL +fibular//FBL +FICA//FK +fices//FSS +fiche/SM/FX +Fichte/M/FXT +fichu/SM/FX +fickle/RTP/FKL +fickleness/MS/FKLNS +ficos//FKS +fiction/SM/FKXN +fictional/Y/FKXNL +fictionalization/MS/FKXNLSXN +fictionalize/DSG/FKXNLS +fictitious/PY/FKTXS +fictitiousness/M/FKTXSNS +fictive/Y/FKTF +ficus//FKS +fiddle/GMZJRSD/FTL +fiddler/M/FTL +fiddlestick/SM/FTLSTK +fiddly//FTL +fide/F/FT +Fidel/M/FTL +Fidela/M/FTL +Fidelia/M/FTL +Fidelio/M/FTL +fidelity/IMS/FTLT +Fidelity/M/FTLT +fidget/DSG/FKT +fidgety//FKT +Fido/M/FT +Fidole/M/FTL +fiducial/Y/FTXL +fiduciary/MS/FTXR +fie/S/F +fief/MS/FF +fiefdom/S/FFTM +Field/MGS/FLT +field/ZISMR/FLT +fielded//FLTT +fielder/IM/FLT +fielding//FLTN +Fielding/M/FLTN +fieldstone/M/FLTSTN +fieldwork/ZMRS/FLTWK +fieldworker/M/FLTWK +fiend/MS/FNT +fiendish/YP/FNTX +fiendishness/M/FNTXNS +fierce/RPTY/FS +fierceness/SM/FSNS +fierily//FRL +fieriness/MS/FRNS +fiery/PTR/FR +fies/C/FS +fiesta/MS/FST +fife/DRSMZG/FF +fifer/M/FF +Fifi/M/FF +Fifine/M/FFN +FIFO//FF +fifteen/HRMS/FFTN +fifteenths//FFTN@S +fifth/Y/FF@ +fifths//FF@S +fiftieths//FFT@S +fifty/HSM/FFT +fig/MLS/FK +Figaro/M/FKR +figged//FKT +figging//FKN +fight/ZSJRG/FT +fightback//FTBK +fighter/MIS/FT +fighting/IS/FTN +figment/MS/FKMNT +Figueroa/M/FKR +figural//FKRL +figuration/FSM/FKRXN +figurative/YP/FKRTF +figurativeness/M/FKRTFNS +figure/GFESD/FKR +figurehead/SM/FKRHT +figurer/SM/FKR +figure's//FKRS +figurine/SM/FKRN +figuring/S/FKRN +Fiji/M/FK +Fijian/SM/FKN +filament/MS/FLMNT +filamentary//FLMNTR +filamentous//FLMNTS +Filbert/M/FLBT +filbert/MS/FLBT +Filberte/M/FLBT +Filberto/M/FLBT +filch/SDG/FLX +file/KDRSGMZ/FL +filed/AC/FLT +filename/SM/FLNM +filer/KMCS/FL +files/AC/FLS +filet's//FLTS +Filia/M/FL +filial/UY/FLL +filibuster/MDRSZG/FLBST +filibusterer/M/FLBSTR +Filide/M/FLT +filigree/MSD/FLKR +filigreeing//FLKRN +filing/AC/FLN +filings//FLNS +Filip/M/FLP +Filipino/SM/FLPN +Filippa/M/FLP +Filippo/M/FLP +fill/BAJGSD/FL +filled/U/FLT +filler/MS/FL +fillet/MDSG/FLT +filleting/M/FLTN +filling/M/FLN +fillip/MDGS/FLP +Fillmore/M/FLMR +filly/SM/FL +film/SGMD/FLM +filmdom/M/FLMTM +Filmer/M/FLM +filminess/SM/FLMNS +filming/M/FLMN +filmmaker/S/FLMK +Filmore/M/FLMR +filmstrip/SM/FLMSTRP +filmy/RTP/FLM +Filofax/S/FLFKS +filter/RDMSZGB/FLT +filtered/U/FLTRT +filterer/M/FLTR +filth/M/FL@ +filthily//FL@L +filthiness/SM/FL@NS +filths//FL@S +filthy/TRSDGP/FL@ +filtrate/SDXMNG/FLTRT +filtrated/I/FLTRTT +filtrates/I/FLTRTS +filtrating/I/FLTRTN +filtration/IMS/FLTRXN +Fin/M/FN +fin/TGMDRS/FN +Fina/M/FN +finagle/RSDZG/FNKL +finagler/M/FNKL +final/SY/FNL +finale/MS/FNL +finalist/MS/FNLST +finality/MS/FNLT +finalization/SM/FNLSXN +finalize/GSD/FNLS +finance/MGSDJ/FNNS +financed/A/FNNST +finances/A/FNNSS +financial/Y/FNNXL +financier/DMGS/FNNS +financing/A/FNNSN +Finch/M/FNX +finch/MS/FNX +find/BRJSGZ/FNT +findable/U/FNTBL +finder/M/FNT +finding/M/FNTN +Findlay/M/FNTL +Findley/M/FNTL +fine/FGSCRDA/FN +finely//FNL +fineness/MS/FNNS +finery/MAS/FNR +fine's//FNS +finespun//FNSPN +finesse/SDMG/FNS +finger/SGRDMJ/FN +fingerboard/SM/FNBT +fingerer/M/FNR +fingering/M/FNRN +fingerless//FNLS +fingerling/M/FNLN +fingernail/MS/FNNL +fingerprint/SGDM/FNPRNT +fingertip/MS/FNTP +finial/SM/FNL +finical//FNKL +finickiness/S/FNKNS +finicky/RPT/FNK +fining/M/FNN +finis/SM/FNS +finish/JZGRSD/FNX +finished/UA/FNXT +finisher/M/FNX +finishes/A/FNXS +finite/ISPY/FNT +finitely/C/FNTL +finiteness/MIC/FNTNS +fink/GDMS/FNK +Finland/M/FNLNT +Finlay/M/FNL +Finley/M/FNL +Finn/MS/FN +Finnbogadottir/M/FNBKTT +finned//FNT +Finnegan/M/FNKN +finner//FN +finning//FNN +Finnish//FNX +finny/RT/FN +Fiona/M/FN +Fionna/M/FN +Fionnula/M/FNL +fiord's//FTS +Fiorello/M/FRL +Fiorenze/M/FRNS +Fiori/M/FR +fir/ZGJMDRHS/F +fire/MS/FR +firearm/SM/FRM +fireball/SM/FRBL +fireboat/M/FRBT +firebomb/MDSG/FRBM +firebox/MS/FRBKS +firebrand/MS/FRBRNT +firebreak/SM/FRBRK +firebrick/SM/FRBRK +firebug/SM/FRBK +firecracker/SM/FRKRK +fired/U/FRT +firedamp/SM/FRTMP +firefight/JRGZS/FRFT +firefly/MS/FRFL +fireguard/M/FRKT +firehouse/MS/FRHS +firelight/GZSM/FRLT +fireman/M/FRMN +firemen//FRMN +fireplace/MS/FRPLS +fireplug/MS/FRPLK +firepower/SM/FRPW +fireproof/SGD/FRPRF +firer/M/FR +firesafe//FRSF +fireside/SM/FRST +Firestone/M/FRSTN +firestorm/SM/FRSTM +firetrap/SM/FRTRP +firetruck/S/FRTRK +firewall/S/FRWL +firewater/SM/FRWT +firewood/MS/FRWT +firework/MS/FRWK +firing/M/FRN +firkin/M/FKN +firm/ISFDG/FM +firmament/MS/FMMNT +firmer//FM +firmest//FMST +firmly/I/FML +firmness/MS/FMNS +firm's//FMS +firmware/MS/FMWR +firring//FRN +first/SY/FST +firstborn/S/FSTBN +firsthand//FS@NT +firth/M/F@ +firths//F@S +fiscal/YS/FSKL +Fischbein/M/FSXBN +Fischer/M/FSK +fish/JGZMSRD/FX +fishbowl/MS/FXBL +fishcake/S/FXKK +fisher/M/FX +Fisher/M/FX +fisherman/M/FXMN +fishermen/M/FXMN +fishery/MS/FXR +fishhook/MS/FXHK +fishily//FXL +fishiness/MS/FXNS +fishing/M/FXN +Fishkill/M/FXKL +fishmeal//FXML +fishmonger/MS/FXMNK +fishnet/SM/FXNT +fishpond/SM/FXPNT +fishtail/DMGS/FXTL +fishtanks//FXTNKS +fishwife/M/FXWF +fishwives//FXWFS +fishy/TPR/FX +Fisk/M/FSK +Fiske/M/FSK +fissile//FSL +fission/BSDMG/FXN +fissionable/S/FXNBL +fissure/MGSD/FSR +fist/MDGS/FST +fistfight/SM/FSTFT +fistful/MS/FSTFL +fisticuff/SM/FSTKF +fistula/SM/FSTL +fistulous//FSTLS +fit/UYPS/FT +Fitch/M/FX +Fitchburg/M/FXBK +fitful/PY/FTFL +fitfulness/SM/FTFLNS +fitments//FTMNTS +fitness/USM/FTNS +fits/AK/FTS +fit's/K/FTS +fitted/UA/FTT +fitter/SM/FT +fittest//FTST +fitting/AU/FTN +fittingly//FTNL +fittingness/M/FTNNS +fittings//FTNS +Fitz/M/FTS +Fitzgerald/M/FTSKRLT +Fitzpatrick/M/FTSPTRK +Fitzroy/M/FTSR +five/MRS/FF +fivefold//FFFLT +fiver/M/FF +fix/USDG/FKS +fixable//FKSBL +fixate/VNGXSD/FKST +fixatifs//FKSTFS +fixation/M/FKSXN +fixative/S/FKSTF +fixed/YP/FKST +fixedness/M/FKSTNS +fixer/SM/FKS +fixes/I/FKSS +fixing/SM/FKSN +fixity/MS/FKST +fixture/SM/FKSTR +Fizeau/M/FS +fizz/SRDG/FS +fizzer/M/FS +fizzle/GSD/FSL +fizzy/RT/FS +fjord/SM/FKT +FL//FL +fl/GJD/FL +Fla/M/FL +flab/MS/FLB +flabbergast/GSD/FLBKST +flabbergasting/Y/FLBKSTN +flabbily//FLBL +flabbiness/SM/FLBNS +flabby/TPR/FLB +flaccid/Y/FLST +flaccidity/MS/FLSTT +flack/SGDM/FLK +flag/MS/FLK +flagella/M/FLKL +flagellate/DSNGX/FLKLT +flagellation/M/FLKLXN +flagellum/M/FLKLM +flagged//FLKT +flagging/SMY/FLKN +flaggingly/U/FLKNL +flagman/M/FLKMN +flagmen//FLKMN +flagon/SM/FLKN +flagpole/SM/FLKPL +flagrance/MS/FLKRNS +flagrancy/SM/FLKRNS +flagrant/Y/FLKRNT +flagship/MS/FLKXP +flagstaff/MS/FLKSTF +flagstone/SM/FLKSTN +flail/SGMD/FLL +flair/SM/FL +flak/RDMGS/FLK +flake/SM/FLK +flaker/M/FLK +flakiness/MS/FLKNS +flaky/PRT/FLK +flam/MRNDJGZ/FLM +flambé/D/FLMB +flambeing//FLMBN +flambes//FLMBS +flamboyance/MS/FLMBYNS +flamboyancy/MS/FLMBYNS +flamboyant/YS/FLMBYNT +flame/SIGDR/FLM +flamen/M/FLMN +flamenco/SM/FLMNK +flameproof/DGS/FLMPRF +flamer/IM/FLM +flame's//FLMS +flamethrower/SM/FLM@RW +flaming/Y/FLMN +flamingo/SM/FLMN +flammability/ISM/FLMBLT +flammable/SI/FLMBL +flan/MS/FLN +Flanagan/M/FLNKN +Flanders/M/FLNTS +flange/GMSD/FLNK +flank/SGZRDM/FLNK +flanker/M/FLNK +flannel/DMGS/FLNL +flannelet/MS/FLNLT +flannelette's//FLNLTS +flap/MS/FLP +flapjack/SM/FLPKK +flapped//FLPT +flapper/SM/FLP +flapping//FLPN +flaps/M/FLPS +flare/SDG/FLR +flareup/S/FLRP +flaring/Y/FLRN +flash/JMRSDGZ/FLX +flashback/SM/FLXBK +flashbulb/SM/FLXBLB +flashcard/S/FLXKT +flashcube/MS/FLXKB +flasher/M/FLX +flashgun/S/FLXKN +flashily//FLXL +flashiness/SM/FLXNS +flashing/M/FLXN +flashlight/MS/FLXLT +flashy/TPR/FLX +flask/SM/FLSK +flat/MYPS/FLT +flatbed/S/FLTBT +flatboat/MS/FLTBT +flatcar/MS/FLTK +flatfeet//FLTFT +flatfish/SM/FLTFX +flatfoot/SGDM/FLTFT +flathead/M/FL@T +flatiron/SM/FLTRN +flatland/RS/FLTLNT +flatmate/M/FLTMT +flatness/MS/FLTNS +Flatt/M/FLT +flatted//FLTT +flatten/SDRG/FLTN +flattener/M/FLTN +flatter/DRSZG/FLT +flatterer/M/FLTR +flattering/YU/FLTRN +flattery/SM/FLTR +flattest/M/FLTST +flatting//FLTN +flattish//FLTX +flattop/MS/FLTP +flatulence/SM/FLTLNS +flatulent/Y/FLTLNT +flatus/SM/FLTS +flatware/MS/FLTWR +flatworm/SM/FLTWM +Flaubert/M/FLBT +flaunt/SDG/FLNT +flaunting/Y/FLNTN +flautist/SM/FLTST +flavor/SJDRMZG/FLF +flavored/U/FLFRT +flavorer/M/FLFR +flavorful//FLFFL +flavoring/M/FLFRN +flavorless//FLFLS +flavorsome//FLFSM +flaw/GDMS/FL +flawless/PY/FLLS +flawlessness/MS/FLLSNS +flax/MSN/FLKS +flaxseed/M/FLKSST +flay/RDGZS/FL +flayer/M/FLY +flea/SM/FL +fleabag/MS/FLBK +fleabites//FLBTS +fleawort/M/FLWT +fleck/GRDMS/FLK +Fledermaus/M/FLTMS +fledge/GSD/FLK +fledged/U/FLKT +fledgling/SM/FLTKLN +flee/RS/FL +fleece/RSDGMZ/FLS +fleecer/M/FLS +fleeciness/SM/FLSNS +fleecy/RTP/FLS +fleeing//FLN +fleet/MYRDGTPS/FLT +fleeting/YP/FLTN +fleetingly/M/FLTNL +fleetingness/SM/FLTNNS +fleetness/MS/FLTNS +Fleischer/M/FLSK +Fleischman/M/FLSXMN +Fleisher/M/FLX +Flem/JGM/FLM +Fleming/M/FLMN +Flemish/GDSM/FLMX +Flemished/M/FLMXT +Flemishing/M/FLMXN +Flemming/M/FLMN +flesh/JMYRSDG/FLX +flesher/M/FLX +fleshiness/M/FLXNS +fleshless//FLXLS +fleshly/TR/FLXL +fleshpot/SM/FLXPT +fleshy/TPR/FLX +fletch/DRSGJ/FLX +Fletch/MR/FLX +fletcher/M/FLX +Fletcher/M/FLX +fletching/M/FLXN +Fleur/M/FL +Fleurette/M/FLRT +flew/S/FL +flews/M/FLS +flex/MSDAG/FLKS +flexed/I/FLKST +flexibility/MSI/FLKSBLT +flexible/I/FLKSBL +flexibly/I/FLKSBL +flexitime's//FLKSTMS +flextime/S/FLKSTM +flexural//FLKSRL +flexure/M/FLKSR +flibbertigibbet/MS/FLBTKBT +flick/GZSRD/FLK +flicker/GD/FLK +flickering/Y/FLKRN +flickery//FLKR +flier/M/FL +flight/GMDS/FLT +flightiness/SM/FLTNS +flightless//FLTLS +flightpath//FLTP@ +flighty/RTP/FLT +flimflam/MS/FLMFLM +flimflammed//FLMFLMT +flimflamming//FLMFLMN +flimsily//FLMSL +flimsiness/MS/FLMSNS +flimsy/PTRS/FLMS +Flin/M/FLN +flinch/GDRS/FLNX +flincher/M/FLNX +flinching/U/FLNXN +fling/RMG/FLN +flinger/M/FLN +Flinn/M/FLN +Flint/M/FLNT +flint/MDSG/FLNT +flintiness/M/FLNTNS +flintless//FLNTLS +flintlock/MS/FLNTLK +Flintstones//FLNTSTNS +flinty/TRP/FLNT +flip/S/FLP +flipflop//FLPFLP +flippable//FLPBL +flippancy/MS/FLPNS +flippant/Y/FLPNT +flipped//FLPT +flipper/SM/FLP +flippest//FLPST +flipping//FLPN +flirt/GRDS/FLT +flirtation/SM/FLTXN +flirtatious/PY/FLTXS +flirtatiousness/MS/FLTXSNS +flit/S/FLT +flitted//FLTT +flitting//FLTN +Flo/M/FL +float/SRDGJZ/FLT +floater/M/FLT +floaty//FLT +flocculate/GNDS/FLKLT +flocculation/M/FLKLXN +flock/SJDMG/FLK +floe/MS/FL +flog/S/FLK +flogged//FLKT +flogger/SM/FLK +flogging/SM/FLKN +flood/SMRDG/FLT +floodgate/MS/FLTKT +floodlight/DGMS/FLTLT +floodlit//FLTLT +floodplain/S/FLTPLN +floodwater/SM/FLTWT +floor/SJRDMG/FL +floorboard/MS/FLBT +floorer/M/FLR +flooring/M/FLRN +floorspace//FLSPS +floorwalker/SM/FLWLK +floozy/SM/FLS +flop/MS/FLP +flophouse/SM/FLFS +flopped//FLPT +flopper/M/FLP +floppily//FLPL +floppiness/SM/FLPNS +flopping//FLPN +floppy/TMRSP/FLP +Flor/M/FL +Flora/M/FLR +flora/SM/FLR +floral/SY/FLRL +Florance/M/FLRNS +Flore/SM/FLR +Florella/M/FLRL +Florence/M/FLRNS +Florencia/M/FLRNX +Florentia/M/FLRNX +Florentine/S/FLRNTN +Florenza/M/FLRNS +florescence/MIS/FLRSNS +florescent/I/FLRSNT +floret/MS/FLRT +Florette/M/FLRT +Flori/SM/FLR +Floria/M/FLR +Florian/M/FLRN +florid/YP/FLRT +Florida/M/FLRT +Floridan/S/FLRTN +Floridian/S/FLRTN +floridness/SM/FLRTNS +Florie/M/FLR +florin/MS/FLRN +Florina/M/FLRN +Florinda/M/FLRNT +Florine/M/FLRN +florist/MS/FLRST +Florri/M/FLR +Florrie/M/FLR +Florry/M/FLR +Flory/M/FLR +floss/GSDM/FLS +Flossi/M/FLS +Flossie/M/FLS +Flossy/M/FLS +flossy/RST/FLS +flotation/SM/FLTXN +flotilla/SM/FLTL +flotsam/SM/FLTSM +flounce/GDS/FLNS +flouncing/M/FLNSN +flouncy/RT/FLNS +flounder/SDG/FLNT +flour/SGDM/FL +flourish/GSRD/FLRX +flourisher/M/FLRX +flourishing/Y/FLRXN +floury/TR/FLR +flout/GZSRD/FLT +flouter/M/FLT +flow/ISG/FL +flowchart/SG/FLXT +flowed//FLWT +flower/CSGD/FLW +flowerbed/SM/FLWBT +flowerer/M/FLWR +floweriness/SM/FLWRNS +flowerless//FLWLS +flowerpot/MS/FLWPT +flower's//FLWS +Flowers//FLWS +flowery/TRP/FLWR +flowing/Y/FLWN +flown//FLN +flowstone//FLSTN +Floyd/M/FLT +Flss/M/FLS +flt//FLT +flu/MS/FL +flub/S/FLB +flubbed//FLBT +flubbing//FLBN +fluctuate/XSDNG/FLKTT +fluctuation/M/FLKTXN +flue/SM/FL +fluency/MS/FLNS +fluent/SF/FLNT +fluently//FLNTL +fluff/SGDM/FLF +fluffiness/SM/FLFNS +fluffy/PRT/FLF +fluid/MYSP/FLT +fluidity/SM/FLTT +fluidized//FLTST +fluidness/M/FLTNS +fluke/SDGM/FLK +fluky/RT/FLK +flume/SDGM/FLM +flummox/DSG/FLMKS +flung//FLNK +flunk/SRDG/FLNK +flunkey's//FLNKS +flunky/MS/FLNK +fluoresce/GSRD/FLRS +fluorescence/MS/FLRSNS +fluorescent/S/FLRSNT +fluoridate/XDSGN/FLRTT +fluoridation/M/FLRTXN +fluoride/SM/FLRT +fluorimetric//FLRMTRK +fluorinated//FLRNTT +fluorine/SM/FLRN +fluorite/MS/FLRT +fluorocarbon/MS/FLRKBN +fluoroscope/MGDS/FLRSKP +fluoroscopic//FLRSKPK +flurry/GMDS/FLR +flush/TRSDPBG/FLX +flushness/M/FLXNS +fluster/DSG/FLST +flute/SRDGMJ/FLT +fluter/M/FLT +fluting/M/FLTN +flutist/MS/FLTST +flutter/DRSG/FLT +flutterer/M/FLTR +fluttery//FLTR +flux/IMS/FLKS +fluxed/A/FLKST +fluxes/A/FLKSS +fluxing//FLKSN +fly/JGBDRSTZ/FL +flyaway//FLYW +flyblown//FLBLN +flyby/M/FLB +flybys//FLBS +flycatcher/MS/FLKX +flyer's//FLYS +flyleaf/M/FLLF +flyleaves//FLLFS +Flynn/M/FLN +flyover/MS/FLYF +flypaper/MS/FLPP +flysheet/S/FLXT +flyspeck/MDGS/FLSPK +flyswatter/S/FLSWT +flyway/MS/FLW +flyweight/MS/FLWT +flywheel/MS/FLHL +FM//FM +Fm/M/FM +FNMA/M/FNM +foal/MDSG/FL +foam/MRDSG/FM +foaminess/MS/FMNS +foamy/RPT/FM +fob/SM/FB +fobbed//FBT +fobbing//FBN +focal/F/FKL +focally//FKL +Foch/M/FX +foci's//FSS +focus/SRDMBG/FKS +focused/AU/FKST +focuser/M/FKS +focuses/A/FKSS +fodder/GDMS/FT +foe/SM/F +foetid//FTT +FOFL//FFL +fog/SM/FK +fogbound//FKBNT +fogged/C/FKT +foggily//FKL +fogginess/MS/FKNS +fogging/C/FKN +foggy/RPT/FK +foghorn/SM/FKN +fogs/C/FKS +fogy/SM/FK +fogyish//FKYX +foible/MS/FBL +foil/GSD/FL +foist/GDS/FST +Fokker/M/FK +fol/Y/FL +fold/RDJSGZ/FLT +foldaway/S/FLTW +folded/AU/FLTT +folder/M/FLT +foldout/MS/FLTT +folds/UA/FLTS +Foley/M/FL +foliage/MSD/FLK +foliate/CSDXGN/FLT +foliation/CM/FLXN +folio/SDMG/FL +folk/MS/FLK +folklike//FLKLK +folklore/MS/FLKLR +folkloric//FLKLRK +folklorist/SM/FLKLRST +folksiness/MS/FLKSNS +folksinger/S/FLKSN +folksinging/S/FLKSNN +folksong/S/FLKSNK +folksy/TPR/FLKS +folktale/S/FLKTL +folkway/S/FLKW +foll//FL +follicle/SM/FLKL +follicular//FLKL +follow/JSZBGRD/FL +follower/M/FLW +followup's//FLWPS +folly/SM/FL +Folsom//FLSM +Fomalhaut/M/FMLHT +foment/RDSG/FMNT +fomentation/SM/FMNTXN +fomenter/M/FMNT +fond/PMYRDGTS/FNT +Fonda/M/FNT +fondant/SM/FNTNT +fondle/GSRD/FNTL +fondler/M/FNTL +fondness/MS/FNTNS +fondue/MS/FNT +Fons//FNS +Fonsie/M/FNS +font/MS/FNT +Fontaine/M/FNTN +Fontainebleau/M/FNTNBL +Fontana/M/FNTN +fontanel/MS/FNTNL +fontanelle's//FNTNLS +Fonz/M/FNS +Fonzie/M/FNS +food/MS/FT +foodie/S/FT +foodstuff/MS/FTSTF +fool/MDGS/FL +foolery/MS/FLR +foolhardily//FLHTL +foolhardiness/SM/FLHTNS +foolhardy/PTR/FLHT +foolish/PRYT/FLX +foolishness/SM/FLXNS +foolproof//FLPRF +foolscap/MS/FLSKP +foot/SMRDGZJ/FT +footage/SM/FTK +football/SRDMGZ/FTBL +footbridge/SM/FTBRK +Foote/M/FT +footer/M/FT +footfall/SM/FTFL +foothill/SM/F@L +foothold/MS/F@LT +footing/M/FTN +footless//FTLS +footlights//FTLTS +footling//FTLN +footlocker/SM/FTLK +footloose//FTLS +footman/M/FTMN +footmarks//FTMKS +footmen//FTMN +footnote/MSDG/FTNT +footpad/SM/FTPT +footpath/M/FTP@ +footpaths//FTP@S +footplate/M/FTPLT +footprint/MS/FTPRNT +footrace/S/FTRS +footrest/MS/FTRST +footsie/SM/FTS +footsore//FTSR +footstep/SM/FTSTP +footstool/SM/FTSTL +footwear/M/FTW +footwork/SM/FTWK +fop/MS/FP +fopped//FPT +foppery/MS/FPR +fopping//FPN +foppish/YP/FPX +foppishness/SM/FPXNS +for/HT/F +forage/GSRDMZ/FRK +forager/M/FRK +foray/SGMRD/FR +forayer/M/FRY +forbade//FBT +forbear/MRSG/FB +forbearance/SM/FBRNS +forbearer/M/FBR +Forbes/M/FBS +forbid/S/FBT +forbidden//FBTN +forbidding/YPS/FBTN +forbiddingness/M/FBTNNS +forbore//FBR +forborne//FBN +force/SRDGM/FS +forced/Y/FST +forcefield/MS/FSFLT +forceful/PY/FSFL +forcefulness/MS/FSFLNS +forceps/M/FSPS +forcer/M/FS +forcible/P/FSBL +forcibleness/M/FSBLNS +forcibly//FSBL +Ford/M/FT +ford/SMDBG/FT +fordable/U/FTBL +Fordham/M/FTHM +fore/S/FR +forearm/GSDM/FRM +forebear/MS/FRB +forebode/GJDS/FRBT +foreboding/PYM/FRBTN +forebodingness/M/FRBTNNS +forecast/SZGR/FRKST +forecaster/M/FRKST +forecastle/MS/FRKSTL +foreclose/GSD/FRKLS +foreclosure/MS/FRKLSR +forecourt/SM/FRKT +foredoom/SDG/FRTM +forefather/SM/FRF@ +forefeet//FRFT +forefinger/MS/FRFN +forefoot/M/FRFT +forefront/SM/FRFRNT +foregoer/M/FRK +foregoing/S/FRKN +foregone//FRKN +foregos//FRKS +foreground/MGDS/FRKRNT +forehand/S/FRHNT +forehead/MS/FRHT +foreign/PRYZS/FRN +foreigner/M/FRKN +foreignness/SM/FRKNS +foreknew//FRKN +foreknow/GS/FRKN +foreknowledge/MS/FRKNLK +foreknown//FRKNN +foreleg/MS/FRLK +forelimb/MS/FRLM +forelock/MDSG/FRLK +foreman/M/FRMN +Foreman/M/FRMN +foremast/SM/FRMST +foremen//FRMN +foremost//FRMST +forename/DSM/FRNM +forenoon/SM/FRNN +forensic/S/FRNSK +forensically//FRNSKL +forensics/M/FRNSKS +foreordain/DSG/FRTN +forepart/MS/FRPT +forepaws//FRPS +forepeople//FRPPL +foreperson/S/FRPSN +foreplay/MS/FRPL +forequarter/SM/FRKT +forerunner/MS/FRRN +foresail/SM/FRSL +foresaw//FRS +foresee/ZSRB/FRS +foreseeable/U/FRSBL +foreseeing//FRSN +foreseen/U/FRSN +foreseer/M/FRS +foreshadow/SGD/FRXT +foreshore/M/FRXR +foreshorten/DSG/FRXTN +foresight/SMD/FRST +foresighted/PY/FRSTT +foresightedness/SM/FRSTTNS +foreskin/SM/FRSKN +forest/CSAGD/FRST +Forest/MR/FRST +forestall/LGSRD/FRSTL +forestaller/M/FRSTL +forestallment/M/FRSTLMNT +forestation/MCS/FRSTXN +forestations/A/FRSTXNS +Forester/M/FRST +forester/SM/FRST +forestland/S/FRSTLNT +forestry/MS/FRSTR +forest's//FRSTS +foretaste/MGSD/FRTST +foretell/RGS/FRTL +foreteller/M/FRTL +forethought/MS/FR@T +foretold//FRTLT +forever/PS/FRF +forevermore//FRFMR +forewarn/GSJRD/FRWN +forewarner/M/FRWN +forewent//FRWNT +forewoman/M/FRWMN +forewomen//FRWMN +foreword/SM/FRWT +forfeit/ZGDRMS/FFT +forfeiter/M/FFT +forfeiture/MS/FFTR +forfend/GSD/FFNT +forgather/GSD/FK@ +forgave//FKF +forge/JVGMZSRD/FK +forged/A/FKT +forger/M/FK +forgery/MS/FKR +forges/A/FKS +forget/SV/FKT +forgetful/PY/FKTFL +forgetfulness/SM/FKTFLNS +forgettable/U/FKTBL +forgettably/U/FKTBL +forgetting//FKTN +forging/M/FKN +forgivable/U/FKFBL +forgivably/U/FKFBL +forgive/SRPBZG/FKF +forgiven//FKFN +forgiveness/SM/FKFNS +forgiver/M/FKF +forgiving/UP/FKFN +forgivingly//FKFNL +forgivingness/M/FKFNNS +forgo/RSGZ/FK +forgoer/M/FK +forgoes//FKS +forgone//FKN +forgot//FKT +forgotten/U/FKTN +fork/GSRDM/FK +forkful/S/FKFL +forklift/DMSG/FKLFT +forlorn/PTRY/FLN +forlornness/M/FLNS +form/CGSAFDI/FM +formability/AM/FMBLT +formal/IY/FML +formaldehyde/SM/FMLTHT +formalin/M/FMLN +formalism/SM/FMLSM +formalist/SM/FMLST +formalistic//FMLSTK +formality/SMI/FMLT +formalization/SM/FMLSXN +formalize/ZGSRD/FMLS +formalized/U/FMLST +formalizer/M/FMLS +formalizes/I/FMLSS +formalness/M/FMLNS +formals//FMLS +formant/MIS/FMNT +format/AVS/FMT +formate/MXGNSD/FMT +formation/AFSCIM/FMXN +formative/SYP/FMTF +formatively/I/FMTFL +formativeness/IM/FMTFNS +format's//FMTS +formatted/UA/FMTT +formatter/A/FMT +formatters//FMTS +formatter's//FMTS +formatting/A/FMTN +formed/U/FMT +former/FSAI/FM +formerly//FML +formfitting//FMFTN +formic//FMK +Formica/MS/FMK +formidable/P/FMTBL +formidableness/M/FMTBLNS +formidably//FMTBL +formless/PY/FMLS +formlessness/MS/FMLSNS +Formosa/M/FMS +Formosan//FMSN +form's//FMS +formula/SM/FML +formulaic//FMLK +formulate/AGNSDX/FMLT +formulated/U/FMLTT +formulation/AM/FMLXN +formulator/SM/FMLT +fornicate/GNXSD/FNKT +fornication/M/FNKXN +fornicator/SM/FNKT +Forrest/RM/FRST +Forrester/M/FRST +forsake/SG/FSK +forsaken//FSKN +forsook//FSK +forsooth//FS@ +Forster/M/FST +forswear/SG/FSW +forswore//FSWR +forsworn//FSWN +forsythia/MS/FS@ +fort/SM/FT +Fortaleza/M/FTLS +forte/MS/FT +FORTH/M/F@ +forthcome/JG/F@KM +forthcoming/U/F@KMN +forthright/PYS/F@RT +forthrightness/SM/F@RTNS +forthwith//F@W@ +fortieths//FT@S +fortification/MS/FTFKXN +fortified/U/FTFT +fortifier/SM/FTF +fortify/ADSG/FTF +fortiori//FXR +fortissimo/S/FTSM +fortitude/SM/FTTT +fortnight/MYS/FTNT +fortnightly/S/FTNTL +FORTRAN//FTRN +Fortran/M/FTRN +fortress/GMSD/FTRS +fortuitous/YP/FTTS +fortuitousness/SM/FTTSNS +fortuity/MS/FTT +fortunate/YUS/FTNT +fortunateness/M/FTNTNS +fortune/MGSD/FTN +fortuneteller/SM/FTNTL +fortunetelling/SM/FTNTLN +forty/SRMH/FT +forum/MS/FRM +forward/PTZSGDRY/FWT +forwarder/M/FWT +forwarding/M/FWTN +forwardness/MS/FWTNS +forwent//FWNT +Foss/M/FS +fossil/MS/FSL +fossiliferous//FSLFRS +fossilization/MS/FSLSXN +fossilize/GSD/FSLS +fossilized/U/FSLST +Foster/M/FST +foster/SRDG/FST +fosterer/M/FSTR +Foucault/M/FKLT +fought//FT +foul/SYRDGTP/FL +foulard/SM/FLT +foulmouth/D/FLM@ +foulness/MS/FLNS +fouls/M/FLS +found/RDGZS/FNT +foundation/SM/FNTXN +foundational//FNTXNL +founded/UF/FNTT +founder/MDG/FNT +founder's/F/FNTS +founding/F/FNTN +foundling/MS/FNTLN +foundry/MS/FNTR +founds/KF/FNTS +fount/MS/FNT +fountain/SMDG/FNTN +fountainhead/SM/FNTNHT +four/SHM/F +fourfold//FFLT +Fourier/M/FR +fourpence/M/FPNS +fourpenny//FPN +fourposter/SM/FPST +fourscore/S/FSKR +foursome/SM/FSM +foursquare//FSKR +fourteen/SMRH/FTN +fourteener/M/FTN +fourteenths//FTN@S +Fourth//F@ +fourth/Y/F@ +fourths//F@S +Fourths//F@S +fovea/M/FF +fowl/SGMRD/FL +fowler/M/FL +Fowler/M/FL +fowling/M/FLN +fox/MDSG/FKS +Fox/MS/FKS +foxfire/SM/FKSFR +foxglove/SM/FKSKLF +Foxhall/M/FKSHL +foxhole/SM/FKSHL +foxhound/SM/FKSHNT +foxily//FKSL +foxiness/MS/FKSNS +foxing/M/FKSN +foxtail/M/FKSTL +foxtrot/MS/FKSTRT +foxtrotted//FKSTRTT +foxtrotting//FKSTRTN +foxy/TRP/FKS +foyer/SM/FY +FPO//FP +fps//FPS +fr//FR +Fr/MD/FR +fracas/SM/FRKS +fractal/SM/FRKTL +fraction/ISMA/FRKXN +fractional/Y/FRKXNL +fractionate/DNG/FRKXNT +fractionation/M/FRKXNXN +fractioned//FRKXNT +fractioning//FRKXNN +fractious/PY/FRKXS +fractiousness/SM/FRKXSNS +fracture/MGDS/FRKTR +fragile/Y/FRKL +fragility/MS/FRKLT +fragment/SDMG/FRKMNT +fragmentarily//FRKMNTRL +fragmentariness/M/FRKMNTRNS +fragmentary/P/FRKMNTR +fragmentation/MS/FRKMNTXN +Fragonard/M/FRKNT +fragrance/SM/FRKRNS +fragrant/Y/FRKRNT +frail/STPYR/FRL +frailness/MS/FRLNS +frailty/MS/FRLT +frame/SRDJGMZ/FRM +framed/U/FRMT +framer/M/FRM +framework/SM/FRMWK +framing/M/FRMN +Fran/MS/FRN +franc/SM/FRNK +Francaise/M/FRNKS +France/MS/FRNS +Francene/M/FRNSN +Francesca/M/FRNSSK +Francesco/M/FRNSSK +franchise/ESDG/FRNXS +franchisee/S/FRNXS +franchiser/SM/FRNXS +franchise's//FRNXSS +Franchot/M/FRNXT +Francie/M/FRNS +Francine/M/FRNSN +Francis//FRNSS +Francisca/M/FRNSSK +Franciscan/MS/FRNSSKN +Francisco/M/FRNSSK +Franciska/M/FRNSSK +Franciskus/M/FRNSSKS +francium/MS/FRNSM +Franck/M/FRNK +Francklin/M/FRNKLN +Francklyn/M/FRNKLN +Franco/M/FRNK +Francois/M/FRNKS +Francoise/M/FRNKS +francophone/M/FRNKFN +Francyne/M/FRNSN +frangibility/SM/FRNKBLT +frangible//FRNKBL +frank/SGTYRDP/FRNK +Frank/SM/FRNK +Frankel/M/FRNKL +Frankenstein/MS/FRNKNSTN +franker/M/FRNK +Frankford/M/FRNKFT +Frankfort/M/FRNKFT +Frankfurt/RM/FRNKFT +Frankfurter/M/FRNKFT +frankfurter/MS/FRNKFT +Frankie/M/FRNK +frankincense/MS/FRNKNSNS +Frankish/M/FRNKX +franklin/M/FRNKLN +Franklin/M/FRNKLN +Franklyn/M/FRNKLN +frankness/MS/FRNKNS +Franky/M/FRNK +Franni/M/FRN +Frannie/M/FRN +Franny/M/FRN +Fransisco/M/FRNSSK +frantic/PY/FRNTK +frantically//FRNTKL +franticness/M/FRNTKNS +Frants/M/FRNTS +Franz/NM/FRNS +Franzen/M/FRNSN +frappé//FRP +frappeed//FRPT +frappeing//FRPN +frappes//FRPS +Frasco/M/FRSK +Fraser/M/FRS +Frasier/M/FRS +Frasquito/M/FRSKT +frat/MS/FRT +fraternal/Y/FRTNL +fraternity/MSF/FRTNT +fraternization/SM/FRTNSXN +fraternize/GZRSD/FRTNS +fraternizer/M/FRTNS +fraternizing/U/FRTNSN +fratricidal//FRTRSTL +fratricide/MS/FRTRST +Frau/MN/FR +fraud/CS/FRT +fraud's//FRTS +fraudsters//FRTSTS +fraudulence/S/FRTLNS +fraudulent/YP/FRTLNT +fraught/SGD/FRT +Fraulein/S/FRLN +fray/CSDG/FR +Frayda/M/FRT +Frayne/M/FRN +fray's//FRS +Fraze/MR/FRS +Frazer/M/FRS +Frazier/M/FRS +frazzle/GDS/FRSL +freak/SGDM/FRK +freakish/YP/FRKX +freakishness/SM/FRKXNS +freaky/RT/FRK +freckle/GMDS/FRKL +freckly/RT/FRKL +Fred/M/FRT +Freda/M/FRT +Freddi/M/FRT +Freddie/M/FRT +Freddy/M/FRT +Fredek/M/FRTK +Fredelia/M/FRTL +Frederic/M/FRTRK +Frederica/M/FRTRK +Frederich/M/FRTRX +Frederick/MS/FRTRK +Fredericka/M/FRTRK +Frederico/M/FRTRK +Fredericton/M/FRTRKTN +Frederigo/M/FRTRK +Frederik/M/FRTRK +Frederique/M/FRTRK +Fredholm/M/FRTHLM +Fredi/M/FRT +Fredia/M/FRT +Fredra/M/FRTR +Fredric/M/FRTRK +Fredrick/M/FRTRK +Fredrickson/M/FRTRKSN +Fredrika/M/FRTRK +Free/M/FR +free/YTDRSP/FR +freebase/GDS/FRBS +freebie/MS/FRB +freeboot/ZR/FRBT +freebooter/M/FRBT +freeborn//FRBN +freedman/M/FRTMN +Freedman/M/FRTMN +freedmen//FRTMN +freedom/MS/FRTM +freehand/D/FRHNT +freehanded/Y/FRHNTT +freehold/ZSRM/FRHLT +freeholder/M/FRHLT +freeing/S/FRN +freelance/SRDGZM/FRLNS +Freeland/M/FRLNT +freeload/SRDGZ/FRLT +freeloader/M/FRLT +freeman/M/FRMN +Freeman/M/FRMN +Freemason/SM/FRMSN +freemasonry/M/FRMSNR +Freemasonry/MS/FRMSNR +freemen//FRMN +Freemon/M/FRMN +freeness/M/FRNS +Freeport/M/FRPT +freestanding//FRSTNTN +freestone/SM/FRSTN +freestyle/SM/FRSTL +freethinker/MS/FR@NK +freethinking/S/FR@NKN +Freetown/M/FRTN +freeway/MS/FRW +freewheel/SRDMGZ/FRHL +freewheeler/M/FRHL +freewheeling/P/FRHLN +freewill//FRWL +freezable//FRSBL +freeze/UGSA/FRS +freezer/SM/FRS +freezing/S/FRSN +Freida/M/FRT +freight/ZGMDRS/FRT +freighter/M/FRT +Fremont/M/FRMNT +French/MDSG/FRNX +Frenchman/M/FRNXMN +Frenchmen//FRNXMN +Frenchwoman/M/FRNXWMN +Frenchwomen//FRNXWMN +frenetic/S/FRNTK +frenetically//FRNTKL +frenzied/Y/FRNST +frenzy/MDSG/FRNS +freon/S/FRN +Freon/SM/FRN +freq//FRK +frequency/ISM/FRKNS +frequent/IY/FRKNT +frequented/U/FRKNTT +frequenter/MS/FRKNT +frequentest//FRKNTST +frequenting//FRKNTN +frequentness/M/FRKNTNS +frequents//FRKNTS +fresco/DMG/FRSK +frescoes//FRSKS +fresh/AZSRNDG/FRX +freshen/SZGDR/FRXN +freshener/M/FRXN +fresher/MA/FRX +freshest//FRXST +freshet/SM/FRXT +freshly//FRXL +freshman/M/FRXMN +freshmen//FRXMN +freshness/MS/FRXNS +freshwater/SM/FRXWT +Fresnel/M/FRSNL +Fresno/M/FRSN +fret/S/FRT +fretboard//FRTBT +fretful/PY/FRTFL +fretfulness/MS/FRTFLNS +fretsaw/S/FRTS +fretted//FRTT +fretting//FRTN +fretwork/MS/FRTWK +Freud/M/FRT +Freudian/S/FRTN +Frey/M/FR +Freya/M/FRY +Fri/M/FR +friable/P/FRBL +friableness/M/FRBLNS +friar/YMS/FR +friary/MS/FRR +fricassee/MSD/FRKS +fricasseeing//FRKSN +frication/M/FRKXN +fricative/MS/FRKTF +Frick/M/FRK +friction/MS/FRKXN +frictional/Y/FRKXNL +frictionless/Y/FRKXNLS +Friday/SM/FRT +fridge/SM/FRK +fried/A/FRT +Frieda/M/FRT +Friedan/M/FRTN +friedcake/SM/FRTKK +Friederike/M/FRTRK +Friedman/M/FRTMN +Friedrich/M/FRTRX +Friedrick/M/FRTRK +friend/SGMYD/FRNT +friendless/P/FRNTLS +friendlessness/M/FRNTLSNS +friendlies//FRNTLS +friendlily//FRNTLL +friendliness/USM/FRNTLNS +friendly/PUTR/FRNTL +friendship/MS/FRNTXP +frier's//FRS +fries/M/FRS +frieze/SDGM/FRS +frig/S/FRK +frigate/SM/FRKT +Frigga/M/FRK +frigged//FRKT +frigging/S/FRKN +fright/GXMDNS/FRT +frighten/DG/FRTN +frightening/Y/FRTNN +frightful/PY/FRTFL +frightfulness/MS/FRTFLNS +frigid/YP/FRKT +Frigidaire/M/FRKTR +frigidity/MS/FRKTT +frigidness/SM/FRKTNS +frill/MDGS/FRL +frilly/RST/FRL +fringe/IGSD/FRN +fringe's//FRNS +frippery/SM/FRPR +Frisbee/MS/FRSB +Frisco/M/FRSK +Frisian/SM/FRXN +frisk/RDGS/FRSK +frisker/M/FRSK +friskily//FRSKL +friskiness/SM/FRSKNS +frisky/RTP/FRSK +frisson/M/FRSN +Frito/M/FRT +fritter/RDSG/FRT +fritterer/M/FRTR +Fritz/M/FRTS +fritz/SM/FRTS +frivolity/MS/FRFLT +frivolous/PY/FRFLS +frivolousness/SM/FRFLSNS +frizz/GYSD/FRS +frizzle/DSG/FRSL +frizzly/RT/FRSL +frizzy/RT/FRS +fro/HS/FR +Frobisher/M/FRBX +frock/SUDGC/FRK +frocking/M/FRKN +frock's//FRKS +frog/MS/FRK +frogged//FRKT +frogging//FRKN +frogman/M/FRKMN +frogmarched//FRKMXT +frogmen//FRKMN +Froissart/M/FRST +frolic/SM/FRLK +frolicked//FRLKT +frolicker/SM/FRLK +frolicking//FRLKN +frolicsome//FRLKSM +from//FRM +Fromm/M/FRM +frond/SM/FRNT +front/GSFRD/FRNT +frontage/MS/FRNTK +frontal/SY/FRNTL +Frontenac/M/FRNTNK +frontier/SM/FRNT +frontiersman/M/FRNTSMN +frontiersmen//FRNTSMN +frontispiece/SM/FRNTSPS +frontrunner's//FRNTRNS +front's//FRNTS +frontward/S/FRNTWT +frosh/M/FRX +frost/CDSG/FRST +Frost/M/FRST +Frostbelt/M/FRSTBLT +frostbit/G/FRSTBT +frostbite/MS/FRSTBT +frostbiting/M/FRSTBTN +frostbitten//FRSTBTN +frosted/U/FRSTT +frosteds//FRSTTS +frostily//FRSTL +frostiness/SM/FRSTNS +frosting/MS/FRSTN +frost's//FRSTS +frosty/PTR/FRST +froth/GMD/FR@ +frothiness/SM/FR@NS +froths//FR@S +frothy/TRP/FR@ +froufrou/MS/FRFR +froward/P/FRWT +frowardness/MS/FRWTNS +frown/RDSG/FRN +frowner/M/FRN +frowning/Y/FRNN +frowzily//FRSL +frowziness/SM/FRSNS +frowzy/RPT/FRS +froze/UA/FRS +frozen/YP/FRSN +frozenness/M/FRSNS +fructify/GSD/FRKTF +fructose/MS/FRKTS +Fruehauf/M/FRHF +frugal/Y/FRKL +frugality/SM/FRKLT +fruit/GMRDS/FRT +fruitcake/SM/FRTKK +fruiter/RM/FRT +fruiterer/M/FRTR +fruitful/UYP/FRTFL +fruitfuller//FRTFL +fruitfullest//FRTFLST +fruitfulness/MS/FRTFLNS +fruitiness/MS/FRTNS +fruition/SM/FRXN +fruitless/YP/FRTLS +fruitlessness/MS/FRTLSNS +fruity/RPT/FRT +frump/MS/FRMP +frumpish//FRMPX +frumpy/TR/FRMP +Frunze/M/FRNS +frustrate/RSDXNG/FRSTRT +frustrater/M/FRSTRT +frustrating/Y/FRSTRTN +frustration/M/FRSTRXN +frustum/SM/FRSTM +Fry/M/FR +fry/NGDS/FR +Frye/M/FRY +fryer/MS/FRY +F's//FS +f's/KA/FS +FSLIC//FSLK +ft/C/FT +FTC//FTK +FTP//FTP +Fuchs/M/FXS +fuchsia/MS/FXX +fuck/GZJRDMS/FK +fucker/M/FK +FUD//FT +fuddle/GSD/FTL +fudge/GMSD/FK +fuel/ASDG/FL +fueler/SM/FL +fuel's//FLS +Fuentes/M/FNTS +fugal//FKL +Fugger/M/FK +fugitive/SYMP/FKTF +fugitiveness/M/FKTFNS +fugue/GMSD/FK +fuhrer/S/FR +Fuji/M/FK +Fujitsu/M/FKTS +Fujiyama//FKYM +Fukuoka/M/FKK +Fulani/M/FLN +Fulbright/M/FLBRT +fulcrum/SM/FLKRM +fulfill/GLSRD/FLFL +fulfilled/U/FLFLT +fulfiller/M/FLFL +fulfillment/MS/FLFLMNT +full/RDPSGZT/FL +fullback/SMG/FLBK +fuller/DMG/FL +Fuller/M/FL +Fullerton/M/FLTN +fullish//FLX +fullness/MS/FLNS +fullstops//FLSTPS +fullword/SM/FLWT +fully//FL +fulminate/XSDGN/FLMNT +fulmination/M/FLMNXN +fulness's//FLNSS +fulsome/PY/FLSM +fulsomeness/SM/FLSMNS +Fulton/M/FLTN +Fulvia/M/FLF +fumble/GZRSD/FMBL +fumbler/M/FMBL +fumbling/Y/FMBLN +fume/DSG/FM +fumigant/MS/FMKNT +fumigate/NGSDX/FMKT +fumigation/M/FMKXN +fumigator/SM/FMKT +fuming/Y/FMN +fumy/TR/FM +fun/MS/FN +Funafuti//FNFT +function/GSMD/FNKXN +functional/YS/FNKXNL +functionalism/M/FNKXNLSM +functionalist/SM/FNKXNLST +functionality/S/FNKXNLT +functionary/MS/FNKXNR +functor/SM/FNKT +fund/ASMRDZG/FNT +fundamental/SY/FNTMNTL +fundamentalism/SM/FNTMNTLSM +fundamentalist/SM/FNTMNTLST +funded/U/FNTT +fundholders//FNTHLTS +fundholding//FNTHLTN +funding/S/FNTN +Fundy/M/FNT +funeral/MS/FNRL +funerary//FNRR +funereal/Y/FNRL +funfair/M/FNF +fungal/S/FNKL +fungi/M/FNK +fungible/M/FNKBL +fungicidal//FNKSTL +fungicide/SM/FNKST +fungoid/S/FNKT +fungous//FNKS +fungus/M/FNKS +funicular/SM/FNKL +funk/GSDM/FNK +funkiness/S/FNKNS +funky/RTP/FNK +funned//FNT +funnel/SGMD/FNL +funner//FN +funnest//FNST +funnily/U/FNL +funniness/SM/FNNS +funning//FNN +funny/RSPT/FN +fur/PMS/F +furbelow/MDSG/FBL +furbish/GDRSA/FBX +furbisher/M/FBX +furious/RYP/FRS +furiousness/M/FRSNS +furl/UDGS/FL +furlong/MS/FLNK +furlough/DGM/FL +furloughs//FLS +furn//FN +furnace/GMSD/FNS +furnish/GASD/FNX +furnished/U/FNXT +furnisher/MS/FNX +furnishing/SM/FNXN +furniture/SM/FNTR +furor/MS/FR +furore/MS/FRR +furred//FRT +furrier/M/FR +furriness/SM/FRNS +furring/SM/FRN +furrow/DMGS/FR +furry/RTZP/FR +further/TGDRS/F@ +furtherance/MS/F@RNS +furtherer/M/F@R +furthermore//F@MR +furthermost//F@MST +furthest//F@ST +furtive/PY/FTF +furtiveness/SM/FTFNS +fury/SM/FR +furze/SM/FS +fuse/FSDAGCI/FS +fusebox/S/FSBKS +fusee/SM/FS +fuselage/SM/FSLK +fuse's/A/FSS +Fushun/M/FXN +fusibility/SM/FSBLT +fusible/I/FSBL +fusiform//FSFM +fusilier/MS/FSL +fusillade/SDMG/FSLT +fusion/KMFSI/FXN +fuss/SRDMG/FS +fussbudget/MS/FSBKT +fusser/M/FS +fussily//FSL +fussiness/MS/FSNS +fusspot/SM/FSPT +fussy/PTR/FS +fustian/MS/FSXN +fustiness/MS/FSTNS +fusty/RPT/FST +fut//FT +futile/PY/FTL +futileness/M/FTLNS +futility/MS/FTLT +futon/S/FTN +future/SM/FTR +futurism/SM/FTRSM +futurist/S/FTRST +futuristic/S/FTRSTK +futurity/MS/FTRT +futurologist/S/FTRLKST +futurology/MS/FTRLK +futz/GSD/FTS +fuze's//FSS +Fuzhou/M/FSH +fuzz/SDMG/FS +Fuzzbuster/M/FSBST +fuzzily//FSL +fuzziness/SM/FSNS +fuzzy/PRT/FS +fwd//FT +FWD//FT +fwy//F +FY//F +FYI//FY +G/B/K +g/VBX/K +GA//K +Ga/M/K +gab/S/KB +gabardine/SM/KBTN +gabbed//KBT +Gabbey/M/KB +Gabbi/M/KB +Gabbie/M/KB +gabbiness/S/KBNS +gabbing//KBN +gabble/SDG/KBL +Gabby/M/KB +gabby/TRP/KB +Gabe/M/KB +gaberdine's//KBTNS +Gabey/M/KB +gabfest/MS/KBFST +Gabi/M/KB +Gabie/M/KB +gable/GMSRD/KBL +Gable/M/KBL +Gabon/M/KBN +Gabonese//KBNS +Gaborone/M/KBRN +Gabriel/M/KBRL +Gabriela/M/KBRL +Gabriele/M/KBRL +Gabriell/M/KBRL +Gabriella/M/KBRL +Gabrielle/M/KBRL +Gabriellia/M/KBRL +Gabriello/M/KBRL +Gabrila/M/KBRL +Gaby/M/KB +Gacrux/M/KKRKS +gad/S/KT +gadabout/MS/KTBT +gadded//KTT +gadder/MS/KT +gadding//KTN +gadfly/MS/KTFL +gadget/SM/KKT +gadgetry/MS/KKTR +gadolinium/MS/KTLNM +Gadsden/M/KTSTN +Gae/M/K +Gaea/M/K +Gael/SM/KL +Gaelan/M/KLN +Gaelic/M/KLK +gaff/SGZRDM/KF +gaffe/MS/KF +gaffer/M/KF +gag/DRSG/KK +gaga//KK +Gagarin/M/KKRN +Gage/M/KK +gage/SM/KK +gager/M/KK +gagged//KKT +gagging//KKN +gaggle/SDG/KKL +gagwriter/S/KKRT +gaiety/MS/KT +Gail/M/KL +Gaile/M/KL +gaily//KL +gain/ADGS/KN +gainer/SM/KN +Gaines/M/KNS +Gainesville/M/KNSFL +gainful/YP/KNFL +gainfulness/M/KNFLNS +gaining/S/KNN +gainly/U/KNL +gainsaid//KNST +gainsay/RSZG/KNS +gainsayer/M/KNSY +Gainsborough/M/KNSBR +gait/GSZMRD/KT +gaiter/M/KT +Gaithersburg/M/K@SBK +gal/AS/KL +Gal/MN/KL +gala/SM/KL +galactic//KLKTK +Galahad/MS/KLHT +Galapagos/M/KLPKS +Galatea/M/KLT +Galatia/M/KLX +Galatians/M/KLXNS +Galaxy/M/KLKS +galaxy/MS/KLKS +Galbraith/M/KLBR@ +Galbreath/M/KLBR@ +gale/AS/KL +Gale/M/KL +galen//KLN +Galen/M/KLN +galena/MS/KLN +galenite/M/KLNT +gale's//KLS +Galibi/M/KLB +Galilean/MS/KLLN +Galilee/M/KLL +Galileo/M/KLL +Galina/M/KLN +Gall/M/KL +gall/SGMD/KL +Gallagher/M/KLK +gallant/UY/KLNT +gallanted//KLNTT +gallanting//KLNTN +gallantry/MS/KLNTR +gallants//KLNTS +Gallard/M/KLT +gallbladder/MS/KLBLT +Gallegos/M/KLKS +galleon/SM/KLN +galleria/S/KLR +gallery/MSDG/KLR +galley/MS/KL +Gallic//KLK +Gallicism/SM/KLSSM +gallimaufry/MS/KLMFR +galling/Y/KLN +gallium/SM/KLM +gallivant/GDS/KLFNT +gallon/SM/KLN +gallonage/M/KLNK +gallop/GSRDZ/KLP +galloper/M/KLP +Galloway/M/KLW +gallows/M/KLS +gallstone/MS/KLSTN +Gallup/M/KLP +Galois/M/KLS +galoot/MS/KLT +galore/S/KLR +galosh/GMSD/KLX +gal's//KLS +Galsworthy/M/KLSW@ +galumph/GD/KLMF +galumphs//KLMFS +Galvan/M/KLFN +Galvani/M/KLFN +galvanic//KLFNK +galvanism/MS/KLFNSM +galvanization/SM/KLFNSXN +galvanize/SDG/KLFNS +galvanometer/SM/KLFNMT +galvanometric//KLFNMTRK +Galven/M/KLFN +Galveston/M/KLFSTN +Galvin/M/KLFN +Gama/M/KM +Gamaliel/M/KMLL +Gambia/M/KMB +Gambian/S/KMBN +gambit/MS/KMBT +gamble/GZRSD/KMBL +Gamble/M/KMBL +gambler/M/KMBL +gambol/SGD/KMBL +game/PJDRSMYTZG/KM +gamecock/SM/KMKK +gamekeeper/MS/KMKP +gameness/MS/KMNS +gamesmanship/SM/KMSMNXP +gamesmen//KMSMN +gamest/RZ/KMST +gamester/M/KMST +gamete/MS/KMT +gametic//KMTK +gamin/MS/KMN +gamine/SM/KMN +gaminess/MS/KMNS +gaming/M/KMN +gamma/MS/KM +gammon/DMSG/KMN +Gamow/M/KM +gamut/MS/KMT +gamy/TRP/KM +Gan/M/KN +gander/DMGS/KNT +Gandhi/M/KNTH +Gandhian//KNTHN +gang/GRDMS/KNK +gangbusters//KNKBSTS +ganger/M/KNK +Ganges/M/KNKS +gangland/SM/KNKLNT +ganglia/M/KNKL +gangling//KNKLN +ganglion/M/KNKLN +ganglionic//KNKLNK +gangplank/SM/KNKPLNK +gangrene/SDMG/KNKRN +gangrenous//KNKRNS +gangster/SM/KNKST +Gangtok/M/KNKTK +gangway/MS/KNKW +gannet/SM/KNT +Gannie/M/KN +Gannon/M/KNN +Ganny/M/KN +gantlet/GMDS/KNTLT +Gantry/M/KNTR +gantry/MS/KNTR +Ganymede/M/KNMT +GAO//K +gaol/MRDGZS/KL +gaoler/M/KL +gap/SJMDRG/KP +gape/S/KP +gaper/M/KP +gaping/Y/KPN +gapped//KPT +gapping//KPN +Gar/MH/K +gar/SLM/K +garage/GMSD/KRK +Garald/M/KRLT +garb/DMGS/KB +garbage/SDMG/KBK +garbageman/M/KBKMN +garbanzo/MS/KBNS +garble/RSDG/KBL +garbler/M/KBL +Garbo/M/KB +Garcia/M/KX +garçon/SM/KN +Gard/M/KT +garden/ZGRDMS/KTN +gardener/M/KTN +Gardener/M/KTN +gardenia/SM/KTN +gardening/M/KTNN +Gardie/M/KT +Gardiner/M/KTN +Gardner/M/KTN +Gardy/M/KT +Gare/MH/KR +Garek/M/KRK +Gareth/M/KR@ +Garey/M/KR +Garfield/M/KFLT +garfish/MS/KFX +Garfunkel/M/KFNKL +Gargantua/M/KKNT +gargantuan//KKNTN +gargle/SDG/KKL +gargoyle/DSM/KKL +Garibaldi/M/KRBLT +Garik/M/KRK +garish/YP/KRX +garishness/MS/KRXNS +Garland/M/KLNT +garland/SMDG/KLNT +garlic/SM/KLK +garlicked//KLKT +garlicking//KLKN +garlicky//KLK +garment/MDGS/KMNT +Garner/M/KN +garner/SGD/KN +Garnet/M/KNT +garnet/SM/KNT +Garnett/M/KNT +Garnette/M/KNT +garnish/DSLG/KNX +garnishee/SDM/KNX +garnisheeing//KNXN +garnishment/MS/KNXMNT +Garold/M/KRLT +garote's//KRTS +garotte's//KRTS +Garrard/M/KRT +garred//KRT +Garrek/M/KRK +Garret/M/KRT +garret/SM/KRT +Garreth/M/KR@ +Garrett/M/KRT +Garrick/M/KRK +Garrik/M/KRK +garring//KRN +Garrison/M/KRSN +garrison/SGMD/KRSN +Garrot/M/KRT +garrote/SRDMZG/KRT +garroter/M/KRT +Garrott/M/KRT +garrotte's//KRTS +garrulity/SM/KRLT +garrulous/PY/KRLS +garrulousness/MS/KRLSNS +Garry/M/KR +garter/SGDM/KT +Garth/M/K@ +Garv/M/KF +Garvey/M/KF +Garvin/M/KFN +Garvy/M/KF +Garwin/M/KWN +Garwood/M/KWT +Gary/M/KR +Garza/M/KS +gas/FC/KS +gasbag/MS/KSBK +Gascony/M/KSKN +gaseous/YP/KSS +gaseousness/M/KSSNS +gases/C/KSS +gash/GTMSRD/KX +gasification/M/KSFKXN +gasifier/M/KSF +gasify/SRDGXZN/KSF +gasket/SM/KSKT +gaslight/DMS/KSLT +gasohol/S/KSHL +gasoline/MS/KSLN +gasometer/M/KSMT +gasp/GZSRD/KSP +Gaspar/M/KSP +Gaspard/M/KSPT +Gasparo/M/KSPR +gasper/M/KSP +Gasper/M/KSP +gasping/Y/KSPN +gas's//KSS +gassed/C/KST +Gasser/M/KS +gasser/MS/KS +Gasset/M/KST +gassiness/M/KSNS +gassing/SM/KSN +gassy/PTR/KS +Gaston/M/KSTN +gastric//KSTRK +gastritides//KSTRTTS +gastritis/MS/KSTRTS +gastroenteritides//KSTRNTRTTS +gastroenteritis/M/KSTRNTRTS +gastrointestinal//KSTRNTSTNL +gastronome/SM/KSTRNM +gastronomic//KSTRNMK +gastronomical/Y/KSTRNMKL +gastronomy/MS/KSTRNM +gastropod/SM/KSTRPT +gasworks/M/KSWKS +gate/MGDS/KT +gateau/MS/KT +gateaux//KTKS +gatecrash/GZSRD/KTKRX +gatehouse/MS/KTHS +gatekeeper/SM/KTKP +gatepost/SM/KTPST +Gates//KTS +gateway/MS/KTW +gather/JRDZGS/K@ +gathered/IA/K@RT +gatherer/M/K@R +gathering/M/K@RN +gathers/A/K@S +Gatlinburg/M/KTLNBK +Gatling/M/KTLN +gator/MS/KT +Gatorade/M/KTRT +Gatsby/M/KTSB +Gatun/M/KTN +gauche/TYPR/KX +gaucheness/SM/KXNS +gaucherie/SM/KXR +gaucho/SM/KX +gaudily//KTL +gaudiness/MS/KTNS +gaudy/PRST/KT +gaugeable//KKBL +gauger/M/KK +Gauguin/M/KKN +Gaul/MS/KL +Gaulish/M/KLX +Gaulle/M/KL +Gaultiero/M/KLTR +gaunt/PYRDSGT/KNT +gauntlet/GSDM/KNTLT +Gauntley/M/KNTL +gauntness/MS/KNTNS +gauss/C/KS +Gauss/M/KS +gausses//KSS +Gaussian//KXN +gauss's//KSS +Gautama/M/KTM +Gauthier/M/K@ +Gautier/M/KT +gauze/SDGM/KS +gauziness/MS/KSNS +gauzy/TRP/KS +Gav/MN/KF +Gavan/M/KFN +gave//KF +gavel/GMDS/KFL +Gaven/M/KFN +Gavin/M/KFN +gavotte/MSDG/KFT +Gavra/M/KFR +Gavrielle/M/KFRL +Gawain/M/KWN +Gawen/M/KWN +gawk/SGRDM/KK +gawkily//KKL +gawkiness/MS/KKNS +gawky/RSPT/KK +Gay/M/K +gay/RTPS/K +Gaye/M/KY +Gayel/M/KYL +Gayelord/M/KYLT +gayety's//KYTS +Gayla/M/KL +Gayle/RM/KL +Gayleen/M/KLN +Gaylene/M/KLN +Gayler/M/KL +Gaylor/M/KL +Gaylord/M/KLT +gayness/SM/KNS +Gaynor/M/KN +Gaza/M/KS +gaze/DRSZG/KS +gazebo/SM/KSB +gazelle/MS/KSL +gazer/M/KS +gazette/MGSD/KST +gazetteer/SGDM/KST +Gaziantep/M/KSNTP +gazillion/S/KSLN +gazpacho/MS/KSPX +GB//KB +Gd/M/KT +Gdansk/M/KTNSK +GDP//KTP +Ge/M/K +GE/M/K +gear/DMJSG/K +Gearalt/M/KRLT +Gearard/M/KRT +gearbox/SM/KBKS +gearing/M/KRN +gearshift/MS/KXFT +gearstick//KSTK +gearwheel/SM/KHL +Geary/M/KR +gecko/MS/KK +GED//KT +gee/TDS/K +geegaw's//KKS +geeing//KN +geek/SM/KK +geeky/RT/KK +geese/M/KS +geest/M/KST +geezer/MS/KS +Gehenna/M/KHN +Gehrig/M/KRK +Geiger/M/KK +Geigy/M/KK +geisha/M/KX +gel/MBS/KL +gelatin/SM/KLTN +gelatinous/PY/KLTNS +gelatinousness/M/KLTNSNS +gelcap//KLKP +geld/JSGD/KLT +gelding/M/KLTN +gelid//KLT +gelignite/MS/KLKNT +gelled//KLT +gelling//KLN +Gelya/M/KLY +gem/MS/KM +Gemini/SM/KMN +gemlike//KMLK +Gemma/M/KM +gemmed//KMT +gemming//KMN +gemological//KMLKKL +gemologist/MS/KMLKST +gemology/MS/KMLK +gemstone/SM/KMSTN +gen//KN +Gen/M/KN +Gena/M/KN +Genaro/M/KNR +gendarme/MS/KNTM +gender/DMGS/KNT +genderless//KNTLS +Gene/M/KN +gene/MS/KN +genealogical/Y/KNLKKL +genealogist/SM/KNLKST +genealogy/MS/KNLK +genera/M/KNR +general/MSPY/KNRL +generalissimo/SM/KNRLSM +generalist/MS/KNRLST +generality/MS/KNRLT +generalizable/SM/KNRLSBL +generalization/MS/KNRLSXN +generalize/GZBSRD/KNRLS +generalized/U/KNRLST +generalizer/M/KNRLS +generalness/M/KNRLNS +generalship/SM/KNRLXP +generate/CXAVNGSD/KNRT +generation/MCA/KNRXN +generational//KNRXNL +generative/AY/KNRTF +generator/SM/KNRT +generators/A/KNRTS +generic/PS/KNRK +generically//KNRKL +generosity/MS/KNRST +generous/PY/KNRS +generously/U/KNRSL +generousness/SM/KNRSNS +genes/S/KNS +Genesco/M/KNSK +genesis/M/KNSS +Genesis/M/KNSS +Genet/M/KNT +genetic/S/KNTK +genetically//KNTKL +geneticist/MS/KNTSST +genetics/M/KNTKS +Geneva/M/KNF +Genevieve/M/KNFF +Genevra/M/KNFR +Genghis/M/KNKS +Genia/M/KN +genial/PY/KNL +geniality/FMS/KNLT +genially/F/KNL +genialness/M/KNLNS +genie/SM/KN +genies/K/KNS +genii/M/KN +genital/YF/KNTL +genitalia//KNTL +genitals//KNTLS +genitive/SM/KNTF +genitourinary//KNTRNR +genius/SM/KNS +Genna/M/KN +Genni/M/KN +Gennie/M/KN +Gennifer/M/KNF +Genny/M/KN +Geno/M/KN +Genoa/SM/KN +genocidal//KNSTL +genocide/SM/KNST +genome/SM/KNM +genotype/MS/KNTP +Genovera/M/KNFR +genre/MS/KNR +gent/AMS/KNT +genteel/PRYT/KNTL +genteelness/MS/KNTLNS +gentian/SM/KNXN +gentile/S/KNTL +Gentile's//KNTLS +gentility/MS/KNTLT +gentle/PRSDGT/KNTL +gentlefolk/S/KNTLFLK +gentleman/YM/KNTLMN +gentlemanliness/M/KNTLMNLNS +gentlemanly/U/KNTLMNL +gentlemen//KNTLMN +gentleness/SM/KNTLNS +gentlewoman/M/KNTLWMN +gentlewomen/M/KNTLWMN +gently//KNTL +gentrification/M/KNTRFKXN +gentrify/NSDGX/KNTRF +Gentry/M/KNTR +gentry/MS/KNTR +genuflect/GDS/KNFLKT +genuflection/MS/KNFLKXN +genuine/PY/KNN +genuineness/SM/KNNNS +genus//KNS +Genvieve/M/KNFF +Geo/M/K +geocentric//KSNTRK +geocentrically//KSNTRKL +geocentricism//KSNTRSSM +geochemical/Y/KXMKL +geochemistry/MS/KXMSTR +geochronology/M/KXRNLK +geode/SM/KT +geodesic/S/KTSK +geodesy/MS/KTS +geodetic/S/KTTK +Geoff/M/KF +Geoffrey/M/KFR +Geoffry/M/KFR +geog//KK +geographer/MS/KKRF +geographic//KKRFK +geographical/Y/KKRFKL +geography/MS/KKRF +geologic//KLKK +geological/Y/KLKKL +geologist/MS/KLKST +geology/MS/KLK +geom//KM +geomagnetic//KMKNTK +geomagnetically//KMKNTKL +geomagnetism/SM/KMKNTSM +geometer/MS/KMT +geometric/S/KMTRK +geometrical/Y/KMTRKL +geometrician/M/KMTRXN +geometry/MS/KMTR +geomorphological//KMFLKKL +geomorphology/M/KMFLK +geophysical/Y/KFSKL +geophysicist/MS/KFSSST +geophysics/M/KFSKS +geopolitic/S/KPLTK +geopolitical/Y/KPLTKL +geopolitics/M/KPLTKS +Georas/M/KRS +Geordie/M/KT +Georg/M/KK +George/SM/KK +Georgeanna/M/KKN +Georgeanne/M/KKN +Georgena/M/KKN +Georgeta/M/KKT +Georgetown/M/KKTN +Georgetta/M/KKT +Georgette/M/KKT +Georgi/M/KK +Georgia/M/KK +Georgian/S/KKN +Georgiana/M/KKN +Georgianna/M/KKN +Georgianne/M/KKN +Georgie/M/KK +Georgina/M/KKN +Georgine/M/KKN +Georgy/M/KK +geostationary//KSTXNR +geosynchronous//KSNXRNS +geosyncline/SM/KSNKLN +geothermal//K@ML +geothermic//K@MK +Ger/M/K +Gerald/M/KRLT +Geralda/M/KRLT +Geraldine/M/KRLTN +geranium/SM/KRNM +Gerard/M/KRT +Gerardo/M/KRT +Gerber/M/KB +gerbil/MS/KBL +Gerda/M/KT +Gerek/M/KRK +Gerhard/M/KHT +Gerhardine/M/KHTN +Gerhardt/M/KHTT +Geri/M/KR +Gerianna/M/KRN +Gerianne/M/KRN +geriatric/S/KRTRK +geriatrics/M/KRTRKS +Gerick/M/KRK +Gerik/M/KRK +Geritol/M/KRTL +Gerladina/M/KLTN +germ/MNS/KM +Germain/M/KMN +Germaine/M/KMN +German/SM/KMN +Germana/M/KMN +germane//KMN +Germania/M/KMN +Germanic/M/KMNK +germanium/SM/KMNM +germanized//KMNST +Germantown/M/KMNTN +Germany/M/KMN +Germayne/M/KMN +germen/M/KMN +germicidal//KMSTL +germicide/MS/KMST +germinal/Y/KMNL +germinate/XVGNSD/KMNT +germinated/U/KMNTT +germination/M/KMNXN +germinative/Y/KMNTF +Gerome/M/KRM +Geronimo/M/KRNM +gerontocracy/M/KRNTKRS +gerontological//KRNTLKKL +gerontologist/SM/KRNTLKST +gerontology/SM/KRNTLK +Gerrard/M/KRT +Gerri/M/KR +Gerrie/M/KR +Gerrilee/M/KRL +Gerry/M/KR +gerrymander/SGD/KRMNT +Gershwin/MS/KXWN +Gert/M/KT +Gerta/M/KT +Gerti/M/KT +Gertie/M/KT +Gertrud/M/KTRT +Gertruda/M/KTRT +Gertrude/M/KTRT +Gertrudis/M/KTRTS +Gerty/M/KT +gerund/SVM/KRNT +gerundive/M/KRNTF +Gery/M/KR +gestalt/M/KSTLT +gestapo/S/KSTP +Gestapo/SM/KSTP +gestate/SDGNX/KSTT +gestation/M/KSTXN +gestational//KSTXNL +gesticulate/XSDVGN/KSTKLT +gesticulation/M/KSTKLXN +gesticulative/Y/KSTKLTF +gestural//KSTRL +gesture/SDMG/KSTR +gesundheit//KSNTHT +get/S/KT +getaway/SM/KTW +Gethsemane/M/K@SMN +getter/SDM/KT +getting//KTN +Getty/M/KT +Gettysburg/M/KTSBK +getup/MS/KTP +gewgaw/MS/KK +Gewürztraminer//KRSTRMN +geyser/GDMS/KS +Ghana/M/KN +Ghanaian/MS/KNN +Ghanian's//KNNS +ghastliness/MS/KSTLNS +ghastly/TPR/KSTL +ghat/MS/KT +Ghats/M/KTS +Ghent/M/KNT +Gherardo/M/KRT +gherkin/SM/KKN +ghetto/DGMS/KT +ghettoize/SDG/KTS +Ghibelline/M/KBLN +ghost/SMYDG/KST +ghostlike//KSTLK +ghostliness/MS/KSTLNS +ghostly/TRP/KSTL +ghostwrite/RSGZ/KSTRT +ghostwritten//KSTRTN +ghostwrote//KSTRT +ghoul/SM/KL +ghoulish/PY/KLX +ghoulishness/SM/KLXNS +GHQ//K +GI//K +Giacinta/M/KSNT +Giacobo/M/KKB +Giacometti/M/KKMT +Giacomo/M/KKM +Giacopo/M/KKP +Gian/M/KN +Giana/M/KN +Gianina/M/KNN +Gianna/M/KN +Gianni/M/KN +Giannini/M/KNN +giant/SM/KNT +giantess/MS/KNTS +giantkiller//KNTKL +Giauque/M/KK +Giavani/M/KFN +Gib/M/KB +Gibb/MS/KB +gibber/DGS/KB +gibberish/MS/KBRX +gibbet/MDSG/KBT +Gibbie/M/KB +Gibbon/M/KBN +gibbon/MS/KBN +gibbous/YP/KBS +gibbousness/M/KBSNS +Gibby/M/KB +gibe/GDRS/KB +giber/M/KB +giblet/MS/KBLT +Gibraltar/MS/KBRLT +Gibson/M/KBSN +giddap//KTP +giddily//KTL +giddiness/SM/KTNS +Giddings/M/KTNS +giddy/GPRSDT/KT +Gide/M/KT +Gideon/MS/KTN +Gielgud/M/KLKT +Gienah/M/KN +Giff/RM/KF +Giffard/M/KFT +Giffer/M/KF +Giffie/M/KF +Gifford/M/KFT +Giffy/M/KF +gift/SGMD/KFT +gifted/PY/KFTT +giftedness/M/KFTTNS +gig/MS/KK +gigabyte/S/KKBT +gigacycle/MS/KKSKL +gigahertz/M/KKHTS +gigantic/P/KKNTK +gigantically//KKNTKL +giganticness/M/KKNTKNS +gigavolt//KKFLT +gigawatt/M/KKWT +gigged//KKT +gigging//KKN +giggle/RSDGZ/KKL +giggler/M/KKL +giggling/Y/KKLN +giggly/TR/KKL +Gigi/M/KK +GIGO//KK +gigolo/MS/KKL +Gil/MY/KL +gila//KL +Gila/M/KL +gilbert/M/KLBT +Gilbert/M/KLBT +Gilberta/M/KLBT +Gilberte/M/KLBT +Gilbertina/M/KLBTN +Gilbertine/M/KLBTN +Gilberto/M/KLBT +Gilbertson/M/KLBTSN +Gilburt/M/KLBT +Gilchrist/M/KLXRST +gild/JSGZRD/KLT +Gilda/M/KLT +gilder/M/KLT +gilding/M/KLTN +Gilead/M/KLT +Gilemette/M/KLMT +Giles//KLS +Gilgamesh/M/KLKMX +Gilkson/M/KLKSN +Gill/M/KL +gill/SGMRD/KL +Gillan/M/KLN +Gilles//KLS +Gillespie/M/KLSP +Gillette/M/KLT +Gilli/M/KL +Gilliam/M/KLM +Gillian/M/KLN +Gillie/M/KL +Gilligan/M/KLKN +Gilly/M/KL +Gilmore/M/KLMR +gilt/S/KLT +gimbaled//KMBLT +gimbals//KMBLS +Gimbel/M/KMBL +gimcrack/S/KMKRK +gimcrackery/SM/KMKRKR +gimlet/MDSG/KMLT +gimme/S/KM +gimmick/GDMS/KMK +gimmickry/MS/KMKR +gimmicky//KMK +gimp/GSMD/KMP +gimpy/RT/KMP +gin/MS/KN +Gina/M/KN +Ginelle/M/KNL +Ginevra/M/KNFR +Ginger/M/KN +ginger/SGDYM/KN +gingerbread/SM/KNBRT +gingerliness/M/KNLNS +gingerly/P/KNL +gingersnap/SM/KNSNP +gingery//KNR +gingham/SM/KNHM +gingivitis/SM/KNFTS +Gingrich/M/KNRX +ginkgo/M/KNKK +ginkgoes//KNKKS +ginmill//KNML +ginned//KNT +Ginni/M/KN +Ginnie/M/KN +Ginnifer/M/KNF +ginning//KNN +Ginny/M/KN +Gino/M/KN +Ginsberg/M/KNSBK +Ginsburg/M/KNSBK +ginseng/SM/KNSNK +Gioconda/M/KKNT +Giordano/M/KTN +Giorgi/M/KK +Giorgia/M/KK +Giorgio/M/KK +Giorgione/M/KKN +Giotto/M/KT +Giovanna/M/KFN +Giovanni/M/KFN +Gipsy's//KPSS +giraffe/MS/KRF +Giralda/M/KRLT +Giraldo/M/KRLT +Giraud/M/KRT +Giraudoux/M/KRTKS +gird/RDSGZ/KT +girded/U/KTT +girder/M/KT +girdle/GMRSD/KTL +girdler/M/KTL +girl/MS/KL +girlfriend/MS/KLFRNT +girlhood/SM/KLHT +girlie/M/KL +girlish/YP/KLX +girlishness/SM/KLXNS +giro/M/KR +girt/GDS/KT +girth/MDG/K@ +girths//K@S +Gisela/M/KSL +Giselbert/M/KSLBT +Gisele/M/KSL +Gisella/M/KSL +Giselle/M/KSL +Gish/M/KX +gist/MS/KST +git/M/KT +Giuditta/M/KTT +Giulia/M/KL +Giuliano/M/KLN +Giulietta/M/KLT +Giulio/M/KL +Giuseppe/M/KSP +Giustina/M/KSTN +Giustino/M/KSTN +Giusto/M/KST +give/HZGRS/KF +giveaway/SM/KFW +giveback/S/KFBK +given/SP/KFN +giver/M/KF +giving/Y/KFN +Giza/M/KS +Gizela/M/KSL +gizmo's//KSMS +gizzard/SM/KST +Gk/M/KK +glacé/DGS/KLK +glacial/Y/KLXL +glaciate/XNGDS/KLXT +glaciation/M/KLXXN +glacier/SM/KLS +glaciological//KLSLKKL +glaciologist/M/KLSLKST +glaciology/M/KLSLK +Glad/M/KLT +glad/YSP/KLT +gladded//KLTT +gladden/GDS/KLTN +gladder//KLT +gladdest//KLTST +gladding//KLTN +gladdy//KLT +glade/SM/KLT +Gladi/M/KLT +gladiator/SM/KLTT +gladiatorial//KLTTRL +gladiola/MS/KLTL +gladioli//KLTL +gladiolus/M/KLTLS +gladly/RT/KLTL +gladness/MS/KLTNS +gladsome/RT/KLTSM +Gladstone/MS/KLTSTN +Gladys//KLTS +glamor/DMGS/KLM +glamorization/MS/KLMRSXN +glamorize/SRDZG/KLMRS +glamorizer/M/KLMRS +glamorous/PY/KLMRS +glamorousness/M/KLMRSNS +glance/GJSD/KLNS +glancing/Y/KLNSN +gland/ZSM/KLNT +glanders/M/KLNTS +glandes//KLNTS +glandular/Y/KLNTL +glans/M/KLNS +glare/SDG/KLR +glaring/YP/KLRN +glaringness/M/KLRNNS +Glaser/M/KLS +Glasgow/M/KLSK +glasnost/S/KLSNST +glass/GSDM/KLS +Glass/M/KLS +glassblower/S/KLSBLW +glassblowing/MS/KLSBLWN +glassful/MS/KLSFL +glasshouse/SM/KLXS +glassily//KLSL +glassiness/SM/KLSNS +glassless//KLSLS +glassware/SM/KLSWR +glasswort/M/KLSWT +glassy/PRST/KLS +Glastonbury/M/KLSTNBR +Glaswegian/S/KLSWKN +glaucoma/SM/KLKM +glaucous//KLKS +glaze/SRDGZJ/KLS +glazed/U/KLST +glazer/M/KLS +glazier/SM/KLS +glazing/M/KLSN +gleam/MDGS/KLM +glean/RDGZJS/KLN +gleaner/M/KLN +gleaning/M/KLNN +Gleason/M/KLSN +Gleda/M/KLT +glee/DSM/KL +gleed/M/KLT +gleeful/YP/KLFL +gleefulness/MS/KLFLNS +gleeing//KLN +Glen/M/KLN +glen/SM/KLN +Glenda/M/KLNT +Glendale/M/KLNTL +Glenden/M/KLNTN +Glendon/M/KLNTN +Glenine/M/KLNN +Glenn/M/KLN +Glenna/M/KLN +Glennie/M/KLN +Glennis/M/KLNS +glib/YP/KLB +glibber//KLB +glibbest//KLBST +glibness/MS/KLBNS +glide/JGZSRD/KLT +glider/M/KLT +glim/M/KLM +glimmer/DSJG/KLM +glimmering/M/KLMRN +glimpse/DRSZMG/KLMPS +glimpser/M/KLMPS +glint/DSG/KLNT +glissandi//KLSNT +glissando/M/KLSNT +glisten/DSG/KLSTN +glister/DGS/KLST +glitch/MS/KLX +glitter/GDSJ/KLT +glittering/Y/KLTRN +glittery//KLTR +glitz/GSD/KLTS +glitzy/TR/KLTS +gloaming/MS/KLMN +gloat/SRDG/KLT +gloater/M/KLT +gloating/Y/KLTN +glob/GDMS/KLB +global/SY/KLBL +globalism/S/KLBLSM +globalist/S/KLBLST +globe/SM/KLB +globetrotter/MS/KLBTRT +globular/PY/KLBL +globularity/M/KLBLRT +globularness/M/KLBLNS +globule/MS/KLBL +globulin/MS/KLBLN +glockenspiel/SM/KLKNSPL +glommed//KLMT +gloom/GSMD/KLM +gloomily//KLML +gloominess/MS/KLMNS +gloomy/RTP/KLM +glop/MS/KLP +glopped//KLPT +glopping//KLPN +gloppy/TR/KLP +Glori/M/KLR +Gloria/M/KLR +Gloriana/M/KLRN +Gloriane/M/KLRN +glorification/M/KLRFKXN +glorifier/M/KLRF +glorify/XZRSDNG/KLRF +glorious/IYP/KLRS +gloriousness/IM/KLRSNS +Glory/M/KLR +glory/SDMG/KLR +gloss/GSDM/KLS +glossary/MS/KLSR +glossily//KLSL +glossiness/SM/KLSNS +glossolalia/SM/KLSLL +glossy/RSPT/KLS +glottal//KLTL +glottalization/M/KLTLSXN +glottis/MS/KLTS +Gloucester/M/KLSST +glove/SRDGMZ/KLF +gloveless//KLFLS +glover/M/KLF +Glover/M/KLF +glow/GZRDMS/KL +glower/GD/KLW +glowing/Y/KLWN +glowworm/SM/KLWM +glucose/SM/KLKS +glue/DRSMZG/KL +glued/U/KLT +gluer/M/KL +gluey//KL +gluier//KL +gluiest//KLST +glum/SYP/KLM +glummer//KLM +glummest//KLMST +glumness/MS/KLMNS +gluon/M/KLN +glut/SMNX/KLT +glutamate/M/KLTMT +gluten/M/KLTN +glutenous//KLTNS +glutinous/PY/KLTNS +glutinousness/M/KLTNSNS +glutted//KLTT +glutting//KLTN +glutton/MS/KLTN +gluttonous/Y/KLTNS +gluttony/SM/KLTN +glyceride/M/KLSRT +glycerin/SM/KLSRN +glycerinate/MD/KLSRNT +glycerine's//KLSRNS +glycerol/SM/KLSRL +glycerolized/C/KLSRLST +glycine/M/KLSN +glycogen/SM/KLKKN +glycol/MS/KLKL +Glyn/M/KLN +Glynda/M/KLNT +Glynis/M/KLNS +Glynn/M/KLN +Glynnis/M/KLNS +glyph/M/KLF +glyphs//KLFS +gm//KM +GM//KM +GMT//KMT +gnarl/SMDG/NL +gnash/SDG/NX +gnat/MS/NT +gnaw/GRDSJ/N +gnawer/M/NW +gnawing/M/NWN +gneiss/SM/NS +Gnni/M/NN +gnome/SM/NM +gnomelike//NMLK +gnomic//NMK +gnomish//NMX +gnomonic//NMNK +gnostic/K/NSTK +Gnostic/M/NSTK +gnosticism//NSTSSM +Gnosticism/M/NSTSSM +GNP//NP +gnu/MS/N +go/MRHZGJ/K +Goa/M/K +goad/MDSG/KT +goal/MDSG/KL +goalie/SM/KL +goalkeeper/MS/KLKP +goalkeeping/M/KLKPN +goalless//KLS +goalmouth/M/KLM@ +goalpost/S/KLPST +goalscorer//KLSKR +goalscoring//KLSKRN +goaltender/SM/KLTNT +goat/MS/KT +goatee/SM/KT +goatherd/MS/K@T +goatskin/SM/KTSKN +gob/SM/KB +gobbed//KBT +gobbet/MS/KBT +gobbing//KBN +gobble/SRDGZ/KBL +gobbledegook's//KBLTKKS +gobbledygook/S/KBLTKK +gobbler/M/KBL +Gobi/M/KB +goblet/MS/KBLT +goblin/SM/KBLN +God/M/KT +god/SMY/KT +Godard/M/KTT +Godart/M/KTT +godchild/M/KTXLT +godchildren//KTXLTRN +goddammit//KTMT +goddamn/GS/KTMN +Goddard/M/KTT +Goddart/M/KTT +goddaughter/SM/KTT +godded//KTT +goddess/MS/KTS +godding//KTN +Gödel/M/KTL +godfather/GSDM/KTF@ +godforsaken//KTFSKN +Godfree/M/KTFR +Godfrey/M/KTFR +Godfry/M/KTFR +godhead/S/KTHT +godhood/SM/KTHT +Godiva/M/KTF +godless/P/KTLS +godlessness/MS/KTLSNS +godlike/P/KTLK +godlikeness/M/KTLKNS +godliness/UMS/KTLNS +godly/UTPR/KTL +godmother/MS/KTM@ +Godot/M/KTT +godparent/SM/KTPRNT +godsend/MS/KTSNT +godson/MS/KTSN +Godspeed/S/KTSPT +Godthaab/M/KT@B +Godunov/M/KTNF +Godwin/M/KTWN +Godzilla/M/KTSL +Goebbels/M/KBLS +goer/MG/K +Goering/M/KRN +goes//KS +Goethals/M/K@LS +Goethe/M/K@ +gofer/SM/KF +Goff/M/KF +Gog/M/KK +goggle/SRDGZ/KKL +goggler/M/KKL +Gogh/M/K +Gogol/M/KKL +Goiania/M/KN +going/M/KN +goiter/SM/KT +Golan/M/KLN +Golconda/M/KLKNT +gold/MRNGTS/KLT +Golda/M/KLT +Goldarina/M/KLTRN +Goldberg/M/KLTBK +goldbrick/GZRDMS/KLTBRK +goldbricker/M/KLTBRK +Golden/M/KLTN +golden/TRYP/KLTN +goldenness/M/KLTNS +goldenrod/SM/KLTNRT +goldenseal/M/KLTNSL +goldfinch/MS/KLTFNX +goldfish/SM/KLTFX +Goldi/M/KLT +Goldia/M/KLT +Goldie/M/KLT +Goldilocks/M/KLTLKS +Goldina/M/KLTN +Golding/M/KLTN +Goldman/M/KLTMN +goldmine/S/KLTMN +goldsmith/M/KLTSM@ +Goldsmith/M/KLTSM@ +goldsmiths//KLTSM@S +Goldstein/M/KLTSTN +Goldwater/M/KLTWT +Goldwyn/M/KLTN +Goldy/M/KLT +Goleta/M/KLT +golf/RDMGZS/KLF +golfer/M/KLF +Golgotha/M/KLK@ +Goliath/M/KL@ +Goliaths//KL@S +golly/S/KL +Gomez/M/KMS +Gomorrah/M/KMR +Gompers/M/KMPS +gonad/SM/KNT +gonadal//KNTL +gondola/SM/KNTL +gondolier/MS/KNTL +Gondwanaland/M/KNTWNLNT +gone/RZN/KN +goner/M/KN +gong/SGDM/KNK +gonion/M/KNN +gonna//KN +gonorrhea/MS/KNRH +gonorrheal//KNRHL +Gonzales/M/KNSLS +Gonzalez/M/KNSLS +Gonzalo/M/KNSL +goo/MS/K +Goober/M/KB +goober/MS/KB +Good/M/KT +good/SYP/KT +goodbye/MS/KTBY +goodhearted//KTHTT +goodie's//KTS +goodish//KTX +goodly/TR/KTL +Goodman/M/KTMN +goodness/MS/KTNS +goodnight//KTNT +Goodrich/M/KTRX +goodwill/MS/KTWL +Goodwin/M/KTWN +goody/SM/KT +Goodyear/M/KTY +gooey//K +goof/SDMG/KF +goofiness/MS/KFNS +goofy/RPT/KF +gooier//K +gooiest//KST +gook/SM/KK +goon/SM/KN +goop/SM/KP +goos/SDG/KS +goose/M/KS +gooseberry/MS/KSBR +goosebumps//KSBMPS +GOP//KP +Gopher//KF +gopher/SM/KF +Goran/M/KRN +Goraud/M/KRT +Gorbachev//KBXF +Gordan/M/KTN +Gorden/M/KTN +Gordian/M/KTN +Gordie/M/KT +Gordimer/M/KTM +Gordon/M/KTN +Gordy/M/KT +gore/DSMG/KR +Gore/M/KR +Goren/M/KRN +Gorey/M/KR +Gorgas//KKS +gorge/GMSRD/KK +gorged/E/KKT +gorgeous/YP/KKS +gorgeousness/SM/KKSNS +gorger/EM/KK +gorges/E/KKS +gorging/E/KKN +Gorgon/M/KKN +gorgon/S/KKN +Gorgonzola/M/KKNSL +Gorham/M/KHM +gorilla/MS/KRL +gorily//KRL +goriness/MS/KRNS +goring/M/KRN +Gorky/M/KK +gormandize/SRDGZ/KMNTS +gormandizer/M/KMNTS +gormless//KMLS +gorp/S/KP +gorse/SM/KS +gory/PRT/KR +gos//KS +gosh/S/KX +goshawk/MS/KXK +gosling/M/KSLN +gospel/MRSZ/KSPL +Gospel/SM/KSPL +gospeler/M/KSPL +gossamer/SM/KSM +gossip/ZGMRDS/KSP +gossipy//KSP +got/IU/KT +gotcha/SM/KX +Göteborg/M/KTBK +Goth/M/K@ +Gotham/M/K@M +Gothart/M/K@T +Gothic/S/K@K +Gothicism/M/K@SSM +Goths//K@S +goto//KT +GOTO/MS/KT +gotta//KT +gotten/U/KTN +Gottfried/M/KTFRT +Goucher/M/KX +Gouda/SM/KT +gouge/GZSRD/KK +gouger/M/KK +goulash/SM/KLX +Gould/M/KLT +Gounod/M/KNT +gourd/MS/KT +gourde/SM/KT +gourmand/MS/KMNT +gourmet/MS/KMT +gout/SM/KT +gouty/RT/KT +gov/S/KF +govern/LBGSD/KFN +governable/U/KFNBL +governance/SM/KFNNS +governed/U/KFNT +governess/SM/KFNS +government/MS/KFNMNT +governmental/Y/KFNMNTL +Governor//KFN +governor/MS/KFN +governorship/SM/KFNXP +govt//KFT +gown/GSDM/KN +Goya/M/KY +GP//KP +GPA//KP +GPO//KP +GPSS//KPS +gr//KR +Gr/M/KR +grab/S/KRB +grabbed//KRBT +grabber/SM/KRB +grabbing/S/KRBN +Gracchus/M/KRXS +grace/ESDMG/KRS +Grace/M/KRS +graceful/EYPU/KRSFL +gracefuller//KRSFL +gracefullest//KRSFLST +gracefulness/ESM/KRSFLNS +Graceland/M/KRSLNT +graceless/PY/KRSLS +gracelessness/MS/KRSLSNS +Gracia/M/KRX +Gracie/M/KRS +Graciela/M/KRSL +gracious/UY/KRSS +graciousness/SM/KRSSNS +grackle/SM/KRKL +grad/MRDGZJS/KRT +gradate/DSNGX/KRTT +gradation/MCS/KRTXN +grade/ACSDG/KRT +graded/U/KRTT +Gradeigh/M/KRT +gradely//KRTL +grader/MC/KRT +grade's//KRTS +Gradey/M/KRT +gradient/RMS/KRTNT +gradual/SYP/KRTL +gradualism/MS/KRTLSM +gradualist/MS/KRTLST +gradualness/MS/KRTLNS +graduand/SM/KRTNT +graduate/MNGDSX/KRTT +graduation/M/KRTXN +Grady/M/KRT +Graehme/M/KRM +Graeme/M/KRM +Graff/M/KRF +Graffias/M/KRFS +graffiti//KRFT +graffito/M/KRFT +graft/MRDSGZ/KRFT +grafter/M/KRFT +grafting/M/KRFTN +Grafton/M/KRFTN +Graham/M/KRHM +graham/SM/KRHM +Grahame/M/KRHM +Graig/M/KRK +grail/S/KRL +Grail/SM/KRL +grain/IGSD/KRN +grainer/M/KRN +graininess/MS/KRNNS +graining/M/KRNN +grain's//KRNS +grainy/RTP/KRN +gram/KSM/KRM +Gram/M/KRM +grammar/MS/KRM +grammarian/SM/KRMRN +grammatic/K/KRMTK +grammatical/UY/KRMTKL +grammaticality/M/KRMTKLT +grammaticalness/M/KRMTKLNS +gramme/SM/KRM +Grammy/S/KRM +gramophone/SM/KRMFN +Grampians//KRMPNS +grampus/SM/KRMPS +Gran/M/KRN +Granada/M/KRNT +granary/MS/KRNR +grand/TPSYR/KRNT +grandam/SM/KRNTM +grandaunt/MS/KRNTNT +grandchild/M/KRNTXLT +grandchildren//KRNTXLTRN +granddad/SM/KRNTT +granddaddy/MS/KRNTT +granddaughter/MS/KRNTT +grandee/SM/KRNT +grandeur/MS/KRNT +grandfather/MYDSG/KRNTF@ +grandiloquence/SM/KRNTLKNS +grandiloquent/Y/KRNTLKNT +grandiose/YP/KRNTS +grandiosity/MS/KRNTST +grandkid/SM/KRNTKT +grandma/MS/KRNTM +grandmaster/MS/KRNTMST +grandmother/MYS/KRNTM@ +grandnephew/MS/KRNTNF +grandness/MS/KRNTNS +grandniece/SM/KRNTNS +grandpa/MS/KRNTP +grandparent/MS/KRNTPRNT +grandson/MS/KRNTSN +grandstand/SRDMG/KRNTSTNT +grandstander/M/KRNTSTNT +granduncle/MS/KRNTNKL +Grange/MR/KRNK +grange/MSR/KRNK +Granger/M/KRNK +granite/MS/KRNT +granitic//KRNTK +Grannie/M/KRN +Granny/M/KRN +granny/MS/KRN +granola/S/KRNL +Grant/M/KRNT +grant/SGZMRD/KRNT +grantee/MS/KRNT +granter/M/KRNT +Grantham/M/KRN@M +Granthem/M/KRN@M +Grantley/M/KRNTL +grantor's//KRNTS +grantsmanship/S/KRNTSMNXP +granular/Y/KRNL +granularity/SM/KRNLRT +granulate/SDXVGN/KRNLT +granulation/M/KRNLXN +granule/SM/KRNL +granulocytic//KRNLSTK +Granville/M/KRNFL +grape/SDGM/KRP +grapefruit/SM/KRPFRT +grapeshot/M/KRPXT +grapevine/MS/KRPFN +graph/GMD/KRF +grapheme/M/KRFM +graphic/PS/KRFK +graphical/Y/KRFKL +graphicness/M/KRFKNS +graphics/M/KRFKS +graphite/SM/KRFT +graphologist/SM/KRFLKST +graphology/MS/KRFLK +graphs//KRFS +grapnel/SM/KRPNL +grapple/DRSG/KRPL +grappler/M/KRPL +grappling/M/KRPLN +grasp/SRDBG/KRSP +grasper/M/KRSP +grasping/PY/KRSPN +graspingness/M/KRSPNNS +grass/GZSDM/KRS +Grass/M/KRS +grasshopper/SM/KRXP +grassland/MS/KRSLNT +grassroots//KRSRTS +grassy/RT/KRS +Grata/M/KRT +grate/SRDJGZ/KRT +grateful/YPU/KRTFL +gratefuller//KRTFL +gratefullest//KRTFLST +gratefulness/USM/KRTFLNS +grater/M/KRT +grates/I/KRTS +Gratia/M/KRX +Gratiana/M/KRXN +graticule/M/KRTKL +gratification/M/KRTFKXN +gratified/U/KRTFT +gratify/NDSXG/KRTF +gratifying/Y/KRTFYN +grating/YM/KRTN +gratis//KRTS +gratitude/IMS/KRTTT +gratuitous/PY/KRTTS +gratuitousness/MS/KRTTSNS +gratuity/SM/KRTT +gravamen/SM/KRFMN +grave/SRDPGMZTY/KRF +gravedigger/SM/KRFTK +gravel/SGMYD/KRFL +graven//KRFN +graveness/MS/KRFNS +graver/M/KRF +Graves/M/KRFS +graveside/S/KRFST +gravestone/SM/KRFSTN +graveyard/MS/KRFYT +gravid/PY/KRFT +gravidness/M/KRFTNS +gravimeter/SM/KRFMT +gravimetric//KRFMTRK +gravitas//KRFTS +gravitate/XVGNSD/KRFTT +gravitation/M/KRFTXN +gravitational/Y/KRFTXNL +graviton/SM/KRFTN +gravity/MS/KRFT +gravy/SM/KRF +Gray/M/KR +gray/PYRDGTS/KR +graybeard/MS/KRBT +Grayce/M/KRS +grayish//KRYX +grayness/S/KRNS +Grayson/M/KRSN +graze/GZSRD/KRS +grazer/M/KRS +Grazia/M/KRS +grazing/M/KRSN +grease/GMZSRD/KRS +greasepaint/MS/KRSPNT +greaseproof//KRSPRF +greaser/M/KRS +greasily//KRSL +greasiness/SM/KRSNS +greasy/PRT/KRS +great/SPTYRN/KRT +greatcoat/DMS/KRTKT +greaten/DG/KRTN +greathearted//KR@TT +greatness/MS/KRTNS +grebe/MS/KRB +Grecian/S/KRXN +Greece/M/KRS +greed/C/KRT +greedily//KRTL +greediness/SM/KRTNS +greeds//KRTS +greed's//KRTS +greedy/RTP/KRT +Greek/SM/KRK +Greeley/M/KRL +Green/M/KRN +green/SYRDMPGT/KRN +greenback/MS/KRNBK +greenbelt/S/KRNBLT +Greenberg/M/KRNBK +Greenblatt/M/KRNBLT +Greenbriar/M/KRNBR +Greene/M/KRN +greenery/MS/KRNR +Greenfeld/M/KRNFLT +greenfield//KRNFLT +Greenfield/M/KRNFLT +greenfly/M/KRNFL +greengage/SM/KRNKK +greengrocer/SM/KRNKRS +greengrocery/M/KRNKRSR +greenhorn/SM/KRNHN +greenhouse/SM/KRNHS +greening/M/KRNN +greenish/P/KRNX +Greenland/M/KRNLNT +greenmail/GDS/KRNML +greenness/MS/KRNS +Greenpeace/M/KRNPS +greenroom/SM/KRNRM +Greensboro/M/KRNSBR +Greensleeves/M/KRNSLFS +Greensville/M/KRNSFL +greensward/SM/KRNSWT +Greentree/M/KRNTR +Greenville/M/KRNFL +Greenwich/M/KRNWX +greenwood/MS/KRNWT +Greer/M/KR +greet/SRDJGZ/KRT +greeter/M/KRT +greeting/M/KRTN +greets/A/KRTS +Greg/M/KRK +gregarious/PY/KRKRS +gregariousness/MS/KRKRSNS +Gregg/M/KRK +Greggory/M/KRKR +Gregoire/M/KRKR +Gregoor/M/KRK +Gregor/M/KRK +Gregorian//KRKRN +Gregorio/M/KRKR +Gregorius/M/KRKRS +Gregory/M/KRKR +gremlin/SM/KRMLN +Grenada/M/KRNT +grenade/MS/KRNT +Grenadian/S/KRNTN +grenadier/SM/KRNT +grenadine/SM/KRNTN +Grenadines//KRNTNS +Grendel/M/KRNTL +Grenier/M/KRN +Grenoble/M/KRNBL +Grenville/M/KRNFL +Gresham/M/KRXM +Greta/M/KRT +Gretal/M/KRTL +Gretchen/M/KRXN +Grete/M/KRT +Gretel/M/KRTL +Grethel/M/KR@L +Gretna/M/KRTN +Gretta/M/KRT +Gretzky/M/KRTSK +grew/A/KR +Grey/M/KR +greybeard/M/KRBT +greyhound/MS/KRHNT +greyness/M/KRNS +grid/SGM/KRT +gridded//KRTT +griddle/DSGM/KRTL +griddlecake/SM/KRTLKK +gridiron/GSMD/KRTRN +gridlock/DSG/KRTLK +grids/A/KRTS +grief/MS/KRF +Grieg/M/KRK +Grier/M/KR +grievance/SM/KRFNS +grieve/SRDGZ/KRF +griever/M/KRF +grieving/Y/KRFN +grievous/PY/KRFS +grievousness/SM/KRFSNS +Griff/M/KRF +Griffie/M/KRF +Griffin/M/KRFN +griffin/SM/KRFN +Griffith/M/KRF@ +griffon's//KRFNS +Griffy/M/KRF +grill/RDGS/KRL +grille/SM/KRL +griller/M/KRL +grillwork/M/KRLWK +grim/PGYD/KRM +grimace/DRSGM/KRMS +grimacer/M/KRMS +Grimaldi/M/KRMLT +grime/MS/KRM +Grimes//KRMS +griminess/MS/KRMNS +Grimm/M/KRM +grimmer//KRM +grimmest//KRMST +grimness/MS/KRMNS +grimy/TPR/KRM +grin/S/KRN +Grinch/M/KRNX +grind/ASG/KRNT +grinder/MS/KRNT +grinding/SY/KRNTN +grindstone/SM/KRNTSTN +gringo/SM/KRN +grinned//KRNT +grinner/M/KRN +grinning/Y/KRNN +grip/SGZMRD/KRP +gripe/S/KRP +griper/M/KRP +grippe/GMZSRD/KRP +gripper/M/KRP +gripping/Y/KRPN +Gris/M/KRS +Griselda/M/KRSLT +grisliness/SM/KRSLNS +grisly/RPT/KRSL +Grissel/M/KRSL +grist/MYS/KRST +gristle/SM/KRSTL +gristliness/M/KRSTLNS +gristly/TRP/KRSTL +gristmill/MS/KRSTML +Griswold/M/KRSWLT +grit/MS/KRT +gritted//KRTT +gritter/MS/KRT +grittiness/SM/KRTNS +gritting//KRTN +gritty/PRT/KRT +Griz/M/KRS +grizzle/DSG/KRSL +grizzling/M/KRSLN +grizzly/TRS/KRSL +groan/GZSRDM/KRN +groaner/M/KRN +groat/SM/KRT +grocer/MS/KRS +grocery/MS/KRSR +grog/MS/KRK +groggily//KRKL +grogginess/SM/KRKNS +groggy/RPT/KRK +groin/MGSD/KRN +grok/S/KRK +grokked//KRKT +grokking//KRKN +grommet/GMDS/KRMT +Gromyko/M/KRMK +groofs//KRFS +groom/GZSMRD/KRM +groomer/M/KRM +groomsman/M/KRMSMN +groomsmen//KRMSMN +Groot/M/KRT +groove/SRDGM/KRF +groover/M/KRF +groovy/TR/KRF +grope/SRDJGZ/KRP +groper/M/KRP +Gropius/M/KRPS +grosbeak/SM/KRSBK +grosgrain/MS/KRSKRN +Gross//KRS +gross/GTYSRDP/KRS +Grosset/M/KRST +Grossman/M/KRSMN +grossness/MS/KRSNS +Grosvenor/M/KRSFN +Grosz/M/KRSS +grotesque/PSY/KRTSK +grotesqueness/MS/KRTSKNS +Grotius/M/KRTS +Groton/M/KRTN +grotto/M/KRT +grottoes//KRTS +grouch/GDS/KRX +grouchily//KRXL +grouchiness/MS/KRXNS +grouchy/RPT/KRX +ground/JGZMDRS/KRNT +groundbreaking/S/KRNTBRKN +grounded/U/KRNTT +grounder/M/KRNT +groundhog/SM/KRNTHK +groundless/YP/KRNTLS +groundlessness/M/KRNTLSNS +groundnut/MS/KRNTNT +groundsheet/M/KRNTXT +groundskeepers//KRNTSKPS +groundsman/M/KRNTSMN +groundswell/S/KRNTSWL +groundwater/S/KRNTWT +groundwork/SM/KRNTWK +group/ZJSMRDG/KRP +grouped/A/KRPT +grouper/M/KRP +groupie/MS/KRP +grouping/M/KRPN +groups/A/KRPS +grouse/GMZSRD/KRS +grouser/M/KRS +grout/GSMRD/KRT +grouter/M/KRT +Grove/RM/KRF +grove/SRMZ/KRF +grovel/SDRGZ/KRFL +groveler/M/KRFL +grovelike//KRFLK +groveling/Y/KRFLN +Grover/M/KRF +grow/GZYRHS/KR +grower/M/KRW +growing/I/KRWN +growingly//KRWNL +growl/RDGZS/KRL +growler/M/KRL +growling/Y/KRLN +growly/RP/KRL +grown/IA/KRN +grownup/MS/KRNP +grows/A/KRS +growth/IMA/KR@ +growths/IA/KR@S +grub/MS/KRB +grubbed//KRBT +grubber/SM/KRB +grubbily//KRBL +grubbiness/SM/KRBNS +grubbing//KRBN +grubby/RTP/KRB +grubstake/MSDG/KRBSTK +grudge/GMSRDJ/KRK +grudger/M/KRKR +grudging/Y/KRKNK +gruel/MDGJS/KRL +grueling/Y/KRLN +gruesome/RYTP/KRSM +gruesomeness/SM/KRSMNS +gruff/PSGTYRD/KRF +gruffness/MS/KRFNS +grumble/GZJDSR/KRMBL +grumbler/M/KRMBL +grumbling/Y/KRMBLN +Grumman/M/KRMN +grump/MDGS/KRMP +grumpily//KRMPL +grumpiness/MS/KRMPNS +grumpy/TPR/KRMP +Grundy/M/KRNT +Grünewald/M/KRNWLT +grunge/S/KRNK +grungy/RT/KRNK +grunion/SM/KRNN +grunt/SGRD/KRNT +grunter/M/KRNT +Grus/M/KRS +Grusky/M/KRSK +Gruyère//KRR +Gruyeres//KRYRS +gryphon's//KRFNS +g's//KS +G's//KS +gs/A/KS +GSA//KS +gt//KT +GU//K +guacamole/MS/KKML +Guadalajara/M/KTLKR +Guadalcanal/M/KTLKNL +Guadalquivir/M/KTLKF +Guadalupe/M/KTLP +Guadeloupe/M/KTLP +Guallatiri/M/KLTR +Gualterio/M/KLTR +Guam/M/KM +Guamanian/SM/KMNN +Guangzhou//KNKSH +guanine/MS/KNN +guano/MS/KN +Guantanamo/M/KNTNM +Guarani/M/KRN +guarani/SM/KRN +guarantee/RSDZM/KRNT +guaranteeing//KRNTN +guarantor/SM/KRNT +guaranty/MSDG/KRNT +guard/RDSGZ/KT +guarded/UYP/KTT +guardedness/UM/KTTNS +guarder/M/KT +guardhouse/SM/KTHS +Guardia/M/KT +guardian/SM/KTN +guardianship/MS/KTNXP +guardrail/SM/KTRL +guardroom/SM/KTRM +guardsman/M/KTSMN +guardsmen//KTSMN +Guarnieri/M/KNR +Guatemala/M/KTML +Guatemalan/S/KTMLN +guava/SM/KF +Guayaquil/M/KYKL +gubernatorial//KBNTRL +Gucci/M/KS +gudgeon/M/KKN +Guelph/M/KLF +Guendolen/M/KNTLN +Guenevere/M/KNFR +Guenna/M/KN +Guenther/M/KN@ +guernsey/S/KNS +Guernsey/SM/KNS +Guerra/M/KR +Guerrero/M/KRR +guerrilla/MS/KRL +guess/BGZRSD/KS +guessable/U/KSBL +guessed/U/KST +guesser/M/KS +guesstimate/DSMG/KSTMT +guesswork/MS/KSWK +guest/SGMD/KST +Guevara/M/KFR +guff/SM/KF +guffaw/GSDM/KF +Guggenheim/M/KKNHM +Guglielma/M/KKLLM +Guglielmo/M/KKLLM +Guhleman/M/KLMN +GUI//K +Gui/M/K +Guiana/M/KN +guidance/MS/KTNS +guide/GZSRD/KT +guidebook/SM/KTBK +guided/U/KTT +guideline/SM/KTLN +guidepost/MS/KTPST +guider/M/KT +Guido/M/KT +Guilbert/M/KLBT +guild/SZMR/KLT +guilder/M/KLT +guildhall/SM/KLTHL +guile/SDGM/KL +guileful//KLFL +guileless/YP/KLLS +guilelessness/MS/KLLSNS +Guillaume/M/KLM +Guillema/M/KLM +Guillemette/M/KLMT +guillemot/MS/KLMT +Guillermo/M/KLM +guillotine/SDGM/KLTN +guilt/SM/KLT +guiltily//KLTL +guiltiness/MS/KLTNS +guiltless/YP/KLTLS +guiltlessness/M/KLTLSNS +guilty/PTR/KLT +Guinea/M/KN +guinea/SM/KN +Guinean/S/KNN +Guinevere/M/KNFR +Guinna/M/KN +Guinness/M/KNS +guise/SDEG/KS +guise's//KSS +guitar/SM/KT +guitarist/SM/KTRST +Guiyang//KYNK +Guizot/M/KST +Gujarat/M/KKRT +Gujarati/M/KKRT +Gujranwala/M/KKRNWL +gulag/S/KLK +gulch/MS/KLX +gulden/MS/KLTN +gulf/DMGS/KLF +gull/MDSG/KL +Gullah/M/KL +gullet/MS/KLT +gulley's//KLS +gullibility/MS/KLBLT +gullible//KLBL +Gulliver/M/KLF +gully/SDMG/KL +gulp/RDGZS/KLP +gum/MS/KM +gumbo/MS/KMB +gumboil/MS/KMBL +gumboots//KMBTS +gumdrop/SM/KMTRP +gummed//KMT +gumminess/M/KMNS +gumming/C/KMN +gummy/RTP/KM +gumption/SM/KMPXN +gumshoe/SDM/KMX +gumshoeing//KMXN +gumtree/MS/KMTR +Gun/M/KN +gun/MS/KN +Gunar/M/KN +gunboat/MS/KNBT +Gunderson/M/KNTSN +gunfight/SRMGZ/KNFT +gunfighter/M/KNFT +gunfire/SM/KNFR +gunflint/M/KNFLNT +gunfought//KNFT +Gunilla/M/KNL +gunk/SM/KNK +gunky/RT/KNK +gunman/M/KNMN +gunmen//KNMN +gunmetal/MS/KNMTL +Gunnar/M/KN +gunned//KNT +gunnel's//KNLS +Gunner/M/KN +gunner/SM/KN +gunnery/MS/KNR +gunning/M/KNN +gunny/SM/KN +gunnysack/SM/KNSK +gunpoint/MS/KNPNT +gunpowder/SM/KNPT +gunrunner/MS/KNRN +gunrunning/MS/KNRNN +gunship/S/KNXP +gunshot/SM/KNXT +gunsling/GZR/KNSLN +gunslinger/M/KNSLN +gunsmith/M/KNSM@ +gunsmiths//KNSM@S +Guntar/M/KNT +Gunter/M/KNT +Gunther/M/KN@ +gunwale/MS/KNWL +Guofeng/M/KFNK +guppy/SM/KP +Gupta/M/KPT +gurgle/SDG/KKL +Gurkha/M/KKH +gurney/S/KN +guru/MS/KR +Gus/M/KS +Gusella/M/KSL +gush/SRDGZ/KX +gusher/M/KX +gushy/TR/KX +Guss//KS +gusset/MDSG/KST +Gussi/M/KS +Gussie/M/KS +gussy/GSD/KS +Gussy/M/KS +gust/MDGS/KST +Gusta/M/KST +Gustaf/M/KSTF +Gustafson/M/KSTFSN +gustatory//KSTTR +Gustav/M/KSTF +Gustave/M/KSTF +Gustavo/M/KSTF +Gustavus/M/KSTFS +gusted/E/KSTT +Gusti/M/KST +Gustie/M/KST +gustily//KSTL +gustiness/M/KSTNS +gusting/E/KSTN +gusto/M/KST +gustoes//KSTS +gusts/E/KSTS +Gusty/M/KST +gusty/RPT/KST +gut/SM/KT +Gutenberg/M/KTNBK +Guthrey/M/K@R +Guthrie/M/K@R +Guthry/M/K@R +Gutierrez/M/KTRS +gutless/P/KTLS +gutlessness/S/KTLSNS +guts/R/KTS +gutser/M/KTS +gutsiness/M/KTSNS +gutsy/PTR/KTS +gutted//KTT +gutter/GSDM/KT +guttering/M/KTRN +guttersnipe/M/KTSNP +gutting//KTN +guttural/SPY/KTRL +gutturalness/M/KTRLNS +gutty/RSMT/KT +Guy/M/K +guy/MDRZGS/K +Guyana/M/KYN +Guyanese//KYNS +Guzman/M/KSMN +guzzle/GZRSD/KSL +guzzler/M/KSL +Gwalior/M/KWL +Gwen/M/KWN +Gwendolen/M/KWNTLN +Gwendolin/M/KWNTLN +Gwendoline/M/KWNTLN +Gwendolyn/M/KWNTLN +Gweneth/M/KWN@ +Gwenette/M/KWNT +Gwenneth/M/KWN@ +Gwenni/M/KWN +Gwennie/M/KWN +Gwenny/M/KWN +Gwenora/M/KWNR +Gwenore/M/KWNR +Gwyn/M/KN +Gwyneth/M/KN@ +Gwynne/M/KN +gym/MS/KM +gymkhana/SM/KMKHN +gymnasia's//KMNXS +gymnasium/SM/KMNSM +gymnast/SM/KMNST +gymnastic/S/KMNSTK +gymnastically//KMNSTKL +gymnastics/M/KMNSTKS +gymnosperm/SM/KMNSPM +gynecologic//KNKLKK +gynecological/MS/KNKLKKL +gynecologist/SM/KNKLKST +gynecology/MS/KNKLK +gyp/S/KP +gypped//KPT +gypper/S/KP +gypping//KPN +gypsite//KPST +gypster/S/KPST +gypsum/MS/KPSM +gypsy/SDMG/KPS +Gypsy/SM/KPS +gyrate/XNGSD/KRT +gyration/M/KRXN +gyrator/MS/KRT +gyrfalcon/SM/KRFLKN +gyro/MS/KR +gyrocompass/M/KRKMPS +gyroscope/SM/KRSKP +gyroscopic//KRSKPK +gyve/GDS/KF +H//H +h/EMS/H +ha/H/H +Ha/M/H +Haag/M/HK +Haas/M/HS +Habakkuk/M/HBKK +habeas//HBS +Haber/M/HB +haberdasher/SM/HBTX +haberdashery/SM/HBTXR +Haberman/M/HBMN +Habib/M/HBB +habiliment/SM/HBLMNT +habit/IBDGS/HBT +habitability/MS/HBTBLT +habitable/P/HBTBL +habitableness/M/HBTBLNS +habitant/ISM/HBTNT +habitat/MS/HBTT +habitation/MI/HBTXN +habitations//HBTXNS +habit's//HBTS +habitual/SYP/HBTL +habitualness/SM/HBTLNS +habituate/SDNGX/HBTT +habituation/M/HBTXN +habitué/MS/HBT +hacienda/MS/HSNT +hack/GZSDRBJ/HK +hacker/M/HK +Hackett/M/HKT +hackle/RSDMG/HKL +hackler/M/HKL +hackney/SMDG/HKN +hacksaw/SDMG/HKS +hackwork/S/HKWK +had/GD/HT +Had/M/HT +Hadamard/M/HTMT +Hadar/M/HT +Haddad/M/HTT +haddock/MS/HTK +hades//HTS +Hades//HTS +hadji's//HTKS +hadj's//HTKS +Hadlee/M/HTL +Hadleigh/M/HTL +Hadley/M/HTL +hadn't//HTNT +Hadria/M/HTR +Hadrian/M/HTRN +hadron/MS/HTRN +hadst//HTST +haemoglobin's//HMKLBNS +haemophilia's//HMFLS +haemorrhage's//HMRHKS +Hafiz/M/HFS +hafnium/MS/HFNM +haft/GSMD/HFT +hag/SMN/HK +Hagan/M/HKN +Hagar/M/HK +Hagen/M/HKN +Hager/M/HK +Haggai/M/HK +haggard/SYP/HKT +haggardness/MS/HKTNS +hagged//HKT +hagging//HKN +haggis/SM/HKS +haggish//HKX +haggle/RSDZG/HKL +haggler/M/HKL +Hagiographa/M/HKKRF +hagiographer/SM/HKKRF +hagiography/MS/HKKRF +Hagstrom/M/HKSTRM +Hague/M/HK +Hahn/M/HN +hahnium/S/HNM +Haifa/M/HF +haiku/M/HK +hail/SGMDR/HL +Hailee/M/HL +hailer/M/HL +Hailey/M/HL +hailstone/SM/HLSTN +hailstorm/SM/HLSTM +Haily/M/HL +Haiphong/M/HFNK +hair/SDM/H +hairball/SM/HBL +hairbreadth/M/HBRT@ +hairbreadths//HBRT@S +hairbrush/SM/HBRX +haircare//HKR +haircloth/M/HKL@ +haircloths//HKL@S +haircut/MS/HKT +haircutting//HKTN +hairdo/SM/HT +hairdresser/SM/HTRS +hairdressing/SM/HTRSN +hairdryer/S/HTRY +hairiness/MS/HRNS +hairless/P/HLS +hairlessness/M/HLSNS +hairlike//HLK +hairline/SM/HLN +hairnet/MS/HNT +hairpiece/MS/HPS +hairpin/MS/HPN +hairsbreadth//HSBRT@ +hairsbreadths//HSBRT@S +hairsplitter/SM/HSPLT +hairsplitting/MS/HSPLTN +hairspray//HSPR +hairspring/SM/HSPRN +hairstyle/SMG/HSTL +hairstylist/S/HSTLST +hairy/PTR/HR +Haiti/M/HT +Haitian/S/HXN +hajj/M/HKK +hajjes//HKKS +hajji/MS/HKK +hake/MS/HK +Hakeem/M/HKM +Hakim/M/HKM +Hakka/M/HK +Hakluyt/M/HKLT +Hal/SMY/HL +halal/S/HLL +halalled//HLLT +halalling//HLLN +halberd/SM/HLBT +halcyon/S/HLSYN +Haldane/M/HLTN +hale/ISRDG/HL +Hale/M/HL +Haleakala/M/HLKL +Haleigh/M/HL +haler/IM/HL +halest//HLST +Halette/M/HLT +Haley/M/HL +half/PM/HLF +halfback/SM/HLFBK +halfbreed//HLFBRT +halfhearted/PY/HLFHTT +halfheartedness/MS/HLFHTTNS +halfpence/S/HLFPNS +halfpenny/MS/HLFPN +halfpennyworth//HLFPNW@ +halftime/S/HLFTM +halftone/MS/HLFTN +halfway//HLFW +halfword/MS/HLFWT +Hali/M/HL +halibut/SM/HLBT +halide/SM/HLT +Halie/M/HL +Halifax/M/HLFKS +Halimeda/M/HLMT +halite/MS/HLT +halitoses//HLTSS +halitosis/M/HLTSS +Hall/M/HL +hall/SMR/HL +hallelujah//HLLK +hallelujahs//HLLKS +Halley/M/HL +Halli/M/HL +halliard's//HLTS +Hallie/M/HL +Hallinan/M/HLNN +Hallmark/M/HLMK +hallmark/SGMD/HLMK +hallo/GDS/HL +halloo's//HLS +hallow/UD/HL +Halloween/MS/HLWN +hallowing//HLWN +hallows//HLS +Hallsy/M/HLS +hallucinate/VNGSDX/HLSNT +hallucination/M/HLSNXN +hallucinatory//HLSNTR +hallucinogen/SM/HLSNKN +hallucinogenic/S/HLSNKNK +hallway/SM/HLW +Hally/M/HL +halo/SDMG/HL +halocarbon//HLKBN +halogen/SM/HLKN +halogenated//HLKNTT +halon//HLN +Halpern/M/HLPN +Halsey/M/HLS +Halsy/M/HLS +halt/GZJSMDR/HLT +halter/GDM/HLT +halting/Y/HLTN +halve/GZDS/HLF +halves/M/HLFS +halyard/MS/HLYT +Ham/M/HM +ham/SM/HM +Hamal/M/HML +Haman/M/HMN +Hamburg/MS/HMBK +hamburg/SZRM/HMBK +hamburger/M/HMBK +Hamel/M/HML +Hamey/M/HM +Hamhung/M/HMHNK +Hamid/M/HMT +Hamil/M/HML +Hamilcar/M/HMLK +Hamilton/M/HMLTN +Hamiltonian/MS/HMLTNN +Hamish/M/HMX +Hamitic/M/HMTK +Hamlen/M/HMLN +Hamlet/M/HMLT +hamlet/MS/HMLT +Hamlin/M/HMLN +Hammad/M/HMT +Hammarskjold/M/HMSKKLT +hammed//HMT +hammer/ZGSRDM/HM +hammerer/M/HMR +hammerhead/SM/HMHT +hammering/M/HMRN +hammerless//HMLS +hammerlock/MS/HMLK +Hammerstein/M/HMSTN +hammertoe/SM/HMT +Hammett/M/HMT +hamming//HMN +hammock/MS/HMK +Hammond/M/HMNT +Hammurabi/M/HMRB +hammy/RT/HM +Hamnet/M/HMNT +hamper/GSD/HMP +hampered/U/HMPRT +Hampshire/M/HMPXR +Hampton/M/HMPTN +hamster/MS/HMST +hamstring/MGS/HMSTRN +hamstrung//HMSTRNK +Hamsun/M/HMSN +Han/SM/HN +Hana/M/HN +Hanan/M/HNN +Hancock/M/HNKK +hand/UDSG/HNT +handbag/MS/HNTBK +handbagged//HNTBKT +handbagging//HNTBKN +handball/SM/HNTBL +handbarrow/MS/HNTBR +handbasin//HNTBSN +handbill/MS/HNTBL +handbook/SM/HNTBK +handbrake/M/HNTBRK +handcar/SM/HNTK +handcart/MS/HNTKT +handclasp/MS/HNTKLSP +handcraft/GMDS/HNTKRFT +handcuff/GSD/HNTKF +handcuffs/M/HNTKFS +handed/PY/HNTT +handedness/M/HNTTNS +Handel/M/HNTL +hander/S/HNT +handful/SM/HNTFL +handgun/SM/HNTKN +handhold/M/HNTHLT +handicap/SM/HNTKP +handicapped//HNTKPT +handicapper/SM/HNTKP +handicapping//HNTKPN +handicraft/SMR/HNTKRFT +handicraftsman/M/HNTKRFTSMN +handicraftsmen//HNTKRFTSMN +handily/U/HNTL +handiness/SM/HNTNS +handiwork/MS/HNTWK +handkerchief/MS/HNTKXF +handle/MZGRSD/HNTL +handleable//HNTLBL +handlebar/SM/HNTLB +handler/M/HNTL +handless//HNTLS +handling/M/HNTLN +handmade//HNTMT +handmaid/NMSX/HNTMT +handmaiden/M/HNTMTN +handout/SM/HNTT +handover//HNTF +handpick/GDS/HNTPK +handrail/SM/HNTRL +hand's//HNTS +handsaw/SM/HNTS +handset/SM/HNTST +handshake/GMSR/HNTXK +handshaker/M/HNTXK +handshaking/M/HNTXKN +handsome/RPTY/HNTSM +handsomely/U/HNTSML +handsomeness/MS/HNTSMNS +handspike/SM/HNTSPK +handspring/SM/HNTSPRN +handstand/MS/HNTSTNT +handwork/SM/HNTWK +handwoven//HNTWFN +handwrite/GSJ/HNTRT +handwriting/M/HNTRTN +handwritten//HNTRTN +Handy/M/HNT +handy/URT/HNT +handyman/M/HNTMN +handymen//HNTMN +Haney/M/HN +hang/GDRZBSJ/HNK +hangar/SGDM/HNK +hangdog/S/HNKTK +hanged/A/HNKT +hanger/M/HNK +hanging/M/HNKN +hangman/M/HNKMN +hangmen//HNKMN +hangnail/MS/HNKNL +hangout/MS/HNKT +hangover/SM/HNKF +hangs/A/HNKS +Hangul/M/HNKL +hangup/S/HNKP +Hangzhou//HNKSH +hank/GZDRMS/HNK +Hank/M/HNK +Hankel/M/HNKL +hanker/GRDJ/HNK +hankerer/M/HNKR +hankering/M/HNKRN +hankie/SM/HNK +hanky's//HNKS +Hanna/M/HN +Hannah/M/HN +Hanni/MS/HN +Hannibal/M/HNBL +Hannie/M/HN +Hanny/M/HN +Hanoi/M/HN +Hanover/M/HNF +Hanoverian//HNFRN +Hans/N/HNS +Hansel/M/HNSL +Hansen/M/HNSN +Hansiain/M/HNXN +hansom/MS/HNSM +Hanson/M/HNSN +Hanuka/S/HNK +Hanukkah/M/HNK +Hanukkahs//HNKS +hap/SMY/HP +Hapgood/M/HPKT +haphazard/SPY/HFST +haphazardness/SM/HFSTNS +hapless/YP/HPLS +haplessness/MS/HPLSNS +haploid/S/HPLT +happed//HPT +happen/JDGS/HPN +happening/M/HPNN +happenstance/SM/HPNSTNS +happily/U/HPL +happiness/UMS/HPNS +happing//HPN +Happy/M/HP +happy/UTPR/HP +Hapsburg/M/HPSBK +Harald/M/HRLT +harangue/GDRS/HRNK +haranguer/M/HRNK +Harare//HRR +harass/LSRDZG/HRS +harasser/M/HRS +harassment/SM/HRSMNT +Harbert/M/HBT +Harbin/M/HBN +harbinger/DMSG/HBN +harbor/ZGRDMS/HB +harborer/M/HBR +Harcourt/M/HKT +hard/YNRPJGXTS/HT +hardback/SM/HTBK +hardball/SM/HTBL +hardboard/SM/HTBT +hardboiled//HTBLT +hardbound//HTBNT +hardcore/MS/HTKR +hardcover/SM/HTKF +harden/ZGRD/HTN +hardened/U/HTNT +hardener/M/HTN +hardening/M/HTNN +hardhat/S/HTHT +hardheaded/YP/HTHTT +hardheadedness/SM/HTHTTNS +hardhearted/YP/HTHTT +hardheartedness/SM/HTHTTNS +hardihood/MS/HTHT +hardily//HTL +Hardin/M/HTN +hardiness/SM/HTNS +Harding/M/HTN +hardliner/S/HTLN +hardness/MS/HTNS +hardscrabble//HTSKRBL +hardshell//HTXL +hardship/MS/HTXP +hardstand/S/HTSTNT +hardtack/MS/HTTK +hardtop/MS/HTTP +hardware/SM/HTWR +hardwire/DSG/HTWR +hardwood/MS/HTWT +hardworking//HTWKN +Hardy/M/HT +hardy/PTRS/HT +hare/MGDS/HR +harebell/MS/HRBL +harebrained//HRBRNT +harelip/MS/HRLP +harelipped//HRLPT +harem/SM/HRM +Hargreaves/M/HKRFS +hark/GDS/HK +Harlan/M/HLN +Harland/M/HLNT +Harlem/M/HLM +Harlen/M/HLN +Harlene/M/HLN +Harlequin//HLKN +harlequin/MS/HLKN +Harley/M/HL +Harli/M/HL +Harlie/M/HL +Harlin/M/HLN +harlot/SM/HLT +harlotry/MS/HLTR +Harlow/M/HL +harm/MDRGS/HM +Harman/M/HMN +harmed/U/HMT +harmer/M/HM +harmful/PY/HMFL +harmfulness/MS/HMFLNS +harmless/YP/HMLS +harmlessness/SM/HMLSNS +Harmon/M/HMN +Harmonia/M/HMN +harmonic/S/HMNK +harmonica/MS/HMNK +harmonically//HMNKL +harmonics/M/HMNKS +Harmonie/M/HMN +harmonious/IPY/HMNS +harmoniousness/MS/HMNSNS +harmoniousness's/I/HMNSNSS +harmonium/MS/HMNM +harmonization/A/HMNSXN +harmonizations//HMNSXNS +harmonization's//HMNSXNS +harmonize/ZGSRD/HMNS +harmonized/U/HMNST +harmonizer/M/HMNS +harmonizes/UA/HMNSS +harmony/EMS/HMN +Harmony/M/HMN +harness/DRSMG/HNS +harnessed/U/HNST +harnesser/M/HNS +harnesses/U/HNSS +Harold/M/HRLT +Haroun/M/HRN +harp/MDRJGZS/HP +Harp/MR/HP +harper/M/HP +Harper/M/HP +harping/M/HPN +harpist/SM/HPST +harpoon/SZGDRM/HPN +harpooner/M/HPN +harpsichord/SM/HPSXT +harpsichordist/MS/HPSXTST +harpy/SM/HP +Harpy/SM/HP +Harrell/M/HRL +Harri/SM/HR +harridan/SM/HRTN +Harrie/M/HR +harrier/M/HR +Harriet/M/HRT +Harriett/M/HRT +Harrietta/M/HRT +Harriette/M/HRT +Harrington/M/HRNTN +Harriot/M/HRT +Harriott/M/HRT +Harrisburg/M/HRSBK +Harrison/M/HRSN +Harrisonburg/M/HRSNBK +harrow/RDMGS/HR +harrower/M/HRW +harrumph/SDG/HRMF +Harry/M/HR +harry/RSDGZ/HR +harsh/TRNYP/HX +harshen/GD/HXN +harshness/SM/HXNS +Hart/M/HT +hart/MS/HT +Harte/M/HT +Hartford/M/HTFT +Hartley/M/HTL +Hartline/M/HTLN +Hartman/M/HTMN +Hartwell/M/HTWL +Harv/M/HF +Harvard/M/HFT +harvest/MDRZGS/HFST +harvested/U/HFSTT +harvester/M/HFST +harvestman/M/HFSTMN +Harvey/MS/HF +Harwell/M/HWL +Harwilll/M/HWL +has//HS +Hasbro/M/HSBR +hash/AGSD/HX +Hasheem/M/HXM +hasher/M/HX +Hashim/M/HXM +hashing/M/HXN +hashish/MS/HXX +hash's//HXS +Hasidim//HSTM +Haskel/M/HSKL +Haskell/M/HSKL +Haskins/M/HSKNS +Haslett/M/HSLT +hasn't//HSNT +hasp/GMDS/HSP +hassle/MGRSD/HSL +hassock/MS/HSK +hast/GXJDN/HST +haste/MS/HST +hasten/GRD/HSTN +hastener/M/HSTN +Hastie/M/HST +hastily//HSTL +hastiness/MS/HSTNS +Hastings/M/HSTNS +Hasty/M/HST +hasty/RPT/HST +hat/MDRSZG/HT +hatch/RSDJG/HX +hatchback/SM/HXBK +hatcheck/S/HXK +hatched/U/HXT +hatcher/M/HX +hatchery/MS/HXR +hatchet/MDSG/HXT +hatching/M/HXN +Hatchure/M/HXR +hatchway/MS/HXW +hate/S/HT +hateful/YP/HTFL +hatefulness/MS/HTFLNS +hater/M/HT +Hatfield/M/HTFLT +Hathaway/M/H@W +hatless//HTLS +hatred/SM/HTRT +hatstands//HTSTNTS +hatted//HTT +hatter/SM/HT +Hatteras/M/HTRS +Hatti/M/HT +Hattie/M/HT +hatting//HTN +Hatty/M/HT +hauberk/SM/HBK +Haugen/M/HKN +haughtily//HTL +haughtiness/SM/HTNS +haughty/TPR/HT +haul/SDRGZ/HL +haulage/MS/HLK +hauler/M/HL +haunch/GMSD/HNX +haunt/JRDSZG/HNT +haunter/M/HNT +haunting/Y/HNTN +Hauptmann/M/HPTMN +Hausa/M/HS +Hausdorff/M/HSTF +Hauser/M/HS +hauteur/MS/HT +Havana/SM/HFN +Havarti//HFT +have/ZGSR/HF +Havel/M/HFL +haven/DMGS/HFN +Haven/M/HFN +haven't//HFNT +haver/G/HF +haversack/SM/HFSK +havoc/SM/HFK +havocked//HFKT +havocking//HFKN +Haw//H +haw/MDSG/H +Hawaii/M/HW +Hawaiian/S/HWN +hawk/GZSDRM/HK +hawker/M/HK +Hawking//HKN +hawking/M/HKN +Hawkins/M/HKNS +hawkish/P/HKX +hawkishness/S/HKXNS +Hawley/M/HL +haws/RZ/HS +hawser/M/HS +hawthorn/MS/H@N +Hawthorne/M/H@N +hay/GSMDR/H +Hay/SM/H +haycock/SM/HKK +Hayden/M/HTN +Haydn/M/HTN +Haydon/M/HTN +Hayes//HYS +hayfield/MS/HFLT +Hayley/M/HL +hayloft/MS/HLFT +haymow/MS/HM +Haynes//HNS +hayrick/MS/HRK +hayride/MS/HRT +hayseed/MS/HST +haystack/SM/HSTK +haywain//HWN +Hayward/M/HWT +haywire/MS/HWR +Haywood/M/HWT +Hayyim/M/HYM +hazard/MDGS/HST +hazardous/PY/HSTS +hazardousness/M/HSTSNS +haze/DSRJMZG/HS +Haze/M/HS +Hazel/M/HSL +hazel/MS/HSL +hazelnut/SM/HSLNT +hazer/M/HS +hazily//HSL +haziness/MS/HSNS +hazing/M/HSN +Hazlett/M/HSLT +Hazlitt/M/HSLT +hazy/PTR/HS +HBO/M/HB +hdqrs//HTKRS +HDTV//HTTF +He/M/H +he/VMZ/H +Head/M/HT +head/SJGZMDR/HT +headache/MS/HTX +headband/SM/HTBNT +headboard/MS/HTBT +headcount//HTKNT +headdress/MS/HTRS +header/M/HT +headfirst//HTFST +headgear/SM/HK +headhunt/ZGSRDMJ/HTHNT +headhunter/M/HTHNT +headhunting/M/HTHNTN +headily//HTL +headiness/S/HTNS +heading/M/HTN +headlamp/S/HTLMP +headland/MS/HTLNT +headless/P/HTLS +headlessness/M/HTLSNS +headlight/MS/HTLT +headline/DRSZMG/HTLN +headliner/M/HTLN +headlock/MS/HTLK +headlong//HTLNK +headman/M/HTMN +headmaster/MS/HTMST +headmastership/M/HTMSTXP +headmen//HTMN +headmistress/MS/HTMSTRS +headphone/SM/HTFN +headpiece/SM/HTPS +headpin/MS/HTPN +headquarter/GDS/HTKT +headrest/MS/HTRST +headroom/SM/HTRM +headscarf/M/HTSKF +headset/SM/HTST +headship/SM/HTXP +headshrinker/MS/HTXRNK +headsman/M/HTSMN +headsmen//HTSMN +headstall/SM/HTSTL +headstand/MS/HTSTNT +headstock/M/HTSTK +headstone/MS/HTSTN +headstrong//HTSTRNK +headwaiter/SM/HTWT +headwall/S/HTWL +headwater/S/HTWT +headway/MS/HTW +headwind/SM/HTWNT +headword/MS/HTWT +heady/PTR/HT +heal/DRHSGZ/HL +healed/U/HLT +healer/M/HL +Heall/M/HL +health/M/HL@ +healthful/U/HL@FL +healthfully//HL@FL +healthfulness/SM/HL@FLNS +healthily/U/HL@L +healthiness/MSU/HL@NS +healths//HL@S +healthy/URPT/HL@ +heap/SMDG/HP +hear/ZTSRHJG/H +heard/UA/HT +hearer/M/HR +hearing/AM/HRN +hearken/SGD/HKN +hears/SDAG/HS +hearsay/SM/HS +hearse/M/HS +Hearst/M/HST +heart/SMDNXG/HT +heartache/SM/HTX +heartbeat/MS/HTBT +heartbreak/GMS/HTBRK +heartbreaking/Y/HTBRKN +heartbroke//HTBRK +heartbroken//HTBRKN +heartburn/SGM/HTBN +heartburning/M/HTBNN +hearted/Y/HTT +hearten/EGDS/HTN +heartening/EY/HTNN +heartfelt//HTFLT +hearth/M/H@ +hearthrug//H@RK +hearths//H@S +hearthstone/MS/H@STN +heartily//HTL +heartiness/SM/HTNS +heartland/SM/HTLNT +heartless/YP/HTLS +heartlessness/SM/HTLSNS +heartrending/Y/HTRNTN +heartsick/P/HTSK +heartsickness/MS/HTSKNS +heartstrings//HTSTRNS +heartthrob/MS/H@RB +heartwarming//HTWMN +Heartwood/M/HTWT +heartwood/SM/HTWT +hearty/TRSP/HT +heat/SMDRGZBJ/HT +heated/UA/HTT +heatedly//HTTL +heater/M/HT +Heath/MR/H@ +heath/MRNZX/H@ +heathen/M/H@N +heathendom/SM/H@NTM +heathenish/Y/H@NX +heathenism/MS/H@NSM +heather/M/H@ +Heather/M/H@ +heathery//H@R +Heathkit/M/H@KT +heathland//H@LNT +Heathman/M/H@MN +heaths//H@S +heatproof//HTPRF +heats/A/HTS +heatstroke/MS/HTSTRK +heatwave//HTWF +heave/DSRGZ/HF +heaven/SYM/HFN +heavenliness/M/HFNLNS +heavenly/PTR/HFNL +heavenward/S/HFNWT +heaver/M/HF +heaves/M/HFS +heavily//HFL +heaviness/MS/HFNS +Heaviside/M/HFST +heavy/TPRS/HF +heavyhearted//HFHTT +heavyset//HFST +heavyweight/SM/HFWT +Heb/M/HB +Hebe/M/HB +hebephrenic//HBFRNK +Hebert/M/HBT +Hebraic//HBRK +Hebraism/MS/HBRSM +Hebrew/SM/HBR +Hebrides/M/HBRTS +Hecate/M/HKT +hecatomb/M/HKTM +heck/S/HK +heckle/RSDZG/HKL +heckler/M/HKL +hectare/MS/HKTR +hectic/S/HKTK +hectically//HKTKL +hectogram/MS/HKTKRM +hectometer/SM/HKTMT +Hector/M/HKT +hector/SGD/HKT +Hecuba/M/HKB +he'd//HT +Heda/M/HT +Hedda/M/HT +Heddi/M/HT +Heddie/M/HT +hedge/DSRGMZ/HK +hedgehog/MS/HKHK +hedgehop/S/HKHP +hedgehopped//HKHPT +hedgehopping//HKHPN +hedger/M/HKR +hedgerow/SM/HKR +hedging/Y/HKNK +Hedi/M/HT +hedonism/SM/HTNSM +hedonist/MS/HTNST +hedonistic//HTNSTK +Hedvig/M/HTFK +Hedvige/M/HTFK +Hedwig/M/HTWK +Hedwiga/M/HTWK +Hedy/M/HT +heed/SMGD/HT +heeded/U/HTT +heedful/PY/HTFL +heedfulness/M/HTFLNS +heeding/U/HTN +heedless/YP/HTLS +heedlessness/SM/HTLSNS +heehaw/DGS/HH +heel/SGZMDR/HL +heeler/M/HL +heeling/M/HLN +heelless//HLS +Heep/M/HP +Hefner/M/HFN +heft/GSD/HFT +heftily//HFTL +heftiness/SM/HFTNS +hefty/TRP/HFT +Hegel/M/HKL +Hegelian//HKLN +hegemonic//HKMNK +hegemony/MS/HKMN +Hegira/M/HKR +hegira/S/HKR +Heida/M/HT +Heidegger/M/HTK +Heidelberg/M/HTLBK +Heidi/M/HT +Heidie/M/HT +heifer/MS/HF +Heifetz/M/HFTS +height/SMNX/HT +heighten/GD/HTN +Heimlich/M/HMLX +Heindrick/M/HNTRK +Heine/M/HN +Heineken/M/HNKN +Heinlein/M/HNLN +heinous/PY/HNS +heinousness/SM/HNSNS +Heinrich/M/HNRX +Heinrick/M/HNRK +Heinrik/M/HNRK +Heinz/M/HNS +Heinze/M/HNS +heir/SDMG/H +heiress/MS/HRS +heirloom/MS/HLM +Heisenberg/M/HSNBK +Heiser/M/HS +heist/GSMRD/HST +heister/M/HST +Hejira's//HKRS +Helaina/M/HLN +Helaine/M/HLN +held//HLT +Helen/M/HLN +Helena/M/HLN +Helene/M/HLN +Helenka/M/HLNK +Helga/M/HLK +Helge/M/HLK +helical/Y/HLKL +helices/M/HLSS +helicon/M/HLKN +Helicon/M/HLKN +helicopter/GSMD/HLKPT +heliocentric//HLSNTRK +heliography/M/HLKRF +Heliopolis/M/HLPLS +Helios/M/HLS +heliosphere//HLSFR +heliotrope/SM/HLTRP +heliport/MS/HLPT +helium/MS/HLM +helix/M/HLKS +he'll//HL +hell/GSMDR/HL +hellbender/M/HLBNT +hellbent//HLBNT +hellcat/SM/HLKT +hellebore/SM/HLBR +Hellene/SM/HLN +Hellenic//HLNK +Hellenism/MS/HLNSM +Hellenist/MS/HLNST +Hellenistic//HLNSTK +Hellenization/M/HLNSXN +Hellenize//HLNS +heller/M/HL +Heller/M/HL +Hellespont/M/HLSPNT +hellfire/M/HLFR +hellhole/SM/HLHL +Helli/M/HL +hellion/SM/HLN +hellish/PY/HLX +hellishness/SM/HLXNS +Hellman/M/HLMN +hello/GMS/HL +Hell's//HLS +helluva//HLF +helm/U/HLM +helmed//HLMT +helmet/GSMD/HLMT +Helmholtz/M/HLMHLTS +helming//HLMN +helms//HLMS +helm's//HLMS +helmsman/M/HLMSMN +helmsmen//HLMSMN +Helmut/M/HLMT +Héloise/M/HLS +helot/S/HLT +help/GZSJDR/HLP +helper/M/HLP +helpful/UY/HLPFL +helpfulness/MS/HLPFLNS +helping/M/HLPN +helpless/YP/HLPLS +helplessness/SM/HLPLSNS +helpline/S/HLPLN +helpmate/SM/HLPMT +helpmeet's//HLPMTS +Helsa/M/HLS +Helsinki/M/HLSNK +helve/GMDS/HLF +Helvetian/S/HLFXN +Helvetius/M/HLFTS +Helyn/M/HLN +hem/MS/HM +hematite/MS/HMTT +hematologic//HMTLKK +hematological//HMTLKKL +hematologist/SM/HMTLKST +hematology/MS/HMTLK +heme/MS/HM +Hemingway/M/HMNW +hemisphere/MSD/HMSFR +hemispheric//HMSFRK +hemispherical//HMSFRKL +hemline/SM/HMLN +hemlock/MS/HMLK +hemmed//HMT +hemmer/SM/HM +hemming//HMN +hemoglobin/MS/HMKLBN +hemolytic//HMLTK +hemophilia/SM/HMFL +hemophiliac/SM/HMFLK +hemorrhage/GMDS/HMRHK +hemorrhagic//HMRHKK +hemorrhoid/MS/HMRHT +hemostat/SM/HMSTT +hemp/MNS/HMP +hemstitch/DSMG/HMSTX +hen/MS/HN +hence/S/HNS +henceforth//HNSF@ +henceforward//HNSFWT +Hench/M/HNX +henchman/M/HNXMN +henchmen//HNXMN +Henderson/M/HNTSN +Hendrick/SM/HNTRK +Hendrickson/M/HNTRKSN +Hendrik/M/HNTRK +Hendrika/M/HNTRK +Hendrix/M/HNTRKS +henge/M/HNK +Henka/M/HNK +Henley/M/HNL +henna/MDSG/HN +Hennessey/M/HNS +henning//HNN +henpeck/GSD/HNPK +Henri/M/HNR +Henrie/M/HNR +Henrieta/M/HNRT +Henrietta/M/HNRT +Henriette/M/HNRT +Henrik/M/HNRK +henry/M/HNR +Henry/M/HNR +Henryetta/M/HNRYT +Hensley/M/HNSL +Henson/M/HNSN +hep/S/HP +heparin/MS/HPRN +hepatic/S/HPTK +hepatitides//HPTTTS +hepatitis/M/HPTTS +Hepburn/M/HPBN +Hephaestus/M/HFSTS +Hephzibah/M/HFSB +hepper//HP +heppest//HPST +Hepplewhite//HPLHT +heptagon/SM/HPTKN +heptagonal//HPTKNL +heptane/M/HPTN +heptathlon/S/HPT@LN +her//H +Hera/M/HR +Heracles/M/HRKLS +Heraclitus/M/HRKLTS +herald/MDSG/HRLT +heralded/U/HRLTT +heraldic//HRLTK +heraldry/MS/HRLTR +Herb/M/HB +herb/MS/HB +herbaceous//HBSS +herbage/MS/HBK +herbal/S/HBL +herbalism//HBLSM +herbalist/MS/HBLST +Herbart/M/HBT +Herbert/M/HBT +herbicidal//HBSTL +herbicide/MS/HBST +Herbie/M/HB +herbivore/SM/HBFR +herbivorous/Y/HBFRS +Herby/M/HB +Herc/M/HK +Herculaneum/M/HKLNM +Hercule/MS/HKL +herculean//HKLN +Herculean//HKLN +Herculie/M/HKL +herd/MDRGZS/HT +herder/M/HT +Herder/M/HT +herdsman/M/HTSMN +herdsmen//HTSMN +here/IS/HR +hereabout/S/HRBT +hereafter/S/HRFT +hereby//HRB +hereditary//HRTTR +heredity/MS/HRTT +Hereford/SM/HRFT +herein//HRN +hereinafter//HRNFT +hereof//HRF +hereon//HRN +here's//HRS +heres/M/HRS +heresy/SM/HRS +heretic/SM/HRTK +heretical//HRTKL +hereto//HRT +heretofore//HRTFR +hereunder//HRNT +hereunto//HRNT +hereupon//HRPN +herewith//HRW@ +Heriberto/M/HRBT +heritable//HRTBL +heritage/MS/HRTK +heritor/IM/HRT +Herkimer/M/HKM +Herman/M/HMN +Hermann/M/HMN +hermaphrodite/SM/HMFRTT +hermaphroditic//HMFRTTK +Hermaphroditus/M/HMFRTTS +hermeneutic/S/HMNTK +hermeneutics/M/HMNTKS +Hermes//HMS +hermetic/S/HMTK +hermetical/Y/HMTKL +Hermia/M/HM +Hermie/M/HM +Hermina/M/HMN +Hermine/M/HMN +Herminia/M/HMN +Hermione/M/HMN +hermit/MS/HMT +hermitage/SM/HMTK +Hermite/M/HMT +hermitian//HMXN +Hermon/M/HMN +Hermosa/M/HMS +Hermosillo/M/HMSL +Hermy/M/HM +Hernandez/M/HNNTS +Hernando/M/HNNT +hernia/MS/HN +hernial//HNL +herniate/NGXDS/HNT +hero/M/HR +Herod/M/HRT +Herodotus/M/HRTTS +heroes//HRS +heroic/U/HRK +heroically//HRKL +heroics//HRKS +heroin/MS/HRN +heroine/SM/HRN +heroism/SM/HRSM +Herold/M/HRLT +heron/SM/HRN +herpes/M/HPS +herpetologist/SM/HPTLKST +herpetology/MS/HPTLK +Herr/MG/HR +Herrera/M/HRR +Herrick/M/HRK +Herring/M/HRN +herring/SM/HRN +herringbone/SDGM/HRNBN +Herrington/M/HRNTN +Hersch/M/HSX +Herschel/M/HSKL +herself//HSLF +Hersey/M/HS +Hersh/M/HX +Hershel/M/HXL +Hershey/M/HX +Herta/M/HT +Hertha/M/H@ +hertz/M/HTS +Hertz/M/HTS +Hertzog/M/HTSK +Hertzsprung/M/HTSSPRNK +Herve/M/HF +Hervey/M/HF +Herzegovina/M/HSKFN +Herzl/M/HSL +hes//HS +Hesiod/M/HXT +hesitance/S/HSTNS +hesitancy/SM/HSTNS +hesitant/U/HSTNT +hesitantly//HSTNTL +hesitate/XDRSNG/HSTT +hesitater/M/HSTT +hesitating/UY/HSTTN +hesitation/M/HSTXN +Hesperus/M/HSPRS +Hess/M/HS +Hesse/M/HS +Hessian/MS/HXN +Hester/M/HST +Hesther/M/HS@ +Hestia/M/HSX +Heston/M/HSTN +heterodox//HTRTKS +heterodoxy/MS/HTRTKS +heterodyne//HTRTN +heterogamous//HTRKMS +heterogamy/M/HTRKM +heterogeneity/SM/HTRKNT +heterogeneous/PY/HTRKNS +heterogeneousness/M/HTRKNSNS +heterosexual/YMS/HTRSKSL +heterosexuality/SM/HTRSKSLT +heterostructure//HTRSTRKTR +heterozygous//HTRSKS +Hetti/M/HT +Hettie/M/HT +Hetty/M/HT +Heublein/M/HBLN +heuristic/SM/HRSTK +heuristically//HRSTKL +Heusen/M/HSN +Heuser/M/HS +hew/DRZGS/H +Hew/M/H +Hewe/M/HW +hewer/M/HW +Hewet/M/HWT +Hewett/M/HWT +Hewie/M/HW +Hewitt/M/HWT +Hewlett/M/HLT +hex/DSRG/HKS +hexachloride/M/HKSXLRT +hexadecimal/YS/HKSTSML +hexafluoride/M/HKSFLRT +hexagon/SM/HKSKN +hexagonal/Y/HKSKNL +hexagram/SM/HKSKRM +hexameter/SM/HKSMT +hexer/M/HKS +hey//H +heyday/MS/HT +Heyerdahl/M/HYTL +Heywood/M/HWT +Hezekiah/M/HSK +hf//HF +HF//HF +Hf/M/HF +Hg/M/HK +hgt//HKT +hgwy//HK +HHS//HHS +HI//H +hi/D/H +Hi/M/H +Hialeah/M/HL +hiatus/SM/HTS +Hiawatha/M/HW@ +hibachi/MS/HBX +hibernate/XGNSD/HBNT +hibernation/M/HBNXN +hibernator/SM/HBNT +Hibernia/M/HBN +Hibernian/S/HBNN +hibiscus/MS/HBSKS +hiccup/MDGS/HKP +hick/SM/HK +hickey/SM/HK +Hickey/SM/HK +Hickman/M/HKMN +Hickok/M/HKK +hickory/MS/HKR +Hicks/M/HKS +hid/ZDRGJ/HT +hidden/U/HTN +hide/S/HT +hideaway/SM/HTW +hidebound//HTBNT +hideous/YP/HTS +hideousness/SM/HTSNS +hideout/MS/HTT +hider/M/HT +hiding/M/HTN +hie/S/H +hieing//HN +hierarchal//HRXL +hierarchic//HRXK +hierarchical/Y/HRXKL +hierarchy/SM/HRX +hieratic//HRTK +hieroglyph//HRKLF +hieroglyphic/S/HRKLFK +hieroglyphics/M/HRKLFKS +hieroglyphs//HRKLFS +Hieronymus/M/HRNMS +hifalutin//HFLTN +Higashiosaka//HKXSK +Higgins/M/HKNS +high/PYRT/H +highball/GSDM/HBL +highborn//HBN +highboy/MS/HB +highbrow/SM/HBR +highchair/SM/HX +highfalutin//HFLTN +Highfield/M/HFLT +highhanded/PY/HHNTT +highhandedness/SM/HHNTTNS +highish//HKX +highland/ZSRM/HLNT +Highlander/SM/HLNT +Highlands//HLNTS +highlight/GZRDMS/HLT +Highness/M/HNS +highness/MS/HNS +highpoint//HPNT +highroad/MS/HRT +highs//HS +hight//HT +hightail/DGS/HTL +highway/MS/HW +highwayman/M/HWMN +highwaymen//HWMN +hijack/JZRDGS/HKK +hijacker/M/HKK +hike/ZGDSR/HK +hiker/M/HK +Hilario/M/HLR +hilarious/YP/HLRS +hilariousness/MS/HLRSNS +hilarity/MS/HLRT +Hilarius/M/HLRS +Hilary/M/HLR +Hilbert/M/HLBT +Hilda/M/HLT +Hildagard/M/HLTKT +Hildagarde/M/HLTKT +Hilde/M/HLT +Hildebrand/M/HLTBRNT +Hildegaard/M/HLTKT +Hildegarde/M/HLTKT +Hildy/M/HLT +hill/GSMDR/HL +Hill/M/HL +Hillard/M/HLT +Hillary/M/HLR +hillbilly/MS/HLBL +Hillcrest/M/HLKRST +Hillel/M/HLL +hiller/M/HL +Hillery/M/HLR +Hilliard/M/HLT +Hilliary/M/HLR +Hillie/M/HL +Hillier/M/HL +hilliness/SM/HLNS +hillman//HLMN +hillmen//HLMN +hillock/SM/HLK +Hillsboro/M/HLSBR +Hillsdale/M/HLSTL +hillside/SM/HLST +hilltop/MS/HLTP +hillwalking//HLWLKN +Hilly/RM/HL +hilly/TRP/HL +Hillyer/M/HLY +hilt/MDGS/HLT +Hilton/M/HLTN +him/S/HM +Himalaya/MS/HMLY +Himalayan/S/HMLYN +Himmler/M/HML +himself//HMSLF +Hinayana/M/HNYN +hind/RSZ/HNT +Hinda/M/HNT +Hindemith/M/HNTM@ +Hindenburg/M/HNTNBK +hinder/GRD/HNT +hindered/U/HNTRT +hinderer/M/HNTR +Hindi/M/HNT +hindmost//HNTMST +hindquarter/SM/HNTKT +hindrance/SM/HNTRNS +hindsight/SM/HNTST +Hindu/MS/HNT +Hinduism/SM/HNTSM +Hindustan/M/HNTSTN +Hindustani/MS/HNTSTN +Hines/M/HNS +hinge/UDSG/HN +hinger//HN +hinge's//HNS +Hinkle/M/HNKL +Hinsdale/M/HNSTL +hint/GZMDRS/HNT +hinter/M/HNT +hinterland/MS/HNTLNT +Hinton/M/HNTN +Hinze/M/HNS +hip/PSM/HP +hipbone/SM/HPBN +hipness/S/HPNS +Hipparchus/M/HPXS +hipped//HPT +hipper//HP +hippest//HPST +hippie/MTRS/HP +hipping/M/HPN +hippo/MS/HP +Hippocrates/M/HPKRTS +Hippocratic//HPKRTK +hippodrome/MS/HPTRM +hippopotamus/SM/HPPTMS +hippy's//HPS +hipster/MS/HPST +Hiram/M/HRM +hire/AGSD/HR +hireling/SM/HRLN +hirer/SM/HR +Hirey/M/HR +hiring/S/HRN +Hirohito/M/HRHT +Hiroshi/M/HRX +Hiroshima/M/HRXM +Hirsch/M/HSX +hirsute/P/HST +hirsuteness/MS/HSTNS +his//HS +Hispanic/SM/HSPNK +Hispaniola/M/HSPNL +hiss/DSRMJG/HS +Hiss/M/HS +hisser/M/HS +hissing/M/HSN +hist/SDG/HST +histamine/SM/HSTMN +histochemic//HSTXMK +histochemical//HSTXMKL +histochemistry/M/HSTXMSTR +histogram/MS/HSTKRM +histological//HSTLKKL +histologist/MS/HSTLKST +histology/SM/HSTLK +historian/MS/HSTRN +historic//HSTRK +historical/PY/HSTRKL +historicalness/M/HSTRKLNS +historicism/M/HSTRSSM +historicist/M/HSTRSST +historicity/MS/HSTRST +historiographer/SM/HSTRKRF +historiography/MS/HSTRKRF +history/MS/HSTR +histrionic/S/HSTRNK +histrionically//HSTRNKL +histrionics/M/HSTRNKS +hit/MS/HT +Hitachi/M/HTX +hitch/UGSD/HX +Hitchcock/M/HXKK +hitcher/MS/HX +hitchhike/RSDGZ/HXHK +hither//H@ +hitherto//H@T +Hitler/SM/HTL +hitless//HTLS +hittable//HTBL +hitter/SM/HT +hitting//HTN +Hittite/SM/HTT +HIV//HF +hive/MGDS/HF +h'm//HM +HM//HM +HMO//HM +Hmong//HMNK +HMS//HMS +ho/DRYZ/H +Ho/M/H +hoar/M/H +hoard/RDJZSGM/HT +hoarder/M/HT +hoarding/M/HTN +hoarfrost/SM/HFRST +hoariness/MS/HRNS +hoarse/RTYP/HS +hoarseness/SM/HSNS +hoary/TPR/HR +hoax/GZMDSR/HKS +hoaxer/M/HKS +hob/SM/HB +Hobard/M/HBT +Hobart/M/HBT +hobbed//HBT +Hobbes/M/HBS +hobbing//HBN +hobbit//HBT +hobble/ZSRDG/HBL +hobbler/M/HBL +Hobbs/M/HBS +hobby/SM/HB +hobbyhorse/SM/HBHS +hobbyist/SM/HBYST +Hobday/M/HBT +Hobey/M/HB +hobgoblin/MS/HBKBLN +Hobie/M/HB +hobnail/GDMS/HBNL +hobnob/S/HBNB +hobnobbed//HBNBT +hobnobbing//HBNBN +hobo/SDMG/HB +Hoboken/M/HBKN +hoc//HK +hock/GDRMS/HK +hocker/M/HK +hockey/SM/HK +Hockney/M/HKN +hockshop/SM/HKXP +hod/SM/HT +hodge/MS/HK +Hodge/MS/HK +hodgepodge/SM/HKPK +Hodgkin/M/HTKKN +hoe/SM/H +Hoebart/M/HBT +hoecake/SM/HKK +hoedown/MS/HTN +hoeing//HN +hoer/M/H +Hoff/M/HF +Hoffa/M/HF +Hoffman/M/HFMN +Hofstadter/M/HFSTTT +hog/SM/HK +Hogan/M/HKN +hogan/SM/HKN +Hogarth/M/HK@ +hogback/MS/HKBK +hogged//HKT +hogger//HK +hogging//HKN +hoggish/Y/HKX +hogshead/SM/HKXT +hogtie/SD/HKT +hogtying//HKTYN +hogwash/SM/HKWX +Hohenlohe/M/HHNLH +Hohenstaufen/M/HHNSTFN +Hohenzollern/M/HHNSLN +Hohhot/M/HHT +hoist/GRDS/HST +hoister/M/HST +hoke/DSG/HK +hokey/PRT/HK +hokier//HK +hokiest//HKST +Hokkaido/M/HKT +hokum/MS/HKM +Hokusai/M/HKS +Holbein/M/HLBN +Holbrook/M/HLBRK +Holcomb/M/HLKM +hold/NRBSJGZ/HLT +holdall/MS/HLTL +Holden/M/HLTN +holder/M/HLT +Holder/M/HLT +holding/IS/HLTN +holding's//HLTNS +holdout/SM/HLTT +holdover/SM/HLTF +holdup/MS/HLTP +hole/MGDS/HL +holey//HL +holiday/GRDMS/HLT +Holiday/M/HLT +holidaymaker/S/HLTMK +holier/U/HL +Holiness/MS/HLNS +holiness/MSU/HLNS +holistic//HLSTK +holistically//HLSTKL +Holland/RMSZ/HLNT +hollandaise//HLNTS +Hollandaise/M/HLNTS +Hollander/M/HLNT +holler/GDS/HL +Hollerith/M/HLR@ +Holley/M/HL +Holli/SM/HL +Hollie/M/HL +Hollister/M/HLST +hollow/RDYTGSP/HL +Holloway/M/HLW +hollowness/MS/HLNS +hollowware/M/HLWR +Holly/M/HL +holly/SM/HL +Hollyanne/M/HLYN +hollyhock/MS/HLHK +Hollywood/M/HLWT +Holm/M/HLM +Holman/M/HLMN +Holmes//HLMS +holmium/MS/HLMM +Holocaust//HLKST +holocaust/MS/HLKST +Holocene//HLSN +hologram/SM/HLKRM +holograph/GMD/HLKRF +holographic//HLKRFK +holographs//HLKRFS +holography/MS/HLKRF +Holst/M/HLST +Holstein/MS/HLSTN +holster/MDSG/HLST +Holt/M/HLT +holy/SRTP/HL +Holyoke/M/HLYK +holystone/MS/HLSTN +Holzman/M/HLSMN +Hom/MR/HM +homage/MGSRD/HMK +homager/M/HMK +hombre/SM/HMBR +homburg/SM/HMBK +home/DSRMYZG/HM +homebody/MS/HMBT +homebound//HMBNT +homeboy/S/HMB +homebuilder/S/HMBLT +homebuilding//HMBLTN +homebuilt//HMBLT +homecoming/MS/HMKMN +homegrown//HMKRN +homeland/SM/HMLNT +homeless/P/HMLS +homelessness/SM/HMLSNS +homelike//HMLK +homeliness/SM/HMLNS +homely/RPT/HML +homemade//HMMT +homemake/JRZG/HMMK +homemaker/M/HMMK +homemaking/M/HMMKN +homeomorph/M/HMMF +homeomorphic//HMMFK +homeomorphism/MS/HMMFSM +homeopath//HMP@ +homeopathic//HMP@K +homeopaths//HMP@S +homeopathy/MS/HMP@ +homeostases//HMSTSS +homeostasis/M/HMSTSS +homeostatic//HMSTTK +homeowner/S/HMN +homeownership//HMNXP +homepage//HMPK +homer/GDM/HM +Homer/M/HM +Homere/M/HMR +Homeric//HMRK +homerists//HMRSTS +homeroom/MS/HMRM +Homerus/M/HMRS +homeschooling/S/HMSKLN +homesick/P/HMSK +homesickness/MS/HMSKNS +homespun/S/HMSPN +homestead/GZSRDM/HMSTT +homesteader/M/HMSTT +homestretch/SM/HMSTRX +hometown/SM/HMTN +homeward//HMWT +homework/ZSMR/HMWK +homeworker/M/HMWK +homey/PS/HM +homeyness/MS/HMNS +homicidal/Y/HMSTL +homicide/SM/HMST +homier//HM +homiest//HMST +homiletic/S/HMLTK +homily/SM/HML +hominess's//HMNSS +homing/M/HMN +hominid/MS/HMNT +hominy/SM/HMN +homo/SM/HM +homogamy/M/HMKM +homogenate/MS/HMKNT +homogeneity/ISM/HMKNT +homogeneous/PY/HMKNS +homogenization/MS/HMKNSXN +homogenize/DRSGZ/HMKNS +homogenizer/M/HMKNS +homograph/M/HMKRF +homographs//HMKRFS +homological//HMLKKL +homologous//HMLKS +homologue/M/HMLK +homology/MS/HMLK +homomorphic//HMMFK +homomorphism/SM/HMMFSM +homonym/SM/HMNM +homophobia/S/HMFB +homophobic//HMFBK +homophone/MS/HMFN +homopolymers//HMPLMS +homosexual/YMS/HMSKSL +homosexuality/SM/HMSKSLT +homotopy//HMTP +homozygous/Y/HMSKS +Hon/M/HN +hon/MDRSZTG/HN +honcho/DSG/HNX +Honda/M/HNT +Hondo/M/HNT +Honduran/S/HNTRN +Honduras/M/HNTRS +hone/SM/HN +Honecker/M/HNK +honest/RYT/HNST +honestly/E/HNSTL +honesty/ESM/HNST +honey/GSMD/HN +Honey/M/HN +honeybee/SM/HNB +honeycomb/SDMG/HNKM +honeydew/SM/HNT +honeylocust//HNLKST +honeymoon/RDMGZS/HNMN +honeymooner/M/HNMN +honeysuckle/MS/HNSKL +Honeywell/M/HNWL +hong/M/HNK +Honiara/M/HNR +honk/GZSDRM/HNK +honker/M/HNK +honky/SM/HNK +Honolulu/M/HNLL +honor/ERDBZGS/HN +Honor/M/HN +honorable/PSM/HNRBL +honorableness/SM/HNRBLNS +honorables/U/HNRBLS +honorablies/U/HNRBLS +honorably/UE/HNRBL +honorarily//HNRRL +honorarium/SM/HNRRM +honorary/S/HNRR +honored/U/HNRT +honoree/S/HNR +honorer/EM/HNR +Honoria/M/HNR +honorific/S/HNRFK +honor's//HNS +honors/A/HNS +Honshu/M/HNX +hooch/MS/HX +Hood/M/HT +hood/MDSG/HT +hooded/P/HTT +hoodedness/M/HTTNS +hoodlum/SM/HTLM +hoodoo/DMGS/HT +hoodwink/SRDG/HTWNK +hoodwinker/M/HTWNK +hooey/SM/H +hoof/DRMSG/HF +hoofer/M/HF +hoofmark/S/HFMK +hook/GZDRMS/HK +hookah/M/HK +hookahs//HKS +Hooke/MR/HK +hooked/P/HKT +hookedness/M/HKTNS +hooker/M/HK +Hooker/M/HK +hookey's//HKS +hooks/U/HKS +hookup/SM/HKP +hookworm/MS/HKWM +hooky/SRMT/HK +hooligan/SM/HLKN +hooliganism/SM/HLKNSM +hoop/MDRSG/HP +hooper/M/HP +Hooper/M/HP +hoopla/SM/HPL +hooray/SMDG/HR +hoosegow/MS/HSK +Hoosier/SM/HS +hoot/MDRSGZ/HT +hootch's//HXS +hootenanny/SM/HTNN +hooter/M/HT +Hoover/MS/HF +hooves/M/HFS +hop/SMDRG/HP +Hope/M/HP +hope/SM/HP +hoped/U/HPT +hopeful/SPY/HPFL +hopefulness/MS/HPFLNS +hopeless/YP/HPLS +hopelessness/SM/HPLSNS +hoper/M/HP +Hopewell/M/HPWL +Hopi/SM/HP +Hopkins/M/HPKNS +Hopkinsian/M/HPKNXN +hopped//HPT +Hopper/M/HP +hopper/MS/HP +hopping/M/HPN +hoppled//HPLT +hopples//HPLS +hopscotch/MDSG/HPSKX +Horace/M/HRS +Horacio/M/HRS +Horatia/M/HRX +Horatio/M/HRX +Horatius/M/HRTS +horde/DSGM/HT +horehound/MS/HRHNT +horizon/MS/HRSN +horizontal/YS/HRSNTL +Hormel/M/HML +hormonal/Y/HMNL +hormone/MS/HMN +Hormuz/M/HMS +horn/GDRMS/HN +Horn/M/HN +hornbeam/M/HNBM +hornblende/MS/HNBLNT +Hornblower/M/HNBLW +Horne/M/HN +horned/P/HNT +hornedness/M/HNTNS +hornet/MS/HNT +horniness/M/HNNS +hornless//HNLS +hornlike//HNLK +hornpipe/MS/HNPP +horny/TRP/HN +horologic//HRLKK +horological//HRLKKL +horologist/MS/HRLKST +horology/MS/HRLK +horoscope/MS/HRSKP +Horowitz/M/HRWTS +horrendous/Y/HRNTS +horrible/SP/HRBL +horribleness/SM/HRBLNS +horribly//HRBL +horrid/PY/HRT +horridness/M/HRTNS +horrific//HRFK +horrifically//HRFKL +horrify/DSG/HRF +horrifying/Y/HRFYN +horror/MS/HR +hors/DSGX/HS +horse/UGDS/HS +horseback/MS/HSBK +horsedom//HSTM +horseflesh/M/HSFLX +horsefly/MS/HSFL +horsehair/SM/HSH +horsehide/SM/HSHT +horselaugh/M/HSL +horselaughs//HSLS +horseless//HSLS +horselike//HSLK +horsely//HSL +horseman/M/HSMN +horsemanship/MS/HSMNXP +horsemen//HSMN +horseplay/SMR/HSPL +horseplayer/M/HSPLY +horsepower/SM/HSPW +horseradish/SM/HSRTX +horse's//HSS +horseshoe/MRSD/HSX +horseshoeing//HSXN +horseshoer/M/HSX +horsetail/SM/HSTL +horsewhip/SM/HSHP +horsewhipped//HSHPT +horsewhipping//HSHPN +horsewoman/M/HSWMN +horsewomen//HSWMN +horsey//HS +horsier//HS +horsiest//HSST +horsing/M/HSN +Horst/M/HST +Hort/MN/HT +hortatory//HTTR +Horten/M/HTN +Hortense/M/HTNS +Hortensia/M/HTNX +horticultural//HTKLTRL +horticulture/SM/HTKLTR +horticulturist/SM/HTKLTRST +Horton/M/HTN +Horus/M/HRS +hos/GDS/HS +hosanna/SDG/HSN +hose/M/HS +Hosea/M/HS +hosepipe//HSPP +hosier/MS/HS +hosiery/SM/HSR +hosp//HSP +hospice/MS/HSPS +hospitable/I/HSPTBL +hospitably/I/HSPTBL +hospital/MS/HSPTL +hospitality/MS/HSPTLT +hospitality's/I/HSPTLTS +hospitalization/MS/HSPTLSXN +hospitalize/GSD/HSPTLS +Host/MS/HST +host/MYDGS/HST +hostage/MS/HSTK +hostel/SZGMRD/HSTL +hosteler/M/HSTL +hostelry/MS/HSTLR +hostess/MDSG/HSTS +hostile/YS/HSTL +hostility/SM/HSTLT +hostler/MS/HSTL +hot/PSY/HT +hotbed/MS/HTBT +hotblooded//HTBLTT +hotbox/MS/HTBKS +hotcake/S/HTKK +hotchpotch/M/HXPX +hotel/MS/HTL +hotelier/MS/HTL +hotelman/M/HTLMN +hotfoot/DGS/HTFT +hothead/DMS/H@T +hotheaded/PY/H@TT +hotheadedness/SM/H@TTNS +hothouse/MGDS/H@S +hotness/MS/HTNS +hotplate/SM/HTPLT +hotpot/M/HTPT +hotrod//HTRT +hotshot/S/HTXT +hotted//HTT +Hottentot/SM/HTNTT +hotter//HT +hottest//HTST +hotting//HTN +Houdaille/M/HTL +Houdini/M/HTN +hough/M/H +hound/MRDSG/HNT +hounder/M/HNT +hounding/M/HNTN +hour/YMS/H +hourglass/MS/HKLS +houri/MS/HR +hourly/S/HL +house/ASDG/HS +House/M/HS +houseboat/SM/HSBT +housebound//HSBNT +houseboy/SM/HSB +housebreak/JSRZG/HSBRK +housebreaker/M/HSBRK +housebreaking/M/HSBRKN +housebroke//HSBRK +housebroken//HSBRKN +housebuilding//HSBLTN +houseclean/JDSG/HSKLN +housecleaning/M/HSKLNN +housecoat/MS/HSKT +housefly/MS/HSFL +houseful/SM/HSFL +household/ZRMS/HSHLT +householder/M/HSHLT +househusband/S/HSHSBNT +housekeep/JRGZ/HSKP +housekeeper/M/HSKP +housekeeping/M/HSKPN +houselights//HSLTS +housemaid/MS/HSMT +houseman/M/HSMN +housemen//HSMN +housemother/MS/HSM@ +housemoving//HSMFN +houseparent/SM/HSPRNT +houseplant/S/HSPLNT +houser//HS +house's//HSS +housetop/MS/HSTP +housewares//HSWRS +housewarming/MS/HSWMN +housewife/YM/HSWF +housewifeliness/M/HSWFLNS +housewifely/P/HSWFL +housewives//HSWFS +housework/ZSMR/HSWK +houseworker/M/HSWK +housing/MS/HSN +Housman/M/HSMN +Houston/M/HSTN +Houyhnhnm/M/HHNHNM +HOV//HF +hove/ZR/HF +hovel/GSMD/HFL +hover/GRD/HF +hovercraft/M/HFKRFT +hoverer/M/HFR +how/SM/H +Howard/M/HWT +howbeit//HBT +howdah/M/HT +howdahs//HTS +howdy/GSD/HT +Howe/M/HW +Howell/MS/HWL +however//HWF +Howey/M/HW +Howie/M/HW +howitzer/MS/HWTS +howl/GZSMDR/HL +howler/M/HL +Howrah/M/HR +howsoever//HSF +hoy/M/H +hoyden/DMGS/HTN +hoydenish//HTNX +Hoyle/SM/HL +Hoyt/M/HT +hp//HP +HP//HP +HQ//HK +hr//HR +HR//HR +HRH//HRH +Hrothgar/M/HR@K +hrs//HRS +h's//HS +H's//HS +HS//HS +HST//HST +ht//HT +HTML//HTML +Hts/M/HTS +HTTP//HTP +Huang/M/HNK +huarache/SM/HRX +hub/MS/HB +hubba//HB +Hubbard/M/HBT +Hubble/M/HBL +hubbub/SM/HBB +hubby/SM/HB +hubcap/SM/HBKP +Hube/RM/HB +Huber/M/HB +Hubert/M/HBT +Huberto/M/HBT +Hubey/M/HB +Hubie/M/HB +hubris/SM/HBRS +Huck/M/HK +huckleberry/SM/HKLBR +huckster/SGMD/HKST +HUD//HT +Huddersfield/M/HTSFLT +huddle/RSDMG/HTL +huddler/M/HTL +Hudson/M/HTSN +hue/MDS/H +Huerta/M/HT +Huey/M/H +Huff/M/HF +huff/SGDM/HF +huffily//HFL +huffiness/SM/HFNS +Huffman/M/HFMN +huffy/TRP/HF +hug/RTS/HK +huge/YP/HK +hugeness/MS/HKNS +hugged//HKT +hugger//HK +hugging/S/HKN +Huggins//HKNS +Hugh/MS/H +Hughie/M/HK +Hugibert/M/HKBT +Hugo/M/HK +Huguenot/SM/HKNT +Hugues/M/HKS +huh//H +huhs//HS +Hui/M/H +Huitzilopitchli/M/HTSLPXL +hula/MDSG/HL +Hulda/M/HLT +hulk/GDMS/HLK +Hull/M/HL +hull/MDRGZS/HL +hullabaloo/SM/HLBL +huller/M/HL +hulling/M/HLN +hullo/GSDM/HL +hum/S/HM +human/IPY/HMN +humane/IY/HMN +humaneness/SM/HMNNS +humaner//HMN +humanest//HMNST +humanism/SM/HMNSM +humanist/SM/HMNST +humanistic//HMNSTK +humanitarian/S/HMNTRN +humanitarianism/SM/HMNTRNSM +humanity/ISM/HMNT +humanization/CSM/HMNSXN +humanize/RSDZG/HMNS +humanized/C/HMNST +humanizer/M/HMNS +humanizes/IAC/HMNSS +humanizing/C/HMNSN +humankind/M/HMNKNT +humanness/IM/HMNS +humannesses//HMNSS +humanoid/S/HMNT +humans//HMNS +Humbert/M/HMBT +Humberto/M/HMBT +humble/TZGPRSDJ/HMBL +humbleness/SM/HMBLNS +humbly//HMBL +Humboldt/M/HMBLTT +humbug/MS/HMBK +humbugged//HMBKT +humbugging//HMBKN +humdinger/MS/HMTN +humdrum/S/HMTRM +Hume/M/HM +humeral/S/HMRL +humeri//HMR +humerus/M/HMRS +Humfrey/M/HMFR +Humfrid/M/HMFRT +Humfried/M/HMFRT +humid/Y/HMT +humidification/MC/HMTFKXN +humidifier/CM/HMTF +humidify/RSDCXGNZ/HMTF +humidistat/M/HMTSTT +humidity/MS/HMTT +humidor/MS/HMT +humiliate/SDXNG/HMLT +humiliating/Y/HMLTN +humiliation/M/HMLXN +humility/MS/HMLT +hummed//HMT +Hummel/M/HML +hummer/SM/HM +humming//HMN +hummingbird/SM/HMNBT +hummock/MDSG/HMK +hummocky//HMK +hummus/S/HMS +humongous//HMNKS +humor/RDMZGS/HM +humored/U/HMRT +humorist/MS/HMRST +humorless/PY/HMLS +humorlessness/MS/HMLSNS +humorous/YP/HMRS +humorousness/MS/HMRSNS +hump/GSMD/HMP +humpback/SMD/HMPBK +humph/DG/HMF +Humphrey/SM/HMFR +humphs//HMFS +Humpty/M/HMPT +humus/SM/HMS +Humvee//HMF +Hun/MS/HN +hunch/GMSD/HNX +hunchback/DSM/HNXBK +hundred/SHRM/HNTRT +hundredfold/S/HNTRTFLT +hundredths//HNTRT@S +hundredweight/SM/HNTRTWT +Hunfredo/M/HNFRT +hung/A/HNK +Hung/M/HNK +Hungarian/MS/HNKRN +Hungary/M/HNKR +hunger/SDMG/HNK +hungover//HNKF +hungrily//HNKRL +hungriness/SM/HNKRNS +hungry/RTP/HNKR +hunk/ZRMS/HNK +hunker/DG/HNK +hunky/RST/HNK +hunt/GZJDRS/HNT +Hunt/MR/HNT +hunter/M/HNT +Hunter/M/HNT +hunting/M/HNTN +Huntington/M/HNTNTN +Huntlee/M/HNTL +Huntley/M/HNTL +huntress/MS/HNTRS +huntsman/M/HNTSMN +huntsmen//HNTSMN +Huntsville/M/HNTSFL +hurdle/JMZGRSD/HTL +hurdler/M/HTL +hurl/DRGZJS/HL +Hurlee/M/HL +Hurleigh/M/HL +hurler/M/HL +Hurley/M/HL +hurling/M/HLN +Huron/SM/HRN +hurray/SDG/HR +hurricane/MS/HRKN +hurried/UY/HRT +hurriedness/M/HRTNS +hurry/RSDG/HR +Hurst/M/HST +hurt/U/HT +hurter/M/HT +hurtful/PY/HTFL +hurtfulness/MS/HTFLNS +hurting/Y/HTN +hurtle/SDG/HTL +hurts//HTS +Hurwitz/M/HWTS +Hus//HS +Husain's//HSNS +husband/GSDRYM/HSBNT +husbander/M/HSBNT +husbandman/M/HSBNTMN +husbandmen//HSBNTMN +husbandry/SM/HSBNTR +Husein/M/HSN +hush/DSG/HX +husk/SGZDRM/HSK +husker/M/HSK +huskily//HSKL +huskiness/MS/HSKNS +husking/M/HSKN +husky/RSPT/HSK +hussar/MS/HS +Hussein/M/HSN +Husserl/M/HSL +hussy/SM/HS +hustings/M/HSTNS +hustle/RSDZG/HSTL +hustler/M/HSTL +Huston/M/HSTN +hut/MS/HT +hutch/MSDG/HX +Hutchins/M/HXNS +Hutchinson/M/HXNSN +Hutchison/M/HXSN +hutted//HTT +hutting//HTN +Hutton/M/HTN +Hutu/M/HT +Huxley/M/HKSL +Huygens/M/HKNS +huzzah/GD/HS +huzzahs//HSS +hwy//H +Hy/M/H +hyacinth/M/HYSN@ +Hyacinth/M/HYSN@ +Hyacintha/M/HYSN@ +Hyacinthe/M/HYSN@ +Hyacinthia/M/HYSN@ +Hyacinthie/M/HYSN@ +hyacinths//HYSN@S +Hyades//HYTS +hyaena's//HYNS +Hyannis/M/HYNS +Hyatt/M/HYT +hybrid/MS/HBRT +hybridism/SM/HBRTSM +hybridization/S/HBRTSXN +hybridize/GSD/HBRTS +Hyde/M/HT +Hyderabad/M/HTRBT +Hydra/M/HTR +hydra/MS/HTR +hydrangea/SM/HTRNK +hydrant/SM/HTRNT +hydrate/CSDNGX/HTRT +hydrate's//HTRTS +hydration/MC/HTRXN +hydraulic/S/HTRLK +hydraulically//HTRLKL +hydraulicked//HTRLKT +hydraulicking//HTRLKN +hydraulics/M/HTRLKS +hydrazine/M/HTRSN +hydride/MS/HTRT +hydro/SM/HTR +hydrocarbon/SM/HTRKBN +hydrocephali//HTRSFL +hydrocephalus/MS/HTRSFLS +hydrochemistry//HTRXMSTR +hydrochloric//HTRXLRK +hydrochloride/M/HTRXLRT +hydrodynamic/S/HTRTNMK +hydrodynamical//HTRTNMKL +hydrodynamics/M/HTRTNMKS +hydroelectric//HTRLKTRK +hydroelectrically//HTRLKTRKL +hydroelectricity/SM/HTRLKTRST +hydrofluoric//HTRFLRK +hydrofoil/MS/HTRFL +hydrogen/MS/HTRKN +hydrogenate/CDSGN/HTRKNT +hydrogenate's//HTRKNTS +hydrogenation/MC/HTRKNXN +hydrogenations//HTRKNXNS +hydrogenous//HTRKNS +hydrological/Y/HTRLKKL +hydrologist/MS/HTRLKST +hydrology/SM/HTRLK +hydrolysis/M/HTRLSS +hydrolyze/GSD/HTRLS +hydrolyzed/U/HTRLST +hydromagnetic//HTRMKNTK +hydromechanics/M/HTRMXNKS +hydrometer/SM/HTRMT +hydrometry/MS/HTRMTR +hydrophilic//HTRFLK +hydrophobia/SM/HTRFB +hydrophobic//HTRFBK +hydrophone/SM/HTRFN +hydroplane/DSGM/HTRPLN +hydroponic/S/HTRPNK +hydroponics/M/HTRPNKS +hydrosphere/MS/HTRSFR +hydrostatic/S/HTRSTTK +hydrostatics/M/HTRSTTKS +hydrotherapy/SM/HTR@RP +hydrothermal/Y/HTR@ML +hydrous//HTRS +hydroxide/MS/HTRKST +hydroxy//HTRKS +hydroxyl/SM/HTRKSL +hydroxylate/N/HTRKSLT +hydroxyzine/M/HTRKSSN +hyena/MS/HYN +hygiene/MS/HKN +hygienic/S/HKNK +hygienically//HKNKL +hygienics/M/HKNKS +hygienist/MS/HKNST +hygrometer/SM/HKRMT +hygroscopic//HKRSKPK +hying//HYN +Hyman/M/HMN +Hymen/M/HMN +hymen/MS/HMN +hymeneal/S/HMNL +Hymie/M/HM +hymn/GSDM/HMN +hymnal/SM/HMNL +hymnbook/S/HMNBK +Hynda/M/HNT +hype/MZGDSR/HP +hyperactive/S/HPRKTF +hyperactivity/SM/HPRKTFT +hyperbola/MS/HPBL +hyperbole/MS/HPBL +hyperbolic//HPBLK +hyperbolically//HPBLKL +hyperboloid/SM/HPBLT +hyperboloidal//HPBLTL +hypercellularity//HPSLLRT +hypercritical/Y/HPKRTKL +hypercube/MS/HPKB +hyperemia/M/HPRM +hyperemic//HPRMK +hyperfine//HPFN +hypergamous/Y/HPKMS +hypergamy/M/HPKM +hyperglycemia/MS/HPKLSM +hyperinflation//HPRNFLXN +Hyperion/M/HPRN +hypermarket/SM/HPMKT +hypermedia/S/HPMT +hyperplane/SM/HPPLN +hyperplasia/M/HPPLX +hypersensitive/P/HPSNSTF +hypersensitiveness/MS/HPSNSTFNS +hypersensitivity/MS/HPSNSTFT +hypersonic//HPSNK +hyperspace/M/HPSPS +hypersphere/M/HPSFR +hypertension/MS/HPTNXN +hypertensive/S/HPTNSF +hypertext/SM/HPTKST +hyperthyroid//HP@RT +hyperthyroidism/MS/HP@RTSM +hypertrophy/MSDG/HPTRF +hypervelocity//HPFLST +hyperventilate/XSDGN/HPFNTLT +hyperventilation/M/HPFNTLXN +hyphen/DMGS/HFN +hyphenate/NGXSD/HFNT +hyphenated/U/HFNTT +hyphenation/M/HFNXN +hypnoses//HPNSS +hypnosis/M/HPNSS +hypnotherapy/SM/HPN@RP +hypnotic/S/HPNTK +hypnotically//HPNTKL +hypnotism/MS/HPNTSM +hypnotist/SM/HPNTST +hypnotize/SDG/HPNTS +hypo/DMSG/HP +hypoactive//HPKTF +hypoallergenic//HPLKNK +hypocellularity//HPSLLRT +hypochondria/MS/HPXNTR +hypochondriac/SM/HPXNTRK +hypocrisy/SM/HPKRS +hypocrite/MS/HPKRT +hypocritical/Y/HPKRTKL +hypodermic/S/HPTMK +hypoglycemia/SM/HPKLSM +hypoglycemic/S/HPKLSMK +hypophyseal//HPFSL +hypophysectomized//HPFSKTMST +hypotenuse/MS/HPTNS +hypothalami//HP@LM +hypothalamic//HP@LMK +hypothalamically//HP@LMKL +hypothalamus/M/HP@LMS +hypothermia/SM/HP@M +hypotheses//HP@SS +hypothesis/M/HP@SS +hypothesize/ZGRSD/HP@SS +hypothesizer/M/HP@SS +hypothetic//HP@TK +hypothetical/Y/HP@TKL +hypothyroid//HP@RT +hypothyroidism/SM/HP@RTSM +hypoxia/M/HPKS +hyssop/MS/HSP +hysterectomy/MS/HSTRKTM +hysteresis/M/HSTRSS +hysteria/SM/HSTR +hysteric/SM/HSTRK +hysterical/YU/HSTRKL +Hyundai/M/HYNT +Hz//HS +i//* +I//* +IA//* +Ia/M/* +Iaccoca/M/*KK +Iago/M/*K +Iain/M/*N +iamb/MS/*M +iambi//*MB +iambic/S/*MBK +iambus/SM/*MBS +Ian/M/*N +Ianthe/M/*N@ +Ibadan/M/*BTN +Ibbie/M/*B +Ibby/M/*B +Iberia/M/*BR +Iberian/MS/*BRN +Ibero/M/*BR +ibex/MS/*BKS +ibid//*BT +ibidem//*BTM +ibis/SM/*BS +IBM/M/*BM +Ibo/M/*B +Ibrahim/M/*BRHM +Ibsen/M/*BSN +ibuprofen/S/*BPRFN +Icarus/M/*KRS +ICBM/S/*KBM +ICC//*K +ice/GDSC/*S +Ice/M/*S +iceberg/SM/*SBK +iceboat/MS/*SBT +icebound//*SBNT +icebox/MS/*SBKS +icebreaker/SM/*SBRK +icecap/SM/*SKP +Iceland/MRZ/*SLNT +Icelander/M/*SLNT +Icelandic//*SLNTK +iceman/M/*SMN +icemen//*SMN +icepack//*SPK +icepick/S/*SPK +ice's//*SS +Ichabod/M/*XBT +ichneumon/M/*XNMN +ichthyologist/MS/*X@YLKST +ichthyology/MS/*X@YLK +icicle/SM/*SKL +icily//*SL +iciness/SM/*SNS +icing/MS/*SN +icky/RT/*K +icon/MS/*KN +iconic//*KNK +iconoclasm/MS/*KNKLSM +iconoclast/MS/*KNKLST +iconoclastic//*KNKLSTK +iconography/MS/*KNKRF +icosahedra//*KSHTR +icosahedral//*KSHTRL +icosahedron/M/*KSHTRN +ictus/SM/*KTS +ICU//*K +icy/RPT/*S +I'd//*T +ID//*T +id/MY/*T +Ida/M/*T +Idaho/MS/*TH +Idahoan/S/*THN +Idahoes//*THS +Idalia/M/*TL +Idalina/M/*TLN +Idaline/M/*TLN +idea/SM/*T +ideal/MYS/*TL +idealism/MS/*TLSM +idealist/MS/*TLST +idealistic//*TLSTK +idealistically//*TLSTKL +idealization/MS/*TLSXN +idealize/GDRSZ/*TLS +idealized/U/*TLST +idealizer/M/*TLS +idealogical//*TLKKL +ideate/SN/*TT +ideation/M/*TXN +Idell/M/*TL +Idelle/M/*TL +idem//*TM +idempotent/S/*TMPTNT +identical/YP/*TNTKL +identicalness/M/*TNTKLNS +identifiability//*TNTFBLT +identifiable/U/*TNTFBL +identifiably//*TNTFBL +identification/M/*TNTFKXN +identified/U/*TNTFT +identifier/M/*TNTF +identify/XZNSRDG/*TNTF +identity/SM/*TNTT +ideogram/MS/*TKRM +ideograph/M/*TKRF +ideographic//*TKRFK +ideographs//*TKRFS +ideological/Y/*TLKKL +ideologist/SM/*TLKST +ideologue/S/*TLK +ideology/SM/*TLK +ides//*TS +Idette/M/*TT +idiocy/MS/*TS +idiolect/M/*TLKT +idiom/MS/*TM +idiomatic/P/*TMTK +idiomatically//*TMTKL +idiopathic//*TP@K +idiosyncrasy/SM/*TSNKRS +idiosyncratic//*TSNKRTK +idiosyncratically//*TSNKRTKL +idiot/MS/*TT +idiotic//*TTK +idiotically//*TTKL +idle/PZTGDSR/*TL +idleness/MS/*TLNS +idler/M/*TL +idol/MS/*TL +idolater/MS/*TLT +idolatress/S/*TLTRS +idolatrous//*TLTRS +idolatry/SM/*TLTR +idolization/SM/*TLSXN +idolize/ZGDRS/*TLS +idolized/U/*TLST +idolizer/M/*TLS +ids//*TS +IDs//*TS +idyll/MS/*TL +idyllic//*TLK +idyllically//*TLKL +IE//* +IEEE//* +Ieyasu/M/*YS +if//*F +iffiness/S/*FNS +iffy/TPR/*F +Ifni/M/*FN +ifs//*FS +Iggie/M/*K +Iggy/M/*K +igloo/MS/*KL +Ignace/M/*KNS +Ignacio/M/*KNS +Ignacius/M/*KNSS +Ignatius/M/*KNTS +Ignaz/M/*KNS +Ignazio/M/*KNS +igneous//*KNS +ignitable//*KNTBL +ignite/ASDG/*KNT +igniter/M/*KNT +ignition/MS/*KNXN +ignoble/P/*KNBL +ignobleness/M/*KNBLNS +ignobly//*KNBL +ignominious/Y/*KNMNS +ignominy/MS/*KNMN +ignoramus/SM/*KNRMS +ignorance/MS/*KNRNS +ignorant/SPY/*KNRNT +ignorantness/M/*KNRNTNS +ignore/SRDGB/*KNR +ignorer/M/*KNR +Igor/M/*K +iguana/MS/*KN +Iguassu/M/*KS +ii//* +iii//* +Ijsselmeer/M/*KSLM +Ike/M/*K +Ikey/M/*K +Ikhnaton/M/*KHNTN +ikon's//*KNS +IL//*L +Ila/M/*L +Ilaire/M/*LR +Ilario/M/*LR +ilea//*L +Ileana/M/*LN +Ileane/M/*LN +ileitides//*LTTS +ileitis/M/*LTS +Ilene/M/*LN +ileum/M/*LM +ilia//*L +iliac//*LK +Iliad/MS/*LT +Ilise/M/*LS +ilium/M/*LM +ilk/MS/*LK +Ilka/M/*LK +I'll//*L +Ill/M/*L +ill/PS/*L +Illa/M/*L +illegal/YS/*LKL +illegality/MS/*LKLT +illegibility/MS/*LKBLT +illegible//*LKBL +illegibly//*LKBL +illegitimacy/SM/*LKTMS +illegitimate/SDGY/*LKTMT +illiberal/Y/*LBRL +illiberality/SM/*LBRLT +illicit/YP/*LST +illicitness/MS/*LSTNS +illimitable/P/*LMTBL +illimitableness/M/*LMTBLNS +Illinois/M/*LNS +Illinoisan/MS/*LNSN +illiquid//*LKT +illiteracy/MS/*LTRS +illiterate/PSY/*LTRT +illiterateness/M/*LTRTNS +illness/MS/*LNS +illogic/M/*LKK +illogical/PY/*LKKL +illogicality/SM/*LKKLT +illogicalness/M/*LKKLNS +illume/DG/*LM +illuminate/XSDVNG/*LMNT +Illuminati//*LMNT +illuminating/U/*LMNTN +illuminatingly//*LMNTNL +illumination/M/*LMNXN +illumine/BGSD/*LMN +illus/V/*LS +illusion/ES/*LXN +illusionary//*LXNR +illusionist/MS/*LXNST +illusion's//*LXNS +illusive/PY/*LSF +illusiveness/M/*LSFNS +illusoriness/M/*LSRNS +illusory/P/*LSR +illustrate/VGNSDX/*LSTRT +illustrated/U/*LSTRTT +illustration/M/*LSTRXN +illustrative/Y/*LSTRTF +illustrator/SM/*LSTRT +illustrious/PY/*LSTRS +illustriousness/SM/*LSTRSNS +illy//*L +Ilona/M/*LN +Ilsa/M/*LS +Ilse/M/*LS +Ilysa/M/*LS +Ilyse/M/*LS +Ilyssa/M/*LS +Ilyushin/M/*LYXN +I'm//*M +image/DSGM/*MK +Imagen/M/*MKN +imagery/MS/*MKR +imaginable/U/*MKNBL +imaginableness//*MKNBLNS +imaginably/U/*MKNBL +imaginariness/M/*MKNRNS +imaginary/PS/*MKNR +imagination/MS/*MKNXN +imaginative/UY/*MKNTF +imaginativeness/M/*MKNTFNS +imagine/RSDJBG/*MKN +imagined/U/*MKNT +imaginer/M/*MKN +imago/M/*MK +imagoes//*MKS +imam/MS/*MM +imbalance/SDM/*MBLNS +imbecile/YMS/*MBSL +imbecilic//*MBSLK +imbecility/MS/*MBSLT +imbibe/ZRSDG/*MBB +imbiber/M/*MBB +imbrication/SM/*MBRKXN +Imbrium/M/*MBRM +imbroglio/MS/*MBRKL +imbruing//*MBRN +imbue/GDS/*MB +Imelda/M/*MLT +IMF//*MF +IMHO//*MH +imitable/I/*MTBL +imitate/SDVNGX/*MTT +imitation/M/*MTXN +imitative/YP/*MTTF +imitativeness/MS/*MTTFNS +imitator/SM/*MTT +immaculate/YP/*MKLT +immaculateness/SM/*MKLTNS +immanence/S/*MNNS +immanency/MS/*MNNS +immanent/Y/*MNNT +Immanuel/M/*MNL +immaterial/PY/*MTRL +immateriality/MS/*MTRLT +immaterialness/MS/*MTRLNS +immature/SPY/*MTR +immatureness/M/*MTRNS +immaturity/MS/*MTRT +immeasurable/P/*MSRBL +immeasurableness/M/*MSRBLNS +immeasurably//*MSRBL +immediacy/MS/*MTS +immediate/YP/*MTT +immediateness/SM/*MTTNS +immemorial/Y/*MMRL +immense/PRTY/*MNS +immenseness/M/*MNSNS +immensity/MS/*MNST +immerse/RSDXNG/*MS +immersible//*MSBL +immersion/M/*MXN +immigrant/SM/*MKRNT +immigrate/NGSDX/*MKRT +immigration/M/*MKRXN +imminence/SM/*MNNS +imminent/YP/*MNNT +imminentness/M/*MNNTNS +immobile//*MBL +immobility/MS/*MBLT +immobilization/MS/*MBLSXN +immobilize/DSRG/*MBLS +immoderate/NYP/*MTRT +immoderateness/M/*MTRTNS +immoderation/M/*MTRXN +immodest/Y/*MTST +immodesty/SM/*MTST +immolate/SDNGX/*MLT +immolation/M/*MLXN +immoral/Y/*MRL +immorality/MS/*MRLT +immortal/SY/*MTL +immortality/SM/*MTLT +immortalize/GDS/*MTLS +immortalized/U/*MTLST +immovability/SM/*MFBLT +immovable/PS/*MFBL +immovableness/M/*MFBLNS +immovably//*MFBL +immune/S/*MN +immunity/SM/*MNT +immunization/MS/*MNSXN +immunize/GSD/*MNS +immunoassay/M/*MNS +immunodeficiency/S/*MNTFSNS +immunodeficient//*MNTFSNT +immunologic//*MNLKK +immunological/Y/*MNLKKL +immunologist/SM/*MNLKST +immunology/MS/*MNLK +immure/GSD/*MR +immutability/MS/*MTBLT +immutable/P/*MTBL +immutableness/M/*MTBLNS +immutably//*MTBL +IMNSHO//*MNX +IMO//*M +Imogen/M/*MKN +Imogene/M/*MKN +Imojean/M/*MKN +imp/SGMDRY/*MP +impact/VGMRDS/*MPKT +impaction/SM/*MPKXN +impactor/SM/*MPKT +impair/LGRDS/*MP +impaired/U/*MPRT +impairer/M/*MPR +impairment/SM/*MPMNT +impala/MS/*MPL +impale/GLRSD/*MPL +impalement/SM/*MPLMNT +impaler/M/*MPL +impalpable//*MPLPBL +impalpably//*MPLPBL +impanel/DGS/*MPNL +impart/GDS/*MPT +impartation/M/*MPTXN +impartial/Y/*MPXL +impartiality/SM/*MPXLT +impassable/P/*MPSBL +impassableness/M/*MPSBLNS +impassably//*MPSBL +impasse/SXBMVN/*MPS +impassibility/SM/*MPSBLT +impassible//*MPSBL +impassibly//*MPSBL +impassion/DG/*MPXN +impassioned/U/*MPXNT +impassive/YP/*MPSF +impassiveness/MS/*MPSFNS +impassivity/MS/*MPSFT +impasto/SM/*MPST +impatience/SM/*MPTNS +impatiens/M/*MPTNS +impatient/Y/*MPTNT +impeach/DRSZGLB/*MPX +impeachable/U/*MPXBL +impeacher/M/*MPX +impeachment/MS/*MPXMNT +impeccability/SM/*MPKBLT +impeccable/S/*MPKBL +impeccably//*MPKBL +impecunious/PY/*MPKNS +impecuniousness/MS/*MPKNSNS +imped/GRD/*MPT +impedance/MS/*MPTNS +impede/S/*MPT +impeded/U/*MPTT +impeder/M/*MPT +impediment/SM/*MPTMNT +impedimenta//*MPTMNT +impel/S/*MPL +impelled//*MPLT +impeller/MS/*MPL +impelling//*MPLN +impend/DGS/*MPNT +impenetrability/MS/*MPNTRBLT +impenetrable/P/*MPNTRBL +impenetrableness/M/*MPNTRBLNS +impenetrably//*MPNTRBL +impenitence/MS/*MPNTNS +impenitent/YS/*MPNTNT +imperative/PSY/*MPRTF +imperativeness/M/*MPRTFNS +imperceivable//*MPSFBL +imperceptibility/MS/*MPSPTBLT +imperceptible//*MPSPTBL +imperceptibly//*MPSPTBL +imperceptive//*MPSPTF +imperf//*MPF +imperfect/YSVP/*MPFKT +imperfectability//*MPFKTBLT +imperfection/MS/*MPFKXN +imperfectness/SM/*MPFKTNS +imperial/YS/*MPRL +imperialism/MS/*MPRLSM +imperialist/SM/*MPRLST +imperialistic//*MPRLSTK +imperialistically//*MPRLSTKL +imperil/GSLD/*MPRL +imperilment/SM/*MPRLMNT +imperious/YP/*MPRS +imperiousness/MS/*MPRSNS +imperishable/SP/*MPRXBL +imperishableness/M/*MPRXBLNS +imperishably//*MPRXBL +impermanence/MS/*MPMNNS +impermanent/Y/*MPMNNT +impermeability/SM/*MPMBLT +impermeable/P/*MPMBL +impermeableness/M/*MPMBLNS +impermeably//*MPMBL +impermissible//*MPMSBL +impersonal/Y/*MPSNL +impersonality/M/*MPSNLT +impersonalized//*MPSNLST +impersonate/XGNDS/*MPSNT +impersonation/M/*MPSNXN +impersonator/SM/*MPSNT +impertinence/SM/*MPTNNS +impertinent/YS/*MPTNNT +imperturbability/SM/*MPTBBLT +imperturbable//*MPTBBL +imperturbably//*MPTBBL +impervious/PY/*MPFS +imperviousness/M/*MPFSNS +impetigo/MS/*MPTK +impetuosity/MS/*MPTST +impetuous/YP/*MPTS +impetuousness/MS/*MPTSNS +impetus/MS/*MPTS +impiety/MS/*MPT +imping/GD/*MPN +impinge/LS/*MPN +impingement/MS/*MPNMNT +impious/PY/*MPS +impiousness/SM/*MPSNS +impish/YP/*MPX +impishness/MS/*MPXNS +implacability/SM/*MPLKBLT +implacable/P/*MPLKBL +implacableness/M/*MPLKBLNS +implacably//*MPLKBL +implant/BGSDR/*MPLNT +implantation/SM/*MPLNTXN +implanter/M/*MPLNT +implausibility/MS/*MPLSBLT +implausible//*MPLSBL +implausibly//*MPLSBL +implement/SMRDGZB/*MPLMNT +implementability//*MPLMNTBLT +implementable/U/*MPLMNTBL +implementation/A/*MPLMNTXN +implementations//*MPLMNTXNS +implementation's//*MPLMNTXNS +implemented/AU/*MPLMNTT +implementer/M/*MPLMNT +implementing/A/*MPLMNTN +implementor/MS/*MPLMNT +implicant/SM/*MPLKNT +implicate/VGSD/*MPLKT +implication/M/*MPLKXN +implicative/PY/*MPLKTF +implicit/YP/*MPLST +implicitness/SM/*MPLSTNS +implied/Y/*MPLT +implode/GSD/*MPLT +implore/GSD/*MPLR +imploring/Y/*MPLRN +implosion/SM/*MPLXN +implosive/S/*MPLSF +imply/GNSDX/*MPL +impolite/YP/*MPLT +impoliteness/MS/*MPLTNS +impolitic/PY/*MPLTK +impoliticness/M/*MPLTKNS +imponderable/PS/*MPNTRBL +imponderableness/M/*MPNTRBLNS +import/SZGBRD/*MPT +importance/SM/*MPTNS +important/Y/*MPTNT +importation/MS/*MPTXN +importer/M/*MPT +importing/A/*MPTN +importunate/PYGDS/*MPTNT +importunateness/M/*MPTNTNS +importune/SRDZYG/*MPTN +importuner/M/*MPTN +importunity/SM/*MPTNT +imposable//*MPSBL +impose/ASDG/*MPS +imposer/SM/*MPS +imposing/U/*MPSN +imposingly//*MPSNL +imposition/SM/*MPSXN +impossibility/SM/*MPSBLT +impossible/PS/*MPSBL +impossibleness/M/*MPSBLNS +impossibly//*MPSBL +impost/SGMD/*MPST +imposter's//*MPSTS +impostor/SM/*MPST +imposture/SM/*MPSTR +impotence/MS/*MPTNS +impotency/S/*MPTNS +impotent/SY/*MPTNT +impound/GDS/*MPNT +impoundments//*MPNTMNTS +impoverish/LGDRS/*MPFRX +impoverisher/M/*MPFRX +impoverishment/SM/*MPFRXMNT +impracticable/P/*MPRKTKBL +impracticableness/M/*MPRKTKBLNS +impracticably//*MPRKTKBL +impractical/PY/*MPRKTKL +impracticality/SM/*MPRKTKLT +impracticalness/M/*MPRKTKLNS +imprecate/NGXSD/*MPRKT +imprecation/M/*MPRKXN +imprecise/PYXN/*MPRSS +impreciseness/MS/*MPRSSNS +imprecision/M/*MPRSXN +impregnability/MS/*MPRKNBLT +impregnable/P/*MPRKNBL +impregnableness/M/*MPRKNBLNS +impregnably//*MPRKNBL +impregnate/DSXNG/*MPRKNT +impregnation/M/*MPRKNXN +impresario/SM/*MPRSR +impress/DRSGVL/*MPRS +impressed/U/*MPRST +impresser/M/*MPRS +impressibility/MS/*MPRSBLT +impressible//*MPRSBL +impression/BMS/*MPRXN +impressionability/SM/*MPRXNBLT +impressionable/P/*MPRXNBL +impressionableness/M/*MPRXNBLNS +impressionism/SM/*MPRXNSM +impressionist/MS/*MPRXNST +impressionistic//*MPRXNSTK +impressive/YP/*MPRSF +impressiveness/MS/*MPRSFNS +impressment/M/*MPRSMNT +imprimatur/SM/*MPRMT +imprint/SZDRGM/*MPRNT +imprinter/M/*MPRNT +imprinting/M/*MPRNTN +imprison/GLDS/*MPRSN +imprisonment/MS/*MPRSNMNT +improbability/MS/*MPRBBLT +improbable/P/*MPRBBL +improbableness/M/*MPRBBLNS +improbably//*MPRBBL +impromptu/S/*MPRMPT +improper/PY/*MPRP +improperness/M/*MPRPNS +impropitious//*MPRPXS +impropriety/SM/*MPRPRT +improve/SRDGBL/*MPRF +improved/U/*MPRFT +improvement/MS/*MPRFMNT +improver/M/*MPRF +improvidence/SM/*MPRFTNS +improvident/Y/*MPRFTNT +improvisation/MS/*MPRFSXN +improvisational//*MPRFSXNL +improvisatory//*MPRFSTR +improvise/RSDZG/*MPRFS +improviser/M/*MPRFS +imprudence/SM/*MPRTNS +imprudent/Y/*MPRTNT +impudence/MS/*MPTNS +impudent/Y/*MPTNT +impugn/SRDZGB/*MPN +impugner/M/*MPKN +impulse/XMVGNSD/*MPLS +impulsion/M/*MPLXN +impulsive/YP/*MPLSF +impulsiveness/MS/*MPLSFNS +impunity/SM/*MPNT +impure/RPTY/*MPR +impureness/M/*MPRNS +impurity/MS/*MPRT +imputation/SM/*MPTXN +impute/SDBG/*MPT +Imus/M/*MS +IN//*N +in/AS/*N +In/PM/*N +Ina/M/*N +inaction//*NKXN +inactive//*NKTF +inadequate/S/*NTKT +inadvertence/MS/*NTFTNS +inadvertent/Y/*NTFTNT +inalienability/MS/*NLNBLT +inalienably//*NLNBL +inalterable/P/*NLTRBL +inalterableness/M/*NLTRBLNS +inamorata/MS/*NMRT +inane/SRPYT/*NN +inanimate/P/*NNMT +inanimateness/S/*NNMTNS +inanity/MS/*NNT +inappeasable//*NPSBL +inappropriate/P/*NPRPRT +inarticulate/P/*NTKLT +inasmuch//*NSMX +inaugural/S/*NKRL +inaugurate/XSDNG/*NKRT +inauguration/M/*NKRXN +inauthenticity//*N@NTST +inbound/G/*NBNT +inbred/S/*NBRT +inbreed/JG/*NBRT +Inc/M/*NK +inc/T/*NK +Inca/SM/*NK +incalculableness/M/*NKLKLBLNS +incalculably//*NKLKLBL +incandescence/SM/*NKNTSNS +incandescent/YS/*NKNTSNT +incant//*NKNT +incantation/SM/*NKNTXN +incantatory//*NKNTTR +incapable/S/*NKPBL +incapacitate/GNSD/*NKPSTT +incapacitation/M/*NKPSTXN +incarcerate/XGNDS/*NKSRT +incarceration/M/*NKSRXN +incarnadine/GDS/*NKNTN +incarnate/AGSDNX/*NKNT +incarnation/AM/*NKNXN +incendiary/S/*NSNTR +incense/MGDS/*NSNS +incentive/ESM/*NSNTF +incentively//*NSNTFL +incept/DGVS/*NSPT +inception/MS/*NSPXN +inceptive/Y/*NSPTF +inceptor/M/*NSPT +incessant/Y/*NSSNT +incest/SM/*NSST +incestuous/PY/*NSSTS +incestuousness/MS/*NSSTSNS +inch/GMDS/*NX +inchoate/DSG/*NXT +Inchon/M/*NXN +inchworm/MS/*NXWM +incidence/MS/*NSTNS +incident/SM/*NSTNT +incidental/YS/*NSTNTL +incinerate/XNGSD/*NSNRT +incineration/M/*NSNRXN +incinerator/SM/*NSNRT +incipience/SM/*NSPNS +incipiency/M/*NSPNS +incipient/Y/*NSPNT +incise/SDVGNX/*NSS +incision/M/*NSXN +incisive/YP/*NSSF +incisiveness/MS/*NSSFNS +incisor/MS/*NSS +incite/RZL/*NST +incitement/MS/*NSTMNT +inciter/M/*NST +incl//*NKL +inclination/ESM/*NKLNXN +incline/EGSD/*NKLN +incliner/M/*NKLN +inclining/M/*NKLNN +include/GDS/*NKLT +inclusion/MS/*NKLXN +inclusive/PY/*NKLSF +inclusiveness/MS/*NKLSFNS +incognito/S/*NKKNT +incoherency/M/*NKHRNS +income/M/*NKM +incommode/DG/*NKMT +incommunicado//*NKMNKT +incomparable//*NKMPRBL +incompetent/MS/*NKMPTNT +incomplete/P/*NKMPLT +inconceivability/MS/*NKNSFBLT +inconceivable/P/*NKNSFBL +inconceivableness/M/*NKNSFBLNS +incondensable//*NKNTNSBL +incongruousness/S/*NKNKRSNS +inconsiderable/P/*NKNSTRBL +inconsiderableness/M/*NKNSTRBLNS +inconsistence//*NKNSSTNS +inconsolable/P/*NKNSLBL +inconsolableness/M/*NKNSLBLNS +inconsolably//*NKNSLBL +incontestability/SM/*NKNTSTBLT +incontestably//*NKNTSTBL +incontrovertibly//*NKNTRFTBL +inconvenience/DG/*NKNFNNS +inconvertibility//*NKNFTBLT +inconvertible//*NKNFTBL +incorporable//*NKPRBL +incorporate/GASDXN/*NKPRT +incorporated/UE/*NKPRTT +incorrect/P/*NKRKT +incorrigibility/MS/*NKRKBLT +incorrigible/SP/*NKRKBL +incorrigibleness/M/*NKRKBLNS +incorrigibly//*NKRKBL +incorruptible/S/*NKRPTBL +incorruptibly//*NKRPTBL +increase/JB/*NKRS +increaser/M/*NKRS +increasing/Y/*NKRSN +incredible/P/*NKRTBL +incredibleness/M/*NKRTBLNS +increment/DMGS/*NKRMNT +incremental/Y/*NKRMNTL +incrementation//*NKRMNTXN +incriminate/XNGSD/*NKRMNT +incrimination/M/*NKRMNXN +incriminatory//*NKRMNTR +incrustation/SM/*NKRSTXN +incubate/XNGVDS/*NKBT +incubation/M/*NKBXN +incubator/MS/*NKBT +incubus/MS/*NKBS +inculcate/SDGNX/*NKLKT +inculcation/M/*NKLKXN +inculpate/SDG/*NKLPT +incumbency/MS/*NKMBNS +incumbent/S/*NKMBNT +incunabula//*NKNBL +incunabulum//*NKNBLM +incurable/S/*NKRBL +incurious//*NKRS +incursion/SM/*NKXN +ind//*NT +Ind/M/*NT +indebted/P/*NTBTT +indebtedness/SM/*NTBTTNS +indefatigable/P/*NTFTKBL +indefatigableness/M/*NTFTKBLNS +indefatigably//*NTFTKBL +indefeasible//*NTFSBL +indefeasibly//*NTFSBL +indefinable/PS/*NTFNBL +indefinableness/M/*NTFNBLNS +indefinite/S/*NTFNT +indelible//*NTLBL +indelibly//*NTLBL +indemnification/M/*NTMNFKXN +indemnify/NXSDG/*NTMNF +indemnity/SM/*NTMNT +indent/R/*NTNT +indentation/SM/*NTNTXN +indented/U/*NTNTT +indenter/M/*NTNT +indention/SM/*NTNXN +indenture/DG/*NTNTR +Independence/M/*NTPNTNS +indescribable/PS/*NTSKRBBL +indescribableness/M/*NTSKRBBLNS +indescribably//*NTSKRBBL +indestructible/P/*NTSTRKTBL +indestructibleness/M/*NTSTRKTBLNS +indestructibly//*NTSTRKTBL +indeterminably//*NTTMNBL +indeterminacy/MS/*NTTMNS +indeterminism//*NTTMNSM +index/MRDZGB/*NTKS +indexation/S/*NTKSXN +indexer/M/*NTKS +India/M/*NT +Indian/SM/*NTN +Indiana/M/*NTN +Indianan/S/*NTNN +Indianapolis/M/*NTNPLS +Indianian/S/*NTNN +indicant/MS/*NTKNT +indicate/DSNGVX/*NTKT +indication/M/*NTKXN +indicative/SY/*NTKTF +indicator/MS/*NTKT +indices's//*NTSSS +indict/SGLBDR/*NTKT +indicter/M/*NTKT +indictment/SM/*NTKTMNT +indifference//*NTFRNS +indigence/MS/*NTKNS +indigenous/YP/*NTKNS +indigenousness/M/*NTKNSNS +indigent/SY/*NTKNT +indigestible/S/*NTKSTBL +indignant/Y/*NTKNNT +indignation/MS/*NTKNXN +indigo/SM/*NTK +Indira/M/*NTR +indirect/PG/*NTRKT +indiscreet/P/*NTSKRT +indiscriminate/PY/*NTSKRMNT +indiscriminateness/M/*NTSKRMNTNS +indispensability/MS/*NTSPNSBLT +indispensable/SP/*NTSPNSBL +indispensableness/M/*NTSPNSBLNS +indispensably//*NTSPNSBL +indisputable/P/*NTSPTBL +indisputableness/M/*NTSPTBLNS +indissoluble/P/*NTSLBL +indissolubleness/M/*NTSLBLNS +indissolubly//*NTSLBL +indistinguishable/P/*NTSTNXBL +indistinguishableness/M/*NTSTNXBLNS +indite/SDG/*NTT +indium/SM/*NTM +individual/YMS/*NTFTL +individualism/MS/*NTFTLSM +individualist/MS/*NTFTLST +individualistic//*NTFTLSTK +individualistically//*NTFTLSTKL +individuality/MS/*NTFTLT +individualization/SM/*NTFTLSXN +individualize/DRSGZ/*NTFTLS +individualized/U/*NTFTLST +individualizer/M/*NTFTLS +individualizes/U/*NTFTLSS +individualizing/Y/*NTFTLSN +individuate/DSXGN/*NTFTT +individuation/M/*NTFTXN +indivisible/SP/*NTFSBL +indivisibleness/M/*NTFSBLNS +indivisibly//*NTFSBL +Indochina/M/*NTXN +Indochinese//*NTXNS +indoctrinate/GNXSD/*NTKTRNT +indoctrination/M/*NTKTRNXN +indoctrinator/SM/*NTKTRNT +indolence/SM/*NTLNS +indolent/Y/*NTLNT +indomitable/P/*NTMTBL +indomitableness/M/*NTMTBLNS +indomitably//*NTMTBL +Indonesia/M/*NTNX +Indonesian/S/*NTNXN +indoor//*NT +Indore/M/*NTR +Indra/M/*NTR +indubitable/P/*NTBTBL +indubitableness/M/*NTBTBLNS +indubitably//*NTBTBL +induce/ZGLSRD/*NTS +inducement/MS/*NTSMNT +inducer/M/*NTS +inducible//*NTSBL +induct/GV/*NTKT +inductance/MS/*NTKTNS +inductee/SM/*NTKT +induction/SM/*NTKXN +inductive/PY/*NTKTF +inductiveness/M/*NTKTFNS +inductor/MS/*NTKT +indulge/GDRS/*NTLK +indulgence/SDGM/*NTLKNS +indulgent/Y/*NTLKNT +indulger/M/*NTLK +Indus/M/*NTS +industrial/SY/*NTSTRL +industrialism/MS/*NTSTRLSM +industrialist/MS/*NTSTRLST +industrialization/MS/*NTSTRLSXN +industrialize/SDG/*NTSTRLS +industrialized/U/*NTSTRLST +industrious/YP/*NTSTRS +industriousness/SM/*NTSTRSNS +industry/SM/*NTSTR +Indy/SM/*NT +inebriate/NGSDX/*NBRT +inebriation/M/*NBRXN +inedible//*NTBL +ineducable//*NTKBL +ineffability/MS/*NFBLT +ineffable/P/*NFBL +ineffableness/M/*NFBLNS +ineffably//*NFBL +inelastic//*NLSTK +ineligibly//*NLKBL +ineluctable//*NLKTBL +ineluctably//*NLKTBL +inept/YP/*NPT +ineptitude/SM/*NPTTT +ineptness/MS/*NPTNS +inequivalent//*NKFLNT +inerrant//*NRNT +inert/SPY/*NT +inertia/SM/*NX +inertial/Y/*NXL +inertness/MS/*NTNS +Ines//*NS +inescapably//*NSKPBL +Inesita/M/*NST +Inessa/M/*NS +inestimably//*NSTMBL +inevitability/MS/*NFTBLT +inevitable/P/*NFTBL +inevitableness/M/*NFTBLNS +inevitably//*NFTBL +inexact/P/*NKSKT +inexhaustible/P/*NKSHSTBL +inexhaustibleness/M/*NKSHSTBLNS +inexhaustibly//*NKSHSTBL +inexorability/M/*NKSRBLT +inexorable/P/*NKSRBL +inexorableness/M/*NKSRBLNS +inexorably//*NKSRBL +inexpedience/M/*NKSPTNS +inexplicable/P/*NKSPLKBL +inexplicableness/M/*NKSPLKBLNS +inexplicably//*NKSPLKBL +inexplicit//*NKSPLST +inexpressibility/M/*NKSPRSBLT +inexpressible/PS/*NKSPRSBL +inexpressibleness/M/*NKSPRSBLNS +inextricably//*NKSTRKBL +Inez/M/*NS +inf/ZT/*NF +infamous//*NFMS +infamy/SM/*NFM +infancy/M/*NFNS +infant/MS/*NFNT +infanticide/MS/*NFNTST +infantile//*NFNTL +infantry/SM/*NFNTR +infantryman/M/*NFNTRMN +infantrymen//*NFNTRMN +infarct/SM/*NFKT +infarction/SM/*NFKXN +infatuate/XNGSD/*NFTT +infatuation/M/*NFTXN +infauna//*NFN +infect/ESGDA/*NFKT +infected/U/*NFKTT +infecter//*NFKT +infection/EASM/*NFKXN +infectious/PY/*NFKXS +infectiousness/MS/*NFKXSNS +infective//*NFKTF +infer/B/*NF +inference/GMSR/*NFRNS +inferential/Y/*NFRNXL +inferior/SMY/*NFR +inferiority/MS/*NFRRT +infernal/Y/*NFNL +inferno/MS/*NFN +inferred//*NFRT +inferring//*NFRN +infertile//*NFTL +infest/GSDR/*NFST +infestation/MS/*NFSTXN +infester/M/*NFST +infidel/SM/*NFTL +infighting/M/*NFTN +infill/MG/*NFL +infiltrate/V/*NFLTRT +infiltrator/MS/*NFLTRT +infinite/V/*NFNT +infinitesimal/SY/*NFNTSML +infinitival//*NFNTFL +infinitive/YMS/*NFNTF +infinitude/MS/*NFNTT +infinitum//*NFNTM +infinity/SM/*NFNT +infirmary/SM/*NFMR +infirmity/SM/*NFMT +infix/M/*NFKS +inflammable/P/*NFLMBL +inflammableness/M/*NFLMBLNS +inflammation/MS/*NFLMXN +inflammatory//*NFLMTR +inflatable/MS/*NFLTBL +inflate/NGBDRSX/*NFLT +inflater/M/*NFLT +inflation/ESM/*NFLXN +inflationary//*NFLXNR +inflect/GVDS/*NFLKT +inflection/SM/*NFLKXN +inflectional/Y/*NFLKXNL +inflexible/P/*NFLKSBL +inflexibleness/M/*NFLKSBLNS +inflexion/SM/*NFLKSN +inflict/DRSGV/*NFLKT +inflicter/M/*NFLKT +infliction/SM/*NFLKXN +inflow/M/*NFL +influence/SRDGM/*NFLNS +influenced/U/*NFLNST +influencer/M/*NFLNS +influent//*NFLNT +influential/SY/*NFLNXL +influenza/MS/*NFLNS +info/SM/*NF +infomercial/S/*NFMXL +Informatica/M/*NFMTK +informatics//*NFMTKS +information/ES/*NFMXN +informational//*NFMXNL +informative/UY/*NFMTF +informativeness/S/*NFMTFNS +informatory//*NFMTR +informed/U/*NFMT +informer/M/*NFM +infotainment/S/*NFTNMNT +infra//*NFR +infrared/SM/*NFRRT +infrasonic//*NFRSNK +infrastructural//*NFRSTRKTRL +infrastructure/MS/*NFRSTRKTR +infrequence/S/*NFRKNS +infringe/LR/*NFRN +infringement/SM/*NFRNMNT +infringer/M/*NFRN +infuriate/GNYSD/*NFRT +infuriating/Y/*NFRTN +infuriation/M/*NFRXN +infuse/RZ/*NFS +infuser/M/*NFS +infusible/P/*NFSBL +infusibleness/M/*NFSBLNS +Inga/M/*NK +Ingaberg/M/*NKBK +Ingaborg/M/*NKBK +Ingamar/M/*NKM +Ingar/M/*NK +Inge/RM/*NK +Ingeberg/M/*NKBK +Ingeborg/M/*NKBK +Ingelbert/M/*NKLBT +Ingemar/M/*NKM +ingenious/YP/*NKNS +ingeniousness/MS/*NKNSNS +ingénue/S/*NKN +ingenuity/SM/*NKNT +ingenuous/EY/*NKNS +ingenuousness/MS/*NKNSNS +Inger/M/*NK +Ingersoll/M/*NKSL +ingest/DGVS/*NKST +ingestible//*NKSTBL +ingestion/SM/*NKSXN +Inglebert/M/*NKLBT +inglenook/MS/*NKLNK +Inglewood/M/*NKLWT +Inglis/M/*NKLS +Ingmar/M/*NKM +ingoing//*NKN +ingot/SMDG/*NKT +Ingra/M/*NKR +ingrained/Y/*NKRNT +Ingram/M/*NKRM +ingrate/M/*NKRT +ingratiate/DSGNX/*NKRXT +ingratiating/Y/*NKRXTN +ingratiation/M/*NKRXXN +ingredient/SM/*NKRTNT +Ingres/M/*NKRS +ingress/MS/*NKRS +ingression/M/*NKRXN +Ingrid/M/*NKRT +Ingrim/M/*NKRM +ingrown/P/*NKRN +inguinal//*NKNL +Ingunna/M/*NKN +inhabit/R/*NHBT +inhabitable/U/*NHBTBL +inhabitance//*NHBTNS +inhabited/U/*NHBTT +inhabiter/M/*NHBT +inhalant/S/*NHLNT +inhalation/SM/*NHLXN +inhalator/SM/*NHLT +inhale/Z/*NHL +inhere/DG/*NHR +inherent/Y/*NHRNT +inherit/BDSG/*NHRT +inheritable/P/*NHRTBL +inheritableness/M/*NHRTBLNS +inheritance/EMS/*NHRTNS +inherited/E/*NHRTT +inheriting/E/*NHRTN +inheritor/S/*NHRT +inheritress/MS/*NHRTRS +inheritrix/MS/*NHRTRKS +inherits/E/*NHRTS +inhibit/DVGS/*NHBT +inhibited/U/*NHBTT +inhibiter's//*NHBTS +inhibition/MS/*NHBXN +inhibitor/MS/*NHBT +inhibitory//*NHBTR +inhomogeneous//*NHMKNS +inhospitable/P/*NHSPTBL +inhospitableness/M/*NHSPTBLNS +inhospitality//*NHSPTLT +Inigo/M/*NK +inimical/Y/*NMKL +inimitable/P/*NMTBL +inimitableness/M/*NMTBLNS +inimitably//*NMTBL +inion//*NN +iniquitous/PY/*NKTS +iniquitousness/M/*NKTSNS +iniquity/MS/*NKT +initial/GSPRDY/*NXL +initialer/M/*NXL +initialization/A/*NXLSXN +initializations//*NXLSXNS +initialization's//*NXLSXNS +initialize/ASDG/*NXLS +initialized/U/*NXLST +initializer/S/*NXLS +initiate/UD/*NXT +initiates//*NXTS +initiating//*NXTN +initiation/SM/*NXXN +initiative/SM/*NXTF +initiator/MS/*NXT +initiatory//*NXTR +inject/GVSDB/*NKKT +injectable/U/*NKKTBL +injection/MS/*NKKXN +injector/SM/*NKKT +injunctive//*NKNKTF +injure/SRDZG/*NKR +injured/U/*NKRT +injurer/M/*NKR +injurious/YP/*NKRS +injuriousness/M/*NKRSNS +ink/ZDRJ/*NK +inkblot/SM/*NKBLT +inker/M/*NK +inkiness/MS/*NKNS +inkling/SM/*NKLN +inkstand/SM/*NKSTNT +inkwell/SM/*NKWL +inky/TP/*NK +inland//*NLNT +inlander/M/*NLNT +inlay/RG/*NL +inletting//*NLTN +inly/G/*NL +inmost//*NMST +inn/ZGDRSJ/*N +Inna/M/*N +innards//*NTS +innate/YP/*NT +innateness/SM/*NTNS +inner/Y/*N +innermost/S/*NMST +innersole/S/*NSL +innerspring//*NSPRN +innervate/GNSDX/*NFT +innervation/M/*NFXN +inning/M/*NN +Innis/M/*NS +innkeeper/MS/*NKP +innocence/SM/*NSNS +Innocent/M/*NSNT +innocent/SYRT/*NSNT +innocuous/PY/*NKS +innocuousness/MS/*NKSNS +innovate/SDVNGX/*NFT +innovation/M/*NFXN +innovative/P/*NFTF +innovator/MS/*NFT +innovatory//*NFTR +Innsbruck/M/*NSBRK +innuendo/MDGS/*NNT +innumerability/M/*NMRBLT +innumerable/P/*NMRBL +innumerableness/M/*NMRBLNS +innumerably//*NMRBL +innumerate//*NMRT +inoculate/ASDG/*NKLT +inoculation/MS/*NKLXN +inoculative//*NKLTF +inoffensive/P/*NFNSF +Inonu/M/*NN +inopportune/P/*NPTN +inopportuneness/M/*NPTNNS +inordinate/PY/*NTNT +inordinateness/M/*NTNTNS +inorganic//*NKNK +inpatient//*NPTNT +input/MRDG/*NPT +inquire/ZR/*NKR +inquirer/M/*NKR +inquiring/Y/*NKRN +inquiry/MS/*NKR +inquisition/MS/*NKSXN +Inquisition/MS/*NKSXN +inquisitional//*NKSXNL +inquisitive/YP/*NKSTF +inquisitiveness/MS/*NKSTFNS +inquisitor/MS/*NKST +inquisitorial/Y/*NKSTRL +INRI//*NR +inrush/M/*NRX +ins//*NS +INS//*NS +insalubrious//*NSLBRS +insanitary//*NSNTR +insatiability/MS/*NSXBLT +insatiable/P/*NSXBL +insatiableness/M/*NSXBLNS +insatiably//*NSXBL +inscribe/Z/*NSKRB +inscription/SM/*NSKRPXN +inscrutability/SM/*NSKRTBLT +inscrutable/P/*NSKRTBL +inscrutableness/SM/*NSKRTBLNS +inscrutably//*NSKRTBL +inseam//*NSM +insecticidal//*NSKTSTL +insecticide/MS/*NSKTST +insectivore/SM/*NSKTFR +insectivorous//*NSKTFRS +insecure/P/*NSKR +insecureness/M/*NSKRNS +inseminate/NGXSD/*NSMNT +insemination/M/*NSMNXN +insensate/P/*NSNST +insensateness/M/*NSNSTNS +insensible/P/*NSNSBL +insentient//*NSNTNT +inseparable/S/*NSPRBL +insert/ADSG/*NST +inserter/M/*NST +insertion/AMS/*NSXN +insetting//*NSTN +inshore//*NXR +inside/Z/*NST +insider/M/*NST +insidious/YP/*NSTS +insidiousness/MS/*NSTSNS +insightful/Y/*NSTFL +insigne's//*NSKNS +insignia/SM/*NSKN +insignificant//*NSKNFKNT +insinuate/VNGXSD/*NSNT +insinuating/Y/*NSNTN +insinuation/M/*NSNXN +insinuator/SM/*NSNT +insipid/Y/*NSPT +insipidity/MS/*NSPTT +insist/SGD/*NSST +insistence/SM/*NSSTNS +insistent/Y/*NSSTNT +insisting/Y/*NSSTN +insociable//*NSXBL +insofar//*NSF +insole/M/*NSL +insolence/SM/*NSLNS +insolent/YS/*NSLNT +insoluble/P/*NSLBL +insolubleness/M/*NSLBLNS +insolubly//*NSLBL +insomnia/MS/*NSMN +insomniac/S/*NSMNK +insomuch//*NSMX +insouciance/SM/*NSXNS +insouciant/Y/*NSXNT +inspect/AGSD/*NSPKT +inspection/SM/*NSPKXN +inspective//*NSPKTF +inspector/SM/*NSPKT +inspectorate/MS/*NSPKTRT +inspiration/MS/*NSPRXN +inspirational/Y/*NSPRXNL +inspire/R/*NSPR +inspired/U/*NSPRT +inspirer/M/*NSPR +inspiring/U/*NSPRN +inspirit/DG/*NSPRT +Inst//*NST +inst/B/*NST +install/ADRSG/*NSTL +installable//*NSTLBL +installation/SM/*NSTLXN +installer/MS/*NSTL +installment/MS/*NSTLMNT +instance/GD/*NSTNS +instant/SRYMP/*NSTNT +instantaneous/PY/*NSTNTNS +instantaneousness/M/*NSTNTNSNS +instantiate/SDXNG/*NSTNXT +instantiated/U/*NSTNXTT +instantiation/M/*NSTNXXN +instate/AGSD/*NSTT +instead//*NSTT +instigate/XSDVGN/*NSTKT +instigation/M/*NSTKXN +instigator/SM/*NSTKT +instillation/SM/*NSTLXN +instinct/VMS/*NSTNKT +instinctive/Y/*NSTNKTF +instinctual//*NSTNKTL +institute/ZXVGNSRD/*NSTTT +instituter/M/*NSTTT +institutes/M/*NSTTTS +institution/AM/*NSTTXN +institutional/Y/*NSTTXNL +institutionalism/M/*NSTTXNLSM +institutionalist/M/*NSTTXNLST +institutionalization/SM/*NSTTXNLSXN +institutionalize/GDS/*NSTTXNLS +institutor's//*NSTTTS +instr//*NSTR +instruct/DSVG/*NSTRKT +instructed/U/*NSTRKTT +instruction/MS/*NSTRKXN +instructional//*NSTRKXNL +instructive/PY/*NSTRKTF +instructiveness/M/*NSTRKTFNS +instructor/MS/*NSTRKT +instrument/GMDS/*NSTRMNT +instrumental/SY/*NSTRMNTL +instrumentalist/MS/*NSTRMNTLST +instrumentality/SM/*NSTRMNTLT +instrumentation/SM/*NSTRMNTXN +insubordinate//*NSBTNT +insubstantial//*NSBSTNXL +insufferable//*NSFRBL +insufferably//*NSFRBL +insular/YS/*NSL +insularity/MS/*NSLRT +insulate/DSXNG/*NSLT +insulated/U/*NSLTT +insulation/M/*NSLXN +insulator/MS/*NSLT +insulin/MS/*NSLN +insult/DRSG/*NSLT +insulter/M/*NSLT +insulting/Y/*NSLTN +insuperable//*NSPRBL +insuperably//*NSPRBL +insupportable/P/*NSPTBL +insupportableness/M/*NSPTBLNS +insurance/MS/*NSRNS +insurance's/A/*NSRNSS +insure/BZGS/*NSR +insured/S/*NSRT +insurer/M/*NSR +insurgence/SM/*NSKNS +insurgency/MS/*NSKNS +insurgent/MS/*NSKNT +insurmountably//*NSMNTBL +insurrection/SM/*NSRKXN +insurrectionist/SM/*NSRKXNST +int/ZR/*NT +intact/P/*NTKT +intactness/M/*NTKTNS +intaglio/GMDS/*NTKL +intake/M/*NTK +intangible/M/*NTNKBL +integer/MS/*NTK +integrability/M/*NTKRBLT +integrable//*NTKRBL +integral/SYM/*NTKRL +integrand/MS/*NTKRNT +integrate/AGNXEDS/*NTKRT +integration/EMA/*NTKRXN +integrative/E/*NTKRTF +integrator/MS/*NTKRT +integrity/SM/*NTKRT +integument/SM/*NTKMNT +Intel/M/*NTL +intellect/MVS/*NTLKT +intellective/Y/*NTLKTF +intellectual/YPS/*NTLKTL +intellectualism/MS/*NTLKTLSM +intellectuality/M/*NTLKTLT +intellectualize/GSD/*NTLKTLS +intellectualness/M/*NTLKTLNS +intelligence/MSR/*NTLKNS +intelligencer/M/*NTLKNS +intelligent/UY/*NTLKNT +intelligentsia/MS/*NTLKNTX +intelligibilities//*NTLKBLTS +intelligibility/UM/*NTLKBLT +intelligible/PU/*NTLKBL +intelligibleness/MU/*NTLKBLNS +intelligibly/U/*NTLKBL +Intelsat/M/*NTLST +intemperate/P/*NTMPRT +intendant/MS/*NTNTNT +intended/SYP/*NTNTT +intendedness/M/*NTNTTNS +intender/M/*NTNT +intensification/M/*NTNSFKXN +intensifier/M/*NTNSF +intensify/GXNZRSD/*NTNSF +intensional/Y/*NTNXNL +intensive/PSY/*NTNSF +intensiveness/MS/*NTNSFNS +intent/YP/*NTNT +intention/SDM/*NTNXN +intentional/UY/*NTNXNL +intentionality/M/*NTNXNLT +intentness/SM/*NTNTNS +inter/ESTL/*NT +interact/VGDS/*NTRKT +interaction/MS/*NTRKXN +interactive/PY/*NTRKTF +interactivity//*NTRKTFT +interaxial//*NTRKSL +interbank//*NTBNK +interbred//*NTBRT +interbreed/GS/*NTBRT +intercalate/GNVDS/*NTKLT +intercalation/M/*NTKLXN +intercase//*NTKS +intercaste//*NTKST +intercede/SRDG/*NTST +interceder/M/*NTST +intercensal//*NTSNSL +intercept/DGS/*NTSPT +interception/MS/*NTSPXN +interceptor/MS/*NTSPT +intercession/MS/*NTSXN +intercessor/SM/*NTSS +intercessory//*NTSSR +interchange/DSRGJ/*NTXNK +interchangeability/M/*NTXNKBLT +interchangeable/P/*NTXNKBL +interchangeableness/M/*NTXNKBLNS +interchangeably//*NTXNKBL +interchanger/M/*NTXNK +intercity//*NTST +interclass//*NTKLS +intercohort//*NTKHT +intercollegiate//*NTKLKT +intercom/SM/*NTKM +intercommunicate/SDXNG/*NTKMNKT +intercommunication/M/*NTKMNKXN +interconnect/GDS/*NTKNKT +interconnected/P/*NTKNKTT +interconnectedness/M/*NTKNKTTNS +interconnection/SM/*NTKNKXN +interconnectivity//*NTKNKTFT +intercontinental//*NTKNTNNTL +interconversion/M/*NTKNFXN +intercorrelated//*NTKRLTT +intercourse/SM/*NTKS +Interdata/M/*NTTT +interdenominational//*NTTNMNXNL +interdepartmental/Y/*NTTPTMNTL +interdependence/MS/*NTTPNTNS +interdependency/SM/*NTTPNTNS +interdependent/Y/*NTTPNTNT +interdict/MDVGS/*NTTKT +interdiction/MS/*NTTKXN +interdisciplinary//*NTTSPLNR +interest/GEMDS/*NTRST +interested/UYE/*NTRSTT +interesting/YP/*NTRSTN +interestingly/U/*NTRSTNL +interestingness/M/*NTRSTNNS +interface/SRDGM/*NTFS +interfacing/M/*NTFSN +interfaith//*NTF@ +interfere/SRDG/*NTFR +interference/MS/*NTFRNS +interferer/M/*NTFR +interfering/Y/*NTFRN +interferometer/SM/*NTFRMT +interferometric//*NTFRMTRK +interferometry/M/*NTFRMTR +interferon/MS/*NTFRN +interfile/GSD/*NTFL +intergalactic//*NTKLKTK +intergeneration/M/*NTKNRXN +intergenerational//*NTKNRXNL +interglacial//*NTKLXL +intergovernmental//*NTKFNMNTL +intergroup//*NTKRP +interim/S/*NTRM +interindex//*NTRNTKS +interindustry//*NTRNTSTR +interior/SMY/*NTR +interj//*NTK +interject/GDS/*NTKKT +interjection/MS/*NTKKXN +interjectional//*NTKKXNL +interlace/GSD/*NTLS +interlard/SGD/*NTLT +interlayer/G/*NTLY +interleave/SDG/*NTLF +interleukin/S/*NTLKN +interlibrary//*NTLBRR +interline/JGSD/*NTLN +interlinear/S/*NTLN +interlingua/M/*NTLN +interlingual//*NTLNL +interlining/M/*NTLNN +interlink/GDS/*NTLNK +interlisp/M/*NTLSP +interlobular//*NTLBL +interlock/RDSG/*NTLK +interlocker/M/*NTLK +interlocutor/MS/*NTLKT +interlocutory//*NTLKTR +interlope/GZSRD/*NTLP +interloper/M/*NTLP +interlude/MSDG/*NTLT +intermarriage/MS/*NTMRK +intermarry/GDS/*NTMR +intermediary/MS/*NTMTR +intermediate/YMNGSDP/*NTMTT +intermediateness/M/*NTMTTNS +intermediation/M/*NTMTXN +interment/SME/*NTMNT +intermeshed//*NTMXT +intermetrics//*NTMTRKS +intermezzi//*NTMS +intermezzo/SM/*NTMS +interminably//*NTMNBL +intermingle/DSG/*NTMNL +intermission/MS/*NTMXN +intermittent/Y/*NTMTNT +intermix/GSRD/*NTMKS +intermodule//*NTMTL +intermolecular/Y/*NTMLKL +intern/L/*NTN +internal/SY/*NTNL +internalization/SM/*NTNLSXN +internalize/GDS/*NTNLS +international/YS/*NTNXNL +Internationale/M/*NTNXNL +internationalism/SM/*NTNXNLSM +internationalist/SM/*NTNXNLST +internationality/M/*NTNXNLT +internationalization/MS/*NTNXNLSXN +internationalize/DSG/*NTNXNLS +internecine//*NTNSN +internee/SM/*NTN +interne's//*NTNS +Internet/M/*NTNT +INTERNET/M/*NTNT +internetwork//*NTNTWK +internist/SM/*NTNST +internment/SM/*NTNMNT +internship/MS/*NTNXP +internuclear//*NTNKL +interocular//*NTRKL +interoffice//*NTRFS +interoperability//*NTRPRBLT +interpenetrates//*NTPNTRTS +interpersonal/Y/*NTPSNL +interplanetary//*NTPLNTR +interplay/GSMD/*NTPL +interpol//*NTPL +Interpol/M/*NTPL +interpolate/XGNVBDS/*NTPLT +interpolation/M/*NTPLXN +interpose/GSRD/*NTPS +interposer/M/*NTPS +interposition/MS/*NTPSXN +interpret/AGSD/*NTPRT +interpretable/U/*NTPRTBL +interpretation/MSA/*NTPRTXN +interpretative/Y/*NTPRTTF +interpreted/U/*NTPRTT +interpreter/SM/*NTPRT +interpretive/Y/*NTPRTF +interpretor/S/*NTPRT +interprocess//*NTPRSS +interprocessor//*NTPRSS +interquartile//*NTKTL +interracial//*NTRXL +interred/E/*NTRT +interregional//*NTRKNL +interregnum/MS/*NTRKNM +interrelate/GNDSX/*NTRLT +interrelated/PY/*NTRLTT +interrelatedness/M/*NTRLTTNS +interrelation/M/*NTRLXN +interrelationship/SM/*NTRLXNXP +interring/E/*NTRN +interrogate/DSXGNV/*NTRKT +interrogation/M/*NTRKXN +interrogative/SY/*NTRKTF +interrogator/SM/*NTRKT +interrogatory/S/*NTRKTR +interrupt/VGZRDS/*NTRPT +interrupted/U/*NTRPTT +interrupter/M/*NTRPT +interruptibility//*NTRPTBLT +interruptible//*NTRPTBL +interruption/MS/*NTRPXN +interscholastic//*NTSKLSTK +intersect/GDS/*NTSKT +intersection/MS/*NTSKXN +intersession/MS/*NTSXN +interspecies//*NTSPSS +intersperse/GNDSX/*NTSPS +interspersion/M/*NTSPXN +interstage//*NTSTK +interstate/S/*NTSTT +interstellar//*NTSTL +interstice/SM/*NTSTS +interstitial/SY/*NTSTXL +intersurvey//*NTSF +intertask//*NTTSK +intertwine/GSD/*NTTWN +interurban/S/*NTRBN +interval/MS/*NTFL +intervene/GSRD/*NTFN +intervener/M/*NTFN +intervenor/M/*NTFN +intervention/MS/*NTFNXN +interventionism/MS/*NTFNXNSM +interventionist/S/*NTFNXNST +interview/AMD/*NTF +interviewed/U/*NTFWT +interviewee/SM/*NTFW +interviewer/SM/*NTFW +interviewing//*NTFWN +interviews//*NTFS +intervocalic//*NTFKLK +interweave/GS/*NTWF +interwove//*NTWF +interwoven//*NTWFN +intestacy/SM/*NTSTS +intestinal/Y/*NTSTNL +intestine/SM/*NTSTN +inti//*NT +intifada//*NTFT +intimacy/SM/*NTMS +intimal//*NTML +intimate/XYNGPDRS/*NTMT +intimateness/M/*NTMTNS +intimater/M/*NTMT +intimation/M/*NTMXN +intimidate/SDXNG/*NTMTT +intimidating/Y/*NTMTTN +intimidation/M/*NTMTXN +into//*NT +intolerable/P/*NTLRBL +intolerableness/M/*NTLRBLNS +intolerant/PS/*NTLRNT +intonate/NX/*NTNT +intonation/M/*NTNXN +intoxicant/MS/*NTKSKNT +intoxicate/DSGNX/*NTKSKT +intoxicated/Y/*NTKSKTT +intoxication/M/*NTKSKXN +intra//*NTR +intracellular//*NTRSLL +intracity//*NTRST +intraclass//*NTRKLS +intracohort//*NTRKHT +intractability/M/*NTRKTBLT +intractable/P/*NTRKTBL +intractableness/M/*NTRKTBLNS +intradepartmental//*NTRTPTMNTL +intrafamily//*NTRFML +intragenerational//*NTRKNRXNL +intraindustry//*NTRNTSTR +intraline//*NTRLN +intrametropolitan//*NTRMTRPLTN +intramural/Y/*NTRMRL +intramuscular/Y/*NTRMSKL +intranasal//*NTRNSL +intransigence/MS/*NTRNSKNS +intransigent/YS/*NTRNSKNT +intransitive/S/*NTRNSTF +intraoffice//*NTRFS +intraprocess//*NTRPRSS +intrapulmonary//*NTRPLMNR +intraregional//*NTRRKNL +intrasectoral//*NTRSKTRL +intrastate//*NTRSTT +intratissue//*NTRTS +intrauterine//*NTRTRN +intravenous/YS/*NTRFNS +intrepid/YP/*NTRPT +intrepidity/SM/*NTRPTT +intrepidness/M/*NTRPTNS +intricacy/SM/*NTRKS +intricate/PY/*NTRKT +intricateness/M/*NTRKTNS +intrigue/DRSZG/*NTRK +intriguer/M/*NTRK +intriguing/Y/*NTRKN +intrinsic/S/*NTRNSK +intrinsically//*NTRNSKL +intro/S/*NTR +introduce/ADSG/*NTRTS +introducer/M/*NTRTS +introduction/ASM/*NTRTKXN +introductory//*NTRTKTR +introit/SM/*NTRT +introject/SD/*NTRKKT +introspect/SGVD/*NTRSPKT +introspection/MS/*NTRSPKXN +introspective/YP/*NTRSPKTF +introspectiveness/M/*NTRSPKTFNS +introversion/SM/*NTRFXN +introvert/SMDG/*NTRFT +intrude/ZGDSR/*NTRT +intruder/M/*NTRT +intrusion/SM/*NTRXN +intrusive/SYP/*NTRSF +intrusiveness/MS/*NTRSFNS +intubate/NGDS/*NTBT +intubation/M/*NTBXN +intuit/GVDSB/*NTT +intuitionist/M/*NTXNST +intuitive/YP/*NTTF +intuitiveness/MS/*NTTFNS +Inuit/MS/*NT +inundate/SXNG/*NNTT +inundation/M/*NNTXN +inure/GDS/*NR +invade/ZSRDG/*NFT +invader/M/*NFT +invalid/GSDM/*NFLT +invalidism/MS/*NFLTSM +invariable/P/*NFRBL +invariant/M/*NFRNT +invasion/SM/*NFXN +invasive/P/*NFSF +invective/PSMY/*NFKTF +invectiveness/M/*NFKTFNS +inveigh/DRG/*NF +inveigher/M/*NFK +inveighs//*NFS +inveigle/DRSZG/*NFKL +inveigler/M/*NFKL +invent/ADGS/*NFNT +invented/U/*NFNTT +invention/ASM/*NFNXN +inventive/YP/*NFNTF +inventiveness/MS/*NFNTFNS +inventor/MS/*NFNT +inventory/SDMG/*NFNTR +Inverness/M/*NFNS +inverse/YV/*NFS +invert/ZSGDR/*NFT +inverter/M/*NFT +invertible//*NFTBL +invest/ADSLG/*NFST +investigate/XDSNGV/*NFSTKT +investigation/MA/*NFSTKXN +investigator/MS/*NFSTKT +investigatory//*NFSTKTR +investiture/SM/*NFSTTR +investment/ESA/*NFSTMNT +investment's/A/*NFSTMNTS +investor/SM/*NFST +inveteracy/MS/*NFTRS +inveterate/Y/*NFTRT +inviability//*NFBLT +invidious/YP/*NFTS +invidiousness/MS/*NFTSNS +invigilate/GD/*NFKLT +invigilator/SM/*NFKLT +invigorate/ANGSD/*NFKRT +invigorating/Y/*NFKRTN +invigoration/AM/*NFKRXN +invigorations//*NFKRXNS +invincibility/SM/*NFNSBLT +invincible/P/*NFNSBL +invincibleness/M/*NFNSBLNS +invincibly//*NFNSBL +inviolability/MS/*NFLBLT +inviolably//*NFLBL +inviolate/YP/*NFLT +inviolateness/M/*NFLTNS +inviscid//*NFST +invisible/S/*NFSBL +invisibleness/M/*NFSBLNS +invitation/MS/*NFTXN +invitational/S/*NFTXNL +invite/SRDG/*NFT +invited/U/*NFTT +invitee/S/*NFT +inviter/M/*NFT +inviting/Y/*NFTN +invocable//*NFKBL +invocate//*NFKT +invoke/GSRDBZ/*NFK +invoked/A/*NFKT +invoker/M/*NFK +invokes/A/*NFKS +involuntariness/S/*NFLNTRNS +involuntary/P/*NFLNTR +involute/XYN/*NFLT +involution/M/*NFLXN +involutorial//*NFLTRL +involve/GDSRL/*NFLF +involved/U/*NFLFT +involvedly//*NFLFTL +involvement/SM/*NFLFMNT +involver/M/*NFLF +invulnerability/M/*NFLNRBLT +invulnerableness/M/*NFLNRBLNS +inward/PY/*NWT +inwardness/M/*NWTNS +Io/M/* +ioctl//*KTL +iodate/MGND/*TT +iodation/M/*TXN +iodide/MS/*TT +iodinate/DNG/*TNT +iodine/MS/*TN +iodize/GSD/*TS +Iolande/M/*LNT +Iolanthe/M/*LN@ +ion/SMU/*N +Iona/M/*N +Ionesco/M/*NSK +Ionian/M/*NN +ionic/S/*NK +Ionic/S/*NK +ionization/SU/*NSXN +ionization's//*NSXNS +ionize/GNSRDJXZ/*NS +ionized/UC/*NST +ionizer/US/*NS +ionizer's//*NSS +ionizes/U/*NSS +ionizing/U/*NSN +ionosphere/SM/*NSFR +ionospheric//*NSFRK +ion's/I/*NS +Iorgo/MS/*K +Iormina/M/*MN +Iosep/M/*SP +iota/SM/*T +IOU//* +Iowa/SM/*W +Iowan/S/*WN +IPA//*P +ipecac/MS/*PKK +Iphigenia/M/*FKN +ipso//*PS +Ipswich/M/*PSWX +IQ//*K +Iqbal/M/*KBL +Iquitos/M/*KTS +Ir/M/* +Ira/M/*R +IRA/S/*R +Iran/M/*RN +Iranian/MS/*RNN +Iraq/M/*RK +Iraqi/SM/*RK +irascibility/SM/*RSBLT +irascible//*RSBL +irascibly//*RSBL +irate/RPYT/*RT +irateness/S/*RTNS +ire/MGDS/*R +ireful//*RFL +Ireland/M/*RLNT +Irena/M/*RN +Irene/M/*RN +irenic/S/*RNK +irides/M/*RTS +iridescence/SM/*RTSNS +iridescent/Y/*RTSNT +iridium/MS/*RTM +irids//*RTS +Irina/M/*RN +Iris//*RS +iris/GDSM/*RS +Irish/R/*RX +Irishman/M/*RXMN +Irishmen//*RXMN +Irishwoman/M/*RXWMN +Irishwomen//*RXWMN +Irita/M/*RT +irk/GDS/*K +irksome/YP/*KSM +irksomeness/SM/*KSMNS +Irkutsk/M/*KTSK +Irma/M/*M +iron/DRMPSGJ/*RN +ironclad/S/*RNKLT +ironer/M/*RN +ironic//*RNK +ironical/YP/*RNKL +ironicalness/M/*RNKLNS +ironing/M/*RNN +ironmonger/M/*RNMNK +ironmongery/M/*RNMNKR +ironside/MS/*RNST +ironstone/MS/*RNSTN +ironware/SM/*RNWR +ironwood/SM/*RNWT +ironwork/MRS/*RNWK +ironworker/M/*RNWK +irony/SM/*RN +Iroquoian/MS/*RKN +Iroquois/M/*RKS +irradiate/XSDVNG/*RTT +irradiation/M/*RTXN +irrational/YSP/*RXNL +irrationality/MS/*RXNLT +irrationalness/M/*RXNLNS +Irrawaddy/M/*RWT +irreclaimable//*RKLMBL +irreconcilability/MS/*RKNSLBLT +irreconcilable/PS/*RKNSLBL +irreconcilableness/M/*RKNSLBLNS +irreconcilably//*RKNSLBL +irrecoverable/P/*RKFRBL +irrecoverableness/M/*RKFRBLNS +irrecoverably//*RKFRBL +irredeemable/S/*RTMBL +irredeemably//*RTMBL +irredentism/M/*RTNTSM +irredentist/M/*RTNTST +irreducibility/M/*RTSBLT +irreducible//*RTSBL +irreducibly//*RTSBL +irreflexive//*RFLKSF +irrefutable//*RFTBL +irrefutably//*RFTBL +irregardless//*RKTLS +irregular/YS/*RKL +irregularity/SM/*RKLRT +irrelevance/SM/*RLFNS +irrelevancy/MS/*RLFNS +irrelevant/Y/*RLFNT +irreligious//*RLKS +irremediable/P/*RMTBL +irremediableness/M/*RMTBLNS +irremediably//*RMTBL +irremovable//*RMFBL +irreparable/P/*RPRBL +irreparableness/M/*RPRBLNS +irreparably//*RPRBL +irreplaceable/P/*RPLSBL +irrepressible//*RPRSBL +irrepressibly//*RPRSBL +irreproachable/P/*RPRXBL +irreproachableness/M/*RPRXBLNS +irreproachably//*RPRXBL +irreproducibility//*RPRTSBLT +irreproducible//*RPRTSBL +irresistibility/M/*RSSTBLT +irresistible/P/*RSSTBL +irresistibleness/M/*RSSTBLNS +irresistibly//*RSSTBL +irresolute/PNXY/*RSLT +irresoluteness/SM/*RSLTNS +irresolution/M/*RSLXN +irresolvable//*RSLFBL +irrespective/Y/*RSPKTF +irresponsibility/SM/*RSPNSBLT +irresponsible/PS/*RSPNSBL +irresponsibleness/M/*RSPNSBLNS +irresponsibly//*RSPNSBL +irretrievable//*RTRFBL +irretrievably//*RTRFBL +irreverence/MS/*RFRNS +irreverent/Y/*RFRNT +irreversible//*RFSBL +irreversibly//*RFSBL +irrevocable/P/*RFKBL +irrevocableness/M/*RFKBLNS +irrevocably//*RFKBL +irrigable//*RKBL +irrigate/DSXNG/*RKT +irrigation/M/*RKXN +irritability/MS/*RTBLT +irritable/P/*RTBL +irritableness/M/*RTBLNS +irritably//*RTBL +irritant/S/*RTNT +irritate/DSXNGV/*RTT +irritated/Y/*RTTT +irritating/Y/*RTTN +irritation/M/*RTXN +irrupt/GVSD/*RPT +irruption/SM/*RPXN +IRS//*S +Irtish/M/*TX +Irv/MG/*F +Irvin/M/*FN +Irvine/M/*FN +Irving/M/*FN +Irwin/M/*WN +Irwinn/M/*WN +is//*S +i's//*S +Isa/M/*S +Isaac/SM/*SK +Isaak/M/*SK +Isabel/M/*SBL +Isabelita/M/*SBLT +Isabella/M/*SBL +Isabelle/M/*SBL +Isac/M/*SK +Isacco/M/*SK +Isador/M/*ST +Isadora/M/*STR +Isadore/M/*STR +Isahella/M/*SHL +Isaiah/M/*S +Isak/M/*SK +ISBN//*SBN +Iscariot/M/*SKRT +Iseabal/M/*SBL +Isfahan/M/*SFHN +Isherwood/M/*XWT +Ishim/M/*XM +Ishmael/M/*XML +Ishtar/M/*XT +Isiah/M/*X +Isiahi/M/*XH +Isidor/M/*ST +Isidora/M/*STR +Isidore/M/*STR +Isidoro/M/*STR +Isidro/M/*STR +isinglass/MS/*SNLS +Isis/M/*SS +isl/GD/*SL +Islam/SM/*SLM +Islamabad/M/*SLMBT +Islamic/S/*SLMK +island/GZMRDS/*SLNT +islander/M/*SLNT +Islandia/M/*SLNT +isle/MS/*SL +islet/SM/*SLT +ism/MCS/*SM +Ismael/M/*SML +isn't//*SNT +ISO//*S +isobar/MS/*SB +isobaric//*SBRK +Isobel/M/*SBL +isochronal/Y/*SXRNL +isochronous/Y/*SXRNS +isocline/M/*SKLN +isocyanate/M/*SSYNT +isodine//*STN +isolate/SDXNG/*SLT +isolation/M/*SLXN +isolationism/SM/*SLXNSM +isolationist/SM/*SLXNST +isolationistic//*SLXNSTK +isolator/MS/*SLT +Isolde/M/*SLT +isomer/SM/*SM +isomeric//*SMRK +isomerism/SM/*SMRSM +isometric/S/*SMTRK +isometrically//*SMTRKL +isometrics/M/*SMTRKS +isomorph/M/*SMF +isomorphic//*SMFK +isomorphically//*SMFKL +isomorphism/MS/*SMFSM +isoperimetrical//*SPRMTRKL +isopleth/M/*SPL@ +isopleths//*SPL@S +isosceles//*SSLS +isostatic//*SSTTK +isotherm/MS/*S@M +isothermal/Y/*S@ML +isotonic//*STNK +isotope/SM/*STP +isotopic//*STPK +isotropic//*STRPK +isotropically//*STRPKL +isotropy/M/*STRP +Ispahan's//*SPHNS +ispell/M/*SPL +Ispell/M/*SPL +Israel/MS/*SRL +Israeli/MS/*SRL +Israelite/SM/*SRLT +Issac/M/*SK +Issi/M/*S +Issiah/M/*X +Issie/M/*S +issuable//*SBL +issuance/MS/*SNS +issuant//*SNT +issue/GMZDSR/*S +issued/A/*ST +issuer/AMS/*S +issues/A/*SS +issuing/A/*SN +Issy/M/*S +Istanbul/M/*STNBL +isthmian/S/*S@MN +isthmus/SM/*S@MS +Istvan/M/*STFN +Isuzu/M/*SS +It//*T +IT//*T +it/MUS/*T +Itaipu/M/*TP +ital//*TL +Ital/M/*TL +Italian/MS/*TLN +Italianate/GSD/*TLNT +italic/S/*TLK +italicization/MS/*TLSSXN +italicize/GSD/*TLSS +italicized/U/*TLSST +Italy/M/*TL +Itasca/M/*TSK +itch/GMDS/*X +Itch/M/*X +itchiness/MS/*XNS +itchy/RTP/*X +ITcorp/M/*TKP +ITCorp/M/*TKP +it'd//*TT +Itel/M/*TL +item/MDSG/*TM +itemization/SM/*TMSXN +itemize/GZDRS/*TMS +itemized/U/*TMST +itemizer/M/*TMS +itemizes/A/*TMSS +iterate/ASDXVGN/*TRT +iteration/M/*TRXN +iterative/YA/*TRTF +iterator/MS/*TRT +Ithaca/M/*@K +Ithacan//*@KN +itinerant/SY/*TNRNT +itinerary/MS/*TNRR +it'll//*TL +Ito/M/*T +its//*TS +itself//*TSLF +ITT//*T +IUD/S/*T +IV//*F +iv/M/*F +Iva/M/*F +Ivan/M/*FN +Ivanhoe/M/*FNH +Ivar/M/*F +I've//*F +Ive/MRS/*F +Iver/M/*F +Ivett/M/*FT +Ivette/M/*FT +Ivie/M/*F +Ivonne/M/*FN +Ivor/M/*F +Ivory/M/*FR +ivory/SM/*FR +IVs//*FS +Ivy/M/*F +ivy/MDS/*F +ix//*KS +Izaak/M/*SK +Izabel/M/*SBL +Izak/M/*SK +Izanagi/M/*SNK +Izanami/M/*SNM +Izhevsk/M/*SHFSK +Izmir/M/*SM +Izvestia/M/*SFSX +Izzy/M/*S +j/F/K +J/X/K +jab/SM/KB +jabbed//KBT +jabber/JRDSZG/KB +jabberer/M/KBR +jabbing//KBN +Jabez/M/KBS +Jablonsky/M/KBLNSK +jabot/MS/KBT +jacaranda/MS/KKRNT +Jacenta/M/KSNT +Jacinda/M/KSNT +Jacinta/M/KSNT +Jacintha/M/KSN@ +Jacinthe/M/KSN@ +jack/GDRMS/KK +Jack/M/KK +jackal/SM/KKL +jackass/SM/KKS +jackboot/DMS/KKBT +jackdaw/SM/KKT +Jackelyn/M/KKLN +jacket/GSMD/KKT +jacketed/U/KKTT +jackhammer/MDGS/KKHM +Jacki/M/KK +Jackie/M/KK +jackknife/MGSD/KKKNF +jackknives//KKKNFS +Jacklin/M/KKLN +Jacklyn/M/KKLN +Jackman/M/KKMN +jackpot/MS/KKPT +Jackquelin/M/KKKLN +Jackqueline/M/KKKLN +jackrabbit/DGS/KKRBT +Jackson/SM/KKSN +Jacksonian//KKSNN +Jacksonville/M/KKSNFL +jackstraw/MS/KKSTR +Jacky/M/KK +Jaclin/M/KKLN +Jaclyn/M/KKLN +Jacob/SM/KKB +Jacobean//KKBN +Jacobi/M/KKB +Jacobian/M/KKBN +Jacobin/M/KKBN +Jacobite/M/KKBT +Jacobo/M/KKB +Jacobs/N/KKBS +Jacobsen/M/KKBSN +Jacobson/M/KKBSN +Jacobus//KKBS +Jacoby/M/KKB +jacquard/MS/KKT +Jacquard/SM/KKT +Jacquelin/M/KKLN +Jacqueline/M/KKLN +Jacquelyn/M/KKLN +Jacquelynn/M/KKLN +Jacquenetta/M/KKNT +Jacquenette/M/KKNT +Jacques/M/KKS +Jacquetta/M/KKT +Jacquette/M/KKT +Jacqui/M/KK +Jacquie/M/KK +jacuzzi//KKS +Jacuzzi/S/KKS +Jacynth/M/KSN@ +Jada/M/KT +Jade/M/KT +jade/MGDS/KT +jaded/PY/KTT +jadedness/SM/KTTNS +jadeite/SM/KTT +Jae/M/K +Jaeger/M/KK +jag/S/KK +jagged/RYTP/KKT +jaggedness/SM/KKTNS +Jagger/M/KK +jaggers//KKS +jagging//KKN +jaguar/MS/KK +jail/GZSMDR/KL +jailbird/MS/KLBT +jailbreak/SM/KLBRK +jailer/M/KL +Jaime/M/KM +Jaimie/M/KM +Jain/M/KN +Jaine/M/KN +Jainism/M/KNSM +Jaipur/M/KP +Jakarta/M/KKT +Jake/MS/KK +Jakie/M/KK +Jakob/M/KKB +jalapeño/S/KLP +jalopy/SM/KLP +jalousie/MS/KLS +jam/SM/KM +Jamaal/M/KML +Jamaica/M/KMK +Jamaican/S/KMKN +Jamal/M/KML +Jamar/M/KM +jamb/DMGS/KM +jambalaya/MS/KMBLY +jamboree/MS/KMBR +Jame/MS/KM +Jamel/M/KML +Jameson/M/KMSN +Jamestown/M/KMSTN +Jamesy/M/KMS +Jamey/M/KM +Jami/M/KM +Jamie/M/KM +Jamil/M/KML +Jamill/M/KML +Jamima/M/KMM +Jamison/M/KMSN +Jammal/M/KML +jammed/U/KMT +Jammie/M/KM +jamming/U/KMN +Jan/M/KN +Jana/M/KN +Janacek/M/KNSK +Janaya/M/KNY +Janaye/M/KNY +Jandy/M/KNT +Jane/M/KN +Janean/M/KNN +Janeczka/M/KNKSK +Janeen/M/KNN +Janeiro/M/KNR +Janek/M/KNK +Janel/M/KNL +Janela/M/KNL +Janell/M/KNL +Janella/M/KNL +Janelle/M/KNL +Janene/M/KNN +Janenna/M/KNN +Janessa/M/KNS +Janesville/M/KNSFL +Janet/M/KNT +Janeta/M/KNT +Janetta/M/KNT +Janette/M/KNT +Janeva/M/KNF +Janey/M/KN +jangle/RSDGZ/KNKL +jangler/M/KNKL +jangly//KNKL +Jania/M/KN +Janice/M/KNS +Janie/M/KN +Janifer/M/KNF +Janina/M/KNN +Janine/M/KNN +Janis/M/KNS +janissary/MS/KNSR +Janith/M/KN@ +janitor/SM/KNT +janitorial//KNTRL +Janka/M/KNK +Janna/M/KN +Jannel/M/KNL +Jannelle/M/KNL +Jannie/M/KN +Janos/M/KNS +Janot/M/KNT +Jansen/M/KNSN +Jansenist/M/KNSNST +January/MS/KNR +Janus/M/KNS +Jany/M/KN +Japan/M/KPN +japan/SM/KPN +Japanese/SM/KPNS +japanned//KPNT +japanner//KPN +japanning//KPNN +jape/DSMG/KP +Japura/M/KPR +Jaquelin/M/KKLN +Jaquelyn/M/KKLN +Jaquenetta/M/KKNT +Jaquenette/M/KKNT +Jaquith/M/KK@ +jar/MS/K +Jarad/M/KRT +Jard/M/KT +jardinière/MS/KTNR +Jareb/M/KRB +Jared/M/KRT +jarful/S/KFL +jargon/SGDM/KKN +Jarib/M/KRB +Jarid/M/KRT +Jarlsberg//KLSBK +Jarrad/M/KRT +jarred//KRT +Jarred/M/KRT +Jarret/M/KRT +Jarrett/M/KRT +Jarrid/M/KRT +jarring/SY/KRN +Jarrod/M/KRT +Jarvis/M/KFS +Jase/M/KS +Jasen/M/KSN +Jasmin/M/KSMN +Jasmina/M/KSMN +Jasmine/M/KSMN +jasmine/MS/KSMN +Jason/M/KSN +Jasper/M/KSP +jasper/MS/KSP +Jastrow/M/KSTR +Jasun/M/KSN +jato/SM/KT +jaundice/DSMG/KNTS +jaundiced/U/KNTST +jaunt/MDGS/KNT +jauntily//KNTL +jauntiness/MS/KNTNS +jaunty/SRTP/KNT +Java/SM/KF +Javanese//KFNS +javelin/SDMG/KFLN +Javier/M/KF +jaw/SMDG/K +jawbone/SDMG/KBN +jawbreaker/SM/KBRK +jawline//KLN +Jaxartes/M/KKSTS +Jay/M/K +jay/SM/K +Jayapura/M/KYPR +jaybird/SM/KBT +Jaycee/SM/KS +Jaye/M/KY +Jayme/M/KM +Jaymee/M/KM +Jaymie/M/KM +Jayne/M/KN +Jaynell/M/KNL +Jayson/M/KSN +jaywalk/JSRDZG/KWLK +jaywalker/M/KWLK +Jazmin/M/KSMN +jazz/MGDS/KS +jazziness/M/KSNS +jazzmen//KSMN +jazzy/PTR/KS +JCS//KKS +jct//KKT +JD//KT +Jdavie/M/KTF +jealous/PY/KLS +jealousness/M/KLSNS +jealousy/MS/KLS +Jean/M/KN +jean/MS/KN +Jeana/M/KN +Jeane/M/KN +Jeanelle/M/KNL +Jeanette/M/KNT +Jeanie/M/KN +Jeanine/M/KNN +Jeanna/M/KN +Jeanne/M/KN +Jeannette/M/KNT +Jeannie/M/KN +Jeannine/M/KNN +Jecho/M/KX +Jed/M/KT +Jedd/M/KT +Jeddy/M/KT +Jedediah/M/KTT +Jedi/M/KT +Jedidiah/M/KTT +jeep/GZSMD/KP +Jeep/S/KP +jeer/SJDRMG/K +jeerer/M/KR +jeering/Y/KRN +Jeeves/M/KFS +jeez//KS +Jeff/M/KF +Jefferey/M/KFR +Jefferson/M/KFSN +Jeffersonian/S/KFSNN +Jeffery/M/KFR +Jeffie/M/KF +Jeffrey/SM/KFR +Jeffry/M/KFR +Jeffy/M/KF +jehad's//KHTS +Jehanna/M/KHN +Jehoshaphat/M/KHXFT +Jehovah/M/KHF +Jehu/M/KH +jejuna//KKN +jejune/PY/KKN +jejuneness/M/KKNNS +jejunum/M/KKNM +Jekyll/M/KKL +Jelene/M/KLN +jell/GSD/KL +Jello/M/KL +jello's//KLS +jelly/SDMG/KL +jellybean/SM/KLBN +jellyfish/MS/KLFX +jellying/M/KLYN +jellylike//KLLK +jellyroll/S/KLRL +Jemie/M/KM +Jemima/M/KMM +Jemimah/M/KMM +Jemmie/M/KM +jemmy/M/KM +Jemmy/M/KM +Jen/M/KN +Jena/M/KN +Jenda/M/KNT +Jenelle/M/KNL +Jeni/M/KN +Jenica/M/KNK +Jeniece/M/KNS +Jenifer/M/KNF +Jeniffer/M/KNF +Jenilee/M/KNL +Jenine/M/KNN +Jenkins/M/KNKNS +Jenn/RMJ/KN +Jenna/M/KN +Jennee/M/KN +Jenner/M/KN +jennet/SM/KNT +Jennette/M/KNT +Jenni/M/KN +Jennica/M/KNK +Jennie/M/KN +Jennifer/M/KNF +Jennilee/M/KNL +Jennine/M/KNN +Jennings/M/KNNS +Jenny/M/KN +jenny/SM/KN +Jeno/M/KN +Jens/N/KNS +Jensen/M/KNSN +jeopard//KPT +jeopardize/GSD/KPTS +jeopardy/MS/KPT +Jephthah/M/KF@ +Jerad/M/KRT +Jerald/M/KRLT +Jeralee/M/KRL +Jeramey/M/KRM +Jeramie/M/KRM +Jere/M/KR +Jereme/M/KRM +jeremiad/SM/KRMT +Jeremiah/M/KRM +Jeremiahs//KRMS +Jeremias/M/KRMS +Jeremie/M/KRM +Jeremy/M/KRM +Jeri/M/KR +Jericho/M/KRX +jerk/GSDRJ/KK +jerker/M/KK +jerkily//KKL +jerkin/SM/KKN +jerkiness/SM/KKNS +jerkwater/S/KKWT +jerky/RSTP/KK +Jermain/M/KMN +Jermaine/M/KMN +Jermayne/M/KMN +Jeroboam/M/KRBM +Jerold/M/KRLT +Jerome/M/KRM +Jeromy/M/KRM +Jerri/M/KR +Jerrie/M/KR +Jerrilee/M/KRL +Jerrilyn/M/KRLN +Jerrine/M/KRN +Jerrod/M/KRT +Jerrold/M/KRLT +Jerrome/M/KRM +jerry/M/KR +Jerry/M/KR +jerrybuilt//KRBLT +Jerrylee/M/KRL +jersey/MS/KS +Jersey/MS/KS +Jerusalem/M/KRSLM +Jervis/M/KFS +Jes//KS +jess/M/KS +Jess/M/KS +Jessa/M/KS +Jessalin/M/KSLN +Jessalyn/M/KSLN +Jessamine/M/KSMN +jessamine's//KSMNS +Jessamyn/M/KSMN +Jesse/M/KS +Jessee/M/KS +Jesselyn/M/KSLN +Jessey/M/KS +Jessi/M/KS +Jessica/M/KSK +Jessie/M/KS +Jessika/M/KSK +Jessy/M/KS +jest/DRSGZM/KST +jester/M/KST +jesting/Y/KSTN +Jesuit/SM/KST +Jesus//KSS +jet/MS/KT +Jeth/M/K@ +Jethro/M/K@R +jetliner/MS/KTLN +jetport/SM/KTPT +jetsam/MS/KTSM +jetted/M/KTT +jetting/M/KTN +jettison/DSG/KTSN +jetty/RSDGMT/KT +Jew/MS/K +jewel/GZMRDS/KWL +Jewel/M/KWL +jeweler/M/KWL +jewelery/S/KWLR +Jewell/MD/KWL +Jewelle/M/KWL +Jewelled/M/KWLT +jewellery's//KWLRS +jewelry/MS/KWLR +Jewess/SM/KWS +Jewish/P/KWX +Jewishness/MS/KWXNS +Jewry/MS/KR +Jezebel/MS/KSBL +JFK/M/KFK +jg/M/KK +jib/MDSG/KB +jibbed//KBT +jibbing//KBN +jibe/S/KB +Jidda/M/KT +jiff/S/KF +jiffy/SM/KF +jig/MS/KK +jigged//KKT +jigger/SDMG/KK +jigging/M/KKN +jiggle/SDG/KKL +jiggly/TR/KKL +jigsaw/GSDM/KKS +jihad/SM/KHT +Jilin//KLN +Jill/M/KL +Jillana/M/KLN +Jillane/M/KLN +Jillayne/M/KLN +Jilleen/M/KLN +Jillene/M/KLN +Jilli/M/KL +Jillian/M/KLN +Jillie/M/KL +Jilly/M/KL +jilt/DRGS/KLT +jilter/M/KLT +Jim/M/KM +Jimenez/M/KMNS +Jimmie/M/KM +jimmy/GSDM/KM +Jimmy/M/KM +jimsonweed/S/KMSNWT +Jinan//KNN +jingle/RSDG/KNL +jingler/M/KNL +jingly/TR/KNL +jingo/M/KN +jingoism/SM/KNSM +jingoist/SM/KNST +jingoistic//KNSTK +jinn/MS/KN +Jinnah/M/KN +jinni's//KNS +Jinny/M/KN +jinrikisha/SM/KNRKX +jinx/GMDS/KNKS +jitney/MS/KTN +jitter/S/KT +jitterbug/SM/KTBK +jitterbugged//KTBKT +jitterbugger//KTBK +jitterbugging//KTBKN +jittery/TR/KTR +jiujitsu's//KKTSS +Jivaro/M/KFR +jive/MGDS/KF +Jo/MY/K +Joachim/M/KXM +Joan/M/KN +Joana/M/KN +Joane/M/KN +Joanie/M/KN +Joann/M/KN +Joanna/M/KN +Joanne/SM/KN +Joaquin/M/KKN +job/SM/KB +Job/SM/KB +jobbed//KBT +jobber/MS/KB +jobbery/M/KBR +jobbing/M/KBN +Jobey/M/KB +jobholder/SM/KBHLT +Jobi/M/KB +Jobie/M/KB +Jobina/M/KBN +jobless/P/KBLS +joblessness/MS/KBLSNS +Jobrel/M/KBRL +Joby/M/KB +Jobye/M/KBY +Jobyna/M/KBN +Jocasta/M/KKST +Jocelin/M/KSLN +Joceline/M/KSLN +Jocelyn/M/KSLN +Jocelyne/M/KSLN +jock/GDMS/KK +Jock/M/KK +jockey/SGMD/KK +Jocko/M/KK +jockstrap/MS/KKSTRP +jocose/YP/KKS +jocoseness/MS/KKSNS +jocosity/SM/KKST +jocular/Y/KKL +jocularity/SM/KKLRT +jocund/Y/KKNT +jocundity/SM/KKNTT +Jodee/M/KT +jodhpurs//KTHPS +Jodi/M/KT +Jodie/M/KT +Jody/M/KT +Joe/M/K +Joeann/M/KN +Joel/MY/KL +Joela/M/KL +Joelie/M/KL +Joell/MN/KL +Joella/M/KL +Joelle/M/KL +Joellen/M/KLN +Joelly/M/KL +Joellyn/M/KLN +Joelynn/M/KLN +Joesph/M/KSF +Joete/M/KT +joey/M/K +Joey/M/K +jog/S/KK +jogged//KKT +jogger/SM/KK +jogging/S/KKN +joggle/SRDG/KKL +joggler/M/KKL +Jogjakarta/M/KKKKT +Johan/M/KHN +Johann/M/KHN +Johanna/M/KHN +Johannah/M/KHN +Johannes//KHNS +Johannesburg/M/KHNSBK +Johansen/M/KHNSN +Johanson/M/KHNSN +john/SM/KN +John/SM/KN +Johna/MH/KN +Johnath/M/KN@ +Johnathan/M/KN@N +Johnathon/M/KN@N +Johnette/M/KNT +Johnie/M/KN +Johnna/M/KN +Johnnie/M/KN +Johnny/M/KN +johnny/SM/KN +johnnycake/SM/KNKK +Johns/N/KNS +Johnsen/M/KNSN +Johnson/M/KNSN +Johnston/M/KNSTN +Johnstown/M/KNSTN +Johny/M/KN +Joice/M/KS +join/ADGFS/KN +joined/U/KNT +joiner/FSM/KN +joinery/MS/KNR +joint/EGDYPS/KNT +jointed/EYP/KNTT +jointedness/ME/KNTTNS +jointer/M/KNT +jointly/F/KNTL +joint's//KNTS +jointures//KNTRS +joist/GMDS/KST +Jojo/M/KK +joke/MZDSRG/KK +joker/M/KK +jokey//KK +jokier//KK +jokiest//KKST +jokily//KKL +joking/Y/KKN +Jolee/M/KL +Joleen/M/KLN +Jolene/M/KLN +Joletta/M/KLT +Joli/M/KL +Jolie/M/KL +Joliet's//KLTS +Joline/M/KLN +Jolla/M/KL +jollification/MS/KLFKXN +jollily//KLL +jolliness/SM/KLNS +jollity/MS/KLT +jolly/TSRDGP/KL +Jolson/M/KLSN +jolt/DRGZS/KLT +jolter/M/KLT +Joly/M/KL +Jolyn/M/KLN +Jolynn/M/KLN +Jon/M/KN +Jonah/M/KN +Jonahs//KNS +Jonas//KNS +Jonathan/M/KN@N +Jonathon/M/KN@N +Jone/MS/KN +Jonell/M/KNL +Jones/S/KNS +Joni/MS/KN +Jonie/M/KN +jonquil/MS/KNKL +Jonson/M/KNSN +Joplin/M/KPLN +Jordain/M/KTN +Jordan/M/KTN +Jordana/M/KTN +Jordanian/S/KTNN +Jordanna/M/KTN +Jordon/M/KTN +Jorey/M/KR +Jorgan/M/KKN +Jorge/M/KK +Jorgensen/M/KKNSN +Jorgenson/M/KKNSN +Jori/M/KR +Jorie/M/KR +Jorrie/M/KR +Jorry/M/KR +Jory/M/KR +Joscelin/M/KSLN +Jose/M/KS +Josee/M/KS +Josef/M/KSF +Josefa/M/KSF +Josefina/M/KSFN +Joseito/M/KST +Joseph/M/KSF +Josepha/M/KSF +Josephina/M/KSFN +Josephine/M/KSFN +Josephs//KSFS +Josephson/M/KSFSN +Josephus/M/KSFS +Josey/M/KS +josh/DSRGZ/KX +Josh/M/KX +josher/M/KX +Joshia/M/KX +Joshua/M/KX +Joshuah/M/KX +Josi/M/KS +Josiah/M/KX +Josias/M/KXS +Josie/M/KS +joss/M/KS +Josselyn/M/KSLN +jostle/SDG/KSTL +Josue/M/KS +Josy/M/KS +jot/S/KT +jotted//KTT +jotter/SM/KT +jotting/SM/KTN +Joule/M/KL +joule/SM/KL +jounce/SDG/KNS +jouncy/RT/KNS +Jourdain/M/KTN +Jourdan/M/KTN +journal/GSDM/KNL +journalese/MS/KNLS +journalism/SM/KNLSM +journalist/SM/KNLST +journalistic//KNLSTK +journalize/DRSGZ/KNLS +journalized/U/KNLST +journalizer/M/KNLS +journey/DRMZSGJ/KN +journeyer/M/KNY +journeyman/M/KNMN +journeymen//KNMN +joust/ZSMRDG/KST +jouster/M/KST +Jovanovich/M/KFNFX +Jove/M/KF +jovial/Y/KFL +joviality/SM/KFLT +Jovian//KFN +jowl/SMD/KL +jowly/TR/KL +Joy/M/K +joy/MDSG/K +Joya/M/KY +Joyan/M/KYN +Joyann/M/KYN +Joyce/M/KS +Joycean//KSN +Joycelin/M/KSLN +Joye/M/KY +joyful/PY/KFL +joyfuller//KFL +joyfullest//KFLST +joyfulness/SM/KFLNS +joyless/PY/KLS +joylessness/MS/KLSNS +Joyner/M/KN +joyous/YP/KYS +joyousness/MS/KYSNS +joyridden//KRTN +joyride/SRZMGJ/KRT +joyrode//KRT +joystick/S/KSTK +Jozef/M/KSF +JP//KP +Jpn//KPN +Jr/M/KR +j's//KS +J's//KS +Jsandye/M/KSNTY +Juan/M/KN +Juana/M/KN +Juanita/M/KNT +Juarez//KRS +Jubal/M/KBL +jubilant/Y/KBLNT +jubilate/XNGDS/KBLT +jubilation/M/KBLXN +jubilee/SM/KBL +Jud/M/KT +Judah/M/KT +Judaic//KTK +Judaical//KTKL +Judaism/SM/KTSM +Judas/S/KTS +Judd/M/KT +juddered//KTRT +juddering//KTRN +Jude/M/KT +Judea/M/KT +judge/AGDS/KK +judger/M/KKR +judge's//KKS +judgeship/SM/KKXP +judgment/MS/KTKMNT +judgmental/Y/KTKMNTL +Judi/MH/KT +judicable//KTKBL +judicatory/S/KTKTR +judicature/MS/KTKTR +judicial/Y/KTXL +judiciary/S/KTXR +judicious/IYP/KTSS +judiciousness/SMI/KTSSNS +Judie/M/KT +Judith/M/KT@ +Juditha/M/KT@ +judo/MS/KT +Judon/M/KTN +Judson/M/KTSN +Judy/M/KT +Judye/M/KTY +jug/MS/KK +jugate/F/KKT +jugful/SM/KKFL +jugged//KKT +Juggernaut/M/KKNT +juggernaut/SM/KKNT +jugging//KKN +juggle/RSDGZ/KKL +juggler/M/KKL +jugglery/MS/KKLR +jugular/S/KKL +juice/GMZDSR/KS +juicer/M/KS +juicily//KSL +juiciness/MS/KSNS +juicy/TRP/KS +Juieta/M/KT +jujitsu/MS/KKTS +juju/M/KK +jujube/SM/KKB +jujutsu's//KKTSS +juke/GS/KK +jukebox/SM/KKBKS +Jul/M/KL +Jule/MS/KL +Julee/M/KL +julep/SM/KLP +Juli/M/KL +Julia/M/KL +Julian/M/KLN +Juliana/M/KLN +Juliane/M/KLN +Juliann/M/KLN +Julianna/M/KLN +Julianne/M/KLN +Julie/M/KL +julienne/GSD/KLN +Julienne/M/KLN +Juliet/M/KLT +Julieta/M/KLT +Julietta/M/KLT +Juliette/M/KLT +Julina/M/KLN +Juline/M/KLN +Julio/M/KL +Julissa/M/KLS +Julita/M/KLT +Julius/M/KLS +July/SM/KL +Julys//KLS +jumble/GSD/KMBL +jumbo/MS/KMB +jump/GZDRS/KMP +jumper/M/KMP +jumpily//KMPL +jumpiness/MS/KMPNS +jumpsuit/S/KMPST +jumpy/PTR/KMP +jun//KN +Jun/M/KN +junco/MS/KNK +junction/IMESF/KNKXN +juncture/SFM/KNKTR +June/MS/KN +Juneau/M/KN +Junette/M/KNT +Jung/M/KNK +Jungfrau/M/KNKFR +Jungian//KNKN +jungle/SDM/KNKL +Junia/M/KN +Junie/M/KN +Junina/M/KNN +junior/MS/KN +Junior/S/KN +juniority/M/KNRT +juniper/SM/KNP +junk/GZDRMS/KNK +Junker/SM/KNK +junkerdom//KNKTM +junket/SMDG/KNKT +junketeer/SGDM/KNKT +junkie/RSMT/KNK +junkyard/MS/KNKYT +Juno/M/KN +junta/MS/KNT +Jupiter/M/KPT +Jurassic//KRSK +juridic//KRTK +juridical/Y/KRTKL +juried//KRT +jurisdiction/SM/KRSTKXN +jurisdictional/Y/KRSTKXNL +jurisprudence/SM/KRSPRTNS +jurisprudent//KRSPRTNT +jurisprudential/Y/KRSPRTNXL +jurist/MS/KRST +juristic//KRSTK +juror/MS/KR +Jurua/M/KR +jury/IMS/KR +jurying//KRYN +juryman/M/KRMN +jurymen//KRMN +jurywoman/M/KRWMN +jurywomen//KRWMN +just/UPY/KST +justed//KSTT +Justen/M/KSTN +juster/M/KST +justest//KSTST +Justice/M/KSTS +justice/MIS/KSTS +justiciable//KSTXBL +justifiability/M/KSTFBLT +justifiable/U/KSTFBL +justifiably/U/KSTFBL +justification/M/KSTFKXN +justified/UA/KSTFT +justifier/M/KSTF +justify/GDRSXZN/KSTF +Justin/M/KSTN +Justina/M/KSTN +Justine/M/KSTN +justing//KSTN +Justinian/M/KSTNN +Justinn/M/KSTN +Justino/M/KSTN +Justis/M/KSTS +justness/MS/KSTNS +justness's/U/KSTNSS +justs//KSTS +Justus/M/KSTS +jut/S/KT +jute/SM/KT +Jutish//KTX +Jutland/M/KTLNT +jutted//KTT +jutting//KTN +Juvenal/M/KFNL +juvenile/SM/KFNL +juxtapose/SDG/KKSTPS +juxtaposition/SM/KKSTPSXN +JV//KF +Jyoti/M/KYT +k/FGEIS/K +K/G/K +Kaaba/M/KB +kabob/SM/KBB +kaboom//KBM +Kabuki//KBK +kabuki/SM/KBK +Kabul/M/KBL +Kacey/M/KS +Kacie/M/KS +Kacy/M/KS +Kaddish/M/KTX +kaddish/S/KTX +Kaela/M/KL +kaffeeklatch//KFKLX +kaffeeklatsch/S/KFKLTSX +Kafka/M/KFK +Kafkaesque//KFKSK +kaftan's//KFTNS +Kagoshima/M/KKXM +Kahaleel/M/KHLL +Kahlil/M/KLL +Kahlua/M/KL +Kahn/M/KN +Kai/M/K +Kaia/M/K +Kaifeng/M/KFNK +Kaila/M/KL +Kaile/M/KL +Kailey/M/KL +Kain/M/KN +Kaine/M/KN +kaiser/MS/KS +Kaiser/SM/KS +Kaitlin/M/KTLN +Kaitlyn/M/KTLN +Kaitlynn/M/KTLN +Kaja/M/KK +Kajar/M/KK +Kakalina/M/KKLN +Kala/M/KL +Kalahari/M/KLHR +Kalamazoo/M/KLMS +Kalashnikov/M/KLXNKF +Kalb/M/KLB +Kale/M/KL +kale/MS/KL +Kaleb/M/KLB +Kaleena/M/KLN +kaleidescope//KLTSKP +kaleidoscope/SM/KLTSKP +kaleidoscopic//KLTSKPK +kaleidoscopically//KLTSKPKL +Kalgoorlie/M/KLKL +Kali/M/KL +Kalie/M/KL +Kalil/M/KLL +Kalila/M/KLL +Kalina/M/KLN +Kalinda/M/KLNT +Kalindi/M/KLNT +Kalle/M/KL +Kalli/M/KL +Kally/M/KL +Kalmyk//KLMK +Kalvin/M/KLFN +Kama/M/KM +Kamchatka/M/KMXTK +Kamehameha/M/KMHMH +Kameko/M/KMK +Kamikaze/MS/KMKS +kamikaze/SM/KMKS +Kamila/M/KML +Kamilah/M/KML +Kamillah/M/KML +Kampala/M/KMPL +Kampuchea/M/KMPX +Kan/MS/KN +Kanchenjunga/M/KNXNKNK +Kandace/M/KNTS +Kandahar/M/KNTH +Kandinsky/M/KNTNSK +Kandy/M/KNT +Kane/M/KN +kangaroo/SGMD/KNKR +Kania/M/KN +Kankakee/M/KNKK +Kannada/M/KNT +Kano/M/KN +Kanpur/M/KNP +Kansan/S/KNSN +Kansas//KNSS +Kant/M/KNT +Kantian//KNXN +Kanya/M/KNY +Kaohsiung/M/KSNK +kaolin/MS/KLN +kaolinite/M/KLNT +Kaplan/M/KPLN +kapok/SM/KPK +Kaposi/M/KPS +kappa/MS/KP +kaput/M/KPT +Kara/M/KR +Karachi/M/KRX +Karaganda/M/KRKNT +Karakorum/M/KRKRM +karakul/MS/KRKL +Karalee/M/KRL +Karalynn/M/KRLN +Karamazov/M/KRMSF +karaoke/S/KRK +karat/SM/KRT +karate/MS/KRT +Kare/M/KR +Karee/M/KR +Kareem/M/KRM +Karel/M/KRL +Karen/M/KRN +Karena/M/KRN +Karenina/M/KRNN +Kari/M/KR +Karia/M/KR +Karie/M/KR +Karil/M/KRL +Karilynn/M/KRLN +Karim/M/KRM +Karin/M/KRN +Karina/M/KRN +Karine/M/KRN +Kariotta/M/KRT +Karisa/M/KRS +Karissa/M/KRS +Karita/M/KRT +Karl/MNX/KL +Karla/M/KL +Karlan/M/KLN +Karlee/M/KL +Karleen/M/KLN +Karlen/M/KLN +Karlene/M/KLN +Karlie/M/KL +Karlik/M/KLK +Karlis//KLS +Karloff/M/KLF +Karlotta/M/KLT +Karlotte/M/KLT +Karly/M/KL +Karlyn/M/KLN +karma/SM/KM +Karmen/M/KMN +karmic//KMK +Karna/M/KN +Karney/M/KN +Karo/YM/KR +Karol/M/KRL +Karola/M/KRL +Karole/M/KRL +Karolina/M/KRLN +Karoline/M/KRLN +Karoly/M/KRL +Karon/M/KRN +Karp/M/KP +Karrah/M/KR +Karrie/M/KR +Karroo/M/KR +Karry/M/KR +kart/MS/KT +Kary/M/KR +Karyl/M/KRL +Karylin/M/KRLN +Karyn/M/KRN +Kasai/M/KS +Kasey/M/KS +Kashmir/SM/KXM +Kaspar/M/KSP +Kasparov/M/KSPRF +Kasper/M/KSP +Kass//KS +Kassandra/M/KSNTR +Kassey/M/KS +Kassi/M/KS +Kassia/M/KX +Kassie/M/KS +Kat/M/KT +Kata/M/KT +Katalin/M/KTLN +Kate/M/KT +Katee/M/KT +Katelyn/M/KTLN +Katerina/M/KTRN +Katerine/M/KTRN +Katey/M/KT +Kath/M/K@ +Katha/M/K@ +Katharina/M/K@RN +Katharine/M/K@RN +Katharyn/M/K@RN +Kathe/M/K@ +Katherina/M/K@RN +Katherine/M/K@RN +Katheryn/M/K@RN +Kathi/M/K@ +Kathiawar/M/K@W +Kathie/M/K@ +Kathleen/M/K@LN +Kathlin/M/K@LN +Kathmandu//K@MNT +Kathrine/M/K@RN +Kathryn/M/K@RN +Kathryne/M/K@RN +Kathy/M/K@ +Kathye/M/K@Y +Kati/M/KT +Katie/M/KT +Katina/M/KTN +Katine/M/KTN +Katinka/M/KTNK +Katleen/M/KTLN +Katlin/M/KTLN +Katmai/M/KTM +Katmandu's//KTMNTS +Katowice/M/KTWS +Katrina/M/KTRN +Katrine/M/KTRN +Katrinka/M/KTRNK +Katti/M/KT +Kattie/M/KT +Katuscha/M/KTSX +Katusha/M/KTX +Katy/M/KT +Katya/M/KTY +katydid/SM/KTTT +Katz/M/KTS +Kauai/M/K +Kauffman/M/KFMN +Kaufman/M/KFMN +Kaunas/M/KNS +Kaunda/M/KNT +Kawabata/M/KWBT +Kawasaki/M/KWSK +Kay/M/K +kayak/SGDM/KYK +Kaycee/M/KS +Kaye/M/KY +Kayla/M/KL +Kayle/M/KL +Kaylee/M/KL +Kayley/M/KL +Kaylil/M/KLL +Kaylyn/M/KLN +Kayne/M/KN +kayo/DMSG/KY +Kazakh/M/KSKH +Kazakhstan//KSKHSTN +Kazan/M/KSN +Kazantzakis/M/KSNTSKS +kazoo/SM/KS +Kb//KB +KB//KB +KC//KK +kc/M/KK +kcal/M/KKL +Kean/M/KN +Keane/M/KN +Kearney/M/KN +Keary/M/KR +Keaton/M/KTN +Keats/M/KTS +kebab/SM/KBB +Keck/M/KK +Keefe/MR/KF +Keefer/M/KF +Keegan/M/KKN +keel/GSMDR/KL +Keelby/M/KLB +Keeley/M/KL +keelhaul/SGD/KLHL +Keelia/M/KL +Keely/M/KL +keen/GTSPYDR/KN +Keen/M/KN +Keenan/M/KNN +Keene/M/KN +keener/M/KN +keening/M/KNN +keenness/MS/KNS +keep/GZJSR/KP +keeper/M/KP +keeping/M/KPN +keepsake/SM/KPSK +Keewatin/M/KWTN +keg/MS/KK +kegged//KKT +kegging//KKN +Keillor/M/KL +Keir/M/K +Keisha/M/KX +Keith/M/K@ +Kelbee/M/KLB +Kelby/M/KLB +Kelcey/M/KLS +Kelci/M/KLS +Kelcie/M/KLS +Kelcy/M/KLS +Kele/M/KL +Kelila/M/KLL +Kellby/M/KLB +Kellen/M/KLN +Keller/M/KL +Kelley/M/KL +Kelli/M/KL +Kellia/M/KL +Kellie/M/KL +Kellina/M/KLN +Kellogg/M/KLK +Kellsie/M/KLS +Kelly/M/KL +Kellyann/M/KLYN +kelp/GZMDS/KLP +Kelsey/M/KLS +Kelsi/M/KLS +Kelsy/M/KLS +Kelt's//KLTS +Kelvin/M/KLFN +kelvin/MS/KLFN +Kelwin/M/KLWN +Kemerovo/M/KMRF +Kemp/M/KMP +Kempis/M/KMPS +Ken/M/KN +ken/MS/KN +Kendal/M/KNTL +Kendall/M/KNTL +Kendell/M/KNTL +Kendra/M/KNTR +Kendre/M/KNTR +Kendrick/MS/KNTRK +Kenilworth/M/KNLW@ +Kenmore/M/KNMR +Kenn/M/KN +Kenna/M/KN +Kennan/M/KNN +Kennecott/M/KNKT +kenned//KNT +Kennedy/M/KNT +kennel/GSMD/KNL +Kenneth/M/KN@ +Kennett/M/KNT +Kennie/M/KN +kenning//KNN +Kennith/M/KN@ +Kenny/M/KN +keno/M/KN +Kenon/M/KNN +Kenosha/M/KNX +Kensington/M/KNSNTN +Kent/M/KNT +Kenton/M/KNTN +Kentuckian/S/KNTKN +Kentucky/M/KNTK +Kenya/M/KNY +Kenyan/S/KNYN +Kenyatta/M/KNYT +Kenyon/M/KNYN +Keogh/M/K +Keokuk/M/KKK +kepi/SM/KP +Kepler/M/KPL +kept//KPT +Ker/M/K +keratin/MS/KRTN +kerbside//KBST +Kerby/M/KB +kerchief/MDSG/KXF +Kerensky/M/KRNSK +Keri/M/KR +Keriann/M/KRN +Kerianne/M/KRN +Kerk/M/KK +Kermie/M/KM +Kermit/M/KMT +Kermy/M/KM +Kern/M/KN +kerned//KNT +kernel/GSMD/KNL +kerning//KNN +kerosene/MS/KRSN +Kerouac/M/KRK +Kerr/M/KR +Kerri/M/KR +Kerrie/M/KR +Kerrill/M/KRL +Kerrin/M/KRN +Kerry/M/KR +Kerstin/M/KSTN +Kerwin/M/KWN +Kerwinn/M/KWN +Kesley/M/KSL +Keslie/M/KSL +Kessia/M/KX +Kessiah/M/KX +Kessler/M/KSL +kestrel/SM/KSTRL +ketch/MS/KX +ketchup/SM/KXP +ketone/M/KTN +ketosis/M/KTSS +Kettering/M/KTRN +Ketti/M/KT +Kettie/M/KT +kettle/SM/KTL +kettledrum/SM/KTLTRM +kettleful//KTLFL +Ketty/M/KT +Kev/MN/KF +Kevan/M/KFN +Keven/M/KFN +Kevin/M/KFN +Kevina/M/KFN +Kevlar//KFL +Kevon/M/KFN +Kevorkian/M/KFKN +Kevyn/M/KFN +Kewaskum/M/KWSKM +Kewaunee/M/KWN +Kewpie/M/KP +Key/M/K +key/SGMD/K +keyboard/RDMZGS/KBT +keyboardist/S/KBTST +keyclick/SM/KKLK +keyhole/MS/KHL +Keynes/M/KNS +Keynesian/M/KNXN +keynote/SRDZMG/KNT +keynoter/M/KNT +keypad/MS/KPT +keypunch/ZGRSD/KPNX +keypuncher/M/KPNX +keyring//KRN +keystone/SM/KSTN +keystroke/SDMG/KSTRK +keyword/SM/KWT +kg//KK +KGB//KKB +Khabarovsk/M/KHBRFSK +Khachaturian/M/KHXTRN +khaki/SM/KHK +Khalid/M/KHLT +Khalil/M/KHLL +Khan/M/KHN +khan/MS/KHN +Kharkov/M/KHKF +Khartoum/M/KHTM +Khayyam/M/KHYM +Khmer/M/KHM +Khoisan/M/KHSN +Khomeini/M/KHMN +Khorana/M/KHRN +Khrushchev/SM/KHRXXF +Khufu/M/KHF +Khulna/M/KHLN +Khwarizmi/M/KHWRSM +Khyber/M/KHB +kHz/M/KHS +Ki/M/K +KIA//K +Kiah/M/K +Kial/M/KL +kibble/GMSD/KBL +kibbutz/M/KBTS +kibbutzim//KBTSM +kibitz/GRSDZ/KBTS +kibitzer/M/KBTS +kibosh/GMSD/KBX +kick/GZDRS/KK +Kickapoo/M/KKP +kickback/SM/KKBK +kickball/MS/KKBL +kicker/M/KK +kickoff/SM/KKF +kickstand/MS/KKSTNT +kicky/RT/KK +kid/MS/KT +Kidd/M/KT +kidded//KTT +kidder/SM/KT +kiddie/SD/KT +kidding/YM/KTN +kiddish//KTX +kiddo/SM/KT +kiddying//KTYN +kiddy's//KTS +kidless//KTLS +kidnap/MSJ/KTNP +kidnaper's//KTNPS +kidnaping's//KTNPNS +kidnapped//KTNPT +kidnapper/SM/KTNP +kidnapping/S/KTNPN +kidney/MS/KTN +kidskin/SM/KTSKN +Kieffer/M/KF +Kiel/M/KL +kielbasa/SM/KLBS +kielbasi//KLBS +Kiele/M/KL +Kienan/M/KNN +kier/I/K +Kierkegaard/M/KKKT +Kiersten/M/KSTN +Kieth/M/K@ +Kiev/M/KF +Kigali/M/KKL +Kikelia/M/KKL +Kikuyu/M/KKY +Kilauea/M/KL +Kile/M/KL +Kiley/M/KL +Kilian/M/KLN +Kilimanjaro/M/KLMNKR +kill/BJGZSDR/KL +killdeer/SM/KLT +Killebrew/M/KLBR +killer/M/KL +Killian/M/KLN +Killie/M/KL +killing/Y/KLN +killjoy/S/KLK +Killy/M/KL +kiln/GDSM/KLN +kilo/SM/KL +kilobaud/M/KLBT +kilobit/S/KLBT +kilobuck//KLBK +kilobyte/S/KLBT +kilocycle/MS/KLSKL +kilogauss/M/KLKS +kilogram/MS/KLKRM +kilohertz/M/KLHTS +kilohm/M/KLM +kilojoule/MS/KLKL +kiloliter/MS/KLLT +kilometer/SM/KLMT +kiloton/SM/KLTN +kilovolt/SM/KLFLT +kilowatt/SM/KLWT +kiloword//KLWT +kilt/MDRGZS/KLT +kilter/M/KLT +Kim/M/KM +Kimball/M/KMBL +Kimbell/M/KMBL +Kimberlee/M/KMBL +Kimberley/M/KMBL +Kimberli/M/KMBL +Kimberly/M/KMBL +Kimberlyn/M/KMBLN +Kimble/M/KMBL +Kimbra/M/KMBR +Kimmi/M/KM +Kimmie/M/KM +Kimmy/M/KM +kimono/MS/KMN +Kin/M/KN +kin/MS/KN +Kincaid/M/KNKT +kind/PSYRT/KNT +kinda//KNT +kinder/U/KNT +kindergarten/MS/KNTKTN +kindergärtner/SM/KNTKRTN +kindhearted/YP/KNTHTT +kindheartedness/MS/KNTHTTNS +kindle/AGRSD/KNTL +kindler/M/KNTL +kindliness/SM/KNTLNS +kindliness's/U/KNTLNSS +kindling/M/KNTLN +kindly/TUPR/KNTL +kindness/US/KNTNS +kindness's//KNTNSS +kindred/S/KNTRT +kine/SM/KN +kinematic/S/KNMTK +kinematics/M/KNMTKS +kinesics/M/KNSKS +kinesthesis//KNS@SS +kinesthetic/S/KNS@TK +kinesthetically//KNS@TKL +kinetic/S/KNTK +kinetically//KNTKL +kinetics/M/KNTKS +kinfolk/S/KNFLK +King/M/KN +king/SGYDM/KN +kingbird/M/KNBT +kingdom/SM/KNTM +kingfisher/MS/KNFX +kinglet/M/KNLT +kingliness/M/KNLNS +kingly/TPR/KNL +kingpin/MS/KNPN +Kingsbury/M/KNSBR +kingship/SM/KNXP +Kingsley/M/KNSL +Kingsly/M/KNSL +Kingston/M/KNSTN +Kingstown/M/KNSTN +Kingwood/M/KNWT +kink/GSDM/KNK +kinkily//KNKL +kinkiness/SM/KNKNS +kinky/PRT/KNK +Kinna/M/KN +Kinney/M/KN +Kinnickinnic/M/KNKNK +Kinnie/M/KN +Kinny/M/KN +Kinsey/M/KNS +kinsfolk/S/KNSFLK +Kinshasa/M/KNXS +Kinshasha/M/KNXX +kinship/SM/KNXP +Kinsley/M/KNSL +kinsman/M/KNSMN +kinsmen/M/KNSMN +kinswoman/M/KNSWMN +kinswomen//KNSWMN +kiosk/SM/KSK +Kiowa/SM/KW +Kip/M/KP +kip/MS/KP +Kipling/M/KPLN +Kipp/MR/KP +Kippar/M/KP +kipped//KPT +kipper/DMSG/KP +Kipper/M/KP +Kippie/M/KP +kipping//KPN +Kippy/M/KP +Kira/M/KR +Kirbee/M/KB +Kirbie/M/KB +Kirby/M/KB +Kirchhoff/M/KXHF +Kirchner/M/KXN +Kirchoff/M/KXF +Kirghistan/M/KKSTN +Kirghiz/M/KKS +Kirghizia/M/KKS +Kiri/M/KR +Kiribati//KRBT +Kirinyaga/M/KRNYK +kirk/GDMS/KK +Kirk/M/KK +Kirkland/M/KKLNT +Kirkpatrick/M/KKPTRK +Kirkwood/M/KKWT +Kirov/M/KRF +kirsch/S/KSX +Kirsten/M/KSTN +Kirsteni/M/KSTN +Kirsti/M/KST +Kirstin/M/KSTN +Kirstyn/M/KSTN +Kisangani/M/KSNKN +Kishinev/M/KXNF +kismet/SM/KSMT +kiss/DSRBJGZ/KS +Kissee/M/KS +kisser/M/KS +Kissiah/M/KX +Kissie/M/KS +Kissinger/M/KSN +Kit/M/KT +kit/MDRGS/KT +Kitakyushu/M/KTKYX +kitbag's//KTBKS +kitchen/GDRMS/KXN +kitchener/M/KXN +Kitchener/M/KXN +kitchenette/SM/KXNT +kitchenware/SM/KXNWR +kite/SM/KT +kiter/M/KT +kith/MDG/K@ +kiths//K@S +kitsch/MS/KTSX +kitschy//KTSX +kitted//KTT +kitten/SGDM/KTN +kittenish/YP/KTNX +kittenishness/M/KTNXNS +Kitti/M/KT +Kittie/M/KT +kitting//KTN +kittiwakes//KTWKS +Kitty/M/KT +kitty/SM/KT +Kiwanis/M/KWNS +kiwi/SM/KW +kiwifruit/S/KWFRT +Kizzee/M/KS +Kizzie/M/KS +KKK//K +kl//KL +Klan/M/KLN +Klansman/M/KLNSMN +Klara/M/KLR +Klarika/M/KLRK +Klarrisa/M/KLRS +Klaus/M/KLS +klaxon/M/KLKSN +Klee/M/KL +Kleenex/SM/KLNKS +Klein/M/KLN +Kleinrock/M/KLNRK +Klemens/M/KLMNS +Klement/M/KLMNT +Kleon/M/KLN +kleptomania/MS/KLPTMN +kleptomaniac/SM/KLPTMNK +Kliment/M/KLMNT +Kline/M/KLN +Klingon/M/KLNN +Klondike/SDMG/KLNTK +kludge/RSDGMZ/KLK +kludger/M/KLKR +kludgey//KLK +klutz/SM/KLTS +klutziness/S/KLTSNS +klutzy/TRP/KLTS +Klux/M/KLKS +klystron/MS/KLSTRN +km//KM +kn//N +knack/SGZRDM/NK +knacker/M/NK +knackwurst/MS/NKWST +Knapp/M/NP +knapsack/MS/NPSK +Knauer/M/N +knave/SM/NF +knavery/MS/NFR +knavish/Y/NFX +knead/GZRDS/NT +kneader/M/NT +knee/DSM/N +kneecap/MS/NKP +kneecapped//NKPT +kneecapping//NKPN +kneeing//NN +kneel/GRS/NL +kneeler/M/NL +kneepad/SM/NPT +knell/SMDG/NL +knelt//NLT +Knesset/M/NST +knew//N +Kngwarreye/M/NKWRY +knick/ZR/NK +Knickerbocker/MS/NKBK +knickerbocker/S/NKBK +knickknack/SM/NKKNK +Knievel/M/NFL +knife/DSGM/NF +Knight/M/NT +knight/MDYSG/NT +knighthood/MS/N@T +knightliness/MS/NTLNS +knightly/P/NTL +knish/MS/NX +knit/AU/NT +knits//NTS +knitted//NTT +knitter/MS/NT +knitting/SM/NTN +knitwear/M/NTW +knives/M/NFS +knob/MS/NB +knobbly//NBL +knobby/RT/NB +Knobeloch/M/NBLX +knock/GZSJRD/NK +knockabout/M/NKBT +knockdown/S/NKTN +knocker/M/NK +knockoff/S/NKF +knockout/MS/NKT +knockwurst's//NKWSTS +knoll/MDSG/NL +Knopf/M/NPF +Knossos/M/NSS +knot/MS/NT +knothole/SM/N@L +knotted//NTT +knottiness/M/NTNS +knotting/M/NTN +knotty/TPR/NT +know/GRBSJ/N +knowable/U/NWBL +knower/M/NW +knowhow//NH +knowing/RYT/NWN +knowingly/U/NWNL +knowings/U/NWNS +knowledge/SM/NLK +knowledgeable/P/NLKBL +knowledgeableness/M/NLKBLNS +knowledgeably//NLKBL +Knowles//NLS +known/SU/NN +Knox/M/NKS +Knoxville/M/NKSFL +knuckle/DSMG/NKL +knuckleball/R/NKLBL +knuckleduster//NKLTST +knucklehead/MS/NKLHT +Knudsen/M/NTSN +Knudson/M/NTSN +knurl/DSG/NL +Knuth/M/N@ +Knutsen/M/NTSN +Knutson/M/NTSN +KO//K +koala/SM/KL +Kobayashi/M/KBYX +Kobe/M/KB +Koch/M/KX +Kochab/M/KXB +Kodachrome/M/KTXRM +Kodak/SM/KTK +Kodaly/M/KTL +Kodiak/M/KTK +Koenig/M/KNK +Koenigsberg/M/KNKSBK +Koenraad/M/KNRT +Koestler/M/KSTL +Kohinoor/M/KHN +Kohl/MR/KL +Kohler/M/KL +kohlrabi/M/KLRB +kohlrabies//KLRBS +kola/SM/KL +Kolyma/M/KLM +Kommunizma/M/KMNSM +Kong/M/KNK +Kongo/M/KNK +Konrad/M/KNRT +Konstance/M/KNSTNS +Konstantin/M/KNSTNTN +Konstantine/M/KNSTNTN +Konstanze/M/KNSTNS +Koo/M/K +kook/GDMS/KK +kookaburra/SM/KKBR +kookiness/S/KKNS +kooky/PRT/KK +Koontz/M/KNTS +kopeck/MS/KPK +Koppers/M/KPS +Kora/M/KR +Koral/M/KRL +Koralle/M/KRL +Koran/SM/KRN +Koranic//KRNK +Kordula/M/KTL +Kore/M/KR +Korea/M/KR +Korean/S/KRN +Korella/M/KRL +Koren/M/KRN +Koressa/M/KRS +Korey/M/KR +Kori/M/KR +Korie/M/KR +Kornberg/M/KNBK +Korney/M/KN +Korrie/M/KR +Korry/M/KR +Kort/M/KT +Kory/M/KR +Korzybski/M/KSBSK +Kosciusko/M/KSSK +kosher/DGS/KX +Kossuth/M/KS@ +Kosygin/M/KSKN +Kovacs/M/KFKS +Kowalewski/M/KWLSK +Kowalski/M/KWLSK +Kowloon/M/KLN +kowtow/SGD/KT +KP//KP +kph//KF +Kr/M/KR +kraal/SMDG/KRL +Kraemer/M/KRM +kraft/M/KRFT +Kraft/M/KRFT +Krakatau's//KRKTS +Krakatoa/M/KRKT +Krakow/M/KRK +Kramer/M/KRM +Krasnodar/M/KRSNT +Krasnoyarsk/M/KRSNYSK +Krause/M/KRS +kraut/S/KRT +Krebs/M/KRBS +Kremlin/M/KRMLN +Kremlinologist/MS/KRMLNLKST +Kremlinology/MS/KRMLNLK +Kresge/M/KRSK +Krieger/M/KRK +kriegspiel/M/KRKSPL +krill/MS/KRL +Kringle/M/KRNL +Kris/M/KRS +Krisha/M/KRX +Krishna/M/KRXN +Krishnah/M/KRXN +Krispin/M/KRSPN +Krissie/M/KRS +Krissy/M/KRS +Krista/M/KRST +Kristal/M/KRSTL +Kristan/M/KRSTN +Kriste/M/KRST +Kristel/M/KRSTL +Kristen/M/KRSTN +Kristi/MN/KRST +Kristian/M/KRSXN +Kristie/M/KRST +Kristien/M/KRSTN +Kristin/M/KRSTN +Kristina/M/KRSTN +Kristine/M/KRSTN +Kristo/MS/KRST +Kristofer/M/KRSTF +Kristoffer/M/KRSTF +Kristofor/M/KRSTF +Kristoforo/M/KRSTFR +Kristopher/M/KRSTF +Kristy/M/KRST +Kristyn/M/KRSTN +Kroc/M/KRK +Kroger/M/KRK +króna/M/KRN +krone/RM/KRN +Kronecker/M/KRNK +kronor//KRN +krónur//KRN +Kropotkin/M/KRPTKN +Krueger/M/KRK +Kruger/M/KRK +Krugerrand/S/KRKRNT +Krupp/M/KRP +Kruse/M/KRS +krypton/SM/KRPTN +Krysta/M/KRST +Krystal/M/KRSTL +Krystalle/M/KRSTL +Krystle/M/KRSTL +Krystyna/M/KRSTN +ks//KS +K's//KS +KS//KS +k's/IE/KS +kt//KT +Ku/M/K +Kublai/M/KBL +Kubrick/M/KBRK +kuchen/MS/KXN +kudos/M/KTS +kudzu/SM/KTS +Kuenning/M/KNN +Kuhn/M/KN +Kuibyshev/M/KBXF +Kumar/M/KM +kumquat/SM/KMKT +Kunming/M/KNMN +Kuomintang/M/KMNTNK +Kurd/SM/KT +Kurdish/M/KTX +Kurdistan/SM/KTSTN +Kurosawa/M/KRSW +Kurt/M/KT +Kurtis/M/KTS +kurtosis/M/KTSS +Kusch/M/KSX +Kuwait/M/KWT +Kuwaiti/SM/KWT +Kuznets/M/KSNTS +Kuznetsk/M/KSNTSK +kvetch/DSG/KFX +kw//K +kW//K +Kwakiutl/M/KWKTL +Kwangchow's//KWNKXS +Kwangju/M/KWNKK +Kwanzaa/S/KWNS +kWh//KH +KY//K +Ky/MH/K +Kyla/M/KL +kyle/M/KL +Kyle/M/KL +Kylen/M/KLN +Kylie/M/KL +Kylila/M/KLL +Kylynn/M/KLN +Kym/M/KM +Kynthia/M/KN@ +Kyoto/M/KYT +Kyrgyzstan//KRKSSTN +Kyrstin/M/KRSTN +Kyushu/M/KYX +L//L +l/JGVXT/L +LA//L +La/M/L +la/MHLG/L +lab/SM/LB +Lab/SM/LB +Laban/M/LBN +label/GAZRDS/LBL +labeled/U/LBLT +labeler/M/LBL +labellings/A/LBLNS +label's//LBLS +labia/M/LB +labial/YS/LBL +labile//LBL +labiodental//LBTNTL +labium/M/LBM +labor/RDMJSZG/LB +laboratory/MS/LBRTR +labored/PMY/LBRT +laboredness/M/LBRTNS +labored's/U/LBRTS +laborer/M/LBR +laboring/MY/LBRN +laborings/U/LBRNS +laborious/PY/LBRS +laboriousness/MS/LBRSNS +laborsaving//LBSFN +Labrador/SM/LBRT +Labradorean/S/LBRTRN +laburnum/SM/LBNM +labyrinth/M/LBRN@ +labyrinthine//LBRN@N +labyrinths//LBRN@S +Lac/M/LK +lac/SGMDR/LK +lace/MS/LS +laced/U/LST +Lacee/M/LS +lacer/M/LS +lacerate/NGVXDS/LSRT +laceration/M/LSRXN +laces/U/LSS +lacewing/MS/LSWN +Lacey/M/LS +Lachesis/M/LXSS +lachrymal/S/LXRML +lachrymose//LXRMS +Lacie/M/LS +lacing/M/LSN +lack/GRDMS/LK +lackadaisic//LKTSK +lackadaisical/Y/LKTSKL +Lackawanna/M/LKWN +lacker/M/LK +lackey/SMDG/LK +lackluster/S/LKLST +laconic//LKNK +laconically//LKNKL +lacquer/ZGDRMS/LK +lacquerer/M/LKR +lacrosse/MS/LKRS +lactate/MNGSDX/LKTT +lactation/M/LKTXN +lactational/Y/LKTXNL +lacteal//LKTL +lactic//LKTK +lactose/MS/LKTS +lacuna/M/LKN +lacunae//LKN +Lacy/M/LS +lacy/RT/LS +lad/XGSJMND/LT +ladder/GDMS/LT +laddie/MS/LT +lade/S/LT +laded/U/LTT +laden/U/LTN +ladened//LTNT +ladening//LTNN +lading/M/LTN +ladle/SDGM/LTL +Ladoga/M/LTK +Ladonna/M/LTN +lady/SM/LT +Lady/SM/LT +ladybird/SM/LTBT +ladybug/MS/LTBK +ladyfinger/SM/LTFN +ladylike/U/LTLK +ladylove/MS/LTLF +Ladyship/MS/LTXP +ladyship/SM/LTXP +Laetitia/M/LTX +laetrile/S/LTRL +Lafayette/M/LFYT +Lafitte/M/LFT +lag/ZSR/LK +lager/DMG/LK +laggard/MYSP/LKT +laggardness/M/LKTNS +lagged//LKT +lagging/MS/LKN +lagniappe/SM/LKNP +lagoon/MS/LKN +Lagos/M/LKS +Lagrange/M/LKRNK +Lagrangian/M/LKRNKN +Laguerre/M/LKR +Laguna/M/LKN +Lahore/M/LHR +laid/AI/LT +Laidlaw/M/LTL +lain//LN +Laina/M/LN +Lainey/M/LN +lair/GDMS/L +Laird/M/LT +laird/MS/LT +laissez//LSS +laity/SM/LT +Laius/M/LS +lake/DSRMG/LK +Lakehurst/M/LKHST +Lakeisha/M/LKX +laker/M/LK +lakeside//LKST +Lakewood/M/LKWT +Lakisha/M/LKX +Lakshmi/M/LKXM +lallygag/S/LLKK +lallygagged//LLKKT +lallygagging//LLKKN +Lalo/M/LL +lam/MDRSTG/LM +lama/SM/LM +Lamaism/SM/LMSM +Lamar/M/LM +Lamarck/M/LMK +lamasery/MS/LMSR +Lamaze//LMS +Lamb/M/LM +lamb/SRDMG/LM +lambada/S/LMBT +lambaste/SDG/LMBST +lambda/SM/LMBT +lambency/MS/LMBNS +lambent/Y/LMBNT +Lambert/M/LMBT +lambkin/MS/LMBKN +Lamborghini/M/LMBKN +lambskin/MS/LMBSKN +lambswool//LMBSWL +lame/SPY/LM +lamebrain/SM/LMBRN +lamed/M/LMT +lameness/MS/LMNS +lament/DGSB/LMNT +lamentable/P/LMNTBL +lamentableness/M/LMNTBLNS +lamentably//LMNTBL +lamentation/SM/LMNTXN +lamented/U/LMNTT +lamina/M/LMN +laminae//LMN +laminar//LMN +laminate/XNGSD/LMNT +lamination/M/LMNXN +lammed//LMT +lammer//LM +lamming//LMN +Lammond/M/LMNT +Lamond/M/LMNT +Lamont/M/LMNT +L'Amour//LM +lamp/SGMRD/LMP +lampblack/SM/LMPBLK +lamplight/ZRMS/LMPLT +lamplighter/M/LMPLT +lampoon/RDMGS/LMPN +lampooner/M/LMPN +Lamport/M/LMPT +lamppost/SM/LMPST +lamprey/MS/LMPR +lampshade/MS/LMPXT +LAN//LN +Lana/M/LN +Lanae/M/LN +Lanai/M/LN +lanai/SM/LN +Lancashire/M/LNKXR +Lancaster/M/LNKST +Lance/M/LNS +lance/SRDGMZ/LNS +Lancelot/M/LNSLT +lancer/M/LNS +lancet/MS/LNST +Land/M/LNT +land/SMRDJGZ/LNT +landau/MS/LNT +lander/I/LNT +landfall/SM/LNTFL +landfill/DSG/LNTFL +landforms//LNTFMS +landhold/JGZR/LNTHLT +landholder/M/LNTHLT +landing/M/LNTN +Landis/M/LNTS +landlady/MS/LNTLT +landless//LNTLS +landlines//LNTLNS +landlocked//LNTLKT +landlord/MS/LNTLT +landlubber/SM/LNTLB +landmark/GSMD/LNTMK +landmass/MS/LNTMS +Landon/M/LNTN +landowner/MS/LNTN +landownership/M/LNTNXP +landowning/SM/LNTNN +Landry/M/LNTR +lands/I/LNTS +Landsat//LNTST +landscape/GMZSRD/LNTSKP +landscaper/M/LNTSKP +landslid/G/LNTSLT +landslide/MS/LNTSLT +landslip//LNTSLP +landsman/M/LNTSMN +landsmen//LNTSMN +Landsteiner/M/LNTSTN +landward/S/LNTWT +Landwehr/M/LNTWR +Lane/M/LN +lane/SM/LN +Lanette/M/LNT +Laney/M/LN +Lang/M/LNK +Lange/M/LNK +Langeland/M/LNKLNT +Langerhans/M/LNKHNS +Langford/M/LNKFT +Langland/M/LNKLNT +Langley/M/LNKL +Langmuir/M/LNKM +Langsdon/M/LNKSTN +Langston/M/LNKSTN +language/MS/LNKK +languid/PY/LNKT +languidness/MS/LNKTNS +languish/SRDG/LNKX +languisher/M/LNKX +languishing/Y/LNKXN +languor/SM/LNK +languorous/Y/LNKRS +Lani/M/LN +Lanie/M/LN +Lanita/M/LNT +lank/PTYR/LNK +lankiness/SM/LNKNS +lankness/MS/LNKNS +lanky/PRT/LNK +Lanna/M/LN +Lanni/M/LN +Lannie/M/LN +Lanny/M/LN +lanolin/MS/LNLN +Lansing/M/LNSN +lantern/GSDM/LNTN +lanthanide/M/LN@NT +lanthanum/MS/LN@NM +lanyard/MS/LNYT +Lanzhou//LNSH +Lao/SM/L +Laocoon/M/LKN +Laotian/MS/LXN +lap/SM/LP +lapboard/MS/LPBT +lapdog/S/LPTK +lapel/MS/LPL +lapidary/MS/LPTR +lapin/MS/LPN +Laplace/M/LPLS +Lapland/ZMR/LPLNT +Lapp/SM/LP +lapped//LPT +lappet/MS/LPT +lapping//LPN +laps/SRDG/LPS +lapse/KSDMG/LPS +lapsed/A/LPST +lapser/MA/LPS +lapses/A/LPSS +lapsing/A/LPSN +laptop/SM/LPTP +lapwing/MS/LPWN +Lara/M/LR +Laraine/M/LRN +Laramie/M/LRM +larboard/MS/LBT +larcenist/S/LSNST +larcenous//LSNS +larceny/MS/LSN +larch/MS/LX +lard/MRDSGZ/LT +larder/M/LT +Lardner/M/LTN +lardy/RT/LT +Laredo/M/LRT +large/SRTYP/LK +largehearted//LKHTT +largemouth//LKM@ +largeness/SM/LKNS +largess/SM/LKS +largish//LKX +largo/S/LK +Lari/M/LR +lariat/MDGS/LRT +Larina/M/LRN +Larine/M/LRN +Larisa/M/LRS +Larissa/M/LRS +lark/GRDMS/LK +Lark/M/LK +larker/M/LK +larkspur/MS/LKSP +Larousse/M/LRS +Larry/M/LR +Lars/NM/LS +Larsen/M/LSN +Larson/M/LSN +larva/M/LF +larvae//LF +larval//LFL +laryngeal/YS/LRNKL +larynges//LRNKS +laryngitides//LRNKTTS +laryngitis/M/LRNKTS +larynx/M/LRNKS +Laryssa/M/LRS +las/SRZG/LS +lasagna/S/LSKN +lasagne's//LSKNS +Lascaux/M/LSKKS +lascivious/YP/LSFS +lasciviousness/MS/LSFSNS +lase//LS +laser/M/LS +lash/JGMSRD/LX +lashed/U/LXT +lasher/M/LX +lashing/M/LXN +lass/SM/LS +Lassa/M/LS +Lassen/M/LSN +Lassie/M/LS +lassie/SM/LS +lassitude/MS/LSTT +lasso/GRDMS/LS +lassoer/M/LS +last/JGSYRD/LST +laster/M/LST +lasting/PY/LSTN +lastingness/M/LSTNNS +Laszlo/M/LSSL +Lat/M/LT +lat/SDRT/LT +Latasha/M/LTX +Latashia/M/LTX +latch/UGSD/LX +latching/M/LXN +latchkey/SM/LXK +latch's//LXS +late/KA/LT +latecomer/SM/LTKM +lated/A/LTT +lately//LTL +latency/MS/LTNS +lateness/MS/LTNS +latent/YS/LTNT +later/A/LT +lateral/GDYS/LTRL +lateralization//LTRLSXN +Lateran/M/LTRN +latest/S/LTST +LaTeX/M/LTKS +latex/MS/LTKS +lath/MSRDGZ/L@ +lathe/M/L@ +lather/RDMG/L@ +latherer/M/L@R +lathery//L@R +lathing/M/L@N +Lathrop/M/L@RP +laths//L@S +Latia/M/LX +latices/M/LTSS +Latin/RMS/LTN +Latina/SM/LTN +Latinate//LTNT +Latino/S/LTN +latish//LTX +Latisha/M/LTX +latitude/SM/LTTT +latitudinal/Y/LTTTNL +latitudinarian/S/LTTTNRN +latitudinary//LTTTNR +Latonya/M/LTNY +Latoya/M/LTY +Latrena/M/LTRN +Latrina/M/LTRN +latrine/MS/LTRN +Latrobe/M/LTRB +latte/SR/LT +latter/YM/LT +lattice/SDMG/LTS +latticework/MS/LTSWK +latticing/M/LTSN +Lattimer/M/LTM +Latvia/M/LTF +Latvian/S/LTFN +Laud/MR/LT +laud/RDSBG/LT +laudably//LTBL +laudanum/MS/LTNM +laudatory//LTTR +lauder/M/LT +Lauder/M/LT +Lauderdale/M/LTTL +lauds/M/LTS +Laue/M/L +laugh/BRDZGJ/LF +laughable/P/LFBL +laughableness/M/LFBLNS +laughably//LFBL +laugher/M/LF +laughing/MY/LFN +laughingstock/SM/LFNSTK +laughs//LFS +laughter/MS/LFT +Laughton/M/LFTN +Launce/M/LNS +launch/AGSD/LNX +launcher/MS/LNX +launching/S/LNXN +launchpad/S/LNXPT +launder/SDRZJG/LNT +laundered/U/LNTRT +launderer/M/LNTR +launderette/MS/LNTRT +laundress/MS/LNTRS +laundrette/S/LNTRT +laundromat/S/LNTRMT +Laundromat/SM/LNTRMT +laundry/MS/LNTR +laundryman/M/LNTRMN +laundrymen//LNTRMN +laundrywoman/M/LNTRWMN +laundrywomen//LNTRWMN +laura/M/LR +Laura/M/LR +Lauraine/M/LRN +Laural/M/LRL +Lauralee/M/LRL +Laurasia/M/LRX +Laure/M/LR +laureate/DSNG/LRT +laureateship/SM/LRTXP +Lauree/M/LR +Laureen/M/LRN +Laurel/M/LRL +laurel/SGMD/LRL +Laurella/M/LRL +Lauren/SM/LRN +Laurena/M/LRN +Laurence/M/LRNS +Laurene/M/LRN +Laurent/M/LRNT +Laurentian//LRNXN +Lauretta/M/LRT +Laurette/M/LRT +Lauri/M/LR +Laurianne/M/LRN +Laurice/M/LRS +Laurie/M/LR +Lauritz/M/LRTS +Lauryn/M/LRN +Lausanne/M/LSN +lava/SM/LF +lavage/MS/LFK +Laval/M/LFL +lavaliere/MS/LFLR +lavatory/MS/LFTR +lave/GDS/LF +Lavena/M/LFN +lavender/MDSG/LFNT +Lavern/M/LFN +Laverna/M/LFN +Laverne/M/LFN +Lavina/M/LFN +Lavinia/M/LFN +Lavinie/M/LFN +lavish/SRDYPTG/LFX +lavishness/MS/LFXNS +Lavoisier/M/LFS +Lavonne/M/LFN +Law/M/L +law/SMDG/L +Lawanda/M/LWNT +lawbreaker/SM/LBRK +lawbreaking/MS/LBRKN +Lawford/M/LFT +lawful/PUY/LFL +lawfulness/SMU/LFLNS +lawgiver/MS/LKF +lawgiving/M/LKFN +lawless/PY/LLS +lawlessness/MS/LLSNS +lawmaker/MS/LMK +lawmaking/SM/LMKN +lawman/M/LMN +lawmen//LMN +lawn/SM/LN +lawnmower/S/LNMW +Lawrence/M/LRNS +Lawrenceville/M/LRNSFL +lawrencium/SM/LRNSM +Lawry/M/LR +Lawson/M/LSN +lawsuit/MS/LST +Lawton/M/LTN +lawyer/DYMGS/LY +lax/PTSRY/LKS +laxative/PSYM/LKSTF +laxativeness/M/LKSTFNS +laxer/A/LKS +laxes/A/LKSS +laxity/SM/LKST +laxness/SM/LKSNS +lay/CZGSR/L +Lay/M/L +layabout/MS/LYBT +Layamon/M/LYMN +layaway/S/LYW +layer/GJDM/LY +layered/C/LYRT +layering/M/LYRN +layer's/IC/LYS +layette/SM/LYT +Layla/M/LL +layman/M/LMN +laymen//LMN +Layne/M/LN +Layney/M/LN +layoff/MS/LYF +layout/SM/LYT +layover/SM/LYF +laypeople//LPPL +layperson/S/LPSN +lays/AI/LS +Layton/M/LTN +layup/MS/LYP +laywoman/M/LWMN +laywomen//LWMN +Lazar/M/LS +Lazare/M/LSR +Lazaro/M/LSR +Lazarus/M/LSRS +laze/DSG/LS +lazily//LSL +laziness/MS/LSNS +lazuli/M/LSL +lazy/PTSRDG/LS +lazybones/M/LSBNS +lb//LB +LBJ/M/LBK +lbs//LBS +LC//LK +LCD//LKT +LCM//LKM +LDC//LTK +Le/NM/L +Lea/M/L +lea/MS/L +Leach/M/LX +leach/SDG/LX +leachate//LXT +lead/SGZXJRDN/LT +Leadbelly/M/LTBL +leaded/U/LTT +leaden/PGDY/LTN +leadenness/M/LTNS +leader/M/LT +leaderless//LTLS +leadership/MS/LTXP +leadsman/M/LTSMN +leadsmen//LTSMN +leaf/GSDM/LF +leafage/MS/LFK +leafhopper/M/LFHP +leafiness/M/LFNS +leafless//LFLS +leaflet/SDMG/LFLT +leafstalk/SM/LFSTLK +leafy/PTR/LF +league/RSDMZG/LK +leaguer/M/LK +Leah/M/L +leak/GSRDM/LK +leakage/SM/LKK +leaker/M/LK +Leakey/M/LK +leakiness/MS/LKNS +leaky/PRT/LK +Lean/M/LN +lean/YRDGTJSP/LN +Leander/M/LNT +Leandra/M/LNTR +leaner/M/LN +leaning/M/LNN +Leann/M/LN +Leanna/M/LN +Leanne/M/LN +leanness/MS/LNS +Leanor/M/LN +Leanora/M/LNR +leap/RDGZS/LP +leaper/M/LP +leapfrog/SM/LPFRK +leapfrogged//LPFRKT +leapfrogging//LPFRKN +Lear/M/L +learn/SZGJRD/LN +learned/UA/LNT +learnedly//LNTL +learnedness/M/LNTNS +learner/M/LN +learning/M/LNN +learns/UA/LNS +Leary/M/LR +leas/SRDGZ/LS +lease/ARSDG/LS +leaseback/MS/LSBK +leasehold/SRMZ/LSHLT +leaseholder/M/LSHLT +leaser/MA/LS +lease's//LSS +leash/UGSD/LX +leash's//LXS +leasing/M/LSN +least/S/LST +leastwise//LSTWS +leather/MDSG/L@ +leatherette/S/L@RT +leathern//L@N +leatherneck/SM/L@NK +leathery//L@R +leave/SRDJGZ/LF +leaven/DMJGS/LFN +leavened/U/LFNT +leavening/M/LFNN +Leavenworth/M/LFNW@ +leaver/M/LF +leaves/M/LFS +leaving/M/LFN +Lebanese//LBNS +Lebanon/M/LBNN +Lebbie/M/LB +lebensraum//LBNSRM +Lebesgue/M/LBSK +Leblanc/M/LBLNK +lecher/DMGS/LX +lecherous/YP/LXRS +lecherousness/MS/LXRSNS +lechery/MS/LXR +lecithin/SM/LS@N +lectern/SM/LKTN +lecture/RSDZMG/LKTR +lecturer/M/LKTR +lectureship/SM/LKTRXP +led//LT +LED/SM/LT +Leda/M/LT +Lederberg/M/LTBK +ledge/SRMZ/LK +ledger/DMG/LKR +Lee/M/L +lee/MZRS/L +Leeann/M/LN +Leeanne/M/LN +leech/MSDG/LX +Leeds/M/LTS +leek/SM/LK +Leela/M/LL +Leelah/M/LL +Leeland/M/LLNT +Leena/M/LN +leer/DG/L +leeriness/MS/LRNS +leering/Y/LRN +leery/PTR/LR +Leesa/M/LS +Leese/M/LS +Leeuwenhoek/M/LWNHK +Leeward/M/LWT +leeward/S/LWT +leeway/MS/LW +Left/S/LFT +left/TRS/LFT +leftism/SM/LFTSM +leftist/SM/LFTST +leftmost//LFTMST +leftover/MS/LFTF +leftward/S/LFTWT +Lefty/M/LFT +lefty/SM/LFT +leg/MS/LK +legacy/MS/LKS +legal/SY/LKL +legalese/MS/LKLS +legalism/SM/LKLSM +legalistic//LKLSTK +legality/MS/LKLT +legalization/MS/LKLSXN +legalize/DSG/LKLS +legalized/U/LKLST +legate/AXCNGSD/LKT +legatee/MS/LKT +legate's/C/LKTS +legation/AMC/LKXN +legato/SM/LKT +legend/SM/LKNT +legendarily//LKNTRL +legendary/S/LKNTR +Legendre/M/LKNTR +Leger/SM/LK +legerdemain/SM/LKTMN +legged//LKT +legginess/MS/LKNS +legging/MS/LKN +leggy/PRT/LK +leghorn/SM/LKN +Leghorn/SM/LKN +legibility/MS/LKBLT +legible//LKBL +legibly//LKBL +legion/SM/LKN +legionary/S/LKNR +legionnaire/SM/LKNR +legislate/SDXVNG/LKSLT +legislation/M/LKSLXN +legislative/SY/LKSLTF +legislator/SM/LKSLT +legislature/MS/LKSLTR +legit/S/LKT +legitimacy/MS/LKTMS +legitimate/SDNGY/LKTMT +legitimation/M/LKTMXN +legitimatize/SDG/LKTMTS +legitimization/MS/LKTMSXN +legitimize/RSDG/LKTMS +legless//LKLS +legman/M/LKMN +legmen//LKMN +Lego/M/LK +Legra/M/LKR +Legree/M/LKR +legroom/MS/LKRM +legstraps//LKSTRPS +legume/SM/LKM +leguminous//LKMNS +legwork/SM/LKWK +Lehigh/M/LH +Lehman/M/LMN +lei/MS/L +Leia/M/L +Leibniz/M/LBNS +Leicester/SM/LSST +Leiden/M/LTN +Leif/M/LF +Leigh/M/L +Leigha/M/LK +Leighton/M/LTN +Leila/M/LL +Leilah/M/LL +Leipzig/M/LPSK +Leisha/M/LX +leisure/SDYM/LSR +leisureliness/MS/LSRLNS +leisurely/P/LSRL +leisurewear//LSRW +leitmotif/SM/LTMTF +leitmotiv/MS/LTMTF +Lek/M/LK +Lela/M/LL +Lelah/M/LL +Leland/M/LLNT +Lelia/M/LL +Lem/M/LM +Lemaitre/M/LMTR +Lemar/M/LM +Lemke/M/LMK +lemma/MS/LM +lemme/GJ/LM +Lemmie/M/LM +lemming/M/LMN +Lemmy/M/LM +lemon/GSDM/LMN +lemonade/SM/LMNT +lemony//LMN +Lemuel/M/LML +lemur/MS/LM +Lemuria/M/LMR +Len/M/LN +Lena/M/LN +Lenard/M/LNT +Lenci/M/LNS +lend/SRGZ/LNT +lender/M/LNT +Lenee/M/LN +Lenette/M/LNT +length/MNYX/LNK@ +lengthen/GRD/LNK@N +lengthener/M/LNK@N +lengthily//LNK@L +lengthiness/MS/LNK@NS +lengths//LNK@S +lengthwise//LNK@WS +lengthy/TRP/LNK@ +lenience/S/LNNS +leniency/MS/LNNS +lenient/SY/LNNT +Lenin/M/LNN +Leningrad/M/LNNRT +Leninism/M/LNNSM +Leninist//LNNST +lenitive/S/LNTF +Lenka/M/LNK +Lenna/M/LN +Lennard/M/LNT +Lennie/M/LN +Lennon/M/LNN +Lenny/M/LN +Leno/M/LN +Lenoir/M/LN +Lenora/M/LNR +Lenore/M/LNR +lens/SRDMJGZ/LNS +lent/A/LNT +Lent/SMN/LNT +lenticular//LNTKL +lentil/SM/LNTL +lento/S/LNT +Leo/MS/L +Leodora/M/LTR +Leoine/M/LN +Leola/M/LL +Leoline/M/LLN +Leon/M/LN +Leona/M/LN +Leonanie/M/LNN +Leonard/M/LNT +Leonardo/M/LNT +Leoncavallo/M/LNKFL +Leone/M/LN +Leonel/M/LNL +Leonelle/M/LNL +Leonerd/M/LNT +Leonhard/M/LNHT +Leonid/M/LNT +Leonidas/M/LNTS +Leonie/M/LN +leonine//LNN +Leonor/M/LN +Leonora/M/LNR +Leonore/M/LNR +Leontine/M/LNTN +Leontyne/M/LNTN +leopard/MS/LPT +leopardess/SM/LPTS +leopardskin//LPTSKN +Leopold/M/LPLT +Leopoldo/M/LPLT +Leopoldville/M/LPLTFL +Leora/M/LR +leotard/MS/LTT +leper/SM/LP +Lepidus/M/LPTS +Lepke/M/LPK +leprechaun/SM/LPRXN +leprosy/MS/LPRS +leprous//LPRS +lepta//LPT +lepton/SM/LPTN +Lepus/M/LPS +Lerner/M/LN +Leroi/M/LR +Leroy/M/LR +Les/Y/LS +Lesa/M/LS +lesbian/MS/LSBN +lesbianism/MS/LSBNSM +Leshia/M/LX +lesion/DMSG/LXN +Lesley/M/LSL +Lesli/M/LSL +Leslie/M/LSL +Lesly/M/LSL +Lesotho/M/LS@ +less/U/LS +lessee/MS/LS +lessen/GDS/LSN +Lesseps/M/LSPS +lesser//LS +lesses//LSS +Lessie/M/LS +lessing//LSN +lesson/DMSG/LSN +lessor/MS/LS +lest/R/LST +Lester/M/LST +Lesya/M/LSY +let/ISM/LT +Leta/M/LT +letdown/SM/LTTN +Letha/M/L@ +lethal/YS/L@L +lethality/M/L@LT +lethargic//L@KK +lethargically//L@KKL +lethargy/MS/L@K +Lethe/M/L@ +Lethia/M/L@ +Leticia/M/LTX +Letisha/M/LTX +Letitia/M/LTX +Letizia/M/LTS +Letta/M/LT +letter/JSZGRDM/LT +letterbox/S/LTBKS +lettered/U/LTRT +letterer/M/LTR +letterhead/SM/LTHT +lettering/M/LTRN +letterman/M/LTMN +Letterman/M/LTMN +lettermen//LTMN +letterpress/MS/LTPRS +Letti/M/LT +Lettie/M/LT +letting/S/LTN +lettuce/SM/LTS +Letty/M/LT +letup/MS/LTP +leukemia/SM/LKM +leukemic/S/LKMK +leukocyte/MS/LKST +Leupold/M/LPLT +Lev/M/LF +Levant/M/LFNT +levee/SDM/LF +leveeing//LFN +level/STZGRDYP/LFL +leveled/U/LFLT +leveler/M/LFL +levelheaded/P/LFLHTT +levelheadedness/S/LFLHTTNS +leveling/U/LFLN +levelness/SM/LFLNS +lever/SDMG/LF +leverage/MGDS/LFRK +Levesque/M/LFSK +Levey/M/LF +Levi/MS/LF +Leviathan//LF@N +leviathan/MS/LF@N +levier/M/LF +Levin/M/LFN +Levine/M/LFN +levitate/XNGDS/LFTT +levitation/M/LFTXN +Leviticus/M/LFTKS +Levitt/M/LFT +levity/MS/LFT +Levon/M/LFN +Levy/M/LF +levy/SRDZG/LF +Lew/M/L +lewd/PYRT/LT +lewdness/MS/LTNS +Lewellyn/M/LWLN +Lewes//LWS +Lewie/M/LW +Lewinsky/M/LWNSK +lewis/M/LWS +Lewis/M/LWS +Lewiss//LWS +lex//LKS +lexeme/MS/LKSM +Lexi/MS/LKS +lexical/Y/LKSKL +lexicographer/MS/LKSKKRF +lexicographic//LKSKKRFK +lexicographical/Y/LKSKKRFKL +lexicography/SM/LKSKKRF +lexicon/SM/LKSKN +Lexie/M/LKS +Lexine/M/LKSN +Lexington/M/LKSNTN +Lexus/M/LKSS +Lexy/M/LKS +Leyden/M/LTN +Leyla/M/LL +Lezley/M/LSL +Lezlie/M/LSL +lg//LK +Lhasa/SM/LHS +Lhotse/M/LHTS +Li/MY/L +Lia/M/L +liability/SAM/LBLT +liable/AP/LBL +liaise/GSD/LS +liaison/SM/LSN +Liam/M/LM +Lian/M/LN +Liana/M/LN +Liane/M/LN +Lianna/M/LN +Lianne/M/LN +liar/MS/L +Lib/M/LB +lib/MS/LB +libation/SM/LBXN +libbed//LBT +Libbey/M/LB +Libbi/M/LB +Libbie/M/LB +libbing//LBN +Libby/M/LB +libel/GMRDSZ/LBL +libeler/M/LBL +libelous/Y/LBLS +Liberace/M/LBRS +liberal/YSP/LBRL +liberalism/MS/LBRLSM +liberality/MS/LBRLT +liberalization/SM/LBRLSXN +liberalize/GZSRD/LBRLS +liberalized/U/LBRLST +liberalizer/M/LBRLS +liberalness/MS/LBRLNS +liberate/NGDSCX/LBRT +liberation/MC/LBRXN +liberationists//LBRXNSTS +liberator/SCM/LBRT +Liberia/M/LBR +Liberian/S/LBRN +libertarian/MS/LBTRN +libertarianism/M/LBTRNSM +libertine/MS/LBTN +liberty/MS/LBT +libidinal//LBTNL +libidinous/PY/LBTNS +libidinousness/M/LBTNSNS +libido/MS/LBT +Libra/SM/LBR +librarian/MS/LBRRN +library/MS/LBRR +libretoes//LBRTS +libretos//LBRTS +librettist/MS/LBRTST +libretto/MS/LBRT +Libreville/M/LBRFL +Librium/M/LBRM +Libya/M/LBY +Libyan/S/LBYN +lice/M/LS +license/MGBRSD/LSNS +licensed/AU/LSNST +licensee/SM/LSNS +licenser/M/LSNS +licenses/A/LSNSS +licensing/A/LSNSN +licensor/M/LSNS +licentiate/MS/LSNXT +licentious/PY/LSNXS +licentiousness/MS/LSNXSNS +Licha/M/LX +lichee's//LXS +lichen/DMGS/LXN +Lichtenstein/M/LXTNSTN +Lichter/M/LXT +licit/Y/LST +lick/GRDSJ/LK +licked/U/LKT +licker/M/LK +lickerish//LKRX +licking/M/LKN +licorice/SM/LKRS +lid/MS/LT +Lida/M/LT +lidded//LTT +lidding//LTN +Lidia/M/LT +lidless//LTLS +lido/MS/LT +lie/DRS/L +Lie/M/L +Lieberman/M/LBMN +Liebfraumilch/M/LBFRMLX +Liechtenstein/RMZ/LXTNSTN +lied/MR/LT +Lief/M/LF +lief/TSR/LF +liefs/A/LFS +Liege/M/LK +liege/SR/LK +lien/SM/LN +lier/IMA/L +lies/A/LS +Liesa/M/LS +lieu/SM/L +lieut//LT +Lieut/M/LT +lieutenancy/MS/LTNNS +lieutenant/SM/LTNNT +life/MZR/LF +lifeblood/SM/LFBLT +lifeboat/SM/LFBT +lifebuoy/S/LFB +lifeforms//LFFMS +lifeguard/MDSG/LFKT +lifeless/PY/LFLS +lifelessness/SM/LFLSNS +lifelike/P/LFLK +lifelikeness/M/LFLKNS +lifeline/SM/LFLN +lifelong//LFLNK +lifer/M/LF +lifesaver/SM/LFSF +lifesaving/S/LFSFN +lifespan/S/LFSPN +lifestyle/S/LFSTL +lifetaking//LFTKN +lifetime/MS/LFTM +lifework/MS/LFWK +LIFO//LF +lift/GZMRDS/LFT +lifter/M/LFT +liftoff/MS/LFTF +ligament/MS/LKMNT +ligand/MS/LKNT +ligate/XSDNG/LKT +ligation/M/LKXN +ligature/DSGM/LKTR +light/ADSCG/LT +lighted/U/LTT +lighten/ZGDRS/LTN +lightener/M/LTN +lightening/M/LTNN +lighter/CM/LT +lightered//LTRT +lightering//LTRN +lighters//LTS +lightest//LTST +lightface/SDM/LTFS +lightheaded//L@TT +lighthearted/PY/L@TT +lightheartedness/MS/L@TTNS +lighthouse/MS/L@S +lighting/MS/LTN +lightly//LTL +lightness/MS/LTNS +lightning/SMD/LTNN +lightproof//LTPRF +light's//LTS +lightship/SM/LTXP +lightweight/S/LTWT +ligneous//LKNS +lignite/MS/LKNT +lignum//LKNM +likability/MS/LKBLT +likable/P/LKBL +likableness/MS/LKBLNS +like/USPBY/LK +likeability's//LKBLTS +liked/E/LKT +likelihood/MSU/LKLHT +likely/UPRT/LKL +liken/GSD/LKN +likeness/MSU/LKNS +liker/E/LK +liker's//LKS +likes/E/LKS +likest//LKST +likewise//LKWS +liking/SM/LKN +Lil/MY/LL +Lila/SM/LL +lilac/MS/LLK +Lilah/M/LL +Lilia/MS/LL +Lilian/M/LLN +Liliana/M/LLN +Liliane/M/LLN +Lilith/M/LL@ +Liliuokalani/M/LLKLN +Lilla/M/LL +Lille/M/LL +Lilli/MS/LL +Lillian/M/LLN +Lillie/M/LL +Lilliput/M/LLPT +lilliputian/S/LLPXN +Lilliputian/SM/LLPXN +Lilllie/M/LL +Lilly/M/LL +Lilongwe/M/LLNKW +lilt/MDSG/LLT +lilting/YP/LLTN +Lily/M/LL +lily/MSD/LL +Lilyan/M/LLYN +Lima/M/LM +limb/SGZRDM/LM +Limbaugh/M/LMB +limber/RDYTGP/LMB +limbered/U/LMBRT +limberness/SM/LMBNS +limbers/U/LMBS +limbic//LMBK +limbless//LMBLS +Limbo//LMB +limbo/GDMS/LMB +Limburger/SM/LMBK +lime/DSMG/LM +limeade/SM/LMT +limekiln/M/LMKLN +limelight/DMGS/LMLT +limerick/SM/LMRK +limestone/SM/LMSTN +limit/CSZGRD/LMT +limitability//LMTBLT +limitably//LMTBL +limitation/MCS/LMTXN +limited/PSY/LMTT +limitedly/U/LMTTL +limitedness/M/LMTTNS +limiter/M/LMT +limiting/S/LMTN +limitless/PY/LMTLS +limitlessness/SM/LMTLSNS +limit's//LMTS +limn/GSD/LMN +limo/S/LM +Limoges/M/LMKS +limousine/SM/LMSN +limp/SGTPYRD/LMP +limper/M/LMP +limpet/SM/LMPT +limpid/YP/LMPT +limpidity/MS/LMPTT +limpidness/SM/LMPTNS +limpness/MS/LMPNS +Limpopo/M/LMPP +limy/TR/LM +Lin/M/LN +Lina/M/LN +linage/MS/LNK +Linc/M/LNK +linchpin/MS/LNXPN +Lincoln/SM/LNKLN +Lind/M/LNT +Linda/M/LNT +Lindberg/M/LNTBK +Lindbergh/M/LNTB +linden/MS/LNTN +Lindholm/M/LNTHLM +Lindi/M/LNT +Lindie/M/LNT +Lindon/M/LNTN +Lindquist/M/LNTKST +Lindsay/M/LNTS +Lindsey/M/LNTS +Lindstrom/M/LNTSTRM +Lindsy/M/LNTS +Lindy/M/LNT +line/AGDS/LN +Linea/M/LN +lineage/SM/LNK +lineal/Y/LNL +lineament/MS/LNMNT +linear/Y/LN +linearity/MS/LNRT +linearize/SDGNB/LNRS +linebacker/SM/LNBK +lined/U/LNT +linefeed//LNFT +Linell/M/LNL +lineman/M/LNMN +linemen//LNMN +linen/SM/LNN +liner/SM/LN +line's//LNS +linesman/M/LNSMN +linesmen//LNSMN +Linet/M/LNT +Linette/M/LNT +lineup/S/LNP +ling/ZR/LN +linger/ZGJRD/LN +lingerer/M/LNR +lingerie/SM/LNR +lingering/Y/LNRN +lingo/M/LN +lingoes//LNS +lingua/M/LN +lingual/SY/LNL +linguine//LNN +linguini's//LNNS +linguist/SM/LNST +linguistic/S/LNSTK +linguistically//LNSTKL +linguistics/M/LNSTKS +liniment/MS/LNMNT +lining/SM/LNN +Link/M/LNK +link/USGD/LNK +linkable//LNKBL +linkage/SM/LNKK +linked/A/LNKT +linker/S/LNK +linking/S/LNKN +link's//LNKS +linkup/S/LNKP +Linn/M/LN +Linnaeus/M/LNS +Linnea/M/LN +Linnell/M/LNL +Linnet/M/LNT +linnet/SM/LNT +Linnie/M/LN +lino/M/LN +Linoel/M/LNL +linoleum/SM/LNLM +Linotype/M/LNTP +linseed/SM/LNST +lint/SMR/LNT +lintel/SM/LNTL +linter/M/LNT +Linton/M/LNTN +linty/RST/LNT +Linus/M/LNS +Linux/M/LNKS +Linwood/M/LNWT +Linzy/M/LNS +Lion/M/LN +lion/MS/LN +Lionel/M/LNL +Lionello/M/LNL +lioness/SM/LNS +lionhearted//LNHTT +lionization/SM/LNSXN +lionize/ZRSDG/LNS +lionizer/M/LNS +lip/MS/LP +lipase/M/LPS +lipid/MS/LPT +liposuction/S/LPSKXN +lipped//LPT +lipper//LP +Lippi/M/LP +lipping//LPN +Lippmann/M/LPMN +lippy/TR/LP +lipread/GSRJ/LPRT +Lipschitz/M/LPSXTS +Lipscomb/M/LPSKM +lipstick/MDSG/LPSTK +Lipton/M/LPTN +liq//LK +liquefaction/SM/LKFKXN +liquefier/M/LKF +liquefy/DRSGZ/LKF +liqueur/DMSG/LK +liquid/SPMY/LKT +liquidate/GNXSD/LKTT +liquidation/M/LKTXN +liquidator/SM/LKTT +liquidity/SM/LKTT +liquidize/ZGSRD/LKTS +liquidizer/M/LKTS +liquidness/M/LKTNS +liquor/SDMG/LK +liquorice/SM/LKRS +liquorish//LKRX +lira/M/LR +Lira/M/LR +lire//LR +Lisa/M/LS +Lisabeth/M/LSB@ +Lisbeth/M/LSB@ +Lisbon/M/LSBN +Lise/M/LS +Lisetta/M/LST +Lisette/M/LST +Lisha/M/LX +Lishe/M/LX +Lisle/M/LSL +lisle/SM/LSL +lisp/MRDGZS/LSP +lisper/M/LSP +Liss/M/LS +Lissa/M/LS +Lissajous/M/LSKS +Lissi/M/LS +Lissie/M/LS +lissome/P/LSM +lissomeness/M/LSMNS +lissomness/M/LSMNS +Lissy/M/LS +list/JMRDNGZXS/LST +listed/U/LSTT +listen/ZGRD/LSTN +listener/M/LSTN +lister/M/LST +Lister/M/LST +Listerine/M/LSTRN +listing/M/LSTN +listless/PY/LSTLS +listlessness/SM/LSTLSNS +Liston/M/LSTN +Liszt/M/LSST +lit/RZS/LT +Lita/M/LT +litany/MS/LTN +litchi/SM/LX +lite/S/LT +liter/M/LT +literacy/MS/LTRS +literal/PYS/LTRL +literalism/M/LTRLSM +literalistic//LTRLSTK +literalness/MS/LTRLNS +literariness/SM/LTRRNS +literary/P/LTRR +literate/YNSP/LTRT +literati//LTRT +literation/M/LTRXN +literature/SM/LTRTR +lithe/PRTY/L@ +litheness/SM/L@NS +lithesome//L@SM +lithium/SM/L@M +lithograph/DRMGZ/L@KRF +lithographer/M/L@KRF +lithographic//L@KRFK +lithographically//L@KRFKL +lithographs//L@KRFS +lithography/MS/L@KRF +lithology/M/L@LK +lithosphere/MS/L@SFR +lithospheric//L@SFRK +Lithuania/M/L@N +Lithuanian/S/L@NN +litigant/MS/LTKNT +litigate/NGXDS/LTKT +litigation/M/LTKXN +litigator/SM/LTKT +litigious/PY/LTKS +litigiousness/MS/LTKSNS +litmus/SM/LTMS +litotes/M/LTTS +litter/SZGRDM/LT +littérateur/S/LTRT +litterbug/SM/LTBK +Little/M/LTL +little/RSPT/LTL +littleneck/M/LTLNK +littleness/SM/LTLNS +Littleton/M/LTLTN +Litton/M/LTN +littoral/S/LTRL +liturgic/S/LTKK +liturgical/Y/LTKKL +liturgics/M/LTKKS +liturgist/MS/LTKST +liturgy/SM/LTK +Liuka/M/LK +Liv/M/LF +Liva/M/LF +livability/MS/LFBLT +livable/U/LFBL +livableness/M/LFBLNS +livably//LFBL +live/YHZTGJDSRPB/LF +lived/A/LFT +livelihood/SM/LFLHT +liveliness/SM/LFLNS +livelong/S/LFLNK +lively/RTP/LFL +liven/SDG/LFN +liveness/M/LFNS +liver/CSGD/LF +liveried//LFRT +liverish//LFRX +Livermore/M/LFMR +Liverpool/M/LFPL +Liverpudlian/MS/LFPTLN +liver's//LFS +liverwort/SM/LFWT +liverwurst/SM/LFWST +livery/CMS/LFR +liveryman/MC/LFRMN +liverymen/C/LFRMN +lives/A/LFS +lives's//LFSS +livestock/SM/LFSTK +Livia/M/LF +livid/YP/LFT +lividness/M/LFTNS +living/YP/LFN +livingness/M/LFNNS +Livingston/M/LFNSTN +Livingstone/M/LFNSTN +Livonia/M/LFN +Livvie/M/LFF +Livvy/M/LFF +Livvyy/M/LFF +Livy/M/LF +Liz/M/LS +Liza/M/LS +Lizabeth/M/LSB@ +lizard/MS/LST +Lizbeth/M/LSB@ +Lizette/M/LST +Lizzie/M/LS +Lizzy/M/LS +Ljubljana/M/LKBLKN +LL//L +ll/C/L +llama/SM/LM +llano/SM/LN +LLB//LB +LLD//LT +Llewellyn/M/LWLN +Lloyd/M/LT +Llywellyn/M/LWLN +LNG//LNK +lo//L +load/SURDZG/LT +loadable//LTBL +loaded/A/LTT +loader/MU/LT +loading/MS/LTN +loads/A/LTS +load's/A/LTS +loadstar's//LTSTS +loadstone's//LTSTNS +loaf/SRDMGZ/LF +loafer/M/LF +Loafer/S/LF +loam/SMDG/LM +loamy/RT/LM +loan/SGZRDMB/LN +loaner/M/LN +loaning/M/LNN +loansharking/S/LNXKN +loanword/S/LNWT +loath/JPSRDYZG/L@ +loathe//L@ +loather/M/L@ +loathing/M/L@N +loathness/M/L@NS +loathsome/PY/L@SM +loathsomeness/MS/L@SMNS +loaves/M/LFS +lob/MDSG/LB +Lobachevsky/M/LBXFSK +lobar//LB +lobbed//LBT +lobber/MS/LB +lobbing//LBN +lobby/GSDM/LB +lobbyist/MS/LBYST +lobe/SM/LB +lobotomist//LBTMST +lobotomize/GDS/LBTMS +lobotomy/MS/LBTM +lobster/MDGS/LBST +lobular/Y/LBL +lobularity//LBLRT +lobule/SM/LBL +local/SGDY/LKL +locale/MS/LKL +localisms//LKLSMS +locality/MS/LKLT +localization/MS/LKLSXN +localize/ZGDRS/LKLS +localized/U/LKLST +localizer/M/LKLS +localizes/U/LKLSS +locatable//LKTBL +locate/AXESDGN/LKT +locater/M/LKT +location/EMA/LKXN +locational/Y/LKXNL +locative/S/LKTF +locator's//LKTS +loch/M/LX +Lochinvar/M/LXNF +lochs//LXS +loci/M/LS +Lock/M/LK +lock/UGSD/LK +lockable//LKBL +Locke/M/LK +Lockean/M/LKN +locked/A/LKT +locker/SM/LK +locket/SM/LKT +Lockhart/M/LKHT +Lockheed/M/LKHT +Lockian/M/LKN +locking/S/LKN +lockjaw/SM/LKK +locknut/M/LKNT +lockout/MS/LKT +lock's//LKS +locksmith/MG/LKSM@ +locksmithing/M/LKSM@N +locksmiths//LKSM@S +lockstep/S/LKSTP +lockup/MS/LKP +Lockwood/M/LKWT +loco/SDMG/LK +locomotion/SM/LKMXN +locomotive/YMS/LKMTF +locomotor//LKMT +locomotory//LKMTR +locoweed/MS/LKWT +locus/M/LKS +locust/SM/LKST +locution/MS/LKXN +lode/SM/LT +lodestar/MS/LTST +lodestone/MS/LTSTN +lodge/GMZSRDJ/LK +Lodge/M/LK +lodged/E/LKT +lodgepole//LKPL +lodger/M/LKR +lodges/E/LKS +lodging/M/LKNK +lodgment/M/LTKMNT +Lodovico/M/LTFK +Lodowick/M/LTWK +Lodz//LTS +Loeb/M/LB +Loella/M/LL +Loewe/M/LW +Loewi/M/LW +loft/SGMRD/LFT +lofter/M/LFT +loftily//LFTL +loftiness/SM/LFTNS +lofty/PTR/LFT +log/SM/LK +Logan/M/LKN +loganberry/SM/LKNBR +logarithm/MS/LKR@M +logarithmic//LKR@MK +logarithmically//LKR@MKL +logbook/MS/LKBK +loge/SMNX/LK +logged/U/LKT +logger/SM/LK +loggerhead/SM/LKHT +loggia/SM/LK +logging/MS/LKN +logic/SM/LKK +logical/SPY/LKKL +logicality/MS/LKKLT +logicalness/M/LKKLNS +logician/SM/LKXN +login/S/LKN +logion/M/LKN +logistic/MS/LKSTK +logistical/Y/LKSTKL +logjam/SM/LKKM +LOGO//LK +logo/SM/LK +logotype/MS/LKTP +logout//LKT +logrolling/SM/LKRLN +log's/K/LKS +logy/RT/LK +Lohengrin/M/LHNKRN +loin/SM/LN +loincloth/M/LNKL@ +loincloths//LNKL@S +Loire/M/LR +Lois/M/LS +Loise/M/LS +loiter/RDJSZG/LT +loiterer/M/LTR +Loki/M/LK +Lola/M/LL +Loleta/M/LLT +Lolita/M/LLT +loll/RDGS/LL +loller/M/LL +lollipop/MS/LLPP +Lolly/M/LL +lolly/SM/LL +Lomb/M/LM +Lombard/M/LMBT +Lombardi/M/LMBT +Lombardy/M/LMBT +Lome//LM +Lon/M/LN +Lona/M/LN +London/RMZ/LNTN +Londonderry/M/LNTNTR +Londoner/M/LNTN +lone/PYZR/LN +Lonee/M/LN +loneliness/SM/LNLNS +lonely/TRP/LNL +loneness/M/LNNS +loner/M/LN +lonesome/PSY/LNSM +lonesomeness/MS/LNSMNS +long/JGTYRDPS/LNK +Long/M/LNK +longboat/MS/LNKBT +longbow/SM/LNKB +longed/K/LNKT +longeing//LNKN +longer/K/LNK +longevity/MS/LNKFT +Longfellow/M/LNKFL +longhair/SM/LNK +longhand/SM/LNKNT +longhorn/SM/LNKN +longing/MY/LNKN +longish//LNKX +longitude/MS/LNKTT +longitudinal/Y/LNKTTNL +longness/M/LNKNS +longs/K/LNKS +longshoreman/M/LNKXRMN +longshoremen//LNKXRMN +longsighted//LNKSTT +longstanding//LNKSTNTN +Longstreet/M/LNKSTRT +longsword//LNKSWT +longterm//LNKTM +longtime//LNKTM +Longueuil/M/LNKL +longueur/SM/LNK +longways//LNKWS +longword/SM/LNKWT +Loni/M/LN +Lonna/M/LN +Lonnard/M/LNT +Lonni/M/LN +Lonnie/M/LN +Lonny/M/LN +loofah/M/LF +loofahs//LFS +look/GZRDS/LK +lookahead//LKHT +lookalike/S/LKLK +looker/M/LK +lookout/MS/LKT +lookup/SM/LKP +loom/MDGS/LM +looming/M/LMN +Loomis/M/LMS +loon/MS/LN +loony/SRT/LN +loop/MRDGS/LP +looper/M/LP +loophole/MGSD/LFL +loopy/TR/LP +loose/SRDPGTY/LS +loosed/U/LST +looseleaf//LSLF +loosen/UDGS/LSN +loosener/M/LSN +looseness/MS/LSNS +looses/U/LSS +loosing/M/LSN +loot/MRDGZS/LT +looter/M/LT +lop/SDRG/LP +lope/S/LP +loper/M/LP +Lopez/M/LPS +lopped//LPT +lopper/MS/LP +lopping//LPN +lopsided/YP/LPSTT +lopsidedness/SM/LPSTTNS +loquacious/YP/LKSS +loquaciousness/MS/LKSSNS +loquacity/SM/LKST +Lora/M/LR +Lorain/M/LRN +Loraine/M/LRN +Loralee/M/LRL +Loralie/M/LRL +Loralyn/M/LRLN +Lorant/M/LRNT +Lord/MS/LT +lord/MYDGS/LT +lording/M/LTN +lordliness/SM/LTLNS +lordly/PTR/LTL +lordship/SM/LTXP +Lordship/SM/LTXP +lore/MS/LR +Loree/M/LR +Loreen/M/LRN +Lorelei/M/LRL +Lorelle/M/LRL +Loren/SM/LRN +Lorena/M/LRN +Lorene/M/LRN +Lorentz/M/LRNTS +Lorentzian/M/LRNTSN +Lorenz/M/LRNS +Lorenza/M/LRNS +Lorenzo/M/LRNS +Loretta/M/LRT +Lorette/M/LRT +lorgnette/SM/LKNT +Lori/M/LR +Loria/M/LR +Lorianna/M/LRN +Lorianne/M/LRN +Lorie/M/LR +Lorilee/M/LRL +Lorilyn/M/LRLN +Lorin/M/LRN +Lorinda/M/LRNT +Lorine/M/LRN +loris/SM/LRS +Lorita/M/LRT +lorn//LN +Lorna/M/LN +Lorne/M/LN +Lorraine/M/LRN +Lorrayne/M/LRN +Lorre/M/LR +Lorri/M/LR +Lorrie/M/LR +Lorrin/M/LRN +Lorry/M/LR +lorry/SM/LR +lorryload/S/LRLT +Lory/M/LR +Los//LS +lose/ZGJBSR/LS +loser/M/LS +loss/SM/LS +lossage//LSK +lossless//LSLS +lossy/RT/LS +lost/P/LST +Lot/M/LT +lot/MS/LT +Lothaire/M/L@R +Lothario/MS/L@R +lotion/MS/LXN +Lott/M/LT +Lotta/M/LT +Lotte/M/LT +lotted//LTT +lotter//LT +lottery/MS/LTR +Lotti/M/LT +Lottie/M/LT +lotting//LTN +lotto/MS/LT +Lotty/M/LT +lotus/SM/LTS +Lou/M/L +loud/YRNPT/LT +louden/DG/LTN +loudhailer/S/LTHL +loudly/RT/LTL +loudmouth/DM/LTM@ +loudmouths//LTM@S +loudness/MS/LTNS +loudspeaker/SM/LTSPK +loudspeaking//LTSPKN +Louella/M/LL +Louie/M/L +Louis/M/LS +Louisa/M/LS +Louise/M/LS +Louisette/M/LST +Louisiana/M/LXN +Louisianan/S/LXNN +Louisianian/S/LXNN +Louisville/M/LSFL +lounge/SRDZG/LNK +lounger/M/LNK +lour/GSD/L +Lourdes/M/LTS +louse/CSDG/LS +louse's//LSS +lousewort/M/LSWT +lousily//LSL +lousiness/MS/LSNS +lousy/PRT/LS +lout/SGMD/LT +loutish/YP/LTX +loutishness/M/LTXNS +Loutitia/M/LTX +louver/DMS/LF +L'Ouverture//LFTR +Louvre/M/LFR +lovable/U/LFBL +lovableness/MS/LFBLNS +lovably//LFBL +love/DSRMYZGJB/LF +Love/M/LF +lovebird/SM/LFBT +lovechild//LFXLT +Lovecraft/M/LFKRFT +loved/U/LFT +Lovejoy/M/LFK +Lovelace/M/LFLS +Loveland/M/LFLNT +loveless/YP/LFLS +lovelessness/M/LFLSNS +lovelies//LFLS +loveliness/UM/LFLNS +lovelinesses//LFLNSS +Lovell/M/LFL +lovelorn/P/LFLN +lovelornness/M/LFLNS +lovely/URPT/LFL +lovemaking/SM/LFMKN +lover/YMG/LF +lovesick//LFSK +lovestruck//LFSTRK +loving/U/LFN +lovingly//LFNL +lovingness/M/LFNNS +low/PDRYSZTG/L +lowborn//LBN +lowboy/SM/LB +lowbrow/MS/LBR +lowdown/S/LTN +Lowe/M/LW +Lowell/M/LWL +lower/DG/LW +lowercase/GSD/LWKS +lowermost//LWMST +Lowery/M/LWR +lowish//LWX +lowland/RMZS/LLNT +Lowlands/M/LLNTS +lowlife/SM/LLF +lowlight/MS/LLT +lowliness/MS/LLNS +lowly/PTR/LL +lowness/MS/LNS +Lowrance/M/LRNS +lox/MDSG/LKS +Loy/M/L +loyal/EY/LYL +loyaler//LYL +loyalest//LYLST +loyalism/SM/LYLSM +loyalist/SM/LYLST +loyalty/EMS/LYLT +Loyang/M/LYNK +Loyd/M/LT +Loydie/M/LT +Loyola/M/LYL +lozenge/SDM/LSNK +LP//LP +LPG//LPK +LPN/S/LPN +Lr//LR +ls//LS +l's//LS +L's//LS +LSD//LST +Lt/M/LT +ltd//LTT +Ltd/M/LTT +Lu/M/L +Luanda/M/LNT +Luann/M/LN +luau/MS/L +lubber/YMS/LB +Lubbock/M/LBK +lube/DSMG/LB +lubricant/SM/LBRKNT +lubricate/VNGSDX/LBRKT +lubrication/M/LBRKXN +lubricator/MS/LBRKT +lubricious/Y/LBRSS +lubricity/SM/LBRST +Lubumbashi/M/LBMBX +Luca/MS/LK +Lucais/M/LKS +Luce/M/LS +lucent/Y/LSNT +Lucerne/M/LSN +Lucho/M/LX +Luci/MN/LS +Lucia/MS/LX +Lucian/M/LXN +Luciana/M/LXN +Luciano/M/LXN +lucid/YP/LST +lucidity/MS/LSTT +lucidness/MS/LSTNS +Lucie/M/LS +Lucien/M/LSN +Lucienne/M/LSN +Lucifer/M/LSF +Lucila/M/LSL +Lucile/M/LSL +Lucilia/M/LSL +Lucille/M/LSL +Lucina/M/LSN +Lucinda/M/LSNT +Lucine/M/LSN +Lucio/M/LS +Lucita/M/LST +Lucite/MS/LST +Lucius/M/LSS +luck/GSDM/LK +luckier/U/LK +luckily/U/LKL +luckiness/UMS/LKNS +luckless//LKLS +Lucknow/M/LKN +Lucky/M/LK +lucky/RSPT/LK +lucrative/YP/LKRTF +lucrativeness/SM/LKRTFNS +lucre/MS/LKR +Lucretia/M/LKRX +Lucretius/M/LKRTS +lucubrate/GNSDX/LKBRT +lucubration/M/LKBRXN +Lucy/M/LS +Luddite/SM/LTT +Ludhiana/M/LTHN +ludicrous/PY/LTKRS +ludicrousness/SM/LTKRSNS +Ludlow/M/LTL +Ludmilla/M/LTML +ludo/M/LT +Ludovico/M/LTFK +Ludovika/M/LTFK +Ludvig/M/LTFK +Ludwig/M/LTWK +Luella/M/LL +Luelle/M/LL +luff/GSDM/LF +Lufthansa/M/LF@NS +Luftwaffe/M/LFTWF +lug/RS/LK +luge/MC/LK +Luger/M/LK +luggage/SM/LKK +lugged//LKT +lugger/SM/LK +lugging//LKN +Lugosi/M/LKS +lugsail/SM/LKSL +lugubrious/YP/LKBRS +lugubriousness/MS/LKBRSNS +Luigi/M/LK +Luis/M/LS +Luisa/M/LS +Luise/M/LS +Lukas/M/LKS +Luke/M/LK +lukewarm/PY/LKWM +lukewarmness/SM/LKWMNS +Lula/M/LL +Lulita/M/LLT +lull/SDG/LL +lullaby/GMSD/LLB +lulu/M/LL +Lulu/M/LL +lumbago/SM/LMBK +lumbar/S/LMB +lumber/RDMGZSJ/LMB +lumberer/M/LMBR +lumbering/M/LMBRN +lumberjack/MS/LMBKK +lumberman/M/LMBMN +lumbermen//LMBMN +lumberyard/MS/LMBRYT +lumen/M/LMN +Lumière/M/LMR +luminance/M/LMNNS +luminary/MS/LMNR +luminescence/SM/LMNSNS +luminescent//LMNSNT +luminosity/MS/LMNST +luminous/YP/LMNS +luminousness/M/LMNSNS +lummox/MS/LMKS +lump/SGMRDN/LMP +lumper/M/LMP +lumpiness/MS/LMPNS +lumpish/YP/LMPX +lumpishness/M/LMPXNS +lumpy/TPR/LMP +Luna/M/LN +lunacy/MS/LNS +lunar/S/LN +lunary//LNR +lunate/YND/LNT +lunatic/S/LNTK +lunation/M/LNXN +lunch/GMRSD/LNX +luncheon/SMDG/LNXN +luncheonette/SM/LNXNT +luncher/M/LNX +lunchpack//LNXPK +lunchroom/MS/LNXRM +lunchtime/MS/LNXTM +Lund/M/LNT +Lundberg/M/LNTBK +Lundquist/M/LNTKST +lune/M/LN +lung/SGRDM/LNK +lunge/MS/LNK +lunger/M/LNK +lungfish/SM/LNKFX +lungful//LNKFL +lunkhead/SM/LNKHT +Lupe/M/LP +lupine/SM/LPN +Lupus/M/LPS +lupus/SM/LPS +Lura/M/LR +lurch/RSDG/LX +lurcher/M/LX +lure/DSRG/LR +lurer/M/LR +Lurette/M/LRT +lurex//LRKS +Luria/M/LR +lurid/YP/LRT +luridness/SM/LRTNS +lurk/GZSRD/LK +lurker/M/LK +Lurleen/M/LLN +Lurlene/M/LLN +Lurline/M/LLN +Lusa/M/LS +Lusaka/M/LSK +luscious/PY/LSS +lusciousness/MS/LSSNS +lush/YSRDGTP/LX +lushness/MS/LXNS +Lusitania/M/LSTN +lust/MRDGZS/LST +luster/GDM/LST +lustering/M/LSTRN +lusterless//LSTLS +lustful/PY/LSTFL +lustfulness/M/LSTFLNS +lustily//LSTL +lustiness/MS/LSTNS +lustrous/PY/LSTRS +lustrousness/M/LSTRSNS +lusty/PRT/LST +lutanist/MS/LTNST +lute/DSMG/LT +lutenist/MS/LTNST +Lutero/M/LTR +lutetium/MS/LTTM +Luther/M/L@ +Lutheran/SM/L@RN +Lutheranism/MS/L@RNSM +luting/M/LTN +Lutz//LTS +luxe/MS/LKS +Luxembourg/RMZ/LKSMBK +Luxembourgian//LKSMBKN +Luxemburg's//LKSMBKS +luxuriance/MS/LKSRNS +luxuriant/Y/LKSRNT +luxuriate/GNSDX/LKSRT +luxuriation/M/LKSRXN +luxurious/PY/LKSRS +luxuriousness/SM/LKSRSNS +luxury/MS/LKSR +Luz/M/LS +Luzon/M/LSN +L'vov//LFF +Ly/MY/L +Lyallpur/M/LYLP +lyceum/MS/LSM +lychee's//LXS +lycopodium/M/LKPTM +Lycra/S/LKR +Lycurgus/M/LKKS +Lyda/M/LT +Lydia/M/LT +Lydian/S/LTN +Lydie/M/LT +Lydon/M/LTN +lye/JSMG/LY +Lyell/M/LYL +lying/Y/LYN +Lyle/M/LL +Lyly/M/LL +Lyman/M/LMN +Lyme/M/LM +lymph/M/LMF +lymphatic/S/LMFTK +lymphocyte/SM/LMFST +lymphoid//LMFT +lymphoma/MS/LMFM +lymphs//LMFS +Lyn/M/LN +Lynch/M/LNX +lynch/ZGRSDJ/LNX +Lynchburg/M/LNXBK +lyncher/M/LNX +lynching/M/LNXN +Lynda/M/LNT +Lynde/M/LNT +Lyndel/M/LNTL +Lyndell/M/LNTL +Lyndon/M/LNTN +Lyndsay/M/LNTS +Lyndsey/M/LNTS +Lyndsie/M/LNTS +Lyndy/M/LNT +Lynea/M/LN +Lynelle/M/LNL +Lynett/M/LNT +Lynette/M/LNT +Lynn/M/LN +Lynna/M/LN +Lynne/M/LN +Lynnea/M/LN +Lynnell/M/LNL +Lynnelle/M/LNL +Lynnet/M/LNT +Lynnett/M/LNT +Lynnette/M/LNT +Lynsey/M/LNS +lynx/MS/LNKS +Lyon/SM/LYN +Lyra/M/LR +lyre/SM/LR +lyrebird/MS/LRBT +lyric/S/LRK +lyrical/YP/LRKL +lyricalness/M/LRKLNS +lyricism/SM/LRSSM +lyricist/SM/LRSST +Lysenko/M/LSNK +lysine/M/LSN +Lysistrata/M/LSSTRT +Lysol/M/LSL +Lyssa/M/LS +LyX/M/LKS +m/ASK/M +M/GB/M +MA//M +ma/MH/M +Maalox/M/MLKS +ma'am//MM +Mab/M/MB +Mabel/M/MBL +Mabelle/M/MBL +Mable/M/MBL +Mac/SGMD/MK +mac/SGMDR/MK +macabre/Y/MKBR +macadam/SM/MKTM +macadamize/SDG/MKTMS +Macao/M/MK +macaque/SM/MKK +macaroni/SM/MKRN +macaroon/MS/MKRN +Macarthur/M/MK@ +MacArthur/M/MK@ +Macaulay/M/MKL +macaw/SM/MK +Macbeth/M/MKB@ +Maccabees/M/MKBS +Maccabeus/M/MKBS +Macdonald/M/MKTNLT +MacDonald/M/MKTNLT +MacDraw/M/MKTR +mace/MS/MS +Mace/MS/MS +Macedon/M/MSTN +Macedonia/M/MSTN +Macedonian/S/MSTNN +macer/M/MS +macerate/DSXNG/MSRT +maceration/M/MSRXN +Macgregor/M/MKKRK +MacGregor/M/MKKRK +Mach/M/MX +machete/SM/MXT +Machiavelli/M/MXFL +Machiavellian/S/MXFLN +machinate/SDXNG/MXNT +machination/M/MXNXN +machine/MGSDB/MXN +machinelike//MXNLK +machinery/SM/MXNR +machinist/MS/MXNST +machismo/SM/MXSM +macho/S/MX +Machs//MXS +Macias/M/MXS +Macintosh/M/MSNTX +MacIntosh/M/MSNTX +macintosh's//MSNTXS +mack/M/MK +Mack/M/MK +Mackenzie/M/MKNS +MacKenzie/M/MKNS +mackerel/SM/MKRL +Mackinac/M/MKNK +Mackinaw//MKN +mackinaw/SM/MKN +mackintosh/SM/MKNTX +MacLeish/M/MKLX +Macmillan/M/MKMLN +MacMillan/M/MKMLN +Macon/SM/MKN +MacPaint/M/MKPNT +macramé/S/MKRM +macro/SM/MKR +macrobiotic/S/MKRBTK +macrobiotics/M/MKRBTKS +macrocosm/MS/MKRKSM +macrodynamic//MKRTNMK +macroeconomic/S/MKRKNMK +macroeconomics/M/MKRKNMKS +macromolecular//MKRMLKL +macromolecule/SM/MKRMLKL +macron/MS/MKRN +macrophage/SM/MKRFK +macroscopic//MKRSKPK +macroscopically//MKRSKPKL +macrosimulation//MKRSMLXN +macrosocioeconomic//MKRSSKNMK +Macy/M/MS +mad/PSY/MT +Mada/M/MT +Madagascan/SM/MTKSKN +Madagascar/M/MTKSK +Madalena/M/MTLN +Madalyn/M/MTLN +madam/SM/MTM +madame/M/MTM +Madame/MS/MTM +madcap/S/MTKP +Maddalena/M/MTLN +madded//MTT +madden/GSD/MTN +Madden/M/MTN +maddening/Y/MTNN +madder/MS/MT +maddest//MTST +Maddi/M/MT +Maddie/M/MT +madding//MTN +Maddox/M/MTKS +Maddy/M/MT +made/AU/MT +Madeira/SM/MTR +Madel/M/MTL +Madelaine/M/MTLN +Madeleine/M/MTLN +Madelena/M/MTLN +Madelene/M/MTLN +Madelin/M/MTLN +Madelina/M/MTLN +Madeline/M/MTLN +Madella/M/MTL +Madelle/M/MTL +Madelon/M/MTLN +Madelyn/M/MTLN +mademoiselle/MS/MTMSL +Madge/M/MK +madhouse/SM/MTHS +Madhya/M/MTHY +Madison/M/MTSN +Madlen/M/MTLN +Madlin/M/MTLN +madman/M/MTMN +madmen//MTMN +madness/SM/MTNS +Madonna/MS/MTN +Madras//MTRS +madras/SM/MTRS +Madrid/M/MTRT +madrigal/MSG/MTRKL +Madsen/M/MTSN +Madurai/M/MTR +madwoman/M/MTWMN +madwomen//MTWMN +Mady/M/MT +Mae/M/M +Maegan/M/MKN +Maelstrom/M/MLSTRM +maelstrom/SM/MLSTRM +maestro/MS/MSTR +Maeterlinck/M/MTLNK +Mafia/MS/MF +mafia/S/MF +mafiosi//MFS +mafioso/M/MFS +Mafioso/S/MFS +MAG//MK +Mag/M/MK +mag/S/MK +magazine/DSMG/MKSN +Magda/M/MKT +Magdaia/M/MKT +Magdalen/M/MKTLN +Magdalena/M/MKTLN +Magdalene/M/MKTLN +Magellan/M/MKLN +Magellanic//MKLNK +magenta/MS/MKNT +magged//MKT +Maggee/M/MK +Maggi/M/MK +Maggie/M/MK +magging//MKN +maggot/MS/MKT +maggoty/RT/MKT +Maggy/M/MK +magi//MK +Magi/M/MK +magic/SM/MKK +magical/Y/MKKL +magician/MS/MKXN +magicked//MKKT +magicking//MKKN +Magill/M/MKL +Maginot/M/MKNT +magisterial/Y/MKSTRL +magistracy/MS/MKSTRS +magistrate/MS/MKSTRT +magma/SM/MKM +magnanimity/SM/MKNNMT +magnanimosity//MKNNMST +magnanimous/PY/MKNNMS +magnate/SM/MKNT +magnesia/MS/MKNX +magnesite/M/MKNST +magnesium/SM/MKNSM +magnet/SM/MKNT +magnetic/S/MKNTK +magnetically//MKNTKL +magnetics/M/MKNTKS +magnetism/SM/MKNTSM +magnetite/SM/MKNTT +magnetizable//MKNTSBL +magnetization/ASCM/MKNTSXN +magnetize/CGDS/MKNTS +magnetized/U/MKNTST +magneto/MS/MKNT +magnetodynamics//MKNTTNMKS +magnetohydrodynamical//MKNTHTRTNMKL +magnetohydrodynamics/M/MKNTHTRTNMKS +magnetometer/MS/MKNTMT +magnetosphere/M/MKNTSFR +magnetron/M/MKNTRN +magnification/M/MKNFKXN +magnificence/SM/MKNFSNS +magnificent/Y/MKNFSNT +magnified/U/MKNFT +magnify/DRSGNXZ/MKNF +magniloquence/MS/MKNLKNS +magniloquent//MKNLKNT +Magnitogorsk/M/MKNTKSK +magnitude/SM/MKNTT +magnolia/SM/MKNL +Magnum//MKNM +magnum/SM/MKNM +Magnuson/M/MKNSN +Magog/M/MKK +Magoo/M/MK +magpie/SM/MKP +Magritte/M/MKRT +Magruder/M/MKRT +Magsaysay/M/MKSS +Maguire/SM/MKR +Magus/M/MKS +Magyar/MS/MKY +Mahabharata//MHBHRT +Mahala/M/MHL +Mahalia/M/MHL +maharajah/M/MHRK +maharajahs//MHRKS +maharanee's//MHRNS +maharani/MS/MHRN +Maharashtra/M/MHRXTR +maharishi/SM/MHRX +mahatma/SM/MHTM +Mahavira/M/MHFR +Mahayana/M/MHYN +Mahayanist//MHYNST +Mahdi/M/MT +Mahfouz/M/MFS +Mahican/SM/MHKN +mahjong's//MKNKS +Mahler/M/ML +Mahmoud/M/MMT +Mahmud/M/MMT +mahogany/MS/MHKN +Mahomet's//MHMTS +mahout/SM/MHT +Mai/MR/M +Maia/M/M +Maible/M/MBL +maid/SMNX/MT +maiden/YM/MTN +maidenhair/MS/MTNH +maidenhead/SM/MTNHT +maidenhood/SM/MTNHT +maidenly/P/MTNL +maidservant/MS/MTSFNT +maier//M +Maier/M/M +Maiga/M/MK +Maighdiln/M/MTLN +Maigret/M/MKRT +mail/BSJGZMRD/ML +mailbag/MS/MLBK +mailbox/MS/MLBKS +mailer/M/ML +Mailer/M/ML +Maillol/M/MLL +maillot/SM/MLT +mailman/M/MLMN +mailmen//MLMN +maim/SGZRD/MM +Maiman/M/MMN +maimed/P/MMT +maimedness/M/MMTNS +maimer/M/MM +Maimonides/M/MMNTS +main/SA/MN +mainbrace/M/MNBRS +Maine/MZR/MN +Mainer/M/MN +mainframe/MS/MNFRM +mainland/SRMZ/MNLNT +mainlander/M/MNLNT +mainline/RSDZG/MNLN +mainliner/M/MNLN +mainly//MNL +mainmast/SM/MNMST +mains/M/MNS +mainsail/SM/MNSL +mainspring/SM/MNSPRN +mainstay/MS/MNST +mainstream/DRMSG/MNSTRM +maintain/BRDZGS/MNTN +maintainability//MNTNBLT +maintainable/U/MNTNBL +maintained/U/MNTNT +maintainer/M/MNTN +maintenance/SM/MNTNNS +maintop/SM/MNTP +maiolica's//MLKS +Mair/M/M +Maire/M/MR +Maisey/M/MS +Maisie/M/MS +Maison/M/MSN +maisonette/MS/MSNT +Maitilde/M/MTLT +maize/MS/MS +Maj//MK +Maje/M/MK +majestic//MKSTK +majestically//MKSTKL +majesty/MS/MKST +Majesty/MS/MKST +majolica/SM/MKLK +major/DMGS/MK +Major/M/MK +Majorca/M/MKK +majordomo/S/MKTM +majorette/SM/MKRT +majority/SM/MKRT +Majuro/M/MKR +makable//MKBL +Makarios/M/MKRS +make/UGSA/MK +makefile/S/MKFL +makeover/S/MKF +Maker/M/MK +maker/SM/MK +makeshift/S/MKXFT +makeup/MS/MKP +making/SM/MKN +Mal/M/ML +Mala/M/ML +Malabar/M/MLB +Malabo/M/MLB +Malacca/M/MLK +Malachi/M/MLX +malachite/SM/MLXT +maladapt/DV/MLTPT +maladjust/DLV/MLTKST +maladjustment/MS/MLTKSTMNT +maladministration//MLTMNSTRXN +maladroit/YP/MLTRT +maladroitness/MS/MLTRTNS +malady/MS/MLT +Malagasy/M/MLKS +malaise/SM/MLS +Malamud/M/MLMT +malamute/SM/MLMT +Malanie/M/MLN +malaprop//MLPRP +Malaprop/M/MLPRP +malapropism/SM/MLPRPSM +malaria/MS/MLR +malarial//MLRL +malarious//MLRS +malarkey/SM/MLK +malathion/S/ML@N +Malawi/M/MLW +Malawian/S/MLWN +Malay/SM/ML +Malaya/M/MLY +Malayalam/M/MLYLM +Malayan/MS/MLYN +Malaysia/M/MLX +Malaysian/S/MLXN +Malchy/M/MLX +Malcolm/M/MLKLM +malcontent/SMD/MLKNTNT +malcontented/PY/MLKNTNTT +malcontentedness/M/MLKNTNTTNS +Maldive/SM/MLTF +Maldivian/S/MLTFN +Maldonado/M/MLTNT +Male/M/ML +male/PSM/ML +maledict//MLTKT +malediction/MS/MLTKXN +malefaction/MS/MLFKXN +malefactor/MS/MLFKT +malefic//MLFK +maleficence/MS/MLFSNS +maleficent//MLFSNT +Malena/M/MLN +maleness/MS/MLNS +malevolence/S/MLFLNS +malevolencies//MLFLNSS +malevolent/Y/MLFLNT +malfeasance/SM/MLFSNS +malfeasant//MLFSNT +malformation/MS/MLFMXN +malformed//MLFMT +malfunction/SDG/MLFNKXN +Mali/M/ML +Malia/M/ML +Malian/S/MLN +Malibu/M/MLB +malice/MGSD/MLS +malicious/YU/MLSS +maliciousness/MS/MLSSNS +malign/GSRDYZ/MLN +malignancy/SM/MLKNNS +malignant/YS/MLKNNT +malignity/MS/MLKNT +Malina/M/MLN +Malinda/M/MLNT +Malinde/M/MLNT +malinger/GZRDS/MLN +malingerer/M/MLNR +Malinowski/M/MLNSK +Malissa/M/MLS +Malissia/M/MLX +mall/SGMD/ML +mallard/SM/MLT +Mallarmé/M/MLM +malleability/SM/MLBLT +malleable/P/MLBL +malleableness/M/MLBLNS +mallet/MS/MLT +Mallissa/M/MLS +Mallorie/M/MLR +Mallory/M/MLR +mallow/MS/ML +malnourished//MLNRXT +malnutrition/SM/MLNTRXN +malocclusion/MS/MLKLXN +malodorous//MLTRS +Malone/M/MLN +Malorie/M/MLR +Malory/M/MLR +malposed//MLPST +malpractice/SM/MLPRKTS +Malraux/M/MLRKS +malt/SGMD/MLT +Malta/M/MLT +malted/S/MLTT +Maltese//MLTS +Malthus/M/ML@S +Malthusian/S/ML@XN +malting/M/MLTN +maltose/SM/MLTS +maltreat/GDSL/MLTRT +maltreatment/S/MLTRTMNT +malty/RT/MLT +Malva/M/MLF +Malvin/M/MLFN +Malvina/M/MLFN +Malynda/M/MLNT +mama/SM/MM +mamba/SM/MMB +mambo/GSDM/MMB +Mame/M/MM +Mamet/M/MMT +Mamie/M/MM +mammal/SM/MML +mammalian/SM/MMLN +mammary//MMR +mamma's//MMS +mammogram/S/MMKRM +mammography/S/MMKRF +mammon/SM/MMN +Mammon's//MMNS +mammoth/M/MM@ +mammoths//MM@S +mammy/SM/MM +Mamore/M/MMR +Man/SM/MN +man/USY/MN +manacle/SDMG/MNKL +manage/ZLGRSD/MNK +manageability/S/MNKBLT +manageable/U/MNKBL +manageableness//MNKBLNS +managed/U/MNKT +management/SM/MNKMNT +manager/M/MNK +manageress/M/MNKRS +managerial/Y/MNKRL +managership/M/MNKXP +Managua/M/MNK +Manama/M/MNM +mañana/M/MN +mananas//MNNS +Manasseh/M/MNS +manatee/SM/MNT +Manaus's//MNSS +Manchester/M/MNXST +Manchu/MS/MNX +Manchuria/M/MNXR +Manchurian/S/MNXRN +Mancini/M/MNSN +manciple/M/MNSPL +Mancunian/MS/MNKNN +Manda/M/MNT +mandala/SM/MNTL +Mandalay/M/MNTL +mandamus/GMSD/MNTMS +Mandarin//MNTRN +mandarin/MS/MNTRN +mandate/SDMG/MNTT +mandatory/S/MNTTR +Mandel/M/MNTL +Mandela//MNTL +Mandelbrot/M/MNTLBRT +Mandi/M/MNT +mandible/MS/MNTBL +mandibular//MNTBL +Mandie/M/MNT +Mandingo/M/MNTN +mandolin/MS/MNTLN +mandrake/MS/MNTRK +mandrel/SM/MNTRL +mandrill/SM/MNTRL +Mandy/M/MNT +mane/MDS/MN +manège/GSD/MNK +Manet/M/MNT +maneuver/MRDSGB/MNF +maneuverability/MS/MNFRBLT +maneuverer/M/MNFR +Manfred/M/MNFRT +manful/Y/MNFL +manganese/MS/MNKNS +mange/GMSRDZ/MNK +manger/M/MNK +manginess/S/MNKNS +mangle/RSDG/MNKL +mangler/M/MNKL +mango/M/MNK +mangoes//MNKS +mangrove/MS/MNKRF +mangy/PRT/MNK +manhandle/GSD/MNHNTL +Manhattan/SM/MNHTN +manhole/MS/MNHL +manhood/MS/MNHT +manhunt/SM/MNHNT +Mani/M/MN +mania/SM/MN +maniac/SM/MNK +maniacal/Y/MNKL +manic/S/MNK +manically//MNKL +Manichean/M/MNXN +manicure/MGSD/MNKR +manicurist/SM/MNKRST +manifest/YDPGS/MNFST +manifestation/SM/MNFSTXN +manifesto/GSDM/MNFST +manifold/GPYRDMS/MNFLT +manifolder/M/MNFLT +manifoldness/M/MNFLTNS +manikin/MS/MNKN +Manila/MS/MNL +manila/S/MNL +manilla's//MNLS +manioc/SM/MNK +manipulability//MNPLBLT +manipulable//MNPLBL +manipulate/SDXBVGN/MNPLT +manipulative/PM/MNPLTF +manipulator/MS/MNPLT +manipulatory//MNPLTR +Manitoba/M/MNTB +Manitoulin/M/MNTLN +Manitowoc/M/MNTWK +mankind/M/MNKNT +Mankowski/M/MNKSK +Manley/M/MNL +manlike//MNLK +manliness/SM/MNLNS +manliness's/U/MNLNSS +manly/URPT/MNL +Mann/GM/MN +manna/MS/MN +manned/U/MNT +mannequin/MS/MNKN +manner/SDYM/MN +mannered/U/MNRT +mannerism/SM/MNRSM +mannerist/M/MNRST +mannerliness/MU/MNLNS +mannerly/UP/MNL +Mannheim/M/MNHM +Mannie/M/MN +mannikin's//MNKNS +Manning/M/MNN +manning/U/MNN +mannish/YP/MNX +mannishness/SM/MNXNS +Manny/M/MN +Mano/M/MN +Manolo/M/MNL +manometer/SM/MNMT +Manon/M/MNN +manor/MS/MN +manorial//MNRL +manpower/SM/MNPW +manqué/M/MNK +man's//MNS +mans/S/MNS +mansard/SM/MNST +manse/XNM/MNS +manservant/M/MNSFNT +Mansfield/M/MNSFLT +mansion/M/MNXN +manslaughter/SM/MNSLT +Manson/M/MNSN +manta/MS/MNT +Mantegna/M/MNTKN +mantel/SM/MNTL +mantelpiece/MS/MNTLPS +mantes//MNTS +mantilla/MS/MNTL +mantis/SM/MNTS +mantissa/SM/MNTS +mantle/ESDG/MNTL +Mantle/M/MNTL +mantle's//MNTLS +mantling/M/MNTLN +mantra/MS/MNTR +mantrap/SM/MNTRP +manual/SMY/MNL +Manuel/M/MNL +Manuela/M/MNL +manufacture/JZGDSR/MNFKTR +manufacturer/M/MNFKTR +manumission/MS/MNMXN +manumit/S/MNMT +manumitted//MNMTT +manumitting//MNMTN +manure/RSDMZG/MNR +manuscript/MS/MNSKRPT +Manville/M/MNFL +Manx//MNKS +many//MN +Manya/M/MNY +Mao/M/M +Maoism/MS/MSM +Maoist/S/MST +Maori/SM/MR +map/SM/MP +maple/MS/MPL +Maplecrest/M/MPLKRST +mapmaker/S/MPMK +mappable//MPBL +mapped/UA/MPT +mapper/S/MP +mapping/MS/MPN +Mapplethorpe/M/MPL@P +maps/AU/MPS +Maputo/M/MPT +mar/S/M +Mar/SMN/M +Mara/M/MR +Marabel/M/MRBL +marabou/MS/MRB +marabout's//MRBTS +maraca/MS/MRK +Maracaibo/M/MRKB +maraschino/SM/MRSXN +Marat/M/MRT +Marathi//MR@ +Marathon/M/MR@N +marathon/MRSZ/MR@N +marathoner/M/MR@N +maraud/ZGRDS/MRT +marauder/M/MRT +marble/JRSDMG/MBL +marbleize/GSD/MBLS +marbler/M/MBL +marbling/M/MBLN +Marc/M/MK +Marceau/M/MS +Marcel/M/MSL +Marcela/M/MSL +Marcelia/M/MSL +Marcelino/M/MSLN +Marcella/M/MSL +Marcelle/M/MSL +Marcellina/M/MSLN +Marcelline/M/MSLN +Marcello/M/MSL +Marcellus/M/MSLS +Marcelo/M/MSL +March/MS/MX +march/RSDZG/MX +Marchall/M/MXL +Marchelle/M/MXL +marcher/M/MX +marchioness/SM/MXNS +Marci/M/MS +Marcia/M/MX +Marciano/M/MXN +Marcie/M/MS +Marcile/M/MSL +Marcille/M/MSL +Marco/SM/MK +Marconi/M/MKN +Marcotte/M/MKT +Marcus/M/MKS +Marcy/M/MS +Mardi/SM/MT +Marduk/M/MTK +mare/MS/MR +Mareah/M/MR +Maren/M/MRN +Marena/M/MRN +Maressa/M/MRS +Marga/M/MK +Margalit/M/MKLT +Margalo/M/MKL +Margaret/M/MKRT +Margareta/M/MKRT +Margarete/M/MKRT +Margaretha/M/MKR@ +Margarethe/M/MKR@ +Margaretta/M/MKRT +Margarette/M/MKRT +margarine/MS/MKRN +Margarita/M/MKRT +margarita/SM/MKRT +Margarito/M/MKRT +Margaux/M/MKKS +Marge/M/MK +Margeaux/M/MKKS +Margery/M/MKR +Marget/M/MKT +Margette/M/MKT +Margi/M/MK +Margie/M/MK +margin/GSDM/MKN +marginal/YS/MKNL +marginalia//MKNL +marginality//MKNLT +marginalization//MKNLSXN +marginalize/SDG/MKNLS +Margit/M/MKT +Margo/M/MK +Margot/M/MKT +Margret/M/MKRT +Margrethe/M/MKR@ +Marguerite/M/MKRT +Margy/M/MK +Mari/MS/MR +maria/M/MR +Maria/M/MR +mariachi/SM/MRX +Mariam/M/MRM +Marian/MS/MRN +Mariana/SM/MRN +Mariann/M/MRN +Marianna/M/MRN +Marianne/M/MRN +Mariano/M/MRN +Maribel/M/MRBL +Maribelle/M/MRBL +Maribeth/M/MRB@ +Marice/M/MRS +Maricela/M/MRSL +Maridel/M/MRTL +Marie/M/MR +Marieann/M/MRN +Mariejeanne/M/MRKN +Mariel/M/MRL +Mariele/M/MRL +Marielle/M/MRL +Mariellen/M/MRLN +Marietta/M/MRT +Mariette/M/MRT +Marigold/M/MRKLT +marigold/MS/MRKLT +Marijn/M/MRKN +Marijo/M/MRK +marijuana/SM/MRKN +Marika/M/MRK +Marilee/M/MRL +Marilin/M/MRLN +Marillin/M/MRLN +Marilyn/M/MRLN +marimba/SM/MRMB +Marin/M/MRN +Marina/M/MRN +marina/MS/MRN +marinade/MGDS/MRNT +marinara/SM/MRNR +marinate/NGXDS/MRNT +marination/M/MRNXN +Marine/S/MRN +marine/ZRS/MRN +mariner/M/MRN +Marinna/M/MRN +Marino/M/MRN +Mario/M/MR +Marion/M/MRN +marionette/MS/MRNT +Mariquilla/M/MRKL +Marisa/M/MRS +Mariska/M/MRSK +Marisol/M/MRSL +Marissa/M/MRS +Marita/M/MRT +Maritain/M/MRTN +marital/Y/MRTL +maritime/R/MRTM +Maritsa/M/MRTS +Maritza/M/MRTS +Mariupol/M/MRPL +Marius/M/MRS +Mariya/M/MRY +Marj/M/MK +Marja/M/MK +Marje/M/MK +Marji/M/MK +Marjie/M/MK +marjoram/SM/MKRM +Marjorie/M/MKR +Marjory/M/MKR +Marjy/M/MK +mark/GZRDMBSJ/MK +Mark/MS/MK +Markab/M/MKB +markdown/SM/MKTN +marked/AU/MKT +markedly//MKTL +marker/M/MK +market/GSMRDJBZ/MKT +Marketa/M/MKT +marketability/SM/MKTBLT +marketable/U/MKTBL +marketeer/S/MKT +marketer/M/MKT +marketing/M/MKTN +marketplace/MS/MKTPLS +Markham/M/MKHM +marking/M/MKN +Markism/M/MKSM +markka/M/MK +markkaa//MK +Markos//MKS +Markov//MKF +Markovian//MKFN +Markovitz/M/MKFTS +marks/A/MKS +marksman/M/MKSMN +marksmanship/S/MKSMNXP +marksmen//MKSMN +markup/SM/MKP +Markus/M/MKS +marl/MDSG/ML +Marla/M/ML +Marlane/M/MLN +Marlboro/M/MLBR +Marlborough/M/MLBR +Marleah/M/ML +Marlee/M/ML +Marleen/M/MLN +Marlena/M/MLN +Marlene/M/MLN +Marley/M/ML +Marlie/M/ML +Marlin/M/MLN +marlin/SM/MLN +Marline/M/MLN +marlinespike/SM/MLNSPK +Marlo/M/ML +Marlon/M/MLN +Marlow/M/ML +Marlowe/M/MLW +Marlyn/M/MLN +Marmaduke/M/MMTK +marmalade/MS/MMLT +Marmara/M/MMR +marmoreal//MMRL +marmoset/MS/MMST +marmot/SM/MMT +Marna/M/MN +Marne/M/MN +Marney/M/MN +Marni/M/MN +Marnia/M/MN +Marnie/M/MN +maroon/GRDS/MRN +marque/SM/MK +marquee/MS/MK +Marquesas/M/MKSS +marquess/MS/MKS +marquetry/SM/MKTR +Marquette/M/MKT +Marquez/M/MKS +Marquis/M/MKS +marquis/SM/MKS +marquise/M/MKS +marquisette/MS/MKST +Marquita/M/MKT +Marrakesh/M/MRKX +marred/U/MRT +marriage/ASM/MRK +marriageability/SM/MRKBLT +marriageable//MRKBL +married/US/MRT +Marrilee/M/MRL +marring//MRN +Marriott/M/MRT +Marris/M/MRS +Marrissa/M/MRS +marrow/GDMS/MR +marrowbone/MS/MRBN +marry/SDGA/MR +Marseillaise/SM/MSLS +Marseilles//MSLS +Marseille's//MSLS +Marsh/M/MX +marsh/MS/MX +Marsha/M/MX +marshal/GMDRSZ/MXL +Marshal/M/MXL +Marshall/GDM/MXL +Marshalled/M/MXLT +marshaller//MXL +Marshalling/M/MXLN +marshallings//MXLNS +marshiness/M/MXNS +marshland/MS/MXLNT +marshmallow/SM/MXML +marshy/PRT/MX +Marsiella/M/MSL +marsupial/MS/MSPL +mart/MDNGXS/MT +Mart/MN/MT +Marta/M/MT +Martainn/M/MTN +Martel/M/MTL +Martelle/M/MTL +marten/M/MTN +Marten/M/MTN +Martguerita/M/MTKRT +Martha/M/M@ +Marthe/M/M@ +Marthena/M/M@N +Marti/M/MT +Martial//MXL +martial/Y/MXL +Martian/S/MXN +Martica/M/MTK +Martie/M/MT +Martin/M/MTN +martin/SM/MTN +Martina/M/MTN +martinet/SM/MTNT +Martinez/M/MTNS +martingale/MS/MTNL +martini/MS/MTN +Martinique/M/MTNK +Martino/M/MTN +Martinson/M/MTNSN +Martita/M/MTT +Marty/M/MT +Martyn/M/MTN +Martynne/M/MTN +martyr/GDMS/MTR +martyrdom/SM/MTRTM +Marv/NM/MF +Marva/M/MF +Marve/M/MF +marvel/DGS/MFL +Marvell/M/MFL +marvelous/PY/MFLS +Marven/M/MFN +Marvin/M/MFN +Marwin/M/MWN +Marx/M/MKS +Marxian/S/MKSN +Marxism/SM/MKSSM +Marxist/SM/MKSST +Mary/M/MR +Marya/M/MRY +Maryann/M/MRYN +Maryanna/M/MRYN +Maryanne/M/MRYN +Marybelle/M/MRBL +Marybeth/M/MRB@ +Maryellen/M/MRYLN +Maryjane/M/MRKN +Maryjo/M/MRK +Maryl/M/MRL +Maryland/MZR/MRLNT +Marylee/M/MRL +Marylin/M/MRLN +Marylinda/M/MRLNT +Marylou/M/MRL +Marylynne/M/MRLN +Maryrose/M/MRRS +Marys//MRS +Marysa/M/MRS +marzipan/SM/MSPN +mas/SRZ/MS +Masada/M/MST +Masai/M/MS +Masaryk/M/MSRK +masc//MSK +Mascagni/M/MSKKN +mascara/SGMD/MSKR +mascot/SM/MSKT +masculine/PYS/MSKLN +masculineness/M/MSKLNNS +masculinity/SM/MSKLNT +Masefield/M/MSFLT +maser/M/MS +Maseru/M/MSR +MASH//MX +mash/JGZMSRD/MX +Masha/M/MX +Mashhad/M/MXHT +mask/GZSRDMJ/MSK +masked/U/MSKT +masker/M/MSK +masks/U/MSKS +masochism/MS/MSXSM +masochist/MS/MSXST +masochistic//MSXSTK +masochistically//MSXSTKL +mason/SDMG/MSN +Mason/SM/MSN +masonic//MSNK +Masonic//MSNK +Masonite/M/MSNT +masonry/MS/MSNR +masque/RSMZ/MSK +masquer/M/MSK +masquerade/RSDGMZ/MSKRT +masquerader/M/MSKRT +Mass/S/MS +mass/VGSD/MS +Massachusetts/M/MSXSTS +massacre/DRSMG/MSKR +massage/SRDMG/MSK +massager/M/MSK +Massasoit/M/MSST +Massenet/M/MSNT +masseur/MS/MS +masseuse/SM/MSS +Massey/M/MS +massif/SM/MSF +Massimiliano/M/MSMLN +Massimo/M/MSM +massing/R/MSN +massive/YP/MSF +massiveness/SM/MSFNS +massless//MSLS +mast/GZSMRD/MST +mastectomy/MS/MSTKTM +master/JGDYM/MST +Master/SM/MST +masterclass//MSTKLS +mastered/A/MSTRT +masterful/YP/MSTFL +masterfulness/M/MSTFLNS +masterliness/M/MSTLNS +masterly/P/MSTL +mastermind/GDS/MSTMNT +masterpiece/MS/MSTPS +mastership/M/MSTXP +masterstroke/MS/MSTSTRK +masterwork/S/MSTWK +mastery/MS/MSTR +masthead/SDMG/MS@T +mastic/SM/MSTK +masticate/SDXGN/MSTKT +mastication/M/MSTKXN +mastiff/MS/MSTF +mastodon/MS/MSTTN +mastoid/S/MSTT +masturbate/SDNGX/MSTBT +masturbation/M/MSTBXN +masturbatory//MSTBTR +mat/SJGMDR/MT +Mata/M/MT +matador/SM/MTT +match/BMRSDZGJ/MX +matchable/U/MXBL +matchbook/SM/MXBK +matchbox/SM/MXBKS +matched/UA/MXT +matcher/M/MX +matches/A/MXS +matchless/Y/MXLS +matchlock/MS/MXLK +matchmake/GZJR/MXMK +matchmaker/M/MXMK +matchmaking/M/MXMKN +matchplay//MXPL +match's/A/MXS +matchstick/MS/MXSTK +matchwood/SM/MXWT +mate/IMS/MT +mated/U/MTT +Matelda/M/MTLT +Mateo/M/MT +mater/M/MT +material/SPYM/MTRL +materialism/SM/MTRLSM +materialist/SM/MTRLST +materialistic//MTRLSTK +materialistically//MTRLSTKL +materiality/M/MTRLT +materialization/SM/MTRLSXN +materialize/CDS/MTRLS +materialized/A/MTRLST +materializer/SM/MTRLS +materializes/A/MTRLSS +materializing//MTRLSN +materialness/M/MTRLNS +matériel/MS/MTRL +maternal/Y/MTNL +maternity/MS/MTNT +mates/U/MTS +math/M/M@ +Mathe/RM/M@ +mathematic/S/M@MTK +Mathematica/M/M@MTK +mathematical/Y/M@MTKL +mathematician/SM/M@MTXN +mathematics/M/M@MTKS +Mathematik/M/M@MTK +Mather/M/M@ +Mathew/MS/M@ +Mathewson/M/M@SN +Mathian/M/M@N +Mathias//M@S +Mathieu/M/M@ +Mathilda/M/M@LT +Mathilde/M/M@LT +Mathis//M@S +maths//M@S +Matias/M/MXS +Matilda/M/MTLT +Matilde/M/MTLT +matinée/S/MTN +mating/M/MTN +matins/M/MTNS +Matisse/SM/MTS +matriarch/M/MTRX +matriarchal//MTRXL +matriarchs//MTRXS +matriarchy/MS/MTRX +matrices//MTRSS +matricidal//MTRSTL +matricide/MS/MTRST +matriculate/XSDGN/MTRKLT +matriculation/M/MTRKLXN +matrimonial/Y/MTRMNL +matrimony/SM/MTRMN +matrix/M/MTRKS +matron/YMS/MTRN +Matsumoto/M/MTSMT +Matt/M/MT +matte/JGMZSRD/MT +Mattel/M/MTL +Matteo/M/MT +matter/GDM/MT +Matterhorn/M/MTHN +Matthaeus/M/M@S +Mattheus/M/M@S +Matthew/MS/M@ +Matthias//M@S +Matthieu/M/M@ +Matthiew/M/M@ +Matthus/M/M@S +Matti/M/MT +Mattias/M/MXS +Mattie/M/MT +matting/M/MTN +mattins's//MTNSS +mattock/MS/MTK +mattress/MS/MTRS +matt's//MTS +Matty/M/MT +maturate/DSNGVX/MTRT +maturation/M/MTRXN +maturational//MTRXNL +mature/RSDTPYG/MTR +matureness/M/MTRNS +maturer/M/MTR +maturity/MS/MTRT +matzo/SHM/MTS +matzot//MTST +Maud/M/MT +Maude/M/MT +Maudie/M/MT +maudlin/Y/MTLN +Maugham/M/MKM +Maui/M/M +maul/RDGZS/ML +mauler/M/ML +maunder/GDS/MNT +Maupassant/M/MPSNT +Maura/M/MR +Maure/M/MR +Maureen/M/MRN +Maureene/M/MRN +Maurene/M/MRN +Mauriac/M/MRK +Maurice/M/MRS +Mauricio/M/MRS +Maurie/M/MR +Maurine/M/MRN +Maurise/M/MRS +Maurita/M/MRT +Mauritania/M/MRTN +Mauritanian/S/MRTNN +Mauritian/S/MRXN +Mauritius/M/MRTS +Maurits/M/MRTS +Maurizia/M/MRS +Maurizio/M/MRS +Mauro/M/MR +Maurois/M/MRS +Maury/M/MR +Mauser/M/MS +mausoleum/SM/MSLM +mauve/SM/MF +maven/S/MFN +maverick/SMDG/MFRK +mavin's//MFNS +Mavis/M/MFS +Mavra/M/MFR +maw/SGMD/M +mawkish/PY/MKX +mawkishness/SM/MKXNS +Mawr/M/MR +max/GDS/MKS +Max/M/MKS +Maxi/M/MKS +maxi/S/MKS +Maxie/M/MKS +maxilla/M/MKSL +maxillae//MKSL +maxillary/S/MKSLR +Maxim/M/MKSM +maxim/SM/MKSM +maximal/SY/MKSML +maximality//MKSMLT +maxima's//MKSMS +Maximilian/M/MKSMLN +Maximilianus/M/MKSMLNS +Maximilien/M/MKSMLN +maximization/SM/MKSMSXN +maximize/RSDZG/MKSMS +maximizer/M/MKSMS +Maximo/M/MKSM +maximum/MYS/MKSMM +Maxine/M/MKSN +Maxtor/M/MKST +maxwell/M/MKSWL +Maxwell/M/MKSWL +Maxwellian//MKSWLN +Maxy/M/MKS +may/EGS/M +May/SMR/M +Maya/MS/MY +Mayan/S/MYN +maybe/S/MB +Maybelle/M/MBL +mayday/S/MT +Maye/M/MY +mayer//MY +Mayer/M/MY +mayest//MYST +Mayfair/M/MF +Mayflower/M/MFLW +mayflower/SM/MFLW +mayfly/MS/MFL +mayhap//MHP +mayhem/MS/MHM +Maynard/M/MNT +Mayne/M/MN +Maynord/M/MNT +mayn't//MNT +Mayo/M/MY +mayo/S/MY +mayonnaise/MS/MYNS +Mayor/M/MY +mayor/MS/MY +mayoral//MYRL +mayoralty/MS/MYRLT +mayoress/MS/MYRS +mayorship/M/MYXP +maypole/MS/MPL +Maypole/SM/MPL +Mayra/M/MR +mayst//MST +Mazama/M/MSM +Mazarin/M/MSRN +Mazatlan/M/MSTLN +Mazda/M/MST +maze/MGDSR/MS +mazed/YP/MST +mazedness/SM/MSTNS +mazurka/SM/MSK +Mazzini/M/MSN +Mb//M +MB//M +MBA//MB +Mbabane/M/MBBN +Mbini/M/MBN +MC//MK +McAdam/MS/MKTM +McAllister/M/MKLST +McBride/M/MKBRT +McCabe/M/MKB +McCain/M/MKN +McCall/M/MKL +McCarthy/M/MK@ +McCarthyism/M/MK@YSM +McCartney/M/MKTN +McCarty/M/MKT +McCauley/M/MKL +McClain/M/MKLN +McClellan/M/MKLLN +McClure/M/MKLR +McCluskey/M/MKLSK +McConnell/M/MKNL +McCormick/M/MKMK +McCoy/SM/MK +McCracken/M/MKRKN +McCray/M/MKR +McCullough/M/MKL +McDaniel/M/MKTNL +McDermott/M/MKTMT +McDonald/M/MKTNLT +McDonnell/M/MKTNL +McDougall/M/MKTKL +McDowell/M/MKTWL +McElhaney/M/MSLHN +McEnroe/M/MSNR +McFadden/M/MKFTN +McFarland/M/MKFLNT +McGee/M/MKK +McGill/M/MKKL +McGovern/M/MKKFN +McGowan/M/MKKWN +McGrath/M/MKKR@ +McGraw/M/MKKR +McGregor/M/MKKRK +McGuffey/M/MKKF +McGuire/M/MKKR +MCI/M/MS +McIntosh/M/MSNTX +McIntyre/M/MSNTR +McKay/M/MK +McKee/M/MK +McKenzie/M/MKNS +McKesson/M/MKSN +McKinley/M/MKNL +McKinney/M/MKN +McKnight/M/MKNT +McLanahan/M/MKLNHN +McLaughlin/M/MKLLN +McLean/M/MKLN +McLeod/M/MKLT +McLuhan/M/MKLHN +McMahon/M/MKMHN +McMartin/M/MKMTN +McMillan/M/MKMLN +McNamara/M/MKNMR +McNaughton/M/MKNTN +McNeil/M/MKNL +McPherson/M/MKFSN +MD//MT +Md/M/MT +mdse//MTS +MDT//MTT +ME//M +me/G/M +Me/M/M +Mead/M/MT +mead/SM/MT +Meade/M/MT +meadow/MS/MT +meadowland//MTLNT +meadowlark/SM/MTLK +Meadows//MTS +meadowsweet/M/MTSWT +Meagan/M/MKN +meager/PY/MK +meagerness/SM/MKNS +Meaghan/M/MKN +meagres//MKRS +meal/MDGS/ML +mealiness/MS/MLNS +mealtime/MS/MLTM +mealy/PRST/ML +mealybug/S/MLBK +mealymouthed//MLM@T +mean/YRGJTPS/MN +meander/JDSG/MNT +meaneing//MNN +meanie/MS/MN +meaning/M/MNN +meaningful/YP/MNNFL +meaningfulness/SM/MNNFLNS +meaningless/PY/MNNLS +meaninglessness/SM/MNNLSNS +meanness/S/MNS +means/M/MNS +meant/U/MNT +meantime/SM/MNTM +meanwhile/S/MNHL +Meany/M/MN +meany's//MNS +Meara/M/MR +meas/Y/MS +measle/SD/MSL +measles/M/MSLS +measly/TR/MSL +measurable/U/MSRBL +measurably//MSRBL +measure/BLMGRSD/MSR +measured/Y/MSRT +measureless//MSRLS +measurement/SM/MSRMNT +measurer/M/MSR +measures/A/MSRS +measuring/A/MSRN +meat/MS/MT +meataxe//MTKS +meatball/MS/MTBL +meatiness/MS/MTNS +meatless//MTLS +meatloaf//MTLF +meatloaves//MTLFS +meatpacking/S/MTPKN +meaty/RPT/MT +Mecca/MS/MK +mecca/S/MK +mechanic/MS/MXNK +mechanical/YS/MXNKL +mechanism/SM/MXNSM +mechanist/M/MXNST +mechanistic//MXNSTK +mechanistically//MXNSTKL +mechanization/SM/MXNSXN +mechanize/RSDZGB/MXNS +mechanized/U/MXNST +mechanizer/M/MXNS +mechanizes/U/MXNSS +mechanochemically//MXNXMKL +Mechelle/M/MXL +med//MT +medal/SGMD/MTL +medalist/MS/MTLST +medallion/MS/MTLN +Medan/M/MTN +meddle/GRSDZ/MTL +meddlesome//MTLSM +Medea/M/MT +Medellin//MTLN +Medfield/M/MTFLT +media/SM/MT +mediaeval's//MTFLS +medial/AY/MTL +medials//MTLS +median/YMS/MTN +mediate/PSDYVNGX/MTT +mediateness/M/MTTNS +mediation/ASM/MTXN +mediator/SM/MTT +medic/SM/MTK +Medicaid/SM/MTKT +medical/YS/MTKL +medicament/MS/MTKMNT +Medicare/MS/MTKR +medicate/DSXNGV/MTKT +medication/M/MTKXN +Medici/MS/MTS +medicinal/SY/MTSNL +medicine/DSMG/MTSN +medico/SM/MTK +medieval/YMS/MTFL +medievalist/MS/MTFLST +Medina/M/MTN +mediocre//MTKR +mediocrity/MS/MTKRT +meditate/NGVXDS/MTTT +meditation/M/MTTXN +meditative/PY/MTTTF +meditativeness/M/MTTTFNS +Mediterranean/MS/MTTRNN +medium/SM/MTM +mediumistic//MTMSTK +medley/SM/MTL +medulla/SM/MTL +Medusa/M/MTS +meed/MS/MT +meek/TPYR/MK +meekness/MS/MKNS +meerschaum/MS/MSXM +meet/JGSYR/MT +meeter/M/MT +meeting/M/MTN +meetinghouse/S/MTNHS +Meg/MN/MK +mega//MK +megabit/MS/MKBT +megabuck/S/MKBK +megabyte/S/MKBT +megacycle/MS/MKSKL +megadeath/M/MKT@ +megadeaths//MKT@S +megahertz/M/MKHTS +megalith/M/MKL@ +megalithic//MKL@K +megaliths//MKL@S +megalomania/SM/MKLMN +megalomaniac/SM/MKLMNK +megalopolis/SM/MKLPLS +Megan/M/MKN +megaphone/SDGM/MKFN +megaton/MS/MKTN +megavolt/M/MKFLT +megawatt/SM/MKWT +megaword/S/MKWT +Megen/M/MKN +Meggi/M/MK +Meggie/M/MK +Meggy/M/MK +Meghan/M/MKN +Meghann/M/MKN +megohm/MS/MKM +Mehetabel/M/MHTBL +Mei/MR/M +Meier/M/M +Meighen/M/MKN +Meiji/M/MK +meioses//MSS +meiosis/M/MSS +meiotic//MTK +Meir/M/M +Meister/M/MST +Meistersinger/M/MSTSN +Mejia/M/MK +Mekong/M/MKNK +Mel/MY/ML +Mela/M/ML +Melamie/M/MLM +melamine/SM/MLMN +melancholia/SM/MLNXL +melancholic/S/MLNXLK +melancholy/MS/MLNXL +Melanesia/M/MLNX +Melanesian/S/MLNXN +melange/S/MLNK +Melania/M/MLN +Melanie/M/MLN +melanin/MS/MLNN +melanoma/SM/MLNM +Melantha/M/MLN@ +Melany/M/MLN +Melba/M/MLB +Melbourne/M/MLBN +Melcher/M/MLX +Melchior/M/MLX +meld/SGD/MLT +mêlée/MS/ML +Melendez/M/MLNTS +Melesa/M/MLS +Melessa/M/MLS +Melicent/M/MLSNT +Melina/M/MLN +Melinda/M/MLNT +Melinde/M/MLNT +meliorate/XSDVNG/MLRT +melioration/M/MLRXN +Melisa/M/MLS +Melisande/M/MLSNT +Melisandra/M/MLSNTR +Melisenda/M/MLSNT +Melisent/M/MLSNT +Melissa/M/MLS +Melisse/M/MLS +Melita/M/MLT +Melitta/M/MLT +Mella/M/ML +Melli/M/ML +Mellicent/M/MLSNT +Mellie/M/ML +mellifluous/YP/MLFLS +mellifluousness/SM/MLFLSNS +Mellisa/M/MLS +Mellisent/M/MLSNT +Mellon/M/MLN +Melloney/M/MLN +mellow/TGRDYPS/ML +mellowness/MS/MLNS +Melly/M/ML +Melodee/M/MLT +melodic/S/MLTK +melodically//MLTKL +Melodie/M/MLT +melodious/YP/MLTS +melodiousness/S/MLTSNS +melodrama/SM/MLTRM +melodramatic/S/MLTRMTK +melodramatically//MLTRMTKL +Melody/M/MLT +melody/MS/MLT +melon/MS/MLN +Melonie/M/MLN +Melony/M/MLN +Melosa/M/MLS +Melpomene/M/MLPMN +melt/SAGD/MLT +meltdown/S/MLTTN +melter/M/MLT +melting/Y/MLTN +Melton/M/MLTN +Melva/M/MLF +Melville/M/MLFL +Melvin/M/MLFN +Melvyn/M/MLFN +member/DMS/MMB +membered/AE/MMBRT +members/EA/MMBS +membership/SM/MMBXP +membrane/MSD/MMBRN +membranous//MMBRNS +memento/SM/MMNT +Memling/M/MMLN +memo/SM/MM +memoir/MS/MM +memorabilia//MMRBL +memorability/SM/MMRBLT +memorable/P/MMRBL +memorableness/M/MMRBLNS +memorably//MMRBL +memorandum/SM/MMRNTM +memorial/SY/MMRL +memorialize/DSG/MMRLS +memorialized/U/MMRLST +memoriam//MMRM +memorization/MS/MMRSXN +memorize/RSDZG/MMRS +memorized/U/MMRST +memorizer/M/MMRS +memorizes/A/MMRSS +memory/MS/MMR +memoryless//MMRLS +Memphis/M/MMFS +men/MS/MN +menace/GSD/MNS +menacing/Y/MNSN +menage/S/MNK +menagerie/SM/MNKR +Menander/M/MNNT +menarche/MS/MNX +Menard/M/MNT +Mencius/M/MNSS +Mencken/M/MNKN +mend/RDSJGZ/MNT +mendacious/PY/MNTSS +mendaciousness/M/MNTSSNS +mendacity/MS/MNTST +Mendel/M/MNTL +Mendeleev/M/MNTLF +mendelevium/SM/MNTLFM +Mendelian//MNTLN +Mendelssohn/M/MNTLSN +mender/M/MNT +Mendez/M/MNTS +mendicancy/MS/MNTKNS +mendicant/S/MNTKNT +Mendie/M/MNT +mending/M/MNTN +Mendocino/M/MNTSN +Mendoza/M/MNTS +Mendy/M/MNT +Menelaus/M/MNLS +Menes/M/MNS +menfolk/S/MNFLK +menhaden/M/MNHTN +menial/YS/MNL +meningeal//MNNL +meninges//MNNS +meningitides//MNNTTS +meningitis/M/MNNTS +meninx//MNNKS +menisci//MNS +meniscus/M/MNSKS +Menkalinan/M/MNKLNN +Menkar/M/MNK +Menkent/M/MNKNT +Menlo/M/MNL +Mennonite/SM/MNNT +Menominee//MNMN +menopausal//MNPSL +menopause/SM/MNPS +menorah/M/MNR +menorahs//MNRS +Menotti/M/MNT +mens/SDG/MNS +Mensa/M/MNS +Mensch/M/MNSX +mensch/S/MNSX +menservants/M/MNSFNTS +menstrual//MNSTRL +menstruate/NGDSX/MNSTRT +menstruation/M/MNSTRXN +mensurable/P/MNSRBL +mensuration/MS/MNSRXN +menswear/M/MNSW +mental/Y/MNTL +mentalist/MS/MNTLST +mentality/MS/MNTLT +menthol/SM/MN@L +mentholated//MN@LTT +mention/ZGBRDS/MNXN +mentionable/U/MNXNBL +mentioned/U/MNXNT +mentioner/M/MNXN +mentor/DMSG/MNT +menu/SM/MN +Menuhin/M/MNHN +Menzies/M/MNSS +meow/DSG/M +Mephistopheles/M/MFSTFLS +mer/TGDR/M +Merak/M/MRK +Mercado/M/MKT +mercantile//MKNTL +Mercator/M/MKT +Mercedes//MSTS +mercenariness/M/MSNRNS +mercenary/SMP/MSNR +Mercer/M/MS +mercer/SM/MS +mercerize/SDG/MSRS +merchandise/SRDJMZG/MXNTS +merchandiser/M/MXNTS +merchant/SBDMG/MXNT +merchantability//MXNTBLT +merchantman/M/MXNTMN +merchantmen//MXNTMN +Merci/M/MS +Mercie/M/MS +merciful/YP/MSFL +mercifully/U/MSFL +mercifulness/M/MSFLNS +merciless/YP/MSLS +mercilessness/SM/MSLSNS +Merck/M/MK +mercurial/SPY/MKRL +mercuric//MKRK +Mercurochrome/M/MKRXRM +mercury/MS/MKR +Mercury/MS/MKR +Mercy/M/MS +mercy/SM/MS +mere/YS/MR +Meredeth/M/MRT@ +Meredith/M/MRT@ +Meredithe/M/MRT@ +Merell/M/MRL +meretricious/YP/MRTRSS +meretriciousness/SM/MRTRSSNS +merganser/MS/MKNS +merge/SRDGZ/MK +merger/M/MK +Meridel/M/MRTL +meridian/MS/MRTN +meridional//MRTNL +Meridith/M/MRT@ +Meriel/M/MRL +Merilee/M/MRL +Merill/M/MRL +Merilyn/M/MRLN +meringue/MS/MRN +merino/MS/MRN +Meris//MRS +Merissa/M/MRS +merit/SCGMD/MRT +merited/U/MRTT +meritocracy/MS/MRTKRS +meritocratic//MRTKRTK +meritocrats//MRTKRTS +meritorious/PY/MRTRS +meritoriousness/MS/MRTRSNS +Meriwether/M/MRW@ +Merl/M/ML +Merla/M/ML +Merle/M/ML +merlin/M/MLN +Merlin/M/MLN +Merlina/M/MLN +Merline/M/MLN +mermaid/MS/MMT +merman/M/MMN +mermen//MMN +Merna/M/MN +Merola/M/MRL +meromorphic//MRMFK +Merralee/M/MRL +Merrel/M/MRL +Merriam/M/MRM +Merrick/M/MRK +Merridie/M/MRT +Merrie/M/MR +Merrielle/M/MRL +Merrile/M/MRL +Merrilee/M/MRL +Merrili/M/MRL +Merrill/M/MRL +merrily//MRL +Merrily/M/MRL +Merrimac/M/MRMK +Merrimack/M/MRMK +merriment/MS/MRMNT +merriness/S/MRNS +Merritt/M/MRT +Merry/M/MR +merry/RPT/MR +merrymaker/MS/MRMK +merrymaking/SM/MRMKN +Mersey/M/MS +Merton/M/MTN +Merv/M/MF +Mervin/M/MFN +Merwin/M/MWN +Merwyn/M/MN +Meryl/M/MRL +mes/S/MS +Mesa//MS +mesa/SM/MS +Mesabi/M/MSB +mescal/SM/MSKL +mescaline/SM/MSKLN +mesdames/M/MSTMS +mesdemoiselles/M/MSTMSLS +mesh/GMSD/MX +meshed/U/MXT +Meshed's//MXTS +mesmeric//MSMRK +mesmerism/SM/MSMRSM +mesmerize/SRDZG/MSMRS +mesmerized/U/MSMRST +mesmerizer/M/MSMRS +Mesolithic/M/MSL@K +mesomorph/M/MSMF +mesomorphs//MSMFS +meson/MS/MSN +Mesopotamia/M/MSPTM +Mesopotamian/S/MSPTMN +mesosphere/MS/MSSFR +mesozoic//MSSK +Mesozoic//MSSK +mesquite/MS/MSKT +mess/GSDM/MS +message/SDMG/MSK +messeigneurs//MSKNS +messenger/GSMD/MSNK +Messerschmidt/M/MSSXMTT +Messiaen/M/MXN +messiah//MX +Messiah/M/MX +messiahs//MXS +Messiahs//MXS +messianic//MXNK +Messianic//MXNK +messieurs/M/MSS +messily//MSL +messiness/MS/MSNS +messmate/MS/MSMT +Messrs/M/MSRS +messy/PRT/MS +mestizo/MS/MSTS +met/U/MT +meta//MT +Meta/M/MT +metabolic//MTBLK +metabolically//MTBLKL +metabolism/MS/MTBLSM +metabolite/SM/MTBLT +metabolize/GSD/MTBLS +metacarpal/S/MTKPL +metacarpi//MTKP +metacarpus/M/MTKPS +metacircular//MTSKL +metacircularity//MTSKLRT +metal/SGMD/MTL +metalanguage/MS/MTLNKK +metalization/SM/MTLSXN +metalized//MTLST +metallic/S/MTLK +metalliferous//MTLFRS +metallings//MTLNS +metallography/M/MTLKRF +metalloid/M/MTLT +metallurgic//MTLKK +metallurgical/Y/MTLKKL +metallurgist/S/MTLKST +metallurgy/MS/MTLK +metalsmith/MS/MTLSM@ +metalwork/RMJGSZ/MTLWK +metalworking/M/MTLWKN +metamathematical//MTM@MTKL +metamorphic//MTMFK +metamorphism/SM/MTMFSM +metamorphose/GDS/MTMFS +metamorphosis/M/MTMFSS +metaphor/MS/MTF +metaphoric//MTFRK +metaphorical/Y/MTFRKL +metaphosphate/M/MTFSFT +metaphysic/SM/MTFSK +metaphysical/Y/MTFSKL +metastability/M/MTSTBLT +metastable//MTSTBL +metastases//MTSTSS +metastasis/M/MTSTSS +metastasize/DSG/MTSTSS +metastatic//MTSTTK +metatarsal/S/MTTSL +metatarsi//MTTS +metatarsus/M/MTTSS +metatheses//MT@SS +metathesis/M/MT@SS +metathesized//MT@SST +metathesizes//MT@SSS +metathesizing//MT@SSN +metavariable//MTFRBL +mete/ZDGSR/MT +metempsychoses//MTMPSXSS +metempsychosis/M/MTMPSXSS +meteor/SM/MT +meteoric//MTRK +meteorically//MTRKL +meteorite/SM/MTRT +meteoritic/S/MTRTK +meteoritics/M/MTRTKS +meteoroid/SM/MTRT +meteorologic//MTRLKK +meteorological//MTRLKKL +meteorologist/S/MTRLKST +meteorology/MS/MTRLK +meter/GDM/MT +methadone/SM/M@TN +methane/MS/M@N +methanol/SM/M@NL +methinks//M@NKS +methionine/M/M@NN +method/MS/M@T +methodical/YP/M@TKL +methodicalness/SM/M@TKLNS +methodism//M@TSM +Methodism/SM/M@TSM +methodist/MS/M@TST +Methodist/MS/M@TST +methodological/Y/M@TLKKL +methodologists//M@TLKSTS +methodology/MS/M@TLK +methought//M@T +Methuen/M/M@N +Methuselah/M/M@SL +Methuselahs//M@SLS +methyl/SM/M@L +methylated//M@LTT +methylene/M/M@LN +meticulous/YP/MTKLS +meticulousness/MS/MTKLSNS +métier/S/MT +metonymy/M/MTNM +Metrecal/M/MTRKL +metric/SM/MTRK +metrical/Y/MTRKL +metricate/SDNGX/MTRKT +metricize/GSD/MTRSS +metrics/M/MTRKS +metro/SM/MTR +metronome/MS/MTRNM +metropolis/SM/MTRPLS +metropolitan/S/MTRPLTN +metropolitanization//MTRPLTNSXN +mets//MTS +Metternich/M/MTNX +mettle/SDM/MTL +mettlesome//MTLSM +Metzler/M/MTSL +Meuse/M/MS +mew/SGD/M +mewl/GSD/ML +mews/SM/MS +Mex//MKS +Mexicali/M/MKSKL +Mexican/S/MKSKN +Mexico/M/MKSK +Meyer/SM/MY +Meyerbeer/M/MYB +mezzanine/MS/MSNN +mezzo/S/MS +MFA//MF +mfg//MFK +mfr/S/MFR +mg//MK +Mg/M/MK +MGM/M/MKM +mgr//MKR +Mgr//MKR +MHz//MHS +MI//M +mi/MNX/M +MIA//M +Mia/M/M +Miami/SM/MM +Miaplacidus/M/MPLSTS +miasma/SM/MSM +miasmal//MSML +Mic/M/MK +mica/MS/MK +Micaela/M/MKL +Micah/M/MK +mice/M/MS +micelles//MSLS +Mich/M/MX +Michael/SM/MXL +Michaela/M/MXL +Michaelangelo/M/MXLNKL +Michaelina/M/MXLN +Michaeline/M/MXLN +Michaella/M/MXL +Michaelmas/MS/MXLMS +Michaelson/M/MXLSN +Michail/M/MXL +Michal/M/MXL +Michale/M/MXL +Micheal/M/MXL +Micheil/M/MXL +Michel/M/MXL +Michelangelo/M/MXLNKL +Michele/M/MXL +Michelin/M/MXLN +Michelina/M/MXLN +Micheline/M/MXLN +Michell/M/MXL +Michelle/M/MXL +Michelson/M/MXLSN +Michigan/M/MXKN +Michigander/S/MXKNT +Michiganite/S/MXKNT +Mick/M/MK +Mickelson/M/MKLSN +Mickey/M/MK +mickey/SM/MK +Micki/M/MK +Mickie/M/MK +Micky/M/MK +Micmac/M/MKMK +micra's//MKRS +micro/S/MKR +microamp//MKRMP +microanalysis/M/MKRNLSS +microanalytic//MKRNLTK +microbe/MS/MKRB +microbial//MKRBL +microbicidal//MKRBSTL +microbicide/M/MKRBST +microbiological//MKRBLKKL +microbiologist/MS/MKRBLKST +microbiology/SM/MKRBLK +microbrewery/S/MKRBRWR +microchemistry/M/MKRXMSTR +microchip/S/MKRXP +microcircuit/MS/MKRSKT +microcode/GSD/MKRKT +microcomputer/MS/MKRKMPT +microcosm/MS/MKRKSM +microcosmic//MKRKSMK +microdensitometer//MKRTNSTMT +microdot/MS/MKRTT +microeconomic/S/MKRKNMK +microeconomics/M/MKRKNMKS +microelectronic/S/MKRLKTRNK +microelectronics/M/MKRLKTRNKS +microfiber/S/MKRFB +microfiche/M/MKRFX +microfilm/DRMSG/MKRFLM +microfossils//MKRFSLS +micrography/M/MKRKRF +microgroove/MS/MKRKRF +microhydrodynamics//MKRHTRTNMKS +microinstruction/SM/MKRNSTRKXN +microjoule//MKRKL +microlevel//MKRLFL +microlight/S/MKRLT +micromanage/GDSL/MKRMNK +micromanagement/S/MKRMNKMNT +micrometeorite/MS/MKRMTRT +micrometeoritic//MKRMTRTK +micrometer/SM/MKRMT +micron/MS/MKRN +Micronesia/M/MKRNX +Micronesian/S/MKRNXN +microorganism/SM/MKRKNSM +microphone/SGM/MKRFN +Microport/M/MKRPT +microprocessing//MKRPRSSN +microprocessor/SM/MKRPRSS +microprogram/SM/MKRPRKRM +microprogrammed//MKRPRKRMT +microprogramming//MKRPRKRMN +micros/M/MKRS +microscope/SM/MKRSKP +microscopic//MKRSKPK +microscopical/Y/MKRSKPKL +microscopy/MS/MKRSKP +microsecond/MS/MKRSKNT +microsimulation/S/MKRSMLXN +Microsoft/M/MKRSFT +microsomal//MKRSML +microstore//MKRSTR +microsurgery/SM/MKRSKR +MicroVAX/M/MKRFKS +MicroVAXes//MKRFKSS +microvolt/SM/MKRFLT +microwave/BMGSD/MKRWF +microwaveable//MKRWFBL +microword/S/MKRWT +mid/S/MT +midair/MS/MT +midas//MTS +Midas/M/MTS +midband/M/MTBNT +midday/MS/MT +midden/SM/MTN +middest//MTST +middle/GJRSD/MTL +middlebrow/SM/MTLBR +Middlebury/M/MTLBR +middleman/M/MTLMN +middlemen//MTLMN +middlemost//MTLMST +Middlesex/M/MTLSKS +Middleton/M/MTLTN +Middletown/M/MTLTN +middleweight/SM/MTLWT +middling/Y/MTLN +middy/SM/MT +Mideast/M/MTST +Mideastern//MTSTN +midfield/RM/MTFLT +Midge/M/MK +midge/SM/MK +midget/MS/MKT +midi/S/MT +midland/MRS/MTLNT +Midland/MS/MTLNT +midlife//MTLF +midlives//MTLFS +midmorn/G/MTMN +midmost/S/MTMST +midnight/SYM/MTNT +midpoint/MS/MTPNT +midrange//MTRNK +midrib/MS/MTRB +midriff/MS/MTRF +midscale//MTSKL +midsection/M/MTSKXN +midship/S/MTXP +midshipman/M/MTXPMN +midshipmen//MTXPMN +midspan//MTSPN +midst/SM/MTST +midstream/MS/MTSTRM +midsummer/MS/MTSM +midterm/MS/MTTM +midtown/MS/MTTN +Midway/M/MTW +midway/S/MTW +midweek/SYM/MTWK +Midwest/M/MTWST +Midwestern/ZR/MTWSTN +Midwesterner/M/MTWSTN +midwicket//MTWKT +midwife/SDMG/MTWF +midwifery/SM/MTWFR +midwinter/YMS/MTWNT +midwives//MTWFS +midyear/MS/MTY +mien/M/MN +miff/GDS/MF +MIG/S/MK +might/S/MT +mightily//MTL +mightiness/MS/MTNS +mightn't//MTNT +mighty/TPR/MT +mignon//MKNN +Mignon/M/MKNN +mignonette/SM/MKNNT +Mignonne/M/MKNN +migraine/SM/MKRN +migrant/MS/MKRNT +migrate/ASDG/MKRT +migration/MS/MKRXN +migrative//MKRTF +migratory/S/MKRTR +Miguel/M/MKL +Miguela/M/MKL +Miguelita/M/MKLT +mikado/MS/MKT +Mikael/M/MKL +Mikaela/M/MKL +mike/DSMG/MK +Mike/M/MK +Mikel/M/MKL +Mikey/M/MK +Mikhail/M/MKHL +Mikkel/M/MKL +Mikol/M/MKL +Mikoyan/M/MKYN +mil/MRSZ/ML +Mil/MY/ML +milady/MS/MLT +Milagros/M/MLKRS +Milan/M/MLN +Milanese//MLNS +milch/M/MLX +mild/STYRNP/MLT +mildew/DMGS/MLT +mildness/MS/MLTNS +Mildred/M/MLTRT +Mildrid/M/MLTRT +mile/SM/ML +Mile/SM/ML +mileage/SM/MLK +Milena/M/MLN +milepost/SM/MLPST +miler/M/ML +milestone/MS/MLSTN +Milford/M/MLFT +Milicent/M/MLSNT +milieu/SM/ML +Milissent/M/MLSNT +militancy/MS/MLTNS +militant/YPS/MLTNT +militantness/M/MLTNTNS +militarily//MLTRL +militarism/SM/MLTRSM +militarist/MS/MLTRST +militaristic//MLTRSTK +militarization/SCM/MLTRSXN +militarize/SDCG/MLTRS +military//MLTR +militate/SDG/MLTT +militia/SM/MLX +militiaman/M/MLXMN +militiamen//MLXMN +milk/GZSRDM/MLK +Milka/M/MLK +Milken/M/MLKN +milker/M/MLK +milkiness/MS/MLKNS +milkmaid/SM/MLKMT +milkman/M/MLKMN +milkmen//MLKMN +milkshake/S/MLKXK +milksop/SM/MLKSP +milkweed/MS/MLKWT +milky/RPT/MLK +mill/SGZMRD/ML +Mill/SMR/ML +millage/S/MLK +Millard/M/MLT +Millay/M/ML +millenarian//MLNRN +millenarianism/M/MLNRNSM +millennial//MLNL +millennialism//MLNLSM +millennium/MS/MLNM +millepede's//MLPTS +miller/M/ML +Miller/M/ML +Millet/M/MLT +millet/MS/MLT +Milli/M/ML +milliamp//MLMP +milliampere/S/MLMPR +milliard/MS/MLT +millibar/MS/MLB +Millicent/M/MLSNT +millidegree/S/MLTKR +Millie/M/ML +milligram/MS/MLKRM +millijoule/S/MLKL +Millikan/M/MLKN +milliliter/MS/MLLT +millimeter/SM/MLMT +milliner/SM/MLN +millinery/MS/MLNR +milling/M/MLN +million/HDMS/MLN +millionaire/MS/MLNR +millionth/M/MLN@ +millionths//MLN@S +millipede/SM/MLPT +millisecond/MS/MLSKNT +Millisent/M/MLSNT +millivolt/SM/MLFLT +millivoltmeter/SM/MLFLTMT +milliwatt/S/MLWT +millpond/MS/MLPNT +millrace/SM/MLRS +millstone/SM/MLSTN +millstream/SM/MLSTRM +millwright/MS/MLRT +Milly/M/ML +Milne/M/MLN +Milo/M/ML +Milquetoast/S/MLKTST +milquetoast/SM/MLKTST +Milt/M/MLT +milt/MDSG/MLT +Miltiades/M/MLXTS +Miltie/M/MLT +Milton/M/MLTN +Miltonic//MLTNK +Miltown/M/MLTN +Milty/M/MLT +Milwaukee/M/MLWK +Milzie/M/MLS +MIMD//MMT +mime/DSRMG/MM +mimeograph/GMDS/MMKRF +mimeographs//MMKRFS +mimer/M/MM +mimesis/M/MMSS +mimetic//MMTK +mimetically//MMTKL +Mimi/M/MM +mimic/S/MMK +mimicked//MMKT +mimicker/SM/MMK +mimicking//MMKN +mimicry/MS/MMKR +Mimosa/M/MMS +mimosa/SM/MMS +min/DRZGJ/MN +Min/MR/MN +Mina/M/MN +minaret/MS/MNRT +minatory//MNTR +mince/SRDGZJ/MNS +mincemeat/MS/MNSMT +mincer/M/MNS +mincing/Y/MNSN +mind/ARDSZG/MNT +Minda/M/MNT +Mindanao/M/MNTN +mindbogglingly//MNTBKLNL +minded/P/MNTT +minder/M/MNT +mindful/U/MNTFL +mindfully//MNTFL +mindfulness/MS/MNTFLNS +mindless/YP/MNTLS +mindlessness/SM/MNTLSNS +Mindoro/M/MNTR +mind's//MNTS +mindset/S/MNTST +Mindy/M/MNT +mine/SNX/MN +minefield/MS/MNFLT +miner/M/MN +Miner/M/MN +mineral/SM/MNRL +mineralization/C/MNRLSXN +mineralized/U/MNRLST +mineralogical//MNRLKKL +mineralogist/SM/MNRLKST +mineralogy/MS/MNRLK +Minerva/M/MNF +mineshaft//MNXFT +minestrone/MS/MNSTRN +minesweeper/MS/MNSWP +Minetta/M/MNT +Minette/M/MNT +mineworkers//MNWKS +Ming/M/MN +mingle/SDG/MNL +Mingus/M/MNS +mini/S/MN +miniature/GMSD/MNTR +miniaturist/SM/MNTRST +miniaturization/MS/MNTRSXN +miniaturize/SDG/MNTRS +minibike/S/MNBK +minibus/SM/MNBS +minicab/M/MNKB +minicam/MS/MNKM +minicomputer/SM/MNKMPT +minidress/SM/MNTRS +minify/GSD/MNF +minim/SM/MNM +minimal/SY/MNML +minimalism/S/MNMLSM +minimalist/MS/MNMLST +minimalistic//MNMLSTK +minimality//MNMLT +minima's//MNMS +minimax/M/MNMKS +minimization/MS/MNMSXN +minimize/RSDZG/MNMS +minimized/U/MNMST +minimizer/M/MNMS +minimum/MS/MNMM +mining/M/MNN +minion/M/MNN +miniseries//MNSRS +miniskirt/MS/MNSKT +minister/MDGS/MNST +ministerial/Y/MNSTRL +ministrant/S/MNSTRNT +ministration/SM/MNSTRXN +ministry/MS/MNSTR +minivan/S/MNFN +miniver/M/MNF +mink/SM/MNK +minke//MNK +Minn/M/MN +Minna/M/MN +Minnaminnie/M/MNMN +Minne/M/MN +Minneapolis/M/MNPLS +minnesinger/MS/MNSN +Minnesota/M/MNST +Minnesotan/S/MNSTN +Minni/M/MN +Minnie/M/MN +Minnnie/M/MN +minnow/SM/MN +Minny/M/MN +Minoan/S/MNN +Minolta/M/MNLT +minor/DMSG/MN +Minor/M/MN +minority/MS/MNRT +Minos//MNS +Minot/M/MNT +Minotaur/M/MNT +minotaur/S/MNT +minoxidil/S/MNKSTL +Minsk/M/MNSK +Minsky/M/MNSK +minster/SM/MNST +minstrel/SM/MNSTRL +minstrelsy/MS/MNSTRLS +mint/GZSMRD/MNT +Minta/M/MNT +mintage/SM/MNTK +Mintaka/M/MNTK +minter/M/MNT +minty/RT/MNT +minuend/SM/MNNT +minuet/SM/MNT +Minuit/M/MNT +minus/S/MNS +minuscule/SM/MNSKL +minute/RSDPMTYG/MNT +minuteman//MNTMN +Minuteman/M/MNTMN +minutemen//MNTMN +minuteness/SM/MNTNS +minutia/M/MNX +minutiae//MNX +minx/MS/MNKS +Miocene//MSN +MIPS//MPS +Miquela/M/MKL +Mir/M/M +Mira/M/MR +Mirabeau/M/MRB +Mirabel/M/MRBL +Mirabella/M/MRBL +Mirabelle/M/MRBL +Mirach/M/MRX +miracle/MS/MRKL +miraculous/PY/MRKLS +miraculousness/M/MRKLSNS +mirage/GSDM/MRK +Miran/M/MRN +Miranda/M/MRNT +mire/MGDS/MR +Mireielle/M/MRL +Mireille/M/MRL +Mirella/M/MRL +Mirelle/M/MRL +Mirfak/M/MFK +Miriam/M/MRM +Mirilla/M/MRL +Mirna/M/MN +Miro//MR +mirror/DMGS/MR +mirth/M/M@ +mirthful/PY/M@FL +mirthfulness/SM/M@FLNS +mirthless/YP/M@LS +mirthlessness/M/M@LSNS +mirths//M@S +MIRV/DSG/MF +miry/RT/MR +Mirzam/M/MSM +mis/SRZ/MS +misaddress/SDG/MSTRS +misadventure/SM/MSTFNTR +misalign/DSGL/MSLN +misalignment/MS/MSLKNMNT +misalliance/MS/MSLNS +misanalysed//MSNLST +misanthrope/MS/MSN@RP +misanthropic//MSN@RPK +misanthropically//MSN@RPKL +misanthropist/S/MSN@RPST +misanthropy/SM/MSN@RP +misapplier/M/MSPL +misapply/GNXRSD/MSPL +misapprehend/GDS/MSPRHNT +misapprehension/MS/MSPRHNXN +misappropriate/GNXSD/MSPRPRT +misbegotten//MSBKTN +misbehave/RSDG/MSBHF +misbehaver/M/MSBHF +misbehavior/SM/MSBHF +misbrand/DSG/MSBRNT +misc//MSK +miscalculate/XGNSD/MSKLKLT +miscalculation/M/MSKLKLXN +miscall/SDG/MSKL +miscarriage/MS/MSKRK +miscarry/SDG/MSKR +miscast/GS/MSKST +miscegenation/SM/MSKNXN +miscellanea//MSLN +miscellaneous/PY/MSLNS +miscellany/MS/MSLN +Mischa/M/MSX +mischance/MGSD/MSXNS +mischief/MDGS/MSXF +mischievous/PY/MSXFS +mischievousness/MS/MSXFSNS +miscibility/S/MSBLT +miscible/C/MSBL +misclassification/M/MSKLSFKXN +misclassified//MSKLSFT +misclassifying//MSKLSFYN +miscode/SDG/MSKT +miscommunicate/NDS/MSKMNKT +miscomprehended//MSKMPRHNTT +misconceive/GDS/MSKNSF +misconception/MS/MSKNSPXN +misconduct/GSMD/MSKNTKT +misconfiguration//MSKNFKRXN +misconstruction/MS/MSKNSTRKXN +misconstrue/DSG/MSKNSTR +miscopying//MSKPYN +miscount/DGS/MSKNT +miscreant/MS/MSKRNT +miscue/MGSD/MSK +misdeal/SG/MSTL +misdealt//MSTLT +misdeed/MS/MSTT +misdemeanant/SM/MSTMNNT +misdemeanor/SM/MSTMN +misdiagnose/GSD/MSTKNS +misdid//MSTT +misdirect/GSD/MSTRKT +misdirection/MS/MSTRKXN +misdirector/S/MSTRKT +misdo/JG/MST +misdoes//MSTS +misdone//MSTN +miser/KM/MS +miserable/SP/MSRBL +miserableness/SM/MSRBLNS +miserably//MSRBL +miserliness/MS/MSLNS +miserly/P/MSL +misery/MS/MSR +mises/KC/MSS +misfeasance/MS/MSFSNS +misfeature/M/MSFTR +misfield//MSFLT +misfile/SDG/MSFL +misfire/SDG/MSFR +misfit/MS/MSFT +misfitted//MSFTT +misfitting//MSFTN +misfortune/SM/MSFTN +misgauge/GDS/MSKK +misgiving/MYS/MSKFN +misgovern/LDGS/MSKFN +misgovernment/S/MSKFNMNT +misguidance/SM/MSKTNS +misguide/DRSG/MSKT +misguided/PY/MSKTT +misguidedness/M/MSKTTNS +misguider/M/MSKT +Misha/M/MX +mishandle/SDG/MXNTL +mishap/MS/MXP +mishapped//MXPT +mishapping//MXPN +mishear/GS/MX +misheard//MXT +mishitting//MXTN +mishmash/SM/MXMX +misidentification/M/MSTNTFKXN +misidentify/GNSD/MSTNTF +misinform/GDS/MSNFM +misinformation/SM/MSNFMXN +misinterpret/RDSZG/MSNTPRT +misinterpretation/MS/MSNTPRTXN +misinterpreter/M/MSNTPRT +misjudge/DSG/MSKK +misjudging/Y/MSKKNK +misjudgment/MS/MSKTKMNT +Miskito//MSKT +mislabel/DSG/MSLBL +mislaid//MSLT +mislay/GS/MSL +mislead/GRJS/MSLT +misleader/M/MSLT +misleading/Y/MSLTN +misled//MSLT +mismanage/LGSD/MSMNK +mismanagement/MS/MSMNKMNT +mismatch/GSD/MSMX +misname/GSD/MSNM +misnomer/GSMD/MSNM +misogamist/MS/MSKMST +misogamy/MS/MSKM +misogynist/MS/MSKNST +misogynistic//MSKNSTK +misogynous//MSKNS +misogyny/MS/MSKN +misperceive/SD/MSPSF +misplace/GLDS/MSPLS +misplacement/MS/MSPLSMNT +misplay/GSD/MSPL +mispositioned//MSPSXNT +misprint/SGDM/MSPRNT +misprision/SM/MSPRXN +mispronounce/DSG/MSPRNNS +mispronunciation/MS/MSPRNNXXN +misquotation/MS/MSKTXN +misquote/GDS/MSKT +misread/RSGJ/MSRT +misreader/M/MSRT +misrelated//MSRLTT +misremember/DG/MSRMMB +misreport/DGS/MSRPT +misrepresent/SDRG/MSRPRSNT +misrepresentation/MS/MSRPRSNTXN +misrepresenter/M/MSRPRSNT +misroute/DS/MSRT +misrule/SDG/MSRL +miss/SDEGV/MS +Miss/SM/MS +missal/ESM/MSL +misshape/DSG/MXP +misshapen/PY/MXPN +misshapenness/SM/MXPNS +Missie/M/MS +missile/MS/MSL +missilery/SM/MSLR +mission/AMS/MXN +missionary/MS/MXNR +missioned//MXNT +missioner/SM/MXN +missioning//MXNN +missis's//MSSS +Mississauga/M/MSSK +Mississippi/M/MSSP +Mississippian/S/MSSPN +missive/MS/MSF +Missoula/M/MSL +Missouri/M/MSR +Missourian/S/MSRN +misspeak/SG/MSPK +misspecification//MSPSFKXN +misspecified//MSPSFT +misspell/SGJD/MSPL +misspelling/M/MSPLN +misspend/GS/MSPNT +misspent//MSPNT +misspoke//MSPK +misspoken//MSPKN +misstate/GLDRS/MSTT +misstatement/MS/MSTTMNT +misstater/M/MSTT +misstep/MS/MSTP +misstepped//MSTPT +misstepping//MSTPN +missus/SM/MSS +Missy/M/MS +mist/MRDGZS/MST +mistakable/U/MSTKBL +mistake/BMGSR/MSTK +mistaken/Y/MSTKN +mistaker/M/MSTK +mistaking/Y/MSTKN +Mistassini/M/MSTSN +mister/GDM/MST +Mister/SM/MST +Misti/M/MST +mistily//MSTL +mistime/GSD/MSTM +mistiness/S/MSTNS +mistletoe/MS/MSTLT +mistook//MSTK +mistral/MS/MSTRL +mistranslated//MSTRNSLTT +mistranslates//MSTRNSLTS +mistranslating//MSTRNSLTN +mistranslation/SM/MSTRNSLXN +mistreat/DGSL/MSTRT +mistreatment/SM/MSTRTMNT +Mistress/MS/MSTRS +mistress/MSY/MSTRS +mistrial/SM/MSTRL +mistrust/SRDG/MSTRST +mistruster/M/MSTRST +mistrustful/Y/MSTRSTFL +Misty/M/MST +misty/PRT/MST +mistype/SDGJ/MSTP +misunderstand/JSRZG/MSNTSTNT +misunderstander/M/MSNTSTNT +misunderstanding/M/MSNTSTNTN +misunderstood//MSNTSTT +misuse/RSDMG/MSS +misuser/M/MSS +miswritten//MSRTN +MIT/M/MT +Mitch/M/MX +Mitchael/M/MXL +Mitchel/M/MXL +Mitchell/M/MXL +mite/SRMZ/MT +miter/GRDM/MT +miterer/M/MTR +Mitford/M/MTFT +Mithra/M/M@R +Mithridates/M/M@RTTS +mitigate/XNGVDS/MTKT +mitigated/U/MTKTT +mitigation/M/MTKXN +mitoses//MTSS +mitosis/M/MTSS +mitotic//MTTK +MITRE/SM/MTR +Mitsubishi/M/MTSBX +mitt/XSMN/MT +mitten/M/MTN +Mitterrand/M/MTRNT +Mitty/M/MT +Mitzi/M/MTS +mitzvahs//MTSFS +mix/AGSD/MKS +mixable//MKSBL +mixed/U/MKST +mixer/SM/MKS +mixture/SM/MKSTR +Mizar/M/MS +mizzen/MS/MSN +mizzenmast/SM/MSNMST +Mk//MK +mks//MKS +ml//ML +Mlle/M/ML +mm//M +MM//M +MMe//M +Mme/SM/M +MN//MN +Mn/M/MN +mnemonic/SM/MNMNK +mnemonically//MNMNKL +mnemonics/M/MNMNKS +Mnemosyne/M/MNMSN +MO//M +mo/CSK/M +Mo/MN/M +moan/GSZRDM/MN +moat/SMDG/MT +mob/MS/MB +mobbed//MBT +mobber//MB +mobbing//MBN +mobcap/SM/MBKP +Mobil/M/MBL +Mobile/M/MBL +mobile/S/MBL +mobility/MS/MBLT +mobilizable//MBLSBL +mobilization/AMCS/MBLSXN +mobilize/CGDS/MBLS +mobilized/U/MBLST +mobilizer/MS/MBLS +mobilizes/A/MBLSS +mobster/MS/MBST +Mobutu/M/MBT +moccasin/SM/MKSN +mocha/SM/MX +mock/GZSRD/MK +mockers/M/MKS +mockery/MS/MKR +mocking/Y/MKN +mockingbird/MS/MKNBT +mod/TSR/MT +modal/Y/MTL +modality/MS/MTLT +mode/MS/MT +model/ZGSJMRD/MTL +modeled/A/MTLT +modeler/M/MTL +modeling/M/MTLN +models/A/MTLS +modem/SM/MTM +moderate/PNGDSXY/MTRT +moderated/U/MTRTT +moderateness/SM/MTRTNS +moderation/M/MTRXN +moderator/MS/MTRT +modern/PTRYS/MTN +modernism/MS/MTNSM +modernist/S/MTNST +modernistic//MTNSTK +modernity/SM/MTNT +modernization/MS/MTNSXN +modernize/SRDGZ/MTNS +modernized/U/MTNST +modernizer/M/MTNS +modernizes/U/MTNSS +modernness/SM/MTNS +modest/TRY/MTST +Modesta/M/MTST +Modestia/M/MTSX +Modestine/M/MTSTN +Modesto/M/MTST +Modesty/M/MTST +modesty/MS/MTST +modicum/SM/MTKM +modifiability/M/MTFBLT +modifiable/U/MTFBL +modifiableness/M/MTFBLNS +modification/M/MTFKXN +modified/U/MTFT +modifier/M/MTF +modify/NGZXRSD/MTF +Modigliani/M/MTKLN +modish/YP/MTX +modishness/MS/MTXNS +Modula/M/MTL +modular/SY/MTL +modularity/SM/MTLRT +modularization//MTLRSXN +modularize/SDG/MTLRS +modulate/ADSNCG/MTLT +modulation/CMS/MTLXN +modulator/ACSM/MTLT +module/SM/MTL +moduli//MTL +modulo//MTL +modulus/M/MTLS +modus//MTS +Moe/M/M +Moen/M/MN +Mogadiscio's//MKTSS +Mogadishu//MKTX +mogul/MS/MKL +Mogul/MS/MKL +mohair/SM/MH +Mohamed/M/MHMT +Mohammad/M/MHMT +Mohammedan/SM/MHMTN +Mohammedanism/MS/MHMTNSM +Mohammed's//MHMTS +Mohandas/M/MHNTS +Mohandis/M/MHNTS +Mohawk/MS/MHK +Mohegan/S/MHKN +Mohican's//MHKNS +Moho/M/MH +Mohorovicic/M/MHRFSK +Mohr/M/MR +moiety/MS/MT +moil/SGD/ML +Moina/M/MN +Moines/M/MNS +Moira/M/MR +moire/MS/MR +Moise/MS/MS +Moiseyev/M/MSYF +Moishe/M/MX +moist/TXPRNY/MST +moisten/ZGRD/MSTN +moistener/M/MSTN +moistness/MS/MSTNS +moisture/MS/MSTR +moisturize/GZDRS/MSTRS +Mojave/M/MKF +molal//MLL +molar/MS/ML +molarity/SM/MLRT +molasses/MS/MLSS +mold/MRDJSGZ/MLT +Moldavia/M/MLTF +Moldavian/S/MLTFN +moldboard/SM/MLTBT +molder/DG/MLT +moldiness/SM/MLTNS +molding/M/MLTN +Moldova//MLTF +moldy/PTR/MLT +mole/MTS/ML +molecular/Y/MLKL +molecularity/SM/MLKLRT +molecule/MS/MLKL +molehill/SM/MLHL +moleskin/MS/MLSKN +molest/RDZGS/MLST +molestation/SM/MLSTXN +molested/U/MLSTT +molester/M/MLST +Moliere//MLR +Molina/M/MLN +Moline/M/MLN +Moll/M/ML +moll/MS/ML +Mollee/M/ML +Molli/M/ML +Mollie/M/ML +mollification/M/MLFKXN +mollify/XSDGN/MLF +mollusc's//MLSKS +mollusk/S/MLSK +Molly/M/ML +molly/SM/ML +mollycoddle/SRDG/MLKTL +mollycoddler/M/MLKTL +Molnar/M/MLN +Moloch/M/MLX +Molokai/M/MLK +Molotov/M/MLTF +molt/RDNGZS/MLT +molter/M/MLT +Moluccas//MLKS +molybdenite/M/MLBTNT +molybdenum/MS/MLBTNM +mom/SM/MM +Mombasa/M/MMBS +moment/MYS/MMNT +momenta//MMNT +momentarily//MMNTRL +momentariness/SM/MMNTRNS +momentary/P/MMNTR +momentous/YP/MMNTS +momentousness/MS/MMNTSNS +momentum/SM/MMNTM +momma/S/MM +Mommy/M/MM +mommy/SM/MM +Mon/SM/MN +Mona/M/MN +Monaco/M/MNK +monad/SM/MNT +monadic//MNTK +Monah/M/MN +monarch/M/MNX +monarchic//MNXK +monarchical//MNXKL +monarchism/MS/MNXSM +monarchist/MS/MNXST +monarchistic//MNXSTK +monarchs//MNXS +monarchy/MS/MNX +Monash/M/MNX +monastery/MS/MNSTR +monastic/S/MNSTK +monastical/Y/MNSTKL +monasticism/MS/MNSTSSM +monaural/Y/MNRL +Mondale/M/MNTL +Monday/MS/MNT +Mondrian/M/MNTRN +Monegasque/SM/MNKSK +Monera/M/MNR +Monet/M/MNT +monetarily//MNTRL +monetarism/S/MNTRSM +monetarist/MS/MNTRST +monetary//MNTR +monetization/CMA/MNTSXN +monetize/CGADS/MNTS +money/SMRD/MN +moneybag/SM/MNBK +moneychangers//MNXNKS +moneyer/M/MNY +moneylender/SM/MNLNT +moneymaker/MS/MNMK +moneymaking/MS/MNMKN +Monfort/M/MNFT +monger/SGDM/MNK +Mongol/SM/MNKL +Mongolia/M/MNKL +Mongolian/S/MNKLN +Mongolic/M/MNKLK +mongolism/SM/MNKLSM +mongoloid/S/MNKLT +Mongoloid/S/MNKLT +mongoose/SM/MNKS +mongrel/SM/MNKRL +Monica/M/MNK +monies/M/MNS +Monika/M/MNK +moniker/MS/MNK +Monique/M/MNK +monism/MS/MNSM +monist/SM/MNST +monition/SM/MNXN +monitor/GSMD/MNT +monitored/U/MNTRT +monitory/S/MNTR +Monk/M/MNK +monk/MS/MNK +monkey/SMDG/MNK +monkeyshine/S/MNKXN +monkish//MNKX +monkshood/SM/MNKXT +Monmouth/M/MNM@ +mono/MS/MN +monochromatic//MNXRMTK +monochromator//MNXRMT +monochrome/MS/MNXRM +monocle/SDM/MNKL +monoclinic//MNKLNK +monoclonal/S/MNKLNL +monocotyledon/SM/MNKTLTN +monocotyledonous//MNKTLTNS +monocular/SY/MNKL +monodic//MNTK +monodist/S/MNTST +monody/MS/MNT +monogamist/MS/MNKMST +monogamous/PY/MNKMS +monogamy/MS/MNKM +monogram/MS/MNKRM +monogrammed//MNKRMT +monogramming//MNKRMN +monograph/GMDS/MNKRF +monographs//MNKRFS +monolingual/S/MNLNL +monolingualism//MNLNLSM +monolith/M/MNL@ +monolithic//MNL@K +monolithically//MNL@KL +monoliths//MNL@S +monologist/S/MNLKST +monologue/GMSD/MNLK +monomania/MS/MNMN +monomaniac/MS/MNMNK +monomaniacal//MNMNKL +monomer/SM/MNM +monomeric//MNMRK +monomial/SM/MNML +Monongahela/M/MNNKHL +mononuclear//MNNKL +mononucleoses//MNNKLSS +mononucleosis/M/MNNKLSS +monophonic//MNFNK +monoplane/MS/MNPLN +monopole/S/MNPL +monopolist/MS/MNPLST +monopolistic//MNPLSTK +monopolization/MS/MNPLSXN +monopolize/GZDSR/MNPLS +monopolized/U/MNPLST +monopolizes/U/MNPLSS +monopoly/MS/MNPL +monorail/SM/MNRL +monostable//MNSTBL +monosyllabic//MNSLBK +monosyllable/MS/MNSLBL +monotheism/SM/MN@SM +monotheist/S/MN@ST +monotheistic//MN@STK +monotone/SDMG/MNTN +monotonic//MNTNK +monotonically//MNTNKL +monotonicity//MNTNST +monotonous/YP/MNTNS +monotonousness/MS/MNTNSNS +monotony/MS/MNTN +monoxide/SM/MNKST +Monro/M/MNR +Monroe/M/MNR +Monrovia/M/MNRF +Monsanto/M/MNSNT +monseigneur//MNSKN +monsieur/M/MNS +Monsignor/MS/MNSKN +monsignor/S/MNSKN +Monsignori//MNSKNR +monsoon/MS/MNSN +monsoonal//MNSNL +monster/SM/MNST +monstrance/ASM/MNSTRNS +monstrosity/SM/MNSTRST +monstrous/YP/MNSTRS +monstrousness/M/MNSTRSNS +Mont/M/MNT +montage/SDMG/MNTK +Montague/M/MNTK +Montaigne/M/MNTKN +Montana/M/MNTN +Montanan/MS/MNTNN +Montcalm/M/MNTKLM +Montclair/M/MNTKL +Monte/M/MNT +Montenegrin//MNTNKRN +Montenegro/M/MNTNKR +Monterey/M/MNTR +Monterrey/M/MNTR +Montesquieu/M/MNTSK +Montessori/M/MNTSR +Monteverdi/M/MNTFT +Montevideo/M/MNTFT +Montezuma//MNTSM +Montgomery/M/MNTKMR +month/MY/MN@ +monthly/S/MN@L +months//MN@S +Monti/M/MNT +Monticello/M/MNTSL +Montmartre/M/MNTMTR +Montoya/M/MNTY +Montpelier/M/MNTPL +Montrachet/M/MNTRXT +Montreal/M/MNTRL +Montserrat/M/MNTSRT +Monty/M/MNT +monument/DMSG/MNMNT +monumental/Y/MNMNTL +monumentality/M/MNMNTLT +moo/GSD/M +mooch/ZSRDG/MX +mood/MS/MT +moodily//MTL +moodiness/MS/MTNS +Moody/M/MT +moody/PTR/MT +Moog//MK +moon/GDMS/MN +Moon/M/MN +moonbeam/SM/MNBM +Mooney/M/MN +moonless//MNLS +moonlight/GZDRMS/MNLT +moonlighting/M/MNLTN +moonlit//MNLT +moonscape/MS/MNSKP +moonshine/SRZM/MNXN +moonshiner/M/MNXN +moonshot/MS/MNXT +moonstone/SM/MNSTN +moonstruck//MNSTRK +moonwalk/SDG/MNWLK +moor/GDMJS/M +Moor/MS/M +Moore/M/MR +mooring/M/MRN +Moorish//MRX +moorland/MS/MLNT +moose/M/MS +moot/RDGS/MT +mop/SZGMDR/MP +mope/S/MP +moped/MS/MPT +moper/M/MP +mopey//MP +mopier//MP +mopiest//MPST +mopish//MPX +mopped//MPT +moppet/MS/MPT +mopping//MPN +Mora/M/MR +moraine/MS/MRN +moral/SMY/MRL +morale/MS/MRL +Morales/M/MRLS +moralist/MS/MRLST +moralistic//MRLSTK +moralistically//MRLSTKL +morality/UMS/MRLT +moralization/CS/MRLSXN +moralize/CGDRSZ/MRLS +moralled//MRLT +moraller//MRL +moralling//MRLN +Moran/M/MRN +morass/SM/MRS +moratorium/SM/MRTRM +Moravia/M/MRF +Moravian//MRFN +moray/SM/MR +morbid/YP/MBT +morbidity/SM/MBTT +morbidness/S/MBTNS +Mord/M/MT +mordancy/MS/MTNS +mordant/GDYS/MTNT +Mordecai/M/MTK +Mordred/M/MTRT +Mordy/M/MT +more/DSN/MR +More/M/MR +Moreen/M/MRN +Morehouse/M/MRHS +morel/SM/MRL +Moreland/M/MRLNT +Morena/M/MRN +Moreno/M/MRN +moreover//MRF +Morey/M/MR +Morgan/MS/MKN +Morgana/M/MKN +Morganica/M/MKNK +Morganne/M/MKN +morgen/M/MKN +Morgen/M/MKN +morgue/SM/MK +Morgun/M/MKN +Moria/M/MR +Moriarty/M/MRT +moribund/Y/MRBNT +moribundity/M/MRBNTT +Morie/M/MR +Morin/M/MRN +morion/M/MRN +Morison/M/MRSN +Morissa/M/MRS +Morita/M/MRT +Moritz/M/MRTS +Morlee/M/ML +Morley/M/ML +Morly/M/ML +Mormon/SM/MMN +Mormonism/MS/MMNSM +morn/SGJDM/MN +Morna/M/MN +morning/MY/MNN +Moro/M/MR +Moroccan/S/MRKN +Morocco/M/MRK +morocco/SM/MRK +moron/SM/MRN +Moroni/M/MRN +moronic//MRNK +moronically//MRNKL +morose/YP/MRS +moroseness/MS/MRSNS +morph/GDJ/MF +morpheme/DSMG/MFM +morphemic/S/MFMK +Morpheus/M/MFS +morphia/S/MF +morphine/MS/MFN +morphism/MS/MFSM +morphologic//MFLKK +morphological/Y/MFLKKL +morphology/MS/MFLK +morphophonemic/S/MFFNMK +morphophonemics/M/MFFNMKS +morphs//MFS +Morrie/M/MR +morris//MRS +Morris/M/MRS +Morrison/M/MRSN +Morristown/M/MRSTN +Morrow/M/MR +morrow/MS/MR +Morry/M/MR +Morse/M/MS +morsel/GMDS/MSL +Mort/MN/MT +mortal/SY/MTL +mortality/SM/MTLT +mortar/GSDM/MT +mortarboard/SM/MTBT +Morten/M/MTN +mortgage/MGDS/MTKK +mortgageable//MTKKBL +mortgagee/SM/MTKK +mortgagor/SM/MTKK +mortice's//MTSS +mortician/SM/MTXN +Mortie/M/MT +mortification/M/MTFKXN +mortified/Y/MTFT +mortifier/M/MTF +mortify/DRSXGN/MTF +Mortimer/M/MTM +mortise/MGSD/MTS +Morton/M/MTN +mortuary/MS/MTR +Morty/M/MT +mos/S/MS +Mosaic//MSK +mosaic/MS/MSK +mosaicked//MSKT +mosaicking//MSKN +Moscone/M/MSKN +Moscow/M/MSK +Mose/MSR/MS +Moseley/M/MSL +Moselle/M/MSL +Moser/M/MS +mosey/SGD/MS +Moshe/M/MX +Moslem's//MSLMS +Mosley/M/MSL +mosque/SM/MSK +mosquito/M/MSKT +mosquitoes//MSKTS +Moss/M/MS +moss/SDMG/MS +mossback/MS/MSBK +Mossberg/M/MSBK +mossy/SRT/MS +most/SY/MST +Mosul/M/MSL +mot/MSV/MT +mote/ASCNK/MT +motel/MS/MTL +mote's//MTS +motet/SM/MTT +moth/ZMR/M@ +mothball/DMGS/M@BL +mother/RDYMZG/M@ +motherboard/MS/M@BT +motherfucker/MS/M@FK +motherfucking//M@FKN +motherhood/SM/M@HT +mothering/M/M@RN +motherland/SM/M@LNT +motherless//M@LS +motherliness/MS/M@LNS +motherly/P/M@L +moths//M@S +motif/MS/MTF +motile/S/MTL +motility/MS/MTLT +motion/GRDMS/MXN +motional/K/MXNL +motioner/M/MXN +motionless/YP/MXNLS +motionlessness/S/MXNLSNS +motion's/ACK/MXNS +motions/K/MXNS +motivate/XDSNGV/MTFT +motivated/U/MTFTT +motivation/M/MTFXN +motivational/Y/MTFXNL +motivator/S/MTFT +motive/MGSD/MTF +motiveless//MTFLS +motley/S/MTL +motlier//MTL +motliest//MTLST +motocross/SM/MTKRS +motor/DMSG/MT +motorbike/SDGM/MTBK +motorboat/MS/MTBT +motorcade/MSDG/MTKT +motorcar/MS/MTK +motorcycle/GMDS/MTSKL +motorcyclist/SM/MTSKLST +motoring/M/MTRN +motorist/SM/MTRST +motorization/SM/MTRSXN +motorize/DSG/MTRS +motorized/U/MTRST +motorman/M/MTMN +motormen//MTMN +motormouth//MTM@ +motormouths//MTM@S +Motorola/M/MTRL +motorway/SM/MTW +Motown/M/MTN +Mott/M/MT +mottle/GSRD/MTL +mottler/M/MTL +motto/M/MT +mottoes//MTS +moue/DSMG/M +moulder/DSG/MLT +moult/GSD/MLT +mound/GMDS/MNT +mount/EGACD/MNT +Mount/M/MNT +mountable//MNTBL +mountain/SM/MNTN +mountaineer/JMDSG/MNTN +mountaineering/M/MNTNRN +mountainous/PY/MNTNS +mountainousness/M/MNTNSNS +mountainside/MS/MNTNST +mountaintop/SM/MNTNTP +Mountbatten/M/MNTBTN +mountebank/SGMD/MNTBNK +mounted/U/MNTT +mounter/SM/MNT +Mountie/SM/MNT +mounties//MNTS +mounting/MS/MNTN +mounts/AE/MNTS +mourn/ZGSJRD/MN +mourner/M/MN +mournful/YP/MNFL +mournfuller//MNFL +mournfullest//MNFLST +mournfulness/S/MNFLNS +mourning/M/MNN +mouse/SRDGMZ/MS +mouser/M/MS +mousetrap/SM/MSTRP +mousetrapped//MSTRPT +mousetrapping//MSTRPN +mousiness/MS/MSNS +mousing/M/MSN +mousse/MGSD/MS +Moussorgsky/M/MSKSK +mousy/PRT/MS +mouth/MSRDG/M@ +Mouthe/M/M@ +mouthful/MS/M@FL +mouthiness/SM/M@NS +mouthorgan//M@KN +mouthpiece/SM/M@PS +mouths//M@S +mouthwash/SM/M@WX +mouthwatering//M@WTRN +mouthy/PTR/M@ +Mouton/M/MTN +mouton/SM/MTN +movable/ASP/MFBL +movableness/AM/MFBLNS +move/ARSDGZB/MF +moved/U/MFT +movement/SM/MFMNT +mover/AM/MF +movie/SM/MF +moviegoer/S/MFK +moving/YS/MFN +mow/SDRZG/M +mower/M/MW +Mowgli/M/MKL +mowing/M/MWN +moxie/MS/MKS +Moyer/M/MY +Moyna/M/MN +Moyra/M/MR +Mozambican/S/MSMBKN +Mozambique/M/MSMBK +Mozart/M/MST +Mozelle/M/MSL +Mozes/M/MSS +mozzarella/MS/MSRL +mp//MP +MP//MP +mpg//MPK +mph//MF +MPH//MF +Mr/M/MR +MRI//MR +Mrs//MRS +ms//MS +M's//MS +MS//MS +m's/K/MS +Ms/S/MS +MSG//MSK +Msgr/M/MSKR +MST//MST +MSW//MS +mt//MT +MT//MT +Mt/M/MT +mtg//MTK +mtge//MTK +MTS//MTS +MTV//MTF +mu/M/M +Muawiya/M/MWY +Mubarak/M/MBRK +much/SP/MX +muchness/M/MXNS +mucilage/MS/MSLK +mucilaginous//MSLKNS +muck/GRDMS/MK +mucker/M/MK +muckrake/ZMDRSG/MKRK +muckraker/M/MKRK +mucky/RT/MK +mucosa/M/MKS +mucous//MKS +mucus/SM/MKS +mud/MS/MT +mudded//MTT +muddily//MTL +muddiness/SM/MTNS +mudding//MTN +muddle/GRSDZ/MTL +muddlehead/SMD/MTLHT +muddleheaded/P/MTLHTT +muddler/M/MTL +muddy/TPGRSD/MT +mudflat/S/MTFLT +mudguard/SM/MTKT +mudlarks//MTLKS +mudroom/S/MTRM +mudslide/S/MTSLT +mudsling/JRGZ/MTSLN +mudslinger/M/MTSLN +mudslinging/M/MTSLNN +Mueller/M/ML +Muenster//MNST +muenster/MS/MNST +muesli/M/MSL +muezzin/MS/MSN +muff/GDMS/MF +Muffin/M/MFN +muffin/SM/MFN +muffle/ZRSDG/MFL +muffler/M/MFL +Mufi/M/MF +Mufinella/M/MFNL +mufti/MS/MFT +mug/SM/MK +Mugabe/M/MKB +mugged//MKT +mugger/SM/MK +mugginess/S/MKNS +mugging/S/MKN +muggy/RPT/MK +mugshot/S/MKXT +mugwump/MS/MKWMP +Muhammad/M/MHMT +Muhammadan/SM/MHMTN +Muhammadanism/S/MHMTNSM +Muir/M/M +Muire/M/MR +Mukden/M/MKTN +mukluk/SM/MKLK +mulatto/M/MLT +mulattoes//MLTS +mulberry/MS/MLBR +mulch/GMSD/MLX +mulct/SDG/MLKT +Mulder/M/MLT +mule/MGDS/ML +muleskinner/S/MLSKN +muleteer/MS/MLT +mulish/YP/MLX +mulishness/MS/MLXNS +mull/RDSG/ML +mullah/M/ML +mullahs//MLS +mullein/MS/MLN +Mullen/M/MLN +muller/M/ML +Muller/M/ML +mullet/MS/MLT +Mulligan/M/MLKN +mulligan/SM/MLKN +mulligatawny/SM/MLKTN +Mullikan/M/MLKN +Mullins//MLNS +mullion/MDSG/MLN +Multan/M/MLTN +multi//MLT +Multibus/M/MLTBS +multicellular//MLTSLL +multichannel/M/MLTXNL +multicollinearity/M/MLTKLNRT +multicolor/SDM/MLTKL +multicolumn//MLTKLMN +multicomponent//MLTKMPNNT +multicomputer/MS/MLTKMPT +Multics/M/MLTKS +MULTICS/M/MLTKS +multicultural//MLTKLTRL +multiculturalism/S/MLTKLTRLSM +multidimensional//MLTTMNXNL +multidimensionality//MLTTMNXNLT +multidisciplinary//MLTTSPLNR +multifaceted//MLTFSTT +multifamily//MLTFML +multifarious/YP/MLTFRS +multifariousness/SM/MLTFRSNS +multifigure//MLTFKR +multiform//MLTFM +multifunction/D/MLTFNKXN +multilateral/Y/MLTLTRL +multilayer//MLTLY +multilevel/D/MLTLFL +multilingual//MLTLNL +multilingualism/S/MLTLNLSM +multimedia/S/MLTMT +multimegaton/M/MLTMKTN +multimeter/M/MLTMT +multimillionaire/SM/MLTMLNR +multinational/S/MLTNXNL +multinomial/M/MLTNML +multiphase//MLTFS +multiple/SM/MLTPL +multiplet/SM/MLTPLT +multiplex/GZMSRD/MLTPLKS +multiplexor's//MLTPLKSS +multipliable//MLTPLBL +multiplicand/SM/MLTPLKNT +multiplication/M/MLTPLKXN +multiplicative/YS/MLTPLKTF +multiplicity/MS/MLTPLST +multiplier/M/MLTPL +multiply/ZNSRDXG/MLTPL +multiprocess/G/MLTPRSS +multiprocessor/MS/MLTPRSS +multiprogram//MLTPRKRM +multiprogrammed//MLTPRKRMT +multiprogramming/MS/MLTPRKRMN +multipurpose//MLTPPS +multiracial//MLTRXL +multistage//MLTSTK +multistory/S/MLTSTR +multisyllabic//MLTSLBK +multitasking/S/MLTTSKN +multitude/MS/MLTTT +multitudinous/YP/MLTTTNS +multitudinousness/M/MLTTTNSNS +multiuser//MLTS +multivalent//MLTFLNT +multivalued//MLTFLT +multivariate//MLTFRT +multiversity/M/MLTFST +multivitamin/S/MLTFTMN +mum/MS/MM +mumble/ZJGRSD/MMBL +mumbler/M/MMBL +mumbletypeg/S/MMBLTPK +Mumford/M/MMFT +mummed//MMT +mummer/SM/MM +mummery/MS/MMR +mummification/M/MMFKXN +mummify/XSDGN/MMF +mumming//MMN +mummy/GSDM/MM +mumps/M/MMPS +mun/S/MN +Munch/M/MNX +munch/ZRSDG/MNX +muncher/M/MNX +Münchhausen/M/MNXHSN +munchies//MNXS +Muncie/M/MNS +mundane/YSP/MNTN +Mundt/M/MNTT +munge/JGZSRD/MNK +Munich/M/MNX +municipal/YS/MNSPL +municipality/SM/MNSPLT +munificence/MS/MNFSNS +munificent/Y/MNFSNT +munition/SDG/MNXN +Munmro/M/MNMR +Munoz/M/MNS +Munro/M/MNR +Munroe/M/MNR +Munsey/M/MNS +Munson/M/MNSN +Munster/MS/MNST +muon/M/MN +Muong/M/MNK +Muppet/M/MPT +mural/SM/MRL +muralist/SM/MRLST +Murasaki/M/MRSK +Murat/M/MRT +Murchison/M/MXSN +Murcia/M/MX +murder/GZRDMS/MT +murderer/M/MTR +murderess/S/MTRS +murderous/YP/MTRS +murderousness/M/MTRSNS +Murdoch/M/MTX +Murdock/M/MTK +Mureil/M/MRL +Murial/M/MRL +muriatic//MRTK +Muriel/M/MRL +Murielle/M/MRL +Murillo/M/MRL +murk/TRMS/MK +murkily//MKL +murkiness/S/MKNS +murky/RPT/MK +Murmansk/M/MMNSK +murmur/RDMGZSJ/MM +murmurer/M/MMR +murmuring/U/MMRN +murmurous//MMRS +Murphy/M/MF +murrain/SM/MRN +Murray/M/MR +Murrow/M/MR +Murrumbidgee/M/MRMBK +Murry/M/MR +Murvyn/M/MFN +mus/GJDSR/MS +Muscat/M/MSKT +muscat/SM/MSKT +muscatel/MS/MSKTL +muscle/SDMG/MSKL +musclebound//MSKLBNT +Muscovite/M/MSKFT +muscovite/MS/MSKFT +Muscovy/M/MSKF +muscular/Y/MSKL +muscularity/SM/MSKLRT +musculature/SM/MSKLTR +muse//MS +Muse/M/MS +muser/M/MS +musette/SM/MST +museum/MS/MSM +mush/MSRDG/MX +musher/M/MX +mushiness/MS/MXNS +mushroom/DMSG/MXRM +mushy/PTR/MX +Musial/M/MXL +music/SM/MSK +musical/YU/MSKL +musicale/SM/MSKL +musicality/SM/MSKLT +musicals//MSKLS +musician/MYS/MSXN +musicianship/MS/MSXNXP +musicked//MSKT +musicking//MSKN +musicological//MSKLKKL +musicologist/MS/MSKLKST +musicology/MS/MSKLK +musing/Y/MSN +musk/GDMS/MSK +muskeg/SM/MSKK +Muskegon/M/MSKKN +muskellunge/SM/MSKLNK +musket/SM/MSKT +musketeer/MS/MSKT +musketry/MS/MSKTR +muskie/M/MSK +muskiness/MS/MSKNS +muskmelon/MS/MSKMLN +muskox/N/MSKKS +muskrat/MS/MSKRT +musky/RSPT/MSK +Muslim/MS/MSLM +muslin/MS/MSLN +muss/SDG/MS +mussel/MS/MSL +Mussolini/MS/MSLN +Mussorgsky/M/MSKSK +mussy/RT/MS +must/RDGZS/MST +mustache/DSM/MSTX +mustachio/MDS/MSTX +mustang/MS/MSTNK +mustard/MS/MSTT +muster/GD/MST +mustily//MSTL +mustiness/MS/MSTNS +mustn't//MSTNT +must've//MSTF +musty/RPT/MST +mutability/SM/MTBLT +mutable/P/MTBL +mutableness/M/MTBLNS +mutably//MTBL +mutagen/SM/MTKN +mutant/MS/MTNT +mutate/XVNGSD/MTT +mutation/M/MTXN +mutational/Y/MTXNL +mutator/S/MTT +mute/PDSRBYTG/MT +muted/Y/MTT +muteness/S/MTNS +mutilate/XDSNG/MTLT +mutilation/M/MTLXN +mutilator/MS/MTLT +mutineer/SMDG/MTN +mutinous/Y/MTNS +mutiny/MGSD/MTN +Mutsuhito/M/MTSHT +mutt/ZSMR/MT +mutter/GZRDJ/MT +mutterer/M/MTR +mutton/SM/MTN +muttonchops//MTNXPS +mutual/SY/MTL +mutuality/S/MTLT +muumuu/MS/MM +muzak//MSK +Muzak/SM/MSK +Muzo/M/MS +muzzle/MGRSD/MSL +muzzled/U/MSLT +muzzler/M/MSL +MVP//MFP +MW//M +My/M/M +my/S/M +Myanmar//MYNM +Myca/M/MK +Mycah/M/MK +Mycenae/M/MSN +Mycenaean//MSNN +Mychal/M/MXL +mycologist/MS/MKLKST +mycology/MS/MKLK +myelitides//MYLTTS +myelitis/M/MYLTS +Myer/MS/MY +myers//MYS +mylar//ML +Mylar/S/ML +Myles/M/MLS +Mylo/M/ML +myna/SM/MN +Mynheer/M/MNH +myocardial//MYKTL +myocardium/M/MYKTM +myopia/MS/MYP +myopic/S/MYPK +myopically//MYPKL +Myra/M/MR +Myrah/M/MR +Myranda/M/MRNT +Myrdal/M/MRTL +myriad/S/MRT +Myriam/M/MRM +Myrilla/M/MRL +Myrle/M/MRL +Myrlene/M/MRLN +myrmidon/S/MRMTN +Myrna/M/MRN +Myron/M/MRN +myrrh/M/MRH +myrrhs//MRHS +Myrta/M/MRT +Myrtia/M/MRX +Myrtice/M/MRTS +Myrtie/M/MRT +Myrtle/M/MRTL +myrtle/SM/MRTL +Myrvyn/M/MRFN +Myrwyn/M/MRN +mys//MS +myself//MSLF +Mysore/M/MSR +Myst/M/MST +mysterious/YP/MSTRS +mysteriousness/MS/MSTRSNS +mystery/MDSG/MSTR +mystic/SM/MSTK +mystical/Y/MSTKL +mysticism/MS/MSTSSM +mystification/M/MSTFKXN +mystifier/M/MSTF +mystify/CSDGNX/MSTF +mystifying/Y/MSTFYN +mystique/MS/MSTK +myth/MS/M@ +mythic//M@K +mythical/Y/M@KL +mythographer/SM/M@KRF +mythography/M/M@KRF +mythological/Y/M@LKKL +mythologist/MS/M@LKST +mythologize/CSDG/M@LKS +mythology/SM/M@LK +myths//M@S +N//N +n/T/N +Na/M/N +NAACP//NKP +nab/S/NB +nabbed//NBT +nabbing//NBN +Nabisco/M/NBSK +nabob/SM/NBB +Nabokov/M/NBKF +nacelle/SM/NSL +nacho/S/NX +NaCl/M/NKL +nacre/MS/NKR +nacreous//NKRS +Nada/M/NT +Nadean/M/NTN +Nadeen/M/NTN +Nader/M/NT +Nadia/M/NT +Nadine/M/NTN +nadir/SM/NT +Nadiya/M/NTY +Nady/M/NT +Nadya/M/NTY +nae/VM/N +nag/MS/NK +Nagasaki/M/NKSK +nagged//NKT +nagger/S/NK +nagging/Y/NKN +Nagoya/M/NKY +Nagpur/M/NKP +Nagy/M/NK +Nahuatl/SM/NHTL +Nahum/M/NHM +naiad/SM/NT +naifs//NFS +nail/SGMRD/NL +nailbrush/SM/NLBRX +nailer/M/NL +Naipaul/M/NPL +Nair/M/N +Nairobi/M/NRB +Naismith/M/NSM@ +naive/SRTYP/NF +naiveté/SM/NFT +naivety/MS/NFT +Nakamura/M/NKMR +Nakayama/M/NKYM +naked/TYRP/NKT +nakedness/MS/NKTNS +Nakoma/M/NKM +Nalani/M/NLN +Nam/M/NM +Namath/M/NM@ +name/ADSG/NM +nameable/U/NMBL +named/U/NMT +namedrop//NMTRP +namedropping//NMTRPN +named's//NMTS +nameless/PY/NMLS +namely//NML +nameplate/MS/NMPLT +namer/SM/NM +name's//NMS +namesake/SM/NMSK +Namibia/M/NMB +Namibian/S/NMBN +naming/M/NMN +Nan/M/NN +Nana/M/NN +Nanak/M/NNK +Nananne/M/NNN +Nance/M/NNS +Nancee/M/NNS +Nancey/M/NNS +Nanchang/M/NNXNK +Nanci/M/NNS +Nancie/M/NNS +Nancy/M/NNS +Nanete/M/NNT +Nanette/M/NNT +Nani/M/NN +Nanice/M/NNS +Nanine/M/NNN +Nanjing//NNKN +Nanking's//NNKNS +Nannette/M/NNT +Nanni/M/NN +Nannie/M/NN +Nanny/M/NN +nanny/SDMG/NN +nanometer/MS/NNMT +Nanon/M/NNN +Nanook/M/NNK +nanosecond/SM/NNSKNT +Nansen/M/NNSN +Nantes/M/NNTS +Nantucket/M/NNTKT +Naoma/M/NM +Naomi/M/NM +Nap/M/NP +nap/SM/NP +napalm/MDGS/NPLM +nape/SM/NP +Naphtali/M/NFTL +naphtha/SM/NF@ +naphthalene/MS/NF@LN +Napier/M/NP +napkin/SM/NPKN +Naples/M/NPLS +napless//NPLS +napoleon/MS/NPLN +Napoleon/MS/NPLN +Napoleonic//NPLNK +napped//NPT +napper/MS/NP +Nappie/M/NP +napping//NPN +Nappy/M/NP +nappy/TRSM/NP +Nara/M/NR +Narbonne/M/NBN +narc/DGS/NK +narcissism/MS/NSSSM +narcissist/MS/NSSST +narcissistic//NSSSTK +narcissus/M/NSSS +Narcissus/M/NSSS +narcoleptic//NKLPTK +narcoses//NKSS +narcosis/M/NKSS +narcotic/SM/NKTK +narcotization/S/NKTSXN +narcotize/GSD/NKTS +Nari/M/NR +Nariko/M/NRK +nark's//NKS +Narmada/M/NMT +Narragansett/M/NRKNST +narrate/VGNSDX/NRT +narration/M/NRXN +narrative/MYS/NRTF +narratology//NRTLK +narrator/SM/NRT +narrow/RDYTGPS/NR +narrowing/P/NRWN +narrowness/SM/NRNS +narwhal/MS/NHL +nary//NR +NASA/MS/NS +nasal/YS/NSL +nasality/MS/NSLT +nasalization/MS/NSLSXN +nasalize/GDS/NSLS +nascence/ASM/NSNS +nascent/A/NSNT +NASDAQ//NSTK +Nash/M/NX +Nashua/M/NX +Nashville/M/NXFL +Nassau/M/NS +Nasser/M/NS +nastily//NSTL +nastiness/MS/NSTNS +nasturtium/SM/NSTTM +nasty/TRSP/NST +Nat/M/NT +Nata/M/NT +natal//NTL +Natal/M/NTL +Natala/M/NTL +Natale/M/NTL +Natalee/M/NTL +Natalia/M/NTL +Natalie/M/NTL +Natalina/M/NTLN +Nataline/M/NTLN +natalist//NTLST +natality/M/NTLT +Natalya/M/NTLY +Nataniel/M/NTNL +Natasha/M/NTX +Natassia/M/NTX +natch/S/NX +Natchez//NXS +Nate/XMN/NT +Nathalia/M/N@L +Nathalie/M/N@L +Nathan/MS/N@N +Nathanael/M/N@NL +Nathanial/M/N@NL +Nathaniel/M/N@NL +Nathanil/M/N@NL +nation/MS/NXN +national/YS/NXNL +nationalism/SM/NXNLSM +nationalist/MS/NXNLST +nationalistic//NXNLSTK +nationalistically//NXNLSTKL +nationality/MS/NXNLT +nationalization/MS/NXNLSXN +nationalize/CSDG/NXNLS +nationalized/AU/NXNLST +nationalizer/SM/NXNLS +nationhood/SM/NXNHT +nationwide//NXNWT +native/PYS/NTF +nativeness/M/NTFNS +Natividad/M/NTFTT +Nativity/M/NTFT +nativity/MS/NTFT +Natka/M/NTK +natl//NTL +NATO/SM/NT +natter/SGD/NT +nattily//NTL +nattiness/SM/NTNS +Natty/M/NT +natty/TRP/NT +natural/PUY/NTRL +naturalism/MS/NTRLSM +naturalist/MS/NTRLST +naturalistic//NTRLSTK +naturalization/SM/NTRLSXN +naturalize/GSD/NTRLS +naturalized/U/NTRLST +naturalness/US/NTRLNS +naturals//NTRLS +nature/ASDCG/NTR +nature's//NTRS +naturist//NTRST +Naugahyde/S/NKHT +naught/MS/NT +naughtily//NTL +naughtiness/SM/NTNS +naughty/TPRS/NT +Naur/M/N +Nauru/M/NR +nausea/SM/NS +nauseate/DSG/NST +nauseating/Y/NSTN +nauseous/P/NSS +nauseousness/SM/NSSNS +nautical/Y/NTKL +nautilus/MS/NTLS +Navaho's//NFHS +Navajo/S/NFK +Navajoes//NFKS +naval/Y/NFL +Navarro/M/NFR +nave/SM/NF +navel/MS/NFL +navigability/SM/NFKBLT +navigable/P/NFKBL +navigableness/M/NFKBLNS +navigate/DSXNG/NFKT +navigation/M/NFKXN +navigational//NFKXNL +navigator/MS/NFKT +Navona/M/NFN +Navratilova/M/NFRTLF +navvy/M/NFF +Navy/S/NF +navy/SM/NF +nay/MS/N +naysayer/S/NSY +Nazarene/MS/NSRN +Nazareth/M/NSR@ +Nazi/SM/NS +Nazism/S/NSSM +NB//NB +Nb/M/NB +NBA//NB +NBC//NBK +NBS//NBS +NC//NK +NCAA//NK +NCC//NK +NCO//NK +NCR//NKR +ND//NT +nd/A/NT +Nd/M/NT +N'Djamena//NTKMN +Ndjamena/M/NTKMN +Ne//N +NE//N +Neal/M/NL +Neala/M/NL +Neale/M/NL +Neall/M/NL +Nealon/M/NLN +Nealson/M/NLSN +Nealy/M/NL +Neanderthal/S/NNT@L +neap/DGS/NP +Neapolitan/SM/NPLTN +near/TYRDPSG/N +nearby//NB +nearly/RT/NL +nearness/MS/NNS +nearside/M/NST +nearsighted/YP/NSTT +nearsightedness/S/NSTTNS +neat/YRNTXPS/NT +neaten/DG/NTN +neath//N@ +neatness/MS/NTNS +Neb/M/NB +Nebr/M/NBR +Nebraska/M/NBRSK +Nebraskan/MS/NBRSKN +Nebuchadnezzar/MS/NBXTNS +nebula/M/NBL +nebulae//NBL +nebular//NBL +nebulous/PY/NBLS +nebulousness/SM/NBLSNS +necessaries//NSSRS +necessarily/U/NSSRL +necessary/U/NSSR +necessitate/DSNGX/NSSTT +necessitation/M/NSSTXN +necessitous//NSSTS +necessity/SM/NSST +neck/GRDMJS/NK +neckband/M/NKBNT +neckerchief/MS/NKXF +necking/M/NKN +necklace/DSMG/NKLS +neckline/MS/NKLN +necktie/MS/NKT +necrology/SM/NKRLK +necromancer/MS/NKRMNS +necromancy/MS/NKRMNS +necromantic//NKRMNTK +necrophilia/M/NKRFL +necrophiliac/S/NKRFLK +necropolis/SM/NKRPLS +necropsy/M/NKRPS +necroses//NKRSS +necrosis/M/NKRSS +necrotic//NKRTK +nectar/SM/NKT +nectarine/SM/NKTRN +nectarous//NKTRS +nectary/MS/NKTR +Ned/M/NT +Neda/M/NT +Nedda/M/NT +Neddie/M/NT +Neddy/M/NT +Nedi/M/NT +née//N +need/YRDGS/NT +needed/U/NTT +needer/M/NT +needful/YSP/NTFL +Needham/M/NTHM +neediness/MS/NTNS +needle/GMZRSD/NTL +needlecraft/M/NTLKRFT +needlepoint/SM/NTLPNT +needless/YP/NTLS +needlessness/S/NTLSNS +needlewoman/M/NTLWMN +needlewomen//NTLWMN +needlework/RMS/NTLWK +needn't//NTNT +needy/TPR/NT +Neel/M/NL +Neely/M/NL +ne'er//N +nefarious/YP/NFRS +nefariousness/MS/NFRSNS +Nefen/M/NFN +Nefertiti/M/NFTT +neg/S/NK +negate/XRSDVNG/NKT +negated/U/NKTT +negater/M/NKT +negation/M/NKXN +negative/PDSYG/NKTF +negativeness/SM/NKTFNS +negativism/MS/NKTFSM +negativity/MS/NKTFT +negator/MS/NKT +Negev/M/NKF +neglect/SDRG/NKLKT +neglecter/M/NKLKT +neglectful/YP/NKLKTFL +neglectfulness/SM/NKLKTFLNS +negligee/SM/NKLK +negligence/MS/NKLKNS +negligent/Y/NKLKNT +negligibility/M/NKLKBLT +negligible//NKLKBL +negligibly//NKLKBL +negotiability/MS/NKXBLT +negotiable/A/NKXBL +negotiant/M/NKXNT +negotiate/ASDXGN/NKXT +negotiation/MA/NKXXN +negotiator/MS/NKXT +Negress/MS/NKRS +negritude/MS/NKRTT +Negritude/S/NKRTT +Negro/M/NKR +Negroes//NKRS +negroid//NKRT +Negroid/S/NKRT +Nehemiah/M/NHM +Nehru/M/NR +neigh/MDG/N +neighbor/SMRDYZGJ/NB +neighbored/U/NBRT +neighborer/M/NBR +neighborhood/SM/NBHT +neighborliness/UM/NBLNS +neighborlinesses//NBLNSS +neighborly/UP/NBL +neighs//NS +Neil/SM/NL +Neila/M/NL +Neile/M/NL +Neill/M/NL +Neilla/M/NL +Neille/M/NL +neither//N@ +Nelda/M/NLT +Nelia/M/NL +Nelie/M/NL +Nell/M/NL +Nelle/M/NL +Nelli/M/NL +Nellie/M/NL +Nelly/M/NL +Nels/N/NLS +Nelsen/M/NLSN +Nelson/M/NLSN +nelson/MS/NLSN +nematic//NMTK +nematode/SM/NMTT +Nembutal/M/NMBTL +nemeses//NMSS +nemesis//NMSS +Nemesis/M/NMSS +neoclassic/M/NKLSK +neoclassical//NKLSKL +neoclassicism/MS/NKLSSSM +neocolonialism/MS/NKLNLSM +neocortex/M/NKTKS +neodymium/MS/NTMM +Neogene//NKN +neolithic//NL@K +Neolithic/M/NL@K +neologism/SM/NLKSM +neomycin/M/NMSN +neon/DMS/NN +neonatal/Y/NNTL +neonate/MS/NNT +neophyte/MS/NFT +neoplasm/SM/NPLSM +neoplastic//NPLSTK +neoprene/SM/NPRN +Nepal/M/NPL +Nepalese//NPLS +Nepali/MS/NPL +nepenthe/MS/NPN@ +nephew/MS/NF +nephrite/SM/NFRT +nephritic//NFRTK +nephritides//NFRTTS +nephritis/M/NFRTS +nepotism/MS/NPTSM +nepotist/S/NPTST +Neptune/M/NPTN +neptunium/MS/NPTNM +nerd/S/NT +nerdy/RT/NT +Nereid/M/NRT +Nerf/M/NF +Nerissa/M/NRS +Nerita/M/NRT +Nero/M/NR +Neron/M/NRN +Nert/M/NT +Nerta/M/NT +Nerte/M/NT +Nerti/M/NT +Nertie/M/NT +Nerty/M/NT +Neruda/M/NRT +nerve/UGSD/NF +nerveless/YP/NFLS +nervelessness/SM/NFLSNS +nerve's//NFS +nerviness/SM/NFNS +nerving/M/NFN +nervous/PY/NFS +nervousness/SM/NFSNS +nervy/TPR/NF +Nessa/M/NS +Nessi/M/NS +Nessie/M/NS +Nessy/M/NS +nest/RDGSBM/NST +Nesta/M/NST +nester/M/NST +Nester/M/NST +Nestle/M/NSTL +nestle/RSDG/NSTL +nestler/M/NSTL +nestling/M/NSTLN +Nestor/M/NST +Nestorius/M/NSTRS +net/SM/NT +netball/M/NTBL +nether//N@ +Netherlander/SM/N@LNT +Netherlands/M/N@LNTS +nethermost//N@MST +netherworld/S/N@WLT +Netscape/M/NTSKP +nett/JGRDS/NT +Netta/M/NT +Netti/M/NT +Nettie/M/NT +netting/M/NTN +Nettle/M/NTL +nettle/MSDG/NTL +nettlesome//NTLSM +Netty/M/NT +network/SJMDG/NTWK +Netzahualcoyotl/M/NTSHLKYTL +Neumann/M/NMN +neural/Y/NRL +neuralgia/MS/NRLK +neuralgic//NRLKK +neurasthenia/MS/NRS@N +neurasthenic/S/NRS@NK +neuritic/S/NRTK +neuritides//NRTTS +neuritis/M/NRTS +neuroanatomy//NRNTM +neurobiology/M/NRBLK +neurological/Y/NRLKKL +neurologist/MS/NRLKST +neurology/SM/NRLK +neuromuscular//NRMSKL +neuron/MS/NRN +neuronal//NRNL +neurone/S/NRN +neuropathology/M/NRP@LK +neurophysiology/M/NRFXLK +neuropsychiatric//NRPSXTRK +neuroses//NRSS +neurosis/M/NRSS +neurosurgeon/MS/NRSKN +neurosurgery/SM/NRSKR +neurotic/S/NRTK +neurotically//NRTKL +neurotransmitter/S/NRTRNSMT +neut/ZR/NT +neuter/JZGRD/NT +neutral/PYS/NTRL +neutralise's//NTRLSS +neutralism/MS/NTRLSM +neutralist/S/NTRLST +neutrality/MS/NTRLT +neutralization/MS/NTRLSXN +neutralize/GZSRD/NTRLS +neutralized/U/NTRLST +neutrino/MS/NTRN +neutron/MS/NTRN +Nev/M/NF +Neva/M/NF +Nevada/M/NFT +Nevadan/S/NFTN +Nevadian/S/NFTN +never//NF +nevermore//NFMR +nevertheless//NF@LS +nevi//NF +Nevil/M/NFL +Nevile/M/NFL +Neville/M/NFL +Nevin/SM/NFN +Nevis/M/NFS +Nevsa/M/NFS +Nevsky/M/NFSK +nevus/M/NFS +new/SPTGDRY/N +Newark/M/NWK +newbie/S/NB +newborn/S/NBN +Newbury/M/NBR +Newburyport/M/NBRPT +Newcastle/M/NKSTL +newcomer/MS/NKM +newed/A/NWT +newel/MS/NWL +Newell/M/NWL +newer/A/NW +newfangled//NFNKLT +newfound//NFNT +newfoundland//NFNTLNT +Newfoundland/SRMZ/NFNTLNT +Newfoundlander/M/NFNTLNT +newish//NWX +newline/SM/NLN +newlywed/MS/NLWT +Newman/M/NMN +newness/MS/NNS +Newport/M/NPT +news/A/NS +NeWS/M/NS +newsagent/MS/NSKNT +newsboy/SM/NSB +newscast/SRMGZ/NSKST +newscaster/M/NSKST +newscasting/M/NSKSTN +newsdealer/MS/NSTL +newsed//NST +newses//NSS +newsflash/S/NSFLX +newsgirl/S/NSKL +newsgroup/SM/NSKRP +newsing//NSN +newsletter/SM/NSLT +newsman/M/NSMN +newsmen//NSMN +newspaper/SMGD/NSPP +newspaperman/M/NSPPMN +newspapermen//NSPPMN +newspaperwoman/M/NSPPWMN +newspaperwomen//NSPPWMN +newsprint/MS/NSPRNT +newsreader/MS/NSRT +newsreel/SM/NSRL +newsroom/S/NSRM +news's//NSS +newsstand/MS/NSTNT +Newsweek/MY/NSWK +Newsweekly/M/NSWKL +newsweekly/S/NSWKL +newswire//NSWR +newswoman/M/NSWMN +newswomen//NSWMN +newsworthiness/SM/NSW@NS +newsworthy/RPT/NSW@ +newsy/TRS/NS +newt/MS/NT +Newton/M/NTN +newton/SM/NTN +Newtonian//NTNN +Nexis/M/NKSS +next//NKST +nexus/SM/NKSS +Neysa/M/NS +NF//NF +NFC//NFK +NFL//NFL +NFS//NFS +Ngaliema/M/NKLM +Nguyen/M/NKYN +NH//NH +NHL//NHL +Ni/M/N +niacin/SM/NSN +Niagara/M/NKR +Nial/M/NL +Niall/M/NL +Niamey/M/NM +nib/SM/NB +nibbed//NBT +nibbing//NBN +nibble/RSDGZ/NBL +nibbler/M/NBL +Nibelung/M/NBLNK +Nicaean//NKN +Nicaragua/M/NKRK +Nicaraguan/S/NKRKN +Niccolo/M/NKL +Nice/M/NS +nice/YTPR/NS +Nicene//NSN +niceness/MS/NSNS +nicety/MS/NST +niche/SDGM/NX +Nichol/MS/NXL +Nicholas//NXLS +Nichole/M/NXL +Nicholle/M/NXL +Nicholson/M/NXLSN +nichrome//NXRM +nick/GZRDMS/NK +Nick/M/NK +nickel/SGMD/NKL +nickelodeon/SM/NKLTN +nicker/GD/NK +Nickey/M/NK +Nicki/M/NK +Nickie/M/NK +Nicklaus/M/NKLS +nicknack's//NKNKS +nickname/MGDRS/NKNM +nicknamer/M/NKNM +Nicko/M/NK +Nickola/MS/NKL +Nickolai/M/NKL +Nickolaus/M/NKLS +Nicky/M/NK +Nico/M/NK +Nicobar/M/NKB +Nicodemus/M/NKTMS +Nicol/M/NKL +Nicola/MS/NKL +Nicolai/MS/NKL +Nicole/M/NKL +Nicolea/M/NKL +Nicolette/M/NKLT +Nicoli/MS/NKL +Nicolina/M/NKLN +Nicoline/M/NKLN +Nicolle/M/NKL +Nicosia/M/NKX +nicotine/MS/NKTN +Niebuhr/M/NBR +niece/MS/NS +Niel/MS/NL +Niels/N/NLS +Nielsen/M/NLSN +Nielson/M/NLSN +Nietzsche/M/NTSSK +Nieves/M/NFS +nifty/TRS/NFT +Nigel/M/NKL +Niger/M/NK +Nigeria/M/NKR +Nigerian/S/NKRN +Nigerien//NKRN +niggard/SGMDY/NKT +niggardliness/SM/NKTLNS +niggardly/P/NKTL +nigger/SGDM/NK +niggle/RSDGZJ/NKL +niggler/M/NKL +niggling/Y/NKLN +nigh/RDGT/N +nighs//NS +night/SMYDZ/NT +nightcap/SM/NTKP +nightclothes//NTKL@S +nightclub/MS/NTKLB +nightclubbed//NTKLBT +nightclubbing//NTKLBN +nightdress/MS/NTTRS +nightfall/SM/NTFL +nightgown/MS/NTKN +nighthawk/MS/N@K +nightie/MS/NT +Nightingale/M/NTNL +nightingale/SM/NTNL +nightlife/MS/NTLF +nightlong//NTLNK +nightmare/MS/NTMR +nightmarish/Y/NTMRX +nightshade/SM/NTXT +nightshirt/MS/NTXT +nightspot/MS/NTSPT +nightstand/SM/NTSTNT +nightstick/S/NTSTK +nighttime/S/NTM +nightwear/M/NTW +nighty's//NTS +NIH//N +nihilism/MS/NHLSM +nihilist/MS/NHLST +nihilistic//NHLSTK +Nijinsky/M/NKNSK +Nikaniki/M/NKNK +Nike/M/NK +Niki/M/NK +Nikita/M/NKT +Nikki/M/NK +Nikkie/M/NK +Nikko/M/NK +Niko/MS/NK +Nikola/MS/NKL +Nikolai/M/NKL +Nikolaos/M/NKLS +Nikolaus/M/NKLS +Nikolayev's//NKLYFS +Nikoletta/M/NKLT +Nikolia/M/NKL +Nikolos/M/NKLS +Nikon/M/NKN +Nil/MS/NL +nil/MYS/NL +Nile/SM/NL +nilled//NLT +nilling//NLN +nilpotent//NLPTNT +Nils/N/NLS +Nilsen/M/NLSN +Nilson/M/NLSN +Nilsson/M/NLSN +nimbi//NMB +nimble/TRP/NMBL +nimbleness/SM/NMBLNS +nimbly//NMBL +nimbus/DM/NMBS +NIMBY//NMB +Nimitz/M/NMTS +Nimrod/MS/NMRT +Nina/M/NN +nincompoop/MS/NNKMPP +nine/MS/NN +ninefold//NNFLT +ninepence/M/NNPNS +ninepin/S/NNPN +ninepins/M/NNPNS +nineteen/SMH/NNTN +nineteenths//NNTN@S +ninetieths//NNT@S +Ninetta/M/NNT +Ninette/M/NNT +ninety/MHS/NNT +Nineveh/M/NNF +ninja/S/NNK +Ninnetta/M/NNT +Ninnette/M/NNT +ninny/SM/NN +Ninon/M/NNN +Nintendo/M/NNTNT +ninth//NN@ +ninths//NN@S +Niobe/M/NB +niobium/MS/NBM +nip/S/NP +nipped//NPT +nipper/DMGS/NP +nippiness/S/NPNS +nipping/Y/NPN +nipple/GMSD/NPL +Nippon/M/NPN +Nipponese//NPNS +nippy/TPR/NP +Nirenberg/M/NRNBK +nirvana/MS/NFN +Nirvana/S/NFN +nisei//NS +Nisei/MS/NS +Nissa/M/NS +Nissan/M/NSN +Nisse/M/NS +Nissie/M/NS +Nissy/M/NS +nit/ZSMR/NT +Nita/M/NT +niter/M/NT +nitpick/DRSJZG/NTPK +nitrate/MGNXSD/NTRT +nitration/M/NTRXN +nitric//NTRK +nitride/MGS/NTRT +nitriding/M/NTRTN +nitrification/SM/NTRFKXN +nitrite/MS/NTRT +nitrocellulose/MS/NTRSLLS +nitrogen/SM/NTRKN +nitrogenous//NTRKNS +nitroglycerin/MS/NTRKLSRN +nitrous//NTRS +nitwit/MS/NTWT +Niven/M/NFN +nix/GDSR/NKS +nixer/M/NKS +Nixie/M/NKS +Nixon/M/NKSN +NJ//NK +Nkrumah/M/NKRM +NLRB//NLRB +nm//NM +NM//NM +no/A/N +No/M/N +NOAA//N +Noach/M/NX +Noah/M/N +Noak/M/NK +Noam/M/NM +Noami/M/NM +nob/MY/NB +Nobe/M/NB +Nobel/M/NBL +Nobelist/SM/NBLST +nobelium/MS/NBLM +Nobie/M/NB +nobility/MS/NBLT +Noble/M/NBL +noble/TPSR/NBL +nobleman/M/NBLMN +noblemen//NBLMN +nobleness/SM/NBLNS +noblesse/M/NBLS +noblewoman//NBLWMN +noblewomen//NBLWMN +nobody/MS/NBT +Noby/M/NB +nocturnal/SY/NKTNL +nocturne/SM/NKTN +nod/SM/NT +nodal/Y/NTL +nodded//NTT +nodding//NTN +noddle/MSDG/NTL +noddy/M/NT +node/MS/NT +NoDoz/M/NTS +nodular//NTL +nodule/SM/NTL +Noe/M/N +Noel/MS/NL +noel/S/NL +Noelani/M/NLN +Noell/M/NL +Noella/M/NL +Noelle/M/NL +Noellyn/M/NLN +Noelyn/M/NLN +Noemi/M/NM +noes/S/NS +noggin/SM/NKN +nohow//NH +noise/GMSD/NS +noiseless/YP/NSLS +noiselessness/SM/NSLSNS +noisemake/ZGR/NSMK +noisemaker/M/NSMK +noisily//NSL +noisiness/MS/NSNS +noisome//NSM +noisy/TPR/NS +Nola/M/NL +Nolan/M/NLN +Nolana/M/NLN +Noland/M/NLNT +Nolie/M/NL +Noll/M/NL +Nollie/M/NL +Nolly/M/NL +nomad/SM/NMT +nomadic//NMTK +Nome/M/NM +nomenclature/MS/NMNKLTR +Nomi/M/NM +nominal/K/NMNL +nominalized//NMNLST +nominally//NMNL +nominals//NMNLS +nominate/CDSAXNG/NMNT +nomination/MAC/NMNXN +nominative/SY/NMNTF +nominator/CSM/NMNT +nominee/MS/NMN +non//NN +Nona/M/NN +nonabrasive//NNBRSF +nonabsorbent/S/NNBSBNT +nonacademic/S/NNKTMK +nonacceptance/MS/NNSPTNS +nonacid/MS/NNST +nonactive//NNKTF +nonadaptive//NNTPTF +nonaddictive//NNTKTF +nonadhesive//NNTHSF +nonadjacent//NNTKSNT +nonadjustable//NNTKSTBL +nonadministrative//NNTMNSTRTF +nonage/MS/NNK +nonagenarian/MS/NNKNRN +nonaggression/SM/NNKRXN +nonagricultural//NNKRKLTRL +Nonah/M/NN +nonalcoholic/S/NNLKHLK +nonaligned//NNLN +nonalignment/SM/NNLKNMNT +nonallergic//NNLKK +nonappearance/MS/NNPRNS +nonassignable//NNSKNBL +nonathletic//NN@LTK +nonattendance/SM/NNTNTNS +nonautomotive//NNTMTF +nonavailability/SM/NNFLBLT +nonbasic//NNBSK +nonbeliever/SM/NNBLF +nonbelligerent/S/NNBLKRNT +nonblocking//NNBLKN +nonbreakable//NNBRKBL +nonburnable//NNBNBL +nonbusiness//NNBSNS +noncaloric//NNKLRK +noncancerous//NNKNSRS +noncarbohydrate/M/NNKBHTRT +nonce/MS/NNS +nonchalance/SM/NNXLNS +nonchalant/YP/NNXLNT +nonchargeable//NNXKBL +nonclerical/S/NNKLRKL +nonclinical//NNKLNKL +noncollectable//NNKLKTBL +noncom/MS/NNKM +noncombatant/MS/NNKMBTNT +noncombustible/S/NNKMBSTBL +noncommercial/S/NNKMXL +noncommissioned//NNKMXNT +noncommittal/Y/NNKMTL +noncommunicable//NNKMNKBL +noncompeting//NNKMPTN +noncompetitive//NNKMPTTF +noncompliance/MS/NNKMPLNS +noncomplying/S/NNKMPLYN +noncomprehending//NNKMPRHNTN +nonconducting//NNKNTKTN +nonconductor/MS/NNKNTKT +nonconforming//NNKNFMN +nonconformist/SM/NNKNFMST +nonconformity/SM/NNKNFMT +nonconsecutive//NNKNSKTF +nonconservative//NNKNSFTF +nonconstructive//NNKNSTRKTF +noncontagious//NNKNTKS +noncontiguous//NNKNTKS +noncontinuous//NNKNTNS +noncontributing//NNKNTRBTN +noncontributory//NNKNTRBTR +noncontroversial//NNKNTRFXL +nonconvertible//NNKNFTBL +noncooperation/SM/NNKPRXN +noncorroding/S/NNKRTN +noncorrosive//NNKRSF +noncredit//NNKRTT +noncriminal/S/NNKRMNL +noncritical//NNKRTKL +noncrystalline//NNKRSTLN +noncumulative//NNKMLTF +noncustodial//NNKSTTL +noncyclic//NNSKLK +nondairy//NNTR +nondecreasing//NNTKRSN +nondeductible//NNTTKTBL +nondelivery/MS/NNTLFR +nondemocratic//NNTMKRTK +nondenominational//NNTNMNXNL +nondepartmental//NNTPTMNTL +nondepreciating//NNTPRXTN +nondescript/YS/NNTSKRPT +nondestructive/Y/NNTSTRKTF +nondetachable//NNTTXBL +nondeterminacy//NNTTMNS +nondeterminate/Y/NNTTMNT +nondeterminism//NNTTMNSM +nondeterministic//NNTTMNSTK +nondeterministically//NNTTMNSTKL +nondisciplinary//NNTSPLNR +nondisclosure/SM/NNTSKLSR +nondiscrimination/SM/NNTSKRMNXN +nondiscriminatory//NNTSKRMNTR +nondramatic//NNTRMTK +nondrinker/SM/NNTRNK +nondrying//NNTRYN +nondurable//NNTRBL +none/S/NN +noneconomic//NNKNMK +noneducational//NNTKXNL +noneffective/S/NNFKTF +nonelastic//NNLSTK +nonelectric/S/NNLKTRK +nonelectrical//NNLKTRKL +nonemergency//NNMKNS +nonempty//NNMPT +nonenforceable//NNNFSBL +nonentity/MS/NNNTT +nonequivalence/M/NNKFLNS +nonequivalent/S/NNKFLNT +nones/M/NNS +nonessential/S/NNSNXL +nonesuch/SM/NNSX +nonetheless//NN@LS +nonevent/MS/NNFNT +nonexchangeable//NNKSXNKBL +nonexclusive//NNKSKLSF +nonexempt//NNKSMPT +nonexistence/MS/NNKSSTNS +nonexistent//NNKSSTNT +nonexplosive/S/NNKSPLSF +nonextensible//NNKSTNSBL +nonfactual//NNFKTL +nonfading//NNFTN +nonfat//NNFT +nonfatal//NNFTL +nonfattening//NNFTNN +nonferrous//NNFRS +nonfiction/SM/NNFKXN +nonfictional//NNFKXNL +nonflammable//NNFLMBL +nonflowering//NNFLWRN +nonfluctuating//NNFLKTTN +nonflying//NNFLYN +nonfood/M/NNFT +nonfreezing//NNFRSN +nonfunctional//NNFNKXNL +nongovernmental//NNKFNMNTL +nongranular//NNKRNL +nonhazardous//NNHSTS +nonhereditary//NNHRTTR +nonhuman//NNHMN +Noni/M/NN +nonidentical//NNTNTKL +Nonie/M/NN +noninclusive//NNNKLSF +nonindependent//NNNTPNTNT +nonindustrial//NNNTSTRL +noninfectious//NNNFKXS +noninflammatory//NNNFLMTR +noninflationary//NNNFLXNR +noninflected//NNNFLKTT +nonintellectual/S/NNNTLKTL +noninteracting//NNNTRKTN +noninterchangeable//NNNTXNKBL +noninterference/MS/NNNTFRNS +nonintervention/SM/NNNTFNXN +nonintoxicating//NNNTKSKTN +nonintuitive//NNNTTF +noninvasive//NNNFSF +nonionic//NNNK +nonirritating//NNRTTN +nonjudgmental//NNKTKMNTL +nonjudicial//NNKTXL +nonlegal//NNLKL +nonlethal//NNL@L +nonlinear/Y/NNLN +nonlinearity/MS/NNLNRT +nonlinguistic//NNLNSTK +nonliterary//NNLTRR +nonliving//NNLFN +nonlocal//NNLKL +nonmagical//NNMKKL +nonmagnetic//NNMKNTK +nonmalignant//NNMLKNNT +nonmember/SM/NNMMB +nonmetal/MS/NNMTL +nonmetallic//NNMTLK +nonmigratory//NNMKRTR +nonmilitant/S/NNMLTNT +nonmilitary//NNMLTR +Nonna/M/NN +Nonnah/M/NN +nonnarcotic/S/NNKTK +nonnative/S/NNTF +nonnegative//NNKTF +nonnegotiable//NNKXBL +nonnuclear//NNKL +nonnumerical/S/NNMRKL +nonobjective//NNBKKTF +nonobligatory//NNBLKTR +nonobservance/MS/NNBSFNS +nonobservant//NNBSFNT +nonoccupational//NNKPXNL +nonoccurence//NNKRNS +nonofficial//NNFXL +nonogenarian//NNKNRN +nonoperational//NNPRXNL +nonoperative//NNPRTF +nonorthogonal//NN@KNL +nonorthogonality//NN@KNLT +nonparallel/S/NNPRLL +nonparametric//NNPRMTRK +nonpareil/SM/NNPRL +nonparticipant/SM/NNPTSPNT +nonparticipating//NNPTSPTN +nonpartisan/S/NNPTSN +nonpaying//NNPYN +nonpayment/SM/NNPMNT +nonperformance/SM/NNPFMNS +nonperforming//NNPFMN +nonperishable/S/NNPRXBL +nonperson/S/NNPSN +nonperturbing//NNPTBN +nonphysical/Y/NNFSKL +nonplus/S/NNPLS +nonplussed//NNPLST +nonplussing//NNPLSN +nonpoisonous//NNPSNS +nonpolitical//NNPLTKL +nonpolluting//NNPLTN +nonporous//NNPRS +nonpracticing//NNPRKTSN +nonprejudicial//NNPRKTXL +nonprescription//NNPRSKRPXN +nonprocedural/Y/NNPRSTRL +nonproductive//NNPRTKTF +nonprofessional/S/NNPRFXNL +nonprofit/SB/NNPRFT +nonprogrammable//NNPRKRMBL +nonprogrammer//NNPRKRM +nonproliferation/SM/NNPRLFRXN +nonpublic//NNPBLK +nonpunishable//NNPNXBL +nonracial//NNRXL +nonradioactive//NNRTKTF +nonrandom//NNRNTM +nonreactive//NNRKTF +nonreciprocal/S/NNRSPRKL +nonreciprocating//NNRSPRKTN +nonrecognition/SM/NNRKKNXN +nonrecoverable//NNRKFRBL +nonrecurring//NNRKRN +nonredeemable//NNRTMBL +nonreducing//NNRTSN +nonrefillable//NNRFLBL +nonrefundable//NNRFNTBL +nonreligious//NNRLKS +nonrenewable//NNRNWBL +nonrepresentational//NNRPRSNTXNL +nonresident/SM/NNRSTNT +nonresidential//NNRSTNXL +nonresidual//NNRSTL +nonresistance/SM/NNRSSTNS +nonresistant/S/NNRSSTNT +nonrespondent/S/NNRSPNTNT +nonresponse//NNRSPNS +nonrestrictive//NNRSTRKTF +nonreturnable/S/NNRTNBL +nonrhythmic//NNRH@MK +nonrigid//NNRKT +nonsalaried//NNSLRT +nonscheduled//NNSKTLT +nonscientific//NNSNTFK +nonscoring//NNSKRN +nonseasonal//NNSSNL +nonsectarian//NNSKTRN +nonsecular//NNSKL +nonsegregated//NNSKRKTT +nonsense/MS/NNSNS +nonsensical/PY/NNSNSKL +nonsensicalness/M/NNSNSKLNS +nonsensitive//NNSNSTF +nonsexist//NNSKSST +nonsexual//NNSKSL +nonsingular//NNSNL +nonskid//NNSKT +nonslip//NNSLP +nonsmoker/SM/NNSMK +nonsmoking//NNSMKN +nonsocial//NNSXL +nonspeaking//NNSPKN +nonspecialist/MS/NNSPXLST +nonspecializing//NNSPXLSN +nonspecific//NNSPSFK +nonspiritual/S/NNSPRTL +nonstaining//NNSTNN +nonstandard//NNSTNTT +nonstarter/SM/NNSTT +nonstick//NNSTK +nonstop//NNSTP +nonstrategic//NNSTRTKK +nonstriking//NNSTRKN +nonstructural//NNSTRKTRL +nonsuccessive//NNSSSF +nonsupervisory//NNSPFSR +nonsupport/GS/NNSPT +nonsurgical//NNSKKL +nonsustaining//NNSSTNN +nonsympathizer/M/NNSMP@S +nontarnishable//NNTNXBL +nontaxable/S/NNTKSBL +nontechnical/Y/NNTXNKL +nontenured//NNTNRT +nonterminal/MS/NNTMNL +nonterminating//NNTMNTN +nontermination/M/NNTMNXN +nontheatrical//NN@TRKL +nonthinking/S/NN@NKN +nonthreatening//NN@RTNN +nontoxic//NNTKSK +nontraditional//NNTRTXNL +nontransferable//NNTRNSFRBL +nontransparent//NNTRNSPRNT +nontrivial//NNTRFL +nontropical//NNTRPKL +nonuniform//NNNFM +nonunion/S/NNNN +nonuser/SM/NNS +nonvenomous//NNFNMS +nonverbal/Y/NNFBL +nonveteran/MS/NNFTRN +nonviable//NNFBL +nonviolence/SM/NNFLNS +nonviolent/Y/NNFLNT +nonvirulent//NNFRLNT +nonvocal//NNFKL +nonvocational//NNFKXNL +nonvolatile//NNFLTL +nonvolunteer/S/NNFLNT +nonvoter/MS/NNFT +nonvoting//NNFTN +nonwhite/SM/NNHT +nonworking//NNWKN +nonyielding//NNYLTN +nonzero//NNSR +noodle/GMSD/NTL +nook/MS/NK +noon/GDMS/NN +noonday/MS/NNT +nooning/M/NNN +noontide/MS/NNTT +noontime/MS/NNTM +noose/SDGM/NS +nope/S/NP +nor/H/N +Nora/M/NR +NORAD/M/NRT +noradrenalin//NRTRNLN +noradrenaline/M/NRTRNLN +Norah/M/NR +Norbert/M/NBT +Norberto/M/NBT +Norbie/M/NB +Norby/M/NB +Nordhoff/M/NTHF +Nordic/S/NTK +Nordstrom/M/NTSTRM +Norean/M/NRN +Noreen/M/NRN +Norene/M/NRN +Norfolk/M/NFLK +Norina/M/NRN +Norine/M/NRN +norm/SMGD/NM +Norma/M/NM +normal/SY/NML +normalcy/MS/NMLS +normality/SM/NMLT +normalization/A/NMLSXN +normalizations//NMLSXNS +normalization's//NMLSXNS +normalize/SRDZGB/NMLS +normalized/AU/NMLST +normalizes/AU/NMLSS +Norman/SM/NMN +Normand/M/NMNT +Normandy/M/NMNT +normative/YP/NMTF +normativeness/M/NMTFNS +Normie/M/NM +Normy/M/NM +Norplant//NPLNT +Norri/SM/NR +Norrie/M/NR +Norristown/M/NRSTN +Norry/M/NR +Norse//NS +Norseman/M/NSMN +Norsemen//NSMN +North/M/N@ +north/MRGZ/N@ +Northampton/M/N@MPTN +northbound//N@BNT +Northeast/SM/N@ST +northeast/ZSMR/N@ST +northeaster/YM/N@ST +northeastern//N@STN +northeastward/S/N@STWT +norther/MY/N@ +northerly/S/N@L +northern/RYZS/N@N +Northerner/M/N@N +northernmost//N@NMST +Northfield/M/N@FLT +northing/M/N@N +northland//N@LNT +northmen//N@MN +Northrop/M/N@RP +Northrup/M/N@RP +norths//N@S +Norths//N@S +Northumberland/M/N@MBLNT +northward/S/N@WT +northwest/MRZS/N@WST +Northwest/MS/N@WST +northwester/YM/N@WST +northwestern//N@WSTN +northwestward/S/N@WSTWT +Norton/M/NTN +Norw/M/N +Norwalk/M/NWLK +Norway/M/NW +Norwegian/S/NWKN +Norwich/M/NWX +nos/GDS/NS +nose/M/NS +nosebag/M/NSBK +nosebleed/SM/NSBLT +nosecone/S/NSKN +nosed/V/NST +nosedive/DSG/NSTF +nosegay/MS/NSK +Nosferatu/M/NSFRT +nosh/MSDG/NX +nosily//NSL +nosiness/MS/NSNS +nosing/M/NSN +nostalgia/SM/NSTLK +nostalgic/S/NSTLKK +nostalgically//NSTLKKL +Nostradamus/M/NSTRTMS +Nostrand/M/NSTRNT +nostril/SM/NSTRL +nostrum/SM/NSTRM +nosy/SRPMT/NS +not/DRGB/NT +notability/SM/NTBLT +notable/PS/NTBL +notableness/M/NTBLNS +notably//NTBL +notarial//NTRL +notarization/S/NTRSXN +notarize/DSG/NTRS +notary/MS/NTR +notate/VGNXSD/NTT +notation/CMSF/NTXN +notational/CY/NTXNL +notative/CF/NTTF +notch/MSDG/NX +note/CSDFG/NT +notebook/MS/NTBK +noted/YP/NTT +notedness/M/NTTNS +notepad/S/NTPT +notepaper/MS/NTPP +note's//NTS +noteworthiness/SM/NTW@NS +noteworthy/P/NTW@ +nothing/PS/N@N +nothingness/SM/N@NNS +notice/MSDG/NTS +noticeable/U/NTSBL +noticeably//NTSBL +noticeboard/S/NTSBT +noticed/U/NTST +notifiable//NTFBL +notification/M/NTFKXN +notifier/M/NTF +notify/NGXSRDZ/NTF +notion/MS/NXN +notional/Y/NXNL +notoriety/S/NTRT +notorious/YP/NTRS +notoriousness/M/NTRSNS +Notre/M/NTR +Nottingham/M/NTNHM +notwithstanding//NTW@STNTN +Nouakchott/M/NKXT +nougat/MS/NKT +Noumea/M/NM +noun/SMK/NN +nourish/DRSGL/NRX +nourished/U/NRXT +nourisher/M/NRX +nourishment/SM/NRXMNT +nous/M/NS +nouveau//NF +nouvelle//NFL +Nov/M/NF +Nova/M/NF +nova/MS/NF +novae//NF +Novak/M/NFK +novel/SM/NFL +novelette/SM/NFLT +Novelia/M/NFL +novelist/SM/NFLST +novelization/S/NFLSXN +novelize/GDS/NFLS +novella/SM/NFL +novelty/MS/NFLT +November/SM/NFMB +novena/SM/NFN +novene//NFN +Novgorod/M/NFKRT +novice/MS/NFS +novitiate/MS/NFXT +Novocain/S/NFKN +Novocaine/M/NFKN +Novokuznetsk/M/NFKSNTSK +Novosibirsk/M/NFSBSK +NOW//N +now/S/N +nowadays//NWTS +noway/S/NW +Nowell/M/NWL +nowhere/S/NHR +nowise//NWS +noxious/PY/NKSS +noxiousness/M/NKSSNS +Noyce/M/NS +Noyes/M/NYS +nozzle/MS/NSL +Np//NP +NP//NP +NRA//NR +nroff/M/NRF +N's//NS +NS//NS +n's/CI/NS +NSF//NSF +NT//NT +nth//N@ +nu/M/N +nuance/SDM/NNS +nub/MS/NB +nubbin/SM/NBN +nubby/RT/NB +Nubia/M/NB +Nubian/M/NBN +nubile//NBL +nuclear/K/NKL +nuclease/M/NKLS +nucleate/DSXNG/NKLT +nucleated/A/NKLTT +nucleation/M/NKLXN +nuclei/M/NKL +nucleic//NKLK +nucleoli//NKLL +nucleolus/M/NKLLS +nucleon/MS/NKLN +nucleotide/MS/NKLTT +nucleus/M/NKLS +nuclide/M/NKLT +nude/CRS/NT +nudely//NTL +nudeness/M/NTNS +nudest//NTST +nudge/GSRD/NK +nudger/M/NKR +nudism/MS/NTSM +nudist/MS/NTST +nudity/MS/NTT +nugatory//NKTR +Nugent/M/NKNT +nugget/SM/NKT +nuisance/MS/NSNS +nuke/DSMG/NK +Nukualofa//NKLF +null/DSG/NL +nullification/M/NLFKXN +nullifier/M/NLF +nullify/RSDXGNZ/NLF +nullity/SM/NLT +numb/SGZTYRDP/NM +number/RDMGJ/NMB +numbered/UA/NMBRT +numberer/M/NMBR +numberless//NMBLS +numberplate/M/NMBPLT +numbers/A/NMBS +Numbers/M/NMBS +numbing/Y/NMBN +numbness/MS/NMBNS +numbskull's//NMBSKLS +numerable/IC/NMRBL +numeracy/SI/NMRS +numeral/YMS/NMRL +numerate/SDNGX/NMRT +numerates/I/NMRTS +numeration/M/NMRXN +numerator/MS/NMRT +numeric/S/NMRK +numerical/Y/NMRKL +numerological//NMRLKKL +numerologist/S/NMRLKST +numerology/MS/NMRLK +numerous/YP/NMRS +numerousness/M/NMRSNS +numinous/S/NMNS +numismatic/S/NMSMTK +numismatics/M/NMSMTKS +numismatist/MS/NMSMTST +numskull/SM/NMSKL +nun/MS/NN +Nunavut/M/NNFT +nuncio/SM/NNS +Nunez/M/NNS +Nunki/M/NNK +nunnery/MS/NNR +nuptial/S/NPXL +Nuremberg/M/NRMBK +Nureyev/M/NRYF +nurse/SRDJGMZ/NS +nursemaid/MS/NSMT +nurser/M/NS +nursery/MS/NSR +nurseryman/M/NSRMN +nurserymen//NSRMN +nursling/M/NSLN +nurture/SRDGZM/NTR +nurturer/M/NTR +nus//NS +nut/MS/NT +nutate/NGSD/NTT +nutation/M/NTXN +nutcrack/RZ/NTKRK +nutcracker/M/NTKRK +nuthatch/SM/N@X +nutmeat/SM/NTMT +nutmeg/MS/NTMK +nutmegged//NTMKT +nutmegging//NTMKN +nutpick/MS/NTPK +Nutrasweet/M/NTRSWT +nutria/SM/NTR +nutrient/MS/NTRNT +nutriment/MS/NTRMNT +nutrition/SM/NTRXN +nutritional/Y/NTRXNL +nutritionist/MS/NTRXNST +nutritious/PY/NTRXS +nutritiousness/MS/NTRXSNS +nutritive/Y/NTRTF +nutshell/MS/NTXL +nutted//NTT +nuttiness/SM/NTNS +nutting//NTN +nutty/TRP/NT +nuzzle/GZRSD/NSL +NV//NF +NW//N +NWT//NT +NY//N +Nyasa/M/NYS +NYC//NK +Nydia/M/NT +Nye/M/NY +Nyerere/M/NYRR +nylon/SM/NLN +nymph/M/NMF +nymphet/MS/NMFT +nympholepsy/M/NMFLPS +nymphomania/MS/NMFMN +nymphomaniac/S/NMFMNK +nymphs//NMFS +Nyquist/M/NKST +NYSE//NS +Nyssa/M/NS +NZ//NS +o//* +O//* +oaf/MS/*F +oafish/PY/*FX +oafishness/S/*FXNS +Oahu/M/*H +oak/SMN/*K +Oakland/M/*KLNT +Oakley/M/*KL +Oakmont/M/*KMNT +oakum/MS/*KM +oakwood//*KWT +oar/GSMD/* +oarlock/MS/*LK +oarsman/M/*SMN +oarsmen//*SMN +oarswoman//*SWMN +oarswomen//*SWMN +OAS//*S +oases//*SS +oasis/M/*SS +oat/SMNR/*T +oatcake/MS/*TKK +oater/M/*T +Oates/M/*TS +oath/M/*@ +oaths//*@S +oatmeal/SM/*TML +Oaxaca/M/*KSK +ob//*B +OB//*B +Ob/MD/*B +Obadiah/M/*BT +Obadias/M/*BTS +obbligato/S/*BLKT +obduracy/S/*BTRS +obdurate/PDSYG/*BTRT +obdurateness/S/*BTRTNS +Obed/M/*BT +Obediah/M/*BT +obedience/EMS/*BTNS +obedient/EY/*BTNT +obeisance/MS/*BSNS +obeisant/Y/*BSNT +obelisk/SM/*BLSK +Oberlin/M/*BLN +Oberon/M/*BRN +obese//*BS +obesity/MS/*BST +obey/EDRGS/*B +obeyer/EM/*BY +obfuscate/SRDXGN/*BFSKT +obfuscation/M/*BFSKXN +obfuscatory//*BFSKTR +obi/MDGS/*B +Obidiah/M/*BT +Obie/M/*B +obit/SMR/*BT +obituary/SM/*BTR +obj//*BK +object/SGVMD/*BKKT +objectify/GSDXN/*BKKTF +objection/SMB/*BKKXN +objectionable/U/*BKKXNBL +objectionableness/M/*BKKXNBLNS +objectionably//*BKKXNBL +objective/PYS/*BKKTF +objectiveness/MS/*BKKTFNS +objectivity/MS/*BKKTFT +objector/SM/*BKKT +objurgate/GNSDX/*BKKT +objurgation/M/*BKKXN +oblate/NYPSX/*BLT +oblation/M/*BLXN +obligate/NGSDXY/*BLKT +obligation/M/*BLKXN +obligational//*BLKXNL +obligatorily//*BLKTRL +obligatory//*BLKTR +oblige/SRDG/*BLK +obliged/E/*BLKT +obliger/M/*BLK +obliges/E/*BLKS +obliging/PY/*BLKN +obligingness/M/*BLKNNS +oblique/DSYGP/*BLK +obliqueness/S/*BLKNS +obliquity/MS/*BLKT +obliterate/VNGSDX/*BLTRT +obliteration/M/*BLTRXN +obliterative/Y/*BLTRTF +oblivion/MS/*BLFN +oblivious/YP/*BLFS +obliviousness/MS/*BLFSNS +oblong/SYP/*BLNK +oblongness/M/*BLNKNS +obloquies//*BLKS +obloquy/M/*BLK +obnoxious/YP/*BNKSS +obnoxiousness/MS/*BNKSSNS +oboe/SM/*B +oboist/S/*BST +obos//*BS +O'Brien/M/*BRN +obs//*BS +obscene/RYT/*BSN +obscenity/MS/*BSNT +obscurantism/MS/*BSKRNTSM +obscurantist/MS/*BSKRNTST +obscuration//*BSKRXN +obscure/YTPDSRGL/*BSKR +obscureness/M/*BSKRNS +obscurity/MS/*BSKRT +obsequies//*BSKS +obsequious/YP/*BSKS +obsequiousness/S/*BSKSNS +obsequy//*BSK +observability/M/*BSFBLT +observable/SU/*BSFBL +observably//*BSFBL +observance/MS/*BSFNS +observant/U/*BSFNT +observantly//*BSFNTL +observants//*BSFNTS +observation/MS/*BSFXN +observational/Y/*BSFXNL +observatory/MS/*BSFTR +observe/ZGDSRB/*BSF +observed/U/*BSFT +observer/M/*BSF +observing/Y/*BSFN +obsess/GVDS/*BSS +obsession/MS/*BSXN +obsessional//*BSXNL +obsessive/PYS/*BSSF +obsessiveness/S/*BSSFNS +obsidian/SM/*BSTN +obsolesce/GSD/*BSLS +obsolescence/S/*BSLSNS +obsolescent/Y/*BSLSNT +obsolete/GPDSY/*BSLT +obsoleteness/M/*BSLTNS +obstacle/SM/*BSTKL +obstetric/S/*BSTTRK +obstetrical//*BSTTRKL +obstetrician/SM/*BSTTRXN +obstetrics/M/*BSTTRKS +obstinacy/SM/*BSTNS +obstinate/PY/*BSTNT +obstinateness/M/*BSTNTNS +obstreperous/PY/*BSTRPRS +obstreperousness/SM/*BSTRPRSNS +obstruct/RDVGS/*BSTRKT +obstructed/U/*BSTRKTT +obstructer/M/*BSTRKT +obstruction/SM/*BSTRKXN +obstructionism/SM/*BSTRKXNSM +obstructionist/MS/*BSTRKXNST +obstructive/PSY/*BSTRKTF +obstructiveness/MS/*BSTRKTFNS +obtain/LSGDRB/*BTN +obtainable/U/*BTNBL +obtainably//*BTNBL +obtainment/S/*BTNMNT +obtrude/DSRG/*BTRT +obtruder/M/*BTRT +obtrusion/S/*BTRXN +obtrusive/UPY/*BTRSF +obtrusiveness/MSU/*BTRSFNS +obtuse/PRTY/*BTS +obtuseness/S/*BTSNS +obverse/YS/*BFS +obviate/XGNDS/*BFT +obvious/YP/*BFS +obviousness/SM/*BFSNS +Oby/M/*B +ocarina/MS/*KRN +O'Casey//*KS +Occam/M/*KM +occasion/MDSJG/*KXN +occasional/Y/*KXNL +occident/M/*STNT +Occident/SM/*STNT +Occidental/S/*STNTL +occidental/SY/*STNTL +occipital/Y/*SPTL +occlude/GSD/*KLT +occlusion/MS/*KLXN +occlusive/S/*KLSF +occult/SRDYG/*KLT +occulter/M/*KLT +occultism/SM/*KLTSM +occupancy/SM/*KPNS +occupant/MS/*KPNT +occupation/SAM/*KPXN +occupational/Y/*KPXNL +occupied/AU/*KPT +occupier/M/*KP +occupies/A/*KPS +occupy/RSDZG/*KP +occur/AS/*K +occurred/A/*KRT +occurrence/SM/*KRNS +occurring/A/*KRN +ocean/MS/*SN +oceanfront/MS/*SNFRNT +oceangoing//*SNKN +Oceania/M/*SN +oceanic//*SNK +oceanographer/SM/*SNKRF +oceanographic//*SNKRFK +oceanography/SM/*SNKRF +oceanology/MS/*SNLK +oceanside//*SNST +Oceanside/M/*SNST +Oceanus/M/*SNS +ocelot/SM/*SLT +ocher/DMGS/*X +Ochoa/M/*X +o'clock//*KLK +O'Clock//*KLK +O'Connell/M/*KNL +O'Connor/M/*KN +Oconomowoc/M/*KNMWK +OCR//*KR +Oct/M/*KT +octagon/SM/*KTKN +octagonal/Y/*KTKNL +octahedral//*KTHTRL +octahedron/M/*KTHTRN +octal/S/*KTL +octane/MS/*KTN +octant/M/*KTNT +octave/MS/*KTF +Octavia/M/*KTF +Octavian/M/*KTFN +Octavio/M/*KTF +Octavius/M/*KTFS +octavo/MS/*KTF +octennial//*KTNL +octet/SM/*KTT +octile//*KTL +octillion/M/*KTLN +October/MS/*KTB +octogenarian/MS/*KTKNRN +octopus/SM/*KTPS +octoroon/M/*KTRN +ocular/S/*KL +oculist/SM/*KLST +OD//*T +odalisque/SM/*TLSK +odd/TRYSPL/*T +oddball/SM/*TBL +oddity/MS/*TT +oddment/MS/*TMNT +oddness/MS/*TNS +ode/MDRS/*T +Ode/MR/*T +Odele/M/*TL +Odelia/M/*TL +Odelinda/M/*TLNT +Odell/M/*TL +O'Dell/M/*TL +Odella/M/*TL +Odelle/M/*TL +Oder/M/*T +Oderberg/MS/*TBK +Odessa/M/*TS +Odets/M/*TTS +Odetta/M/*TT +Odette/M/*TT +Odey/M/*T +Odie/M/*T +Odilia/M/*TL +Odille/M/*TL +Odin/M/*TN +odious/PY/*TS +odiousness/MS/*TSNS +Odis/M/*TS +odium/MS/*TM +Odo/M/*T +Odom/M/*TM +odometer/SM/*TMT +O'Donnell/M/*TNL +odor/DMS/*T +odoriferous//*TRFRS +odorless//*TLS +odorous/YP/*TRS +ODs//*TS +O'Dwyer/M/*TY +Ody/M/*T +Odysseus/M/*TSS +Odyssey/M/*TS +odyssey/S/*TS +OE//* +OED//*T +oedipal//*TPL +Oedipal/Y/*TPL +Oedipus/M/*TPS +OEM/M/*M +OEMS//*MS +oenology/MS/*NLK +oenophile/S/*NFL +o'er//* +O'Er//* +Oersted/M/*STT +oesophagi//*SFK +oeuvre/SM/*FR +of/K/*F +Ofelia/M/*FL +Ofella/M/*FL +off/SZGDRJ/*F +offal/MS/*FL +offbeat/MS/*FBT +offcuts//*FKTS +Offenbach/M/*FNBX +offend/SZGDR/*FNT +offender/M/*FNT +offense/MSV/*FNS +offensive/YSP/*FNSF +offensively/I/*FNSFL +offensiveness/MSI/*FNSFNS +offer/RDJGZ/*F +offerer/M/*FR +offering/M/*FRN +offertory/SM/*FTR +offhand/D/*FHNT +offhanded/YP/*FHNTT +offhandedness/S/*FHNTTNS +office/SRMZ/*FS +officeholder/SM/*FSHLT +officemate/S/*FSMT +officer/GMD/*FS +officership/S/*FSXP +official/PSYM/*FXL +officialdom/SM/*FXLTM +officialism/SM/*FXLSM +officially/U/*FXL +officiant/SM/*FXNT +officiate/XSDNG/*FXT +officiation/M/*FXXN +officiator/MS/*FXT +officio//*FS +officious/YP/*FSS +officiousness/MS/*FSSNS +offing/M/*FN +offish//*FX +offload/GDS/*FLT +offprint/GSDM/*FPRNT +offramp//*FRMP +offset/SM/*FST +offsetting//*FSTN +offshoot/MS/*FXT +offshore//*FXR +offside/RS/*FST +offspring/M/*FSPRN +offstage/S/*FSTK +offtrack//*FTRK +Ofilia/M/*FL +oft/NRT/*FT +often/RT/*FTN +oftentimes//*FTNTMS +ofttimes//*FTMS +Ogbomosho/M/*KBMX +Ogdan/M/*KTN +Ogden/M/*KTN +Ogdon/M/*KTN +Ogilvy/M/*KLF +ogive/M/*KF +ogle/ZGDSR/*KL +Oglethorpe/M/*KL@P +ogre/MS/*KR +ogreish//*KRX +ogress/S/*KRS +oh//* +OH//* +O'Hara//*HR +O'Hare/M/*HR +O'Higgins//*HKNS +Ohio/M/*H +Ohioan/S/*HN +ohm/SM/*M +ohmic//*MK +ohmmeter/MS/*MT +oho/S/*H +ohs//*S +OHSA/M/*S +oil/MDRSZG/*L +oilcloth/M/*LKL@ +oilcloths//*LKL@S +oiler/M/*L +oilfield/MS/*LFLT +oiliness/SM/*LNS +oilman/M/*LMN +oilmen//*LMN +oilseed/SM/*LST +oilskin/MS/*LSKN +oily/TPR/*L +oink/GDS/*NK +ointment/SM/*NTMNT +Oise/M/*S +OJ//*K +Ojibwa/SM/*KBW +OK/MDG/*K +Okamoto/M/*KMT +okapi/SM/*KP +Okayama/M/*KYM +okay's//*KS +Okeechobee/M/*KXB +O'Keeffe//*KF +Okefenokee//*KFNK +Okhotsk/M/*KHTSK +Okinawa/M/*KNW +Okinawan/S/*KNWN +Okla/M/*KL +Oklahoma/M/*KLHM +Oklahoman/SM/*KLHMN +okra/MS/*KR +OKs//*KS +Oktoberfest//*KTBFST +Ola/M/*L +Olaf/M/*LF +Olag/M/*LK +Olav/M/*LF +old/XTNRPS/*LT +olden/DG/*LTN +Oldenburg/M/*LTNBK +Oldfield/M/*LTFLT +oldie/MS/*LT +oldish//*LTX +oldness/S/*LTNS +Oldsmobile/M/*LTSMBL +oldster/SM/*LTST +Olduvai/M/*LTF +olé//*L +Ole/MV/*L +oleaginous//*LKNS +oleander/SM/*LNT +O'Leary/M/*LR +olefin/M/*LFN +Oleg/M/*LK +Olen/M/*LN +Olenek/M/*LNK +Olenka/M/*LNK +Olenolin/M/*LNLN +oleo/S/*L +oleomargarine/SM/*LMKRN +oles//*LS +olfactory//*LFKTR +Olga/M/*LK +Olia/M/*L +oligarch/M/*LKX +oligarchic//*LKXK +oligarchical//*LKXKL +oligarchs//*LKXS +oligarchy/SM/*LKX +Oligocene//*LKSN +oligopolistic//*LKPLSTK +oligopoly/MS/*LKPL +Olimpia/M/*LMP +Olin/M/*LN +olive/MSR/*LF +Olive/MZR/*LF +Oliver/M/*LF +Olivero/M/*LFR +Olivette/M/*LFT +Olivetti/M/*LFT +Olivia/M/*LF +Olivie/RM/*LF +Olivier/M/*LF +Oliviero/M/*LFR +Oliy/M/*L +Ollie/M/*L +Olly/M/*L +Olmec//*LMK +Olmsted/M/*LMSTT +Olsen/M/*LSN +Olson/M/*LSN +Olva/M/*LF +Olvan/M/*LFN +Olwen/M/*LWN +Olympe/M/*LMP +Olympia/SM/*LMP +Olympiad/MS/*LMPT +Olympian/S/*LMPN +Olympic/S/*LMPK +Olympie/M/*LMP +Olympus/M/*LMPS +om/XN/*M +Omaha/SM/*MH +Oman/M/*MN +Omar/M/*M +ombudsman/M/*MBTSMN +ombudsmen//*MBTSMN +Omdurman/M/*MTMN +omega/MS/*MK +omelet/SM/*MLT +omelette's//*MLTS +omen/DMG/*MN +Omero/M/*MR +omicron/MS/*MKRN +ominous/YP/*MNS +ominousness/SM/*MNSNS +omission/MS/*MXN +omit/S/*MT +omitted//*MTT +omitting//*MTN +omni/M/*MN +omnibus/MS/*MNBS +omnipotence/SM/*MNPTNS +Omnipotent//*MNPTNT +omnipotent/SY/*MNPTNT +omnipresence/MS/*MNPRSNS +omnipresent/Y/*MNPRSNT +omniscience/SM/*MNSNS +omniscient/YS/*MNSNT +omnivore/MS/*MNFR +omnivorous/PY/*MNFRS +omnivorousness/MS/*MNFRSNS +oms//*MS +Omsk/M/*MSK +ON//*N +on/RY/*N +onanism/M/*NNSM +Onassis/M/*NSS +once/SR/*NS +oncer/M/*NS +oncogene/S/*NKKN +oncologist/S/*NKLKST +oncology/SM/*NKLK +oncoming/S/*NKMN +Ondrea/M/*NTR +one/NPMSX/*N +Oneal/M/*NL +Onega/M/*NK +Onegin/M/*NKN +Oneida/SM/*NT +O'Neil//*NL +O'Neill//*NL +oneness/MS/*NNS +oner/M/*N +onerous/YP/*NRS +onerousness/SM/*NRSNS +oneself//*NSLF +onetime//*NTM +oneupmanship//*NPMNXP +Onfre/M/*NFR +Onfroi/M/*NFR +ongoing/S/*NKN +Onida/M/*NT +onion/GDM/*NN +onionskin/MS/*NNSKN +onlooker/MS/*NLK +onlooking//*NLKN +only/TP/*NL +Ono/M/*N +Onofredo/M/*NFRT +onomatopoeia/SM/*NMTP +onomatopoeic//*NMTPK +onomatopoetic//*NMTPTK +Onondaga/MS/*NNTK +onrush/GMS/*NRX +ons//*NS +Onsager/M/*NSK +onset/SM/*NST +onsetting//*NSTN +onshore//*NXR +onside//*NST +onslaught/MS/*NSLT +Ont/M/*NT +Ontarian/S/*NTRN +Ontario/M/*NTR +onto//*NT +ontogeny/SM/*NTKN +ontological/Y/*NTLKKL +ontology/SM/*NTLK +onus/SM/*NS +onward/S/*NWT +onyx/MS/*NKS +oodles//*TLS +ooh/GD/* +oohs//*S +oolitic//*LTK +Oona/M/*N +oops/S/*PS +Oort/M/*T +ooze/GDS/*S +oozy/RT/*S +op/XGDN/*P +opacity/SM/*PST +Opal/M/*PL +opal/SM/*PL +opalescence/S/*PLSNS +opalescent/Y/*PLSNT +Opalina/M/*PLN +Opaline/M/*PLN +opaque/GTPYRSD/*PK +opaqueness/SM/*PKNS +opcode/MS/*PKT +ope/S/*P +OPEC//*PK +Opel/M/*PL +open/YRDJGZTP/*PN +opencast//*PNKST +opened/AU/*PNT +opener/M/*PN +openhanded/P/*PNHNTT +openhandedness/SM/*PNHNTTNS +openhearted//*PNHTT +opening/M/*PNN +openness/S/*PNS +opens/A/*PNS +openwork/MS/*PNWK +opera/SM/*PR +operable/I/*PRBL +operand/SM/*PRNT +operandi//*PRNT +operant/YS/*PRNT +operate/XNGVDS/*PRT +operatic/S/*PRTK +operatically//*PRTKL +operation/M/*PRXN +operational/Y/*PRXNL +operationalization/S/*PRXNLSXN +operationalize/D/*PRXNLS +operative/IP/*PRTF +operatively//*PRTFL +operativeness/MI/*PRTFNS +operatives//*PRTFS +operator/SM/*PRT +operetta/MS/*PRT +Ophelia/M/*FL +Ophelie/M/*FL +Ophiuchus/M/*FXS +ophthalmic/S/*F@LMK +ophthalmologist/SM/*F@LMLKST +ophthalmology/MS/*F@LMLK +opiate/GMSD/*PT +opine/XGNSD/*PN +opinion/M/*PNN +opinionated/PY/*PNNTT +opinionatedness/M/*PNNTTNS +opioid//*PT +opium/MS/*PM +opossum/SM/*PSM +opp//*P +Oppenheimer/M/*PNHM +opponent/MS/*PNNT +opportune/IY/*PTN +opportunism/SM/*PTNSM +opportunist/SM/*PTNST +opportunistic//*PTNSTK +opportunistically//*PTNSTKL +opportunity/MS/*PTNT +oppose/BRSDG/*PS +opposed/U/*PST +opposer/M/*PS +opposite/SXYNP/*PST +oppositeness/M/*PSTNS +opposition/M/*PSXN +oppositional//*PSXNL +oppress/DSGV/*PRS +oppression/MS/*PRXN +oppressive/YP/*PRSF +oppressiveness/MS/*PRSFNS +oppressor/MS/*PRS +opprobrious/Y/*PRBRS +opprobrium/SM/*PRBRM +Oprah/M/*PR +ops//*PS +opt/DSG/*PT +opthalmic//*P@LMK +opthalmologic//*P@LMLKK +opthalmology//*P@LMLK +optic/S/*PTK +optical/Y/*PTKL +optician/SM/*PTXN +optics/M/*PTKS +optima//*PTM +optimal/Y/*PTML +optimality//*PTMLT +optimise's//*PTMSS +optimism/SM/*PTMSM +optimist/SM/*PTMST +optimistic//*PTMSTK +optimistically//*PTMSTKL +optimization/SM/*PTMSXN +optimize/DRSZG/*PTMS +optimized/U/*PTMST +optimizer/M/*PTMS +optimizes/U/*PTMSS +optimum/SM/*PTMM +option/GDMS/*PXN +optional/YS/*PXNL +optionality/M/*PXNLT +optoelectronic//*PTLKTRNK +optometric//*PTMTRK +optometrist/MS/*PTMTRST +optometry/SM/*PTMTR +opulence/SM/*PLNS +opulent/Y/*PLNT +opus/SM/*PS +OR//* +or/MY/* +Ora/M/*R +oracle/GMSD/*RKL +oracular//*RKL +oral/YS/*RL +Oralee/M/*RL +Oralia/M/*RL +Oralie/M/*RL +Oralla/M/*RL +Oralle/M/*RL +Oran/M/*RN +Orange/M/*RNK +orange/MS/*RNK +orangeade/MS/*RNKT +orangery/SM/*RNKR +orangutan/MS/*RNKTN +Oranjestad/M/*RNKSTT +orate/SDGNX/*RT +oration/M/*RXN +orator/MS/*RT +oratorical/Y/*RTRKL +oratorio/MS/*RTR +oratory/MS/*RTR +Orazio/M/*RS +orb/SMDG/*B +Orbadiah/M/*BT +orbicular//*BKL +orbiculares//*BKLRS +orbit/MRDGZS/*BT +orbital/MYS/*BTL +orchard/SM/*XT +orchestra/MS/*XSTR +orchestral/Y/*XSTRL +orchestrate/GNSDX/*XSTRT +orchestrater's//*XSTRTS +orchestration/M/*XSTRXN +orchestrator/M/*XSTRT +orchid/SM/*XT +ordain/SGLDR/*TN +ordainer/M/*TN +ordainment/MS/*TNMNT +ordeal/SM/*TL +order/AESGD/*T +ordered/U/*TRT +orderer//*TR +ordering/S/*TRN +orderless//*TLS +orderliness/SE/*TLNS +orderly/PS/*TL +order's/E/*TS +ordinal/S/*TNL +ordinance/MS/*TNNS +ordinarily//*TNRL +ordinariness/S/*TNRNS +ordinary/RSPT/*TNR +ordinate/I/*TNT +ordinated//*TNTT +ordinates//*TNTS +ordinate's//*TNTS +ordinating//*TNTN +ordination/SM/*TNXN +ordnance/SM/*TNNS +Ordovician//*TFXN +ordure/MS/*TR +Ore/NM/*R +ore/NSM/*R +Oreg/M/*RK +oregano/SM/*RKN +Oregon/M/*RKN +Oregonian/S/*RKNN +Orel/M/*RL +Orelee/M/*RL +Orelia/M/*RL +Orelie/M/*RL +Orella/M/*RL +Orelle/M/*RL +Oren/M/*RN +Oreo//*R +Orestes//*RSTS +organ/MS/*KN +organdie's//*KNTS +organdy/MS/*KNT +organelle/MS/*KNL +organic/S/*KNK +organically/I/*KNKL +organism/MS/*KNSM +organismic//*KNSMK +organist/MS/*KNST +organizable/UMS/*KNSBL +organization/MEAS/*KNSXN +organizational/MYS/*KNSXNL +organize/AGZDRS/*KNS +organized/UE/*KNST +organizer/MA/*KNS +organizes/E/*KNSS +organizing/E/*KNSN +organometallic//*KNMTLK +organza/SM/*KNS +orgasm/GSMD/*KSM +orgasmic//*KSMK +orgiastic//*KSTK +orgy/SM/*K +Oriana/M/*RN +oriel/MS/*RL +orient/GADES/*RNT +Orient/SM/*RNT +orientable//*RNTBL +Oriental/S/*RNTL +oriental/SY/*RNTL +orientate/ESDXGN/*RNTT +orientated/A/*RNTTT +orientates/A/*RNTTS +orientation/AMES/*RNTXN +orienteering/M/*RNTRN +orienter//*RNT +orient's//*RNTS +orifice/MS/*RFS +orig//*RK +origami/MS/*RKM +origin/MS/*RKN +original/US/*RKNL +originality/SM/*RKNLT +originally//*RKNL +originate/VGNXSD/*RKNT +origination/M/*RKNXN +originative/Y/*RKNTF +originator/SM/*RKNT +Orin/M/*RN +Orinoco/M/*RNK +oriole/SM/*RL +Orion/M/*RN +orison/SM/*RSN +Oriya/M/*RY +Orizaba/M/*RSB +Orkney/M/*KN +Orlan/M/*LN +Orland/M/*LNT +Orlando/M/*LNT +Orleans//*LNS +Orlick/M/*LK +Orlon/SM/*LN +Orly/M/*L +ormolu/SM/*ML +ornament/GSDM/*NMNT +ornamental/SY/*NMNTL +ornamentation/SM/*NMNTXN +ornate/YP/*NT +ornateness/SM/*NTNS +orneriness/SM/*NRNS +ornery/PRT/*NR +ornithological//*N@LKKL +ornithologist/SM/*N@LKST +ornithology/MS/*N@LK +orographic/M/*RKRFK +orography/M/*RKRF +Orono/M/*RN +orotund//*RTNT +orotundity/MS/*RTNTT +orphan/SGDM/*FN +orphanage/MS/*FNK +orphanhood/M/*FNHT +Orpheus/M/*FS +Orphic//*FK +Orr/MN/*R +Orran/M/*RN +Orren/M/*RN +Orrin/M/*RN +orris/SM/*RS +ors//*S +Orsa/M/*S +Orsola/M/*SL +Orson/M/*SN +Ortega/M/*TK +Ortensia/M/*TNX +orthodontia/S/*@TNX +orthodontic/S/*@TNTK +orthodontics/M/*@TNTKS +orthodontist/MS/*@TNTST +Orthodox/S/*@TKS +orthodox/YS/*@TKS +orthodoxies//*@TKSS +orthodoxly/U/*@TKSL +orthodoxy/U/*@TKS +orthodoxy's//*@TKSS +orthogonal/Y/*@KNL +orthogonality/M/*@KNLT +orthogonalization/M/*@KNLSXN +orthogonalized//*@KNLST +orthographic//*@KRFK +orthographically//*@KRFKL +orthography/MS/*@KRF +orthonormal//*@NML +orthopedic/S/*@PTK +orthopedics/M/*@PTKS +orthopedist/SM/*@PTST +orthophosphate/MS/*@FSFT +orthorhombic//*@HMBK +Ortiz/M/*TS +Orton/M/*TN +Orv/M/*F +Orval/M/*FL +Orville/M/*FL +Orwell/M/*WL +Orwellian//*WLN +o's//*S +Os/M/*S +OS/M/*S +Osage/SM/*SK +Osaka/M/*SK +Osbert/M/*SBT +Osborn/M/*SBN +Osborne/M/*SBN +Osbourn/M/*SBN +Osbourne/M/*SBN +Oscar/SM/*SK +Osceola/M/*SL +oscillate/SDXNG/*SLT +oscillation/M/*SLXN +oscillator/SM/*SLT +oscillatory//*SLTR +oscilloscope/SM/*SLSKP +osculate/XDSNG/*SKLT +osculation/M/*SKLXN +Osgood/M/*SKT +OSHA//*X +Oshawa/M/*XW +O'Shea/M/*X +Oshkosh/M/*XKX +osier/MS/*S +Osiris/M/*SRS +Oslo/M/*SL +Osman/M/*SMN +osmium/MS/*SMM +Osmond/M/*SMNT +osmoses//*SMSS +osmosis/M/*SMSS +osmotic//*SMTK +Osmund/M/*SMNT +osprey/SM/*SPR +osseous/Y/*SS +Ossie/M/*S +ossification/M/*SFKXN +ossify/NGSDX/*SF +ostensible//*STNSBL +ostensibly//*STNSBL +ostentation/MS/*STNTXN +ostentatious/PY/*STNTXS +ostentatiousness/M/*STNTXSNS +osteoarthritides//*ST@RTTS +osteoarthritis/M/*ST@RTS +osteology/M/*STLK +osteopath/M/*STP@ +osteopathic//*STP@K +osteopaths//*STP@S +osteopathy/MS/*STP@ +osteoporoses//*STPRSS +osteoporosis/M/*STPRSS +ostracise's//*STRSSS +ostracism/MS/*STRSSM +ostracize/GSD/*STRSS +Ostrander/M/*STRNT +ostrich/MS/*STRX +Ostrogoth/M/*STRK@ +Ostwald/M/*STWLT +O'Sullivan/M/*SLFN +Osvaldo/M/*SFLT +Oswald/M/*SWLT +Oswell/M/*SWL +OT//*T +OTB//*TB +OTC//*TK +Otes//*TS +Otha/M/*@ +Othelia/M/*@L +Othella/M/*@L +Othello/M/*@L +other/SMP/*@ +otherness/M/*@NS +otherwise//*@WS +otherworld/Y/*@WLT +otherworldly/P/*@WLTL +Othilia/M/*@L +Othilie/M/*@L +Otho/M/*@ +otiose//*XS +Otis/M/*TS +OTOH//*T +Ottawa/MS/*TW +otter/DMGS/*T +Ottilie/M/*TL +Otto/M/*T +Ottoman//*TMN +ottoman/MS/*TMN +Ouagadougou/M/*KTK +oubliette/SM/*BLT +ouch/SDG/*X +ought/SGD/*T +oughtn't//*TNT +Ouija/MS/*K +ounce/MS/*NS +our/S/* +ourself//*SLF +ourselves//*SLFS +oust/RDGZS/*ST +ouster/M/*ST +out/PJZGSDR/*T +outage/MS/*TK +outargue/GDS/*TK +outback/MRS/*TBK +outbalance/GDS/*TBLNS +outbid/S/*TBT +outbidding//*TBTN +outboard/S/*TBT +outboast/GSD/*TBST +outbound/S/*TBNT +outbreak/SMG/*TBRK +outbroke//*TBRK +outbroken//*TBRKN +outbuilding/SM/*TBLTN +outburst/MGS/*TBST +outcast/GSM/*TKST +outclass/SDG/*TKLS +outcome/SM/*TKM +outcrop/SM/*TKRP +outcropped//*TKRPT +outcropping/S/*TKRPN +outcry/MSDG/*TKR +outdated/P/*TTTT +outdid//*TTT +outdistance/GSD/*TTSTNS +outdo/G/*TT +outdoes//*TTS +outdone//*TTN +outdoor/S/*TT +outdoorsy//*TTS +outdraw/GS/*TTR +outdrawn//*TTRN +outdrew//*TTR +outermost//*TMST +outerwear/M/*TW +outface/SDG/*TFS +outfall/MS/*TFL +outfield/RMSZ/*TFLT +outfielder/M/*TFLT +outfight/SG/*TFT +outfit/MS/*TFT +outfitted//*TFTT +outfitter/MS/*TFT +outfitting//*TFTN +outflank/SGD/*TFLNK +outflow/SMDG/*TFL +outfought//*TFT +outfox/GSD/*TFKS +outgeneraled//*TKNRLT +outgo/GJ/*TK +outgoes//*TKS +outgoing/P/*TKN +outgrew//*TKR +outgrip//*TKRP +outgrow/GSH/*TKR +outgrown//*TKRN +outgrowth/M/*TKR@ +outgrowths//*TKR@S +outguess/SDG/*TKS +outhit/S/*@T +outhitting//*@TN +outhouse/SM/*@S +outing/M/*TN +outlaid//*TLT +outland/ZR/*TLNT +outlander/M/*TLNT +outlandish/PY/*TLNTX +outlandishness/MS/*TLNTXNS +outlast/GSD/*TLST +outlaw/SDMG/*TL +outlawry/M/*TLR +outlay/GSM/*TL +outlet/SM/*TLT +outliers//*TLS +outline/SDGM/*TLN +outlive/GSD/*TLF +outlook/MDGS/*TLK +outlying//*TLYN +outmaneuver/GSD/*TMNF +outmatch/SDG/*TMX +outmigration//*TMKRXN +outmoded//*TMTT +outness/M/*TNS +outnumber/GDS/*TNMB +outpaced//*TPST +outpatient/SM/*TPTNT +outperform/DGS/*TPFM +outplacement/S/*TPLSMNT +outplay/GDS/*TPL +outpoint/GDS/*TPNT +outpost/SM/*TPST +outpour/MJG/*TP +outpouring/M/*TPRN +outproduce/GSD/*TPRTS +output/SM/*TPT +outputted//*TPTT +outputting//*TPTN +outrace/GSD/*TRS +outrage/GSDM/*TRK +outrageous/YP/*TRKS +outrageousness/M/*TRKSNS +outran//*TRN +outrank/GSD/*TRNK +outré//*TR +outreach/SDG/*TRX +outrider/MS/*TRT +outrigger/SM/*TRK +outright/Y/*TRT +outrun/S/*TRN +outrunning//*TRNN +outscore/GDS/*TSKR +outsell/GS/*TSL +outset/MS/*TST +outsetting//*TSTN +outshine/SG/*TXN +outshone//*TXN +outshout/GDS/*TXT +outside/ZSR/*TST +outsider/PM/*TST +outsize/S/*TSS +outskirt/SM/*TSKT +outsmart/SDG/*TSMT +outsold//*TSLT +outsource/SDJG/*TSS +outspend/SG/*TSPNT +outspent//*TSPNT +outspoke//*TSPK +outspoken/YP/*TSPKN +outspokenness/SM/*TSPKNS +outspread/SG/*TSPRT +outstanding/Y/*TSTNTN +outstate/NX/*TSTT +outstation/M/*TSTXN +outstay/SDG/*TST +outstretch/GSD/*TSTRX +outstrip/S/*TSTRP +outstripped//*TSTRPT +outstripping//*TSTRPN +outtake/S/*TK +outvote/GSD/*TFT +outward/SYP/*TWT +outwardness/M/*TWTNS +outwear/SG/*TW +outweigh/GD/*TW +outweighs//*TWS +outwit/S/*TWT +outwitted//*TWTT +outwitting//*TWTN +outwore//*TWR +outwork/SMDG/*TWK +outworn//*TWN +ouzo/SM/*S +ova/M/*F +oval/MYPS/*FL +ovalness/M/*FLNS +ovarian//*FRN +ovary/SM/*FR +ovate/SDGNX/*FT +ovation/GMD/*FXN +oven/MS/*FN +ovenbird/SM/*FNBT +over/YGS/*F +overabundance/MS/*FRBNTNS +overabundant//*FRBNTNT +overachieve/SRDGZ/*FRXF +overact/DGVS/*FRKT +overage/S/*FRK +overaggressive//*FRKRSF +overall/SM/*FRL +overallocation//*FRLKXN +overambitious//*FRMBXS +overanxious//*FRNKSS +overarching//*FRXN +overarm/GSD/*FRM +overate//*FRT +overattentive//*FRTNTF +overawe/GDS/*FRW +overbalance/DSG/*FBLNS +overbear/GS/*FB +overbearing/YP/*FBRN +overbearingness/M/*FBRNNS +overbid/S/*FBT +overbidding//*FBTN +overbite/MS/*FBT +overblown//*FBLN +overboard//*FBT +overbold//*FBLT +overbook/SDG/*FBK +overbore//*FBR +overborne//*FBN +overbought//*FBT +overbuild/GS/*FBLT +overbuilt//*FBLT +overburden/SDG/*FBTN +overburdening/Y/*FBTNN +overbuy/GS/*FB +overcame//*FKM +overcapacity/M/*FKPST +overcapitalize/DSG/*FKPTLS +overcareful//*FKRFL +overcast/GS/*FKST +overcasting/M/*FKSTN +overcautious//*FKXS +overcerebral//*FSRBRL +overcharge/DSG/*FXK +overcloud/DSG/*FKLT +overcoat/SMG/*FKT +overcoating/M/*FKTN +overcome/RSG/*FKM +overcomer/M/*FKM +overcommitment/S/*FKMTMNT +overcompensate/XGNDS/*FKMPNST +overcompensation/M/*FKMPNSXN +overcomplexity/M/*FKMPLKST +overcomplicated//*FKMPLKTT +overconfidence/MS/*FKNFTNS +overconfident/Y/*FKNFTNT +overconscientious//*FKNSNXS +overconsumption/M/*FKNSMPXN +overcook/SDG/*FKK +overcooled//*FKLT +overcorrection//*FKRKXN +overcritical//*FKRTKL +overcrowd/DGS/*FKRT +overcurious//*FKRS +overdecorate/SDG/*FTKRT +overdependent//*FTPNTNT +overdetermined//*FTTMNT +overdevelop/SDG/*FTFLP +overdid//*FTT +overdo/G/*FT +overdoes//*FTS +overdone//*FTN +overdose/DSMG/*FTS +overdraft/SM/*FTRFT +overdraw/GS/*FTR +overdrawn//*FTRN +overdress/GDS/*FTRS +overdrew//*FTR +overdrive/GSM/*FTRF +overdriven//*FTRFN +overdrove//*FTRF +overdub/S/*FTB +overdubbed//*FTBT +overdubbing//*FTBN +overdue//*FT +overeager/PY/*FRK +overeagerness/M/*FRKNS +overeat/GNRS/*FRT +overeater/M/*FRT +overeducated//*FRTKTT +overemotional//*FRMXNL +overemphases//*FRMFSS +overemphasis/M/*FRMFSS +overemphasize/GZDSR/*FRMFSS +overenthusiastic//*FRN@XSTK +overestimate/DSXGN/*FRSTMT +overestimation/M/*FRSTMXN +overexcite/DSG/*FRKSST +overexercise/SDG/*FRKSSS +overexert/GDS/*FRKST +overexertion/SM/*FRKSXN +overexploitation//*FRKSPLTXN +overexploited//*FRKSPLTT +overexpose/GDS/*FRKSPS +overexposure/SM/*FRKSPSR +overextend/DSG/*FRKSTNT +overextension//*FRKSTNXN +overfall/M/*FFL +overfed//*FFT +overfeed/GS/*FFT +overfill/GDS/*FFL +overfishing//*FFXN +overflew//*FFL +overflight/SM/*FFLT +overflow/DGS/*FFL +overflown//*FFLN +overfly/GS/*FFL +overfond//*FFNT +overfull//*FFL +overgeneralize/GDS/*FKNRLS +overgenerous//*FKNRS +overgraze/SDG/*FKRS +overgrew//*FKR +overground//*FKRNT +overgrow/GSH/*FKR +overgrown//*FKRN +overgrowth/M/*FKR@ +overgrowths//*FKR@S +overhand/DGS/*FHNT +overhang/GS/*FHNK +overhasty//*FHST +overhaul/GRDJS/*FHL +overhead/S/*FHT +overhear/SRG/*FH +overheard//*FHT +overhearer/M/*FHR +overheat/SGD/*FHT +overhung//*FHNK +overincredulous//*FRNKRTLS +overindulge/SDG/*FRNTLK +overindulgence/SM/*FRNTLKNS +overindulgent//*FRNTLKNT +overinflated//*FRNFLTT +overjoy/SGD/*FK +overkill/SDMG/*FKL +overladed//*FLTT +overladen//*FLTN +overlaid//*FLT +overlain//*FLN +overland/S/*FLNT +overlap/MS/*FLP +overlapped//*FLPT +overlapping//*FLPN +overlarge//*FLK +overlay/GS/*FL +overleaf//*FLF +overlie//*FL +overload/SDG/*FLT +overlong//*FLNK +overlook/DSG/*FLK +overlord/DMSG/*FLT +overloud//*FLT +overly/GRS/*FL +overmanning//*FMNN +overmaster/GSD/*FMST +overmatching//*FMXN +overmodest//*FMTST +overmuch/S/*FMX +overnice//*FNS +overnight/SDRGZ/*FNT +overoptimism/SM/*FRPTMSM +overoptimistic//*FRPTMSTK +overpaid//*FPT +overparticular//*FPTKL +overpass/GMSD/*FPS +overpay/LSG/*FP +overpayment/M/*FPMNT +overplay/SGD/*FPL +overpopulate/DSNGX/*FPPLT +overpopulation/M/*FPPLXN +overpopulous//*FPPLS +overpower/GSD/*FPW +overpowering/Y/*FPWRN +overpraise/DSG/*FPRS +overprecise//*FPRSS +overpressure//*FPRSR +overprice/SDG/*FPRS +overprint/DGS/*FPRNT +overproduce/SDG/*FPRTS +overproduction/S/*FPRTKXN +overprotect/GVDS/*FPRTKT +overprotection/M/*FPRTKXN +overqualified//*FKLFT +overran//*FRN +overrate/DSG/*FRT +overreach/DSRG/*FRX +overreact/SGD/*FRKT +overreaction/SM/*FRKXN +overred//*FRT +overrefined//*FRFNT +overrepresented//*FRPRSNTT +overridden//*FRTN +override/RSG/*FRT +overrider/M/*FRT +overripe//*FRP +overrode//*FRT +overrule/GDS/*FRL +overrun/S/*FRN +overrunning//*FRNN +oversample/DG/*FSMPL +oversaturate//*FSTRT +oversaw//*FS +oversea/S/*FS +oversee/ZRS/*FS +overseeing//*FSN +overseen//*FSN +overseer/M/*FS +oversell/SG/*FSL +oversensitive/P/*FSNSTF +oversensitiveness/S/*FSNSTFNS +oversensitivity//*FSNSTFT +oversexed//*FSKST +overshadow/GSD/*FXT +overshoe/SM/*FX +overshoot/SG/*FXT +overshot/S/*FXT +oversight/SM/*FST +oversimple//*FSMPL +oversimplification/M/*FSMPLFKXN +oversimplify/GXNDS/*FSMPLF +oversize/GS/*FSS +oversleep/GS/*FSLP +overslept//*FSLPT +oversoft/P/*FSFT +oversoftness/M/*FSFTNS +oversold//*FSLT +overspecialization/MS/*FSPXLSXN +overspecialize/GSD/*FSPXLS +overspend/SG/*FSPNT +overspent//*FSPNT +overspill/DMSG/*FSPL +overspread/SG/*FSPRT +overstaffed//*FSTFT +overstate/SDLG/*FSTT +overstatement/SM/*FSTTMNT +overstay/GSD/*FST +overstep/S/*FSTP +overstepped//*FSTPT +overstepping//*FSTPN +overstimulate/DSG/*FSTMLT +overstock/SGD/*FSTK +overstraining//*FSTRNN +overstressed//*FSTRST +overstretch/D/*FSTRX +overstrict//*FSTRKT +overstrike/GS/*FSTRK +overstrung//*FSTRNK +overstuffed//*FSTFT +oversubscribe/SDG/*FSBSKRB +oversubtle//*FSBTL +oversupply/MDSG/*FSPL +oversuspicious//*FSSPSS +overt/PY/*FT +overtake/RSZG/*FTK +overtaken//*FTKN +overtax/DSG/*FTKS +overthrew//*F@R +overthrow/GS/*F@R +overthrown//*F@RN +overtightened//*FTTNT +overtime/MGDS/*FTM +overtire/DSG/*FTR +overtone/MS/*FTN +overtook//*FTK +overture/DSMG/*FTR +overturn/SDG/*FTN +overuse/DSG/*FRS +overvalue/GSD/*FFL +overview/MS/*FF +overweening//*FWNN +overweight/GSD/*FWT +overwhelm/GDS/*FHLM +overwhelming/Y/*FHLMN +overwinter/SDG/*FWNT +overwork/GSD/*FWK +overwrap//*FRP +overwrite/SG/*FRT +overwritten//*FRTN +overwrote//*FRT +overwrought//*FRT +overzealous/P/*FSLS +overzealousness/M/*FSLSNS +Ovid/M/*FT +oviduct/SM/*FTKT +oviform//*FFM +oviparous//*FPRS +ovoid/S/*FT +ovular//*FL +ovulate/GNXDS/*FLT +ovulatory//*FLTR +ovule/MS/*FL +ovum/MS/*FM +ow/DYG/* +owe/S/*W +Owen/MS/*WN +owl/GSMDR/*L +owlet/SM/*LT +owlish/PY/*LX +owlishness/M/*LXNS +own/EGDS/*N +owned/U/*NT +owner/SM/*N +ownership/MS/*NXP +ox/MNS/*KS +oxalate/M/*KSLT +oxalic//*KSLK +oxaloacetic//*KSLSTK +oxblood/S/*KSBLT +oxbow/SM/*KSB +oxcart/MS/*KSKT +oxen/M/*KSN +oxford/MS/*KSFT +Oxford/MS/*KSFT +oxidant/SM/*KSTNT +oxidate/NVX/*KSTT +oxidation/M/*KSTXN +oxidative/Y/*KSTTF +oxide/SM/*KST +oxidization/MS/*KSTSXN +oxidize/JDRSGZ/*KSTS +oxidized/U/*KSTST +oxidizer/M/*KSTS +oxidizes/A/*KSTSS +Oxnard//*KSNT +Oxonian//*KSNN +oxtail/M/*KSTL +Oxus/M/*KSS +oxyacetylene/MS/*KSYSTLN +oxygen/MS/*KSKN +oxygenate/XSDMGN/*KSKNT +oxygenation/M/*KSKNXN +oxyhydroxides//*KSHTRKSTS +oxymora//*KSMR +oxymoron/M/*KSMRN +oyster/GSDM/*ST +oystering/M/*STRN +oz//*S +Oz/M/*S +Ozark/SM/*SK +ozone/SM/*SN +Ozymandias/M/*SMNTS +Ozzie/M/*S +Ozzy/M/*S +P//P +p/XTGJ/P +PA//P +Pa/M/P +pa/MH/P +Pablo/M/PBL +Pablum/M/PBLM +pablum/S/PBLM +Pabst/M/PBST +pabulum/SM/PBLM +PAC//PK +pace/DRSMZG/PS +Pace/M/PS +pacemaker/SM/PSMK +pacer/M/PS +pacesetter/MS/PSST +pacesetting//PSSTN +Pacheco/M/PXK +pachyderm/MS/PXTM +pachysandra/MS/PXSNTR +pacific//PSFK +Pacific/M/PSFK +pacifically//PSFKL +pacification/M/PSFKXN +pacifier/M/PSF +pacifism/MS/PSFSM +pacifist/MS/PSFST +pacifistic//PSFSTK +pacify/NRSDGXZ/PSF +pack/GZSJDRMB/PK +package/ARSDG/PKK +packaged/U/PKKT +packager/S/PKK +package's//PKKS +packages/U/PKKS +packaging/SM/PKKN +Packard/SM/PKT +packed/AU/PKT +packer/MUS/PK +packet/MSDG/PKT +packhorse/M/PKHS +packing/M/PKN +packinghouse/S/PKNHS +packs/UA/PKS +packsaddle/SM/PKSTL +Packston/M/PKSTN +Packwood/M/PKWT +Paco/M/PK +Pacorro/M/PKR +pact/SM/PKT +pad/MS/PT +Padang/M/PTNK +padded/U/PTT +Paddie/M/PT +padding/SM/PTN +paddle/MZGRSD/PTL +paddler/M/PTL +paddock/SDMG/PTK +Paddy/M/PT +paddy/SM/PT +Padget/M/PKT +Padgett/M/PKT +Padilla/M/PTL +padlock/SGDM/PTLK +Padraic/M/PTRK +Padraig/M/PTRK +padre/MS/PTR +Padrewski/M/PTRSK +Padriac/M/PTRK +paean/MS/PN +paediatrician/MS/PTTRXN +paediatrics/M/PTTRKS +paedophilia's//PTFLS +paella/SM/PL +paeony/M/PN +pagan/SM/PKN +Paganini/M/PKNN +paganism/MS/PKNSM +Page/M/PK +page/MZGDRS/PK +pageant/SM/PKNT +pageantry/SM/PKNTR +pageboy/SM/PKB +paged/U/PKT +pageful//PKFL +pager/M/PK +paginate/DSNGX/PKNT +Paglia/M/PKL +pagoda/MS/PKT +Pahlavi/M/PLF +paid/AU/PT +Paige/M/PK +Pail/M/PL +pail/SM/PL +pailful/SM/PLFL +pain/GSDM/PN +Paine/M/PN +painful/YP/PNFL +painfuller//PNFL +painfullest//PNFLST +painfulness/MS/PNFLNS +painkiller/MS/PNKL +painkilling//PNKLN +painless/YP/PNLS +painlessness/S/PNLSNS +painstaking/SY/PNSTKN +paint/ADRZGS/PNT +paintbox/M/PNTBKS +paintbrush/SM/PNTBRX +painted/U/PNTT +painter/YM/PNT +painterly/P/PNTL +painting/SM/PNTN +paint's//PNTS +paintwork//PNTWK +pair/JSDMG/P +paired/UA/PRT +pairs/A/PS +pairwise//PWS +paisley/MS/PSL +pajama/MDS/PKM +Pakistan/M/PKSTN +Pakistani/S/PKSTN +pal/SJMDRYTG/PL +palace/MS/PLS +paladin/MS/PLTN +palaeolithic//PLL@K +palaeontologists//PLNTLKSTS +palaeontology/M/PLNTLK +palanquin/MS/PLNKN +palatability/M/PLTBLT +palatable/P/PLTBL +palatableness/M/PLTBLNS +palatal/YS/PLTL +palatalization/MS/PLTLSXN +palatalize/SDG/PLTLS +palate/BMS/PLT +palatial/Y/PLXL +palatinate/SM/PLTNT +Palatine//PLTN +palatine/S/PLTN +palaver/GSDM/PLF +pale/SPY/PL +paleface/SM/PLFS +Palembang/M/PLMBNK +paleness/S/PLNS +Paleocene//PLSN +Paleogene//PLKN +paleographer/SM/PLKRF +paleography/SM/PLKRF +paleolithic//PLL@K +Paleolithic//PLL@K +paleontologist/S/PLNTLKST +paleontology/MS/PLNTLK +Paleozoic//PLSK +Palermo/M/PLM +Palestine/M/PLSTN +Palestinian/S/PLSTNN +Palestrina/M/PLSTRN +palette/MS/PLT +Paley/M/PL +palfrey/MS/PLFR +palimony/S/PLMN +palimpsest/MS/PLMPSST +palindrome/MS/PLNTRM +palindromic//PLNTRMK +paling/M/PLN +palisade/MGSD/PLST +Palisades/M/PLSTS +palish//PLX +pall/GSMD/PL +Pall/M/PL +Palladio/M/PLT +palladium/SM/PLTM +pallbearer/SM/PLBR +pallet/SMGD/PLT +palletized//PLTST +palliate/SDVNGX/PLT +palliation/M/PLXN +palliative/SY/PLTF +pallid/PY/PLT +pallidness/MS/PLTNS +pallor/MS/PL +palm/GSMDR/PLM +Palm/MR/PLM +palmate//PLMT +palmer/M/PLM +Palmer/M/PLM +Palmerston/M/PLMSTN +palmetto/MS/PLMT +palmist/MS/PLMST +palmistry/MS/PLMSTR +Palmolive/M/PLMLF +palmtop/S/PLMTP +palmy/RT/PLM +Palmyra/M/PLMR +Palo/M/PL +Paloma/M/PLM +Palomar/M/PLM +palomino/MS/PLMN +palpable//PLPBL +palpably//PLPBL +palpate/SDNGX/PLPT +palpation/M/PLPXN +palpitate/NGXSD/PLPTT +palpitation/M/PLPTXN +palsy/GSDM/PLS +paltriness/SM/PLTRNS +paltry/TRP/PLTR +paludal//PLTL +Pam/M/PM +Pamela/M/PML +Pamelina/M/PMLN +Pamella/M/PML +Pamirs//PMS +Pammi/M/PM +Pammie/M/PM +Pammy/M/PM +pampas/M/PMPS +pamper/RDSG/PMP +pamperer/M/PMPR +Pampers//PMPS +pamphlet/SM/PMFLT +pamphleteer/DMSG/PMFLT +Pan/M/PN +pan/SMD/PN +panacea/MS/PNS +panache/MS/PNX +Panama/MS/PNM +panama/S/PNM +Panamanian/S/PNMNN +pancake/MGSD/PNKK +Panchito/M/PNXT +Pancho/M/PNX +panchromatic//PNXRMTK +pancreas/MS/PNKRS +pancreatic//PNKRTK +panda/SM/PNT +pandemic/S/PNTMK +pandemonium/SM/PNTMNM +pander/ZGRDS/PNT +Pandora/M/PNTR +pane/KMS/PN +panegyric/SM/PNKRK +panel/JSGDM/PNL +paneling/M/PNLN +panelist/MS/PNLST +panelization//PNLSXN +panelized//PNLST +pang/GDMS/PNK +Pangaea/M/PNK +pangolin/M/PNKLN +panhandle/RSDGMZ/PNHNTL +panic/SM/PNK +panicked//PNKT +panicking//PNKN +panicky/RT/PNK +panier's//PNS +panjandrum/M/PNKNTRM +Pankhurst/M/PNKHST +Panmunjom/M/PNMNKM +panned//PNT +pannier/SM/PN +panning//PNN +panoply/MSD/PNPL +panorama/MS/PNRM +panoramic//PNRMK +panpipes//PNPPS +Pansie/M/PNS +Pansy/M/PNS +pansy/SM/PNS +pant/GDS/PNT +Pantagruel/M/PNTKRL +Pantaloon/M/PNTLN +pantaloons//PNTLNS +pantheism/MS/PN@SM +pantheist/S/PN@ST +pantheistic//PN@STK +pantheon/MS/PN@N +panther/SM/PN@ +pantie/SM/PNT +pantiled//PNTLT +pantograph/M/PNTKRF +pantomime/SDGM/PNTMM +pantomimic//PNTMMK +pantomimist/SM/PNTMMST +pantry/SM/PNTR +pantsuit/SM/PNTST +pantyhose//PNTHS +pantyliner//PNTLN +pantywaist/SM/PNTWST +Panza/M/PNS +Paola/M/PL +Paoli/M/PL +Paolina/M/PLN +Paolo/M/PL +pap/SZMNR/PP +papa/MS/PP +papacy/SM/PPS +Papagena/M/PPKN +Papageno/M/PPKN +papal/Y/PPL +paparazzi//PPRS +papaw/SM/PP +papaya/MS/PPY +paper/GJMRDZ/PP +paperback/GDMS/PPBK +paperboard/MS/PPBT +paperboy/SM/PPB +paperer/M/PPR +papergirl/SM/PPKL +paperhanger/SM/PPHNK +paperhanging/SM/PPHNKN +paperiness/M/PPRNS +paperless//PPLS +paperweight/MS/PPWT +paperwork/SM/PPWK +papery/P/PPR +papilla/M/PPL +papillae//PPL +papillary//PPLR +papist/MS/PPST +papoose/SM/PPS +Pappas/M/PPS +papped//PPT +papping//PPN +pappy/RST/PP +paprika/MS/PPRK +papyri//PPR +papyrus/M/PPRS +Paquito/M/PKT +par/ZGSJBMDR/P +para/MS/PR +parable/MGSD/PRBL +parabola/MS/PRBL +parabolic//PRBLK +paraboloid/MS/PRBLT +paraboloidal/M/PRBLTL +Paracelsus/M/PRSLSS +paracetamol/M/PRSTML +parachute/RSDMG/PRXT +parachuter/M/PRXT +parachutist/MS/PRXTST +Paraclete/M/PRKLT +parade/RSDMZG/PRT +parader/M/PRT +paradigm/SM/PRTKM +paradigmatic//PRTKMTK +paradisaic//PRTSK +paradisaical//PRTSKL +Paradise/M/PRTS +paradise/MS/PRTS +paradox/MS/PRTKS +paradoxic//PRTKSK +paradoxical/YP/PRTKSKL +paradoxicalness/M/PRTKSKLNS +paraffin/GSMD/PRFN +paragon/SGDM/PRKN +paragraph/MRDG/PRKRF +paragrapher/M/PRKRF +paragraphs//PRKRFS +Paraguay/M/PRK +Paraguayan/S/PRKYN +parakeet/MS/PRKT +paralegal/S/PRLKL +paralinguistic//PRLNSTK +parallax/SM/PRLKS +parallel/DSG/PRLL +paralleled/U/PRLLT +parallelepiped/MS/PRLLPPT +parallelism/SM/PRLLSM +parallelization/MS/PRLLSXN +parallelize/ZGDSR/PRLLS +parallelogram/MS/PRLLKRM +paralysis/M/PRLSS +paralytic/S/PRLTK +paralytically//PRLTKL +paralyze/ZGDRS/PRLS +paralyzed/Y/PRLST +paralyzedly/S/PRLSTL +paralyzer/M/PRLS +paralyzing/Y/PRLSN +paralyzingly/S/PRLSNL +paramagnet/M/PRMKNT +paramagnetic//PRMKNTK +Paramaribo/M/PRMRB +paramecia//PRMX +paramecium/M/PRMSM +paramedic/MS/PRMTK +paramedical/S/PRMTKL +parameter/SM/PRMT +parameterization/SM/PRMTRSXN +parameterize/BSDG/PRMTRS +parameterized/U/PRMTRST +parameterless//PRMTLS +parametric//PRMTRK +parametrically//PRMTRKL +parametrization//PRMTRSXN +parametrize/DS/PRMTRS +paramilitary/S/PRMLTR +paramount/S/PRMNT +paramour/MS/PRM +Paramus/M/PRMS +Paraná//PRN +paranoia/SM/PRN +paranoiac/S/PRNK +paranoid/S/PRNT +paranormal/SY/PRNML +parapet/SMD/PRPT +paraphernalia//PRFNL +paraphrase/GMSRD/PRFRS +paraphraser/M/PRFRS +paraplegia/MS/PRPLK +paraplegic/S/PRPLKK +paraprofessional/SM/PRPRFXNL +parapsychologist/S/PRPSXLKST +parapsychology/MS/PRPSXLK +paraquat/S/PRKT +parasite/SM/PRST +parasitic/S/PRSTK +parasitically//PRSTKL +parasitism/SM/PRSTSM +parasitologist/M/PRSTLKST +parasitology/M/PRSTLK +parasol/SM/PRSL +parasympathetic/S/PRSMP@TK +parathion/SM/PR@N +parathyroid/S/PR@RT +paratroop/RSZ/PRTRP +paratrooper/M/PRTRP +paratyphoid/S/PRTFT +parboil/DSG/PBL +PARC/M/PK +parcel/SGMD/PSL +parceled/U/PSLT +parceling/M/PSLN +parch/GSDL/PX +Parcheesi/M/PXS +parchment/SM/PXMNT +pardon/ZBGRDS/PTN +pardonable/U/PTNBL +pardonableness/M/PTNBLNS +pardonably/U/PTNBL +pardoner/M/PTN +pare/S/PR +paregoric/SM/PRKRK +parent/MDGJS/PRNT +parentage/MS/PRNTK +parental/Y/PRNTL +parenteral//PRNTRL +parentheses//PRN@SS +parenthesis/M/PRN@SS +parenthesize/GSD/PRN@SS +parenthetic//PRN@TK +parenthetical/Y/PRN@TKL +parenthood/MS/PRN@T +pares/S/PRS +paresis/M/PRSS +Pareto/M/PRT +parfait/SM/PFT +pariah/M/PR +pariahs//PRS +parietal/S/PRTL +parimutuel/S/PRMTL +paring/M/PRN +Paris/M/PRS +parish/MS/PRX +parishioner/SM/PRXN +Parisian/SM/PRXN +parity/ESM/PRT +park/GJZDRMS/PK +Park/RMS/PK +parka/MS/PK +Parke/M/PK +Parker/M/PK +Parkersburg/M/PKSBK +Parkhouse/M/PKHS +parking/M/PKN +Parkinson/M/PKNSN +parkish//PKX +parkland/M/PKLNT +parklike//PKLK +Parkman//PKMN +parkway/MS/PKW +parlance/SM/PLNS +parlay/DGS/PL +parley/MDSG/PL +parliament/MS/PLMNT +Parliament/MS/PLMNT +parliamentarian/SM/PLMNTRN +parliamentary/U/PLMNTR +parlor/SM/PL +parlous//PLS +Parmesan/S/PMSN +parmigiana//PMKN +Parnassus/SM/PNSS +Parnell/M/PNL +parochial/Y/PRXL +parochialism/SM/PRXLSM +parochiality//PRXLT +parodied/U/PRTT +parodist/SM/PRTST +parody/SDGM/PRT +parole/MSDG/PRL +parolee/MS/PRL +paroxysm/MS/PRKSSM +paroxysmal//PRKSSML +parquet/SMDG/PKT +parquetry/SM/PKTR +Parr/M/PR +parrakeet's//PRKTS +parred//PRT +parricidal//PRSTL +parricide/MS/PRST +parring//PRN +Parrish/M/PRX +Parrnell/M/PRNL +parrot/GMDS/PRT +parrotlike//PRTLK +parry/GSD/PR +Parry/M/PR +pars/JDSRGZ/PS +parse//PS +parsec/SM/PSK +parsed/U/PST +Parsee's//PSS +parser/M/PS +Parsifal/M/PSFL +parsimonious/Y/PSMNS +parsimony/SM/PSMN +parsley/MS/PSL +parsnip/MS/PSNP +parson/MS/PSN +parsonage/MS/PSNK +Parsons/M/PSNS +part/CDGS/PT +partake/ZGSR/PTK +partaken//PTKN +partaker/M/PTK +parter/S/PT +parterre/MS/PTR +parthenogeneses//P@NKNSS +parthenogenesis/M/P@NKNSS +Parthenon/M/P@NN +Parthia/M/P@ +partial/SY/PXL +partiality/MS/PXLT +participant/MS/PTSPNT +participate/NGVDSX/PTSPT +participation/M/PTSPXN +participator/S/PTSPT +participatory//PTSPTR +participial/Y/PTSPL +participle/MS/PTSPL +particle/MS/PTKL +particleboard/S/PTKLBT +particolored//PTKLRT +particular/SY/PTKL +particularistic//PTKLRSTK +particularity/SM/PTKLRT +particularization/MS/PTKLRSXN +particularize/GSD/PTKLRS +particulate/S/PTKLT +parting/MS/PTN +partisan/SM/PTSN +partisanship/SM/PTSNXP +partition/AMRDGS/PTXN +partitioned/U/PTXNT +partitioner/M/PTXN +partitive/S/PTTF +partizan's//PTSNS +partly//PTL +partner/DMGS/PTN +partnership/SM/PTNXP +partook//PTK +partridge/MS/PTRK +part's//PTS +parturition/SM/PTRXN +partway//PTW +party/RSDMG/PT +parvenu/SM/PFN +pas/S/PS +Pasadena/M/PSTN +PASCAL//PSKL +Pascal/M/PSKL +pascal/SM/PSKL +Pascale/M/PSKL +paschal/S/PSXL +pasha/MS/PX +Paso/M/PS +Pasquale/M/PSKL +pass/JGVBZDSR/PS +passably//PSBL +passage/MGSD/PSK +passageway/MS/PSKW +Passaic/M/PSK +passband//PSBNT +passbook/MS/PSBK +passé/M/PS +passel/MS/PSL +passenger/MYS/PSNK +passer/M/PS +passerby//PSB +passersby//PSSB +passim//PSM +passing/Y/PSN +passion/SEM/PXN +Passion/SM/PXN +passionate/EYP/PXNT +passionated//PXNTT +passionateness/EM/PXNTNS +passionates//PXNTS +passionating//PXNTN +passioned//PXNT +passionflower/MS/PXNFLW +passioning//PXNN +passionless//PXNLS +passivated//PSFTT +passive/SYP/PSF +passiveness/S/PSFNS +passivity/S/PSFT +passkey/SM/PSK +passmark//PSMK +passover//PSF +Passover/MS/PSF +passport/SM/PSPT +password/SDM/PSWT +past/PGMDRS/PST +pasta/MS/PST +paste/MS/PST +pasteboard/SM/PSTBT +pasted/UA/PSTT +pastel/MS/PSTL +pastern/SM/PSTN +Pasternak/M/PSTNK +pasteup//PSTP +Pasteur/M/PST +pasteurization/MS/PSTRSXN +pasteurize/RSDGZ/PSTRS +pasteurized/U/PSTRST +pasteurizer/M/PSTRS +pastiche/MS/PSTX +pastille/SM/PSTL +pastime/SM/PSTM +pastiness/SM/PSTNS +pastor/GSDM/PST +pastoral/SPY/PSTRL +pastoralization/M/PSTRLSXN +pastorate/MS/PSTRT +pastrami/MS/PSTRM +pastry/SM/PSTR +pasts/A/PSTS +past's/A/PSTS +pasturage/SM/PSTRK +pasture/MGSRD/PSTR +pasturer/M/PSTR +pasty/PTRS/PST +Pat/MN/PT +pat/MNDRS/PT +Patagonia/M/PTKN +Patagonian/S/PTKNN +patch/EGRSD/PX +patcher/EM/PX +patchily//PXL +patchiness/S/PXNS +patch's//PXS +patchwork/RMSZ/PXWK +patchy/PRT/PX +Pate/M/PT +pate/SM/PT +Patel/M/PTL +patella/MS/PTL +patellae//PTL +paten/M/PTN +Paten/M/PTN +patent/ZGMRDYSB/PTNT +patentee/SM/PTNT +pater/M/PT +paterfamilias/SM/PTFMLS +paternal/Y/PTNL +paternalism/MS/PTNLSM +paternalist//PTNLST +paternalistic//PTNLSTK +paternity/SM/PTNT +paternoster/SM/PTNST +Paterson/M/PTSN +path/M/P@ +pathetic//P@TK +pathetically//P@TKL +pathfinder/MS/P@FNT +pathless/P/P@LS +pathname/SM/P@NM +pathogen/SM/P@KN +pathogenesis/M/P@KNSS +pathogenic//P@KNK +pathologic//P@LKK +pathological/Y/P@LKKL +pathologist/MS/P@LKST +pathology/SM/P@LK +pathos/SM/P@S +paths//P@S +pathway/MS/P@W +Patience/M/PTNS +patience/SM/PTNS +patient/MRYTS/PTNT +patients/I/PTNTS +patient's/I/PTNTS +Patin/M/PTN +patina/SM/PTN +patine//PTN +patio/MS/PX +Patna/M/PTN +patois/M/PTS +Paton/M/PTN +patresfamilias//PTRSFMLS +patriarch/M/PTRX +patriarchal//PTRXL +patriarchate/MS/PTRXT +patriarchs//PTRXS +patriarchy/MS/PTRX +Patric/M/PTRK +Patrica/M/PTRK +Patrice/M/PTRS +Patricia/M/PTRX +patrician/MS/PTRXN +patricide/MS/PTRST +Patricio/M/PTRS +Patrick/M/PTRK +patrimonial//PTRMNL +patrimony/SM/PTRMN +patriot/SM/PTRT +patriotic/U/PTRTK +patriotically//PTRTKL +patriotism/SM/PTRTSM +patristic/S/PTRSTK +Patrizia/M/PTRS +Patrizio/M/PTRS +Patrizius/M/PTRSS +patrol/MS/PTRL +patrolled//PTRLT +patrolling//PTRLN +patrolman/M/PTRLMN +patrolmen//PTRLMN +patrolwoman//PTRLWMN +patrolwomen//PTRLWMN +patron/YMS/PTRN +patronage/MS/PTRNK +patroness/S/PTRNS +patronization//PTRNSXN +patronize/GZRSDJ/PTRNS +patronized/U/PTRNST +patronizer/M/PTRNS +patronizes/A/PTRNSS +patronizing/YM/PTRNSN +patronizing's/U/PTRNSNS +patronymic/S/PTRNMK +patronymically//PTRNMKL +patroon/MS/PTRN +patsy/SM/PTS +Patsy/SM/PTS +patted//PTT +Patten/M/PTN +patten/MS/PTN +patter/RDSGJ/PT +patterer/M/PTR +pattern/GSDM/PTN +patternless//PTNLS +Patterson/M/PTSN +Patti/M/PT +Pattie/M/PT +Pattin/M/PTN +patting//PTN +Patton/M/PTN +Patty/M/PT +patty/SM/PT +paucity/SM/PST +Paul/MG/PL +Paula/M/PL +Paule/M/PL +Pauletta/M/PLT +Paulette/M/PLT +Pauli/M/PL +Paulie/M/PL +Paulina/M/PLN +Pauline//PLN +Pauling/M/PLN +Paulita/M/PLT +Paulo/M/PL +Paulsen/M/PLSN +Paulson/M/PLSN +Paulus/M/PLS +Pauly/M/PL +paunch/GMSD/PNX +paunchiness/M/PNXNS +paunchy/RTP/PNX +pauper/SGDM/PP +pauperism/SM/PPRSM +pauperize/SDG/PPRS +pause/DSG/PS +Pavarotti//PFRT +pave/GDRSJL/PF +paved/UA/PFT +Pavel/M/PFL +pavement/SGDM/PFMNT +paver/M/PF +paves/A/PFS +Pavia/M/PF +pavilion/SMDG/PFLN +paving/A/PFN +paving's//PFNS +Pavla/M/PFL +Pavlov/M/PFLF +Pavlova/MS/PFLF +Pavlovian//PFLFN +paw/MDSG/P +pawl/SM/PL +pawn/GSDRM/PN +pawnbroker/SM/PNBRK +pawnbroking/S/PNBRKN +Pawnee/SM/PN +pawner/M/PN +pawnshop/MS/PNXP +pawpaw's//PPS +Pawtucket/M/PTKT +paxes//PKSS +Paxon/M/PKSN +Paxton/M/PKSTN +pay/AGSLB/P +payable/S/PYBL +payback/S/PBK +paycheck/SM/PXK +payday/MS/PT +payed//PYT +payee/SM/PY +payer/SM/PY +payload/SM/PLT +paymaster/SM/PMST +payment/ASM/PMNT +Payne/SM/PN +payoff/MS/PYF +payola/MS/PYL +payout/S/PYT +payroll/MS/PRL +payslip/S/PSLP +Payson/M/PSN +Payton/M/PTN +Paz/M/PS +Pb/M/PB +PBS//PBS +PBX//PBKS +PC/M/PK +PCB//PKB +PCP//PKP +PCs//PKS +pct//PKT +pd//PT +PD//PT +Pd/M/PT +PDP//PTP +PDQ//PTK +PDT//PTT +PE//P +pea/MS/P +Peabody/M/PBT +peace/GMDS/PS +Peace/M/PS +peaceable/P/PSBL +peaceableness/M/PSBLNS +peaceably//PSBL +peaceful/PY/PSFL +peacefuller//PSFL +peacefullest//PSFLST +peacefulness/S/PSFLNS +peacekeeping/S/PSKPN +peacemaker/MS/PSMK +peacemaking/MS/PSMKN +peacetime/MS/PSTM +peach/GSDM/PX +Peachtree/M/PXTR +peachy/RT/PX +peacock/SGMD/PKK +Peadar/M/PT +peafowl/SM/PFL +peahen/MS/PHN +peak/SGDM/PK +peaked/P/PKT +peakiness/M/PKNS +peaky/P/PK +peal/MDSG/PL +Peale/M/PL +pealed/A/PLT +peals/A/PLS +peanut/SM/PNT +pear/SYM/P +Pearce/M/PS +Pearl/M/PL +pearl/SGRDM/PL +Pearla/M/PL +Pearle/M/PL +pearler/M/PL +Pearlie/M/PL +Pearline/M/PLN +pearly/TRS/PL +Pearson/M/PSN +peartrees//PTRS +Peary/M/PR +peasant/SM/PSNT +peasanthood//PSN@T +peasantry/SM/PSNTR +peashooter/MS/PXT +peat/SM/PT +peats/A/PTS +peaty/TR/PT +pebble/MGSD/PBL +pebbling/M/PBLN +pebbly/TR/PBL +Pebrook/M/PBRK +pecan/SM/PKN +peccadillo/M/PKTL +peccadilloes//PKTLS +peccary/MS/PKR +Pechora/M/PXR +peck/GZSDRM/PK +Peck/M/PK +pecker/M/PK +Peckinpah/M/PKNP +Pecos/M/PKS +pectic//PKTK +pectin/SM/PKTN +pectoral/S/PKTRL +peculate/NGDSX/PKLT +peculator/S/PKLT +peculiar/SY/PKL +peculiarity/MS/PKLRT +pecuniary//PKNR +pedagogic/S/PTKKK +pedagogical/Y/PTKKKL +pedagogics/M/PTKKKS +pedagogue/SDGM/PTKK +pedagogy/MS/PTKK +pedal/SGRDM/PTL +pedant/SM/PTNT +pedantic//PTNTK +pedantically//PTNTKL +pedantry/MS/PTNTR +peddle/ZGRSD/PTL +peddler/M/PTL +Peder/M/PT +pederast/SM/PTRST +pederasty/SM/PTRST +pedestal/GDMS/PTSTL +pedestrian/MS/PTSTRN +pedestrianization//PTSTRNSXN +pedestrianize/GSD/PTSTRNS +pediatric/S/PTTRK +pediatrician/SM/PTTRXN +pedicab/SM/PTKB +pedicure/DSMG/PTKR +pedicurist/SM/PTKRST +pedigree/DSM/PTKR +pediment/DMS/PTMNT +pedlar's//PTLS +pedometer/MS/PTMT +pedophile/S/PTFL +pedophilia//PTFL +Pedro/M/PTR +peduncle/MS/PTNKL +pee/ZDRS/P +peeing//PN +peek/GSD/PK +peekaboo/SM/PKB +Peel/M/PL +peel/SJGZDR/PL +peeler/M/PL +peeling/M/PLN +peen/GSDM/PN +peep/SGZDR/PP +peeper/M/PP +peephole/SM/PFL +peepshow/MS/PPX +peepy//PP +peer/DMG/P +peerage/MS/PRK +peeress/MS/PRS +peerless/PY/PLS +peerlessness/M/PLSNS +peeve/GZMDS/PF +peevers/M/PFS +peevish/YP/PFX +peevishness/SM/PFXNS +peewee/S/PW +Peg/M/PK +peg/MS/PK +Pegasus/MS/PKSS +pegboard/SM/PKBT +Pegeen/M/PKN +pegged//PKT +Peggi/M/PK +Peggie/M/PK +pegging//PKN +Peggy/M/PK +Pei/M/P +peignoir/SM/PKN +Peiping/M/PPN +Peirce/M/PS +pejoration/SM/PKRXN +pejorative/SY/PKRTF +peke/MS/PK +Pekinese's//PKNSS +Peking/SM/PKN +pekingese//PKNS +Pekingese/SM/PKNS +pekoe/SM/PK +pelagic//PLKK +Pele/M/PL +Pelee/M/PL +pelf/SM/PLF +Pelham/M/PLHM +pelican/SM/PLKN +pellagra/SM/PLKR +pellet/SGMD/PLT +pellucid//PLST +Peloponnese/M/PLPNS +pelt/GSDR/PLT +pelter/M/PLT +pelvic/S/PLFK +pelvis/SM/PLFS +Pembroke/M/PMBRK +pemmican/SM/PMKN +pen/M/PN +Pen/M/PN +Pena/M/PN +penal/Y/PNL +penalization/SM/PNLSXN +penalize/SDG/PNLS +penalized/U/PNLST +penalty/MS/PNLT +penance/SDMG/PNNS +pence/M/PNS +penchant/MS/PNXNT +pencil/SGJMD/PNSL +pend/DCGS/PNT +pendant/SM/PNTNT +pendent/CS/PNTNT +Penderecki/M/PNTRK +Pendleton/M/PNTLTN +pendulous//PNTLS +pendulum/MS/PNTLM +Penelopa/M/PNLP +Penelope/M/PNLP +penetrability/SM/PNTRBLT +penetrable//PNTRBL +penetrate/SDVGNX/PNTRT +penetrating/Y/PNTRTN +penetration/M/PNTRXN +penetrative/PY/PNTRTF +penetrativeness/M/PNTRTFNS +penetrator/MS/PNTRT +penguin/MS/PNKN +penicillin/SM/PNSLN +penile//PNL +peninsula/SM/PNNSL +peninsular//PNNSL +penis/MS/PNS +penitence/MS/PNTNS +penitent/SY/PNTNT +penitential/YS/PNTNXL +penitentiary/MS/PNTNXR +penknife/M/PNKNF +penknives//PNKNFS +penlight/MS/PNLT +penman/M/PNMN +penmanship/MS/PNMNXP +penmen//PNMN +Penn/M/PN +Penna//PN +pennant/SM/PNNT +penned//PNT +Penney/M/PN +Penni/M/PN +Pennie/M/PN +penniless//PNLS +penning//PNN +Pennington/M/PNNTN +pennis//PNS +pennon/SM/PNN +Pennsylvania/M/PNSLFN +Pennsylvanian/S/PNSLFNN +Penny/M/PN +penny/SM/PN +pennyweight/SM/PNWT +pennyworth/M/PNW@ +penologist/MS/PNLKST +penology/MS/PNLK +Penrod/M/PNRT +pens/V/PNS +Pensacola/M/PNSKL +pension/ZGMRDBS/PNXN +pensioner/M/PNXN +pensive/PY/PNSF +pensiveness/S/PNSFNS +pent/AS/PNT +pentacle/MS/PNTKL +Pentagon/M/PNTKN +pentagon/SM/PNTKN +pentagonal/SY/PNTKNL +pentagram/MS/PNTKRM +pentameter/SM/PNTMT +Pentateuch/M/PNTTX +pentathlete/S/PNT@LT +pentathlon/MS/PNT@LN +pentatonic//PNTTNK +Pentecost/SM/PNTKST +pentecostal//PNTKSTL +Pentecostal/S/PNTKSTL +Pentecostalism/S/PNTKSTLSM +penthouse/SDGM/PN@S +Pentium/M/PNTM +penuche/SM/PNX +penultimate/SY/PNLTMT +penumbra/MS/PNMBR +penumbrae//PNMBR +penurious/YP/PNRS +penuriousness/MS/PNRSNS +penury/SM/PNR +peon/MS/PN +peonage/MS/PNK +peony/SM/PN +people/SDMG/PPL +Peoria/M/PR +pep/SM/PP +Pepe/M/PP +Pepi/M/PP +Pepillo/M/PPL +Pepin/M/PPN +Pepita/M/PPT +Pepito/M/PPT +pepped//PPT +pepper/SGRDM/PP +peppercorn/MS/PPKN +pepperer/M/PPR +peppergrass/M/PPKRS +peppermint/MS/PPMNT +pepperoni/S/PPRN +peppery//PPR +peppiness/SM/PPNS +pepping//PPN +peppy/PRT/PP +Pepsi/M/PPS +Pepsico/M/PPSK +PepsiCo/M/PPSK +pepsin/SM/PPSN +peptic/S/PPTK +peptidase/SM/PPTTS +peptide/SM/PPTT +peptizing//PPTSN +Pepys/M/PPS +Pequot/M/PKT +per/K/P +peradventure/S/PRTFNTR +perambulate/DSNGX/PRMBLT +perambulation/M/PRMBLXN +perambulator/MS/PRMBLT +percale/MS/PKL +perceivably//PSFBL +perceive/DRSZGB/PSF +perceived/U/PSFT +perceiver/M/PSF +percent/MS/PSNT +percentage/MS/PSNTK +percentile/SM/PSNTL +percept/VMS/PSPT +perceptible//PSPTBL +perceptibly//PSPTBL +perception/MS/PSPXN +perceptional//PSPXNL +perceptive/YP/PSPTF +perceptiveness/MS/PSPTFNS +perceptual/Y/PSPTL +Perceval/M/PSFL +perch/GSDM/PX +perchance//PXNS +perchlorate/M/PXLRT +perchlorination//PXLRNXN +percipience/MS/PSPNS +percipient/S/PSPNT +Percival/M/PSFL +percolate/NGSDX/PKLT +percolation/M/PKLXN +percolator/MS/PKLT +percuss/DSGV/PKS +percussion/SAM/PKXN +percussionist/MS/PKXNST +percussive/PY/PKSF +percussiveness/M/PKSFNS +percutaneous/Y/PKTNS +Percy/M/PS +perdition/MS/PTXN +perdurable//PTRBL +peregrinate/XSDNG/PRKRNT +peregrination/M/PRKRNXN +peregrine/S/PRKRN +Perelman/M/PRLMN +peremptorily//PRMPTRL +peremptory/P/PRMPTR +perennial/SY/PRNL +pères//PRS +perestroika/S/PRSTRK +Perez/M/PRS +perfect/DRYSTGVP/PFKT +perfecta/S/PFKT +perfecter/M/PFKT +perfectibility/MS/PFKTBLT +perfectible//PFKTBL +perfection/MS/PFKXN +perfectionism/MS/PFKXNSM +perfectionist/MS/PFKXNST +perfective/PY/PFKTF +perfectiveness/M/PFKTFNS +perfectness/MS/PFKTNS +perfidious/YP/PFTS +perfidiousness/M/PFTSNS +perfidy/MS/PFT +perforate/XSDGN/PFRT +perforated/U/PFRTT +perforation/M/PFRXN +perforce//PFS +perform/SDRZGB/PFM +performance/MS/PFMNS +performed/U/PFMT +performer/M/PFM +perfume/ZMGSRD/PFM +perfumer/M/PFM +perfumery/SM/PFMR +perfunctorily//PFNKTRL +perfunctoriness/M/PFNKTRNS +perfunctory/P/PFNKTR +perfused//PFST +perfusion/M/PFXN +Pergamon/M/PKMN +pergola/SM/PKL +perhaps/S/PHPS +Peri/M/PR +Peria/M/PR +pericardia//PRKT +pericardium/M/PRKTM +Perice/M/PRS +Periclean//PRKLN +Pericles/M/PRKLS +perigee/SM/PRK +perihelia//PRHL +perihelion/M/PRHLN +peril/GSDM/PRL +Perilla/M/PRL +perilous/PY/PRLS +perilousness/M/PRLSNS +perimeter/MS/PRMT +perinatal//PRNTL +perinea//PRN +perineum/M/PRNM +period/MS/PRT +periodic//PRTK +periodical/YMS/PRTKL +periodicity/MS/PRTST +periodontal/Y/PRTNTL +periodontics/M/PRTNTKS +periodontist/S/PRTNTST +peripatetic/S/PRPTTK +peripheral/SY/PRFRL +periphery/SM/PRFR +periphrases//PRFRSS +periphrasis/M/PRFRSS +periphrastic//PRFRSTK +periscope/SDMG/PRSKP +perish/BZGSRD/PRX +perishable/SM/PRXBL +perishing/Y/PRXN +peristalses//PRSTLSS +peristalsis/M/PRSTLSS +peristaltic//PRSTLTK +peristyle/MS/PRSTL +peritoneal//PRTNL +peritoneum/SM/PRTNM +peritonitis/MS/PRTNTS +periwig/MS/PRWK +periwigged//PRWKT +periwigging//PRWKN +periwinkle/SM/PRWNKL +perjure/SRDZG/PKR +perjurer/M/PKR +perjury/MS/PKR +perk/GDS/PK +perkily//PKL +Perkin/SM/PKN +perkiness/S/PKNS +perky/TRP/PK +Perl/M/PL +Perla/M/PL +Perle/M/PL +Perm/M/PM +perm/MDGS/PM +permafrost/MS/PMFRST +permalloy/M/PML +Permalloy/M/PML +permanence/SM/PMNNS +permanency/MS/PMNNS +permanent/YSP/PMNNT +permanentness/M/PMNNTNS +permeability/SM/PMBLT +permeable/P/PMBL +permeableness/M/PMBLNS +permeate/NGVDSX/PMT +Permian//PMN +permissibility/M/PMSBLT +permissible/P/PMSBL +permissibleness/M/PMSBLNS +permissibly//PMSBL +permission/SM/PMXN +permissive/YP/PMSF +permissiveness/MS/PMSFNS +permit/SM/PMT +permitted//PMTT +permitting//PMTN +permutation/MS/PMTXN +permute/SDG/PMT +Pernell/M/PNL +pernicious/PY/PNSS +perniciousness/MS/PNSSNS +Pernod/M/PNT +Peron/M/PRN +peroration/SM/PRRXN +Perot/M/PRT +peroxidase/M/PRKSTS +peroxide/MGDS/PRKST +perpend/DG/PPNT +perpendicular/SY/PPNTKL +perpendicularity/SM/PPNTKLRT +perpetrate/NGXSD/PPTRT +perpetration/M/PPTRXN +perpetrator/SM/PPTRT +perpetual/SY/PPTL +perpetuate/NGSDX/PPTT +perpetuation/M/PPTXN +perpetuity/MS/PPTT +perplex/DSG/PPLKS +perplexed/Y/PPLKST +perplexity/MS/PPLKST +perquisite/SM/PKST +Perren/M/PRN +Perri/M/PR +Perrine/M/PRN +Perry/MR/PR +persecute/XVNGSD/PSKT +persecution/M/PSKXN +persecutor/MS/PSKT +persecutory//PSKTR +Perseid/M/PST +Persephone/M/PSFN +Perseus/M/PSS +perseverance/MS/PSFRNS +persevere/GSD/PSFR +persevering/Y/PSFRN +Pershing/M/PXN +Persia/M/PX +Persian/S/PXN +persiflage/MS/PSFLK +persimmon/SM/PSMN +Persis/M/PSS +persist/DRSG/PSST +persistence/SM/PSSTNS +persistent/Y/PSSTNT +persnickety//PSNKT +person/BMS/PSN +persona/M/PSN +personable/P/PSNBL +personableness/M/PSNBLNS +personae//PSN +personage/SM/PSNK +personal/YS/PSNL +personality/SM/PSNLT +personalization/CMS/PSNLSXN +personalize/CSDG/PSNLS +personalized/U/PSNLST +personalty/MS/PSNLT +personification/M/PSNFKXN +personifier/M/PSNF +personify/XNGDRS/PSNF +personnel/SM/PSNL +persons/U/PSNS +person's/U/PSNS +perspective/YMS/PSPKTF +perspex//PSPKS +perspicacious/PY/PSPKSS +perspicaciousness/M/PSPKSSNS +perspicacity/S/PSPKST +perspicuity/SM/PSPKT +perspicuous/YP/PSPKS +perspicuousness/M/PSPKSNS +perspiration/MS/PSPRXN +perspire/DSG/PSPR +persuade/ZGDRSB/PST +persuaded/U/PSTT +persuader/M/PST +persuasion/SM/PSXN +persuasive/U/PSSF +persuasively//PSSFL +persuasiveness/MS/PSSFNS +pert/YRTSP/PT +pertain/GSD/PTN +Perth/M/P@ +pertinacious/YP/PTNSS +pertinaciousness/M/PTNSSNS +pertinacity/MS/PTNST +pertinence/S/PTNNS +pertinent/YS/PTNNT +pertness/MS/PTNS +perturb/GDS/PTB +perturbation/MS/PTBXN +perturbed/U/PTBT +pertussis/SM/PTSS +Peru/M/PR +peruke/SM/PRK +perusal/SM/PRSL +peruse/RSDZG/PRS +peruser/M/PRS +Peruvian/S/PRFN +pervade/SDG/PFT +pervasion/M/PFXN +pervasive/PY/PFSF +pervasiveness/MS/PFSFNS +perverse/PXYNV/PFS +perverseness/SM/PFSNS +perversion/M/PFXN +perversity/MS/PFST +pervert/DRSG/PFT +perverted/YP/PFTT +perverter/M/PFT +perviousness//PFSNS +peseta/SM/PST +Peshawar/M/PXW +peskily//PSKL +peskiness/S/PSKNS +pesky/RTP/PSK +peso/MS/PS +pessimal/Y/PSML +pessimism/SM/PSMSM +pessimist/SM/PSMST +pessimistic//PSMSTK +pessimistically//PSMSTKL +pest/RZSM/PST +pester/DG/PST +pesticide/MS/PSTST +pestiferous//PSTFRS +pestilence/SM/PSTLNS +pestilent/Y/PSTLNT +pestilential/Y/PSTLNXL +pestle/SDMG/PSTL +pesto/S/PST +PET//PT +Pet/MRZ/PT +pet/SMRZ/PT +Peta/M/PT +Pétain/M/PTN +petal/SDM/PTL +petard/MS/PTT +petcock/SM/PTKK +Pete/M/PT +peter/GD/PT +Peter/M/PT +Peters/N/PTS +Petersburg/M/PTSBK +Petersen/M/PTSN +Peterson/M/PTSN +Peterus/M/PTRS +Petey/M/PT +pethidine/M/P@TN +petiole/SM/PXL +petite/XNPS/PTT +petiteness/M/PTTNS +petition/GZMRD/PTXN +petitioner/M/PTXN +petitions/A/PTXNS +petition's/A/PTXNS +petits//PTTS +Petkiewicz/M/PTKWKS +Petr/M/PTR +Petra/M/PTR +Petrarch/M/PTRX +petrel/SM/PTRL +petri//PTR +petrifaction/SM/PTRFKXN +petrify/NDSG/PTRF +Petrina/M/PTRN +petrochemical/SM/PTRXMKL +petrodollar/MS/PTRTL +petroglyph/M/PTRKLF +petrol/MS/PTRL +petrolatum/MS/PTRLTM +petroleum/MS/PTRLM +petrolled//PTRLT +petrolling//PTRLN +petrologist/MS/PTRLKST +petrology/MS/PTRLK +Petronella/M/PTRNL +Petronia/M/PTRN +Petronilla/M/PTRNL +Petronille/M/PTRNL +petted//PTT +petter/MS/PT +Pettibone/M/PTBN +petticoat/SMD/PTKT +pettifog/S/PTFK +pettifogged//PTFKT +pettifogger/SM/PTFK +pettifogging//PTFKN +pettily//PTL +pettiness/S/PTNS +petting//PTN +pettis//PTS +pettish/YP/PTX +pettishness/M/PTXNS +Petty/M/PT +petty/PRST/PT +petulance/MS/PTLNS +petulant/Y/PTLNT +Petunia/M/PTN +petunia/SM/PTN +Peugeot/M/PKT +pew/SM/P +Pewaukee/M/PWK +pewee/MS/PW +pewit/MS/PWT +pewter/SRM/PT +peyote/SM/PYT +Peyter/M/PT +Peyton/M/PTN +pf//PF +Pfc//PFK +PFC//PFK +pfennig/SM/PFNK +Pfizer/M/PFS +pg//PK +PG//PK +pH/M/F +Ph/M/F +Phaedra/M/FTR +Phaethon/M/F@N +phaeton/MS/FTN +phage/M/FK +phagocyte/SM/FKST +Phaidra/M/FTR +phalanger/MS/FLNK +phalanges//FLNKS +phalanx/SM/FLNKS +phalli//FL +phallic//FLK +phallus/M/FLS +Phanerozoic//FNRSK +phantasm/SM/FNTSM +phantasmagoria/SM/FNTSMKR +phantasmal//FNTSML +phantasy's//FNTSS +phantom/MS/FNTM +pharaoh//FR +Pharaoh/M/FR +pharaohs//FRS +Pharaohs//FRS +pharisaic//FRSK +Pharisaic//FRSK +Pharisaical//FRSKL +pharisee/S/FRS +Pharisee/SM/FRS +pharmaceutic/S/FMSTK +pharmaceutical/SY/FMSTKL +pharmaceutics/M/FMSTKS +pharmacist/SM/FMSST +pharmacological/Y/FMKLKKL +pharmacologist/SM/FMKLKST +pharmacology/SM/FMKLK +pharmacopoeia/SM/FMKP +pharmacy/SM/FMS +pharyngeal/S/FRNKL +pharynges//FRNKS +pharyngitides//FRNKTTS +pharyngitis/M/FRNKTS +pharynx/M/FRNKS +phase/DSRGZM/FS +phaseout/S/FST +PhD//FT +pheasant/SM/FSNT +Phebe/M/FB +Phedra/M/FTR +Phekda/M/FKT +Phelia/M/FL +Phelps/M/FLPS +phenacetin/MS/FNSTN +phenobarbital/SM/FNBBTL +phenol/MS/FNL +phenolic//FNLK +phenolphthalein/M/FNLF@LN +phenomena/SM/FNMN +phenomenal/Y/FNMNL +phenomenological/Y/FNMNLKKL +phenomenology/MS/FNMNLK +phenomenon/SM/FNMNN +phenotype/MS/FNTP +phenyl/M/FNL +phenylalanine/M/FNLLNN +pheromone/MS/FRMN +phew/S/F +phi/SM/F +phial/MS/FL +phialled//FLT +phialling//FLN +Phidias/M/FTS +Phil/MY/FL +Philadelphia/M/FLTLF +philander/SRDGZ/FLNT +philanderer/M/FLNTR +philanthropic//FLN@RPK +philanthropically//FLN@RPKL +philanthropist/MS/FLN@RPST +philanthropy/SM/FLN@RP +philatelic//FLTLK +philatelist/MS/FLTLST +philately/SM/FLTL +Philbert/M/FLBT +Philco/M/FLK +philharmonic/S/FLHMNK +Philip/M/FLP +Philipa/M/FLP +Philippa/M/FLP +Philippe/M/FLP +Philippians/M/FLPNS +philippic/SM/FLPK +Philippine/SM/FLPN +Philis/M/FLS +philistine/S/FLSTN +Philistine/SM/FLSTN +philistinism/S/FLSTNSM +Phillida/M/FLT +Phillie/M/FL +Phillip/MS/FLP +Phillipa/M/FLP +Phillipe/M/FLP +Phillipp/M/FLP +Phillis/M/FLS +Philly/SM/FL +philodendron/MS/FLTNTRN +philological/Y/FLLKKL +philologist/MS/FLLKST +philology/MS/FLLK +Philomena/M/FLMN +philosopher/MS/FLSF +philosophic//FLSFK +philosophical/Y/FLSFKL +philosophize/ZDRSG/FLSFS +philosophized/U/FLSFST +philosophizer/M/FLSFS +philosophizes/U/FLSFSS +philosophy/MS/FLSF +philter/SGDM/FLT +philtre/DSMG/FLTR +Phineas/M/FNS +Phip/M/FP +Phipps/M/FPS +phlebitides//FLBTTS +phlebitis/M/FLBTS +phlegm/SM/FLKM +phlegmatic//FLKMTK +phlegmatically//FLKMTKL +phloem/MS/FLM +phlox/M/FLKS +phobia/SM/FB +phobic/S/FBK +Phobos/M/FBS +Phoebe/M/FB +phoebe/SM/FB +Phoenicia/M/FNX +Phoenician/SM/FNXN +Phoenix/M/FNKS +phoenix/MS/FNKS +phone/DSGM/FN +phoneme/SM/FNM +phonemic/S/FNMK +phonemically//FNMKL +phonemics/M/FNMKS +phonetic/S/FNTK +phonetically//FNTKL +phonetician/SM/FNTXN +phonetics/M/FNTKS +phonic/S/FNK +phonically//FNKL +phonics/M/FNKS +phoniness/MS/FNNS +phonograph/RM/FNKRF +phonographer/M/FNKRF +phonographic//FNKRFK +phonographs//FNKRFS +phonologic//FNLKK +phonological/Y/FNLKKL +phonologist/MS/FNLKST +phonology/MS/FNLK +phonon/M/FNN +phony/PTRSDG/FN +phooey/S/F +phosphatase/M/FSFTS +phosphate/MS/FSFT +phosphide/M/FSFT +phosphine/MS/FSFN +phosphor/MS/FSF +phosphoresce//FSFRS +phosphorescence/SM/FSFRSNS +phosphorescent/Y/FSFRSNT +phosphoric//FSFRK +phosphorous//FSFRS +phosphorus/SM/FSFRS +photo/SGMD/FT +photocell/MS/FTSL +photochemical/Y/FTXMKL +photochemistry/M/FTXMSTR +photocopier/M/FTKP +photocopy/MRSDZG/FTKP +photoelectric//FTLKTRK +photoelectrically//FTLKTRKL +photoelectronic//FTLKTRNK +photoelectrons//FTLKTRNS +photoengrave/RSDJZG/FTNKRF +photoengraver/M/FTNKRF +photoengraving/M/FTNKRFN +photofinishing/MS/FTFNXN +photogenic//FTKNK +photogenically//FTKNKL +photograph/AGD/FTKRF +photographer/SM/FTKRF +photographic//FTKRFK +photographically//FTKRFKL +photograph's//FTKRFS +photographs/A/FTKRFS +photography/MS/FTKRF +photojournalism/SM/FTKNLSM +photojournalist/SM/FTKNLST +photoluminescence/M/FTLMNSNS +photolysis/M/FTLSS +photolytic//FTLTK +photometer/SM/FTMT +photometric//FTMTRK +photometrically//FTMTRKL +photometry/M/FTMTR +photomicrograph/M/FTMKRKRF +photomicrography/M/FTMKRKRF +photomultiplier/M/FTMLTPL +photon/MS/FTN +photorealism//FTRLSM +photosensitive//FTSNSTF +photosphere/M/FTSFR +Photostat/MS/FTSTT +photostatic//FTSTTK +Photostatted//FTSTTT +Photostatting//FTSTTN +photosyntheses//FTSN@SS +photosynthesis/M/FTSN@SS +photosynthesize/DSG/FTSN@SS +photosynthetic//FTSN@TK +phototypesetter//FTTPST +phototypesetting/M/FTTPSTN +phrasal//FRSL +phrase/AGDS/FRS +phrasebook//FRSBK +phrasemaking//FRSMKN +phraseology/MS/FRSLK +phrase's//FRSS +phrasing/SM/FRSN +phrenological/Y/FRNLKKL +phrenologist/MS/FRNLKST +phrenology/MS/FRNLK +phyla/M/FL +phylactery/MS/FLKTR +phylae//FL +Phylis/M/FLS +Phyllida/M/FLT +Phyllis/M/FLS +Phyllys/M/FLS +phylogeny/MS/FLKN +phylum/M/FLM +Phylys/M/FLS +phys//FS +physic/SM/FSK +physical/PYS/FSKL +physicality/M/FSKLT +physician/SM/FSXN +physicist/MS/FSSST +physicked//FSKT +physicking//FSKN +physiochemical//FXXMKL +physiognomy/SM/FXKNM +physiography/MS/FXKRF +physiologic//FXLKK +physiological/Y/FXLKKL +physiologist/SM/FXLKST +physiology/MS/FXLK +physiotherapist/MS/FX@RPST +physiotherapy/SM/FX@RP +physique/MSD/FSK +phytoplankton/M/FTPLNKTN +pi/ZGDRH/P +Pia/M/P +Piaf/M/PF +Piaget/M/PKT +pianism/M/PNSM +pianissimo/S/PNSM +pianist/SM/PNST +pianistic//PNSTK +piano/SM/PN +pianoforte/MS/PNFT +pianola//PNL +Pianola/M/PNL +piaster/MS/PST +piazza/SM/PS +pibroch/M/PBRX +pibrochs//PBRXS +pica/SM/PK +picador/MS/PKT +picaresque/S/PKRSK +Picasso/M/PKS +picayune/S/PKYN +Piccadilly/M/PKTL +piccalilli/MS/PKLL +piccolo/MS/PKL +pick/GZSJDR/PK +pickaback's//PKBKS +pickax/GMSD/PKKS +pickaxe's//PKKSS +picker/MG/PK +pickerel/MS/PKRL +Pickering/M/PKRN +picket/MSRDZG/PKT +picketer/M/PKT +Pickett/M/PKT +Pickford/M/PKFT +pickle/SDMG/PKL +Pickman/M/PKMN +pickoff/S/PKF +pickpocket/GSM/PKPKT +pickup/SM/PKP +Pickwick/M/PKWK +picky/RT/PK +picnic/SM/PKNK +picnicked//PKNKT +picnicker/MS/PKNK +picnicking//PKNKN +picofarad/MS/PKFRT +picojoule//PKKL +picoseconds//PKSKNTS +picot/DMGS/PKT +Pict/M/PKT +pictograph/M/PKTKRF +pictographs//PKTKRFS +pictorial/PYS/PKTRL +pictorialness/M/PKTRLNS +picture/MGSD/PKTR +picturesque/PY/PKTRSK +picturesqueness/SM/PKTRSKNS +piddle/GSD/PTL +piddly//PTL +pidgin/SM/PKN +pie/MS/P +piebald/S/PBLT +piece/GMDSR/PS +piecemeal//PSML +piecer/M/PS +piecewise//PSWS +piecework/ZSMR/PSWK +pieceworker/M/PSWK +piedmont//PTMNT +Piedmont/M/PTMNT +pieing//PN +pier/M/P +Pier/M/P +Pierce/M/PS +pierce/RSDZGJ/PS +piercer/M/PS +piercing/Y/PSN +Pierette/M/PRT +Pierre/M/PR +Pierrette/M/PRT +Pierrot/M/PRT +Pierson/M/PSN +Pieter/M/PT +Pietra/M/PTR +Pietrek/M/PTRK +Pietro/M/PTR +piety/SM/PT +piezoelectric//PSLKTRK +piezoelectricity/M/PSLKTRST +piffle/MGSD/PFL +pig/MLS/PK +pigeon/DMGS/PKN +pigeonhole/SDGM/PKNHL +pigged//PKT +piggery/M/PKR +pigging//PKN +piggish/YP/PKX +piggishness/SM/PKXNS +Piggy/M/PK +piggy/RSMT/PK +piggyback/MSDG/PKBK +pigheaded/YP/PKTT +pigheadedness/S/PKTTNS +piglet/MS/PKLT +pigment/MDSG/PKMNT +pigmentation/MS/PKMNTXN +Pigmy's//PKMS +pigpen/SM/PKPN +pigroot//PKRT +pigskin/MS/PKSKN +pigsty/SM/PKST +pigswill/M/PKSWL +pigtail/SMD/PKTL +Pike/M/PK +pike/MZGDRS/PK +piker/M/PK +pikestaff/MS/PKSTF +pilaf/MS/PLF +pilaster/SM/PLST +Pilate/M/PLT +pilau's//PLS +pilchard/SM/PLXT +Pilcomayo/M/PLKMY +pile/JDSMZG/PL +pileup/MS/PLP +pilfer/ZGSRD/PLF +pilferage/SM/PLFRK +pilferer/M/PLFR +Pilgrim//PLKRM +pilgrim/MS/PLKRM +pilgrimage/DSGM/PLKRMK +piling/M/PLN +pill/GSMD/PL +pillage/RSDZG/PLK +pillar/DMSG/PL +pillbox/MS/PLBKS +pillion/DMGS/PLN +pillory/MSDG/PLR +pillow/GDMS/PL +pillowcase/SM/PLKS +pillowslip/S/PLSLP +Pillsbury/M/PLSBR +pilot/DMGS/PLT +pilothouse/SM/PL@S +piloting/M/PLTN +pimento/MS/PMNT +pimiento/SM/PMNT +pimp/GSMYD/PMP +pimpernel/SM/PMPNL +pimple/SDM/PMPL +pimplike//PMPLK +pimply/TRM/PMPL +PIN//PN +pin/US/PN +pinafore/MS/PNFR +piñata/S/PT +Pinatubo/M/PNTB +pinball/MS/PNBL +Pincas/M/PNKS +pincer/GSD/PNS +pinch/GRSD/PNX +Pinchas/M/PNXS +pincher/M/PNX +Pincus/M/PNKS +pincushion/SM/PNKXN +Pindar/M/PNT +pine/MNGXDS/PN +pineapple/MS/PNPL +pined/A/PNT +Pinehurst/M/PNHST +pines/A/PNS +pinfeather/SM/PNF@ +ping/GDRM/PN +pinhead/SMD/PNHT +pinheaded/P/PNHTT +pinhole/SM/PNHL +pining/A/PNN +pinion/DMG/PNN +pink/GTYDRMPS/PNK +Pinkerton/M/PNKTN +pinkeye/MS/PNKY +pinkie/SM/PNK +pinkish/P/PNKX +pinkness/S/PNKNS +pinko/MS/PNK +pinky's//PNKS +pinnacle/MGSD/PNKL +pinnate//PNT +pinned/U/PNT +pinning/S/PNN +Pinocchio/M/PNX +Pinochet/M/PNXT +pinochle/SM/PNXL +piñon/S/PN +pinpoint/SDG/PNPNT +pinprick/MDSG/PNPRK +pin's//PNS +pinsetter/SM/PNST +Pinsky/M/PNSK +pinstripe/SDM/PNSTRP +pint/MRS/PNT +pintail/SM/PNTL +Pinter/M/PNT +pinto/S/PNT +pinup/MS/PNP +pinwheel/DMGS/PNHL +piny/RT/PN +pinyin//PNYN +Pinyin//PNYN +pion/M/PN +pioneer/SDMG/PN +Piotr/M/PTR +pious/YP/PS +piousness/MS/PSNS +pip/JSZMGDR/PP +Pip/MR/PP +pipe/MS/PP +pipeline/DSMG/PPLN +piper/M/PP +Piper/M/PP +Pipestone/M/PPSTN +pipet's//PPTS +pipette/MGSD/PPT +pipework//PPWK +piping/YM/PPN +pipit/MS/PPT +Pippa/M/PP +pipped//PPT +pippin/SM/PPN +pipping//PPN +Pippo/M/PP +Pippy/M/PP +pipsqueak/SM/PPSKK +piquancy/MS/PKNS +piquant/PY/PKNT +piquantness/M/PKNTNS +pique/GMDS/PK +piracy/MS/PRS +Piraeus/M/PRS +Pirandello/M/PRNTL +piranha/SM/PRNH +pirate/MGSD/PRT +piratical/Y/PRTKL +pirogi//PRK +pirogies//PRKS +pirouette/MGSD/PRT +pis//PS +Pisa/M/PS +piscatorial//PSKTRL +Pisces/M/PSS +Pisistratus/M/PSSTRTS +pismire/SM/PSMR +piss/DSRG/PS +Pissaro/M/PSR +pistachio/MS/PSTX +piste/SM/PST +pistil/MS/PSTL +pistillate//PSTLT +pistol/SMGD/PSTL +pistole/M/PSTL +pistoleers//PSTLS +piston/SM/PSTN +pit/MS/PT +pita/SM/PT +pitapat/S/PTPT +pitapatted//PTPTT +pitapatting//PTPTN +Pitcairn/M/PTKN +pitch/RSDZG/PX +pitchblende/SM/PXBLNT +pitcher/M/PX +pitchfork/GDMS/PXFK +pitching/M/PXN +pitchman/M/PXMN +pitchmen//PXMN +pitchstone/M/PXSTN +piteous/YP/PTS +piteousness/SM/PTSNS +pitfall/SM/PTFL +pith/MGDS/P@ +pithily//P@L +pithiness/SM/P@NS +piths//P@S +pithy/RTP/P@ +pitiable/P/PXBL +pitiableness/M/PXBLNS +pitiably//PXBL +pitier/M/PT +pitiful/PY/PTFL +pitifuller//PTFL +pitifullest//PTFLST +pitifulness/M/PTFLNS +pitiless/PY/PTLS +pitilessness/SM/PTLSNS +pitman/M/PTMN +Pitney/M/PTN +piton/SM/PTN +Pitt/SM/PT +pittance/SM/PTNS +pitted//PTT +pitting//PTN +Pittman/M/PTMN +Pittsburgh/ZM/PTSB +Pittsfield/M/PTSFLT +Pittston/M/PTSTN +pituitary/SM/PTTR +pity/ZDSRMG/PT +pitying/Y/PTYN +Pius/M/PS +pivot/DMSG/PFT +pivotal/Y/PFTL +pivoting/M/PFTN +pix/DSG/PKS +pixel/SM/PKSL +pixie/MS/PKS +pixiness//PKSNS +pixmap/SM/PKSMP +Pizarro/M/PSR +pizazz/S/PSS +pizza/SM/PS +pizzeria/SM/PSR +pizzicati//PSKT +pizzicato//PSKT +pj's//PKS +PJ's//PKS +pk//PK +pkg//PKK +pkt//PKT +pkwy//PK +Pkwy//PK +pl//PL +placard/DSMG/PLKT +placate/NGVXDRS/PLKT +placatory//PLKTR +place/DSRJLGZM/PLS +placeable/A/PLSBL +placebo/SM/PLSB +placed/EAU/PLST +placeholder/S/PLSHLT +placekick/DGS/PLSKK +placeless/Y/PLSLS +placement/AMES/PLSMNT +placenta/SM/PLSNT +placental/S/PLSNTL +placer/EM/PLS +places/EA/PLSS +placid/PY/PLST +placidity/SM/PLSTT +placidness/M/PLSTNS +placing/AE/PLSN +placket/SM/PLKT +plagiarism/MS/PLKRSM +plagiarist/MS/PLKRST +plagiarize/GZDSR/PLKRS +plagiary/SM/PLKR +plague/MGRSD/PLK +plagued/U/PLKT +plaguer/M/PLK +plaice/M/PLS +plaid/DMSG/PLT +plain/SPTGRDY/PLN +plainclothes//PLNKL@S +plainclothesman//PLNKL@SMN +plainclothesmen//PLNKL@SMN +Plainfield/M/PLNFLT +plainness/MS/PLNS +plainsman/M/PLNSMN +plainsmen//PLNSMN +plainsong/SM/PLNSNK +plainspoken//PLNSPKN +plaint/VMS/PLNT +plaintiff/MS/PLNTF +plaintive/YP/PLNTF +plaintiveness/M/PLNTFNS +Plainview/M/PLNF +plait/SRDMG/PLT +plaiting/M/PLTN +plan/DRMSGZ/PLN +planar//PLN +planarity//PLNRT +Planck/M/PLNK +plane/SCGD/PLN +planeload//PLNLT +planer/M/PLN +plane's//PLNS +planet/MS/PLNT +planetarium/MS/PLNTRM +planetary//PLNTR +planetesimal/M/PLNTSML +planetoid/SM/PLNTT +plangency/S/PLNKNS +plangent//PLNKNT +plank/SJMDG/PLNK +planking/M/PLNKN +plankton/MS/PLNKTN +planned/U/PLNT +planner/SM/PLN +planning//PLNN +Plano//PLN +planoconcave//PLNKNKF +planoconvex//PLNKNFKS +plant/SADG/PLNT +Plantagenet/M/PLNTKNT +plantain/MS/PLNTN +plantar//PLNT +plantation/MS/PLNTXN +planter/MS/PLNT +planting/S/PLNTN +plantlike//PLNTLK +plant's//PLNTS +plaque/MS/PLK +plash/GSDM/PLX +plasm/M/PLSM +plasma/MS/PLSM +plasmid/S/PLSMT +plaster/MDRSZG/PLST +plasterboard/MS/PLSTBT +plasterer/M/PLSTR +plastering/M/PLSTRN +plasterwork/M/PLSTWK +plastic/MYS/PLSTK +plastically//PLSTKL +plasticine//PLSTSN +Plasticine/M/PLSTSN +plasticity/SM/PLSTST +plasticize/GDS/PLSTSS +plat/JDNRSGXZ/PLT +plate/SM/PLT +plateau/GDMS/PLT +plateful/S/PLTFL +platelet/SM/PLTLT +platen/M/PLTN +plater/M/PLT +platform/SGDM/PLTFM +Plath/M/PL@ +plating/M/PLTN +platinize/GSD/PLTNS +platinum/MS/PLTNM +platitude/SM/PLTTT +platitudinous/Y/PLTTTNS +Plato/M/PLT +platonic//PLTNK +Platonic//PLTNK +Platonism/M/PLTNSM +Platonist//PLTNST +platoon/MDSG/PLTN +Platte/M/PLT +platted//PLTT +platter/MS/PLT +Platteville/M/PLTFL +platting//PLTN +platy/TR/PLT +platypus/MS/PLTPS +platys//PLTS +plaudit/MS/PLTT +plausibility/S/PLSBLT +plausible/P/PLSBL +plausibly//PLSBL +Plautus/M/PLTS +play/DRSEBG/PL +playability/U/PLYBLT +playable/U/PLYBL +playact/SJDG/PLYKT +playacting/M/PLYKTN +playback/MS/PLBK +playbill/SM/PLBL +Playboy/M/PLB +playboy/SM/PLB +played/A/PLYT +player/SM/PLY +player's/E/PLYS +playfellow/S/PLFL +playful/PY/PLFL +playfulness/MS/PLFLNS +playgirl/SM/PLKL +playgoer/MS/PLK +playground/MS/PLKRNT +playgroup/S/PLKRP +playhouse/SM/PLHS +playing/S/PLYN +playmate/MS/PLMT +playoff/S/PLYF +playpen/SM/PLPN +playroom/SM/PLRM +plays/A/PLS +Playtex/M/PLTKS +plaything/MS/PL@N +playtime/SM/PLTM +playwright/SM/PLRT +playwriting/M/PLRTN +plaza/SM/PLS +plea/SM/PL +plead/ZGJRDS/PLT +pleader/MA/PLT +pleading/MY/PLTN +pleas/RSDJG/PLS +pleasant/UYP/PLSNT +pleasanter//PLSNT +pleasantest//PLSNTST +pleasantness/SMU/PLSNTNS +pleasantry/MS/PLSNTR +please/Y/PLS +pleased/EU/PLST +pleaser/M/PLS +pleases/E/PLSS +pleasing/YP/PLSN +pleasingness/M/PLSNNS +pleasurable/P/PLSRBL +pleasurableness/M/PLSRBLNS +pleasurably//PLSRBL +pleasure/MGBDS/PLSR +pleasureful//PLSRFL +pleasures/E/PLSRS +pleasure's/E/PLSRS +pleat/RDMGS/PLT +pleater/M/PLT +plebe/MS/PLB +plebeian/SY/PLBN +plebiscite/SM/PLBST +plectra//PLKTR +plectrum/SM/PLKTRM +pledge/RSDMG/PLK +pledger/M/PLKR +Pleiads//PLTS +Pleistocene//PLSTSN +plenary/S/PLNR +plenipotentiary/S/PLNPTNXR +plenitude/MS/PLNTT +plenteous/PY/PLNTS +plenteousness/M/PLNTSNS +plentiful/YP/PLNTFL +plentifulness/M/PLNTFLNS +plenty/SM/PLNT +plenum/M/PLNM +pleonasm/MS/PLNSM +plethora/SM/PL@R +pleura/M/PLR +pleurae//PLR +pleural//PLRL +pleurisy/SM/PLRS +Plexiglas/MS/PLKSKLS +plexus/SM/PLKSS +pliability/MS/PLBLT +pliable/P/PLBL +pliableness/M/PLBLNS +pliancy/MS/PLNS +pliant/YP/PLNT +pliantness/M/PLNTNS +plication/MA/PLKXN +plier/MA/PL +plight/GMDRS/PLT +plimsolls//PLMSLS +plink/GRDS/PLNK +plinker/M/PLNK +plinth/M/PLN@ +plinths//PLN@S +Pliny/M/PLN +Pliocene/S/PLSN +PLO//PL +plod/S/PLT +plodded//PLTT +plodder/SM/PLT +plodding/SY/PLTN +plop/SM/PLP +plopped//PLPT +plopping//PLPN +plosive//PLSF +plot/SM/PLT +plotted/A/PLTT +plotter/MDSG/PLT +plotting//PLTN +plover/MS/PLF +plow/SGZDRM/PL +plowed/U/PLWT +plower/M/PLW +plowman/M/PLMN +plowmen//PLMN +plowshare/MS/PLXR +ploy/SCDG/PL +ploy's//PLS +pluck/SGRD/PLK +plucker/M/PLK +pluckily//PLKL +pluckiness/SM/PLKNS +plucky/TPR/PLK +plug/US/PLK +pluggable//PLKBL +plugged/UA/PLKT +plugging/AU/PLKN +plughole//PLKL +plug's//PLKS +plum/SMDG/PLM +plumage/DSM/PLMK +plumb/JSZGMRD/PLM +plumbago/M/PLMBK +plumbed/U/PLMBT +plumber/M/PLMB +plumbing/M/PLMBN +plume/SM/PLM +plummer//PLM +plummest//PLMST +plummet/DSG/PLMT +plummy//PLM +plump/RDNYSTGP/PLMP +plumper/M/PLMP +plumpness/S/PLMPNS +plumy/TR/PLM +plunder/GDRSZ/PLNT +plunge/RSDZG/PLNK +plunger/M/PLNK +plunk/ZGSRD/PLNK +plunker/M/PLNK +pluperfect/S/PLPFKT +plural/SY/PLRL +pluralism/MS/PLRLSM +pluralist/S/PLRLST +pluralistic//PLRLSTK +plurality/SM/PLRLT +pluralization/MS/PLRLSXN +pluralize/GZRSD/PLRLS +pluralizer/M/PLRLS +plus/S/PLS +plush/RSYMTP/PLX +plushness/MS/PLXNS +plushy/RPT/PLX +plussed//PLST +plussing//PLSN +Plutarch/M/PLTX +Pluto/M/PLT +plutocracy/MS/PLTKRS +plutocrat/SM/PLTKRT +plutocratic//PLTKRTK +plutonium/SM/PLTNM +pluvial/S/PLFL +ply/AZNGRSD/PL +Plymouth/M/PLM@ +plywood/MS/PLWT +pm//PM +PM//PM +Pm/M/PM +PMS//PMS +pneumatic/S/NMTK +pneumatically//NMTKL +pneumatics/M/NMTKS +pneumonia/MS/NMN +PO//P +Po/M/P +poach/ZGSRD/PX +poacher/M/PX +Pocahontas/M/PKHNTS +pock/GDMS/PK +pocket/MSRDG/PKT +pocketbook/SM/PKTBK +pocketful/SM/PKTFL +pocketing/M/PKTN +pocketknife/M/PKTKNF +pocketknives//PKTKNFS +pockmark/MDSG/PKMK +Pocono/MS/PKN +pod/SM/PT +podded//PTT +podding//PTN +podge/ZR/PK +Podgorica/M/PTKRK +podiatrist/MS/PTTRST +podiatry/MS/PTTR +podium/MS/PTM +Podunk/M/PTNK +Poe/M/P +poem/MS/PM +poesy/GSDM/PS +poet/MS/PT +poetaster/MS/PTST +poetess/MS/PTS +poetic/S/PTK +poetical/U/PTKL +poetically//PTKL +poeticalness//PTKLNS +poetics/M/PTKS +poetry/SM/PTR +pogo//PK +Pogo/M/PK +pogrom/GMDS/PKRM +poi/SM/P +poignancy/MS/PKNNS +poignant/Y/PKNNT +Poincaré/M/PNK +poinciana/SM/PNXN +Poindexter/M/PNTKST +poinsettia/SM/PNSX +point/RDMZGS/PNT +pointblank//PNTBLNK +pointed/PY/PNTT +pointedness/M/PNTTNS +pointer/M/PNT +pointillism/SM/PNTLSM +pointillist/SM/PNTLST +pointing/M/PNTN +pointless/YP/PNTLS +pointlessness/SM/PNTLSNS +pointy/TR/PNT +pois/GDS/PS +poise/M/PS +poison/RDMZGSJ/PSN +poisoner/M/PSN +poisoning/M/PSNN +poisonous/PY/PSNS +Poisson/M/PSN +poke/DRSZG/PK +Pokemon/M/PKMN +poker/M/PK +pokerface/D/PKFS +poky/SRT/PK +pol/GMDRS/PL +Pol/MY/PL +Poland/M/PLNT +Polanski/M/PLNSK +polar/S/PL +polarimeter/SM/PLRMT +polarimetry//PLRMTR +Polaris/M/PLRS +polariscope/M/PLRSKP +polarity/MS/PLRT +polarization/CMS/PLRSXN +polarize/RSDZG/PLRS +polarized/UC/PLRST +polarizes/C/PLRSS +polarizing/C/PLRSN +polarogram/SM/PLRKRM +polarograph//PLRKRF +polarography/M/PLRKRF +Polaroid/SM/PLRT +pole/MS/PL +Pole/MS/PL +polecat/SM/PLKT +polemic/S/PLMK +polemical/Y/PLMKL +polemicist/S/PLMSST +polemics/M/PLMKS +poler/M/PL +polestar/S/PLST +poleward/S/PLWT +police/MSDG/PLS +policeman/M/PLSMN +policemen/M/PLSMN +policewoman/M/PLSWMN +policewomen//PLSWMN +policy/SM/PLS +policyholder/MS/PLSHLT +policymaker/S/PLSMK +policymaking//PLSMKN +polio/SM/PL +poliomyelitides//PLMYLTTS +poliomyelitis/M/PLMYLTS +polis/M/PLS +Polish//PLX +polish/RSDZGJ/PLX +polished/U/PLXT +polisher/M/PLX +Politburo/M/PLTBR +politburo/S/PLTBR +polite/PRTY/PLT +politeness/MS/PLTNS +politesse/SM/PLTS +politic/S/PLTK +political/U/PLTKL +politically//PLTKL +politician/MS/PLTXN +politicization/S/PLTSSXN +politicize/CSDG/PLTSS +politicked//PLTKT +politicking/SM/PLTKN +politico/SM/PLTK +politics/M/PLTKS +polity/MS/PLT +Polk/M/PLK +polka/SDMG/PLK +poll/MDNRSGX/PL +pollack/SM/PLK +Pollard/M/PLT +polled/U/PLT +pollen/GDM/PLN +pollinate/XSDGN/PLNT +pollination/M/PLNXN +pollinator/MS/PLNT +polliwog/SM/PLWK +Pollock/SM/PLK +pollock's//PLKS +pollster/MS/PLST +pollutant/MS/PLTNT +pollute/RSDXZVNG/PLT +polluted/U/PLTT +polluter/M/PLT +pollution/M/PLXN +Pollux/M/PLKS +Polly/M/PL +Pollyanna/M/PLYN +pollywog's//PLWKS +Polo/M/PL +polo/MS/PL +polonaise/MS/PLNS +polonium/MS/PLNM +poltergeist/SM/PLTKST +poltroon/MS/PLTRN +polyandrous//PLYNTRS +polyandry/MS/PLYNTR +polyatomic//PLYTMK +polybutene/MS/PLBTN +polycarbonate//PLKBNT +polychemicals//PLXMKLS +polychrome//PLXRM +polyclinic/MS/PLKLNK +polycrystalline//PLKRSTLN +polyelectrolytes//PLYLKTRLTS +polyester/SM/PLYST +polyether/S/PLY@ +polyethylene/SM/PLY@LN +polygamist/MS/PLKMST +polygamous/Y/PLKMS +polygamy/MS/PLKM +polyglot/S/PLKLT +polygon/MS/PLKN +polygonal/Y/PLKNL +polygraph/MDG/PLKRF +polygraphs//PLKRFS +polygynous//PLKNS +polyhedral//PLHTRL +polyhedron/MS/PLHTRN +Polyhymnia/M/PLHMN +polyisobutylene//PLYSBTLN +polyisocyanates//PLYSSYNTS +polymath/M/PLM@ +polymaths//PLM@S +polymer/MS/PLM +polymerase/S/PLMRS +polymeric//PLMRK +polymerization/SM/PLMRSXN +polymerize/SDG/PLMRS +polymorph/M/PLMF +polymorphic//PLMFK +polymorphisms//PLMFSMS +polymyositis//PLMYSTS +Polynesia/M/PLNX +Polynesian/S/PLNXN +polynomial/YMS/PLNML +polyp/MS/PLP +Polyphemus/M/PLFMS +polyphonic//PLFNK +polyphony/MS/PLFN +polyphosphate/S/PLFSFT +polypropylene/MS/PLPRPLN +polystyrene/SM/PLSTRN +polysyllabic//PLSLBK +polysyllable/SM/PLSLBL +polytechnic/MS/PLTXNK +polytheism/SM/PL@SM +polytheist/SM/PL@ST +polytheistic//PL@STK +polythene/M/PL@N +polytonal/Y/PLTNL +polytopes//PLTPS +polyunsaturated//PLYNSTRTT +polyurethane/SM/PLYR@N +polyvinyl/MS/PLFNL +pomade/MGSD/PMT +pomander/MS/PMNT +pomegranate/SM/PMKRNT +Pomerania/M/PMRN +Pomeranian//PMRNN +pommel/GSMD/PML +Pomona/M/PMN +pomp/SM/PMP +Pompadour/M/PMPT +pompadour/MDS/PMPT +pompano/SM/PMPN +Pompeian/S/PMPN +Pompeii/M/PMP +Pompey/M/PMP +pompom/SM/PMPM +pompon's//PMPNS +pomposity/MS/PMPST +pompous/YP/PMPS +pompousness/S/PMPSNS +ponce/M/PNS +Ponce/M/PNS +Ponchartrain/M/PNXTRN +poncho/MS/PNX +pond/SMDRGZ/PNT +ponder/ZGRD/PNT +ponderer/M/PNTR +ponderous/PY/PNTRS +ponderousness/MS/PNTRSNS +pone/SM/PN +pongee/MS/PNK +poniard/GSDM/PNT +pons/M/PNS +Pontchartrain/M/PNXTRN +Pontiac/M/PNXK +Pontianak/M/PNXNK +pontiff/MS/PNTF +pontifical/YS/PNTFKL +pontificate/XGNDS/PNTFKT +pontoon/SMDG/PNTN +pony/DSMG/PN +ponytail/SM/PNTL +pooch/GSDM/PX +poodle/MS/PTL +poof/MS/PF +pooh/DG/P +Pooh/M/P +poohs//PS +pool/MDSG/PL +Poole/M/PL +poolroom/MS/PLRM +poolside//PLST +Poona/M/PN +poop/MDSG/PP +poor/TYRP/P +poorboy//PB +poorhouse/MS/PHS +poorness/MS/PNS +pop/SM/PP +popcorn/MS/PPKN +pope/SM/PP +Pope/SM/PP +Popek/MS/PPK +Popeye/M/PPY +popgun/SM/PPKN +popinjay/MS/PPNK +poplar/SM/PPL +poplin/MS/PPLN +Popocatepetl/M/PPKTPTL +popover/SM/PPF +poppa/MS/PP +popped//PPT +Popper/M/PP +popper/SM/PP +poppet/M/PPT +popping//PPN +Poppins/M/PPNS +Poppy/M/PP +poppy/SDM/PP +poppycock/MS/PPKK +poppyseed//PPST +Popsicle/MS/PPSKL +populace/MS/PPLS +popular/YS/PPL +popularism//PPLRSM +popularity/UMS/PPLRT +popularization/SM/PPLRSXN +popularize/A/PPLRS +popularized//PPLRST +popularizer/MS/PPLRS +popularizes/U/PPLRSS +popularizing//PPLRSN +populate/CXNGDS/PPLT +populated/UA/PPLTT +populates/A/PPLTS +populating/A/PPLTN +population/MC/PPLXN +populism/S/PPLSM +populist/SM/PPLST +populous/YP/PPLS +populousness/MS/PPLSNS +porcelain/SM/PSLN +porch/SM/PX +porcine//PSN +porcupine/MS/PKPN +pore/ZGDRS/PR +Porfirio/M/PFR +porgy/SM/PK +poring/Y/PRN +pork/ZRMS/PK +porker/M/PK +porky/TSR/PK +porn/S/PN +porno/S/PN +pornographer/SM/PNKRF +pornographic//PNKRFK +pornographically//PNKRFKL +pornography/SM/PNKRF +porosity/SM/PRST +porous/PY/PRS +porousness/MS/PRSNS +porphyritic//PFRTK +porphyry/MS/PFR +porpoise/DSGM/PPS +porridge/MS/PRK +Porrima/M/PRM +porringer/MS/PRN +Porsche/M/PSK +port/ABSGZMRD/PT +Port/MR/PT +portability/S/PTBLT +portable/U/PTBL +portables//PTBLS +portably//PTBL +portage/ASM/PTK +portaged//PTKT +portaging//PTKN +portal/SM/PTL +portamento/M/PTMNT +portcullis/MS/PTKLS +Porte/M/PT +ported/CE/PTT +portend/SDG/PTNT +portent/SM/PTNT +portentous/PY/PTNTS +portentousness/M/PTNTSNS +porter/DMG/PT +Porter/M/PT +porterage/M/PTRK +porterhouse/SM/PTHS +porter's/A/PTS +portfolio/MS/PTFL +porthole/SM/P@L +Portia/M/PX +portico/M/PTK +porticoes//PTKS +Portie/M/PT +portière/SM/PTR +porting/E/PTN +portion/KGSMD/PXN +Portland/M/PTLNT +portliness/SM/PTLNS +portly/PTR/PTL +portmanteau/SM/PTMNT +Pôrto/M/PRT +portrait/MS/PTRT +portraitist/SM/PTRTST +portraiture/MS/PTRTR +portray/GDRS/PTR +portrayal/SM/PTRYL +portrayer/M/PTRY +ports/CE/PTS +Portsmouth/M/PTSM@ +Portugal/M/PTKL +Portuguese/M/PTKS +portulaca/MS/PTLK +Porty/M/PT +pose/ZGKDRSE/PS +posed/CA/PST +Poseidon/M/PSTN +poser/KME/PS +poses/CA/PSS +poseur/MS/PS +posh/DSRGT/PX +posing/CA/PSN +posit/SCGD/PST +positifs//PSTFS +position/KGASMD/PSXN +positionable//PSXNBL +positional/KY/PSXNL +positions/EC/PSXNS +position's/EC/PSXNS +positive/RSPYT/PSTF +positiveness/S/PSTFNS +positivism/M/PSTFSM +positivist/S/PSTFST +positivity//PSTFT +positron/SM/PSTRN +Posner/M/PSN +poss/S/PS +posse/M/PS +possess/AGEDS/PSS +possessed/PY/PSST +possession/AEMS/PSXN +possessional//PSXNL +possessive/PSMY/PSSF +possessiveness/MS/PSSFNS +possessor/MS/PSS +possibility/SM/PSBLT +possible/TRS/PSBL +possibly//PSBL +possum/MS/PSM +post/ASDRJG/PST +Post/M/PST +postage/MS/PSTK +postal/S/PSTL +postbag/M/PSTBK +postbox/SM/PSTBKS +postcard/SM/PSTKT +postcode/SM/PSTKT +postcondition/S/PSTKNTXN +postconsonantal//PSTKNSNNTL +postdate/DSG/PSTTT +postdoctoral//PSTTKTRL +poster/MS/PST +posterior/SY/PSTR +posteriori//PSTRR +posterity/SM/PSTRT +postfix/GDS/PSTFKS +postgraduate/SM/PSTKRTT +posthaste/S/PS@ST +posthumous/YP/PS@MS +posthumousness/M/PS@MSNS +posthypnotic//PS@PNTK +postilion/MS/PSTLN +postindustrial//PSTNTSTRL +posting/M/PSTN +postlude/MS/PSTLT +postman/M/PSTMN +postmarital//PSTMRTL +postmark/GSMD/PSTMK +postmaster/SM/PSTMST +postmen//PSTMN +postmeridian//PSTMRTN +postmistress/MS/PSTMSTRS +postmodern//PSTMTN +postmodernist//PSTMTNST +postmortem/S/PSTMTM +postnasal//PSTNSL +postnatal//PSTNTL +postoperative/Y/PSTPRTF +postorder//PSTT +postpaid//PSTPT +postpartum//PSTPTM +postpone/GLDRS/PSTPN +postponement/S/PSTPNMNT +postpositions//PSTPSXNS +postprandial//PSTPRNTL +post's//PSTS +postscript/SM/PSTSKRPT +postsecondary//PSTSKNTR +postulate/XGNSD/PSTLT +postulation/M/PSTLXN +postural//PSTRL +posture/MGSRD/PSTR +posturer/M/PSTR +postvocalic//PSTFKLK +postwar//PSTW +posy/SM/PS +pot/CMS/PT +potability/SM/PTBLT +potable/SP/PTBL +potableness/M/PTBLNS +potage/M/PTK +potash/MS/PTX +potassium/MS/PTSM +potato/M/PTT +potatoes//PTTS +potbelly/MSD/PTBL +potboil/ZR/PTBL +potboiler/M/PTBL +Potemkin/M/PTMKN +potency/MS/PTNS +potent/YS/PTNT +potentate/SM/PTNTT +potential/SY/PTNXL +potentiality/MS/PTNXLT +potentiating//PTNXTN +potentiometer/SM/PTNXMT +potful/SM/PTFL +pothead/MS/P@T +pother/GDMS/P@ +potherb/MS/P@B +potholder/MS/P@LT +pothole/SDMG/P@L +potholing/M/P@LN +pothook/SM/P@K +potion/SM/PXN +potlatch/SM/PTLX +potluck/MS/PTLK +Potomac/M/PTMK +potpie/SM/PTP +potpourri/SM/PTPR +Potsdam/M/PTSTM +potsherd/MS/PTXT +potshot/S/PTXT +pottage/SM/PTK +Pottawatomie/M/PTWTM +potted//PTT +Potter/M/PT +potter/RDMSG/PT +pottery/MS/PTR +potting//PTN +Potts/M/PTS +potty/SRT/PT +pouch/SDMG/PX +Poughkeepsie/M/PKPS +Poul/M/PL +poulterer/MS/PLTR +poultice/DSMG/PLTS +poultry/MS/PLTR +pounce/SDG/PNS +pound/KRDGS/PNT +Pound/M/PNT +poundage/MS/PNTK +pounder/MS/PNT +pour/DSG/P +pourer's//PRS +Poussin/MS/PSN +pout/GZDRS/PT +pouter/M/PT +poverty/MS/PFT +POW//P +pow/RZ/P +powder/RDGMS/PT +powderpuff//PTPF +powdery//PTR +Powell/M/PWL +power/GMD/PW +powerboat/MS/PWBT +powerful/YP/PWFL +powerfulness/M/PWFLNS +powerhouse/MS/PWHS +powerless/YP/PWLS +powerlessness/SM/PWLSNS +Powers//PWS +Powhatan/M/PHTN +powwow/GDMS/PW +pox/GMDS/PKS +Poznan/M/PSNN +pp//P +PP//P +ppm//PM +ppr//PR +PPS//PS +pr//PR +PR//PR +Pr/MN/PR +practicability/S/PRKTKBLT +practicable/P/PRKTKBL +practicably//PRKTKBL +practical/YPS/PRKTKL +practicality/SM/PRKTKLT +practicalness/M/PRKTKLNS +practice/BDRSMG/PRKTS +practiced/U/PRKTST +practicer/M/PRKTS +practicum/SM/PRKTKM +practitioner/SM/PRKTXN +Pradesh/M/PRTX +Prado/M/PRT +praetor/MS/PRT +Praetorian//PRTRN +praetorian/S/PRTRN +pragmatic/S/PRKMTK +pragmatical/Y/PRKMTKL +pragmatics/M/PRKMTKS +pragmatism/MS/PRKMTSM +pragmatist/MS/PRKMTST +Prague/M/PRK +Praia//PR +prairie/MS/PRR +praise/ESDG/PRS +praiser/S/PRS +praise's//PRSS +praiseworthiness/MS/PRSW@NS +praiseworthy/P/PRSW@ +praising/Y/PRSN +Prakrit/M/PRKRT +praline/MS/PRLN +pram/MS/PRM +prance/ZGSRD/PRNS +prancer/M/PRNS +prancing/Y/PRNSN +prank/SMDG/PRNK +prankster/SM/PRNKST +praseodymium/SM/PRSTMM +Pratchett/M/PRXT +prate/DSRGZ/PRT +prater/M/PRT +pratfall/MS/PRTFL +prating/Y/PRTN +Pratt/M/PRT +prattle/DRSGZ/PRTL +prattler/M/PRTL +prattling/Y/PRTLN +Prattville/M/PRTFL +Pravda/M/PRFT +prawn/MDSG/PRN +praxes//PRKSS +praxis/M/PRKSS +Praxiteles/M/PRKSTLS +pray/DRGZS/PR +prayer/M/PRY +prayerbook//PRYBK +prayerful/YP/PRYFL +prayerfulness/M/PRYFLNS +PRC//PRK +preach/DRSGLZJ/PRX +preacher/M/PRX +preaching/Y/PRXN +preachment/MS/PRXMNT +preachy/RT/PRX +preadolescence/S/PRTLSNS +Preakness/M/PRKNS +preallocate/XGNDS/PRLKT +preallocation/M/PRLKXN +preallocator/S/PRLKT +preamble/MGDS/PRMBL +preamp//PRMP +preamplifier/M/PRMPLF +prearrange/LSDG/PRRNK +prearrangement/SM/PRRNKMNT +preassign/SDG/PRSN +preauthorize//PR@RS +prebendary/M/PRBNTR +Precambrian//PRKMBRN +precancel/DGS/PRKNSL +precancerous//PRKNSRS +precarious/PY/PRKRS +precariousness/MS/PRKRSNS +precaution/SGDM/PRKXN +precautionary//PRKXNR +precede/DSG/PRST +precedence/SM/PRSTNS +precedent/SDM/PRSTNT +precedented/U/PRSTNTT +precept/SMV/PRSPT +preceptive/Y/PRSPTF +preceptor/MS/PRSPT +precess/DSG/PRSS +precession/M/PRSXN +precinct/MS/PRSNKT +preciosity/MS/PRSST +precious/PYS/PRSS +preciousness/S/PRSSNS +precipice/MS/PRSPS +precipitable//PRSPTBL +precipitant/S/PRSPTNT +precipitate/YNGVPDSX/PRSPTT +precipitateness/M/PRSPTTNS +precipitation/M/PRSPTXN +precipitous/YP/PRSPTS +precipitousness/M/PRSPTSNS +précis/MDG/PRSS +precise/XYTRSPN/PRSS +preciseness/SM/PRSSNS +precision/M/PRSXN +preclude/GDS/PRKLT +preclusion/S/PRKLXN +precocious/YP/PRKSS +precociousness/MS/PRKSSNS +precocity/SM/PRKST +precode/D/PRKT +precognition/SM/PRKKNXN +precognitive//PRKKNTF +precollege/M/PRKLK +precolonial//PRKLNL +precomputed//PRKMPTT +preconceive/GSD/PRKNSF +preconception/SM/PRKNSPXN +precondition/GMDS/PRKNTXN +preconscious//PRKNSS +precook/GDS/PRKK +precursor/SM/PRKS +precursory//PRKSR +precut//PRKT +predate/NGDSX/PRTT +predation/CMS/PRTXN +predator/SM/PRTT +predatory//PRTTR +predecease/SDG/PRTSS +predecessor/MS/PRTSS +predeclared//PRTKLRT +predecline//PRTKLN +predefine/GSD/PRTFN +predefinition/SM/PRTFNXN +predesignate/GDS/PRTSKNT +predestination/SM/PRTSTNXN +predestine/SDG/PRTSTN +predetermination/MS/PRTTMNXN +predetermine/ZGSRD/PRTTMN +predeterminer/M/PRTTMN +predicable/S/PRTKBL +predicament/SM/PRTKMNT +predicate/VGNXSD/PRTKT +predication/M/PRTKXN +predicator//PRTKT +predict/BSDGV/PRTKT +predictability/UMS/PRTKTBLT +predictable/U/PRTKTBL +predictably/U/PRTKTBL +predicted/U/PRTKTT +prediction/MS/PRTKXN +predictive/Y/PRTKTF +predictor/MS/PRTKT +predigest/GDS/PRTKST +predilect//PRTLKT +predilection/SM/PRTLKXN +predispose/SDG/PRTSPS +predisposition/MS/PRTSPSXN +predoctoral//PRTKTRL +predominance/SM/PRTMNNS +predominant/Y/PRTMNNT +predominate/YSDGN/PRTMNT +predomination/M/PRTMNXN +preemie/MS/PRM +preeminence/SM/PRMNNS +preeminent/Y/PRMNNT +preemployment/M/PRMPLMNT +preempt/GVSD/PRMPT +preemption/SM/PRMPXN +preemptive/Y/PRMPTF +preemptor/M/PRMPT +preen/SRDG/PRN +preener/M/PRN +preexist/DSG/PRKSST +preexistence/SM/PRKSSTNS +preexistent//PRKSSTNT +pref/RZ/PRF +prefab/MS/PRFB +prefabbed//PRFBT +prefabbing//PRFBN +prefabricate/XNGDS/PRFBRKT +prefabrication/M/PRFBRKXN +preface/DRSGM/PRFS +prefacer/M/PRFS +prefatory//PRFTR +prefect/MS/PRFKT +prefecture/MS/PRFKTR +prefer/BL/PRF +preferable/P/PRFRBL +preferableness/M/PRFRBLNS +preferably//PRFRBL +preference/MS/PRFRNS +preferential/Y/PRFRNXL +preferment/SM/PRFMNT +preferred//PRFRT +preferring//PRFRN +prefiguration/M/PRFKRXN +prefigure/SDG/PRFKR +prefix/MDSG/PRFKS +preflight/SGDM/PRFLT +preform/DSG/PRFM +pregnancy/SM/PRKNNS +pregnant/Y/PRKNNT +preheat/GDS/PRHT +prehensile//PRHNSL +prehistoric//PRHSTRK +prehistorical/Y/PRHSTRKL +prehistory/SM/PRHSTR +preindustrial//PRNTSTRL +preinitialize/SDG/PRNXLS +preinterview/M/PRNTF +preisolated//PRSLTT +prejudge/DRSG/PRKK +prejudger/M/PRKKR +prejudgment/SM/PRKTKMNT +prejudice/MSDG/PRKTS +prejudiced/U/PRKTST +prejudicial/PY/PRKTXL +prekindergarten/MS/PRKNTKTN +prelacy/MS/PRLS +prelate/SM/PRLT +preliminarily//PRLMNRL +preliminary/S/PRLMNR +preliterate/S/PRLTRT +preloaded//PRLTT +prelude/GMDRS/PRLT +preluder/M/PRLT +premarital/Y/PRMRTL +premarket//PRMKT +premature/SPY/PRMTR +prematureness/M/PRMTRNS +prematurity/M/PRMTRT +premed/S/PRMT +premedical//PRMTKL +premeditate/XDSGNV/PRMTTT +premeditated/Y/PRMTTTT +premeditation/M/PRMTTXN +premenstrual//PRMNSTRL +premier/GSDM/PRM +premiere/MS/PRMR +premiership/SM/PRMXP +Preminger/M/PRMN +premise/GMDS/PRMS +premiss's//PRMSS +premium/MS/PRMM +premix/GDS/PRMKS +premolar/S/PRML +premonition/SM/PRMNXN +premonitory//PRMNTR +Pren/M/PRN +prenatal/Y/PRNTL +Prent/M/PRNT +Prentice/MGD/PRNTS +Prenticed/M/PRNTST +Prenticing/M/PRNTSN +Prentiss/M/PRNTS +prenuptial//PRNPXL +preoccupation/MS/PRKPXN +preoccupy/DSG/PRKP +preoperative//PRPRTF +preordain/DSLG/PRTN +prep/SM/PRP +prepackage/GSD/PRPKK +prepaid//PRPT +preparation/SM/PRPRXN +preparative/SYM/PRPRTF +preparatory//PRPRTR +prepare/ZDRSG/PRPR +prepared/UP/PRPRT +preparedly//PRPRTL +preparedness/USM/PRPRTNS +prepay/GLS/PRP +prepayment/SM/PRPMNT +prepender/S/PRPNT +prepends//PRPNTS +preplanned//PRPLNT +preponderance/SM/PRPNTRNS +preponderant/Y/PRPNTRNT +preponderate/DSYGN/PRPNTRT +preposition/SDMG/PRPSXN +prepositional/Y/PRPSXNL +prepossess/GSD/PRPSS +prepossessing/U/PRPSSN +prepossession/MS/PRPSXN +preposterous/PY/PRPSTRS +preposterousness/M/PRPSTRSNS +prepped//PRPT +prepping//PRPN +preppy/RST/PRP +preprepared//PRPRPRT +preprint/SGDM/PRPRNT +preprocessed//PRPRSST +preprocessing//PRPRSSN +preprocessor/S/PRPRSS +preproduction//PRPRTKXN +preprogrammed//PRPRKRMT +prepubescence/S/PRPBSNS +prepubescent/S/PRPBSNT +prepublication/M/PRPBLKXN +prepuce/SM/PRPS +prequel/S/PRKL +preradiation//PRRTXN +prerecord/DGS/PRRKT +preregister/DSG/PRRKST +preregistration/MS/PRRKSTRXN +prerequisite/SM/PRRKST +prerogative/SDM/PRRKTF +Pres//PRS +pres/S/PRS +presage/GMDRS/PRSK +presager/M/PRSK +presbyopia/MS/PRSBYP +presbyter/MS/PRSBT +presbyterian//PRSBTRN +Presbyterian/S/PRSBTRN +Presbyterianism/S/PRSBTRNSM +presbytery/MS/PRSBTR +preschool/RSZ/PRSKL +prescience/SM/PRSNS +prescient/Y/PRSNT +Prescott/M/PRSKT +prescribe/RSDG/PRSKRB +prescribed/U/PRSKRBT +prescriber/M/PRSKRB +prescript/SVM/PRSKRPT +prescription/SM/PRSKRPXN +prescriptive/Y/PRSKRPTF +preselect/SGD/PRSLKT +presence/SM/PRSNS +present/SLBDRYZGP/PRSNT +presentable/P/PRSNTBL +presentableness/M/PRSNTBLNS +presentably/A/PRSNTBL +presentation/AMS/PRSNTXN +presentational/A/PRSNTXNL +presented/A/PRSNTT +presenter/A/PRSNT +presentiment/MS/PRSNTMNT +presentment/SM/PRSNTMNT +presents/A/PRSNTS +preservation/SM/PRSFXN +preservationist/S/PRSFXNST +preservative/SM/PRSFTF +preserve/DRSBZG/PRSF +preserved/U/PRSFT +preserver/M/PRSF +preset/S/PRST +presetting//PRSTN +preshrank//PRXRNK +preshrink/SG/PRXRNK +preshrunk//PRXRNK +preside/DRSG/PRST +presidency/MS/PRSTNS +president/SM/PRSTNT +presidential/Y/PRSTNXL +presider/M/PRST +presidia//PRST +presidium/M/PRSTM +Presley/M/PRSL +presoaks//PRSKS +presort/GDS/PRST +press/ACDSG/PRS +pressed/U/PRST +presser/MS/PRS +pressing/YS/PRSN +pressingly/C/PRSNL +pressman/M/PRSMN +pressmen//PRSMN +pressure/DSMG/PRSR +pressurization/MS/PRSRSXN +pressurize/DSRGZ/PRSRS +pressurized/U/PRSRST +prestidigitate/NX/PRSTTKTT +prestidigitation/M/PRSTTKTXN +prestidigitator/M/PRSTTKTT +prestidigitatorial//PRSTTKTTRL +prestige/MS/PRSTK +prestigious/PY/PRSTKS +presto/S/PRST +Preston/M/PRSTN +presumably//PRSMBL +presume/BGDRS/PRSM +presumer/M/PRSM +presuming/Y/PRSMN +presumption/MS/PRSMPXN +presumptive/Y/PRSMPTF +presumptuous/YP/PRSMPTS +presumptuousness/SM/PRSMPTSNS +presuppose/GDS/PRSPS +presupposition/S/PRSPSXN +pretax//PRTKS +preteen/S/PRTN +pretend/SDRZG/PRTNT +pretended/Y/PRTNTT +pretender/M/PRTNT +pretending/U/PRTNTN +pretense/MNVSX/PRTNS +pretension/GDM/PRTNXN +pretentious/UYP/PRTNXS +pretentiousness/S/PRTNXSNS +preterit/SM/PRTRT +preterite's//PRTRTS +preternatural/Y/PRTNTRL +pretest/SDG/PRTST +pretext/SMDG/PRTKST +Pretoria/M/PRTR +pretreated//PRTRTT +pretreatment/S/PRTRTMNT +pretrial//PRTRL +prettify/SDG/PRTF +prettily//PRTL +prettiness/SM/PRTNS +pretty/TGPDRS/PRT +pretzel/SM/PRTSL +prevail/SGD/PRFL +prevailing/Y/PRFLN +prevalence/MS/PRFLNS +prevalent/SY/PRFLNT +prevaricate/DSXNG/PRFRKT +prevaricator/MS/PRFRKT +prevent/BSDRGV/PRFNT +preventable/U/PRFNTBL +preventably//PRFNTBL +preventative/S/PRFNTTF +preventer/M/PRFNT +prevention/MS/PRFNXN +preventive/SPY/PRFNTF +preventiveness/M/PRFNTFNS +preview/ZGSDRM/PRF +previous/Y/PRFS +prevision/SGMD/PRFXN +prewar//PRW +prexes//PRKSS +prey/SMDG/PR +preyer's//PRYS +Priam/M/PRM +priapic//PRPK +Pribilof/M/PRBLF +price/AGSD/PRS +Price/M/PRS +priced/U/PRST +priceless//PRSLS +pricer/MS/PRS +price's//PRSS +pricey//PRS +pricier//PRS +priciest//PRSST +prick/RDSYZG/PRK +pricker/M/PRK +pricking/M/PRKN +prickle/GMDS/PRKL +prickliness/S/PRKLNS +prickly/RTP/PRKL +pride/GMDS/PRT +prideful/Y/PRTFL +prier/M/PR +priest/SMYDG/PRST +priestess/MS/PRSTS +priesthood/SM/PRS@T +Priestley/M/PRSTL +priestliness/SM/PRSTLNS +priestly/PTR/PRSTL +prig/SM/PRK +prigged//PRKT +prigging//PRKN +priggish/PYM/PRKX +priggishness/S/PRKXNS +prim/SPJGZYDR/PRM +primacy/MS/PRMS +primal//PRML +primarily//PRMRL +primary/MS/PRMR +primate/MS/PRMT +prime/PYS/PRM +primed/U/PRMT +primely/M/PRML +primeness/M/PRMNS +primer/M/PRM +Prime's//PRMS +primeval/Y/PRMFL +priming/M/PRMN +primitive/YPS/PRMTF +primitiveness/SM/PRMTFNS +primitivism/M/PRMTFSM +primmed//PRMT +primmer//PRM +primmest//PRMST +primming//PRMN +primness/MS/PRMNS +primogenitor/MS/PRMKNT +primogeniture/MS/PRMKNTR +primordial/YS/PRMTL +primp/DGS/PRMP +primrose/MGSD/PRMRS +Prince/M/PRNS +prince/SMY/PRNS +princedom/MS/PRNSTM +princeliness/SM/PRNSLNS +princely/PRT/PRNSL +princess/MS/PRNSS +Princeton/M/PRNSTN +principal/SY/PRNSPL +principality/MS/PRNSPLT +Principe/M/PRNSP +Principia/M/PRNSP +principle/SDMG/PRNSPL +principled/U/PRNSPLT +print/AGDRS/PRNT +printable/U/PRNTBL +printably//PRNTBL +printed/U/PRNTT +printer/AM/PRNT +printers//PRNTS +printing/SM/PRNTN +printmake/ZGR/PRNTMK +printmaker/M/PRNTMK +printmaking/M/PRNTMKN +printout/S/PRNTT +Prinz/M/PRNS +prior/YS/PR +prioress/MS/PRRS +priori//PRR +prioritize/DSRGZJ/PRRTS +priority/MS/PRRT +priory/SM/PRR +Pris//PRS +Prisca/M/PRSK +Priscella/M/PRSL +Priscilla/M/PRSL +prise/GMAS/PRS +prised//PRST +prism/MS/PRSM +prismatic//PRSMTK +prison/DRMSGZ/PRSN +prisoner/M/PRSN +Prissie/M/PRS +prissily//PRSL +prissiness/SM/PRSNS +prissy/RSPT/PRS +pristine/Y/PRSTN +prithee/S/PR@ +privacy/MS/PRFS +private/NVYTRSXP/PRFT +privateer/SMDG/PRFT +privateness/M/PRFTNS +privation/MCS/PRFXN +privative/Y/PRFTF +privatization/S/PRFTSXN +privatize/GSD/PRFTS +privet/SM/PRFT +privilege/SDMG/PRFLK +privileged/U/PRFLKT +privily//PRFL +privy/SRMT/PRF +prize/DSRGZM/PRS +prized/A/PRST +prizefight/SRMGJZ/PRSFT +prizefighter/M/PRSFT +prizefighting/M/PRSFTN +prizewinner/S/PRSWN +prizewinning//PRSWNN +PRO//PR +pro/MS/PR +proactive//PRKTF +prob/RBJ/PRB +probabilist//PRBBLST +probabilistic//PRBBLSTK +probabilistically//PRBBLSTKL +probability/SM/PRBBLT +probable/S/PRBBL +probably//PRBBL +probate/NVMX/PRBT +probated/A/PRBTT +probates/A/PRBTS +probating/A/PRBTN +probation/MRZ/PRBXN +probational//PRBXNL +probationary/S/PRBXNR +probationer/M/PRBXN +probation's/A/PRBXNS +probative/A/PRBTF +prober/M/PRB +probity/SM/PRBT +problem/SM/PRBLM +problematic/S/PRBLMTK +problematical/UY/PRBLMTKL +proboscis/MS/PRBSS +procaine/MS/PRKN +procedural/SY/PRSTRL +procedure/MS/PRSTR +proceed/JRDSG/PRST +proceeder/M/PRST +proceeding/M/PRSTN +process/BSDMG/PRSS +processed/UA/PRSST +processes/A/PRSSS +procession/GD/PRSXN +processional/YS/PRSXNL +processor/MS/PRSS +proclamation/MS/PRKLMXN +proclivity/MS/PRKLFT +proconsular//PRKNSL +procrastinate/XNGDS/PRKRSTNT +procrastination/M/PRKRSTNXN +procrastinator/MS/PRKRSTNT +procreational//PRKRXNL +procreatory//PRKRTR +procrustean//PRKRSTN +Procrustean//PRKRSTN +Procrustes/M/PRKRSTS +proctor/GSDM/PRKT +proctorial//PRKTRL +procurable/U/PRKRBL +procure/L/PRKR +procurement/MS/PRKRMNT +Procyon/M/PRSYN +prod/S/PRT +prodded//PRTT +prodding//PRTN +prodigal/SY/PRTKL +prodigality/S/PRTKLT +prodigious/PY/PRTKS +prodigiousness/M/PRTKSNS +prodigy/MS/PRTK +produce/AZGDRS/PRTS +producer/AM/PRTS +producible/A/PRTSBL +product/V/PRTKT +production/ASM/PRTKXN +productive/PY/PRTKTF +productively/UA/PRTKTFL +productiveness/MS/PRTKTFNS +productivities//PRTKTFTS +productivity/A/PRTKTFT +productivity's//PRTKTFTS +productize/GZRSD/PRTKTS +Prof//PRF +prof/S/PRF +profanation/S/PRFNXN +profane/YPDRSG/PRFN +profaneness/MS/PRFNNS +profanity/MS/PRFNT +professed/Y/PRFST +profession/SM/PRFXN +professional/USY/PRFXNL +professionalism/SM/PRFXNLSM +professionalize/GSD/PRFXNLS +professor/SM/PRFS +professorial/Y/PRFSRL +professorship/SM/PRFSXP +proffer/GSD/PRF +proficiency/SM/PRFSNS +proficient/YS/PRFSNT +profit/GZDRB/PRFT +profitability/MS/PRFTBLT +profitable/UP/PRFTBL +profitableness/MU/PRFTBLNS +profitably/U/PRFTBL +profiteer/GSMD/PRFT +profiterole/MS/PRFTRL +profitless//PRFTLS +profligacy/S/PRFLKS +profligate/YS/PRFLKT +proforma/S/PRFM +profound/PTYR/PRFNT +profoundity//PRFNTT +profoundness/SM/PRFNTNS +profundity/MS/PRFNTT +profuse/YP/PRFS +profuseness/MS/PRFSNS +progenitor/SM/PRKNT +progeny/M/PRKN +progesterone/SM/PRKSTRN +prognathous//PRKN@S +prognoses//PRKNSS +prognosis/M/PRKNSS +prognostic/S/PRKNSTK +prognosticate/NGVXDS/PRKNSTKT +prognostication/M/PRKNSTKXN +prognosticator/S/PRKNSTKT +program/CSA/PRKRM +programed//PRKRMT +programing//PRKRMN +programmability//PRKRMBLT +programmable/S/PRKRMBL +programmed/CA/PRKRMT +programmer/ASM/PRKRM +programming/CA/PRKRMN +programmings//PRKRMNS +progress/MSDVG/PRKRS +progression/SM/PRKRXN +progressive/SPY/PRKRSF +progressiveness/SM/PRKRSFNS +progressivism//PRKRSFSM +prohibit/VGSRD/PRHBT +prohibiter/M/PRHBT +prohibition/MS/PRHBXN +Prohibition/MS/PRHBXN +prohibitionist/MS/PRHBXNST +prohibitive/PY/PRHBTF +prohibitiveness/M/PRHBTFNS +prohibitory//PRHBTR +project/MDVGS/PRKKT +projected/AU/PRKKTT +projectile/MS/PRKKTL +projection/MS/PRKKXN +projectionist/MS/PRKKXNST +projective/Y/PRKKTF +projector/SM/PRKKT +Prokofieff/M/PRKFF +Prokofiev/M/PRKFF +prolegomena//PRLKMN +proletarian/S/PRLTRN +proletarianization/M/PRLTRNSXN +proletarianized//PRLTRNST +proletariat/SM/PRLTRT +proliferate/GNVDSX/PRLFRT +proliferation/M/PRLFRXN +prolific/P/PRLFK +prolifically//PRLFKL +prolix/Y/PRLKS +prolixity/MS/PRLKST +prologize//PRLKS +prologue/MGSD/PRLK +prologuize//PRLKS +prolong/G/PRLNK +prolongate/NGSDX/PRLNKT +prolongation/M/PRLNKXN +prolonger/M/PRLNK +promenade/GZMSRD/PRMNT +promenader/M/PRMNT +Promethean//PRM@N +Prometheus/M/PRM@S +promethium/SM/PRM@M +prominence/MS/PRMNNS +prominent/Y/PRMNNT +promiscuity/MS/PRMSKT +promiscuous/PY/PRMSKS +promiscuousness/M/PRMSKSNS +promise/GD/PRMS +promising/UY/PRMSN +promissory//PRMSR +promontory/MS/PRMNTR +promote/GVZBDR/PRMT +promoter/M/PRMT +promotive/P/PRMTF +promotiveness/M/PRMTFNS +prompt/SGJTZPYDR/PRMPT +prompted/U/PRMPTT +prompter/M/PRMPT +promptitude/SM/PRMPTTT +promptness/MS/PRMPTNS +promulgate/NGSDX/PRMLKT +promulgation/M/PRMLKXN +promulgator/MS/PRMLKT +pron//PRN +prone/PY/PRN +proneness/MS/PRNNS +prong/SGMD/PRNK +pronghorn/SM/PRNKN +pronominalization//PRNMNLSXN +pronominalize//PRNMNLS +pronounce/GLSRD/PRNNS +pronounceable/U/PRNNSBL +pronounced/U/PRNNST +pronouncedly//PRNNSTL +pronouncement/SM/PRNNSMNT +pronouncer/M/PRNNS +pronto//PRNT +pronunciation/SM/PRNNXXN +proof/SEAM/PRF +proofed/A/PRFT +proofer//PRF +proofing/M/PRFN +proofread/GZSR/PRFRT +proofreader/M/PRFRT +prop/SZ/PRP +propaganda/SM/PRPKNT +propagandist/SM/PRPKNTST +propagandistic//PRPKNTSTK +propagandize/DSG/PRPKNTS +propagate/SDVNGX/PRPKT +propagated/U/PRPKTT +propagation/M/PRPKXN +propagator/MS/PRPKT +propel/S/PRPL +propellant/MS/PRPLNT +propelled//PRPLT +propeller/MS/PRPL +propelling//PRPLN +propensity/MS/PRPNST +proper/PYRT/PRP +properness/M/PRPNS +propertied/U/PRPTT +property/SDM/PRPT +prophecy/SM/PRFS +prophesier/M/PRFS +prophesy/GRSDZ/PRFS +prophet/SM/PRFT +prophetess/S/PRFTS +prophetic//PRFTK +prophetical/Y/PRFTKL +prophylactic/S/PRFLKTK +prophylaxes//PRFLKSS +prophylaxis/M/PRFLKSS +propinquity/MS/PRPNKT +propionate/M/PRPNT +propitiate/GNXSD/PRPXT +propitiatory//PRPXTR +propitious/YP/PRPXS +propitiousness/M/PRPXSNS +proponent/MS/PRPNNT +proportion/ESGDM/PRPXN +proportional/SY/PRPXNL +proportionality/M/PRPXNLT +proportionate/YGESD/PRPXNT +proportioner/M/PRPXN +proportionment/M/PRPXNMNT +proposal/SM/PRPSL +propped//PRPT +propping//PRPN +proprietary/S/PRPRTR +proprietor/SM/PRPRT +proprietorial//PRPRTRL +proprietorship/SM/PRPRTXP +proprietress/MS/PRPRTRS +propriety/MS/PRPRT +proprioception//PRPRSPXN +proprioceptive//PRPRSPTF +propulsion/MS/PRPLXN +propulsive//PRPLSF +propylene/M/PRPLN +prorogation/SM/PRRKXN +prorogue//PRRK +pros/DSRG/PRS +prosaic//PRSK +prosaically//PRSKL +proscenium/MS/PRSNM +prosciutti//PRST +prosciutto/SM/PRST +proscription/SM/PRSKRPXN +proscriptive//PRSKRPTF +prose/M/PRS +prosecute/SDBXNG/PRSKT +prosecution/M/PRSKXN +prosecutor/MS/PRSKT +proselyte/SDGM/PRSLT +proselytism/MS/PRSLTSM +proselytize/ZGDSR/PRSLTS +proser/M/PRS +Proserpine/M/PRSPN +prosodic/S/PRSTK +prosody/MS/PRST +prospect/DMSVG/PRSPKT +prospection/SM/PRSPKXN +prospective/SYP/PRSPKTF +prospectiveness/M/PRSPKTFNS +prospector/MS/PRSPKT +prospectus/SM/PRSPKTS +prosper/GSD/PRSP +prosperity/MS/PRSPRT +prosperous/PY/PRSPRS +prosperousness/M/PRSPRSNS +prostate//PRSTT +prostheses//PRS@SS +prosthesis/M/PRS@SS +prosthetic/S/PRS@TK +prosthetics/M/PRS@TKS +prostitute/DSXNGM/PRSTTT +prostitution/M/PRSTTXN +prostrate/SDXNG/PRSTRT +prostration/M/PRSTRXN +prosy/RT/PRS +protactinium/MS/PRTKTNM +protagonist/SM/PRTKNST +Protagoras/M/PRTKRS +protean/S/PRTN +protease/M/PRTS +protect/DVGS/PRTKT +protected/UY/PRTKTT +protection/MS/PRTKXN +protectionism/MS/PRTKXNSM +protectionist/MS/PRTKXNST +protective/YPS/PRTKTF +protectiveness/S/PRTKTFNS +protector/MS/PRTKT +protectorate/SM/PRTKTRT +protégé/SM/PRTK +protégées//PRTKS +protein/MS/PRTN +proteolysis/M/PRTLSS +proteolytic//PRTLTK +Proterozoic/M/PRTRSK +protest/G/PRTST +protestant/S/PRTSTNT +Protestant/SM/PRTSTNT +protestantism//PRTSTNTSM +Protestantism/MS/PRTSTNTSM +protestation/MS/PRTSTXN +protesting/Y/PRTSTN +Proteus/M/PRTS +protocol/DMGS/PRTKL +protoplasm/MS/PRTPLSM +protoplasmic//PRTPLSMK +prototype/SDGM/PRTTP +prototypic//PRTTPK +prototypical/Y/PRTTPKL +protozoa//PRTS +protozoan/MS/PRTSN +protozoic//PRTSK +protozoon's//PRTSNS +protract/DG/PRTRKT +protrude/SDG/PRTRT +protrusile//PRTRSL +protrusion/MS/PRTRXN +protrusive/PY/PRTRSF +protuberance/S/PRTBRNS +protuberant//PRTBRNT +proud/TRY/PRT +Proudhon/M/PRTHN +Proust/M/PRST +prov/DRGZB/PRF +provabilities//PRFBLTS +provability/U/PRFBLT +provability's//PRFBLTS +provable/P/PRFBL +provableness/M/PRFBLNS +provably//PRFBL +prove/ESDAG/PRF +proved/U/PRFT +provenance/SM/PRFNNS +Provençal//PRFNL +Provencals//PRFNKLS +Provence/M/PRFNS +provender/SDG/PRFNT +provenience/SM/PRFNNS +provenly//PRFNL +prover/M/PRF +proverb/DG/PRFB +proverbial/Y/PRFBL +Proverbs/M/PRFBS +provide/DRSBGZ/PRFT +provided/U/PRFTT +providence/SM/PRFTNS +Providence/SM/PRFTNS +provident/Y/PRFTNT +providential/Y/PRFTNXL +provider/M/PRFT +province/SM/PRFNS +provincial/SY/PRFNXL +provincialism/SM/PRFNXLSM +provision/R/PRFXN +provisional/YS/PRFXNL +provisioner/M/PRFXN +proviso/MS/PRFS +Provo/M/PRF +provocateur/S/PRFKT +provocative/P/PRFKTF +provocativeness/SM/PRFKTFNS +provoke/GZDRS/PRFK +provoked/U/PRFKT +provoking/Y/PRFKN +provolone/SM/PRFLN +provost/MS/PRFST +prow/TRMS/PR +prowess/SM/PRWS +prowl/RDSZG/PRL +prowler/M/PRL +proximal/Y/PRKSML +proximate/PY/PRKSMT +proximateness/M/PRKSMTNS +proximity/MS/PRKSMT +Proxmire/M/PRKSMR +proxy/SM/PRKS +Prozac//PRSK +Pru/M/PR +prude/MS/PRT +Prudence/M/PRTNS +prudence/SM/PRTNS +prudent/Y/PRTNT +Prudential/M/PRTNXL +prudential/SY/PRTNXL +prudery/MS/PRTR +Prudi/M/PRT +prudish/YP/PRTX +prudishness/SM/PRTXNS +Prudy/M/PRT +Prue/M/PR +Pruitt/M/PRT +prune/DSRGZM/PRN +pruner/M/PRN +prurience/MS/PRRNS +prurient/Y/PRRNT +Prussia/M/PRX +Prussian/S/PRXN +prussic//PRSK +Prut/M/PRT +pry/DRSGTZ/PR +Pryce/M/PRS +pryer's//PRYS +prying/Y/PRYN +P's//PS +PS//PS +p's/A/PS +psalm/SGDM/PSLM +psalmist/SM/PSLMST +Psalms/M/PSLMS +psalter//PSLT +Psalter/SM/PSLT +psaltery/MS/PSLTR +psephologist/M/PSFLKST +pseudo/S/PST +pseudonym/SM/PSTNM +pseudonymous//PSTNMS +pseudopod//PSTPT +pseudoscience/S/PSTSNS +pshaw/SDG/PX +psi/S/PS +psittacoses//PSTKSS +psittacosis/M/PSTKSS +psoriases//PSRSS +psoriasis/M/PSRSS +psst/S/PST +PST//PST +psych/SDG/PSX +psyche/M/PSX +Psyche/M/PSX +psychedelic/S/PSXTLK +psychedelically//PSXTLKL +psychiatric//PSXTRK +psychiatrist/SM/PSXTRST +psychiatry/MS/PSXTR +psychic/MS/PSXK +psychical/Y/PSXKL +psycho/SM/PSX +psychoacoustic/S/PSXKSTK +psychoacoustics/M/PSXKSTKS +psychoactive//PSXKTF +psychoanalysis/M/PSXNLSS +psychoanalyst/S/PSXNLST +psychoanalytic//PSXNLTK +psychoanalytical//PSXNLTKL +psychoanalyze/SDG/PSXNLS +psychobabble/S/PSXBBL +psychobiology/M/PSXBLK +psychocultural//PSXKLTRL +psychodrama/MS/PSXTRM +psychogenic//PSXKNK +psychokinesis/M/PSXKNSS +psycholinguistic/S/PSXLNSTK +psycholinguistics/M/PSXLNSTKS +psycholinguists//PSXLNSTS +psychological/Y/PSXLKKL +psychologist/MS/PSXLKST +psychology/MS/PSXLK +psychometric/S/PSXMTRK +psychometrics/M/PSXMTRKS +psychometry/M/PSXMTR +psychoneuroses//PSXNRSS +psychoneurosis/M/PSXNRSS +psychopath/M/PSXP@ +psychopathic/S/PSXP@K +psychopathology/M/PSXP@LK +psychopaths//PSXP@S +psychopathy/SM/PSXP@ +psychophysic/S/PSXFSK +psychophysical/Y/PSXFSKL +psychophysics/M/PSXFSKS +psychophysiology/M/PSXFXLK +psychos/S/PSXS +psychosis/M/PSXSS +psychosocial/Y/PSXSXL +psychosomatic/S/PSXSMTK +psychosomatics/M/PSXSMTKS +psychotherapeutic/S/PSX@RPTK +psychotherapist/MS/PSX@RPST +psychotherapy/SM/PSX@RP +psychotic/S/PSXTK +psychotically//PSXTKL +psychotropic/S/PSXTRPK +psychs//PSXS +PT//PT +pt/C/PT +Pt/M/PT +PTA//PT +Ptah/M/PT +ptarmigan/MS/PTMKN +pterodactyl/SM/PTRTKTL +PTO//PT +Ptolemaic//PTLMK +Ptolemaists//PTLMSTS +Ptolemy/MS/PTLM +ptomaine/MS/PTMN +Pu//P +pub/MS/PB +pubbed//PBT +pubbing//PBN +pubertal//PBTL +puberty/MS/PBT +pubes//PBS +pubescence/S/PBSNS +pubescent//PBSNT +pubic//PBK +pubis/M/PBS +public/YSP/PBLK +publican/AMS/PBLKN +publication/AMS/PBLKXN +publicist/SM/PBLSST +publicity/SM/PBLST +publicize/SDG/PBLSS +publicized/U/PBLSST +publicness/M/PBLKNS +publics/A/PBLKS +publish/JDRSBZG/PBLX +publishable/U/PBLXBL +published/UA/PBLXT +publisher/ASM/PBLX +publishes/A/PBLXS +publishing/M/PBLXN +Puccini/M/PSN +puce/SM/PS +puck/GZSDRM/PK +Puck/M/PK +pucker/DG/PK +Puckett/M/PKT +puckish/YP/PKX +puckishness/S/PKXNS +pudding/MS/PTN +puddle/JMGRSD/PTL +puddler/M/PTL +puddling/M/PTLN +puddly//PTL +pudenda//PTNT +pudendum/M/PTNTM +pudginess/SM/PKNS +pudgy/PRT/PK +Puebla/M/PBL +Pueblo/MS/PBL +pueblo/SM/PBL +puerile/Y/PRL +puerility/SM/PRLT +puerperal//PPRL +puers//PS +Puerto/M/PT +Puff/M/PF +puff/SGZDRM/PF +puffball/SM/PFBL +puffer/M/PF +puffery/M/PFR +puffin/SM/PFN +puffiness/S/PFNS +puffy/PRT/PF +pug/MS/PK +Puget/M/PKT +pugged//PKT +pugging//PKN +Pugh/M/P +pugilism/SM/PKLSM +pugilist/S/PKLST +pugilistic//PKLSTK +pugnacious/YP/PKNSS +pugnaciousness/MS/PKNSSNS +pugnacity/SM/PKNST +puissant/Y/PSNT +puke/GDS/PK +pukka//PK +Pulaski/SM/PLSK +pulchritude/SM/PLXRTT +pulchritudinous/M/PLXRTTNS +pule/GDS/PL +Pulitzer/SM/PLTS +pull/DRGZSJ/PL +pullback/S/PLBK +pullet/SM/PLT +pulley/SM/PL +Pullman/MS/PLMN +pullout/S/PLT +pullover/SM/PLF +pulmonary//PLMNR +pulp/MDRGS/PLP +pulpiness/S/PLPNS +pulpit/MS/PLPT +pulpwood/MS/PLPWT +pulpy/PTR/PLP +pulsar/MS/PLS +pulsate/NGSDX/PLST +pulsation/M/PLSXN +pulse/ADSG/PLS +pulser//PLS +pulse's//PLSS +pulverable//PLFRBL +pulverization/MS/PLFRSXN +pulverize/GZSRD/PLFRS +pulverized/U/PLFRST +pulverizer/M/PLFRS +pulverizes/UA/PLFRSS +puma/SM/PM +pumice/SDMG/PMS +pummel/SDG/PML +pump/GZSMDR/PMP +pumpernickel/SM/PMPNKL +pumping/M/PMPN +pumpkin/MS/PMPKN +pun/MS/PN +punch/GRSDJBZ/PNX +Punch/M/PNX +punchbowl/M/PNXBL +punched/U/PNXT +puncheon/MS/PNXN +puncher/M/PNX +punchline/S/PNXLN +punchy/RT/PNX +punctilio/SM/PNKTL +punctilious/PY/PNKTLS +punctiliousness/SM/PNKTLSNS +punctual/PY/PNKTL +punctualities//PNKTLTS +punctuality/UM/PNKTLT +punctualness/M/PNKTLNS +punctuate/SDXNG/PNKTT +punctuation/M/PNKTXN +punctuational//PNKTXNL +puncture/SDMG/PNKTR +pundit/SM/PNTT +punditry/S/PNTTR +pungency/MS/PNKNS +pungent/Y/PNKNT +Punic//PNK +puniness/MS/PNNS +punish/RSDGBL/PNX +punished/U/PNXT +punisher/M/PNX +punishment/MS/PNXMNT +punitive/YP/PNTF +punitiveness/M/PNTFNS +Punjab/M/PNKB +Punjabi/M/PNKB +punk/TRMS/PNK +punky/PRS/PNK +punned//PNT +punning//PNN +punster/SM/PNST +punt/GZMDRS/PNT +punter/M/PNT +puny/PTR/PN +pup/MS/PP +pupa/M/PP +pupae//PP +pupal//PPL +pupate/NGSD/PPT +pupil/SM/PPL +pupillage/M/PPLK +pupped//PPT +puppet/SM/PPT +puppeteer/SM/PPT +puppetry/MS/PPTR +pupping//PPN +puppy/GSDM/PP +puppyish//PPYX +purblind//PBLNT +Purcell/M/PSL +purchasable//PXSBL +purchase/GASD/PXS +purchaser/MS/PXS +purdah/M/PT +purdahs//PTS +Purdue/M/PT +pure/PYTGDR/PR +purebred/S/PRBRT +puree/DSM/PR +pureeing//PRN +pureness/MS/PRNS +purgation/M/PKXN +purgative/MS/PKTF +purgatorial//PKTRL +purgatory/SM/PKTR +purge/GZDSR/PK +purger/M/PK +purify/GSRDNXZ/PRF +Purim/SM/PRM +Purina/M/PRN +purine/SM/PRN +purism/MS/PRSM +purist/MS/PRST +puristic//PRSTK +puritan/SM/PRTN +Puritan/SM/PRTN +puritanic//PRTNK +puritanical/Y/PRTNKL +Puritanism/MS/PRTNSM +puritanism/S/PRTNSM +purity/SM/PRT +purl/MDGS/PL +purlieu/SM/PL +purloin/DRGS/PLN +purloiner/M/PLN +purple/MTGRSD/PPL +purplish//PPLX +purport/DRSZG/PPT +purported/Y/PPTT +purpose/SDVGYM/PPS +purposeful/YP/PPSFL +purposefulness/S/PPSFLNS +purposeless/PY/PPSLS +purposelessness/M/PPSLSNS +purposive/YP/PPSF +purposiveness/M/PPSFNS +purr/DSG/PR +purring/Y/PRN +purse/DSRGZM/PS +purser/M/PS +pursuance/MS/PSNS +pursuant//PSNT +pursue/ZGRSD/PS +pursuer/M/PS +pursuit/MS/PST +purulence/MS/PRLNS +purulent//PRLNT +Purus//PRS +purvey/DGS/PF +purveyance/MS/PFYNS +purveyor/MS/PFY +purview/SM/PF +pus/SM/PS +Pusan/M/PSN +Pusey/M/PS +push/DSRBGZ/PX +pushbutton/S/PXBTN +pushcart/SM/PXKT +pushchair/SM/PXX +pushdown//PXTN +pusher/M/PX +pushily//PXL +pushiness/MS/PXNS +Pushkin/M/PXKN +pushover/SM/PXF +Pushtu/M/PXT +pushy/PRT/PX +pusillanimity/MS/PSLNMT +pusillanimous/Y/PSLNMS +puss/S/PS +pussy/TRSM/PS +pussycat/S/PSKT +pussyfoot/DSG/PSFT +pustular//PSTL +pustule/MS/PSTL +put/IS/PT +putative/Y/PTTF +Putin/M/PTN +Putnam/M/PTNM +Putnem/M/PTNM +putout/S/PTT +putrefaction/SM/PTRFKXN +putrefactive//PTRFKTF +putrefy/DSG/PTRF +putrescence/MS/PTRSNS +putrescent//PTRSNT +putrid/YP/PTRT +putridity/M/PTRTT +putridness/M/PTRTNS +putsch/S/PTSX +putt/SGZMDR/PT +putted/I/PTT +puttee/MS/PT +putter/RDMGZ/PT +putting/I/PTN +putty/SDMG/PT +puttying/M/PTYN +puzzle/JRSDZLG/PSL +puzzlement/MS/PSLMNT +puzzler/M/PSL +PVC//PFK +pvt//PFT +Pvt/M/PFT +PW//P +PX//PKS +Pygmalion/M/PKMLN +pygmy/SM/PKM +Pygmy/SM/PKM +Pyhrric/M/PHRK +pyknotic//PKNTK +Pyle/M/PL +pylon/SM/PLN +pylori//PLR +pyloric//PLRK +pylorus/M/PLRS +Pym/M/PM +Pynchon/M/PNXN +Pyongyang/M/PYNKYNK +pyorrhea/SM/PYRH +Pyotr/M/PYTR +pyramid/GMDS/PRMT +pyramidal/Y/PRMTL +pyre/MS/PR +Pyrenees//PRNS +Pyrex/SM/PRKS +pyridine/M/PRTN +pyrimidine/SM/PRMTN +pyrite/MS/PRT +pyrolysis/M/PRLSS +pyrolyze/RSM/PRLS +pyromania/MS/PRMN +pyromaniac/SM/PRMNK +pyrometer/MS/PRMT +pyrometry/M/PRMTR +pyrophosphate/M/PRFSFT +pyrotechnic/S/PRTXNK +pyrotechnical//PRTXNKL +pyrotechnics/M/PRTXNKS +pyroxene/M/PRKSN +pyroxenite/M/PRKSNT +Pyrrhic//PRHK +Pythagoras/M/P@KRS +Pythagorean/S/P@KRN +Pythias//P@S +Python/M/P@N +python/MS/P@N +pyx/MDSG/PKS +q//K +Q//K +QA//K +Qaddafi/M/KTF +Qantas/M/KNTS +Qatar/M/KT +QB//KB +QC//KK +QED//KT +Qingdao//KNT +Qiqihar/M/KKH +QM//KM +Qom/M/KM +qr//KR +q's//KS +Q's//KS +qt//KT +qty//KT +qua//K +Quaalude/M/KLT +quack/SDG/KK +quackery/MS/KKR +quackish//KKX +quad/SM/KT +quadded//KTT +quadding//KTN +quadrangle/MS/KTRNKL +quadrangular/M/KTRNKL +quadrant/MS/KTRNT +quadraphonic/S/KTRFNK +quadrapole//KTRPL +quadratic/SM/KTRTK +quadratical/Y/KTRTKL +quadrature/MS/KTRTR +quadrennial/SY/KTRNL +quadrennium/MS/KTRNM +quadric//KTRK +quadriceps/SM/KTRSPS +quadrilateral/S/KTRLTRL +quadrille/XMGNSD/KTRL +quadrillion/MH/KTRLN +quadripartite/NY/KTRPTT +quadriplegia/SM/KTRPLK +quadriplegic/SM/KTRPLKK +quadrivia//KTRF +quadrivium/M/KTRFM +quadruped/MS/KTRPT +quadrupedal//KTRPTL +quadruple/GSD/KTRPL +quadruplet/SM/KTRPLT +quadruplicate/GDS/KTRPLKT +quadruply/NX/KTRPL +quadrupole//KTRPL +quadword/MS/KTWT +quaff/SRDG/KF +quaffer/M/KF +quagmire/DSMG/KKMR +quahog/MS/KHK +quail/GSDM/KL +quaint/PTYR/KNT +quaintness/MS/KNTNS +quake/GZDSR/KK +Quaker/SM/KK +Quakeress/M/KKRS +Quakerism/S/KKRSM +quaky/RT/KK +qualification/ME/KLFKXN +qualified/UY/KLFT +qualifier/SM/KLF +qualify/EGXSDN/KLF +qualitative/Y/KLTTF +quality/MS/KLT +qualm/SM/KLM +qualmish//KLMX +quandary/MS/KNTR +quangos//KNKS +quanta/M/KNT +Quantico/M/KNTK +quantifiable/U/KNTFBL +quantified/U/KNTFT +quantifier/M/KNTF +quantify/GNSRDZX/KNTF +quantile/S/KNTL +quantitative/PY/KNTTTF +quantitativeness/M/KNTTTFNS +quantity/MS/KNTT +quantization/MS/KNTSXN +quantize/ZGDRS/KNTS +quantizer/M/KNTS +quantum/M/KNTM +quarantine/DSGM/KRNTN +quark/SM/KK +quarrel/SZDRMG/KRL +quarreler/M/KRL +quarrellings//KRLNS +quarrelsome/PY/KRLSM +quarrelsomeness/MS/KRLSMNS +quarrier/M/KR +quarry/RSDGM/KR +quarryman/M/KRMN +quarrymen//KRMN +quart/RMSZ/KT +quarter/MDRYG/KT +quarterback/SGMD/KTBK +quarterdeck/MS/KTTK +quarterer/M/KTR +quarterfinal/MS/KTFNL +quartering/M/KTRN +quarterly/S/KTL +quartermaster/MS/KTMST +quarterstaff/M/KTSTF +quarterstaves//KTSTFS +quartet/SM/KTT +quartic/S/KTK +quartile/SM/KTL +quarto/SM/KT +quartz/SM/KTS +quartzite/M/KTST +quasar/SM/KS +quash/GSD/KX +quasi//KS +quasilinear//KSLN +Quasimodo/M/KSMT +Quaternary//KTNR +quaternary/S/KTNR +quaternion/SM/KTNN +quatrain/SM/KTRN +quaver/GDS/KF +quavering/Y/KFRN +quavery//KFR +quay/SM/K +Quayle/M/KL +quayside/M/KST +Que/M/K +queasily//KSL +queasiness/SM/KSNS +queasy/TRP/KS +Quebec/M/KBK +Quechua/M/KX +queen/SGMDY/KN +Queen/SM/KN +Queenie/M/KN +queenly/RT/KNL +Queensland/M/KNSLNT +queer/STGRDYP/K +queerness/S/KNS +quell/SRDG/KL +queller/M/KL +quench/GZRSDB/KNX +quenchable/U/KNXBL +quenched/U/KNXT +quencher/M/KNX +quenchless//KNXLS +Quent/M/KNT +Quentin/M/KNTN +Querida/M/KRT +quern/M/KN +querulous/YP/KRLS +querulousness/S/KRLSNS +query/MGRSD/KR +quest/FSIM/KST +quested/A/KSTT +quester/AS/KST +quester's//KSTS +questing//KSTN +question/SMRDGBZJ/KSXN +questionable/P/KSXNBL +questionableness/M/KSXNBLNS +questionably/U/KSXNBL +questioned/UA/KSXNT +questioner/M/KSXN +questioning/UY/KSXNN +questionnaire/MS/KSXNR +quests/A/KSTS +Quetzalcoatl/M/KTSLKTL +queue/GZMDSR/K +queued/C/KT +queuer/M/K +queues/C/KS +queuing/C/KN +Quezon/M/KSN +quibble/GZRSD/KBL +quibbler/M/KBL +quiche/SM/KX +quick/RNYTXPS/KK +quicken/RDG/KKN +quickie/MS/KK +quicklime/SM/KKLM +quickness/MS/KKNS +quicksand/MS/KKSNT +quicksilver/GDMS/KKSLF +quickstep/SM/KKSTP +quid/SM/KT +quiesce/D/KS +quiescence/MS/KSNS +quiescent/YP/KSNT +quiet/UTGPSDRY/KT +quieted/E/KTT +quieten/SGD/KTN +quieter/E/KT +quieter's//KTS +quieting/E/KTN +quietly/E/KTL +quietness/MS/KTNS +quiets/E/KTS +quietude/IEMS/KTT +quietus/MS/KTS +quill/GSDM/KL +Quill/M/KL +Quillan/M/KLN +quilt/SZJGRDM/KLT +quilter/M/KLT +quilting/M/KLTN +quince/SM/KNS +quincentenary/M/KNSNTNR +Quincey/M/KNS +quincy/M/KNS +Quincy/M/KNS +quinine/MS/KNN +Quinlan/M/KNLN +Quinn/M/KN +quinquennial/Y/KNKNL +quinsy/SM/KNS +Quint/M/KNT +quint/MS/KNT +Quinta/M/KNT +Quintana/M/KNTN +quintessence/SM/KNTSNS +quintessential/Y/KNTSNXL +quintet/SM/KNTT +quintic//KNTK +quintile/SM/KNTL +Quintilian/M/KNTLN +Quintilla/M/KNTL +quintillion/MH/KNTLN +quintillionth/M/KNTLN@ +Quintin/M/KNTN +Quintina/M/KNTN +Quinton/M/KNTN +quintuple/SDG/KNTPL +quintuplet/MS/KNTPLT +Quintus/M/KNTS +quip/MS/KP +quipped//KPT +quipper//KP +quipping//KPN +quipster/SM/KPST +quire/MDSG/KR +quired/AI/KRT +quires/AI/KRS +Quirinal/M/KRNL +quiring/IA/KRN +quirk/SGMD/KK +quirkiness/SM/KKNS +quirky/PTR/KK +quirt/SDMG/KT +Quisling/M/KSLN +quisling/SM/KSLN +quit/DGS/KT +quitclaim/GDMS/KTKLM +quite/SADG/KT +Quito/M/KT +quittance/SM/KTNS +quitter/SM/KT +quitting//KTN +quiver/GDS/KF +quivering/Y/KFRN +quivery//KFR +Quixote/M/KKST +quixotic//KKSTK +quixotically//KKSTKL +Quixotism/M/KKSTSM +quiz/M/KS +quizzed//KST +quizzer/SM/KS +quizzes//KSS +quizzical/Y/KSKL +quizzing//KSN +quo/H/K +quoin/SGMD/KN +quoit/GSDM/KT +quondam//KNTM +quonset//KNST +Quonset//KNST +quorate/I/KRT +quorum/MS/KRM +quot/GDRB/KT +quota/MS/KT +quotability/S/KTBLT +quotation/SM/KTXN +quote/UGSD/KT +quoter/M/KT +quotidian/S/KTTN +quotient/SM/KTNT +qwerty//KWT +qwertys//KWTS +R/G/R +r/TGVJ/R +Ra/M/R +Rab/M/RB +Rabat/M/RBT +rabbet/GSMD/RBT +Rabbi/M/RB +rabbi/MS/RB +rabbinate/MS/RBNT +rabbinic//RBNK +rabbinical/Y/RBNKL +rabbit/MRDSG/RBT +rabbiter/M/RBT +rabble/GMRSD/RBL +rabbler/M/RBL +Rabelais/M/RBLS +Rabelaisian//RBLXN +Rabi/M/RB +rabid/YP/RBT +rabidness/SM/RBTNS +rabies//RBS +Rabin/M/RBN +rabis//RBS +raccoon/SM/RKN +race/MZGDRSJ/RS +racecourse/MS/RSKS +racegoers//RSKS +racehorse/SM/RSHS +raceme/MS/RSM +racer/M/RS +racetrack/SMR/RSTRK +raceway/SM/RSW +Rachael/M/RXL +Rachel/M/RXL +Rachele/M/RXL +Rachelle/M/RXL +Rachmaninoff/M/RXMNNF +racial/Y/RXL +racialism/MS/RXLSM +racialist/MS/RXLST +racily//RSL +Racine/M/RSN +raciness/MS/RSNS +racism/S/RSSM +racist/MS/RSST +rack/GDRMS/RK +racket/SMDG/RKT +racketeer/MDSJG/RKT +rackety//RKT +raconteur/SM/RKNT +racoon's//RKNS +racquetball/S/RKTBL +racquet's//RKTS +racy/RTP/RS +Rad/M/RT +rad/S/RT +radar/SM/RT +radarscope/MS/RTSKP +Radcliffe/M/RTKLF +radded//RTT +radder//RT +raddest//RTST +Raddie/M/RT +radding//RTN +Raddy/M/RT +radial/SY/RTL +radian/SM/RTN +radiance/SM/RTNS +radiant/YS/RTNT +radiate/XSDYVNG/RTT +radiation/M/RTXN +radiative/Y/RTTF +radiator/MS/RTT +radical/SPY/RTKL +radicalism/MS/RTKLSM +radicalization/S/RTKLSXN +radicalize/GSD/RTKLS +radicalness/M/RTKLNS +radices's//RTSSS +radii/M/RT +radio/SMDG/RT +radioactive/Y/RTKTF +radioactivity/MS/RTKTFT +radioastronomical//RTSTRNMKL +radioastronomy//RTSTRNM +radiocarbon/MS/RTKBN +radiochemical/Y/RTXMKL +radiochemistry/M/RTXMSTR +radiogalaxy/S/RTKLKS +radiogram/SM/RTKRM +radiographer/MS/RTKRF +radiographic//RTKRFK +radiography/MS/RTKRF +radioisotope/SM/RTSTP +radiologic//RTLKK +radiological/Y/RTLKKL +radiologist/MS/RTLKST +radiology/MS/RTLK +radioman/M/RTMN +radiomen//RTMN +radiometer/SM/RTMT +radiometric//RTMTRK +radiometry/MS/RTMTR +radionics//RTNKS +radionuclide/M/RTNKLT +radiopasteurization//RTPSTRSXN +radiophone/MS/RTFN +radiophysics//RTFSKS +radioscopy/SM/RTSKP +radiosonde/SM/RTSNT +radiosterilization//RTSTRLSXN +radiosterilized//RTSTRLST +radiotelegraph//RTTLKRF +radiotelegraphs//RTTLKRFS +radiotelegraphy/MS/RTTLKRF +radiotelephone/SM/RTTLFN +radiotherapist/SM/RT@RPST +radiotherapy/SM/RT@RP +radish/MS/RTX +radium/MS/RTM +radius/M/RTS +radix/SM/RTKS +radon/SM/RTN +Rae/M/R +Raeann/M/RN +RAF//RF +Raf/M/RF +Rafa/M/RF +Rafael/M/RFL +Rafaela/M/RFL +Rafaelia/M/RFL +Rafaelita/M/RFLT +Rafaellle/M/RFL +Rafaello/M/RFL +Rafe/M/RF +Raff/M/RF +Raffaello/M/RFL +Raffarty/M/RFT +Rafferty/M/RFT +raffia/SM/RF +raffish/PY/RFX +raffishness/SM/RFXNS +raffle/MSDG/RFL +Rafi/M/RF +raft/GZSMDR/RFT +rafter/DM/RFT +rag/GSMD/RK +raga/MS/RK +ragamuffin/MS/RKMFN +ragbag/SM/RKBK +rage/MS/RK +ragged/PRYT/RKT +raggedness/SM/RKTNS +raggedy/TR/RKT +ragging//RKN +raging/Y/RKN +raglan/MS/RKLN +Ragnar/M/RKN +Ragnarök//RKNK +ragout/SMDG/RKT +ragtag/MS/RKTK +ragtime/MS/RKTM +ragweed/MS/RKWT +ragwort/M/RKWT +rah/DG/R +Rahal/M/RHL +Rahel/M/RHL +rahs//RS +raid/MDRSGZ/RT +raider/M/RT +rail/CDGS/RL +railbird/S/RLBT +railer/SM/RL +railhead/SM/RLHT +railing/MS/RLN +raillery/MS/RLR +railroad/SZRDMGJ/RLRT +railroader/M/RLRT +railroading/M/RLRTN +rail's//RLS +railway/MS/RLW +railwaymen//RLWMN +raiment/SM/RMNT +Raimondo/M/RMNT +Raimund/M/RMNT +Raimundo/M/RMNT +rain/GSDM/RN +Raina/M/RN +rainbow/MS/RNB +raincloud/S/RNKLT +raincoat/SM/RNKT +raindrop/SM/RNTRP +Raine/MR/RN +Rainer/M/RN +rainfall/SM/RNFL +rainforest's//RNFRSTS +Rainier/M/RN +rainless//RNLS +rainmaker/SM/RNMK +rainmaking/MS/RNMKN +rainproof/GSD/RNPRF +rainstorm/SM/RNSTM +rainwater/MS/RNWT +rainy/RT/RN +raise/DSRGZ/RS +raiser/M/RS +raisin/MS/RSN +raising/M/RSN +raj/M/RK +rajah/M/RK +rajahs//RKS +Rajive/M/RKF +rake/MGDRS/RK +Rakel/M/RKL +raker/M/RK +rakish/PY/RKX +rakishness/MS/RKXNS +Raleigh/M/RL +Ralf/M/RLF +Ralina/M/RLN +rally/GSD/RL +Ralph/M/RLF +Ralston/M/RLSTN +Ram/M/RM +RAM/S/RM +ram/SM/RM +Rama/M/RM +Ramada/M/RMT +Ramadan/SM/RMTN +Ramakrishna/M/RMKRXN +Raman/M/RMN +Ramayana/M/RMYN +ramble/JRSDGZ/RMBL +rambler/M/RMBL +rambling/Y/RMBLN +Rambo/M/RMB +rambunctious/PY/RMBNKXS +rambunctiousness/S/RMBNKXSNS +ramekin/SM/RMKN +ramie/MS/RM +ramification/M/RMFKXN +ramify/XNGSD/RMF +Ramirez/M/RMRS +Ramiro/M/RMR +ramjet/SM/RMKT +rammed//RMT +ramming//RMN +Ramo/MS/RM +Ramon/M/RMN +Ramona/M/RMN +Ramonda/M/RMNT +ramp/GMDS/RMP +rampage/SDG/RMPK +rampancy/S/RMPNS +rampant/Y/RMPNT +rampart/SGMD/RMPT +ramrod/MS/RMRT +ramrodded//RMRTT +ramrodding//RMRTN +rams/S/RMS +Ramsay/M/RMS +Ramses/M/RMSS +Ramsey/M/RMS +ramshackle//RMXKL +ran/A/RN +Rana/M/RN +Rance/M/RNS +Rancell/M/RNSL +ranch/ZRSDMJG/RNX +rancher/M/RNX +rancho/SM/RNX +rancid/P/RNST +rancidity/MS/RNSTT +rancidness/SM/RNSTNS +rancor/SM/RNK +rancorous/Y/RNKRS +Rand/M/RNT +rand/MDGS/RNT +Randa/M/RNT +Randal/M/RNTL +Randall/M/RNTL +Randee/M/RNT +Randell/M/RNTL +Randene/M/RNTN +Randi/M/RNT +Randie/M/RNT +randiness/S/RNTNS +Randolf/M/RNTLF +Randolph/M/RNTLF +random/PYS/RNTM +randomization/SM/RNTMSXN +randomize/SRDG/RNTMS +randomness/SM/RNTMNS +Randy/M/RNT +randy/PRST/RNT +Ranee/M/RN +ranee/SM/RN +rang/GZDR/RNK +range/SM/RNK +ranged/C/RNKT +rangeland/S/RNKLNT +ranger/M/RNK +ranges/C/RNKS +ranginess/S/RNKNS +ranging/C/RNKN +Rangoon/M/RNKN +rangy/RPT/RNK +Rani/MR/RN +Rania/M/RN +Ranice/M/RNS +Ranier/M/RN +Ranique/M/RNK +rani's//RNS +rank/GZTYDRMPJS/RNK +ranked/U/RNKT +ranker/M/RNK +Rankin/M/RNKN +Rankine/M/RNKN +ranking/M/RNKN +rankle/SDG/RNKL +rankness/MS/RNKNS +Ranna/M/RN +ransack/GRDS/RNSK +ransacker/M/RNSK +Ransell/M/RNSL +Ransom/M/RNSM +ransom/ZGMRDS/RNSM +ransomer/M/RNSM +rant/GZDRJS/RNT +ranter/M/RNT +ranting/Y/RNTN +Raoul/M/RL +rap/MDRSZG/RP +rapacious/YP/RPSS +rapaciousness/MS/RPSSNS +rapacity/MS/RPST +rape/SM/RP +rapeseed/M/RPST +Raphael/M/RFL +Raphaela/M/RFL +rapid/YRPST/RPT +rapidity/MS/RPTT +rapidness/S/RPTNS +rapier/SM/RP +rapine/SM/RPN +rapist/MS/RPST +rapped//RPT +rappel/S/RPL +rappelled//RPLT +rappelling//RPLN +rapper/SM/RP +rapping/M/RPN +rapport/SM/RPT +rapporteur/SM/RPT +rapprochement/SM/RPRXMNT +rapscallion/MS/RPSKLN +rapt/YP/RPT +raptness/S/RPTNS +rapture/MGSD/RPTR +rapturous/YP/RPTRS +rapturousness/M/RPTRSNS +Rapunzel/M/RPNSL +Raquel/M/RKL +Raquela/M/RKL +rare/YTPGDRS/RR +rarebit/MS/RRBT +rarefaction/MS/RRFKXN +rarefy/GSD/RRF +rareness/MS/RRNS +rarity/SM/RRT +Rasalgethi/M/RSLK@ +Rasalhague/M/RSLHK +rascal/SMY/RSKL +rash/PZTYSR/RX +rasher/M/RX +rashness/S/RXNS +Rasia/M/RX +Rasla/M/RSL +Rasmussen/M/RSMSN +rasp/SGJMDR/RSP +raspberry/SM/RSPBR +rasper/M/RSP +rasping/Y/RSPN +Rasputin/M/RSPTN +raspy/RT/RSP +Rastaban/M/RSTBN +Rastafarian/M/RSTFRN +raster/MS/RST +Rastus/M/RSTS +rat/MDRSJZGB/RT +ratchet/MDSG/RXT +rate/KNGSD/RT +rateable//RTBL +rated/U/RTT +ratepayer/SM/RTPY +rater/M/RT +rate's//RTS +Ratfor/M/RTF +rather//R@ +Rather/M/R@ +rathskeller/SM/R@SKL +ratifier/M/RTF +ratify/ZSRDGXN/RTF +rating/M/RTN +ratio/MS/RX +ratiocinate/VNGSDX/RXSNT +ratiocination/M/RXSNXN +ration/DSMG/RXN +rational/YPS/RXNL +rationale/SM/RXNL +rationalism/SM/RXNLSM +rationalist/S/RXNLST +rationalistic//RXNLSTK +rationality/MS/RXNLT +rationalization/SM/RXNLSXN +rationalize/ZGSRD/RXNLS +rationalizer/M/RXNLS +rationalness/M/RXNLNS +Ratliff/M/RTLF +ratlike//RTLK +ratline/SM/RTLN +rattail//RTL +rattan/MS/RTN +ratted//RTT +ratter/MS/RT +ratting//RTN +rattle/RSDJGZ/RTL +rattlebrain/DMS/RTLBRN +rattlesnake/MS/RTLSNK +rattletrap/MS/RTLTRP +rattling/Y/RTLN +rattly/TR/RTL +rattrap/SM/RTRP +ratty/RT/RT +raucous/YP/RKS +raucousness/SM/RKSNS +Raul/M/RL +raunchily//RNXL +raunchiness/S/RNXNS +raunchy/RTP/RNX +ravage/GZRSD/RFK +ravager/M/RFK +rave/ZGDRSJ/RF +Ravel/M/RFL +ravel/UGDS/RFL +raveling/S/RFLN +raven/JGMRDS/RFN +Raven/M/RFN +ravenous/YP/RFNS +raver/M/RF +Ravi/M/RF +Ravid/M/RFT +ravine/SDGM/RFN +ravioli/SM/RFL +ravish/LSRDZG/RFX +ravisher/M/RFX +ravishing/Y/RFXN +ravishment/SM/RFXMNT +Raviv/M/RFF +raw/PSRYT/R +Rawalpindi/M/RWLPNT +rawboned//RBNT +rawhide/SDMG/RHT +Rawley/M/RL +Rawlings/M/RLNS +Rawlins/M/RLNS +Rawlinson/M/RLNSN +rawness/SM/RNS +Rawson/M/RSN +ray/GSMD/R +Ray/M/R +Rayburn/M/RBN +Raychel/M/RXL +Raye/M/RY +Rayleigh/M/RL +Raymond/M/RMNT +Raymondville/M/RMNTFL +Raymund/M/RMNT +Raymundo/M/RMNT +Rayna/M/RN +Raynard/M/RNT +Raynell/M/RNL +Rayner/M/RN +Raynor/M/RN +rayon/SM/RYN +Rayshell/M/RXL +Raytheon/M/R@N +raze/DRSG/RS +razer/M/RS +razor/MDGS/RS +razorback/SM/RSBK +razorblades//RSBLTS +razz/GDS/RS +razzmatazz/S/RSMTS +Rb//RB +RBI/S/RB +RC//RK +RCA//RK +rcpt//RKPT +RCS//RKS +rd//RT +RD//RT +Rd/M/RT +RDA//RT +Re/M/R +re/YM/R +Rea/M/R +reabbreviate//RBRFT +reach/GRB/RX +reachability//RXBLT +reachable/U/RXBL +reachably//RXBL +reached/U/RXT +reacher/M/RX +reacquisition//RKSXN +reactant/SM/RKTNT +reacted/U/RKTT +reaction//RKXN +reactionary/SM/RKXNR +reactivity//RKTFT +Read/GM/RT +read/JGZBR/RT +readability/MS/RTBLT +readable/P/RTBL +readably//RTBL +readdress/G/RTRS +Reade/M/RT +reader/M/RT +readership/MS/RTXP +readied//RTT +readies//RTS +readily//RTL +readiness/UM/RTNS +readinesses//RTNSS +reading/M/RTN +Reading/M/RTN +readopt/G/RTPT +readout/MS/RTT +reads/A/RTS +ready/TUPR/RT +readying//RTYN +Reagan/M/RKN +Reagen/M/RKN +real/RSTP/RL +realism/U/RLSM +realisms//RLSMS +realism's//RLSMS +realist/SM/RLST +realistic/U/RLSTK +realistically/U/RLSTKL +reality/USM/RLT +realizability/MS/RLSBLT +realizable/SMP/RLSBL +realizableness/M/RLSBLNS +realizably/S/RLSBL +realization/MS/RLSXN +realize/JRSDBZG/RLS +realized/U/RLST +realizer/M/RLS +realizes/U/RLSS +realizing/MY/RLSN +realm/M/RLM +realness/S/RLNS +realpolitik/SM/RLPLTK +Realtor/S/RLT +realtor's//RLTS +realty/SM/RLT +ream/MDRGZ/RM +reamer/M/RM +Reamonn/M/RMN +reanimate//RNMT +reap/SGZ/RP +reaper/M/RP +reappraise/G/RPRS +rear/DRMSG/R +rearguard/MS/RKT +rearmost//RMST +rearrange/L/RRNK +rearward/S/RWT +reason/UBDMG/RSN +reasonable/UP/RSNBL +reasonableness/SMU/RSNBLNS +reasonably/U/RSNBL +Reasoner/M/RSN +reasoner/SM/RSN +reasoning/MS/RSNN +reasonless//RSNLS +reasons//RSNS +reassess/GL/RSS +reassuringly/U/RSRNL +reattach/GSL/RTX +reawakening/M/RWKNN +Reba/M/RB +rebate/M/RBT +Rebbecca/M/RBK +Rebe/M/RB +Rebeca/M/RBK +Rebecca's//RBKS +Rebecka/M/RBK +Rebeka/M/RBK +Rebekah/M/RBK +Rebekkah/M/RBK +rebel/MS/RBL +rebeller//RBL +rebellion/SM/RBLN +rebellious/YP/RBLS +rebelliousness/MS/RBLSNS +rebid//RBT +rebidding//RBTN +rebind/G/RBNT +rebirth//RB@ +reboil/G/RBL +rebook//RBK +reboot/ZR/RBT +rebound/G/RBNT +rebroadcast/MG/RBRTKST +rebuke/RSDG/RBK +rebuking/Y/RBKN +rebus//RBS +rebuttal/SM/RBTL +rebutting//RBTN +rec//RK +recalcitrance/SM/RKLSTRNS +recalcitrant/S/RKLSTRNT +recalibrate/N/RKLBRT +recant/G/RKNT +recantation/S/RKNTXN +recap//RKP +recappable//RKPBL +recapping//RKPN +recast/G/RKST +recd//RKT +rec'd//RKT +recede//RST +receipt/SGDM/RSPT +receivable/S/RSFBL +receive/ZGRSDB/RSF +received/U/RSFT +receiver/M/RSF +receivership/SM/RSFXP +recency/M/RSNS +recension/M/RSNXN +recent/YPT/RSNT +recentness/SM/RSNTNS +receptacle/SM/RSPTKL +reception/MS/RSPXN +receptionist/MS/RSPXNST +receptive/YP/RSPTF +receptiveness/S/RSPTFNS +receptivity/S/RSPTFT +receptor/MS/RSPT +recess/SDMVG/RSS +recessional/S/RSXNL +recessionary//RSXNR +recessive/YPS/RSSF +recessiveness/M/RSSFNS +rechargeable//RXKBL +recheck/G/RXK +recherché//RXX +recherches//RXXS +recidivism/MS/RSTFSM +recidivist/MS/RSTFST +Recife/M/RSF +recipe/MS/RSP +recipiency//RSPNS +recipient/MS/RSPNT +reciprocal/SY/RSPRKL +reciprocate/NGXVDS/RSPRKT +reciprocation/M/RSPRKXN +reciprocity/MS/RSPRST +recital/MS/RSTL +recitalist/S/RSTLST +recitative/MS/RSTTF +recite/ZR/RST +reciter/M/RST +recked//RKT +recking//RKN +reckless/PY/RKLS +recklessness/S/RKLSNS +reckon/SGRDJ/RKN +reckoner/M/RKN +reckoning/M/RKNN +reclaim/B/RKLM +reclamation/SM/RKLMXN +recline/RSDZG/RKLN +recliner/M/RKLN +recluse/MVNS/RKLS +reclusion/M/RKLXN +recode/G/RKT +recognizability//RKKNSBLT +recognizable/U/RKKNSBL +recognizably//RKKNSBL +recognize/BZGSRD/RKKNS +recognized/U/RKKNST +recognizedly/S/RKKNSTL +recognizer/M/RKKNS +recognizing/UY/RKKNSN +recognizingly/S/RKKNSNL +recoilless//RKLS +recoinage//RKNK +recolor/GD/RKL +recombinant//RKMBNNT +recombine//RKMBN +recommended/U/RKMNTT +recompense/GDS/RKMPNS +recompute/B/RKMPT +reconcile/SRDGB/RKNSL +reconciled/U/RKNSLT +reconciler/M/RKNSL +recondite/YP/RKNTT +reconditeness/M/RKNTTNS +reconfigurability//RKNFKRBLT +reconfigure/R/RKNFKR +reconnaissance/MS/RKNSNS +reconnect/R/RKNKT +reconnoiter/GSD/RKNT +reconquer/G/RKNK +reconsecrate//RKNSKRT +reconstitute//RKNSTTT +reconstructed/U/RKNSTRKTT +Reconstruction/M/RKNSTRKXN +reconsult/G/RKNSLT +recontact/G/RKNTKT +recontaminate/N/RKNTMNT +recontribute//RKNTRBT +recook/G/RKK +recopy/G/RKP +record/ZGJ/RKT +recorded/AU/RKTT +records/A/RKTS +recourse//RKS +recover/B/RKF +recoverability//RKFRBLT +recoverable/U/RKFRBL +recovery/MS/RKFR +recreant/S/RKRNT +recreational//RKRXNL +recriminate/GNVXDS/RKRMNT +recrimination/M/RKRMNXN +recriminatory//RKRMNTR +recross/G/RKRS +recrudesce/GDS/RKRTS +recrudescence/MS/RKRTSNS +recrudescent//RKRTSNT +recruit/ZSGDRML/RKRT +recruiter/M/RKRT +recruitment/MS/RKRTMNT +recrystallize//RKRSTLS +rectal/Y/RKTL +rectangle/SM/RKTNKL +rectangular/Y/RKTNKL +recta's//RKTS +rectifiable//RKTFBL +rectification/M/RKTFKXN +rectifier/M/RKTF +rectify/DRSGXZN/RKTF +rectilinear/Y/RKTLN +rectitude/MS/RKTTT +recto/MS/RKT +rector/SM/RKT +rectory/MS/RKTR +rectum/SM/RKTM +recumbent/Y/RKMBNT +recuperate/VGNSDX/RKPRT +recuperation/M/RKPRXN +recur//RK +recurrence/MS/RKRNS +recurrent//RKRNT +recurse/NX/RKS +recursion/M/RKXN +recusant/M/RKSNT +recuse//RKS +recyclable/S/RSKLBL +recycle/BZ/RSKL +red/PYS/RT +redact/DGS/RTKT +redaction/SM/RTKXN +redactor/MS/RTKT +redbird/SM/RTBT +redbreast/SM/RTBRST +redbrick/M/RTBRK +redbud/M/RTBT +redcap/MS/RTKP +redcoat/SM/RTKT +redcurrant/M/RTKRNT +Redd/M/RT +redden/DGS/RTN +redder//RT +reddest//RTST +redding//RTN +reddish/P/RTX +redeclaration//RTKLRXN +redecorate//RTKRT +redeem/BRZ/RTM +redeemable/U/RTMBL +redeemed/U/RTMT +redeemer/M/RTM +Redeemer/M/RTM +redemption/RMS/RTMPXN +redemptioner/M/RTMPXN +redemptive//RTMPTF +redeposit/M/RTPST +redetermination//RTTMNXN +Redford/M/RTFT +Redgrave/M/RTKRF +redhead/DRMS/RTHT +Redhook/M/RTHK +redial/G/RTL +redirect/G/RTRKT +redirection//RTRKXN +redlining/S/RTLNN +Redmond/M/RTMNT +redneck/SMD/RTNK +redness/MS/RTNS +redo/G/RT +redolence/MS/RTLNS +redolent//RTLNT +Redondo/M/RTNT +redouble/S/RTBL +redoubtably//RTBTBL +redound/GDS/RTNT +redshift/S/RTXFT +redskin/SM/RTSKN +Redstone/M/RTSTN +reduce/RSDGZ/RTS +reduced/U/RTST +reducer/M/RTS +reducibility/M/RTSBLT +reducible//RTSBL +reducibly//RTSBL +reduct/V/RTKT +reduction/SM/RTKXN +reductionism/M/RTKXNSM +reductionist/S/RTKXNST +redundancy/SM/RTNTNS +redundant/Y/RTNTNT +redwood/SM/RTWT +redye//RTY +redyeing//RTYN +Ree/MDS/R +Reeba/M/RB +Reebok/M/RBK +Reece/M/RS +reecho/G/RX +reed/GMDR/RT +Reed/M/RT +reediness/SM/RTNS +reeding/M/RTN +Reedville/M/RTFL +reedy/PTR/RT +reef/GZSDRM/RF +reefer/M/RF +reek/GSR/RK +reeker/M/RK +reel/USDG/RL +reeler/M/RL +reel's//RLS +Reena/M/RN +reenforcement//RNFSMNT +reentrant//RNTRNT +Reese/M/RS +reestimate/M/RSTMT +Reeta/M/RT +Reeva/M/RF +reeve/G/RF +Reeves//RFS +reexamine//RKSMN +ref/ZS/RF +refection/SM/RFKXN +refectory/SM/RFKTR +refer/B/RF +referee/MSD/RFR +refereed/U/RFRT +refereeing//RFRN +reference/CGSRD/RFRNS +referenced/U/RFRNST +reference's//RFRNSS +referencing/U/RFRNSN +referendum/MS/RFRNTM +referent/SM/RFRNT +referential/YM/RFRNXL +referentiality//RFRNXLT +referral/SM/RFRL +referred//RFRT +referrer/S/RFR +referring//RFRN +reffed//RFT +reffing//RFN +refile//RFL +refinance//RFNNS +refine/LZ/RFN +refined/U/RFNT +refinement/MS/RFNMNT +refinish/G/RFNX +refit//RFT +reflect/SDGV/RFLKT +reflectance/M/RFLKTNS +reflected/U/RFLKTT +reflection/SM/RFLKXN +reflectional//RFLKXNL +reflective/YP/RFLKTF +reflectiveness/M/RFLKTFNS +reflectivity/M/RFLKTFT +reflector/MS/RFLKT +reflex/YV/RFLKS +reflexion/MS/RFLKSN +reflexive/PSY/RFLKSF +reflexiveness/M/RFLKSFNS +reflexivity/M/RFLKSFT +reflooring//RFLRN +refluent//RFLNT +reflux/G/RFLKS +refocus/G/RFKS +refold/G/RFLT +reforestation//RFRSTXN +reforge/G/RFK +reform/B/RFM +reformatory/SM/RFMTR +reformed/U/RFMT +reformer/M/RFM +reformism/M/RFMSM +reformist/S/RFMST +refract/DGVS/RFRKT +refractive/PY/RFRKTF +refractiveness/M/RFRKTFNS +refractometer/MS/RFRKTMT +refractoriness/M/RFRKTRNS +refractory/PS/RFRKTR +refrain/DGS/RFRN +refresh/LB/RFRX +refreshed/U/RFRXT +refreshing/Y/RFRXN +refreshment/MS/RFRXMNT +refrigerant/MS/RFRKRNT +refrigerate/XDSGN/RFRKRT +refrigerated/U/RFRKRTT +refrigeration/M/RFRKRXN +refrigerator/MS/RFRKRT +refrozen//RFRSN +refry/GS/RFR +refuge/SDGM/RFK +refugee/MS/RFK +Refugio/M/RFK +refulgence/SM/RFLKNS +refulgent//RFLKNT +refund/B/RFNT +refunder/M/RFNT +refurbish/L/RFBX +refurbishment/S/RFBXMNT +refusal/SM/RFSL +refuse/R/RFS +refuser/M/RFS +refutation/MS/RFTXN +refute/GZRSDB/RFT +refuter/M/RFT +reg//RK +Reg/MN/RK +regal/GYRD/RKL +regale/L/RKL +regalement/S/RKLMNT +regalia/M/RKL +Regan/M/RKN +regard/EGDS/RKT +regardless/PY/RKTLS +regather/G/RK@ +regatta/MS/RKT +Regen/M/RKN +regency/MS/RKNS +regeneracy/MS/RKNRS +regenerate/U/RKNRT +regenerately//RKNRTL +regenerateness/M/RKNRTNS +reggae/SM/RK +Reggi/MS/RK +Reggie/M/RK +Reggy/M/RK +regicide/SM/RKST +regime/MS/RKM +regimen/MS/RKMN +regiment/SDMG/RKMNT +regimental/S/RKMNTL +regimentation/MS/RKMNTXN +Regina/M/RKN +Reginae//RKN +Reginald/M/RKNLT +Reginauld/M/RKNLT +Regine/M/RKN +region/SM/RKN +regional/SY/RKNL +regionalism/MS/RKNLSM +Regis/M/RKS +register/UDSG/RKST +register's//RKSTS +registrable//RKSTRBL +registrant/SM/RKSTRNT +registrar/SM/RKSTR +registration/AM/RKSTRXN +registrations//RKSTRXNS +registry/MS/RKSTR +regnant//RKNNT +Regor/M/RK +regress/DSGV/RKRS +regression/MS/RKRXN +regressive/PY/RKRSF +regressiveness/M/RKRSFNS +regressors//RKRSS +regret/S/RKRT +regretful/PY/RKRTFL +regretfulness/M/RKRTFLNS +regrettable//RKRTBL +regrettably//RKRTBL +regretted//RKRTT +regretting//RKRTN +reground//RKRNT +regroup/G/RKRP +regrow/G/RKR +regular/YS/RKL +regularity/MS/RKLRT +regularization/MS/RKLRSXN +regularize/SDG/RKLRS +regulate/CSDXNG/RKLT +regulated/U/RKLTT +regulation/M/RKLXN +regulative//RKLTF +regulator/SM/RKLT +regulatory//RKLTR +Regulus/M/RKLS +regurgitate/XGNSD/RKKTT +regurgitation/M/RKKTXN +rehab/S/RHB +rehabbed//RHBT +rehabbing//RHBN +rehabilitate/SDXVGN/RHBLTT +rehabilitation/M/RHBLTXN +rehang/G/RHNK +rehear/GJ/RH +rehears/R/RHS +rehearsal/SM/RHSL +rehearse//RHS +rehearsed/U/RHST +rehearser/M/RHS +reheat/G/RHT +reheating/M/RHTN +Rehnquist//RNKST +rehydrate//RHTRT +Reich/M/RX +Reichenberg/M/RXNBK +Reichstags//RXSTKS +Reichstag's//RXSTKS +Reid/MR/RT +Reidar/M/RT +Reider/M/RT +reign/MDSG/RN +Reiko/M/RK +Reilly/M/RL +reimburse/GSDBL/RMBS +reimbursement/MS/RMBSMNT +rein/GDM/RN +Reina/M/RN +Reinald/M/RNLT +Reinaldo/MS/RNLT +reindeer/M/RNT +Reine/M/RN +reinforce/GSRDL/RNFS +reinforced/U/RNFST +reinforcement/MS/RNFSMNT +reinforcer/M/RNFS +Reinhard/M/RNHT +Reinhardt/M/RNHTT +Reinhold/M/RNHLT +Reinold/M/RNLT +reinstate/L/RNSTT +reinstatement/MS/RNSTTMNT +reinsurance//RNSRNS +Reinwald/M/RNWLT +reissue//RS +REIT//RT +reiterative/SP/RTRTF +reject/RDVGS/RKKT +rejecter/M/RKKT +rejecting/Y/RKKTN +rejection/SM/RKKXN +rejector/MS/RKKT +rejigger//RKK +rejoice/RSDJG/RKS +rejoicing/Y/RKSN +rejoinder/SM/RKNT +rejuvenate/NGSDX/RKFNT +rejuvenatory//RKFNTR +rel/V/RL +relapse//RLPS +relate/XVNGSZ/RLT +related/U/RLTT +relatedly//RLTTL +relatedness/MS/RLTTNS +relater/M/RLT +relation/M/RLXN +relational/Y/RLXNL +relationship/MS/RLXNXP +relative/SPY/RLTF +relativeness/M/RLTFNS +relativism/M/RLTFSM +relativist/MS/RLTFST +relativistic//RLTFSTK +relativistically//RLTFSTKL +relativity/MS/RLTFT +relator's//RLTS +relax/GZD/RLKS +relaxant/SM/RLKSNT +relaxation/MS/RLKSXN +relaxed/YP/RLKST +relaxedness/M/RLKSTNS +relaxing/Y/RLKSN +relay/GDM/RL +relearn/G/RLN +releasable/U/RLSBL +release/B/RLS +released/U/RLST +relent/SDG/RLNT +relenting/U/RLNTN +relentless/PY/RLNTLS +relentlessness/SM/RLNTLSNS +relevance/SM/RLFNS +relevancy/MS/RLFNS +relevant/Y/RLFNT +reliability/UMS/RLBLT +reliable/U/RLBL +reliables//RLBLS +reliably/U/RLBL +reliance/MS/RLNS +reliant/Y/RLNT +relic/MS/RLK +relicense/R/RLSNS +relict/C/RLKT +relict's//RLKTS +relief/M/RLF +relieve/RSDZG/RLF +relieved/U/RLFT +relievedly//RLFTL +reliever/M/RLF +religion/SM/RLKN +religionists//RLKNSTS +religiosity/M/RLKST +religious/PY/RLKS +religiousness/MS/RLKSNS +relink/G/RLNK +relinquish/GSDL/RLNKX +relinquishment/SM/RLNKXMNT +reliquary/MS/RLKR +relish/GSD/RLX +relive/GB/RLF +reload/GR/RLT +relocate/B/RLKT +reluctance/MS/RLKTNS +reluctant/Y/RLKTNT +rely/DG/RL +rem//RM +Rem/M/RM +REM/S/RM +remade/S/RMT +remain/GD/RMN +remainder/SGMD/RMNT +remake/M/RMK +remand/DGS/RMNT +remap//RMP +remapping//RMPN +remark/BG/RMK +remarkable/U/RMKBL +remarkableness/S/RMKBLNS +remarkably//RMKBL +remarked/U/RMKT +Remarque/M/RMK +rematch/G/RMX +Rembrandt/M/RMBRNTT +remeasure/D/RMSR +remediable/P/RMTBL +remediableness/M/RMTBLNS +remedy/SDMG/RMT +remember/GR/RMMB +remembered/U/RMMBRT +rememberer/M/RMMBR +remembrance/MRS/RMMBRNS +remembrancer/M/RMMBRNS +Remington/M/RMNTN +reminisce/GSD/RMNS +reminiscence/SM/RMNSNS +reminiscent/Y/RMNSNT +remiss/YP/RMS +remissness/MS/RMSNS +remit/S/RMT +remittance/MS/RMTNS +remitted//RMTT +remitting/U/RMTN +remnant/MS/RMNNT +remodel/G/RMTL +remolding//RMLTN +remonstrant/MS/RMNSTRNT +remonstrate/SDXVNG/RMNSTRT +remonstration/M/RMNSTRXN +remonstrative/Y/RMNSTRTF +remorse/SM/RMS +remorseful/PY/RMSFL +remorsefulness/M/RMSFLNS +remorseless/YP/RMSLS +remorselessness/MS/RMSLSNS +remote/RPTY/RMT +remoteness/MS/RMTNS +remoulds//RMLTS +removal/MS/RMFL +remunerate/VNGXSD/RMNRT +remunerated/U/RMNRTT +remuneration/M/RMNRXN +remunerative/YP/RMNRTF +remunerativeness/M/RMNRTFNS +Remus/M/RMS +Remy/M/RM +Rena/M/RN +Renado/M/RNT +Renae/M/RN +renaissance/S/RNSNS +Renaissance/SM/RNSNS +renal//RNL +Renaldo/M/RNLT +Renard/M/RNT +Renascence/SM/RNSNS +Renata/M/RNT +Renate/M/RNT +Renato/M/RNT +renaturation//RNTRXN +Renaud/M/RNT +Renault/MS/RNLT +rend/RGZS/RNT +render/GJRD/RNT +renderer/M/RNTR +rendering/M/RNTRN +rendezvous/DSMG/RNTSFS +rendition/GSDM/RNTXN +Rene/M/RN +Renee/M/RN +renegade/SDMG/RNKT +renege/GZRSD/RNK +reneger/M/RNK +Renell/M/RNL +Renelle/M/RNL +renew/BG/RN +renewal/MS/RNWL +renewer/M/RNW +Renie/M/RN +rennet/MS/RNT +Rennie/M/RN +rennin/SM/RNN +Reno/M/RN +Renoir/M/RN +renounce/LGRSD/RNNS +renouncement/MS/RNNSMNT +renouncer/M/RNNS +renovate/NGXSD/RNFT +renovation/M/RNFXN +renovator/SM/RNFT +renown/SGDM/RNN +Rensselaer/M/RNSL +rent/GZMDRS/RNT +rental/SM/RNTL +rentaller//RNTL +renter/M/RNT +renumber/G/RNMB +renumeration//RNMRXN +renunciate/VNX/RNNXT +renunciation/M/RNNXXN +Renville/M/RNFL +reoccupy/G/RKP +reopen/G/RPN +reorganized/U/RKNST +Rep/M/RP +rep/S/RP +repack/G/RPK +repair/BZGR/RP +repairable/U/RPRBL +repairer/M/RPR +repairman/M/RPMN +repairmen//RPMN +repairs/E/RPS +repaper//RPP +reparable//RPRBL +reparation/SM/RPRXN +repartee/MDS/RPT +reparteeing//RPTN +repartition/Z/RPTXN +repast/G/RPST +repatriate/SDXNG/RPTRT +repave//RPF +repeal/GR/RPL +repealer/M/RPL +repeat/RDJBZG/RPT +repeatability/M/RPTBLT +repeatable/U/RPTBL +repeatably//RPTBL +repeated/Y/RPTT +repeater/M/RPT +repel/S/RPL +repelled//RPLT +repellent/SY/RPLNT +repelling/Y/RPLN +repent/RDG/RPNT +repentance/SM/RPNTNS +repentant/SY/RPNTNT +repertoire/SM/RPTR +repertory/SM/RPTR +repetition//RPTXN +repetitious/YP/RPTXS +repetitiousness/S/RPTXSNS +repetitive/PY/RPTTF +repetitiveness/MS/RPTTFNS +repine/R/RPN +repiner/M/RPN +replace/RL/RPLS +replay/GM/RPL +replenish/LRSDG/RPLNX +replenishment/S/RPLNXMNT +replete/SDPXGN/RPLT +repleteness/MS/RPLTNS +repletion/M/RPLXN +replica/SM/RPLK +replicate/SDVG/RPLKT +replicator/S/RPLKT +replug//RPLK +reply/X/RPL +repopulate//RPPLT +reported/Y/RPTT +reportorial/Y/RPTRL +repose/M/RPS +reposeful//RPSFL +repository/MS/RPSTR +reprehend/GDS/RPRHNT +reprehensibility/MS/RPRHNSBLT +reprehensible/P/RPRHNSBL +reprehensibleness/M/RPRHNSBLNS +reprehensibly//RPRHNSBL +reprehension/MS/RPRHNXN +represent/GB/RPRSNT +representable/U/RPRSNTBL +representational/Y/RPRSNTXNL +Representative/S/RPRSNTTF +representative/SYMP/RPRSNTTF +representativeness/M/RPRSNTTFNS +representativity//RPRSNTTFT +represented/U/RPRSNTT +repress/V/RPRS +repression/SM/RPRXN +repressive/YP/RPRSF +repressiveness/M/RPRSFNS +reprieve/GDS/RPRF +reprimand/SGMD/RPRMNT +reprint/M/RPRNT +reprisal/MS/RPRSL +reproach/GRSDB/RPRX +reproacher/M/RPRX +reproachful/YP/RPRXFL +reproachfulness/M/RPRXFLNS +reproaching/Y/RPRXN +reprobate/N/RPRBT +reprocess/G/RPRSS +reproducibility/MS/RPRTSBLT +reproducible/S/RPRTSBL +reproducibly//RPRTSBL +reproductive/S/RPRTKTF +reproof/G/RPRF +reprove/R/RPRF +reproving/Y/RPRFN +reptile/SM/RPTL +reptilian/S/RPTLN +republic/M/RPBLK +Republican/S/RPBLKN +Republicanism/S/RPBLKNSM +republicanism/SM/RPBLKNSM +republish/G/RPBLX +repudiate/XGNSD/RPTT +repudiation/M/RPTXN +repudiator/S/RPTT +repugnance/MS/RPKNNS +repugnant/Y/RPKNNT +repulse/VNX/RPLS +repulsion/M/RPLXN +repulsive/PY/RPLSF +repulsiveness/MS/RPLSFNS +reputability/SM/RPTBLT +reputably/E/RPTBL +reputation/SM/RPTXN +repute/ESB/RPT +reputed/Y/RPTT +reputing//RPTN +request/G/RKST +requested/U/RKSTT +Requiem/MS/RKM +requiem/SM/RKM +require/LR/RKR +requirement/MS/RKRMNT +requisite/PNXS/RKST +requisiteness/M/RKSTNS +requisition/GDRM/RKSXN +requisitioner/M/RKSXN +requital/MS/RKTL +requite/RZ/RKT +requited/U/RKTT +requiter/M/RKT +reread/G/RRT +rerecord/G/RRKT +rerouteing//RRTN +rerunning//RRNN +res/C/RS +rescale//RSKL +rescind/SDRG/RSNT +rescission/SM/RSXN +rescue/GZRSD/RSK +reseal/BG/RSL +research/MB/RSX +reselect/G/RSLKT +resemblant//RSMBLNT +resemble/DSG/RSMBL +resend/G/RSNT +resent/DSLG/RSNT +resentful/PY/RSNTFL +resentfulness/SM/RSNTFLNS +resentment/MS/RSNTMNT +reserpine/MS/RSPN +reservation/MS/RSFXN +reserved/UYP/RSFT +reservedness/UM/RSFTNS +reservednesses//RSFTNSS +reservist/SM/RSFST +reservoir/MS/RSF +reset/RDG/RST +resettle/L/RSTL +reshipping//RXPN +reshow/G/RX +reshuffle/M/RXFL +reside/G/RST +residence/MS/RSTNS +residency/SM/RSTNS +resident/SM/RSTNT +residential/Y/RSTNXL +resider/M/RST +residua//RST +residual/YS/RSTL +residuary//RSTR +residue/SM/RST +residuum/M/RSTM +resignation/MS/RSKNXN +resigned/YP/RSN +resilience/MS/RSLNS +resiliency/S/RSLNS +resilient/Y/RSLNT +resin/D/RSN +resinlike//RSNLK +resinous//RSNS +resiny//RSN +resist/RDZVGS/RSST +resistance/SM/RSSTNS +Resistance/SM/RSSTNS +resistant/U/RSSTNT +resistantly//RSSTNTL +resistants//RSSTNTS +resisted/U/RSSTT +resistible//RSSTBL +resistibly//RSSTBL +resisting/U/RSSTN +resistive/PY/RSSTF +resistiveness/M/RSSTFNS +resistivity/M/RSSTFT +resistless//RSSTLS +resistor/MS/RSST +resize/G/RSS +resold//RSLT +resole/G/RSL +resoluble//RSLBL +resolute/PYTRV/RSLT +resoluteness/MS/RSLTNS +resolvability/M/RSLFBLT +resolvable/U/RSLFBL +resolved/U/RSLFT +resolvent//RSLFNT +resonance/SM/RSNNS +resonant/YS/RSNNT +resonate/DSG/RSNT +resonator/MS/RSNT +resorption/MS/RSPXN +resort/R/RST +resound/G/RSNT +resourceful/PY/RSSFL +resourcefulness/SM/RSSFLNS +resp//RSP +respect/BSDRMZGV/RSPKT +respectability/SM/RSPKTBLT +respectable/SP/RSPKTBL +respectably//RSPKTBL +respected/E/RSPKTT +respectful/EY/RSPKTFL +respectfulness/SM/RSPKTFLNS +respecting/E/RSPKTN +respective/PY/RSPKTF +respectiveness/M/RSPKTFNS +respects/E/RSPKTS +respect's/E/RSPKTS +respell/G/RSPL +respiration/MS/RSPRXN +respirator/SM/RSPRT +respiratory/M/RSPRTR +resplendence/MS/RSPLNTNS +resplendent/Y/RSPLNTNT +respond/SDRZG/RSPNT +respondent/MS/RSPNTNT +response/RSXMV/RSPNS +responser/M/RSPNS +responsibility/MS/RSPNSBLT +responsible/P/RSPNSBL +responsibleness/M/RSPNSBLNS +responsibly//RSPNSBL +responsive/YPU/RSPNSF +responsiveness/MSU/RSPNSFNS +respray/G/RSPR +rest/DRSGVM/RST +restart/B/RSTT +restate/L/RSTT +restaurant/SM/RSTRNT +restaurateur/SM/RSTRT +rested/U/RSTT +rester/M/RST +restful/YP/RSTFL +restfuller//RSTFL +restfullest//RSTFLST +restfulness/MS/RSTFLNS +restitution/SM/RSTTXN +restive/PY/RSTF +restiveness/SM/RSTFNS +restless/YP/RSTLS +restlessness/MS/RSTLSNS +restorability//RSTRBLT +Restoration/M/RSTRXN +restoration/MS/RSTRXN +restorative/PYS/RSTRTF +restore/Z/RSTR +restorer/M/RSTR +restrained/UY/RSTRNT +restraint/MS/RSTRNT +restrict/DVGS/RSTRKT +restricted/YU/RSTRKTT +restriction/SM/RSTRKXN +restrictive/U/RSTRKTF +restrictively//RSTRKTFL +restrictiveness/MS/RSTRKTFNS +restrictives//RSTRKTFS +restroom/SM/RSTRM +restructurability//RSTRKTRBLT +restructure//RSTRKTR +rests/U/RSTS +rest's/U/RSTS +restudy/M/RSTT +restyle//RSTL +resubstitute//RSBSTTT +result/SGMD/RSLT +resultant/YS/RSLTNT +resume/SDBG/RSM +resumption/MS/RSMPXN +resurface//RSFS +resurgence/MS/RSKNS +resurgent//RSKNT +resurrect/GSD/RSRKT +resurrection/SM/RSRKXN +resurvey/G/RSF +resuscitate/XSDVNG/RSSTT +resuscitation/M/RSSTXN +resuscitator/MS/RSSTT +Reta/M/RT +retail/Z/RTL +retain/LZGSRD/RTN +retainer/M/RTN +retake//RTK +retaliate/VNGXSD/RTLT +retaliation/M/RTLXN +retaliatory//RTLTR +retard/ZGRDS/RTT +retardant/SM/RTTNT +retardation/SM/RTTXN +retarder/M/RTT +retch/SDG/RX +retention/SM/RTNXN +retentive/YP/RTNTF +retentiveness/S/RTNTFNS +retentivity/M/RTNTFT +retest/G/RTST +Retha/M/R@ +rethought//R@T +reticence/S/RTSNS +reticent/Y/RTSNT +reticle/SM/RTKL +reticular//RTKL +reticulate/GNYXSD/RTKLT +reticulation/M/RTKLXN +reticule/MS/RTKL +reticulum/M/RTKLM +retina/SM/RTN +retinal/S/RTNL +retinue/MS/RTN +retire/L/RTR +retiredness/M/RTRTNS +retiree/MS/RTR +retirement/SM/RTRMNT +retiring/YP/RTRN +retort/GD/RTT +retract/DG/RTRKT +retractile//RTRKTL +retrench/L/RTRNX +retrenchment/MS/RTRNXMNT +retributed//RTRBTT +retribution/MS/RTRBXN +retributive//RTRBTF +retrieval/SM/RTRFL +retrieve/ZGDRSB/RTRF +retriever/M/RTRF +retro/SM/RTR +retroactive/Y/RTRKTF +retrofire/GMSD/RTRFR +retrofit/S/RTRFT +retrofitted//RTRFTT +retrofitting//RTRFTN +retroflection//RTRFLKXN +retroflex/D/RTRFLKS +retroflexion/M/RTRFLKSN +retrogradations//RTRKRTXNS +retrograde/GYDS/RTRKRT +retrogress/SDVG/RTRKRS +retrogression/MS/RTRKRXN +retrogressive/Y/RTRKRSF +retrorocket/MS/RTRRKT +retrospect/SVGMD/RTRSPKT +retrospection/MS/RTRSPKXN +retrospective/SY/RTRSPKTF +retrovirus/S/RTRFRS +retrovision//RTRFXN +retry/G/RTR +retsina/SM/RTSN +returnable/S/RTNBL +returned/U/RTNT +returnee/SM/RTN +retype//RTP +Reub/NM/RB +Reube/M/RB +Reuben/M/RBN +Reunion/M/RNN +reuse/B/RS +Reuters//RTS +Reuther/M/R@ +reutilization//RTLSXN +Reuven/M/RFN +Rev/M/RF +rev/ZM/RF +Reva/M/RF +revanchist//RFNXST +reveal/JBG/RFL +revealed/U/RFLT +revealing/U/RFLN +revealingly//RFLNL +reveille/MS/RFL +revel/SJRDGZ/RFL +revelation/MS/RFLXN +Revelation/MS/RFLXN +revelatory//RFLTR +revelry/MS/RFLR +revenge/MGSRD/RFNK +revenger/M/RFNK +revenue/ZR/RFN +revenuer/M/RFN +reverberant//RFBRNT +reverberate/XVNGSD/RFBRT +reverberation/M/RFBRXN +revere/GSD/RFR +Revere/M/RFR +reverence/SRDGM/RFRNS +reverencer/M/RFRNS +Reverend//RFRNT +reverend/SM/RFRNT +reverent/Y/RFRNT +reverential/Y/RFRNXL +reverie/SM/RFR +revers/M/RFS +reversal/MS/RFSL +reverse/Y/RFS +reverser/M/RFS +reversibility/M/RFSBLT +reversible/S/RFSBL +reversibly//RFSBL +reversion/R/RFXN +reversioner/M/RFXN +revert/RDVGS/RFT +reverter/M/RFT +revertible//RFTBL +revet/L/RFT +revetment/SM/RFTMNT +review/G/RF +revile/GZSDL/RFL +revilement/MS/RFLMNT +reviler/M/RFL +revise/BRZ/RFS +revised/U/RFST +revisionary//RFXNR +revisionism/SM/RFXNSM +revisionist/SM/RFXNST +revitalize/ZR/RFTLS +revival/SM/RFFL +revivalism/MS/RFFLSM +revivalist/MS/RFFLST +revive/RSDG/RFF +reviver/M/RFF +revivification/M/RFFFKXN +revivify/X/RFFF +Revkah/M/RFK +Revlon/M/RFLN +revocable//RFKBL +revoke/GZRSD/RFK +revolt/GRD/RFLT +revolter/M/RFLT +revolting/Y/RFLTN +revolution/SM/RFLXN +revolutionariness/M/RFLXNRNS +revolutionary/MSP/RFLXNR +revolutionist/MS/RFLXNST +revolutionize/GDSRZ/RFLXNS +revolutionizer/M/RFLXNS +revolve/BSRDZJG/RFLF +revolver/M/RFLF +revue/MS/RF +revulsion/MS/RFLXN +revved//RFFT +revving//RFFN +rewarded/U/RWTT +rewarding/Y/RWTN +rewarm/G/RWM +reweave//RWF +rewedding//RWTN +reweigh/G/RW +rewind/BGR/RWNT +rewire/G/RWR +rework/G/RWK +Rex/M/RKS +rexes//RKSS +Rey/M/R +Reyes//RYS +Reykjavik/M/RKKFK +Reyna/M/RN +Reynaldo/M/RNLT +Reynard/M/RNT +Reynold/SM/RNLT +rezone//RSN +Rf//RF +RF//RF +RFC//RFK +RFD//RFT +Rh/M/R +rhapsodic//RPSTK +rhapsodical//RPSTKL +rhapsodize/GSD/RPSTS +rhapsody/SM/RPST +Rhea/M/R +rhea/SM/R +Rheba/M/RB +Rhee/M/R +Rheims/M/RMS +Rheinholdt/M/RNHLTT +Rhenish//RNX +rhenium/MS/RNM +rheology/M/RLK +rheostat/MS/RSTT +rhesus/S/RSS +Rheta/M/RT +rhetoric/MS/RTRK +rhetorical/YP/RTRKL +rhetorician/MS/RTRXN +Rhett/M/RT +Rhetta/M/RT +rheum/MS/RM +rheumatic/S/RMTK +rheumatically//RMTKL +rheumatics/M/RMTKS +rheumatism/SM/RMTSM +rheumatoid//RMTT +rheumy/RT/RM +Rhiamon/M/RMN +Rhianna/M/RN +Rhiannon/M/RNN +Rhianon/M/RNN +Rhine/M/RN +Rhineland/RM/RNLNT +Rhinelander/M/RNLNT +rhinestone/SM/RNSTN +rhinitides//RNTTS +rhinitis/M/RNTS +rhino/MS/RN +rhinoceros/MS/RNSRS +rhinotracheitis//RNTRXTS +rhizome/MS/RSM +rho/MS/R +Rhoda/M/RT +Rhodes//RTS +Rhodesia/M/RTX +Rhodesian/S/RTXN +Rhodia/M/RT +Rhodie/M/RT +rhodium/MS/RTM +rhododendron/SM/RTTNTRN +rhodolite/M/RTLT +rhodonite/M/RTNT +Rhody/M/RT +rhombic//RMBK +rhomboid/SM/RMBT +rhomboidal//RMBTL +rhombus/SM/RMBS +Rhona/M/RN +Rhonda/M/RNT +Rhone//RN +rhubarb/MS/RBB +rhyme/DSRGZM/RM +rhymester/MS/RMST +Rhys/M/RS +rhythm/MS/R@M +rhythmic/S/R@MK +rhythmical/Y/R@MKL +rhythmics/M/R@MKS +RI//R +rial/MS/RL +Riane/M/RN +Riannon/M/RNN +Rianon/M/RNN +rib/MS/RB +ribald/S/RBLT +ribaldry/MS/RBLTR +ribbed//RBT +Ribbentrop/M/RBNTRP +ribber/S/RB +ribbing/M/RBN +ribbon/DMSG/RBN +ribcage//RBKK +riboflavin/MS/RBFLFN +ribonucleic//RBNKLK +ribosomal//RBSML +ribosome/MS/RBSM +Ric/M/RK +Rica/M/RK +Rican/SM/RKN +Ricard/M/RKT +Ricardo/M/RKT +Ricca/M/RK +Riccardo/M/RKT +rice/DRSMZG/RS +Rice/M/RS +ricer/M/RS +Rich/M/RX +rich/YNSRPT/RX +Richard/MS/RXT +Richardo/M/RXT +Richardson/M/RXTSN +Richart/M/RXT +Richelieu/M/RXL +richen/DG/RXN +Richey/M/RX +Richfield/M/RXFLT +Richie/M/RX +Richland/M/RXLNT +Richmond/M/RXMNT +Richmound/M/RXMNT +richness/MS/RXNS +Richter/M/RXT +Richthofen/M/RX@FN +Richy/M/RX +Rici/M/RS +rick/GSDM/RK +Rick/M/RK +Rickard/M/RKT +Rickenbacker/M/RKNBK +Rickenbaugh/M/RKNB +Rickert/M/RKT +rickets/M/RKTS +rickety/RT/RKT +Rickey/M/RK +Ricki/M/RK +Rickie/M/RK +Rickover/M/RKF +rickrack/MS/RKRK +rickshaw/SM/RKX +Ricky/M/RK +Rico/M/RK +ricochet/GSD/RKXT +Ricoriki/M/RKRK +ricotta/MS/RKT +rid/ZGRJSB/RT +riddance/SM/RTNS +ridden//RTN +ridding//RTN +riddle/GMRSD/RTL +Riddle/M/RTL +ride/CZSGR/RT +Ride/M/RT +rider/CM/RT +riderless//RTLS +ridership/S/RTXP +ridge/DSGM/RK +Ridgefield/M/RKFLT +ridgepole/SM/RKPL +Ridgway/M/RTKW +ridgy/RT/RK +ridicule/MGDRS/RTKL +ridiculer/M/RTKL +ridiculous/PY/RTKLS +ridiculousness/MS/RTKLSNS +riding/M/RTN +Riemann/M/RMN +Riesling/SM/RSLN +rife/RT/RF +riff/GSDM/RF +riffle/SDG/RFL +riffraff/SM/RFRF +rifle/GZMDSR/RFL +rifled/U/RFLT +rifleman/M/RFLMN +riflemen//RFLMN +rifler/M/RFL +rifling/M/RFLN +rift/GSMD/RFT +rig/MS/RK +Riga/M/RK +rigamarole's//RKMRLS +rigatoni/M/RKTN +Rigel/M/RKL +rigged//RKT +rigger/SM/RK +rigging/MS/RKN +Riggs/M/RKS +Right/S/RT +right/SGTPYRDN/RT +righteous/PYU/RTS +righteousness/MS/RTSNS +righteousnesses/U/RTSNSS +rightful/PY/RTFL +rightfulness/MS/RTFLNS +rightism/SM/RTSM +rightist/S/RTST +rightmost//RTMST +rightness/MS/RTNS +rights/M/RTS +rightsize/SDG/RTSS +rightward/S/RTWT +rigid/YP/RKT +rigidify/S/RKTF +rigidity/S/RKTT +rigidness/S/RKTNS +rigmarole/MS/RKMRL +Rigoberto/M/RKBT +Rigoletto/M/RKLT +rigor/MS/RK +rigorous/YP/RKRS +rigorousness/S/RKRSNS +Rik/M/RK +Riki/M/RK +Rikki/M/RK +rile/DSG/RL +Riley/M/RL +Rilke/M/RLK +rill/GSMD/RL +rim/GSMDR/RM +Rimbaud/M/RMBT +rime/MS/RM +rimer/M/RM +rimless//RMLS +rimmed//RMT +rimming//RMN +Rina/M/RN +Rinaldo/M/RNLT +rind/MDGS/RNT +Rinehart/M/RNHT +ring/GZJDRM/RN +Ring/M/RN +ringer/M/RN +ringing/Y/RNN +ringleader/MS/RNLT +ringlet/SM/RNLT +ringlike//RNLK +Ringling/M/RNLN +ringmaster/MS/RNMST +Ringo/M/RN +ringside/ZMRS/RNST +ringworm/SM/RNWM +rink/GDRMS/RNK +rinse/DSRG/RNS +Rio/MS/R +Riobard/M/RBT +Riordan/M/RTN +riot/SMDRGZJ/RT +rioter/M/RT +riotous/PY/RTS +riotousness/M/RTSNS +RIP//RP +Rip/M/RP +rip/NDRSXTG/RP +riparian/S/RPRN +ripcord/SM/RPKT +ripe/PSY/RP +ripen/RDG/RPN +ripened/U/RPNT +ripeness/UM/RPNS +ripenesses//RPNSS +riper/U/RP +ripest/U/RPST +Ripley/M/RPL +ripoff/S/RPF +riposte/SDMG/RPST +ripped//RPT +ripper/SM/RP +ripping//RPN +ripple/RSDGM/RPL +rippler/M/RPL +ripply/TR/RPL +ripsaw/GDMS/RPS +riptide/SM/RPTT +Risa/M/RS +RISC//RSK +rise/RSJZG/RS +risen//RSN +riser/M/RS +risibility/SM/RSBLT +risible/S/RSBL +rising/M/RSN +risk/GSDRM/RSK +risker/M/RSK +riskily//RSKL +riskiness/MS/RSKNS +risky/RTP/RSK +risotto/SM/RST +risqué//RSK +rissole/M/RSL +Rita/M/RT +Ritalin//RTLN +Ritchie/M/RX +rite/DSM/RT +Ritter/M/RT +ritual/MSY/RTL +ritualism/SM/RTLSM +ritualistic//RTLSTK +ritualistically//RTLSTKL +ritualized//RTLST +Ritz/M/RTS +ritzy/TR/RTS +riv/ZGNDR/RF +Riva/MS/RF +rival/SGDM/RFL +rivaled/U/RFLT +Rivalee/M/RFL +rivalry/MS/RFLR +rive/CSGRD/RF +river/CM/RF +Rivera/M/RFR +riverbank/SM/RFBNK +riverbed/S/RFBT +riverboat/S/RFBT +riverfront//RFFRNT +riverine//RFRN +Rivers//RFS +Riverside/M/RFST +riverside/S/RFST +Riverview/M/RFF +rivet/GZSRDM/RFT +riveter/M/RFT +riveting/Y/RFTN +Rivi/M/RF +Riviera/MS/RFR +Rivkah/M/RFK +rivulet/SM/RFLT +Rivy/M/RF +Riyadh/M/RYTH +riyal/SM/RYL +rm//RM +RMS//RMS +RN//RN +Rn/M/RN +RNA//RN +roach/GSDM/RX +Roach/M/RX +road/MIS/RT +roadbed/MS/RTBT +roadblock/SMDG/RTBLK +roadhouse/SM/RTHS +roadie/S/RT +roadkill/S/RTKL +roadrunner/MS/RTRN +roadshow/S/RTX +roadside/S/RTST +roadsigns//RTSNS +roadster/SM/RTST +roadsweepers//RTSWPS +roadway/SM/RTW +roadwork/SM/RTWK +roadworthy//RTW@ +roam/DRGZS/RM +roan/S/RN +Roana/M/RN +Roanna/M/RN +Roanne/M/RN +Roanoke/M/RNK +roar/DRSJGZ/R +roarer/M/RR +roaring/T/RRN +Roarke/M/RK +roast/SGJZRD/RST +roaster/M/RST +Rob/MZ/RB +rob/SDG/RB +Robb/M/RB +robbed//RBT +robber/SM/RB +Robbert/M/RBT +robbery/SM/RBR +Robbi/M/RB +Robbie/M/RB +Robbin/MS/RBN +robbing//RBN +Robby/M/RB +Robbyn/M/RBN +robe/ESDG/RB +Robena/M/RBN +Robenia/M/RBN +Robers/M/RBS +Roberson/M/RBSN +Robert/MS/RBT +Roberta/M/RBT +Roberto/M/RBT +Robertson/SM/RBTSN +robe's//RBS +Robeson/M/RBSN +Robespierre/M/RBSPR +Robin/M/RBN +robin/MS/RBN +Robina/M/RBN +Robinet/M/RBNT +Robinett/M/RBNT +Robinetta/M/RBNT +Robinette/M/RBNT +Robinia/M/RBN +Robinson/M/RBNSN +Robinsonville/M/RBNSNFL +Robles/M/RBLS +robot/MS/RBT +robotic/S/RBTK +robotism//RBTSM +robotize/GDS/RBTS +Robson/M/RBSN +Robt/M/RBT +robust/RYPT/RBST +robustness/SM/RBSTNS +Roby/M/RB +Robyn/M/RBN +Rocco/M/RK +Roch/M/RX +Rocha/M/RX +Rochambeau/M/RXMB +Roche/M/RX +Rochell/M/RXL +Rochella/M/RXL +Rochelle/M/RXL +Rochester/M/RXST +Rochette/M/RXT +rock/GZDRMS/RK +Rock/M/RK +rockabilly/MS/RKBL +rockabye//RKBY +Rockaway/MS/RKW +rockbound//RKBNT +Rockefeller/M/RKFL +rocker/M/RK +rocket/SMDG/RKT +rocketry/MS/RKTR +Rockey/M/RK +rockfall/S/RKFL +Rockford/M/RKFT +Rockie/M/RK +rockiness/MS/RKNS +Rockland/M/RKLNT +Rockne/M/RKN +Rockville/M/RKFL +Rockwell/M/RKWL +Rocky/SM/RK +rocky/SRTP/RK +rococo/MS/RKK +Rod/M/RT +rod/SGMD/RT +Roda/M/RT +Rodd/M/RT +rodded//RTT +Roddenberry/M/RTNBR +rodder//RT +Roddie/M/RT +rodding//RTN +Roddy/M/RT +rode/S/RT +rodent/MS/RTNT +rodeo/SMDG/RT +Roderic/M/RTRK +Roderich/M/RTRX +Roderick/M/RTRK +Roderigo/M/RTRK +Rodge/ZMR/RK +Rodger/M/RKR +Rodi/M/RT +Rodie/M/RT +Rodin/M/RTN +Rodina/M/RTN +Rodney/M/RTN +Rodolfo/M/RTLF +Rodolph/M/RTLF +Rodolphe/M/RTLF +Rodrick/M/RTRK +Rodrigo/M/RTRK +Rodriguez/M/RTRKS +Rodrique/M/RTRK +Rodriquez/M/RTRKS +roe/SM/R +roebuck/SM/RBK +roentgen/SM/RNTKN +Roentgen's//RNTKNS +ROFL//RFL +Rog/MRZ/RK +Rogelio/M/RKL +roger/GSD/RK +Roger/M/RK +Rogerio/M/RKR +Roget/M/RKT +rogue/GMDS/RK +rogued/K/RKT +roguery/MS/RKR +rogues/K/RKS +roguing/K/RKN +roguish/PY/RKX +roguishness/SM/RKXNS +Roi/SM/R +roil/SGD/RL +roister/SZGRD/RST +roisterer/M/RSTR +Rojas/M/RKS +Roland/M/RLNT +Rolando/M/RLNT +Roldan/M/RLTN +role/MS/RL +Roley/M/RL +Rolf/M/RLF +Rolfe/M/RLF +roll/UDSG/RL +Rolland/M/RLNT +rollback/SM/RLBK +rolled/A/RLT +roller/SM/RL +Rollerblade/S/RLBLT +rollerskating//RLSKTN +rollick/DGS/RLK +rollicking/Y/RLKN +Rollie/M/RL +Rollin/SM/RLN +rolling/S/RLN +Rollo/M/RL +rollover/S/RLF +Rolodex//RLTKS +Rolph/M/RLF +Rolvaag/M/RLFK +ROM//RM +Rom/SM/RM +Roma/M/RM +Romain/M/RMN +romaine/MS/RMN +roman/S/RMN +Roman/SM/RMN +romance/RSDZMG/RMNS +romancer/M/RMNS +Romanesque/S/RMNSK +Romania/M/RMN +Romanian/SM/RMNN +Romano/MS/RMN +Romanov/M/RMNF +Romans/M/RMNS +Romansh/M/RMNX +romantic/MS/RMNTK +romantically/U/RMNTKL +romanticism/MS/RMNTSSM +Romanticism/S/RMNTSSM +romanticist/S/RMNTSST +romanticize/SDG/RMNTSS +Romany/SM/RMN +Rome/SM/RM +Romeo/MS/RM +romeo/S/RM +Romero/M/RMR +Rommel/M/RML +Romney/M/RMN +Romola/M/RML +Romona/M/RMN +Romonda/M/RMNT +romp/GSZDR/RMP +romper/M/RMP +Romulus/M/RMLS +Romy/M/RM +Ron/M/RN +Rona/M/RN +Ronald/M/RNLT +Ronalda/M/RNLT +Ronda/M/RNT +rondo/SM/RNT +Ronica/M/RNK +Ronna/M/RN +Ronni/M/RN +Ronnica/M/RNK +Ronnie/M/RN +Ronny/M/RN +Ronstadt/M/RNSTTT +Rontgen//RNTKN +Roobbie/M/RB +rood/MS/RT +roof/DRMJGZS/RF +roofer/M/RF +roofgarden//RFKTN +roofing/M/RFN +roofless//RFLS +rooftop/S/RFTP +rook/GDMS/RK +rookery/MS/RKR +rookie/SRMT/RK +room/MDRGZS/RM +roomer/M/RM +roomette/SM/RMT +roomful/MS/RMFL +roominess/MS/RMNS +roommate/SM/RMT +roomy/TPSR/RM +Rooney/M/RN +Roosevelt/M/RSFLT +Rooseveltian//RSFLXN +roost/SGZRDM/RST +rooster/M/RST +Root/M/RT +root/MGDRZS/RT +rooted/P/RTT +rooter/M/RT +rootless/P/RTLS +rootlessness/M/RTLSNS +rootlet/SM/RTLT +rootstock/M/RTSTK +rope/DRSMZG/RP +roper/M/RP +roping/M/RPN +Roquefort/MS/RKFT +Roquemore/M/RKMR +Rora/M/RR +Rori/M/RR +Rorie/M/RR +Rorke/M/RK +Rorschach//RSXX +Rory/M/RR +Ros/N/RS +Rosa/M/RS +Rosabel/M/RSBL +Rosabella/M/RSBL +Rosabelle/M/RSBL +Rosaleen/M/RSLN +Rosales/M/RSLS +Rosalia/M/RSL +Rosalie/M/RSL +Rosalind/M/RSLNT +Rosalinda/M/RSLNT +Rosalinde/M/RSLNT +Rosaline/M/RSLN +Rosalyn/M/RSLN +Rosalynd/M/RSLNT +Rosamond/M/RSMNT +Rosamund/M/RSMNT +Rosana/M/RSN +Rosanna/M/RSN +Rosanne/M/RSN +Rosario/M/RSR +rosary/SM/RSR +Rosco/M/RSK +Roscoe/M/RSK +Rose/M/RS +rose/MGDS/RS +Roseann/M/RSN +Roseanna/M/RSN +Roseanne/M/RSN +roseate/Y/RST +Roseau//RS +rosebud/MS/RSBT +rosebush/SM/RSBX +Rosecrans/M/RSKRNS +Roseland/M/RSLNT +Roselia/M/RSL +Roselin/M/RSLN +Roseline/M/RSLN +Rosella/M/RSL +Roselle/M/RSL +Rosemaria/M/RSMR +Rosemarie/M/RSMR +Rosemary/M/RSMR +rosemary/MS/RSMR +Rosemonde/M/RSMNT +Rosen/M/RSN +Rosenberg/M/RSNBK +Rosenblum/M/RSNBLM +Rosendo/M/RSNT +Rosene/M/RSN +Rosenthal/M/RSN@L +Rosenzweig/M/RSNSWK +Rosetta/M/RST +Rosette/M/RST +rosette/SDMG/RST +rosewater//RSWT +rosewood/SM/RSWT +Roshelle/M/RXL +Rosicrucian/M/RSKRXN +Rosie/M/RS +rosily//RSL +rosin/SMDG/RSN +Rosina/M/RSN +rosiness/MS/RSNS +Rosita/M/RST +Roslyn/M/RSLN +Rosmunda/M/RSMNT +Ross//RS +Rossetti/M/RST +Rossi/M/RS +Rossie/M/RS +Rossini/M/RSN +Rossy/M/RS +Rostand/M/RSTNT +roster/DMGS/RST +Rostov/M/RSTF +rostra's//RSTRS +rostrum/SM/RSTRM +Roswell/M/RSWL +Rosy/M/RS +rosy/RTP/RS +rot/SDG/RT +rota/MS/RT +Rotarian/SM/RTRN +rotary/S/RTR +rotate/VGNXSD/RTT +rotated/U/RTTT +rotation/M/RTXN +rotational/Y/RTXNL +rotative/Y/RTTF +rotator/SM/RTT +rotatory//RTTR +ROTC//RTK +rote/MS/RT +rotgut/MS/RTKT +Roth/M/R@ +Rothschild/M/R@SXLT +rotisserie/MS/RTSR +rotogravure/SM/RTKRFR +rotor/MS/RT +rototill/RZ/RTTL +rotted//RTT +rotten/RYSTP/RTN +rottenness/S/RTNS +rotter/M/RT +Rotterdam/M/RTTM +rotting//RTN +rotund/SDYPG/RTNT +rotunda/SM/RTNT +rotundity/S/RTNTT +rotundness/S/RTNTNS +Rouault/M/RLT +roué/MS/R +rouge/GMDS/RK +rough/XPYRDNGT/RF +roughage/SM/RFK +roughen/DG/RFN +rougher/M/RF +roughhouse/GDSM/RFHS +roughish//RFX +roughneck/MDSG/RFNK +roughness/MS/RFNS +roughs//RFS +roughshod//RFXT +roulette/MGDS/RLT +round/YRDSGPZT/RNT +roundabout/PSM/RNTBT +rounded/P/RNTT +roundedness/M/RNTTNS +roundelay/SM/RNTL +roundels//RNTLS +rounder/M/RNT +roundhead/D/RNTHT +roundheaded/P/RNTHTT +roundheadedness/M/RNTHTTNS +roundhouse/SM/RNTHS +roundish//RNTX +roundness/MS/RNTNS +roundoff//RNTF +roundup/MS/RNTP +roundworm/MS/RNTWM +Rourke/M/RK +rouse/DSRG/RS +rouser/M/RS +Rousseau/M/RS +roust/SGD/RST +roustabout/SM/RSTBT +rout/GZJMDRS/RT +route/ASRDZGJ/RT +router/M/RT +route's//RTS +routine/SYM/RTN +routing/M/RTN +routinize/GSD/RTNS +Rouvin/M/RFN +rove/ZGJDRS/RF +rover/M/RF +Rover/M/RF +roving/M/RFN +Row/MN/R +row/SJZMGNDR/R +Rowan/M/RWN +rowboat/SM/RBT +rowdily//RTL +rowdiness/MS/RTNS +rowdy/PTSR/RT +rowdyism/MS/RTYSM +Rowe/M/RW +rowel/DMSG/RWL +rowen/M/RWN +Rowen/M/RWN +Rowena/M/RWN +rower/M/RW +Rowland/M/RLNT +Rowley/M/RL +Rowney/M/RN +Roxana/M/RKSN +Roxane/M/RKSN +Roxanna/M/RKSN +Roxanne/M/RKSN +Roxi/M/RKS +Roxie/M/RKS +Roxine/M/RKSN +Roxy/M/RKS +Roy/M/R +Royal/M/RYL +royal/SY/RYL +royalist/SM/RYLST +Royall/M/RYL +royalty/MS/RYLT +Royce/M/RS +Roz/M/RS +Rozalie/M/RSL +Rozalin/M/RSLN +Rozamond/M/RSMNT +Rozanna/M/RSN +Rozanne/M/RSN +Roze/M/RS +Rozele/M/RSL +Rozella/M/RSL +Rozelle/M/RSL +Rozina/M/RSN +RP//RP +rpm//RPM +RPM//RPM +rps//RPS +RR//R +Rriocard/M/RKT +rs//RS +r's//RS +R's//RS +RSFSR//RSFSR +RSI//RS +RSV//RSF +RSVP//RSFP +RSX//RSKS +rt//RT +rte//RT +Rte//RT +RTFM//RTFM +Ru/MH/R +rub/S/RB +Rubaiyat/M/RBYT +rubato/MS/RBT +rubbed//RBT +rubber/SDMG/RB +rubberize/GSD/RBRS +rubberneck/DRMGSZ/RBNK +rubbery/TR/RBR +rubbing/M/RBN +rubbish/DSMG/RBX +rubbishy//RBX +rubble/GMSD/RBL +rubdown/MS/RBTN +Rube/M/RB +rube/SM/RB +rubella/MS/RBL +Ruben/MS/RBN +Rubetta/M/RBT +Rubi/M/RB +Rubia/M/RB +Rubicon/SM/RBKN +rubicund//RBKNT +rubidium/SM/RBTM +Rubie/M/RB +Rubik/M/RBK +Rubin/M/RBN +Rubina/M/RBN +Rubinstein/M/RBNSTN +ruble/MS/RBL +rubout//RBT +rubric/MS/RBRK +Ruby/M/RB +ruby/MTGDSR/RB +Ruchbah/M/RXB +ruck/M/RK +rucksack/SM/RKSK +ruckus/SM/RKS +ruction/SM/RKXN +Rudd/M/RT +rudder/MS/RT +rudderless//RTLS +Ruddie/M/RT +ruddiness/MS/RTNS +Ruddy/M/RT +ruddy/PTGRSD/RT +rude/PYTR/RT +rudeness/MS/RTNS +Rudie/M/RT +Rudiger/M/RTK +rudiment/SM/RTMNT +rudimentariness/M/RTMNTRNS +rudimentary/P/RTMNTR +Rudolf/M/RTLF +Rudolfo/M/RTLF +Rudolph/M/RTLF +Rudy/M/RT +Rudyard/M/RTYT +rue/GDS/R +rueful/PY/RFL +ruefulness/S/RFLNS +Rufe/M/RF +ruff/GSYDM/RF +ruffian/GSMDY/RFN +ruffle/RSDG/RFL +ruffled/U/RFLT +ruffler/M/RFL +ruffly/TR/RFL +Rufus/M/RFS +rug/MS/RK +rugby/SM/RKB +Rugby's//RKBS +rugged/PYRT/RKT +ruggedness/S/RKTNS +Ruggiero/M/RKR +rugging//RKN +Ruhr/M/RR +ruin/MGSDR/RN +ruination/MS/RNXN +ruiner/M/RN +ruinous/YP/RNS +ruinousness/M/RNSNS +Ruiz/M/RS +rule/MZGJDRS/RL +rulebook/S/RLBK +ruled/U/RLT +ruler/GMD/RL +ruling/M/RLN +rum/XSMN/RM +Rumanian's//RMNNS +Rumania's//RMNS +rumba/GDMS/RMB +rumble/JRSDG/RMBL +rumbler/M/RMBL +rumbustious//RMBSXS +rumen/M/RMN +Rumford/M/RMFT +ruminant/YMS/RMNNT +ruminate/VNGXSD/RMNT +ruminative/Y/RMNTF +rummage/GRSD/RMK +rummager/M/RMK +Rummel/M/RML +rummer//RM +rummest//RMST +rummy/TRSM/RM +rumor/ZMRDSG/RM +rumored/U/RMRT +rumorer/M/RMR +rumormonger/SGMD/RMMNK +rump/GMYDS/RMP +Rumpelstiltskin/M/RMPLSTLTSKN +rumple/SDG/RMPL +rumply/TR/RMPL +rumpus/SM/RMPS +run/AS/RN +runabout/SM/RNBT +runaround/S/RNRNT +runaway/S/RNW +rundown/SM/RNTN +rune/MS/RN +rung/MS/RNK +Runge/M/RNK +runic//RNK +runlet/SM/RNLT +runnable//RNBL +runnel/SM/RNL +runner/MS/RN +running/S/RNN +runny/RT/RN +Runnymede/M/RNMT +runoff/MS/RNF +runt/MS/RNT +runtime//RNTM +runtiness/M/RNTNS +runty/RPT/RNT +runway/MS/RNW +Runyon/M/RNYN +rupee/MS/RP +Rupert/M/RPT +Ruperta/M/RPT +Ruperto/M/RPT +rupiah/M/RP +rupiahs//RPS +Ruppert/M/RPT +Ruprecht/M/RPRXT +rupture/GMSD/RPTR +rural/Y/RRL +rurality/M/RRLT +Rurik/M/RRK +ruse/MS/RS +rush/DSRGZ/RX +Rush/M/RX +Rushdie/M/RXT +rusher/M/RX +rushes/I/RXS +rushing/M/RXN +Rushmore/M/RXMR +rushy/RT/RX +rusk/MS/RSK +Ruskin/M/RSKN +Russ/S/RS +Russel/M/RSL +Russell/M/RSL +russet/MDS/RST +russetting//RSTN +Russia/M/RX +Russian/SM/RXN +Russo/M/RS +rust/MSDG/RST +Rustbelt/M/RSTBLT +rustic/S/RSTK +rustically//RSTKL +rusticate/GSD/RSTKT +rustication/M/RSTKXN +rusticity/S/RSTST +Rustie/M/RST +Rustin/M/RSTN +rustiness/MS/RSTNS +rustle/RSDGZ/RSTL +rustler/M/RSTL +rustproof/DGS/RSTPRF +Rusty/M/RST +rusty/XNRTP/RST +rut/MS/RT +rutabaga/SM/RTBK +Rutger/SM/RTK +Ruth/M/R@ +Ruthann/M/R@N +Ruthanne/M/R@N +Ruthe/M/R@ +ruthenium/MS/R@NM +Rutherford/M/R@FT +rutherfordium/SM/R@FTM +Ruthi/M/R@ +Ruthie/M/R@ +ruthless/YP/R@LS +ruthlessness/MS/R@LSNS +Ruthy/M/R@ +Rutland/M/RTLNT +Rutledge/M/RTLK +rutted//RTT +Rutter/M/RT +Ruttger/M/RTK +rutting//RTN +rutty/RT/RT +Ruy/M/R +RV//RF +RVs//RFS +Rwanda/SM/RWNT +Rwandan/S/RWNTN +Rwy/M/R +Rx/M/RKS +Ry/M/R +Ryan/M/RYN +Ryann/M/RYN +Rycca/M/RK +Rydberg/M/RTBK +Ryder/M/RT +rye/MS/RY +Ryley/M/RL +Ryon/M/RYN +Ryukyu/M/RYKY +Ryun/M/RYN +S//S +s/XJBG/S +SA//S +Saab/M/SB +Saar/M/S +Saba/M/SB +sabbath//SB@ +Sabbath/M/SB@ +Sabbaths//SB@S +sabbatical/S/SBTKL +saber/GSMD/SB +sabered/U/SBRT +Sabik/M/SBK +Sabin/M/SBN +Sabina/M/SBN +Sabine/M/SBN +sable/GMDS/SBL +sabot/MS/SBT +sabotage/DSMG/SBTK +saboteur/SM/SBT +Sabra/M/SBR +sabra/MS/SBR +Sabrina/M/SBRN +SAC//SK +sac/SM/SK +Sacajawea/M/SKKW +saccharides//SXRTS +saccharin/MS/SXRN +saccharine//SXRN +Sacco/M/SK +sacerdotal//SSTTL +Sacha/M/SX +sachem/MS/SXM +sachet/SM/SXT +Sachs/M/SXS +sack/GJDRMS/SK +sackcloth/M/SKKL@ +sackcloths//SKKL@S +sacker/M/SK +sackful/MS/SKFL +sacking/M/SKN +sacra/L/SKR +sacral//SKRL +sacrament/DMGS/SKRMNT +sacramental/S/SKRMNTL +Sacramento/M/SKRMNT +sacred/PY/SKRT +sacredness/S/SKRTNS +sacrifice/RSDZMG/SKRFS +sacrificer/M/SKRFS +sacrificial/Y/SKRFXL +sacrilege/MS/SKRLK +sacrilegious/Y/SKRLKS +sacristan/SM/SKRSTN +sacristy/MS/SKRST +sacroiliac/S/SKRLK +sacrosanct/P/SKRSNKT +sacrosanctness/MS/SKRSNKTNS +sacrum/M/SKRM +sad/PY/ST +Sada/M/ST +Sadat/M/STT +Saddam/M/STM +sadden/DSG/STN +sadder//ST +saddest//STST +saddle/UGDS/STL +saddlebag/SM/STLBK +saddler/M/STL +saddle's//STLS +Sadducee/M/STS +Sade/M/ST +Sadella/M/STL +sades//STS +Sadie/M/ST +sadism/MS/STSM +sadist/MS/STST +sadistic//STSTK +sadistically//STSTKL +sadness/SM/STNS +sadomasochism/MS/STMSXSM +sadomasochist/S/STMSXST +sadomasochistic//STMSXSTK +Sadr/M/STR +Sadye/M/STY +safari/GMDS/SFR +safe/URPTY/SF +safeguard/MDSG/SFKT +safekeeping/MS/SFKPN +safeness/MS/SFNS +safeness's/U/SFNSS +safes//SFS +safety/SDMG/SFT +safflower/SM/SFLW +saffron/MS/SFRN +sag/TSR/SK +saga/MS/SK +sagacious/YP/SKSS +sagaciousness/M/SKSSNS +sagacity/MS/SKST +Sagan/M/SKN +sage/MYPS/SK +sagebrush/SM/SKBRX +sagged//SKT +sagger//SK +sagging//SKN +saggy/RT/SK +Saginaw/M/SKN +Sagittarius/MS/SKTRS +sago/MS/SK +saguaro/SM/SKR +Sahara/M/SHR +Saharan/M/SHRN +Sahel//SHL +sahib/MS/SHB +said/U/ST +Saidee/M/ST +saids//STS +Saigon/M/SKN +sail/GJMDRS/SL +sailboard/DGS/SLBT +sailboat/SRMZG/SLBT +sailcloth/M/SLKL@ +sailcloths//SLKL@S +sailer/M/SL +sailfish/SM/SLFX +sailing/M/SLN +sailor/YMS/SL +sailplane/SDMG/SLPLN +saint/YDMGS/SNT +sainthood/MS/SN@T +saintlike//SNTLK +saintliness/MS/SNTLNS +saintly/RTP/SNTL +Saiph/M/SF +saith//S@ +saiths//S@S +Sakai/M/SK +sake/MRS/SK +saker/M/SK +Sakhalin/M/SKHLN +Sakharov/M/SKHRF +Saki/M/SK +saki's//SKS +Sal/MY/SL +salaam/GMDS/SLM +salable/U/SLBL +salacious/YP/SLSS +salaciousness/MS/SLSSNS +salacity/MS/SLST +salad/SM/SLT +Saladin/M/SLTN +Salado/M/SLT +Salaidh/M/SLTH +salamander/MS/SLMNT +salami/MS/SLM +salary/SDMG/SLR +Salas/M/SLS +Salazar/M/SLS +sale/ABMS/SL +saleability/M/SLBLT +Saleem/M/SLM +Salem/M/SLM +Salerno/M/SLN +salesclerk/SM/SLSKLK +salesgirl/SM/SLSKL +saleslady/S/SLSLT +salesman/M/SLSMN +salesmanship/SM/SLSMNXP +salesmen//SLSMN +salespeople/M/SLSPPL +salesperson/MS/SLSPSN +salesroom/M/SLSRM +saleswoman//SLSWMN +saleswomen//SLSWMN +salience/MS/SLNS +saliency//SLNS +salient/SY/SLNT +Salim/M/SLM +Salina/MS/SLN +saline/S/SLN +salinger//SLN +Salinger/M/SLN +salinity/MS/SLNT +Salisbury/M/SLSBR +Salish/M/SLX +saliva/MS/SLF +salivary//SLFR +salivate/XNGSD/SLFT +salivation/M/SLFXN +Salk/M/SLK +Salle/M/SL +Sallee/M/SL +Salli/M/SL +Sallie/M/SL +sallow/TGRDSP/SL +sallowness/MS/SLNS +Sallust/M/SLST +sally/GSDM/SL +Sally/M/SL +Sallyann/M/SLYN +Sallyanne/M/SLYN +Salmon/M/SLMN +salmon/SM/SLMN +salmonella/M/SLMNL +salmonellae//SLMNL +Saloma/M/SLM +Salome/M/SLM +Salomi/M/SLM +Salomo/M/SLM +Salomon/M/SLMN +Salomone/M/SLMN +salon/SM/SLN +Salonika/M/SLNK +saloon/MS/SLN +saloonkeeper//SLNKP +salsa/MS/SLS +salsify/M/SLSF +SALT//SLT +salt/GZTPMDRS/SLT +saltcellar/SM/SLTSL +salted/UC/SLTT +salter/M/SLT +saltine/MS/SLTN +saltiness/SM/SLTNS +saltness/M/SLTNS +Salton/M/SLTN +saltpeter/SM/SLTPT +salts/C/SLTS +saltshaker/S/SLTXK +saltwater//SLTWT +salty/RSPT/SLT +salubrious/YP/SLBRS +salubriousness/M/SLBRSNS +salubrity/M/SLBRT +salutariness/M/SLTRNS +salutary/P/SLTR +salutation/SM/SLTXN +salutatory/S/SLTTR +salute/RSDG/SLT +saluter/M/SLT +Salvador/M/SLFT +Salvadoran/S/SLFTRN +Salvadorian/S/SLFTRN +salvage/MGRSD/SLFK +salvageable//SLFKBL +salvager/M/SLFK +salvation/MS/SLFXN +Salvatore/M/SLFTR +salve/GZMDSR/SLF +salver/M/SLF +Salvidor/M/SLFT +salvo/GMDS/SLF +Salween/M/SLWN +Salyut/M/SLYT +Salz/M/SLS +SAM//SM +Sam/M/SM +Samantha/M/SMN@ +Samara/M/SMR +Samaria/M/SMR +Samaritan/MS/SMRTN +samarium/MS/SMRM +Samarkand/M/SMKNT +samba/GSDM/SMB +same/SP/SM +sameness/MS/SMNS +Sammie/M/SM +Sammy/M/SM +Samoa//SM +Samoan/S/SMN +Samoset/M/SMST +samovar/SM/SMF +Samoyed/M/SMYT +sampan/MS/SMPN +sample/RSDJGMZ/SMPL +sampler/M/SMPL +sampling/M/SMPLN +Sampson/M/SMPSN +Samson/M/SMSN +Samsonite/M/SMSNT +Samuel/SM/SML +Samuele/M/SML +Samuelson/M/SMLSN +samurai/M/SMR +San/M/SN +San'a//SN +Sana/M/SN +sanatorium/MS/SNTRM +Sanborn/M/SNBN +Sanchez/M/SNXS +Sancho/M/SNX +sanctification/M/SNKTFKXN +sanctifier/M/SNKTF +sanctify/RSDGNX/SNKTF +sanctimonious/PY/SNKTMNS +sanctimoniousness/MS/SNKTMNSNS +sanctimony/MS/SNKTMN +sanction/SMDG/SNKXN +sanctioned/U/SNKXNT +sanctity/SM/SNKTT +sanctuary/MS/SNKTR +sanctum/SM/SNKTM +Sand/MRZ/SNT +sand/SMDRGZ/SNT +sandal/MDGS/SNTL +sandalwood/SM/SNTLWT +sandbag/MS/SNTBK +sandbagged//SNTBKT +sandbagging//SNTBKN +sandbank/SM/SNTBNK +sandbar/S/SNTB +sandblast/GZSMRD/SNTBLST +sandblaster/M/SNTBLST +sandbox/MS/SNTBKS +Sandburg/M/SNTBK +sandcastle/S/SNTKSTL +Sande/M/SNT +sander/M/SNT +Sander/M/SNT +Sanderling/M/SNTLN +Sanderson/M/SNTSN +sandhill//SNTHL +sandhog/SM/SNTHK +Sandi/M/SNT +Sandia/M/SNT +Sandie/M/SNT +sandiness/S/SNTNS +Sandinista//SNTNST +sandlot/SM/SNTLT +sandlotter/S/SNTLT +sandman/M/SNTMN +sandmen//SNTMN +Sandor/M/SNT +Sandoval/M/SNTFL +sandpaper/DMGS/SNTPP +sandpile//SNTPL +sandpiper/MS/SNTPP +sandpit/M/SNTPT +Sandra/M/SNTR +Sandro/M/SNTR +sandstone/MS/SNTSTN +sandstorm/SM/SNTSTM +Sandusky/M/SNTSK +sandwich/SDMG/SNTWX +Sandy/M/SNT +sandy/PRT/SNT +Sandye/M/SNTY +sane/IRYTP/SN +saned//SNT +saneness/MS/SNNS +saneness's/I/SNNSS +sanes//SNS +Sanford/M/SNFT +Sanforized//SNFRST +Sang/RM/SNK +sang/S/SNK +Sanger/M/SNK +sangfroid/S/SNKFRT +sangria/SM/SNKR +sanguinary//SNKNR +sanguine/F/SNKN +sanguined//SNKNT +sanguinely//SNKNL +sanguineness/M/SNKNNS +sanguineous/F/SNKNS +sanguines//SNKNS +sanguining//SNKNN +Sanhedrin/M/SNHTRN +saning//SNN +sanitarian/S/SNTRN +sanitarium/SM/SNTRM +sanitary/S/SNTR +sanitate/NX/SNTT +sanitation/M/SNTXN +sanitize/RSDZG/SNTS +sanitizer/M/SNTS +sanity/SIM/SNT +sank//SNK +Sankara/M/SNKR +sans//SNS +sanserif//SNSRF +Sanskrit/M/SNSKRT +Sanskritic//SNSKRTK +Sanskritize/M/SNSKRTS +Sanson/M/SNSN +Sansone/M/SNSN +Santa/M/SNT +Santana/M/SNTN +Santayana/M/SNTYN +Santeria//SNTR +Santiago/M/SNXK +Santo/MS/SNT +sap/MS/SP +sapience/MS/SPNS +sapient//SPNT +sapless//SPLS +sapling/SM/SPLN +sapped//SPT +sapper/SM/SP +Sapphira/M/SFR +Sapphire/M/SFR +sapphire/MS/SFR +Sappho/M/SF +sappiness/SM/SPNS +sapping//SPN +Sapporo/M/SPR +sappy/RPT/SP +saprophyte/MS/SPRFT +saprophytic//SPRFTK +sapsucker/SM/SPSK +sapwood/SM/SPWT +Sara/M/SR +Saraann/M/SRN +Saracen/MS/SRSN +Saragossa/M/SRKS +Sarah/M/SR +Sarajane/M/SRKN +Sarajevo/M/SRKF +Saran/M/SRN +saran/SM/SRN +sarape's//SRPS +Sarasota/M/SRST +Saratoga/M/SRTK +Saratov/M/SRTF +Sarawak/M/SRWK +sarcasm/MS/SKSM +sarcastic//SKSTK +sarcastically//SKSTKL +sarcoma/MS/SKM +sarcophagi//SKFK +sarcophagus/M/SKFKS +sardine/SDMG/STN +Sardinia/M/STN +sardonic//STNK +sardonically//STNKL +Saree/M/SR +Sarena/M/SRN +Sarene/M/SRN +Sarette/M/SRT +Sargasso/M/SKS +Sarge/M/SK +sarge/SM/SK +Sargent/M/SKNT +Sargon/M/SKN +Sari/M/SR +sari/MS/SR +Sarina/M/SRN +Sarine/M/SRN +Sarita/M/SRT +Sarnoff/M/SNF +sarong/MS/SRNK +Saroyan/M/SRYN +sarsaparilla/MS/SSPRL +Sarto/M/ST +sartorial/Y/STRL +sartorius/M/STRS +Sartre/M/STR +Sascha/M/SSX +SASE//SS +sash/GMDS/SX +Sasha/M/SX +sashay/GDS/SX +Sashenka/M/SXNK +Sask/M/SSK +Saskatchewan/M/SSKXWN +Saskatoon/M/SSKTN +sass/GDSM/SS +sassafras/MS/SSFRS +Sassoon/M/SSN +sassy/TRS/SS +SAT//ST +sat/DG/ST +Sat/M/ST +Satan/M/STN +satanic//STNK +satanical/Y/STNKL +Satanism/M/STNSM +satanism/S/STNSM +Satanist/M/STNST +satanist/S/STNST +satchel/SM/SXL +sate/S/ST +sateen/MS/STN +satellite/GMSD/STLT +satiable/I/SXBL +satiate/GNXSD/SXT +satiation/M/SXXN +satiety/MS/STT +satin/MDSG/STN +satinwood/MS/STNWT +satiny//STN +satire/SM/STR +satiric//STRK +satirical/Y/STRKL +satirist/SM/STRST +satirize/DSG/STRS +satirizes/U/STRSS +satisfaction/ESM/STSFKXN +satisfactorily/U/STSFKTRL +satisfactoriness/MU/STSFKTRNS +satisfactory/UP/STSFKTR +satisfiability/U/STSFBLT +satisfiable/U/STSFBL +satisfied/UE/STSFT +satisfier/M/STSF +satisfies/E/STSFS +satisfy/GZDRS/STSF +satisfying/EU/STSFYN +satisfyingly//STSFYNL +satori/SM/STR +satrap/SM/STRP +saturate/XDRSNG/STRT +saturated/CUA/STRTT +saturater/M/STRT +saturates/A/STRTS +saturation/M/STRXN +Saturday/MS/STT +Saturn/M/STN +saturnalia//STNL +Saturnalia/M/STNL +saturnine/Y/STNN +Satyanarayanan/M/STYNRYNN +satyr/MS/STR +satyriases//STRSS +satyriasis/M/STRSS +satyric//STRK +sauce/DSRGZM/SS +saucepan/SM/SSPN +saucer/M/SS +saucily//SSL +sauciness/S/SSNS +saucy/TRP/SS +Saud/M/ST +Saudi/S/ST +Saudra/M/STR +sauerkraut/SM/SKRT +Saukville/M/SKFL +Saul/M/SL +Sault/M/SLT +sauna/DMSG/SN +Sauncho/M/SNX +Saunder/SM/SNT +Saunderson/M/SNTSN +Saundra/M/SNTR +saunter/DRSG/SNT +saurian/S/SRN +sauropod/SM/SRPT +sausage/MS/SSK +Saussure/M/SSR +sauté/DGS/ST +Sauternes/M/STNS +Sauveur/M/SF +savage/GTZYPRSD/SFK +Savage/M/SFK +savageness/SM/SFKNS +savagery/MS/SFKR +savanna/MS/SFN +Savannah/M/SFN +savant/SM/SFNT +save/ZGJDRSB/SF +saved/U/SFT +saveloy/M/SFL +saver/M/SF +Savina/M/SFN +Savior/M/SF +savior/SM/SF +Saviour/M/SF +Savonarola/M/SFNRL +savor/SMRDGZ/SF +savored/U/SFRT +savorer/M/SFR +savorier//SFR +savoriest//SFRST +savoriness/S/SFRNS +savoring/Y/SFRN +savoringly/S/SFRNL +savory/UMPS/SFR +Savoy/M/SF +savoy/SM/SF +Savoyard/M/SFYT +savvy/GTRSD/SFF +Saw/M/S +saw/SMDRG/S +sawbones/M/SBNS +sawbuck/SM/SBK +sawdust/MDSG/STST +sawer/M/SW +sawfly/SM/SFL +sawhorse/MS/SHS +sawmill/SM/SML +sawtooth//ST@ +Sawyer/M/SY +sawyer/MS/SY +Sawyere/M/SYR +Sax/M/SKS +sax/MS/SKS +Saxe/M/SKS +saxifrage/SM/SKSFRK +Saxon/SM/SKSN +Saxony/M/SKSN +saxophone/MS/SKSFN +saxophonist/SM/SKSFNST +Saxton/M/SKSTN +say/USG/S +Say/ZMR/S +Sayer/M/SY +sayer/SM/SY +sayest//SYST +saying/MS/SYN +Sayre/MS/SR +says/M/SS +Sb/M/SB +SBA//SB +SC//SK +Sc/M/SK +scab/SM/SKB +scabbard/SGDM/SKBT +scabbed//SKBT +scabbiness/SM/SKBNS +scabbing//SKBN +scabby/RTP/SKB +scabies/M/SKBS +scabrous/YP/SKBRS +scabrousness/M/SKBRSNS +scad/SM/SKT +scaffold/JGDMS/SKFLT +scaffolding/M/SKFLTN +Scala/M/SKL +scalability//SKLBLT +scalar/SM/SKL +scalawag/SM/SKLWK +scald/GJRDS/SKLT +scale/JGZMBDSR/SKL +scaled/AU/SKLT +scaleless//SKLLS +scalene//SKLN +scaler/M/SKL +scales/A/SKLS +scaliness/MS/SKLNS +scaling/A/SKLN +scallion/MS/SKLN +scallop/GSMDR/SKLP +scalloper/M/SKLP +scalloping/M/SKLPN +scalp/GZRDMS/SKLP +scalpel/SM/SKLPL +scalper/M/SKLP +scalping/M/SKLPN +scaly/TPR/SKL +scam/SM/SKM +scammed//SKMT +scamming//SKMN +scamp/RDMGZS/SKMP +scamper/GD/SKMP +scampi/M/SKMP +Scan//SKN +scan/AS/SKN +scandal/GMDS/SKNTL +scandalize/GDS/SKNTLS +scandalized/U/SKNTLST +scandalmonger/SM/SKNTLMNK +scandalous/YP/SKNTLS +scandalousness/M/SKNTLSNS +Scandinavia/M/SKNTNF +Scandinavian/S/SKNTNFN +scandium/MS/SKNTM +scanned/A/SKNT +scanner/SM/SKN +scanning/A/SKNN +scansion/SM/SKNXN +scant/CDRSG/SKNT +scantest//SKNTST +scantily//SKNTL +scantiness/MS/SKNTNS +scantly//SKNTL +scantness/MS/SKNTNS +scanty/TPRS/SKNT +scape/M/SKP +scapegoat/SGDM/SKPKT +scapegrace/MS/SKPKRS +scapula/M/SKPL +scapulae//SKPL +scapular/S/SKPL +scar/DRMSG/SK +scarab/SM/SKRB +Scaramouch/M/SKRMX +Scarborough/M/SKBR +scarce/RTYP/SKS +scarceness/SM/SKSNS +scarcity/MS/SKST +scare/S/SKR +scarecrow/MS/SKRKR +scaremonger/SGM/SKRMNK +scaremongering/M/SKRMNKRN +scarer/M/SKR +scarf/SDGM/SKF +scarface//SKFS +Scarface/M/SKFS +scarification/M/SKRFKXN +scarify/DRSNGX/SKRF +scarily//SKRL +scariness/S/SKRNS +scarlatina/MS/SKLTN +Scarlatti/M/SKLT +Scarlet/M/SKLT +scarlet/MDSG/SKLT +Scarlett/M/SKLT +scarp/SDMG/SKP +scarred//SKRT +scarring//SKRN +scarves/M/SKFS +scary/PTR/SKR +scat/S/SKT +scathe/DG/SK@ +scathed/U/SK@T +scathing/Y/SK@N +scatological//SKTLKKL +scatology/SM/SKTLK +scatted//SKTT +scatter/DRJZSG/SKT +scatterbrain/MDS/SKTBRN +scatterer/M/SKTR +scattergun//SKTKN +scattering/YM/SKTRN +scatting//SKTN +scavenge/GDRSZ/SKFNK +scavenger/M/SKFNK +SCCS//SKS +scenario/SM/SNR +scenarist/MS/SNRST +scene/GMDS/SN +scenery/SM/SNR +scenic/S/SNK +scenically//SNKL +scent/GDMS/SNT +scented/U/SNTT +scentless//SNTLS +scents/C/SNTS +scent's/C/SNTS +scepter/DMSG/SPT +scepters/U/SPTS +sceptically//SPTKL +sch//SX +Schaefer/M/SXF +Schaeffer/M/SXF +Schafer/M/SXF +Schaffner/M/SXFN +Schantz/M/SXNTS +Schapiro/M/SXPR +Scheat/M/SKT +Schedar/M/SKT +schedule/ADSRG/SKTL +scheduled/U/SKTLT +scheduler/MS/SKTL +schedule's//SKTLS +Scheherazade/M/SKHRST +Scheherezade/M/SKHRST +Schelling/M/SKLN +schema/M/SKM +schemata//SKMT +schematic/S/SKMTK +schematically//SKMTKL +scheme/JSRDGMZ/SKM +schemer/M/SKM +schemta//SKMT +Schenectady/M/SKNKTT +scherzo/MS/SKS +Schick/M/SXK +Schiller/M/SXL +schilling/SM/SXLN +schism/SM/SXSM +schismatic/S/SXSMTK +schist/SM/SXST +schizo/S/SXS +schizoid/S/SXST +schizomycetes//SXSMSTS +schizophrenia/SM/SXSFRN +schizophrenic/S/SXSFRNK +schizophrenically//SXSFRNKL +schlemiel/MS/SXLML +schlep/S/SXLP +schlepped//SXLPT +schlepping//SXLPN +Schlesinger/M/SXLSN +Schliemann/M/SXLMN +Schlitz/M/SXLTS +schlock/SM/SXLK +schlocky/TR/SXLK +Schloss/M/SXLS +schmaltz/MS/SXMLTS +schmaltzy/TR/SXMLTS +Schmidt/M/SXMTT +Schmitt/M/SXMT +schmo/M/SXM +schmoes//SXMS +schmooze/GSD/SXMS +schmuck/MS/SXMK +Schnabel/M/SXNBL +schnapps/M/SXNPS +schnauzer/MS/SXNS +Schneider/M/SXNT +schnitzel/MS/SXNTSL +schnook/SM/SXNK +schnoz/S/SXNS +schnozzle/MS/SXNSL +Schoenberg/M/SKNBK +Schofield/M/SKFLT +scholar/SYM/SKL +scholarship/MS/SKLXP +scholastic/S/SKLSTK +scholastically//SKLSTKL +school/ZGMRDJS/SKL +schoolbag/SM/SKLBK +schoolbook/SM/SKLBK +schoolboy/MS/SKLB +schoolchild/M/SKLXLT +schoolchildren//SKLXLTRN +schooldays//SKLTS +schooled/U/SKLT +schoolfellow/S/SKLFL +schoolfriend//SKLFRNT +schoolgirl/MS/SKLKL +schoolgirlish//SKLKLX +schoolhouse/MS/SKLHS +schooling/M/SKLN +schoolmarm/MS/SKLMM +schoolmarmish//SKLMMX +schoolmaster/SGDM/SKLMST +schoolmate/MS/SKLMT +schoolmistress/MS/SKLMSTRS +schoolroom/SM/SKLRM +schoolteacher/MS/SKLTX +schoolwork/SM/SKLWK +schoolyard/SM/SKLYT +schooner/SM/SKN +Schopenhauer/M/SKPNH +Schottky/M/SKTK +Schrieffer/M/SXRF +Schrödinger/M/SXRTN +Schroeder/M/SXRT +Schroedinger/M/SXRTN +Schubert/M/SKBT +Schultz/M/SKLTS +Schulz/M/SKLS +Schumacher/M/SKMX +Schuman/M/SKMN +Schumann/M/SKMN +schuss/SDMG/SKS +schussboomer/S/SKSBM +Schuster/M/SKST +Schuyler/M/SKL +Schuylkill/M/SKLKL +schwa/SM/SXW +Schwab/M/SXWB +Schwartz/M/SXWTS +Schwartzkopf/M/SXWTSKPF +Schwarzenegger/M/SXWSNK +Schweitzer/M/SXWTS +Schweppes/M/SXWPS +Schwinger/M/SXWN +Schwinn/M/SXWN +sci//S +sciatic/S/STK +sciatica/SM/STK +science/FMS/SNS +scientific/U/SNTFK +scientifically/U/SNTFKL +scientist/SM/SNTST +Scientology/M/SNTLK +scimitar/SM/SMT +scintilla/MS/SNTL +scintillate/GNDSX/SNTLT +scintillation/M/SNTLXN +scintillator/SM/SNTLT +scion/SM/SN +Scipio/M/SP +scissor/SGD/SS +scleroses//SKLRSS +sclerosis/M/SKLRSS +sclerotic/S/SKLRTK +scoff/RDGZS/SKF +scoffer/M/SKF +scofflaw/MS/SKFL +scold/GSJRD/SKLT +scolder/M/SKLT +scolioses//SKLSS +scoliosis/M/SKLSS +scollop's//SKLPS +sconce/SDGM/SKNS +scone/SM/SKN +scoop/SRDMG/SKP +scooper/M/SKP +scoot/SRDGZ/SKT +scooter/M/SKT +scope/DSGM/SKP +Scopes/M/SKPS +scops//SKPS +scorbutic//SKBTK +scorch/ZGRSD/SKX +scorcher/M/SKX +scorching/Y/SKXN +score/ZMDSRJG/SKR +scoreboard/MS/SKRBT +scorecard/MS/SKRKT +scored/M/SKRT +scorekeeper/SM/SKRKP +scoreless//SKRLS +scoreline//SKRLN +scorn/SGZMRD/SKN +scorner/M/SKN +scornful/PY/SKNFL +scornfulness/M/SKNFLNS +Scorpio/SM/SKP +scorpion/SM/SKPN +Scorpius/M/SKPS +Scorsese/M/SKSS +Scot/MS/SKT +scotch/MSDG/SKX +Scotch/S/SKX +Scotchgard/M/SKXKT +Scotchman/M/SKXMN +Scotchmen//SKXMN +scotchs//SKXS +Scotchwoman//SKXWMN +Scotchwomen//SKXWMN +Scotia/M/SKX +Scotian/M/SKXN +Scotland/M/SKTLNT +Scotsman/M/SKTSMN +Scotsmen//SKTSMN +Scotswoman//SKTSWMN +Scotswomen//SKTSWMN +Scott/M/SKT +Scotti/M/SKT +Scottie/SM/SKT +Scottish//SKTX +Scottsdale/M/SKTSTL +Scotty's//SKTS +scoundrel/YMS/SKNTRL +scour/SRDGZ/SK +scourer/M/SKR +scourge/MGRSD/SKK +scourger/M/SKK +scouring/M/SKRN +scout/SRDMJG/SKT +scouter/M/SKT +scouting/M/SKTN +scoutmaster/SM/SKTMST +Scout's//SKTS +scow/DMGS/SK +scowl/SRDG/SKL +scowler/M/SKL +scrabble/DRSZG/SKRBL +Scrabble/SM/SKRBL +scrabbler/M/SKRBL +scrag/SM/SKRK +scragged//SKRKT +scragging//SKRKN +scraggly/TR/SKRKL +scraggy/TR/SKRK +scram/S/SKRM +scramble/UDSRG/SKRMBL +scrambler/MS/SKRMBL +scrambler's/U/SKRMBLS +scrammed//SKRMT +scramming//SKRMN +Scranton/M/SKRNTN +scrap/SGZJRDM/SKRP +scrapbook/SM/SKRPBK +scrape/S/SKRP +scraper/M/SKRP +scrapheap/SM/SKRFP +scrapped//SKRPT +scrapper/SM/SKRP +scrapping//SKRPN +scrappy/RT/SKRP +scrapyard/S/SKRPYT +scratch/JDRSZG/SKRX +scratched/U/SKRXT +scratcher/M/SKRX +scratches/M/SKRXS +scratchily//SKRXL +scratchiness/S/SKRXNS +scratchy/TRP/SKRX +scrawl/GRDS/SKRL +scrawler/M/SKRL +scrawly/RT/SKRL +scrawniness/MS/SKRNNS +scrawny/TRP/SKRN +scream/ZGSRD/SKRM +screamer/M/SKRM +screaming/Y/SKRMN +scree/DSM/SKR +screech/GMDRS/SKRX +screecher/M/SKRX +screechy/TR/SKRX +screed/MS/SKRT +screen/RDMJSG/SKRN +screened/U/SKRNT +screening/M/SKRNN +screenplay/MS/SKRNPL +screenwriter/MS/SKRNRT +screw/GUSD/SKR +screwball/SM/SKRBL +screwdriver/SM/SKRTRF +screwer/M/SKRW +screwiness/S/SKRWNS +screw's//SKRS +screwup//SKRWP +screwworm/MS/SKRWM +screwy/RTP/SKR +Scriabin/M/SKRBN +scribal//SKRBL +scribble/JZDRSG/SKRBL +scribbler/M/SKRBL +scribe/CDRSGIK/SKRB +scriber/MKIC/SKRB +scribe's//SKRBS +Scribner/MS/SKRBN +scrim/SM/SKRM +scrimmage/RSDMG/SKRMK +scrimmager/M/SKRMK +scrimp/DGS/SKRMP +scrimshaw/GSDM/SKRMX +scrip/SM/SKRP +Scripps/M/SKRPS +script/FGMDS/SKRPT +scripted/U/SKRPTT +scriptural/Y/SKRPTRL +scripture/MS/SKRPTR +Scripture/MS/SKRPTR +scriptwriter/SM/SKRPTRT +scriptwriting/M/SKRPTRTN +scriven/ZR/SKRFN +scrivener/M/SKRFN +scrod/M/SKRT +scrofula/MS/SKRFL +scrofulous//SKRFLS +scroll/GMDSB/SKRL +scrollbar/SM/SKRLB +Scrooge/MS/SKRK +scrooge/SDMG/SKRK +scrota//SKRT +scrotal//SKRTL +scrotum/M/SKRTM +scrounge/ZGDRS/SKRNK +scroungy/TR/SKRNK +scrub/S/SKRB +scrubbed//SKRBT +scrubber/MS/SKRB +scrubbing//SKRBN +scrubby/TR/SKRB +scruff/SM/SKRF +scruffily//SKRFL +scruffiness/S/SKRFNS +scruffy/PRT/SKRF +Scruggs/M/SKRKS +scrum/MS/SKRM +scrummage/MG/SKRMK +scrumptious/Y/SKRMPXS +scrunch/DSG/SKRNX +scrunchy/S/SKRNX +scruple/SDMG/SKRPL +scrupulosity/SM/SKRPLST +scrupulous/UPY/SKRPLS +scrupulousness/US/SKRPLSNS +scrupulousness's//SKRPLSNSS +scrutable/I/SKRTBL +scrutinize/RSDGZ/SKRTNS +scrutinized/U/SKRTNST +scrutinizer/M/SKRTNS +scrutinizing/UY/SKRTNSN +scrutinizingly/S/SKRTNSNL +scrutiny/MS/SKRTN +SCSI//SKS +scuba/SDMG/SKB +Scud/M/SKT +scud/S/SKT +scudded//SKTT +scudding//SKTN +scuff/GSD/SKF +scuffle/SDG/SKFL +scull/SRDMGZ/SKL +sculler/M/SKL +scullery/MS/SKLR +Sculley/M/SKL +scullion/MS/SKLN +sculpt/SDG/SKLPT +sculptor/MS/SKLPT +sculptress/MS/SKLPTRS +sculptural/Y/SKLPTRL +sculpture/SDGM/SKLPTR +scum/MS/SKM +scumbag/S/SKMBK +scummed//SKMT +scumming//SKMN +scummy/TR/SKM +scupper/SDMG/SKP +scurf/MS/SKF +scurfy/TR/SKF +scurrility/MS/SKRLT +scurrilous/PY/SKRLS +scurrilousness/MS/SKRLSNS +scurry/GJSD/SKR +scurvily//SKFL +scurviness/M/SKFNS +scurvy/SRTP/SKF +scutcheon/SM/SKXN +scuttle/MGSD/SKTL +scuttlebutt/MS/SKTLBT +scuzzy/RT/SKS +Scylla/M/SL +scythe/SDGM/S@ +Scythia/M/S@ +SD//ST +SDI//ST +SE//S +Se/H/S +sea/MYS/S +seabed/S/SBT +seabird/S/SBT +seaboard/MS/SBT +Seaborg/M/SBK +seaborne//SBN +Seabrook/M/SBRK +seacoast/MS/SKST +seafare/JRZG/SFR +seafarer/M/SFR +seafood/MS/SFT +seafront/MS/SFRNT +Seagate/M/SKT +seagoing//SKN +Seagram/M/SKRM +seagull/S/SKL +seahorse/S/SHS +seal/MDRSGZ/SL +sealant/MS/SLNT +sealed/AU/SLT +sealer/M/SL +seals/UA/SLS +sealskin/SM/SLSKN +seam/MNDRGS/SM +seamail//SML +seaman/YM/SMN +seamanship/SM/SMNXP +seamer/M/SM +seaminess/M/SMNS +seamless/PY/SMLS +seamlessness/M/SMLSNS +seams/I/SMS +seamstress/MS/SMSTRS +Seamus/M/SMS +seamy/TRP/SM +Sean/M/SN +Seana/M/SN +séance/SM/SNS +seaplane/SM/SPLN +seaport/SM/SPT +seaquake/M/SKK +Seaquarium/M/SKRM +sear/DRSJGT/S +search/RSDAGZ/SX +searcher/AM/SX +searching/YS/SXN +searchlight/SM/SXLT +searing/Y/SRN +Sears/M/SS +seascape/SM/SSKP +seashell/MS/SXL +seashore/SM/SXR +seasick/P/SSK +seasickness/SM/SSKNS +seaside/SM/SST +season/JRDYMBZSG/SSN +seasonable/UP/SSNBL +seasonableness/M/SSNBLNS +seasonably/U/SSNBL +seasonal/Y/SSNL +seasonality//SSNLT +seasoned/U/SSNT +seasoner/M/SSN +seasoning/M/SSNN +seat/UDSG/ST +seatbelt//STBLT +seated/A/STT +seater/M/ST +seating/SM/STN +SEATO//ST +seat's//STS +Seattle/M/STL +seawall/S/SWL +seaward/S/SWT +seawater/S/SWT +seaway/MS/SW +seaweed/SM/SWT +seaworthiness/MU/SW@NS +seaworthinesses//SW@NSS +seaworthy/TRP/SW@ +sebaceous//SBSS +Sebastian/M/SBSXN +Sebastiano/M/SBSXN +Sebastien/M/SBSTN +seborrhea/SM/SBRH +SEC//SK +sec/S/SK +secant/SM/SKNT +secede/GRSD/SST +secession/MS/SSXN +secessionist/MS/SSXNST +seclude/GSD/SKLT +secluded/YP/SKLTT +secludedness/M/SKLTTNS +seclusion/SM/SKLXN +seclusive//SKLSF +Seconal//SKNL +second/RDYZGSL/SKNT +secondarily//SKNTRL +secondary/PS/SKNTR +seconder/M/SKNT +secondhand//SKNTHNT +secrecy/MS/SKRS +secret/TVGRDYS/SKRT +secretarial//SKRTRL +secretariat/MS/SKRTRT +secretary/SM/SKRTR +secretaryship/MS/SKRTRXP +secrete/XNS/SKRT +secretion/M/SKRXN +secretive/PY/SKRTF +secretiveness/S/SKRTFNS +secretory//SKRTR +sect/ISM/SKT +sectarian/S/SKTRN +sectarianism/MS/SKTRNSM +sectary/MS/SKTR +section/ASEM/SKXN +sectional/SY/SKXNL +sectionalism/MS/SKXNLSM +sectionalized//SKXNLST +sectioned//SKXNT +sectioning//SKXNN +sector/EMS/SKT +sectoral//SKTRL +sectored//SKTRT +sectoring//SKTRN +sects/E/SKTS +secular/SY/SKL +secularism/MS/SKLRSM +secularist/MS/SKLRST +secularity/M/SKLRT +secularization/MS/SKLRSXN +secularize/GSD/SKLRS +secularized/U/SKLRST +secure/PGTYRSDJ/SKR +secured/U/SKRT +securely/I/SKRL +security/MSI/SKRT +sec'y//SK +secy//SS +sedan/SM/STN +sedate/PXVNGTYRSD/STT +sedateness/SM/STTNS +sedation/M/STXN +sedative/S/STTF +sedentary//STNTR +Seder/SM/ST +sedge/SM/SK +Sedgwick/M/STKWK +sedgy/RT/SK +sediment/SGDM/STMNT +sedimentary//STMNTR +sedimentation/SM/STMNTXN +sedition/SM/STXN +seditious/PY/STXS +seditiousness/M/STXSNS +seduce/RSDGZ/STS +seducer/M/STS +seduction/MS/STKXN +seductive/YP/STKTF +seductiveness/MS/STKTFNS +seductress/SM/STKTRS +sedulous/Y/STLS +See/M/S +see/U/S +Seebeck/M/SBK +seed/ADSG/ST +seedbed/MS/STBT +seedcase/SM/STKS +seeded/U/STT +seeder/MS/ST +seediness/MS/STNS +seeding/S/STN +seedless//STLS +seedling/SM/STLN +seedpod/S/STPT +seed's//STS +seedy/TPR/ST +seeing/U/SN +seeings//SNS +seeing's//SNS +seek/GZSR/SK +seeker/M/SK +seeking/Y/SKN +Seeley/M/SL +seem/GJSYD/SM +seeming/Y/SMN +seemliness/US/SMLNS +seemliness's//SMLNSS +seemly/UTPR/SML +seen/U/SN +seep/GSD/SP +seepage/MS/SPK +seer/SM/S +seersucker/MS/SSK +sees//SS +seesaw/DMSG/SS +seethe/SDGJ/S@ +segment/SGDM/SKMNT +segmental/Y/SKMNTL +segmentation/SM/SKMNTXN +segmented/U/SKMNTT +Segovia/M/SKF +Segre/M/SKR +segregant//SKRKNT +segregate/XCNGSD/SKRKT +segregated/U/SKRKTT +segregation/CM/SKRKXN +segregationist/SM/SKRKXNST +segregative//SKRKTF +segue/DS/SK +segueing//SKN +Segundo/M/SKNT +Seidel/M/STL +seigneur/MS/SKN +seignior/SM/SKN +Seiko/M/SK +seine/GZMDSR/SN +Seine/M/SN +seiner/M/SN +Seinfeld/M/SNFLT +seismic//SSMK +seismically//SSMKL +seismograph/ZMR/SSMKRF +seismographer/M/SSMKRF +seismographic//SSMKRFK +seismographs//SSMKRFS +seismography/SM/SSMKRF +seismologic//SSMLKK +seismological//SSMLKKL +seismologist/MS/SSMLKST +seismology/SM/SSMLK +seismometer/S/SSMMT +seize/BJGZDSR/SS +seizer/M/SS +seizin/MS/SSN +seizing/M/SSN +seizor/MS/SS +seizure/MS/SSR +Seka/M/SK +Sela/M/SL +Selassie/M/SLS +Selby/M/SLB +seldom//SLTM +select/PDSVGB/SLKT +selected/UAC/SLKTT +selection/MS/SLKXN +selectional//SLKXNL +selective/YP/SLKTF +selectiveness/M/SLKTFNS +selectivity/MS/SLKTFT +selectman/M/SLKTMN +selectmen//SLKTMN +selectness/SM/SLKTNS +selector/SM/SLKT +Selectric/M/SLKTRK +selects/A/SLKTS +Selena/M/SLN +selenate/M/SLNT +Selene/M/SLN +selenite/M/SLNT +selenium/MS/SLNM +selenographer/SM/SLNKRF +selenography/MS/SLNKRF +Selestina/M/SLSTN +Seleucid/M/SLST +Seleucus/M/SLKS +self/GPDMS/SLF +selfish/PUY/SLFX +selfishness/SU/SLFXNS +selfless/YP/SLFLS +selflessness/MS/SLFLSNS +selfness/M/SLFNS +Selfridge/M/SLFRK +selfsame/P/SLFSM +selfsameness/M/SLFSMNS +Selia/M/SL +Selie/M/SL +Selig/M/SLK +Selim/M/SLM +Selina/M/SLN +Selinda/M/SLNT +Seline/M/SLN +Seljuk/M/SLKK +Selkirk/M/SLKK +sell/AZGSR/SL +Sella/M/SL +Selle/ZM/SL +seller/AM/SL +Sellers/M/SLS +sellout/MS/SLT +Selma/M/SLM +seltzer/S/SLTS +selvage/MGSD/SLFK +selves/M/SLFS +Selznick/M/SLSNK +semantic/S/SMNTK +semantical/Y/SMNTKL +semanticist/SM/SMNTSST +semantics/M/SMNTKS +semaphore/GMSD/SMFR +Semarang/M/SMRNK +semblance/ASME/SMBLNS +semen/SM/SMN +semester/SM/SMST +semi/SM/SM +semiannual/Y/SMNL +semiarid//SMRT +semiautomated//SMTMTT +semiautomatic/S/SMTMTK +semicircle/SM/SMSKL +semicircular//SMSKL +semicolon/MS/SMKLN +semiconductor/SM/SMKNTKT +semiconscious//SMKNSS +semidefinite//SMTFNT +semidetached//SMTTXT +semidrying/M/SMTRYN +semifinal/MS/SMFNL +semifinalist/MS/SMFNLST +semilogarithmic//SMLKR@MK +semimonthly/S/SMMN@L +seminal/Y/SMNL +seminar/SM/SMN +seminarian/MS/SMNRN +seminary/MS/SMNR +Seminole/SM/SMNL +semiofficial//SMFXL +semiotic/S/SMTK +semioticians//SMTXNS +semiotics/M/SMTKS +semipermanent/Y/SMPMNNT +semipermeable//SMPMBL +semiprecious//SMPRSS +semiprivate//SMPRFT +semiprofessional/YS/SMPRFXNL +semipublic//SMPBLK +semiquantitative/Y/SMKNTTTF +Semiramis/M/SMRMS +semiretired//SMRTRT +semisecret//SMSKRT +semiskilled//SMSKLT +semisolid/S/SMSLT +semistructured//SMSTRKTRT +semisweet//SMSWT +Semite/SM/SMT +Semitic/MS/SMTK +semitic/S/SMTK +semitone/SM/SMTN +semitrailer/SM/SMTRL +semitrance//SMTRNS +semitransparent//SMTRNSPRNT +semitropical//SMTRPKL +semivowel/MS/SMFWL +semiweekly/S/SMWKL +semiyearly//SMYL +semolina/SM/SMLN +sempiternal//SMPTNL +sempstress/SM/SMPSTRS +Semtex//SMTKS +sen//SN +Sen//SN +Sena/M/SN +senate/MS/SNT +Senate/MS/SNT +senator/MS/SNT +senatorial//SNTRL +send/SRGZ/SNT +Sendai/M/SNT +sender/M/SNT +sends/A/SNTS +Seneca/MS/SNK +Senegal/M/SNKL +Senegalese//SNKLS +senescence/SM/SNSNS +senescent//SNSNT +senile/SY/SNL +senility/MS/SNLT +senior/MS/SN +Senior/S/SN +seniority/SM/SNRT +senna/MS/SN +Sennacherib/M/SNXRB +Sennett/M/SNT +senor/MS/SN +Señora/M/SR +senora/S/SNR +senorita/S/SNRT +sens/DSG/SNS +sensate/YNX/SNST +sensately/I/SNSTL +sensation/M/SNSXN +sensational/Y/SNSXNL +sensationalism/MS/SNSXNLSM +sensationalist/S/SNSXNLST +sensationalize/GSD/SNSXNLS +sense/M/SNS +senseless/PY/SNSLS +senselessness/SM/SNSLSNS +sensibility/ISM/SNSBLT +sensible/PRST/SNSBL +sensibleness/MS/SNSBLNS +sensibly/I/SNSBL +sensitive/YIP/SNSTF +sensitiveness/MS/SNSTFNS +sensitiveness's/I/SNSTFNSS +sensitives//SNSTFS +sensitivity/ISM/SNSTFT +sensitization/CSM/SNSTSXN +sensitize/SDCG/SNSTS +sensitized/U/SNSTST +sensitizers//SNSTSS +sensor/MS/SNS +sensory//SNSR +sensual/YF/SNSL +sensualist/MS/SNSLST +sensuality/MS/SNSLT +sensuous/PY/SNSS +sensuousness/S/SNSSNS +Sensurround/M/SNSRNT +sent/UFEA/SNT +sentence/SDMG/SNTNS +sentential/Y/SNTNXL +sententious/Y/SNTNXS +sentience/ISM/SNTNS +sentient/YS/SNTNT +sentiment/MS/SNTMNT +sentimental/Y/SNTMNTL +sentimentalism/SM/SNTMNTLSM +sentimentalist/SM/SNTMNTLST +sentimentality/SM/SNTMNTLT +sentimentalization/SM/SNTMNTLSXN +sentimentalize/RSDZG/SNTMNTLS +sentimentalizes/U/SNTMNTLSS +sentinel/GDMS/SNTNL +sentry/SM/SNTR +Seoul/M/SL +sepal/SM/SPL +separability/MSI/SPRBLT +separable/PI/SPRBL +separableness/MI/SPRBLNS +separably/I/SPRBL +separate/YNGVDSXP/SPRT +separateness/MS/SPRTNS +separates/M/SPRTS +separation/M/SPRXN +separatism/SM/SPRTSM +separatist/SM/SPRTST +separator/SM/SPRT +Sephardi/M/SFT +Sephira/M/SFR +sepia/MS/SP +Sepoy/M/SP +sepses//SPSS +sepsis/M/SPSS +sept/M/SPT +Sept/M/SPT +septa/M/SPT +septate/N/SPTT +September/MS/SPTMB +septennial/Y/SPTNL +septet/MS/SPTT +septic/S/SPTK +septicemia/SM/SPTSM +septicemic//SPTSMK +septillion/M/SPTLN +septuagenarian/MS/SPTKNRN +Septuagint/MS/SPTKNT +septum/M/SPTM +sepulcher/MGSD/SPLX +sepulchers/UA/SPLXS +sepulchral/Y/SPLXRL +seq//SK +sequel/MS/SKL +sequence/DRSJZMG/SKNS +sequenced/A/SKNST +sequencer/M/SKNS +sequences/F/SKNSS +sequence's/F/SKNSS +sequent/F/SKNT +sequential/YF/SKNXL +sequentiality/FM/SKNXLT +sequentialize/DSG/SKNXLS +sequester/SDG/SKST +sequestrate/XGNDS/SKSTRT +sequestration/M/SKSTRXN +sequin/SDMG/SKN +Sequoia/M/SK +sequoia/MS/SK +Sequoya/M/SKY +Serafin/M/SRFN +seraglio/SM/SRKL +serape/S/SRP +seraph/M/SRF +seraphic//SRFK +seraphically//SRFKL +seraphim's//SRFMS +seraphs//SRFS +sera's//SRS +Serb/MS/SB +Serbia/M/SB +Serbian/S/SBN +Serbo/M/SB +sere/TGDRS/SR +Serena/M/SRN +serenade/MGDRS/SRNT +serenader/M/SRNT +serendipitous/Y/SRNTPTS +serendipity/MS/SRNTPT +serene/GTYRSDP/SRN +Serene/M/SRN +sereneness/SM/SRNNS +Serengeti/M/SRNKT +serenity/MS/SRNT +serf/MS/SF +serfdom/MS/SFTM +serge/DSGM/SK +Serge/M/SK +Sergeant/M/SKNT +sergeant/SM/SKNT +Sergei/M/SK +Sergent/M/SKNT +Sergio/M/SK +serial/MYS/SRL +serialization/MS/SRLSXN +serialize/GSD/SRLS +series/M/SRS +serif/SMD/SRF +serigraph/M/SRKRF +serigraphs//SRKRFS +serious/PY/SRS +seriousness/SM/SRSNS +sermon/SGDM/SMN +sermonize/GSD/SMNS +serological/Y/SRLKKL +serology/MS/SRLK +serons//SRNS +serous//SRS +Serpens/M/SPNS +serpent/GSDM/SPNT +serpentine/GYS/SPNTN +Serra/M/SR +Serrano/M/SRN +serrate/GNXSD/SRT +serration/M/SRXN +serried//SRT +serum/MS/SRM +servant/SDMG/SFNT +serve/AGCFDSR/SF +served/U/SFT +server/MCF/SF +servers//SFS +service/MGSRD/SFS +serviceability/SM/SFSBLT +serviceable/P/SFSBL +serviceableness/M/SFSBLNS +serviced/U/SFST +serviceman/M/SFSMN +servicemen//SFSMN +services/E/SFSS +service's/E/SFSS +servicewoman//SFSWMN +servicewomen//SFSWMN +serviette/MS/SFT +servile/U/SFL +servilely//SFLL +servileness/M/SFLNS +serviles//SFLS +servility/SM/SFLT +serving/SM/SFN +servitor/SM/SFT +servitude/MS/SFTT +servo/S/SF +servomechanism/MS/SFMXNSM +servomotor/MS/SFMT +sesame/MS/SSM +sesquicentennial/S/SSKSNTNL +sessile//SSL +session/SM/SXN +Set/M/ST +set/SIA/ST +setback/S/STBK +Seth/M/S@ +Seton/M/STN +set's//STS +setscrew/SM/STSKR +sett/BJGZSMR/ST +settable/A/STBL +settee/MS/ST +setter/M/ST +setting/AS/STN +setting's//STNS +settle/AUDSG/STL +settlement/ASM/STLMNT +settler/MS/STL +settling/S/STLN +setup/MS/STP +Seumas/M/SMS +Seurat/M/SRT +Seuss/M/SS +Sevastopol/M/SFSTPL +seven/SMH/SFN +sevenfold//SFNFLT +sevenpence//SFNPNS +seventeen/HMS/SFNTN +seventeenths//SFNTN@S +sevenths//SFN@S +seventieths//SFNT@S +seventy/MSH/SFNT +sever/SGTRD/SF +several/YS/SFRL +severalfold//SFRLFLT +severalty/M/SFRLT +severance/SM/SFRNS +severe/PY/SFR +severed/E/SFRT +severeness/SM/SFRNS +severing/E/SFRN +severity/MS/SFRT +Severn/M/SFN +severs/E/SFS +Severus/M/SFRS +Seville/M/SFL +sew/SAGD/S +sewage/MS/SWK +Seward/M/SWT +sewer/GSMD/SW +sewerage/SM/SWRK +sewing/SM/SWN +sewn//SN +sex/GMDS/SKS +sexagenarian/MS/SKSKNRN +sexily//SKSL +sexiness/MS/SKSNS +sexism/SM/SKSSM +sexist/SM/SKSST +sexless//SKSLS +sexologist/SM/SKSLKST +sexology/MS/SKSLK +sexpot/SM/SKSPT +Sextans/M/SKSTNS +sextant/SM/SKSTNT +sextet/SM/SKSTT +sextillion/M/SKSTLN +Sexton/M/SKSTN +sexton/MS/SKSTN +sextuple/MDG/SKSTPL +sextuplet/MS/SKSTPLT +sexual/Y/SKSL +sexuality/MS/SKSLT +sexualized//SKSLST +sexy/RTP/SKS +Seychelles//SXLS +Seyfert//SFT +Seymour/M/SM +sf//SF +SF//SF +Sgt//SKT +sh/DRS/X +shabbily//XBL +shabbiness/SM/XBNS +shabby/RTP/XB +shack/GMDS/XK +shackle/UGDS/XKL +shackler/M/XKL +shackle's//XKLS +Shackleton/M/XKLTN +shad/DRJGSM/XT +shade/SM/XT +shaded/U/XTT +shadeless//XTLS +shadily//XTL +shadiness/MS/XTNS +shading/M/XTN +shadow/GSDRM/XT +Shadow/M/XT +shadowbox/SDG/XTBKS +shadower/M/XTW +shadowiness/M/XTWNS +shadowy/TRP/XT +shady/TRP/XT +Shae/M/X +Shafer/M/XF +Shaffer/M/XF +shaft/SDMG/XFT +shafting/M/XFTN +shag/MS/XK +shagged//XKT +shagginess/SM/XKNS +shagging//XKN +shaggy/TPR/XK +shah/M/X +shahs//XS +Shaina/M/XN +Shaine/M/XN +shakable/U/XKBL +shakably/U/XKBL +shake/SRGZB/XK +shakeable//XKBL +shakedown/S/XKTN +shaken/U/XKN +shakeout/SM/XKT +shaker/M/XK +Shaker/S/XK +Shakespeare/M/XKSPR +Shakespearean/S/XKSPRN +Shakespearian//XKSPRN +shakeup/S/XKP +shakily//XKL +shakiness/S/XKNS +shaking/M/XKN +shaky/TPR/XK +shale/SM/XL +shall//XL +shallot/SM/XLT +shallow/STPGDRY/XL +shallowness/SM/XLNS +Shalna/M/XLN +Shalne/M/XLN +shalom//XLM +Shalom/M/XLM +shalt//XLT +sham/MDSG/XM +shaman/SM/XMN +shamanic//XMNK +shamble/DSG/XMBL +shambles/M/XMBLS +shame/SM/XM +shamefaced/Y/XMFST +shameful/YP/XMFL +shamefulness/S/XMFLNS +shameless/PY/XMLS +shamelessness/SM/XMLSNS +shammed//XMT +shammer//XM +shamming//XMN +shammy's//XMS +shampoo/DRSMZG/XMP +shampooer/M/XMP +shamrock/SM/XMRK +Shamus/M/XMS +Shana/M/XN +Shanan/M/XNN +Shanda/M/XNT +Shandee/M/XNT +Shandeigh/M/XNT +Shandie/M/XNT +Shandra/M/XNTR +shandy/M/XNT +Shandy/M/XNT +Shane/M/XN +Shanghai/GM/XNK +shanghai/SDG/XNK +Shanghaiing/M/XNKN +Shani/M/XN +Shanie/M/XN +shank/SMDG/XNK +Shanna/M/XN +Shannah/M/XN +Shannan/M/XNN +Shannen/M/XNN +Shannon/M/XNN +Shanon/M/XNN +shan't//XNT +Shanta/M/XNT +Shantee/M/XNT +shantis//XNTS +Shantung/M/XNTNK +shantung/MS/XNTNK +shanty/SM/XNT +shantytown/SM/XNTTN +shape/AGDSR/XP +shaped/U/XPT +shapeless/PY/XPLS +shapelessness/SM/XPLSNS +shapeliness/S/XPLNS +shapely/RPT/XPL +shaper/S/XP +shape's//XPS +Shapiro/M/XPR +Shara/M/XR +sharable/U/XRBL +Sharai/M/XR +shard/SM/XT +share/DSRGZMB/XR +shareable//XRBL +sharecrop/S/XRKRP +sharecropped//XRKRPT +sharecropper/MS/XRKRP +sharecropping//XRKRPN +shared/U/XRT +shareholder/MS/XRHLT +shareholding/S/XRHLTN +sharer/M/XR +shareware/S/XRWR +Shari/M/XR +Shari'a//XR +Sharia/M/XR +sharia/SM/XR +Sharity/M/XRT +shark/SGMD/XK +sharkskin/SM/XKSKN +Sharl/M/XL +Sharla/M/XL +Sharleen/M/XLN +Sharlene/M/XLN +Sharline/M/XLN +Sharon/M/XRN +Sharona/M/XRN +Sharp/M/XP +sharp/SGTZXPYRDN/XP +Sharpe/M/XP +sharpen/ASGD/XPN +sharpened/U/XPNT +sharpener/S/XPN +sharper/M/XP +sharpie/SM/XP +sharpness/MS/XPNS +sharpshoot/JRGZ/XPXT +sharpshooter/M/XPXT +sharpshooting/M/XPXTN +sharpy's//XPS +Sharron/M/XRN +Sharyl/M/XRL +Shasta/M/XST +shat//XT +shatter/DSG/XT +shattering/Y/XTRN +shatterproof//XTPRF +Shaughn/M/XN +Shaula/M/XL +Shaun/M/XN +Shauna/M/XN +shave/DSRJGZ/XF +shaved/U/XFT +shaver/M/XF +Shavian//XFN +shaving/M/XFN +Shavuot/M/XFT +shaw/M/X +Shaw/M/X +Shawano/M/XWN +shawl/SDMG/XL +Shawn/M/XN +Shawna/M/XN +Shawnee/SM/XN +Shay/M/X +shay/MS/X +Shayla/M/XL +Shaylah/M/XL +Shaylyn/M/XLN +Shaylynn/M/XLN +Shayna/M/XN +Shayne/M/XN +Shcharansky/M/XXRNSK +she/M/X +Shea/M/X +sheaf/MDGS/XF +shear/RDGZS/X +shearer/M/XR +sheath/GJMDRS/X@ +sheathe/UGSD/X@ +sheather/M/X@ +sheathing/M/X@N +sheaths//X@S +sheave/SDG/XF +sheaves/M/XFS +Sheba/M/XB +shebang/MS/XBNK +Shebeli/M/XBL +Sheboygan/M/XBKN +she'd//XT +shed/U/XT +shedding//XTN +Shedir/M/XT +sheds//XTS +shed's//XTS +Sheela/M/XL +Sheelagh/M/XL +Sheelah/M/XL +sheen/MDGS/XN +Sheena/M/XN +sheeny/TRSM/XN +sheep/M/XP +sheepdog/SM/XPTK +sheepfold/MS/XPFLT +sheepherder/MS/XFT +sheepish/YP/XPX +sheepishness/SM/XPXNS +sheepskin/SM/XPSKN +sheer/PGTYRDS/X +Sheeree/M/XR +sheerness/S/XNS +sheet/RDMJSG/XT +sheeting/M/XTN +sheetlike//XTLK +Sheetrock//XTRK +Sheff/M/XF +Sheffie/M/XF +Sheffield/RMZ/XFLT +Sheffielder/M/XFLT +Sheffy/M/XF +sheik/SM/XK +sheikdom/SM/XKTM +sheikh's//XKHS +Sheila/M/XL +Sheilah/M/XL +shekel/MS/XKL +Shel/MY/XL +Shela/M/XL +Shelagh/M/XL +Shelba/M/XLB +Shelbi/M/XLB +Shelby/M/XLB +Shelden/M/XLTN +Sheldon/M/XLTN +shelf/MDGS/XLF +Shelia/M/XL +she'll//XL +Shell/M/XL +shell/RDMGS/XL +shellac/S/XLK +shellacked//XLKT +shellacking/MS/XLKN +shelled/U/XLT +Shelley/M/XL +shellfire/SM/XLFR +shellfish/SM/XLFX +Shelli/M/XL +Shellie/M/XL +Shelly/M/XL +shelter/DRMGS/XLT +sheltered/U/XLTRT +shelterer/M/XLTR +Shelton/M/XLTN +shelve/JRSDG/XLF +shelver/M/XLF +shelves/M/XLFS +shelving/M/XLFN +Shem/M/XM +Shena/M/XN +Shenandoah/M/XNNT +shenanigan/SM/XNNKN +Shenyang/M/XNYNK +Sheol/M/XL +Shep/M/XP +Shepard/M/XPT +shepherd/DMSG/XFT +Shepherd/M/XFT +shepherdess/S/XFTS +Sheppard/M/XPT +Shepperd/M/XPT +Sher/M/X +Sheratan/M/XRTN +Sheraton/M/XRTN +sherbet/MS/XBT +sherd's//XTS +Sheree/M/XR +Sheri/M/XR +Sheridan/M/XRTN +Sherie/M/XR +sheriff/SM/XRF +Sherill/M/XRL +Sherilyn/M/XRLN +Sherline/M/XLN +sherlock/M/XLK +Sherlock/M/XLK +Sherlocke/M/XLK +Sherm/M/XM +Sherman/M/XMN +Shermie/M/XM +Shermy/M/XM +Sherpa/SM/XP +Sherri/M/XR +Sherrie/M/XR +Sherry/M/XR +sherry/MS/XR +Sherwin/M/XWN +Sherwood/M/XWT +Sherwynd/M/XNT +Sherye/M/XRY +Sheryl/M/XRL +Shetland/S/XTLNT +Shevardnadze/M/XFTNTS +shew/GSD/X +shewn//XN +shh//XH +shiatsu/S/XTS +shibboleth/M/XBL@ +shibboleths//XBL@S +shield/MDRSG/XLT +shielded/U/XLTT +shielder/M/XLT +Shields/M/XLTS +shift/RDGZS/XFT +shiftily//XFTL +shiftiness/SM/XFTNS +shiftless/PY/XFTLS +shiftlessness/S/XFTLSNS +shifty/TRP/XFT +Shi'ite//XT +Shiite/SM/XT +Shijiazhuang//XKSHNK +Shikoku/M/XKK +shill/DJSG/XL +shillelagh/M/XLL +shillelaghs//XLLS +shilling/M/XLN +Shillong/M/XLNK +Shiloh/M/XL +shim/SM/XM +shimmed//XMT +shimmer/DGS/XM +shimmery//XMR +shimming//XMN +shimmy/DSMG/XM +shin/SGZDRM/XN +Shina/M/XN +shinbone/SM/XNBN +shindig/MS/XNTK +shine/S/XN +shiner/M/XN +shingle/MDRSG/XNL +shingler/M/XNL +shinguard//XNT +shininess/MS/XNNS +shining/Y/XNN +shinned//XNT +shinning//XNN +shinny/GDSM/XN +shinsplints//XNSPLNTS +Shinto/MS/XNT +Shintoism/S/XNTSM +Shintoist/MS/XNTST +shiny/PRT/XN +ship/SLA/XP +shipboard/MS/XPBT +shipborne//XPBN +shipbuild/RGZJ/XPBLT +shipbuilder/M/XPBLT +shipload/SM/XPLT +shipman/M/XPMN +shipmate/SM/XPMT +shipmen//XPMN +shipment/AMS/XPMNT +shipowner/MS/XPN +shippable//XPBL +shipped/A/XPT +shipper/SM/XP +shipping/MS/XPN +ship's//XPS +shipshape//XPXP +shipwreck/GSMD/XPRK +shipwright/MS/XPRT +shipyard/MS/XPYT +Shir/M/X +Shiraz/M/XRS +shire/MS/XR +shirk/RDGZS/XK +shirker/M/XK +Shirl/M/XL +Shirlee/M/XL +Shirleen/M/XLN +Shirlene/M/XLN +Shirley/M/XL +Shirline/M/XLN +shirr/GJDS/XR +shirt/JDMSG/XT +shirtfront/S/XTFRNT +shirting/M/XTN +shirtless//XTLS +shirtmake/R/XTMK +shirtmaker/M/XTMK +shirtsleeve/MS/XTSLF +shirttail/S/XTL +shirtwaist/SM/XTWST +shit/S/XT +shitting//XTN +shitty/RT/XT +shiv/SZRM/XF +Shiva/M/XF +shiver/GDR/XF +shiverer/M/XFR +shivery//XFR +shivved//XFFT +shivving//XFFN +shlemiel's//XLMLS +Shmuel/M/XML +shoal/SRDMGT/XL +shoat/SM/XT +shock/SGZRD/XK +shocker/M/XK +shocking/Y/XKN +Shockley/M/XKL +shockproof//XKPRF +shod/U/XT +shoddily//XTL +shoddiness/SM/XTNS +shoddy/RSTP/XT +shoe/MS/X +shoehorn/GSMD/XHN +shoeing//XN +shoelace/MS/XLS +shoemake/RZ/XMK +shoemaker/M/XMK +shoer's//XS +shoeshine/MS/XXN +shoestring/MS/XSTRN +shoetree/MS/XTR +shogun/MS/XKN +shogunate/SM/XKNT +Shoji/M/XK +Sholom/M/XLM +shone//XN +shoo/DSG/X +shoofly//XFL +shook/SM/XK +shoot/SJRGZ/XT +shooter/M/XT +shootout/MS/XTT +shop/MS/XP +shopkeep/RGZ/XPKP +shopkeeper/M/XPKP +shoplift/SRDGZ/XPLFT +shoplifter/M/XPLFT +shoplifting/M/XPLFTN +shoppe/RSDGZJ/XP +shopped/M/XPT +shopper/M/XP +shopping/M/XPN +shoptalk/SM/XPTLK +shopworn//XPWN +shore/DSRGMJ/XR +shorebird/S/XRBT +shoreline/SM/XRLN +Shorewood/M/XRWT +shoring/M/XRN +Short/M/XT +short/SGTXYRDNP/XT +shortage/MS/XTK +shortbread/MS/XTBRT +shortcake/SM/XTKK +shortchange/DSG/XXNK +shortcoming/MS/XTKMN +shortcrust//XTKRST +shortcut/MS/XTKT +shortcutting//XTKTN +shorten/RDGJ/XTN +shortener/M/XTN +shortening/M/XTNN +shortfall/SM/XTFL +shorthand/DMS/X@NT +Shorthorn/M/X@N +shorthorn/MS/X@N +shortie's//XTS +shortish//XTX +shortlist/GD/XTLST +shortness/MS/XTNS +shortsighted/YP/XTSTT +shortsightedness/S/XTSTTNS +shortstop/MS/XTSTP +shortwave/SM/XTWF +shorty/SM/XT +Shoshana/M/XXN +Shoshanna/M/XXN +Shoshone/SM/XXN +Shostakovitch/M/XSTKFX +shot/MS/XT +shotgun/SM/XTKN +shotgunned//XTKNT +shotgunner//XTKN +shotgunning//XTKNN +shotted//XTT +shotting//XTN +should/TZR/XLT +shoulder/GMD/XLT +shouldn't//XLTNT +shout/SGZRDM/XT +shove/DSRG/XF +shovel/MDRSZG/XFL +shoveler/M/XFL +shovelful/MS/XFLFL +shover/M/XF +show/GDRZJS/X +showbiz//XBS +showbizzes//XBSS +showboat/SGDM/XBT +showcase/MGSD/XKS +showdown/MS/XTN +shower/GDM/XW +showery/TR/XWR +showgirl/SM/XKL +showily//XWL +showiness/MS/XWNS +showing/M/XWN +showman/M/XMN +showmanship/SM/XMNXP +showmen//XMN +shown//XN +showoff/S/XWF +showpiece/SM/XPS +showplace/SM/XPLS +showroom/MS/XRM +showy/RTP/X +shpt//XPT +shrank//XRNK +shrapnel/SM/XRPNL +shred/MS/XRT +shredded//XRTT +shredder/MS/XRT +shredding//XRTN +Shreveport/M/XRFPT +shrew/GSMD/XR +shrewd/RYTP/XRT +shrewdness/SM/XRTNS +shrewish/PY/XRWX +shrewishness/M/XRWXNS +shriek/SGDRMZ/XRK +shrieker/M/XRK +shrift/SM/XRFT +shrike/SM/XRK +shrill/DRTGPS/XRL +shrillness/MS/XRLNS +shrilly//XRL +shrimp/MDGS/XRMP +shrine/SDGM/XRN +shrink/SRBG/XRNK +shrinkage/SM/XRNKK +shrinker/M/XRNK +shrinking/U/XRNKN +shrive/RSDG/XRF +shrivel/GSD/XRFL +shriven//XRFN +Shropshire/M/XRPXR +shroud/GSMD/XRT +shrub/SM/XRB +shrubbed//XRBT +shrubbery/SM/XRBR +shrubbing//XRBN +shrubby/TR/XRB +shrug/S/XRK +shrugged//XRKT +shrugging//XRKN +shrunk/N/XRNK +shtick/S/XTK +Shu/M/X +shuck/SGMRD/XK +shucker/M/XK +shucks/S/XKS +shudder/DSG/XT +shuddery//XTR +shuffle/GDSRZ/XFL +shuffleboard/MS/XFLBT +shuffled/A/XFLT +shuffles/A/XFLS +shuffling/A/XFLN +Shulman/M/XLMN +shun/S/XN +shunned//XNT +shunning//XNN +shunt/GSRD/XNT +shunter/M/XNT +Shurlock/M/XLK +Shurlocke/M/XLK +Shurwood/M/XWT +shush/SDG/XX +shut/S/XT +shutdown/MS/XTTN +shuteye/SM/XTY +shutoff/M/XTF +shutout/SM/XTT +shutter/DMGS/XT +shutterbug/S/XTBK +shuttering/M/XTRN +shutting//XTN +shuttle/MGDS/XTL +shuttlecock/MDSG/XTLKK +shy/DRSGTZY/X +shyer//XY +shyest//XYST +Shylock/M/XLK +Shylockian/M/XLKN +shyness/SM/XNS +shyster/SM/XST +Si/M/S +Siam/M/XM +Siamese/M/XMS +Siana/M/XN +Sianna/M/XN +Sian's//XNS +Sib/M/SB +Sibbie/M/SB +Sibby/M/SB +Sibeal/M/SBL +Sibel/M/SBL +Sibelius/M/SBLS +Sibella/M/SBL +Sibelle/M/SBL +Siberia/M/SBR +Siberian/S/SBRN +sibilance/M/SBLNS +sibilancy/M/SBLNS +sibilant/SY/SBLNT +Sibilla/M/SBL +Sibley/M/SBL +sibling/SM/SBLN +Sibyl/M/SBL +sibyl/SM/SBL +Sibylla/M/SBL +Sibylle/M/SBL +sibylline//SBLN +sic/S/SK +Sicilian/S/SSLN +Siciliana/M/SSLN +Sicily/M/SSL +sick/GXTYNDRSP/SK +sickbay/M/SKB +sickbed/S/SKBT +sicken/JRDG/SKN +sickener/M/SKN +sickening/Y/SKNN +sicker/Y/SK +sickie/SM/SK +sickish/PY/SKX +sickle/SDGM/SKL +sickliness/M/SKLNS +sickly/TRSDPG/SKL +sickness/MS/SKNS +sicko/S/SK +sickout/S/SKT +sickroom/SM/SKRM +Sid/M/ST +side/ISRM/ST +sidearm/S/STM +sideband/MS/STBNT +sidebar/MS/STB +sideboard/SM/STBT +sideburns//STBNS +sidecar/MS/STK +sided/A/STT +sidedness//STTNS +sidekick/MS/STKK +sidelight/SM/STLT +sideline/MGDRS/STLN +sidelong//STLNK +sideman/M/STMN +sidemen//STMN +sidepiece/S/STPS +sider/FA/ST +sidereal//STRL +sides/A/STS +sidesaddle/MS/STSTL +sideshow/MS/STX +sidesplitting//STSPLTN +sidestep/S/STSTP +sidestepped//STSTPT +sidestepping//STSTPN +sidestroke/GMSD/STSTRK +sideswipe/GSDM/STSWP +sidetrack/SDG/STTRK +sidewalk/MS/STWLK +sidewall/MS/STWL +sidewards//STWTS +sideway/SM/STW +sidewinder/SM/STWNT +siding/SM/STN +sidle/DSG/STL +Sidnee/M/STN +Sidney/M/STN +Sidoney/M/STN +Sidonia/M/STN +Sidonnie/M/STN +SIDS//STS +siege/GMDS/SK +Siegel/M/SKL +Siegfried/M/SKFRT +Sieglinda/M/SKLNT +Siegmund/M/SKMNT +Siemens/M/SMNS +Siena/M/SN +sienna/SM/SN +Sierpinski/M/SPNSK +sierra/SM/SR +siesta/MS/SST +sieve/GZMDS/SF +Siffre/M/SFR +sift/GZJSDR/SFT +sifted/UA/SFTT +sifter/M/SFT +Sig/M/SK +Sigfrid/M/SKFRT +Sigfried/M/SKFRT +SIGGRAPH/M/SKRF +sigh/DRG/S +sigher/M/SK +sighs//SS +sight/ISM/ST +sighted/P/STT +sighter/M/ST +sighting/S/STN +sightless/Y/STLS +sightliness/UM/STLNS +sightly/TURP/STL +sightread//STRT +sightsee/RZ/STS +sightseeing/S/STSN +Sigismond/M/SKSMNT +Sigismondo/M/SKSMNT +Sigismund/M/SKSMNT +Sigismundo/M/SKSMNT +sigma/SM/SKM +sigmoid//SKMT +Sigmund/M/SKMNT +sign/GARDCS/SN +signal/A/SKNL +signaled//SKNLT +signaler/S/SKNL +signaling//SKNLN +signalization/S/SKNLSXN +signalize/GSD/SKNLS +signally//SKNL +signalman/M/SKNLMN +signalmen//SKNLMN +signals//SKNLS +signal's//SKNLS +signatory/SM/SKNTR +signature/MS/SKNTR +signboard/MS/SKNBT +signed/FU/SN +signer/SC/SKN +signet/SGMD/SKNT +significance/IMS/SKNFKNS +significant/YS/SKNFKNT +significantly/I/SKNFKNTL +signification/M/SKNFKXN +signify/DRSGNX/SKNF +signing/S/SKNN +Signor/M/SKN +signor/SFM/SKN +Signora/M/SKNR +signora/SM/SKNR +signore/M/SKNR +signori//SKNR +signories//SKNRS +signorina/SM/SKNRN +signorine//SKNRN +signpost/DMSG/SKNPST +sign's//SKNS +signs/F/SNS +Sigrid/M/SKRT +Sigurd/M/SKT +Sigvard/M/SKFT +Sihanouk/M/SHNK +Sikh/MS/SKH +Sikhism/MS/SKHSM +Sikhs//SKHS +Sikkim/M/SKM +Sikkimese//SKMS +Sikorsky/M/SKSK +silage/GMSD/SLK +Silas/M/SLS +Sile/M/SL +Sileas/M/SLS +siled//SLT +silence/MZGRSD/SLNS +silencer/M/SLNS +silent/TSPRY/SLNT +silentness/M/SLNTNS +Silesia/M/SLX +silhouette/GMSD/SLHT +silica/SM/SLK +silicate/SM/SLKT +siliceous//SLSS +silicide/M/SLST +silicon/MS/SLKN +silicone/SM/SLKN +silicoses//SLKSS +silicosis/M/SLKSS +silk/GXNDMS/SLK +silken/DG/SLKN +silkily//SLKL +silkiness/SM/SLKNS +silkscreen/SM/SLKSKRN +silkworm/MS/SLKWM +silky/RSPT/SLK +sill/MS/SL +silliness/SM/SLNS +silly/PRST/SL +silo/GSM/SL +silt/MDGS/SLT +siltation/M/SLTXN +siltstone/M/SLTSTN +silty/RT/SLT +Silurian/S/SLRN +Silva/M/SLF +Silvain/M/SLFN +Silvan/M/SLFN +Silvana/M/SLFN +Silvano/M/SLFN +Silvanus/M/SLFNS +silver/RDYMGS/SLF +silverer/M/SLFR +silverfish/MS/SLFFX +Silverman/M/SLFMN +silversmith/M/SLFSM@ +silversmiths//SLFSM@S +Silverstein/M/SLFSTN +silverware/SM/SLFWR +silvery/RTP/SLFR +Silvester/M/SLFST +Silvia/M/SLF +Silvie/M/SLF +Silvio/M/SLF +Sim/MS/SM +SIMD//SMT +Simenon/M/SMNN +Simeon/M/SMN +simian/S/SMN +similar/EY/SML +similarity/EMS/SMLRT +simile/SM/SML +similitude/SME/SMLTT +Simla/M/SML +simmer/GSD/SM +Simmonds/M/SMNTS +Simmons/M/SMNS +Simmonsville/M/SMNSFL +Simms/M/SMS +Simon/M/SMN +Simona/M/SMN +Simone/M/SMN +Simonette/M/SMNT +simonize/SDG/SMNS +Simonne/M/SMN +simony/MS/SMN +simpatico//SMPTK +simper/GDS/SMP +simple/RSDGTP/SMPL +simpleminded/YP/SMPLMNTT +simpleness/S/SMPLNS +simpleton/SM/SMPLTN +simplex/S/SMPLKS +simplicity/MS/SMPLST +simplified/U/SMPLFT +simplify/ZXRSDNG/SMPLF +simplistic//SMPLSTK +simplistically//SMPLSTKL +simply//SMPL +Simpson/M/SMPSN +Simula/M/SML +SIMULA/M/SML +simulacrum/M/SMLKRM +simulate/XENGSD/SMLT +simulation/ME/SMLXN +simulative//SMLTF +simulator/SEM/SMLT +simulcast/GSD/SMLKST +simultaneity/SM/SMLTNT +simultaneous/YP/SMLTNS +simultaneousness/M/SMLTNSNS +sin/MAGS/SN +Sinai/M/SN +Sinatra/M/SNTR +since//SNS +sincere/IY/SNSR +sincereness/M/SNSRNS +sincerer//SNSR +sincerest//SNSRST +sincerity/MIS/SNSRT +Sinclair/M/SNKL +Sinclare/M/SNKLR +Sindbad/M/SNTBT +Sindee/M/SNT +Sindhi/M/SNTH +sine/SM/SN +sinecure/MS/SNKR +sinecurist/M/SNKRST +sinew/SGMD/SN +sinewy//SN +sinful/YP/SNFL +sinfulness/SM/SNFLNS +sing/BGJZYDR/SN +Singapore/M/SNPR +Singaporean/S/SNPRN +Singborg/M/SNBK +singe/S/SN +singeing//SNN +singer/M/SN +Singer/M/SN +singing/Y/SNN +single/PSDG/SNL +singlehanded/Y/SNLHNTT +singleness/SM/SNLNS +singlet/SM/SNLT +Singleton/M/SNLTN +singleton/SM/SNLTN +singletree/SM/SNLTR +singsong/GSMD/SNSNK +singular/SY/SNL +singularity/SM/SNLRT +singularization/M/SNLRSXN +Sinhalese/M/SNHLS +sinister/YP/SNST +sinisterness/M/SNSTNS +sinistral/Y/SNSTRL +sink/GZSDRB/SNK +sinkable/U/SNKBL +sinker/M/SNK +sinkhole/SM/SNKHL +Sinkiang/M/SNKNK +sinking/M/SNKN +sinless/YP/SNLS +sinlessness/M/SNLSNS +sinned//SNT +sinner/MS/SN +sinning//SNN +sinter/DM/SNT +sinuosity/MS/SNST +sinuous/PY/SNS +sinuousities//SNSTS +sinuousness/M/SNSNS +sinus/MS/SNS +sinusitis/SM/SNSTS +sinusoid/MS/SNST +sinusoidal/Y/SNSTL +Siobhan/M/XBHN +Sioux/M/XKS +Siouxie/M/XKS +sip/S/SP +siphon/DMSG/SFN +siphons/U/SFNS +sipped//SPT +sipper/SM/SP +sipping//SPN +Sir/MS/S +sir/XGMNDS/S +sire/MS/SR +sired/C/SRT +siren/M/SRN +sires/C/SRS +siring/C/SRN +Sirius/M/SRS +sirloin/MS/SLN +sirocco/MS/SRK +sirred//SRT +sirring//SRN +sirup's//SRPS +sis/S/SS +sisal/MS/SSL +Sisely/M/SSL +Sisile/M/SSL +Sissie/M/SS +sissified//SSFT +Sissy/M/SS +sissy/TRSM/SS +sister/GDYMS/SST +sisterhood/MS/SSTHT +sisterliness/MS/SSTLNS +sisterly/P/SSTL +sister's/A/SSTS +Sistine//SSTN +Sisyphean//SSFN +Sisyphus/M/SSFS +sit/AG/ST +sitar/SM/ST +sitarist/SM/STRST +sitcom/SM/STKM +site/DSJM/ST +sits//STS +sitter/MS/ST +sitting/SM/STN +situ/S/ST +situate/GNSDX/STT +situation/M/STXN +situational/Y/STXNL +situationist//STXNST +situs/M/STS +Siusan/M/SSN +Siva/M/SF +Siward/M/SWT +six/MRSH/SKS +sixfold//SKSFLT +sixgun//SKSKN +sixpence/MS/SKSPNS +sixpenny//SKSPN +sixshooter//SKSXT +sixteen/HRSM/SKSTN +sixteenths//SKSTN@S +sixth/Y/SKS@ +sixths//SKS@S +sixtieths//SKST@S +sixty/SMH/SKST +sizable/P/SSBL +sizableness/M/SSBLNS +size/GJDRSBMZ/SS +sized/UA/SST +sizer/M/SS +sizes/A/SSS +sizing/M/SSN +sizzle/RSDG/SSL +sizzler/M/SSL +SJ//SK +Sjaelland/M/SKLNT +SK//SK +ska/S/SK +skat/JMDRGZ/SKT +skate/SM/SKT +skateboard/SJGZMDR/SKTBT +skater/M/SKT +skedaddle/GSD/SKTTL +skeet/RMS/SKT +skein/MDGS/SKN +skeletal/Y/SKLTL +skeleton/MS/SKLTN +Skell/M/SKL +Skelly/M/SKL +skeptic/SM/SKPTK +skeptical/Y/SKPTKL +skepticism/MS/SKPTSSM +sketch/MRSDZG/SKX +sketchbook/SM/SKXBK +sketcher/M/SKX +sketchily//SKXL +sketchiness/MS/SKXNS +sketchpad//SKXPT +sketchy/PRT/SKX +skew/DRSPGZ/SK +skewer/GDM/SKW +skewing/M/SKWN +skewness/M/SKNS +ski/MNJSG/SK +skid/S/SKT +skidded//SKTT +skidding//SKTN +skiff/GMDS/SKF +skiing/M/SKN +skilfully//SKLFL +skill/DMSG/SKL +skilled/U/SKLT +skillet/MS/SKLT +skillful/YUP/SKLFL +skillfulness/MU/SKLFLNS +skillfulnesses//SKLFLNSS +skilling/M/SKLN +skim/SM/SKM +skimmed//SKMT +skimmer/MS/SKM +skimming/SM/SKMN +skimp/GDS/SKMP +skimpily//SKMPL +skimpiness/MS/SKMPNS +skimpy/PRT/SKMP +skin/SM/SKN +skincare//SKNKR +skindive/G/SKNTF +skinflint/MS/SKNFLNT +skinhead/SM/SKNHT +skinless//SKNLS +skinned//SKNT +Skinner/M/SKN +skinner/SM/SKN +skinniness/MS/SKNNS +skinning//SKNN +skinny/TRSP/SKN +skintight//SKNTT +Skip/M/SKP +skip/S/SKP +Skipp/RM/SKP +skipped//SKPT +Skipper/M/SKP +skipper/SGDM/SKP +Skippie/M/SKP +skipping//SKPN +Skippy/M/SKP +Skipton/M/SKPTN +skirmish/RSDMZG/SKMX +skirmisher/M/SKMX +skirt/RDMGS/SKT +skirter/M/SKT +skirting/M/SKTN +skit/GSMD/SKT +skitter/SDG/SKT +skittish/YP/SKTX +skittishness/SM/SKTXNS +skittle/SM/SKTL +skivvy/GSDM/SKFF +skoal/SDG/SKL +Skopje/M/SKPK +skulduggery/MS/SKLTKR +skulk/SRDGZ/SKLK +skulker/M/SKLK +skull/SDM/SKL +skullcap/MS/SKLKP +skullduggery's//SKLTKRS +skunk/GMDS/SKNK +Sky/M/SK +sky/MDRSGZ/SK +skycap/MS/SKKP +skydiver/SM/SKTF +skydiving/MS/SKTFN +Skye/M/SKY +skyhook//SKHK +skyjack/ZSGRDJ/SKKK +skyjacker/M/SKKK +Skylab/M/SKLB +Skylar/M/SKL +skylark/SRDMG/SKLK +skylarker/M/SKLK +Skyler/M/SKL +skylight/MS/SKLT +skyline/MS/SKLN +skyrocket/GDMS/SKRKT +skyscrape/RZ/SKSKRP +skyscraper/M/SKSKRP +skyward/S/SKWT +skywave//SKWF +skyway/M/SKW +skywriter/MS/SKRT +skywriting/MS/SKRTN +slab/MS/SLB +slabbed//SLBT +slabbing//SLBN +slack/SPGTZXYRDN/SLK +slacken/DG/SLKN +slacker/M/SLK +slackness/MS/SLKNS +Slade/M/SLT +slag/MS/SLK +slagged//SLKT +slagging//SLKN +slain//SLN +slake/DSG/SLK +slaked/U/SLKT +slalom/SGMD/SLLM +slam/S/SLM +slammed//SLMT +slammer/S/SLM +slamming//SLMN +slander/MDRZSG/SLNT +slanderous/PY/SLNTRS +slanderousness/M/SLNTRSNS +slang/SMGD/SLNK +slangy/TR/SLNK +slant/SDG/SLNT +slanting/Y/SLNTN +slantwise//SLNTWS +slap/MS/SLP +slapdash/S/SLPTX +slaphappy/TR/SLFP +slapped//SLPT +slapper//SLP +slapping//SLPN +slapstick/MS/SLPSTK +slash/GZRSD/SLX +slashing/Y/SLXN +slat/MDRSGZ/SLT +slate/SM/SLT +slater/M/SLT +Slater/M/SLT +slather/SMDG/SL@ +slating/M/SLTN +slatted//SLTT +slattern/MYS/SLTN +slatting//SLTN +slaughter/SJMRDGZ/SLT +slaughterer/M/SLTR +slaughterhouse/SM/SLTHS +Slav/MS/SLF +slave/DSRGZM/SLF +slaveholder/SM/SLFHLT +slaver/GDM/SLF +slavery/SM/SLFR +Slavic/M/SLFK +slavish/YP/SLFX +slavishness/SM/SLFXNS +Slavonic/M/SLFNK +slaw/MS/SL +slay/RGZS/SL +sleaze/S/SLS +sleazily//SLSL +sleaziness/SM/SLSNS +sleazy/RTP/SLS +sled/SM/SLT +sledded//SLTT +sledder/S/SLT +sledding//SLTN +sledge/SDGM/SLK +sledgehammer/MDGS/SLKHM +sleek/PYRDGTS/SLK +sleekness/S/SLKNS +sleep/RMGZS/SLP +sleeper/M/SLP +sleepily//SLPL +sleepiness/SM/SLPNS +sleeping/M/SLPN +sleepless/YP/SLPLS +sleeplessness/SM/SLPLSNS +sleepover/S/SLPF +sleepwalk/JGRDZS/SLPWLK +sleepwalker/M/SLPWLK +sleepwear/M/SLPW +sleepy/PTR/SLP +sleepyhead/MS/SLPHT +sleet/DMSG/SLT +sleety/TR/SLT +sleeve/SDGM/SLF +sleeveless//SLFLS +sleeving/M/SLFN +sleigh/GMD/SL +sleighs//SLS +sleight/SM/SLT +sleken/DG/SLKN +slender/RYTP/SLNT +slenderize/DSG/SLNTRS +slenderness/MS/SLNTNS +slept//SLPT +Slesinger/M/SLSN +sleuth/GMD/SL@ +sleuths//SL@S +slew/DGS/SL +slice/DSRGZM/SLS +sliced/U/SLST +slicer/M/SLS +slick/PSYRDGTZ/SLK +slicker/M/SLK +slickness/MS/SLKNS +slid/GZDR/SLT +slide/S/SLT +slider/M/SLT +slight/DRYPSTG/SLT +slighter/M/SLT +slighting/Y/SLTN +slightness/S/SLTNS +slim/SPGYD/SLM +slime/SM/SLM +sliminess/S/SLMNS +slimline//SLMLN +slimmed//SLMT +slimmer/S/SLM +slimmest//SLMST +slimming/S/SLMN +slimness/S/SLMNS +slimy/PTR/SLM +sling/GMRS/SLN +slings/U/SLNS +slingshot/MS/SLNXT +slink/GS/SLNK +slinky/RT/SLNK +slip/SM/SLP +slipcase/MS/SLPKS +slipcover/GMDS/SLPKF +slipknot/SM/SLPKNT +slippage/SM/SLPK +slipped//SLPT +slipper/GSMD/SLP +slipperiness/S/SLPRNS +slippery/PRT/SLPR +slipping//SLPN +slipshod//SLPXT +slipstream/MDGS/SLPSTRM +slipway/SM/SLPW +slit/SM/SLT +slither/DSG/SL@ +slithery//SL@R +slitted//SLTT +slitter/S/SLT +slitting//SLTN +sliver/GSDM/SLF +slivery//SLFR +Sloan/M/SLN +Sloane/M/SLN +slob/MS/SLB +slobber/SDG/SLB +slobbery//SLBR +Slocum/M/SLKM +sloe/MS/SL +slog/S/SLK +slogan/MS/SLKN +sloganeer/MG/SLKN +slogged//SLKT +slogging//SLKN +sloop/SM/SLP +slop/DRSGZ/SLP +slope/S/SLP +sloped/U/SLPT +slopped//SLPT +sloppily//SLPL +sloppiness/SM/SLPNS +slopping//SLPN +sloppy/RTP/SLP +slosh/GSDM/SLX +slot/MS/SLT +sloth/GDM/SL@ +slothful/PY/SL@FL +slothfulness/MS/SL@FLNS +sloths//SL@S +slotted//SLTT +slotting//SLTN +slouch/DRSZG/SLX +sloucher/M/SLX +slouchy/RT/SLX +slough/GMD/SL +sloughs//SLS +Slovak/S/SLFK +Slovakia/M/SLFK +Slovakian/S/SLFKN +sloven/YMS/SLFN +Slovene/S/SLFN +Slovenia/M/SLFN +Slovenian/S/SLFNN +slovenliness/SM/SLFNLNS +slovenly/TRP/SLFNL +slow/PGTYDRS/SL +slowcoaches//SLKXS +slowdown/MS/SLTN +slowish//SLWX +slowness/MS/SLNS +slowpoke/MS/SLPK +SLR//SLR +sludge/SDGM/SLK +sludgy/TR/SLK +slue/MGDS/SL +slug/MS/SLK +sluggard/MS/SLKT +slugged//SLKT +slugger/SM/SLK +slugging//SLKN +sluggish/YP/SLKX +sluggishness/SM/SLKXNS +sluice/SDGM/SLS +slum/MS/SLM +slumber/MDRGS/SLMB +slumberer/M/SLMBR +slumberous//SLMBRS +slumlord/MS/SLMLT +slummed//SLMT +slummer//SLM +slumming//SLMN +slummy/TR/SLM +slump/DSG/SLMP +slung/U/SLNK +slunk//SLNK +slur/MS/SL +slurp/GSD/SLP +slurred//SLRT +slurried/M/SLRT +slurring//SLRN +slurry/MGDS/SLR +slurrying/M/SLRYN +slush/SDMG/SLX +slushiness/SM/SLXNS +slushy/RTP/SLX +slut/MS/SLT +sluttish//SLTX +slutty/TR/SLT +Sly/M/SL +sly/RTY/SL +slyness/MS/SLNS +Sm/M/SM +smack/SMRDGZ/SMK +smacker/M/SMK +Small/M/SML +small/SGTRDP/SML +smallholders//SMLHLTS +smallholding/MS/SMLHLTN +smallish//SMLX +smallness/S/SMLNS +smallpox/SM/SMLPKS +smalltalk//SMLTLK +smalltime//SMLTM +Smallwood/M/SMLWT +smarmy/RT/SMM +smart/YRDNSGTXP/SMT +smarten/GD/SMTN +smartness/S/SMTNS +smartypants//SMTPNTS +smash/GZRSD/SMX +smasher/M/SMX +smashing/Y/SMXN +smashup/S/SMXP +smattering/SM/SMTRN +smear/GRDS/SM +smearer/M/SMR +smeary/TR/SMR +smell/SBRDG/SML +smeller/M/SML +smelliness/MS/SMLNS +smelly/TRP/SML +smelt/SRDGZ/SMLT +smelter/M/SMLT +Smetana/M/SMTN +smidgen/MS/SMKN +smilax/MS/SMLKS +smile/GMDSR/SML +smiley/M/SML +smilies//SMLS +smiling/UY/SMLN +smirch/SDG/SMX +smirk/GSMD/SMK +Smirnoff/M/SMNF +smite/GSR/SMT +smiter/M/SMT +smith/DMG/SM@ +Smith/M/SM@ +smithereens//SM@RNS +Smithfield/M/SM@FLT +smiths//SM@S +Smithson/M/SM@SN +Smithsonian/M/SM@SNN +Smithtown/M/SM@TN +smithy/SM/SM@ +smitten//SMTN +Smitty/M/SMT +smock/SGMDJ/SMK +smocking/M/SMKN +smog/SM/SMK +smoggy/TR/SMK +smoke/GZMDSRBJ/SMK +smokehouse/MS/SMKHS +smokeless//SMKLS +smoker/M/SMK +smokescreen/S/SMKSKRN +smokestack/MS/SMKSTK +Smokey/M/SMK +smokiness/S/SMKNS +smoking/M/SMKN +smoky/RSPT/SMK +smolder/SGD/SMLT +smoldering/Y/SMLTRN +Smolensk/M/SMLNSK +Smollett/M/SMLT +smooch/SDG/SMX +smooth/TZGPRDNY/SM@ +smoothen/DG/SM@N +smoother/M/SM@ +smoothie/SM/SM@ +smoothness/MS/SM@NS +smooths//SM@S +smörgåsbord/SM/SMRKSBT +smote//SMT +smother/GSD/SM@ +SMSA/MS/SMS +SMTP//SMTP +Smucker/M/SMK +smudge/GSD/SMK +smudginess/M/SMKNS +smudgy/TRP/SMK +smug/YSP/SMK +smugged//SMKT +smugger//SMK +smuggest//SMKST +smugging//SMKN +smuggle/JZGSRD/SMKL +smuggler/M/SMKL +smugness/MS/SMKNS +smut/SM/SMT +Smuts/M/SMTS +smutted//SMTT +smuttiness/SM/SMTNS +smutting//SMTN +smutty/TRP/SMT +Smyrna/M/SMRN +Sn/M/SN +snack/SGMD/SNK +snaffle/GDSM/SNFL +snafu/DMSG/SNF +snag/MS/SNK +snagged//SNKT +snagging//SNKN +snail/GSDM/SNL +Snake//SNK +snake/DSGM/SNK +snakebird/M/SNKBT +snakebite/MS/SNKBT +snakelike//SNKLK +snakeroot/M/SNKRT +snaky/TR/SNK +snap/US/SNP +snapback/M/SNPBK +snapdragon/MS/SNPTRKN +snapped/U/SNPT +snapper/SM/SNP +snappily//SNPL +snappiness/SM/SNPNS +snapping/U/SNPN +snappish/PY/SNPX +snappishness/SM/SNPXNS +snappy/PTR/SNP +snapshot/MS/SNPXT +snapshotted//SNPXTT +snapshotting//SNPXTN +snare/DSRGM/SNR +snarer/M/SNR +snarf/JSGD/SNF +snarl/UGSD/SNL +snarler/M/SNL +snarling/Y/SNLN +snarly/RT/SNL +snatch/DRSZG/SNX +snatcher/M/SNX +snazzily//SNSL +snazzy/TR/SNS +Snead/M/SNT +sneak/RDGZS/SNK +sneaker/MD/SNK +sneakily//SNKL +sneakiness/SM/SNKNS +sneaking/Y/SNKN +sneaky/PRT/SNK +Sneed/M/SNT +sneer/GMRDJS/SN +sneerer/M/SNR +sneering/Y/SNRN +sneeze/SRDG/SNS +Snell/M/SNL +snick/MRZ/SNK +snicker/GMRD/SNK +snide/YTSRP/SNT +snideness/M/SNTNS +Snider/M/SNT +sniff/GZSRD/SNF +sniffer/M/SNF +sniffle/GDRS/SNFL +sniffler/M/SNFL +sniffles/M/SNFLS +snifter/MDSG/SNFT +snigger's//SNKS +snip/SGDRZ/SNP +snipe/SM/SNP +sniper/M/SNP +snipped//SNPT +snipper/SM/SNP +snippet/SM/SNPT +snipping//SNPN +snippy/RT/SNP +snit/SM/SNT +snitch/GDS/SNX +snivel/JSZGDR/SNFL +sniveler/M/SNFL +snob/MS/SNB +snobbery/SM/SNBR +snobbish/YP/SNBX +snobbishness/S/SNBXNS +snobby/RT/SNB +Snodgrass/M/SNTKRS +snood/SGDM/SNT +snook/SMRZ/SNK +snooker/GMD/SNK +snoop/SRDGZ/SNP +snooper/M/SNP +Snoopy/M/SNP +snoopy/RT/SNP +snoot/SDMG/SNT +snootily//SNTL +snootiness/MS/SNTNS +snooty/TRP/SNT +snooze/GSD/SNS +snore/DSRGZ/SNR +snorkel/ZGSRDM/SNKL +snort/GSZRD/SNT +snorter/M/SNT +snot/MS/SNT +snotted//SNTT +snottily//SNTL +snottiness/SM/SNTNS +snotting//SNTN +snotty/TRP/SNT +snout/SGDM/SNT +snow/GDMS/SN +Snow/M/SN +snowball/SDMG/SNBL +snowbank/SM/SNBNK +Snowbelt/SM/SNBLT +snowbird/SM/SNBT +snowblower/S/SNBLW +snowboard/GZDRJS/SNBT +snowbound//SNBNT +snowcapped//SNKPT +snowdrift/MS/SNTRFT +snowdrop/MS/SNTRP +snowfall/MS/SNFL +snowfield/MS/SNFLT +snowflake/MS/SNFLK +snowily//SNWL +snowiness/MS/SNWNS +snowman/M/SNMN +snowmen//SNMN +snowmobile/GMDRS/SNMBL +snowplough/M/SNPL +snowploughs//SNPLS +snowplow/SMGD/SNPL +snowshed//SNXT +snowshoe/MRS/SNX +snowshoeing//SNXN +snowshoer/M/SNX +snowstorm/MS/SNSTM +snowsuit/S/SNST +snowy/RTP/SN +snub/SP/SNB +snubbed//SNBT +snubber//SNB +snubbing//SNBN +snuff/GZSYRD/SNF +snuffbox/SM/SNFBKS +snuffer/M/SNF +snuffle/GDSR/SNFL +snuffler/M/SNFL +snuffly/RT/SNFL +snug/SYP/SNK +snugged//SNKT +snugger//SNK +snuggest//SNKST +snugging//SNKN +snuggle/GDS/SNKL +snuggly//SNKL +snugness/MS/SNKNS +Snyder/M/SNT +so//S +SO//S +soak/GDRSJ/SK +soaker/M/SK +soap/MDRGS/SP +soapbox/DSMG/SPBKS +soapiness/S/SPNS +soapstone/MS/SPSTN +soapsud/S/SPST +soapy/RPT/SP +soar/DRJSG/S +soarer/M/SR +soaring/Y/SRN +sob/SZR/SB +sobbed//SBT +sobbing/Y/SBN +sober/PGTYRD/SB +soberer/M/SBR +soberness/SM/SBNS +sobriety/SIM/SBRT +sobriquet/MS/SBRKT +Soc//SK +soc/S/SK +soccer/MS/SS +sociabilities//SXBLTS +sociability/IM/SXBLT +sociable/S/SXBL +sociably/IU/SXBL +social/SY/SXL +socialism/SM/SXLSM +socialist/SM/SXLST +socialistic//SXLSTK +socialite/SM/SXLT +sociality/M/SXLT +socialization/SM/SXLSXN +socialize/RSDG/SXLS +socialized/U/SXLST +socializer/M/SXLS +socially/U/SXL +societal/Y/SSTL +society/MS/SST +socio//SS +sociobiology/M/SSBLK +sociocultural/Y/SSKLTRL +sociodemographic//SSTMKRFK +socioeconomic/S/SSKNMK +socioeconomically//SSKNMKL +sociolinguistics/M/SSLNSTKS +sociological/MY/SSLKKL +sociologist/SM/SSLKST +sociology/SM/SSLK +sociometric//SSMTRK +sociometry/M/SSMTR +sociopath/M/SSP@ +sociopaths//SSP@S +sock/GDMS/SK +socket/SMDG/SKT +Socorro/M/SKR +Socrates/M/SKRTS +Socratic/S/SKRTK +sod/MS/ST +soda/SM/ST +sodded//STT +sodden/DYPSG/STN +soddenness/M/STNS +sodding//STN +Soddy/M/ST +sodium/MS/STM +Sodom/M/STM +sodomite/MS/STMT +sodomize/GDS/STMS +sodomy/SM/STM +soever//SF +sofa/SM/SF +Sofia/M/SF +Sofie/M/SF +soft/SPXTYNR/SFT +softball/MS/SFTBL +softbound//SFTBNT +soften/ZGRD/SFTN +softener/M/SFTN +softhearted//SF@TT +softie's//SFTS +softness/MS/SFTNS +software/MS/SFTWR +softwood/SM/SFTWT +softy/SM/SFT +soggily//SKL +sogginess/S/SKNS +soggy/RPT/SK +Soho/M/SH +soigné//SKN +soil/SGMD/SL +soiled/U/SLT +soirée/SM/S +sojourn/RDZGSM/SKN +sol/GSMDR/SL +Sol/MY/SL +solace/GMSRD/SLS +solacer/M/SLS +solar/S/SL +solaria//SLR +solarium/M/SLRM +sold/RU/SLT +solder/RDMSZG/SLT +soldier/MDYSG/SLT +soldiery/MS/SLTR +sole/YSP/SL +solecism/MS/SLSSM +soled/FA/SLT +solemn/PTRY/SLMN +solemness//SLMNS +solemnify/GSD/SLMNF +solemnity/MS/SLMNT +solemnization/SM/SLMNSXN +solemnize/GSD/SLMNS +solemnness/SM/SLMNS +solenoid/MS/SLNT +soler/F/SL +soles/IFA/SLS +solicit/SDG/SLST +solicitation/S/SLSTXN +solicited/U/SLSTT +solicitor/MS/SLST +solicitous/YP/SLSTS +solicitousness/S/SLSTSNS +solicitude/MS/SLSTT +solid/STYRP/SLT +solidarity/MS/SLTRT +solidi//SLT +solidification/M/SLTFKXN +solidify/NXSDG/SLTF +solidity/S/SLTT +solidness/SM/SLTNS +solidus/M/SLTS +soliloquies//SLLKS +soliloquize/DSG/SLLKS +soliloquy/M/SLLK +soling/NM/SLN +solipsism/MS/SLPSSM +solipsist/S/SLPSST +Solis/M/SLS +solitaire/SM/SLTR +solitary/SP/SLTR +solitude/SM/SLTT +Sollie/M/SL +Solly/M/SL +solo/DMSG/SL +soloist/SM/SLST +Solomon/SM/SLMN +Solon/M/SLN +Soloviev/M/SLFF +solstice/SM/SLSTS +solubility/IMS/SLBLT +soluble/SI/SLBL +solute/ENAXS/SLT +solute's//SLTS +solution/AME/SLXN +solvable/UI/SLFBL +solvating//SLFTN +solve/ABSRDZG/SLF +solved/EU/SLFT +solvency/IMS/SLFNS +solvent/IS/SLFNT +solvently//SLFNTL +solvent's//SLFNTS +solver/MEA/SLF +solves/E/SLFS +solving/E/SLFN +Solzhenitsyn/M/SLSHNTSN +soma/M/SM +Somali/MS/SML +Somalia/M/SML +Somalian/S/SMLN +somatic//SMTK +somber/PY/SMB +somberness/SM/SMBNS +sombre//SMBR +sombrero/SM/SMBRR +some/Z/SM +somebody/SM/SMBT +somebody'll//SMBTL +someday//SMT +somehow//SMH +someone/SM/SMN +someone'll//SMNL +someplace/M/SMPLS +somersault/DSGM/SMSLT +Somerset/M/SMST +somerset/S/SMST +somersetted//SMSTT +somersetting//SMSTN +Somerville/M/SMFL +something/S/SM@N +sometime/S/SMTM +someway/S/SMW +somewhat/S/SMHT +somewhere/S/SMHR +Somme/M/SM +sommelier/SM/SML +somnambulism/SM/SMNMBLSM +somnambulist/SM/SMNMBLST +somnolence/MS/SMNLNS +somnolent/Y/SMNLNT +Somoza/M/SMS +Son/M/SN +son/SMY/SN +sonar/SM/SN +sonata/MS/SNT +sonatina/SM/SNTN +Sondheim/M/SNTHM +Sondra/M/SNTR +Sonenberg/M/SNNBK +song/MS/SNK +songbag//SNKBK +songbird/SM/SNKBT +songbook/S/SNKBK +songfest/MS/SNKFST +songful/YP/SNKFL +songfulness/M/SNKFLNS +Songhai/M/SNK +Songhua/M/SNK +songster/MS/SNKST +songstress/SM/SNKSTRS +songwriter/SM/SNKRT +songwriting//SNKRTN +Sonia/M/SN +sonic/S/SNK +Sonja/M/SNK +sonnet/MDSG/SNT +Sonni/M/SN +Sonnie/M/SN +Sonnnie/M/SN +Sonny/M/SN +sonny/SM/SN +Sonoma/M/SNM +Sonora/M/SNR +sonority/S/SNRT +sonorous/PY/SNRS +sonorousness/SM/SNRSNS +Sontag/M/SNTK +sonuvabitch//SNFBX +Sony/M/SN +Sonya/M/SNY +soon/TR/SN +soonish//SNX +soot/MGDS/ST +sooth/GZTYSRDMJ/S@ +soothe//S@ +soother/M/S@ +soothing/YP/S@N +soothingness/M/S@NNS +sooths//S@S +soothsay/JGZR/S@S +soothsayer/M/S@SY +sooty/RT/ST +SOP//SP +sop/SM/SP +Sophey/M/SF +Sophi/M/SF +Sophia/SM/SF +Sophie/M/SF +sophism/SM/SFSM +sophist/RMS/SFST +sophister/M/SFST +sophistic/S/SFSTK +sophistical//SFSTKL +sophisticate/XNGDS/SFSTKT +sophisticated/U/SFSTKTT +sophisticatedly//SFSTKTTL +sophistication/MU/SFSTKXN +sophistry/SM/SFSTR +Sophoclean//SFKLN +Sophocles/M/SFKLS +sophomore/SM/SFMR +sophomoric//SFMRK +Sophronia/M/SFRN +soporific/SM/SPRFK +soporifically//SPRFKL +sopped//SPT +sopping/S/SPN +soppy/RT/SP +soprano/SM/SPRN +Sopwith/M/SPW@ +sorbet/SM/SBT +Sorbonne/M/SBN +sorcerer/MS/SSR +sorceress/S/SSRS +sorcery/MS/SSR +Sorcha/M/SX +sordid/PY/STT +sordidness/SM/STTNS +sore/PYTGDRS/SR +sorehead/SM/SRHT +soreness/S/SRNS +Sorensen/M/SRNSN +Sorenson/M/SRNSN +sorghum/MS/SKM +sorority/MS/SRRT +sorrel/SM/SRL +Sorrentine/M/SRNTN +sorrily//SRL +sorriness/SM/SRNS +sorrow/GRDMS/SR +sorrower/M/SRW +sorrowful/YP/SRFL +sorrowfulness/SM/SRFLNS +sorry/PTSR/SR +sort/FSAGD/ST +sorta//ST +sortable//STBL +sorted/U/STT +sorter/MS/ST +sortie/MSD/ST +sortieing//STN +sort's//STS +sos//SS +SOS//SS +Sosa/M/SS +Sosanna/M/SSN +sot/SM/ST +Soto/M/ST +sottish//STX +sou/SMH/S +soubriquet's//SBRKTS +soufflé/MS/SFL +sough/DG/S +soughs//SS +sought/U/ST +soul/MDS/SL +soulful/YP/SLFL +soulfulness/MS/SLFLNS +soulless/Y/SLS +sound/AUD/SNT +soundboard/MS/SNTBT +sounder/U/SNT +sounders//SNTS +sounder's//SNTS +soundest//SNTST +sounding/AY/SNTN +soundings//SNTNS +sounding's//SNTNS +soundless/Y/SNTLS +soundly/U/SNTL +soundness/UMS/SNTNS +soundproof/GSD/SNTPRF +soundproofing/M/SNTPRFN +sound's//SNTS +sounds/A/SNTS +soundtrack/MS/SNTTRK +soup/GMDS/SP +soupçon/SM/SPN +Souphanouvong/M/SFNFNK +soupy/RT/SP +sour/TYDRPSG/S +source/ASDMG/SS +sourceless//SSLS +sourdough//ST +sourdoughs//STS +sourish//SRX +sourness/MS/SNS +sourpuss/MS/SPS +sous/DSG/SS +Sousa/M/SS +sousaphone/SM/SSFN +souse//SS +South/M/S@ +south/RDMG/S@ +Southampton/M/S@MPTN +southbound//S@BNT +Southeast/MS/S@ST +southeast/RZMS/S@ST +southeaster/YM/S@ST +southeastern//S@STN +southeastward/S/S@STWT +souther/MY/S@ +southerly/S/S@L +southern/PZSYR/S@N +southerner/M/S@N +Southerner/MS/S@N +southernisms//S@NSMS +southernmost//S@NMST +Southey/M/S@ +Southfield/M/S@FLT +southing/M/S@N +southland/M/S@LNT +southpaw/MS/S@P +souths//S@S +Souths//S@S +southward/S/S@WT +Southwest/MS/S@WST +southwest/RMSZ/S@WST +southwester/YM/S@WST +southwestern//S@WSTN +southwestward/S/S@WSTWT +souvenir/SM/SFN +sou'wester//SWST +sovereign/YMS/SFRN +sovereignty/MS/SFRKNT +soviet/MS/SFT +Soviet/S/SFT +sow/ADGS/S +sowbelly/M/SBL +sowens/M/SWNS +sower/DS/SW +Soweto/M/SWT +sown/A/SN +sox's//SKSS +soy/MS/S +soybean/MS/SBN +Soyinka/M/SYNK +Soyuz/M/SYS +Sp/M/SP +spa/MS/SP +Spaatz/M/SPTS +space/DSRGZMJ/SPS +spacecraft/MS/SPSKRFT +spaceflight/S/SPSFLT +spaceman/M/SPSMN +spacemen//SPSMN +spaceport/SM/SPSPT +spacer/M/SPS +spaceship/MS/SPSXP +spacesuit/MS/SPSST +spacewalk/GSMD/SPSWLK +Spacewar/M/SPSW +spacewoman//SPSWMN +spacewomen//SPSWMN +spacey//SPS +spacial//SPXL +spacier//SPS +spaciest//SPSST +spaciness//SPSNS +spacing/M/SPSN +spacious/PY/SPSS +spaciousness/SM/SPSSNS +Spackle//SPKL +spade/DSRGM/SPT +spadeful/SM/SPTFL +spader/M/SPT +spadework/SM/SPTWK +spadices//SPTSS +spadix/M/SPTKS +Spafford/M/SPFT +spaghetti/SM/SPKT +Spahn/M/SPN +Spain/M/SPN +spake//SPK +Spalding/M/SPLTN +Spam/M/SPM +Span//SPN +span/MS/SPN +spandex/MS/SPNTKS +spandrels//SPNTRLS +spangle/GMDS/SPNKL +Spanglish/S/SPNKLX +Spaniard/SM/SPNT +spaniel/SM/SPNL +spanielled//SPNLT +spanielling//SPNLN +Spanish/M/SPNX +spank/SRDJG/SPNK +spanker/M/SPNK +spanking/M/SPNKN +spanned/U/SPNT +spanner/SM/SPN +spanning//SPNN +spar/DRMGTS/SP +SPARC/M/SPK +SPARCstation/M/SPKSTXN +spare/PSY/SPR +spareness/MS/SPRNS +sparer/M/SPR +spareribs//SPRRBS +sparing/UY/SPRN +spark/SGMRD/SPK +sparker/M/SPK +sparkle/DRSGZ/SPKL +sparkler/M/SPKL +Sparkman/M/SPKMN +Sparks//SPKS +sparky/RT/SPK +sparling/SM/SPLN +sparred//SPRT +sparrer//SPR +sparring/U/SPRN +sparrow/MS/SPR +spars/TR/SPS +sparse/YP/SPS +sparseness/S/SPSNS +sparsity/S/SPST +Sparta/M/SPT +Spartacus/M/SPTKS +spartan//SPTN +Spartan/S/SPTN +spasm/GSDM/SPSM +spasmodic//SPSMTK +spasmodically//SPSMTKL +spastic/S/SPSTK +spat/MS/SPT +spate/SM/SPT +spathe/MS/SP@ +spatial/Y/SPXL +spatiality/M/SPXLT +spatted//SPTT +spatter/DGS/SPT +spatterdock/M/SPTTK +spatting//SPTN +spatula/SM/SPTL +spavin/DMS/SPFN +spawn/MRDSG/SPN +spawner/M/SPN +spay/DGS/SP +SPCA//SPK +speak/RBGZJS/SPK +speakable/U/SPKBL +speakeasy/SM/SPKS +speaker/M/SPK +Speaker's//SPKS +speakership/M/SPKXP +speaking/U/SPKN +spear/MRDGS/SP +spearer/M/SPR +spearfish/SDMG/SPFX +spearhead/GSDM/SPHT +spearmint/MS/SPMNT +Spears//SPS +spec/SM/SPK +spec'd//SPKT +special/SRYP/SPXL +specialism/MS/SPXLSM +specialist/MS/SPXLST +specialization/SM/SPXLSXN +specialize/GZDSR/SPXLS +specialized/U/SPXLST +specializing/U/SPXLSN +specialty/MS/SPXLT +specie/MS/SPS +specif//SPSF +specifiability//SPSFBLT +specifiable//SPSFBL +specifiably//SPSFBL +specific/SP/SPSFK +specifically//SPSFKL +specification/SM/SPSFKXN +specificity/S/SPSFST +specified/U/SPSFT +specifier/SM/SPSF +specifies//SPSFS +specify/AD/SPSF +specifying//SPSFYN +specimen/SM/SPSMN +spec'ing//SPKN +specious/YP/SPSS +speciousness/SM/SPSSNS +speck/GMDS/SPK +speckle/GMDS/SPKL +spectacle/MSD/SPKTKL +spectacular/SY/SPKTKL +spectator/SM/SPKTT +specter/DMS/SPKT +specter's/A/SPKTS +spectra/M/SPKTR +spectral/YP/SPKTRL +spectralness/M/SPKTRLNS +spectrogram/MS/SPKTRKRM +spectrograph/M/SPKTRKRF +spectrographically//SPKTRKRFKL +spectrography/M/SPKTRKRF +spectrometer/MS/SPKTRMT +spectrometric//SPKTRMTRK +spectrometry/M/SPKTRMTR +spectrophotometer/SM/SPKTRFTMT +spectrophotometric//SPKTRFTMTRK +spectrophotometry/M/SPKTRFTMTR +spectroscope/SM/SPKTRSKP +spectroscopic//SPKTRSKPK +spectroscopically//SPKTRSKPKL +spectroscopy/SM/SPKTRSKP +spectrum/M/SPKTRM +specular/Y/SPKL +specularity//SPKLRT +speculate/VNGSDX/SPKLT +speculation/M/SPKLXN +speculative/Y/SPKLTF +speculator/SM/SPKLT +sped//SPT +speech/GMDS/SPX +speechless/YP/SPXLS +speechlessness/SM/SPXLSNS +speed/RMJGZS/SPT +speedboat/GSRM/SPTBT +speedboating/M/SPTBTN +speeder/M/SPT +speedily//SPTL +speediness/SM/SPTNS +speedometer/MS/SPTMT +speedster/SM/SPTST +speedup/MS/SPTP +speedway/SM/SPTW +speedwell/MS/SPTWL +speedy/PTR/SPT +speer/M/SP +speleological//SPLLKKL +speleologist/S/SPLLKST +speleology/MS/SPLLK +spell/RDSJGZ/SPL +spellbind/SRGZ/SPLBNT +spellbinder/M/SPLBNT +spellbound//SPLBNT +spelldown/MS/SPLTN +spelled/A/SPLT +speller/M/SPL +spelling/M/SPLN +spells/A/SPLS +spelunker/MS/SPLNK +spelunking/S/SPLNKN +Spence/RM/SPNS +Spencer/M/SPNS +Spencerian//SPNSRN +spend/SBJRGZ/SPNT +spender/M/SPNT +spendthrift/MS/SPNT@RFT +Spengler/M/SPNKL +Spenglerian//SPNKLRN +Spense/MR/SPNS +Spenser/M/SPNS +Spenserian//SPNSRN +spent/U/SPNT +sperm/SM/SPM +spermatophyte/M/SPMTFT +spermatozoa//SPMTS +spermatozoon/M/SPMTSN +spermicidal//SPMSTL +spermicide/MS/SPMST +Sperry/M/SPR +spew/DRGZJS/SP +spewer/M/SPW +SPF//SPF +sphagnum/SM/SFKNM +sphere/SDGM/SFR +spheric/S/SFRK +spherical/Y/SFRKL +spherics/M/SFRKS +spheroid/SM/SFRT +spheroidal/Y/SFRTL +spherule/MS/SFRL +sphincter/SM/SFNKT +Sphinx/M/SFNKS +sphinx/MS/SFNKS +spic/DGM/SPK +Spica/M/SPK +spice/SM/SPS +spicebush/M/SPSBX +spicily//SPSL +spiciness/SM/SPSNS +spicule/MS/SPKL +spicy/PTR/SPS +spider/SM/SPT +spiderweb/S/SPTWB +spiderwort/M/SPTWT +spidery/TR/SPTR +Spiegel/M/SPKL +spiel/GDMS/SPL +Spielberg/M/SPLBK +spier/M/SP +spiffy/TDRSG/SPF +spigot/MS/SPKT +spike/GMDSR/SPK +Spike/M/SPK +spiker/M/SPK +spikiness/SM/SPKNS +spiky/PTR/SPK +spill/RDSG/SPL +spillage/SM/SPLK +Spillane/M/SPLN +spillover/SM/SPLF +spillway/SM/SPLW +spin/S/SPN +spinach/MS/SPNX +spinal/YS/SPNL +spindle/JGMDRS/SPNTL +spindly/RT/SPNTL +spine/MS/SPN +spineless/YP/SPNLS +spinelessness/M/SPNLSNS +spinet/SM/SPNT +spininess/M/SPNNS +spinnability/M/SPNBLT +spinnaker/SM/SPNK +spinner/SM/SPN +spinneret/MS/SPNRT +spinning/SM/SPNN +Spinoza/M/SPNS +spinster/MS/SPNST +spinsterhood/SM/SPNSTHT +spinsterish//SPNSTRX +spiny/PRT/SPN +spiracle/SM/SPRKL +spiraea's//SPRS +spiral/YDSG/SPRL +spire/AIDSGF/SPR +spirea/MS/SPR +spire's//SPRS +spirit/GMDS/SPRT +spirited/PY/SPRTT +spiritedness/M/SPRTTNS +spiritless//SPRTLS +spirits/I/SPRTS +spiritual/SYP/SPRTL +spiritualism/SM/SPRTLSM +spiritualist/SM/SPRTLST +spiritualistic//SPRTLSTK +spirituality/SM/SPRTLT +spirituous//SPRTS +Spiro/M/SPR +spirochete/SM/SPRXT +spiry/TR/SPR +spit/SGD/SPT +spitball/SM/SPTBL +spite/CSDAG/SPT +spiteful/PY/SPTFL +spitefuller//SPTFL +spitefullest//SPTFLST +spitefulness/MS/SPTFLNS +spite's/A/SPTS +spitfire/SM/SPTFR +spitted//SPTT +spitting//SPTN +spittle/SM/SPTL +spittoon/SM/SPTN +Spitz/M/SPTS +splash/GZDRS/SPLX +splashdown/MS/SPLXTN +splasher/M/SPLX +splashily//SPLXL +splashiness/MS/SPLXNS +splashy/RTP/SPLX +splat/SM/SPLT +splatted//SPLTT +splatter/DSG/SPLT +splatting//SPLTN +splay/SDG/SPL +splayfeet//SPLFT +splayfoot/MD/SPLFT +spleen/SM/SPLN +splendid/YRPT/SPLNTT +splendidness/M/SPLNTTNS +splendor/SM/SPLNT +splendorous//SPLNTRS +splenetic/S/SPLNTK +splice/RSDGZJ/SPLS +splicer/M/SPLS +spline/MSD/SPLN +splint/SGZMDR/SPLNT +splinter/GMD/SPLNT +splintery//SPLNTR +split/SM/SPLT +splits/M/SPLTS +splittable//SPLTBL +splitter/MS/SPLT +splitting/S/SPLTN +splodge/SM/SPLK +splotch/MSDG/SPLX +splotchy/RT/SPLX +splurge/GMDS/SPLK +splutter/RDSG/SPLT +splutterer/M/SPLTR +Spock/M/SPK +spoil/CSZGDR/SPL +spoilables//SPLBLS +spoilage/SM/SPLK +spoiled/U/SPLT +spoiler/MC/SPL +spoilsport/SM/SPLSPT +Spokane/M/SPKN +spoke/DSG/SPK +spoken/U/SPKN +spokeshave/MS/SPKXF +spokesman/M/SPKSMN +spokesmen//SPKSMN +spokespeople//SPKSPPL +spokesperson/S/SPKSPSN +spokeswoman/M/SPKSWMN +spokeswomen//SPKSWMN +spoliation/MCS/SPLXN +sponge/GMZRSD/SPNK +spongecake//SPNKKK +sponger/M/SPNK +sponginess/S/SPNKNS +spongy/TRP/SPNK +sponsor/DGMS/SPNS +sponsorship/S/SPNSXP +spontaneity/SM/SPNTNT +spontaneous/PY/SPNTNS +spontaneousness/M/SPNTNSNS +spoof/SMDG/SPF +spook/SMDG/SPK +spookiness/MS/SPKNS +spooky/PRT/SPK +spool/SRDMGZ/SPL +spoon/GSMD/SPN +spoonbill/SM/SPNBL +spoonerism/SM/SPNRSM +spoonful/MS/SPNFL +spoor/GSMD/SP +sporadic/Y/SPRTK +sporadically//SPRTKL +spore/DSGM/SPR +sporran/MS/SPRN +sport/VGSRDM/SPT +sportiness/SM/SPTNS +sporting/Y/SPTN +sportive/PY/SPTF +sportiveness/M/SPTFNS +sportscast/RSGZM/SPTSKST +sportsman/MY/SPTSMN +sportsmanlike/U/SPTSMNLK +sportsmanship/MS/SPTSMNXP +sportsmen//SPTSMN +sportswear/M/SPTSW +sportswoman/M/SPTSWMN +sportswomen//SPTSWMN +sportswriter/S/SPTSRT +sporty/PRT/SPT +Sposato/M/SPST +spot/MSC/SPT +spotless/YP/SPTLS +spotlessness/MS/SPTLSNS +spotlight/GDMS/SPTLT +spotlit//SPTLT +spotted/U/SPTT +spotter/MS/SPT +spottily//SPTL +spottiness/SM/SPTNS +spotting/M/SPTN +spotty/RTP/SPT +spousal/MS/SPSL +spouse/GMSD/SPS +spout/SGRD/SPT +spouter/M/SPT +sprain/SGD/SPRN +sprang/S/SPRNK +sprat/SM/SPRT +sprawl/GSD/SPRL +spray/GZSRDM/SPR +sprayed/UA/SPRYT +sprayer/M/SPRY +sprays/A/SPRS +spread/RSJGZB/SPRT +spreadeagled//SPRTKLT +spreader/M/SPRT +spreadsheet/S/SPRTXT +spree/MDS/SPR +spreeing//SPRN +sprig/MS/SPRK +sprigged//SPRKT +sprigging//SPRKN +sprightliness/MS/SPRTLNS +sprightly/PRT/SPRTL +spring/SGZR/SPRN +springboard/MS/SPRNBT +springbok/MS/SPRNBK +springeing//SPRNN +springer/M/SPRN +Springfield/M/SPRNFLT +springily//SPRNL +springiness/SM/SPRNNS +springing/M/SPRNN +springlike//SPRNLK +Springsteen/M/SPRNSTN +springtime/MS/SPRNTM +springy/TRP/SPRN +sprinkle/DRSJZG/SPRNKL +sprinkler/DM/SPRNKL +sprinkling/M/SPRNKLN +Sprint/M/SPRNT +sprint/SGZMDR/SPRNT +sprite/SM/SPRT +spritz/GZDSR/SPRTS +sprocket/DMGS/SPRKT +sprocketed/U/SPRKTT +Sproul/M/SPRL +sprout/GSD/SPRT +spruce/GMTYRSDP/SPRS +spruceness/SM/SPRSNS +sprue/M/SPR +sprung/U/SPRNK +spry/TRY/SPR +spryness/S/SPRNS +SPSS//SPS +spud/MS/SPT +spudded//SPTT +spudding//SPTN +Spuds/M/SPTS +spume/DSGM/SPM +spumone's//SPMNS +spumoni/S/SPMN +spumy/TR/SPM +spun//SPN +spunk/GSMD/SPNK +spunky/SRT/SPNK +spur/MS/SP +spurge/MS/SPK +spurious/PY/SPRS +spuriousness/SM/SPRSNS +spurn/RDSG/SPN +spurred//SPRT +spurring//SPRN +spurt/SGD/SPT +sputa//SPT +Sputnik//SPTNK +sputnik/MS/SPTNK +sputter/DRGS/SPT +sputum/M/SPTM +spy/DRSGM/SP +spyglass/MS/SPKLS +sq//SK +sqq//SKK +sqrt//SKRT +squab/SM/SKB +squabbed//SKBT +squabber//SKB +squabbest//SKBST +squabbing//SKBN +squabble/ZGDRS/SKBL +squabbler/M/SKBL +squad/SM/SKT +squadded//SKTT +squadding//SKTN +squadron/MDGS/SKTRN +squalid/PRYT/SKLT +squalidness/SM/SKLTNS +squall/GMRDS/SKL +squaller/M/SKL +squally/RT/SKL +squalor/SM/SKL +squamous/Y/SKMS +squander/GSRD/SKNT +Squanto//SKNT +square/GMTYRSDP/SKR +squareness/SM/SKRNS +squarer/M/SKR +Squaresville/M/SKRSFL +squarish//SKRX +squash/GSRD/SKX +squashiness/M/SKXNS +squashy/RTP/SKX +squat/SPY/SKT +squatness/MS/SKTNS +squatted//SKTT +squatter/SMDG/SKT +squattest//SKTST +squatting//SKTN +squaw/SM/SK +squawk/GRDMZS/SKK +squawker/M/SKK +squeak/RDMGZS/SKK +squeaker/M/SKK +squeakily//SKKL +squeakiness/S/SKKNS +squeaky/RPT/SKK +squeal/MRDSGZ/SKL +squealer/M/SKL +squeamish/YP/SKMX +squeamishness/SM/SKMXNS +squeegee/DSM/SKK +squeegeeing//SKKN +squeeze/GZSRDB/SKS +squeezer/M/SKS +squelch/GDRS/SKLX +squelcher/M/SKLX +squelchy/RT/SKLX +squib/SM/SKB +Squibb/GM/SKB +squibbed//SKBT +squibbing//SKBN +Squibbing/M/SKBN +squid/SM/SKT +squidded//SKTT +squidding//SKTN +squiggle/MGDS/SKKL +squiggly/RT/SKKL +squint/GTSRD/SKNT +squinter/M/SKNT +squinting/Y/SKNTN +squire/SDGM/SKR +squirehood//SKRHT +squirm/SGD/SKM +squirmy/TR/SKM +squirrel/SGYDM/SKRL +squirt/GSRD/SKT +squirter/M/SKT +squish/GSD/SKX +squishy/RTP/SKX +Sr//SR +Srinagar/M/SRNK +SRO//SR +SS//S +S's//SS +s's/KI/SS +SSA//S +SSE//S +ssh//X +SSS//S +SST//ST +SSW//S +ST//ST +st/GBJ/ST +St/M/ST +Sta/M/ST +stab/YS/STB +stabbed//STBT +stabber/S/STB +stabbing/S/STBN +stability/ISM/STBLT +stabilizability//STBLSBLT +stabilization/CS/STBLSXN +stabilization's//STBLSXNS +stabilize/CGSD/STBLS +stabilizer/MS/STBLS +stable/RSDGMTP/STBL +stableman/M/STBLMN +stablemate//STBLMT +stablemen//STBLMN +stableness/UM/STBLNS +stabler/U/STBL +stables/F/STBLS +stable's/F/STBLS +stablest/U/STBLST +stabling/M/STBLN +stably/U/STBL +staccato/S/STKT +Stace/M/STS +Stacee/M/STS +Stacey/M/STS +Staci/M/STS +Stacia/M/STX +Stacie/M/STS +stack/USDG/STK +stackable//STKBL +stacker/M/STK +stack's//STKS +Stacy/M/STS +stadias//STTS +stadia's//STTS +stadium/MS/STTM +Stael/M/STL +Stafani/M/STFN +staff/ADSG/STF +Staffard/M/STFT +staffer/MS/STF +Stafford/M/STFT +Staffordshire/M/STFTXR +staffroom//STFRM +staff's//STFS +Staford/M/STFT +stag/DRMJSGZ/STK +stage/SM/STK +stagecoach/MS/STKKX +stagecraft/MS/STKKRFT +stagehand/MS/STKHNT +stager/M/STK +stagestruck//STKSTRK +stagflation/SM/STKFLXN +stagged//STKT +stagger/GSJDR/STK +staggerer/M/STKR +staggering/Y/STKRN +staggers/M/STKS +stagging//STKN +staginess/M/STKNS +staging/M/STKN +stagnancy/SM/STKNNS +stagnant/Y/STKNNT +stagnate/NGDSX/STKNT +stagnation/M/STKNXN +stagy/PTR/STK +Stahl/M/STL +staid/YRTP/STT +staidness/MS/STTNS +stain/SGRD/STN +stained/U/STNT +stainer/M/STN +stainless/YS/STNLS +stair/MS/ST +staircase/SM/STKS +stairway/SM/STW +stairwell/MS/STWL +stake/DSGM/STK +stakeholder/S/STKHLT +stakeout/SM/STKT +stalactite/SM/STLKTT +stalag/M/STLK +stalagmite/SM/STLKMT +stale/PGYTDSR/STL +stalemate/SDMG/STLMT +staleness/MS/STLNS +Staley/M/STL +Stalin/SM/STLN +Stalingrad/M/STLNRT +Stalinist//STLNST +stalk/MRDSGZJ/STLK +stalker/M/STLK +stall/DMSJG/STL +stalled/I/STLT +stallholders//STLHLTS +stallion/SM/STLN +Stallone/M/STLN +stalls/I/STLS +stalwart/PYS/STLWT +stalwartness/M/STLWTNS +stamen/MS/STMN +Stamford/M/STMFT +stamina/SM/STMN +staminate//STMNT +stammer/DRSZG/STM +stammerer/M/STMR +stammering/Y/STMRN +stamp/RDSGZJ/STMP +stamped/U/STMPT +stampede/MGDRS/STMPT +stampeder/M/STMPT +stamper/M/STMP +Stan/YMS/STN +stance/MIS/STNS +stanch/GDRST/STNX +stancher/M/STNX +stanchion/SGMD/STNXN +stand/SJGZR/STNT +standalone//STNTLN +standard/YMS/STNTT +standardization/AMS/STNTTSXN +standardize/GZDSR/STNTTS +standardized/U/STNTTST +standardizer/M/STNTTS +standardizes/A/STNTTSS +standby//STNTB +standbys//STNTBS +standee/MS/STNT +Standford/M/STNTFT +standing/M/STNTN +Standish/M/STNTX +standoff/SM/STNTF +standoffish//STNTFX +standout/MS/STNTT +standpipe/MS/STNTPP +standpoint/SM/STNTPNT +standstill/SM/STNTSTL +Stanfield/M/STNFLT +Stanford/M/STNFT +Stanislas/M/STNSLS +Stanislaus/M/STNSLS +Stanislavsky/M/STNSLFSK +Stanislaw/M/STNSL +stank/S/STNK +Stanleigh/M/STNL +Stanley/M/STNL +Stanly/M/STNL +stannic//STNK +stannous//STNS +Stanton/M/STNTN +Stanwood/M/STNWT +stanza/MS/STNS +staph/M/STF +staphs//STFS +staphylococcal//STFLKKL +staphylococci//STFLKS +staphylococcus/M/STFLKKS +staple/ZRSDGM/STPL +stapled/U/STPLT +stapler/M/STPL +Stapleton/M/STPLTN +star/DRMGZS/ST +Star/M/ST +starboard/SDMG/STBT +starch/MDSG/STX +starchily//STXL +starchiness/MS/STXNS +starchy/TRP/STX +stardom/MS/STTM +stardust/MS/STTST +stare/S/STR +starfish/SM/STFX +Stargate/M/STKT +stargaze/ZGDRS/STKS +staring/U/STRN +Stark/M/STK +stark/SPGTYRD/STK +Starkey/M/STK +starkness/MS/STKNS +Starla/M/STL +Starlene/M/STLN +starless//STLS +starlet/MS/STLT +starlight/MS/STLT +Starlin/M/STLN +starling/MS/STLN +starlit//STLT +Starr/M/STR +starred//STRT +starring//STRN +starry/TR/STR +starship//STXP +starstruck//STSTRK +start/ASGDR/STT +starter/MS/STT +startle/GDS/STTL +startling/PY/STTLN +startup/SM/STTP +starvation/MS/STFXN +starve/RSDG/STF +starveling/M/STFLN +starver/M/STF +stash/GSD/STX +stasis/M/STSS +stat/DRSGV/STT +state/IGASD/STT +statecraft/MS/STTKRFT +stated/U/STTT +statehood/MS/STTHT +statehouse/S/STTHS +Statehouse's//STTHSS +stateless/P/STTLS +statelessness/MS/STTLSNS +stateliness/MS/STTLNS +stately/PRT/STTL +statement/MSA/STTMNT +Staten/M/STTN +stater/M/STT +stateroom/SM/STTRM +states/K/STTS +state's/K/STTS +stateside//STTST +statesman/MY/STTSMN +statesmanlike//STTSMNLK +statesmanship/SM/STTSMNXP +statesmen//STTSMN +stateswoman//STTSWMN +stateswomen//STTSWMN +statewide//STTWT +static/S/STTK +statical/Y/STTKL +statics/M/STTKS +station/SZGMDR/STXN +stationarity//STXNRT +stationary/S/STXNR +stationer/M/STXN +stationery/MS/STXNR +stationmaster/M/STXNMST +statistic/MS/STTSTK +statistical/Y/STTSTKL +statistician/MS/STTSTXN +Statler/M/STTL +stator/SM/STT +statuary/SM/STTR +statue/MSD/STT +statuesque/YP/STTSK +statuette/MS/STTT +stature/MS/STTR +status/SM/STTS +statute/SM/STTT +statutorily//STTTRL +statutory/P/STTTR +Stauffer/M/STF +staunch/PDRSYTG/STNX +staunchness/S/STNXNS +stave/DGM/STF +Stavro/MS/STFR +stay/DRGZS/ST +stayer/M/STY +std//STT +STD//STT +stdio//STT +Ste/M/ST +stead/SGDM/STT +steadfast/PY/STTFST +steadfastness/MS/STTFSTNS +steadily/U/STTL +steadiness/US/STTNS +steadiness's//STTNSS +steading/M/STTN +steady/DRSUTGP/STT +steak/SM/STK +steakhouse/SM/STKHS +steal/SRHG/STL +stealer/M/STL +stealing/M/STLN +stealth/M/STL@ +stealthily//STL@L +stealthiness/MS/STL@NS +stealths//STL@S +stealthy/PTR/STL@ +steam/SGZRDMJ/STM +steamboat/MS/STMBT +steamer/MDG/STM +steamfitter/S/STMFT +steamfitting/S/STMFTN +steamily//STML +steaminess/SM/STMNS +steamroll/GZRDS/STMRL +steamroller/DMG/STMRL +steamship/SM/STMXP +steamy/RSTP/STM +Stearn/SM/STN +Stearne/M/STN +steed/SM/STT +steel/SDMGZ/STL +Steele/M/STL +steeliness/SM/STLNS +steelmaker/M/STLMK +steelwork/ZSMR/STLWK +steelworker/M/STLWK +steely/TPRS/STL +steelyard/MS/STLYT +Steen/M/STN +steep/SYRNDPGTX/STP +steepen/GD/STPN +steeper/M/STP +steeple/MS/STPL +steeplebush/M/STPLBX +steeplechase/GMSD/STPLXS +steeplejack/MS/STPLKK +steepness/S/STPNS +steer/SGBRDJ/ST +steerage/MS/STRK +steerer/M/STR +steersman/M/STSMN +steersmen//STSMN +steeves//STFS +Stefa/M/STF +Stefan/M/STFN +Stefania/M/STFN +Stefanie/M/STFN +Stefano/M/STFN +Steffane/M/STFN +Steffen/M/STFN +Steffi/M/STF +Steffie/M/STF +stegosauri//STKSR +stegosaurus/S/STKSRS +Stein/RM/STN +stein/SGZMRD/STN +Steinbeck/SM/STNBK +Steinberg/M/STNBK +Steinem/M/STNM +Steiner/M/STN +Steinmetz/M/STNMTS +Steinway/M/STNW +Stella/M/STL +stellar//STL +stellated//STLTT +stem/MS/STM +stemless//STMLS +stemmed/U/STMT +stemming//STMN +stemware/MS/STMWR +stench/GMDS/STNX +stencil/GDRMSZ/STNSL +stenciler/M/STNSL +stencillings//STNSLNS +Stendhal/M/STNTHL +Stendler/M/STNTL +Stengel/M/STNKL +steno/SM/STN +stenographer/SM/STNKRF +stenographic//STNKRFK +stenography/SM/STNKRF +stenotype/M/STNTP +stentorian//STNTRN +step/MIS/STP +stepbrother/MS/STPBR@ +stepchild/M/STPXLT +stepchildren//STPXLTRN +stepdaughter/MS/STPTT +stepfather/SM/STPF@ +Stepha/M/STF +Stephan/M/STFN +Stephana/M/STFN +Stephani/M/STFN +Stephanie/M/STFN +Stephannie/M/STFN +Stephanus/M/STFNS +Stephen/MS/STFN +Stephenie/M/STFN +Stephenson/M/STFNSN +Stephi/M/STF +Stephie/M/STF +Stephine/M/STFN +stepladder/SM/STPLT +stepmother/SM/STPM@ +stepparent/SM/STPRNT +steppe/RSDGMZ/STP +stepper/M/STP +steppingstone/S/STPNSTN +stepsister/SM/STPSST +stepson/SM/STPSN +stepwise//STPWS +stereo/GSDM/STR +stereographic//STRKRFK +stereography/M/STRKRF +stereophonic//STRFNK +stereoscope/MS/STRSKP +stereoscopic//STRSKPK +stereoscopically//STRSKPKL +stereoscopy/M/STRSKP +stereotype/GMZDRS/STRTP +stereotypic//STRTPK +stereotypical/Y/STRTPKL +sterile//STRL +sterility/SM/STRLT +sterilization/SM/STRLSXN +sterilize/RSDGZ/STRLS +sterilized/U/STRLST +sterilizes/A/STRLSS +Sterling/M/STLN +sterling/MPYS/STLN +sterlingness/M/STLNNS +Stern/M/STN +stern/SYRDPGT/STN +sternal//STNL +Sternberg/M/STNBK +Sterne/M/STN +sternness/S/STNS +Sterno//STN +sternum/SM/STNM +steroid/MS/STRT +steroidal//STRTL +stertorous//STTRS +Stesha/M/STX +stet/MS/STT +stethoscope/SM/ST@SKP +stetson/MS/STTSN +Stetson/SM/STTSN +stetted//STTT +stetting//STTN +Steuben/M/STBN +Stevana/M/STFN +Steve/M/STF +stevedore/GMSD/STFTR +Steven/MS/STFN +Stevena/M/STFN +Stevenson/M/STFNSN +Stevie/M/STF +Stevy/M/STF +stew/GDMS/ST +steward/DMSG/STWT +Steward/M/STWT +stewardess/SM/STWTS +stewardship/MS/STWTXP +Stewart/M/STWT +stick/MRDSGZ/STK +sticker/M/STK +stickily//STKL +stickiness/SM/STKNS +stickle/GZDR/STKL +stickleback/MS/STKLBK +stickler/M/STKL +stickpin/SM/STKPN +stickup/SM/STKP +sticky/GPTDRS/STK +Stieglitz/M/STKLTS +stiff/GTXPSYRND/STF +stiffen/JZRDG/STFN +stiffness/MS/STFNS +stifle/GJRSD/STFL +stifler/M/STFL +stifling/Y/STFLN +stigma/MS/STKM +stigmata//STKMT +stigmatic/S/STKMTK +stigmatization/C/STKMTSXN +stigmatizations//STKMTSXNS +stigmatization's//STKMTSXNS +stigmatize/DSG/STKMTS +stigmatized/U/STKMTST +stile/GMDS/STL +stiletto/MDSG/STLT +still/RDIGS/STL +stillbirth/M/STLB@ +stillbirths//STLB@S +stillborn/S/STLBN +stiller/MI/STL +stillest//STLST +Stillman/M/STLMN +Stillmann/M/STLMN +stillness/MS/STLNS +Stillwell/M/STLWL +stilt/GDMS/STLT +stilted/PY/STLTT +Stilton/MS/STLTN +Stimson/M/STMSN +stimulant/MS/STMLNT +stimulate/SDVGNX/STMLT +stimulated/U/STMLTT +stimulation/M/STMLXN +stimulative/S/STMLTF +stimulator/M/STMLT +stimulatory//STMLTR +stimuli/M/STML +stimulus/MS/STMLS +Stine/M/STN +sting/GZR/STN +stinger/M/STN +stingily//STNL +stinginess/MS/STNNS +stinging/Y/STNN +stingray/MS/STNR +stingy/RTP/STN +stink/GZRJS/STNK +stinkbug/S/STNKBK +stinker/M/STNK +stinking/Y/STNKN +stinkpot/M/STNKPT +Stinky/M/STNK +stinky/RT/STNK +stint/JGRDMS/STNT +stinter/M/STNT +stinting/U/STNTN +stipend/MS/STPNT +stipendiary//STPNTR +stipple/JDRSG/STPL +stippler/M/STPL +stipulate/XNGSD/STPLT +stipulation/M/STPLXN +stir/S/ST +Stirling/M/STLN +stirred/U/STRT +stirrer/SM/STR +stirring/YS/STRN +stirrup/SM/STRP +stitch/ASDG/STX +stitcher/M/STX +stitchery/S/STXR +stitching/MS/STXN +stitch's//STXS +stoat/SM/STT +stochastic//STXSTK +stochastically//STXSTKL +stochasticity//STXSTST +stock/SGAD/STK +stockade/SDMG/STKT +stockbreeder/SM/STKBRT +stockbroker/MS/STKBRK +stockbroking/S/STKBRKN +stocker/SM/STK +Stockhausen/M/STKHSN +stockholder/SM/STKHLT +Stockholm/M/STKHLM +stockily//STKL +stockiness/SM/STKNS +stockinet's//STKNTS +stockinette/S/STKNT +stocking/MDS/STKN +stockist/MS/STKST +stockpile/GRSD/STKPL +stockpiler/M/STKPL +stockpot/MS/STKPT +stockroom/MS/STKRM +stock's//STKS +stocktaking/MS/STKTKN +Stockton/M/STKTN +stocky/PRT/STK +stockyard/SM/STKYT +Stoddard/M/STTT +stodge/M/STK +stodgily//STKL +stodginess/S/STKNS +stodgy/TRP/STK +stogy/SM/STK +stoic/MS/STK +Stoic/MS/STK +stoical/Y/STKL +stoichiometric//STXMTRK +stoichiometry/M/STXMTR +stoicism/SM/STSSM +Stoicism/SM/STSSM +stoke/DSRGZ/STK +stoker/M/STK +stokes/M/STKS +Stokes/M/STKS +STOL//STL +stole/MDS/STL +stolen//STLN +stolid/PTYR/STLT +stolidity/S/STLTT +stolidness/S/STLTNS +stolon/SM/STLN +stomach/RSDMZG/STMX +stomachache/MS/STMXX +stomacher/M/STMX +stomachs//STMXS +stomp/DSG/STMP +stone/DSRGM/STN +Stone/M/STN +stonecutter/SM/STNKT +Stonehenge/M/STNHNK +stoneless//STNLS +stonemason/MS/STNMSN +stoner/M/STN +stonewall/GDS/STNWL +stoneware/MS/STNWR +stonewashed//STNWXT +stonework/SM/STNWK +stonewort/M/STNWT +stonily//STNL +stoniness/MS/STNNS +stony/TPR/STN +stood//STT +stooge/SDGM/STK +stool/SDMG/STL +stoop/SDG/STP +stop/US/STP +stopcock/MS/STPKK +stopgap/SM/STPKP +stoplight/SM/STPLT +stopover/MS/STPF +stoppable/U/STPBL +stoppage/MS/STPK +Stoppard/M/STPT +stopped/U/STPT +stopper/GMDS/STP +stopping/M/STPN +stopple/GDSM/STPL +stop's//STPS +stops/M/STPS +stopwatch/SM/STPWX +storage/SM/STRK +store/ADSRG/STR +storefront/SM/STRFRNT +storehouse/MS/STRHS +storekeep/ZR/STRKP +storekeeper/M/STRKP +storeroom/SM/STRRM +store's//STRS +stork/SM/STK +Storm/M/STM +storm/SRDMGZ/STM +stormbound//STMBNT +stormer/M/STM +Stormi/M/STM +Stormie/M/STM +stormily//STML +storminess/S/STMNS +stormtroopers//STMTRPS +Stormy/M/STM +stormy/PTR/STM +story/GSDM/STR +storyboard/MDSG/STRBT +storybook/MS/STRBK +storyline//STRLN +storyteller/SM/STRTL +storytelling/MS/STRTLN +Stouffer/M/STF +stoup/SM/STP +Stout/M/STT +stout/STYRNP/STT +stouten/DG/STTN +stouthearted//ST@TT +stoutness/MS/STTNS +stove/DSRGM/STF +stovepipe/SM/STFPP +stover/M/STF +stow/GDS/ST +stowage/SM/STWK +stowaway/MS/STWW +Stowe/M/STW +Strabo/M/STRB +straddle/ZDRSG/STRTL +straddler/M/STRTL +Stradivari/SM/STRTFR +Stradivarius/M/STRTFRS +strafe/GRSD/STRF +strafer/M/STRF +straggle/GDRSZ/STRKL +straggly/RT/STRKL +straight/RNDYSTXGP/STRT +straightaway/S/STRTW +straightedge/MS/STRTK +straighten/ZGDR/STRTN +straightener/M/STRTN +straightforward/SYP/STRTFWT +straightforwardness/MS/STRTFWTNS +straightjacket's//STRTKKTS +straightness/MS/STRTNS +straightway/S/STRTW +strain/ASGZDR/STRN +strained/UF/STRNT +strainer/MA/STRN +straining/F/STRNN +strains/F/STRNS +strait/XTPSMGYDNR/STRT +straiten/DG/STRTN +straitjacket/GDMS/STRTKKT +straitlaced//STRTLST +straitness/M/STRTNS +strand/SDRG/STRNT +stranded/P/STRNTT +strange/PYZTR/STRNK +strangeness/SM/STRNKNS +stranger/GMD/STRNK +strangle/JDRSZG/STRNKL +stranglehold/MS/STRNKLHLT +strangles/M/STRNKLS +strangulate/NGSDX/STRNKLT +strangulation/M/STRNKLXN +strap/US/STRP +strapless/S/STRPLS +strapped/U/STRPT +strapping/S/STRPN +strap's//STRPS +Strasbourg/M/STRSBK +strata/MS/STRT +stratagem/SM/STRTKM +strategic/S/STRTKK +strategical/Y/STRTKKL +strategics/M/STRTKKS +strategist/SM/STRTKST +strategy/SM/STRTK +Stratford/M/STRTFT +strati//STRT +stratification/M/STRTFKXN +stratified/U/STRTFT +stratify/NSDGX/STRTF +stratigraphic//STRTKRFK +stratigraphical//STRTKRFKL +stratigraphy/M/STRTKRF +stratosphere/SM/STRTSFR +stratospheric//STRTSFRK +stratospherically//STRTSFRKL +stratum/M/STRTM +stratus/M/STRTS +Strauss//STRS +Stravinsky/M/STRFNSK +straw/SMDG/STR +strawberry/SM/STRBR +strawflower/SM/STRFLW +stray/GSRDM/STR +strayer/M/STRY +streak/DRMSGZ/STRK +streaker/M/STRK +streaky/TR/STRK +stream/GZSMDR/STRM +streamed/U/STRMT +streamer/M/STRM +streaming/M/STRMN +streamline/SRDGM/STRMLN +street/SMZ/STRT +streetcar/MS/STRTK +streetlight/SM/STRTLT +streetwalker/MS/STRTWLK +streetwise//STRTWS +Streisand/M/STRSNT +strength/NMX/STRNK@ +strengthen/AGDS/STRNK@N +strengthener/MS/STRNK@N +strengths//STRNK@S +strenuous/PY/STRNS +strenuousness/SM/STRNSNS +strep/MS/STRP +streptococcal//STRPTKKL +streptococci//STRPTKS +streptococcus/M/STRPTKKS +streptomycin/SM/STRPTMSN +stress/DSMG/STRS +stressed/U/STRST +stressful/YP/STRSFL +stretch/BDRSZG/STRX +stretchability/M/STRXBLT +stretchable/U/STRXBL +stretcher/DMG/STRX +stretchy/TRP/STRX +strew/GDHS/STR +strewn//STRN +stria/M/STR +striae//STR +striate/DSXGN/STRT +striated/U/STRTT +striation/M/STRXN +stricken//STRKN +Strickland/M/STRKLNT +strict/AF/STRKT +stricter//STRKT +strictest//STRKTST +strictly//STRKTL +strictness/S/STRKTNS +stricture/SM/STRKTR +stridden//STRTN +stride/RSGM/STRT +stridency/S/STRTNS +strident/Y/STRTNT +strider/M/STRT +strife/SM/STRF +strike/RSGZJ/STRK +strikebreak/ZGR/STRKBRK +strikebreaker/M/STRKBRK +strikebreaking/M/STRKBRKN +strikeout/S/STRKT +striker/M/STRK +striking/Y/STRKN +Strindberg/M/STRNTBK +string/SAG/STRN +stringed//STRNT +stringency/S/STRNNS +stringent/Y/STRNNT +stringer/MS/STRN +stringiness/SM/STRNNS +stringing/M/STRNN +string's//STRNS +stringy/RTP/STRN +strip/GRDMS/STRP +stripe/SM/STRP +striper/M/STRP +stripling/M/STRPLN +stripped/U/STRPT +stripper/MS/STRP +stripping//STRPN +striptease/SRDGZM/STRPTS +stripteaser/M/STRPTS +stripy/RT/STRP +strive/JRSG/STRF +striven//STRFN +striver/M/STRF +strobe/SDGM/STRB +stroboscope/SM/STRBSKP +stroboscopic//STRBSKPK +strode//STRT +stroke/ZRSDGM/STRK +stroking/M/STRKN +stroll/GZSDR/STRL +stroller/M/STRL +Strom/M/STRM +Stromberg/M/STRMBK +Stromboli/M/STRMBL +Strong/M/STRNK +strong/YRT/STRNK +strongbow//STRNKB +strongbox/MS/STRNKBKS +Strongheart/M/STRNKT +stronghold/SM/STRNKLT +strongish//STRNKX +strongman/M/STRNKMN +strongmen//STRNKMN +strongroom/MS/STRNKRM +strontium/SM/STRNTM +strop/SM/STRP +strophe/MS/STRF +strophic//STRFK +stropped//STRPT +stropping//STRPN +strove//STRF +struck//STRK +structural/Y/STRKTRL +structuralism/M/STRKTRLSM +structuralist/SM/STRKTRLST +structure/SRDMG/STRKTR +structured/AU/STRKTRT +structureless//STRKTRLS +structures/A/STRKTRS +structuring/A/STRKTRN +strudel/MS/STRTL +struggle/GDRS/STRKL +struggler/M/STRKL +strum/S/STRM +strummed//STRMT +strumming//STRMN +strumpet/GSDM/STRMPT +strung/UA/STRNK +strut/S/STRT +strutted//STRTT +strutter/M/STRT +strutting//STRTN +strychnine/MS/STRXNN +Stu/M/ST +Stuart/MS/STT +stub/MS/STB +stubbed/M/STBT +stubbing//STBN +stubble/SM/STBL +Stubblefield/MS/STBLFLT +stubbly/RT/STBL +stubborn/SGTYRDP/STBN +stubbornness/SM/STBNS +stubby/SRT/STB +stucco/GDM/STK +stuccoes//STKS +stuck/U/STK +stud/MS/STT +studbook/SM/STTBK +studded//STTT +studding/SM/STTN +Studebaker/M/STTBK +student/SM/STTNT +studentship/MS/STTNTXP +studied/PY/STTT +studiedness/M/STTTNS +studier/SM/STT +studio/MS/STT +studious/PY/STTS +studiousness/SM/STTSNS +study/AGDS/STT +stuff/JGSRD/STF +stuffily//STFL +stuffiness/SM/STFNS +stuffing/M/STFN +stuffy/TRP/STF +stultify/NXGSD/STLTF +stumble/GZDSR/STMBL +stumbling/Y/STMBLN +stump/RDMSG/STMP +stumpage/M/STMPK +stumper/M/STMP +stumpy/RT/STMP +stun/S/STN +stung//STNK +stunk//STNK +stunned//STNT +stunner/M/STN +stunning/Y/STNN +stunt/GSDM/STNT +stunted/P/STNTT +stupefaction/SM/STPFKXN +stupefy/DSG/STPF +stupendous/PY/STPNTS +stupendousness/M/STPNTSNS +stupid/PTYRS/STPT +stupidity/SM/STPTT +stupidness/M/STPTNS +stupor/MS/STP +sturdily//STTL +sturdiness/SM/STTNS +sturdy/SRPT/STT +sturgeon/SM/STKN +Sturm/M/STM +stutter/DRSZG/STT +Stuttgart/M/STTKT +Stuyvesant/M/STFSNT +sty/DSGM/ST +Stygian//STKN +style/GZMDSR/STL +styled/A/STLT +styles/A/STLS +styli//STL +styling/A/STLN +stylish/PY/STLX +stylishness/S/STLXNS +stylist/MS/STLST +stylistic/S/STLSTK +stylistically//STLSTKL +stylites//STLTS +stylization/MS/STLSXN +stylize/DSG/STLS +stylos//STLS +stylus/SM/STLS +stymie/SD/STM +stymieing//STMN +stymy's//STMS +styptic/S/STPTK +styrene/MS/STRN +Styrofoam/S/STRFM +Styx/M/STKS +suable//SBL +Suarez/M/SRS +suasion/EMS/SXN +suave/PRYT/SF +suaveness/S/SFNS +suavity/SM/SFT +sub/MS/SB +subaltern/SM/SBLTN +subarctic/S/SBKTK +subareas//SBRS +Subaru/M/SBR +subassembly/M/SBSMBL +subatomic/S/SBTMK +subbasement/SM/SBSMNT +subbed//SBT +subbing//SBN +subbranch/S/SBRNX +subcaste/M/SBKST +subcategorizing//SBKTKRSN +subcategory/SM/SBKTKR +subchain//SBXN +subclass/MS/SBKLS +subclassifications//SBKLSFKXNS +subclauses//SBKLSS +subcommand/S/SBKMNT +subcommittee/SM/SBKMT +subcompact/S/SBKMPKT +subcomponent/MS/SBKMPNNT +subcomputation/MS/SBKMPTXN +subconcept//SBKNSPT +subconscious/PSY/SBKNSS +subconsciousness/SM/SBKNSSNS +subconstituent//SBKNSTTNT +subcontinent/MS/SBKNTNNT +subcontinental//SBKNTNNTL +subcontract/SMDG/SBKNTRKT +subcontractor/SM/SBKNTRKT +subcultural//SBKLTRL +subculture/GMDS/SBKLTR +subcutaneous/Y/SBKTNS +subdirectory/S/SBTRKTR +subdistrict/M/SBTSTRKT +subdivide/SRDG/SBTFT +subdivision/SM/SBTFXN +subdue/GRSD/SBT +subdued/Y/SBTT +subduer/M/SBT +subexpression/MS/SBKSPRXN +subfamily/SM/SBFML +subfield/MS/SBFLT +subfile/SM/SBFL +subfreezing//SBFRSN +subgoal/SM/SBKL +subgraph//SBKRF +subgraphs//SBKRFS +subgroup/SGM/SBKRP +subharmonic/S/SBHMNK +subhead/MGJS/SBHT +subheading/M/SBHTN +subhuman/S/SBHMN +subindex/M/SBNTKS +subinterval/MS/SBNTFL +subj//SBK +subject/GVDMS/SBKKT +subjection/SM/SBKKXN +subjective/PSY/SBKKTF +subjectiveness/M/SBKKTFNS +subjectivist/S/SBKKTFST +subjectivity/SM/SBKKTFT +subjoin/DSG/SBKN +subjugate/NGXSD/SBKKT +subjugation/M/SBKKXN +subjunctive/S/SBKNKTF +sublayer//SBLY +sublease/DSMG/SBLS +sublet/S/SBLT +subletting//SBLTN +sublimate/GNSDX/SBLMT +sublimation/M/SBLMXN +sublime/GRSDTYP/SBLM +sublimeness/M/SBLMNS +sublimer/M/SBLM +subliminal/Y/SBLMNL +sublimity/SM/SBLMT +sublist/SM/SBLST +subliterary//SBLTRR +sublunary//SBLNR +submachine//SBMXN +submarginal//SBMKNL +submarine/MZGSRD/SBMRN +submariner/M/SBMRN +submerge/DSG/SBMK +submergence/SM/SBMKNS +submerse/XNGDS/SBMS +submersible/S/SBMSBL +submersion/M/SBMXN +submicroscopic//SBMKRSKPK +submission/SAM/SBMXN +submissive/PY/SBMSF +submissiveness/MS/SBMSFNS +submit/SA/SBMT +submittable//SBMTBL +submittal//SBMTL +submitted/A/SBMTT +submitter/S/SBMT +submitting/A/SBMTN +submode/S/SBMT +submodule/MS/SBMTL +subnational//SBNXNL +subnet/SM/SBNT +subnetwork/SM/SBNTWK +subnormal/SY/SBNML +suboptimal//SBPTML +suborbital//SBBTL +suborder/MS/SBT +subordinate/YVNGXPSD/SBTNT +subordinately/I/SBTNTL +subordinates/I/SBTNTS +subordination/IMS/SBTNXN +subordinator//SBTNT +suborn/GSD/SBN +subornation/SM/SBNXN +subpage//SBPK +subparagraph/M/SBPRKRF +subpart/MS/SBPT +subplot/MS/SBPLT +subpoena/GSDM/SBPN +subpopulation/MS/SBPPLXN +subproblem/SM/SBPRBLM +subprocess/SM/SBPRSS +subprofessional/S/SBPRFXNL +subprogram/SM/SBPRKRM +subproject//SBPRKKT +subproof/SM/SBPRF +subquestion/MS/SBKSXN +subrange/SM/SBRNK +subregion/MS/SBRKN +subregional/Y/SBRKNL +subrogation/M/SBRKXN +subroutine/SM/SBRTN +subsample/MS/SBSMPL +subschema/MS/SBSKM +subscribe/ASDG/SBSKRB +subscriber/SM/SBSKRB +subscript/SGD/SBSKRPT +subscripted/U/SBSKRPTT +subscription/MS/SBSKRPXN +subsection/SM/SBSKXN +subsegment/SM/SBSKMNT +subsentence//SBSNTNS +subsequence/MS/SBSKNS +subsequent/SYP/SBSKNT +subservience/SM/SBSFNS +subservient/SY/SBSFNT +subset/MS/SBST +subside/SDG/SBST +subsidence/MS/SBSTNS +subsidiarity//SBSTRT +subsidiary/MS/SBSTR +subsidization/MS/SBSTSXN +subsidize/ZRSDG/SBSTS +subsidized/U/SBSTST +subsidizer/M/SBSTS +subsidy/MS/SBST +subsist/SGD/SBSST +subsistence/MS/SBSSTNS +subsistent//SBSSTNT +subsocietal//SBSSTL +subsoil/DRMSG/SBSL +subsonic//SBSNK +subspace/MS/SBSPS +subspecies/M/SBSPSS +substance/MS/SBSTNS +substandard//SBSTNTT +substantial/PYS/SBSTNXL +substantially/IU/SBSTNXL +substantialness/M/SBSTNXLNS +substantiate/VGNSDX/SBSTNXT +substantiated/U/SBSTNXTT +substantiation/MFS/SBSTNXXN +substantive/PSYM/SBSTNTF +substantiveness/M/SBSTNTFNS +substantivity//SBSTNTFT +substation/MS/SBSTXN +substerilization//SBSTRLSXN +substitutability//SBSTTTBLT +substitute/NGVBXDRS/SBSTTT +substituted/U/SBSTTTT +substitution/M/SBSTTXN +substitutionary//SBSTTXNR +substitutive/Y/SBSTTTF +substrata//SBSTRT +substrate/MS/SBSTRT +substratum/M/SBSTRTM +substring/S/SBSTRN +substructure/SM/SBSTRKTR +subsume/SDG/SBSM +subsurface/S/SBSFS +subsystem/MS/SBSSTM +subtable/S/SBTBL +subtask/SM/SBTSK +subteen/SM/SBTN +subtenancy/MS/SBTNNS +subtenant/SM/SBTNNT +subtend/DS/SBTNT +subterfuge/SM/SBTFK +subterranean/SY/SBTRNN +subtest//SBTST +subtext/SM/SBTKST +subtitle/DSMG/SBTTL +subtle/RPT/SBTL +subtleness/M/SBTLNS +subtlety/MS/SBTLT +subtly/U/SBTL +subtopic/SM/SBTPK +subtotal/GSDM/SBTTL +subtract/SRDZVG/SBTRKT +subtracter/M/SBTRKT +subtraction/MS/SBTRKXN +subtrahend/SM/SBTRHNT +subtree/SM/SBTR +subtropic/S/SBTRPK +subtropical//SBTRPKL +subtype/MS/SBTP +subunit/SM/SBNT +suburb/MS/SBB +suburban/S/SBBN +suburbanite/MS/SBBNT +suburbanization/MS/SBBNSXN +suburbanized//SBBNST +suburbanizing//SBBNSN +suburbia/SM/SBB +subvention/MS/SBFNXN +subversion/SM/SBFXN +subversive/SPY/SBFSF +subversiveness/MS/SBFSFNS +subvert/SGDR/SBFT +subverter/M/SBFT +subway/MDGS/SBW +subzero//SBSR +succeed/GDRS/SST +succeeder/M/SST +success/MSV/SSS +successful/UY/SSSFL +successfulness/M/SSSFLNS +succession/SM/SSXN +successive/YP/SSSF +successiveness/M/SSSFNS +successor/MS/SSS +successorship//SSSXP +succinct/RYPT/SSNKT +succinctness/SM/SSNKTNS +succor/SGZRDM/SK +succored/U/SKRT +succorer/M/SKR +succotash/SM/SKTX +succubus/M/SKBS +succulence/SM/SKLNS +succulency/MS/SKLNS +succulent/S/SKLNT +succumb/SDG/SKM +such//SX +suchlike//SXLK +suck/GZSDRB/SK +sucker/DMG/SK +suckle/SDJG/SKL +suckling/M/SKLN +Sucre/M/SKR +sucrose/MS/SKRS +suction/SMGD/SKXN +sud/S/ST +Sudan/M/STN +Sudanese/M/STNS +Sudanic/M/STNK +sudden/YPS/STN +suddenness/SM/STNS +Sudetenland/M/STTNLNT +suds/DSRG/STS +sudsy/TR/STS +Sue/M/S +sue/ZGDRS/S +sued/DG/ST +suede/SM/ST +Suellen/M/SLN +suer/M/S +suet/MS/ST +Suetonius/M/STNS +suety//ST +Suez/M/SS +suffer/SJRDGZ/SF +sufferance/SM/SFRNS +sufferer/M/SFR +suffering/M/SFRN +suffice/GRSD/SFS +sufficiency/SIM/SFSNS +sufficient/IY/SFSNT +suffix/GMRSD/SFKS +suffixation/S/SFKSXN +suffixed/U/SFKST +suffocate/XSDVGN/SFKT +suffocating/Y/SFKTN +Suffolk/M/SFLK +suffragan/S/SFRKN +suffrage/MS/SFRK +suffragette/MS/SFRKT +suffragist/SM/SFRKST +suffuse/VNGSDX/SFS +suffusion/M/SFXN +Sufi/M/SF +Sufism/M/SFSM +sugar/SJGMD/SK +sugarcane/S/SKKN +sugarcoat/GDS/SKKT +sugarless//SKLS +sugarplum/MS/SKPLM +sugary/TR/SKR +suggest/DRZGVS/SKST +suggester/M/SKST +suggestibility/SM/SKSTBLT +suggestible//SKSTBL +suggestion/MS/SKSXN +suggestive/PY/SKSTF +suggestiveness/MS/SKSTFNS +sugillate//SKLT +Suharto/M/SHT +Sui/M/S +suicidal/Y/SSTL +suicide/GSDM/SST +suit/MDGZBJS/ST +suitability/SU/STBLT +suitable/P/STBL +suitableness/S/STBLNS +suitably/U/STBL +suitcase/MS/STKS +suite/SM/ST +suited/U/STT +suiting/M/STN +suitor/SM/ST +Sukarno/M/SKN +Sukey/M/SK +Suki/M/SK +sukiyaki/SM/SKYK +Sukkot/S/SKT +Sukkoth's//SK@S +Sula/M/SL +Sulawesi/M/SLWS +Suleiman/M/SLMN +sulfa/S/SLF +sulfaquinoxaline//SLFKNKSLN +sulfate/MSDG/SLFT +sulfide/S/SLFT +sulfite/M/SLFT +sulfonamide/SM/SLFNMT +sulfur/DMSG/SLF +sulfuric//SLFRK +sulfurous/YP/SLFRS +sulfurousness/M/SLFRSNS +sulk/GDS/SLK +sulkily//SLKL +sulkiness/S/SLKNS +sulky/RSPT/SLK +Sulla/M/SL +sullen/TYRP/SLN +sullenness/MS/SLNS +sullied/U/SLT +Sullivan/M/SLFN +sully/GSD/SL +Sully/M/SL +sulphate/SM/SLFT +sulphide/MS/SLFT +sulphuric//SLFRK +sultan/SM/SLTN +sultana/SM/SLTN +sultanate/MS/SLTNT +sultrily//SLTRL +sultriness/SM/SLTRNS +sultry/PRT/SLTR +Sulzberger/M/SLSBK +sum/MRS/SM +sumac/SM/SMK +sumach's//SMXS +Sumatra/M/SMTR +Sumatran/S/SMTRN +sumer/F/SM +Sumeria/M/SMR +Sumerian/M/SMRN +summability/M/SMBLT +summable//SMBL +summand/MS/SMNT +summarily//SMRL +summarization/MS/SMRSXN +summarize/GSRDZ/SMRS +summarized/U/SMRST +summarizer/M/SMRS +summary/MS/SMR +summation/FMS/SMXN +summed//SMT +summer/SGDM/SM +Summer/SM/SM +Summerdale/M/SMTL +summerhouse/MS/SMHS +summertime/MS/SMTM +summery/TR/SMR +summing//SMN +summit/GMDS/SMT +summitry/MS/SMTR +summon/JSRDGZ/SMN +summoner/M/SMN +summons/MSDG/SMNS +Sumner/M/SMN +sumo/SM/SM +sump/SM/SMP +sumptuous/PY/SMPTS +sumptuousness/SM/SMPTSNS +Sumter/M/SMT +Sun//SN +sun/MS/SN +sunbaked//SNBKT +sunbath/ZRSDG/SNB@ +sunbathe//SNB@ +sunbather/M/SNB@ +sunbathing/M/SNB@N +sunbaths//SNB@S +sunbeam/MS/SNBM +Sunbelt/M/SNBLT +sunblock/S/SNBLK +sunbonnet/MS/SNBNT +sunburn/GSMD/SNBN +sunburst/MS/SNBST +suncream//SNKRM +sundae/MS/SNT +Sundanese/M/SNTNS +Sundas//SNTS +Sunday/MS/SNT +sunder/SDG/SNT +sundial/MS/SNTL +sundown/MRDSZG/SNTN +sundowner/M/SNTN +sundris//SNTRS +sundry/S/SNTR +sunfish/SM/SNFX +sunflower/MS/SNFLW +Sung/M/SNK +sung/U/SNK +sunglass/MS/SNKLS +sunk/SN/SNK +sunlamp/S/SNLMP +sunless//SNLS +sunlight/MS/SNLT +sunlit//SNLT +sunned//SNT +Sunni/MS/SN +sunniness/SM/SNNS +sunning//SNN +Sunnite/SM/SNT +Sunny/M/SN +sunny/RSTP/SN +Sunnyvale/M/SNFL +sunrise/GMS/SNRS +sunroof/S/SNRF +sunscreen/S/SNSKRN +sunset/MS/SNST +sunsetting//SNSTN +sunshade/MS/SNXT +Sunshine/M/SNXN +sunshine/MS/SNXN +sunshiny//SNXN +sunspot/SM/SNSPT +sunstroke/MS/SNSTRK +suntan/SM/SNTN +suntanned//SNTNT +suntanning//SNTNN +sunup/MS/SNP +sup/RSZ/SP +super/DG/SP +superabundance/MS/SPRBNTNS +superabundant//SPRBNTNT +superannuate/GNXSD/SPRNT +superannuation/M/SPRNXN +superb/YRPT/SPB +superbness/M/SPBNS +supercargo/M/SPKK +supercargoes//SPKKS +supercharge/SRDZG/SPXK +supercharger/M/SPXK +supercilious/PY/SPSLS +superciliousness/SM/SPSLSNS +supercity/S/SPST +superclass/M/SPKLS +supercomputer/MS/SPKMPT +supercomputing//SPKMPTN +superconcept//SPKNSPT +superconducting//SPKNTKTN +superconductivity/SM/SPKNTKTFT +superconductor/SM/SPKNTKT +supercooled//SPKLT +supercooling//SPKLN +supercritical//SPKRTKL +superdense//SPTNS +superego/SM/SPRK +supererogation/MS/SPRRKXN +supererogatory//SPRRKTR +superficial/SPY/SPFXL +superficiality/S/SPFXLT +superfine//SPFN +superfix/M/SPFKS +superfluity/MS/SPFLT +superfluous/YP/SPFLS +superfluousness/S/SPFLSNS +superheat/D/SPHT +superhero/SM/SPHR +superheroes//SPHRS +superhighway/MS/SPHW +superhuman/YP/SPHMN +superhumanness/M/SPHMNS +superimpose/SDG/SPRMPS +superimposition/MS/SPRMPSXN +superintend/GSD/SPRNTNT +superintendence/S/SPRNTNTNS +superintendency/SM/SPRNTNTNS +superintendent/SM/SPRNTNTNT +Superior/M/SPR +superior/SMY/SPR +superiority/MS/SPRRT +superlative/PYS/SPLTF +superlativeness/M/SPLTFNS +superlunary//SPLNR +supermachine//SPMXN +superman/M/SPMN +Superman/M/SPMN +supermarket/SM/SPMKT +supermen//SPMN +supermodel//SPMTL +supermom/S/SPMM +supernal//SPNL +supernatant//SPNTNT +supernatural/SPY/SPNTRL +supernaturalism/M/SPNTRLSM +supernaturalness/M/SPNTRLNS +supernormal/Y/SPNML +supernova/MS/SPNF +supernovae//SPNF +supernumerary/S/SPNMRR +superordinate//SPRTNT +superpose/BSDG/SPPS +superposition/MS/SPPSXN +superpower/MS/SPPW +superpredicate//SPPRTKT +supersaturate/XNGDS/SPSTRT +supersaturation/M/SPSTRXN +superscribe/GSD/SPSKRB +superscript/DGS/SPSKRPT +superscription/SM/SPSKRPXN +supersede/SRDG/SPST +superseder/M/SPST +supersensitive/P/SPSNSTF +supersensitiveness/M/SPSNSTFNS +superset/MS/SPST +supersonic/S/SPSNK +supersonically//SPSNKL +supersonics/M/SPSNKS +superstar/SM/SPST +superstition/SM/SPSTXN +superstitious/YP/SPSTXS +superstore/S/SPSTR +superstructural//SPSTRKTRL +superstructure/SM/SPSTRKTR +supertanker/SM/SPTNK +supertitle/MSDG/SPTTL +superuser/MS/SPRS +supervene/GSD/SPFN +supervention/S/SPFNXN +supervise/SDGNX/SPFS +supervised/U/SPFST +supervision/M/SPFXN +supervisor/SM/SPFS +supervisory//SPFSR +superwoman/M/SPWMN +superwomen//SPWMN +supine/PSY/SPN +supineness/M/SPNNS +supp/YDRGZ/SP +supper/DMG/SP +suppl/RDGT/SPL +supplant/SGRD/SPLNT +supplanter/M/SPLNT +supple/SPLY/SPL +supplement/SMDRG/SPLMNT +supplemental/S/SPLMNTL +supplementary/S/SPLMNTR +supplementation/S/SPLMNTXN +supplementer/M/SPLMNT +suppleness/SM/SPLNS +suppliant/S/SPLNT +supplicant/MS/SPLKNT +supplicate/NGXSD/SPLKT +supplication/M/SPLKXN +supplier/AM/SPL +supply/MAZGSRD/SPL +support/ZGVSBDR/SPT +supportability/M/SPTBLT +supportable/UI/SPTBL +supported/U/SPTT +supporter/M/SPT +supporting/Y/SPTN +supportive/Y/SPTF +suppose/SRDBJG/SPS +supposed/Y/SPST +supposition/MS/SPSXN +suppository/MS/SPSTR +suppress/VGSD/SPRS +suppressant/S/SPRSNT +suppressed/U/SPRST +suppressible/I/SPRSBL +suppression/SM/SPRXN +suppressive/P/SPRSF +suppressor/S/SPRS +suppurate/NGXSD/SPRT +suppuration/M/SPRXN +supra//SPR +supranational//SPRNXNL +supranationalism/M/SPRNXNLSM +suprasegmental//SPRSKMNTL +supremacist/SM/SPRMSST +supremacy/SM/SPRMS +supremal//SPRML +supreme/PSRTY/SPRM +supremeness/M/SPRMNS +supremo/M/SPRM +supt//SPT +Supt/M/SPT +Surabaya/M/SRBY +Surat/M/SRT +surcease/DSMG/SSS +surcharge/MGSD/SXK +surcingle/MGSD/SSNL +surd/M/ST +sure/PU/SR +sured/I/SRT +surefire//SRFR +surefooted//SRFTT +surely//SRL +sureness/MS/SRNS +sureness's/U/SRNSS +surer/I/SR +surest//SRST +surety/SM/SRT +surf/SJDRGMZ/SF +surface/GSRDPZM/SFS +surfaced/UA/SFST +surfacer/AMS/SFS +surfaces/A/SFSS +surfacing/A/SFSN +surfactant/SM/SFKTNT +surfboard/MDSG/SFBT +surfeit/SDRMG/SFT +surfer/M/SF +surfing/M/SFN +surge/GYMDS/SK +surged/A/SKT +surgeon/MS/SKN +surgery/MS/SKR +surges/A/SKS +surgical/Y/SKKL +Suriname//SRNM +Surinamese//SRNMS +Surinam's//SRNMS +surliness/SM/SLNS +surly/TPR/SL +surmise/SRDG/SMS +surmiser/M/SMS +surmount/DBSG/SMNT +surmountable/IU/SMNTBL +surname/GSDM/SNM +surpass/GDS/SPS +surpassed/U/SPST +surpassing/Y/SPSN +surplice/SM/SPLS +surplus/MS/SPLS +surplussed//SPLST +surplussing//SPLSN +surprise/MGDRSJ/SPRS +surprised/U/SPRST +surpriser/M/SPRS +surprising/YU/SPRSN +surreal/S/SRL +surrealism/MS/SRLSM +surrealist/S/SRLST +surrealistic//SRLSTK +surrealistically//SRLSTKL +surreality//SRLT +surrender/DRSG/SRNT +surrenderer/M/SRNTR +surreptitious/PY/SRPTXS +surreptitiousness/S/SRPTXSNS +surrey/SM/SR +surrogacy/S/SRKS +surrogate/SDMNG/SRKT +surrogation/M/SRKXN +surround/JGSD/SRNT +surrounding/M/SRNTN +surtax/SDGM/STKS +surveillance/SM/SFLNS +surveillant//SFLNT +survey/JDSG/SF +surveyed/A/SFYT +surveying/M/SFYN +surveyor/MS/SFY +surveys/A/SFS +survivability/M/SFFBLT +survivable/U/SFFBL +survival/MS/SFFL +survivalist/S/SFFLST +survive/SRDBG/SFF +survivor/MS/SFF +survivorship/M/SFFXP +Surya/M/SRY +Sus//SS +Susan/M/SSN +Susana/M/SSN +Susanetta/M/SSNT +Susann/M/SSN +Susanna/M/SSN +Susannah/M/SSN +Susanne/M/SSN +susceptibilities//SSPTBLTS +susceptibility/IM/SSPTBLT +susceptible/I/SSPTBL +Susette/M/SST +sushi/SM/SX +Susi/M/SS +Susie/M/SS +suspect/GSDR/SSPKT +suspected/U/SSPKTT +suspecter/M/SSPKT +suspecting/U/SSPKTN +suspend/DRZGS/SSPNT +suspended/UA/SSPNTT +suspender/M/SSPNT +suspense/MXNVS/SSPNS +suspenseful//SSPNSFL +suspension/AM/SSPNXN +suspensive/Y/SSPNSF +suspensor/M/SSPNS +suspicion/GSMD/SSPSN +suspicious/YP/SSPSS +suspiciousness/M/SSPSSNS +Susquehanna/M/SSKHN +Sussex/M/SSKS +sustain/DRGLBS/SSTN +sustainability//SSTNBLT +sustainable/U/SSTNBL +sustainer/M/SSTN +sustainment/M/SSTNMNT +sustenance/MS/SSTNNS +Susy/M/SS +Sutherlan/M/S@LN +Sutherland/M/S@LNT +sutler/MS/STL +Sutton/M/STN +suture/GMSD/STR +SUV//SF +Suva/M/SF +Suwanee/M/SWN +Suzann/M/SSN +Suzanna/M/SSN +Suzanne/M/SSN +suzerain/SM/SSRN +suzerainty/MS/SSRNT +Suzette/M/SST +Suzhou/M/SSH +Suzi/M/SS +Suzie/M/SS +Suzuki/M/SSK +Suzy/M/SS +Svalbard/M/SFLBT +svelte/RPTY/SFLT +Sven/M/SFN +Svend/M/SFNT +Svengali//SFNKL +Sverdlovsk/M/SFTLFSK +Svetlana/M/SFTLN +SW//S +swab/MS/SWB +swabbed//SWBT +swabbing//SWBN +swabby/S/SWB +Swabian/SM/SWBN +swaddle/SDG/SWTL +swag/GMS/SWK +swagged//SWKT +swagger/GSDR/SWK +swagging//SWKN +Swahili/MS/SWHL +swain/SM/SWN +SWAK//SWK +swallow/GDRS/SWL +swallower/M/SWLW +swallowtail/SM/SWLTL +swam//SWM +swami/SM/SWM +swamp/SRDMG/SWMP +swamper/M/SWMP +swampland/MS/SWMPLNT +swampy/RPT/SWMP +swan/MS/SWN +Swanee/M/SWN +swank/RDSGT/SWNK +swankily//SWNKL +swankiness/MS/SWNKNS +swanky/PTRS/SWNK +swanlike//SWNLK +swanned//SWNT +swanning//SWNN +Swansea/M/SWNS +Swanson/M/SWNSN +swap/S/SWP +swappable/U/SWPBL +swapped//SWPT +swapper/SM/SWP +swapping//SWPN +sward/MSGD/SWT +swarm/GSRDM/SWM +swarmer/M/SWM +swart/P/SWT +swarthiness/M/SW@NS +Swarthmore/M/SW@MR +swarthy/RTP/SW@ +Swartz/M/SWTS +swash/GSRD/SWX +swashbuckler/SM/SWXBKL +swashbuckling/S/SWXBKLN +swastika/SM/SWSTK +SWAT//SWT +swat/S/SWT +swatch/MS/SWX +swath/SRDMGJ/SW@ +swathe//SW@ +swather/M/SW@ +swaths//SW@S +swatted//SWTT +swatter/MDSG/SWT +swatting//SWTN +sway/DRGS/SW +swayback/SD/SWBK +swayer/M/SWY +Swazi/SM/SWS +Swaziland/M/SWSLNT +swear/SGZR/SW +swearer/M/SWR +swearword/SM/SWWT +sweat/SGZRM/SWT +sweatband/MS/SWTBNT +sweater/M/SWT +sweatily//SWTL +sweatiness/M/SWTNS +sweatpants//SWTPNTS +sweatshirt/S/SWTXT +sweatshop/MS/SWTXP +sweaty/TRP/SWT +Swed/MN/SWT +swede/SM/SWT +Swede/SM/SWT +Sweden/M/SWTN +Swedenborg/M/SWTNBK +Swedish//SWTX +Sweeney/SM/SWN +sweep/SBRJGZ/SWP +sweeper/M/SWP +sweeping/PY/SWPN +sweepingness/M/SWPNNS +sweeps/M/SWPS +sweepstakes//SWPSTKS +sweepstake's//SWPSTKS +Sweet/M/SWT +sweet/TXSYRNPG/SWT +sweetbread/SM/SWTBRT +sweetbrier/SM/SWTBR +sweetcorn//SWTKN +sweeten/ZDRGJ/SWTN +sweetened/U/SWTNT +sweetener/M/SWTN +sweetening/M/SWTNN +sweetheart/MS/SW@T +sweetie/MS/SWT +sweeting/M/SWTN +sweetish/Y/SWTX +sweetmeat/MS/SWTMT +sweetness/MS/SWTNS +sweetshop//SWTXP +swell/SJRDGT/SWL +swellhead/DS/SWLHT +swelling/M/SWLN +swelter/DJGS/SWLT +sweltering/Y/SWLTRN +Swen/M/SWN +Swenson/M/SWNSN +swept//SWPT +sweptback//SWPTBK +swerve/GSD/SWF +swerving/U/SWFN +swift/GTYRDPS/SWFT +Swift/M/SWFT +swifter/M/SWFT +swiftness/MS/SWFTNS +swig/SM/SWK +swigged//SWKT +swigging//SWKN +swill/SDG/SWL +swim/S/SWM +swimmer/MS/SWM +swimming/MYS/SWMN +swimsuit/MS/SWMST +Swinburne/M/SWNBN +swindle/GZRSD/SWNTL +swindler/M/SWNTL +swine/SM/SWN +swineherd/MS/SWNHT +swing/SGRZJB/SWN +swingeing//SWNN +swinger/M/SWN +swinging/Y/SWNN +swingy/R/SWN +swinish/PY/SWNX +swinishness/M/SWNXNS +Swink/M/SWNK +swipe/DSG/SWP +swirl/SGRD/SWL +swirling/Y/SWLN +swirly/TR/SWL +swish/GSRD/SWX +swishy/R/SWX +swiss//SWS +Swiss/S/SWS +switch/GBZMRSDJ/SWX +switchback/GDMS/SWXBK +switchblade/SM/SWXBLT +switchboard/MS/SWXBT +switcher/M/SWX +switchgear//SWXK +switchman/M/SWXMN +switchmen/M/SWXMN +switchover/M/SWXF +Switz/MR/SWTS +Switzer/M/SWTS +Switzerland/M/SWTSLNT +swivel/GMDS/SWFL +swizzle/RDGM/SWSL +swob's//SWBS +swollen//SWLN +swoon/GSRD/SWN +swooning/Y/SWNN +swoop/RDSG/SWP +swoosh/GSD/SWX +swop's//SWPS +sword/DMSG/SWT +swordfish/SM/SWTFX +swordplay/RMS/SWTPL +swordplayer/M/SWTPLY +swordsman/M/SWTSMN +swordsmanship/SM/SWTSMNXP +swordsmen//SWTSMN +swordtail/M/SWTTL +swore//SWR +sworn//SWN +swot/S/SWT +swum//SWM +swung//SWNK +sybarite/MS/SBRT +sybaritic//SBRTK +Sybil/M/SBL +Sybila/M/SBL +Sybilla/M/SBL +Sybille/M/SBL +Sybyl/M/SBL +sycamore/SM/SKMR +sycophancy/S/SKFNS +sycophant/SYM/SKFNT +sycophantic//SKFNTK +sycophantically//SKFNTKL +Syd/M/ST +Sydel/M/STL +Sydelle/M/STL +Sydney/M/STN +Sykes/M/SKS +Sylas/M/SLS +syllabic/S/SLBK +syllabicate/GNDSX/SLBKT +syllabication/M/SLBKXN +syllabicity//SLBST +syllabification/M/SLBFKXN +syllabify/GSDXN/SLBF +syllabi's//SLBS +syllable/SDMG/SLBL +syllabub/M/SLBB +syllabus/MS/SLBS +syllabusss//SLBS +syllogism/MS/SLKSM +syllogistic//SLKSTK +Sylow/M/SL +sylph/M/SLF +sylphic//SLFK +sylphlike//SLFLK +sylphs//SLFS +Sylvan/M/SLFN +sylvan/S/SLFN +Sylvania/M/SLFN +Sylvester/M/SLFST +Sylvia/M/SLF +Sylvie/M/SLF +Syman/M/SMN +symbiont/M/SMBNT +symbioses//SMBSS +symbiosis/M/SMBSS +symbiotic//SMBTK +symbol/GMDS/SMBL +symbolic/SM/SMBLK +symbolical/Y/SMBLKL +symbolics/M/SMBLKS +symbolism/MS/SMBLSM +symbolist/MS/SMBLST +symbolization/MAS/SMBLSXN +symbolize/GZRSD/SMBLS +symbolized/U/SMBLST +symbolizes/A/SMBLSS +Symington/M/SMNTN +symmetric//SMTRK +symmetrical/PY/SMTRKL +symmetrically/U/SMTRKL +symmetricalness/M/SMTRKLNS +symmetrization/M/SMTRSXN +symmetrizing//SMTRSN +symmetry/MS/SMTR +Symon/M/SMN +sympathetic/S/SMP@TK +sympathetically/U/SMP@TKL +sympathize/SRDJGZ/SMP@S +sympathized/U/SMP@ST +sympathizer/M/SMP@S +sympathizing/MYUS/SMP@SN +sympathy/MS/SMP@ +symphonic//SMFNK +symphonists//SMFNSTS +symphony/MS/SMFN +symposium/MS/SMPSM +symptom/MS/SMPTM +symptomatic//SMPTMTK +symptomatically//SMPTMTKL +symptomatology/M/SMPTMTLK +syn//SN +synagogal//SNKKL +synagogue/SM/SNKK +synapse/SDGM/SNPS +synaptic//SNPTK +sync/SGD/SNK +synchronism/M/SNXRNSM +synchronization/SA/SNXRNSXN +synchronization's//SNXRNSXNS +synchronize/AGCDS/SNXRNS +synchronized/U/SNXRNST +synchronizer/MS/SNXRNS +synchronous/YP/SNXRNS +synchronousness/M/SNXRNSNS +synchrony//SNXRN +synchrotron/M/SNXRTRN +syncopate/VNGXSD/SNKPT +syncopation/M/SNKPXN +syncope/MS/SNKP +syndic/SM/SNTK +syndicalist//SNTKLST +syndicate/XSDGNM/SNTKT +syndrome/SM/SNTRM +synergism/SM/SNKSM +synergistic//SNKSTK +synergy/MS/SNK +synfuel/S/SNFL +Synge/M/SNK +synod/SM/SNT +synonym/SM/SNNM +synonymic//SNNMK +synonymous/Y/SNNMS +synonymy/MS/SNNM +synopses//SNPSS +synopsis/M/SNPSS +synopsized//SNPSST +synopsizes//SNPSSS +synopsizing//SNPSSN +synoptic/S/SNPTK +syntactic/SY/SNTKTK +syntactical/Y/SNTKTKL +syntactics/M/SNTKTKS +syntax/MS/SNTKS +syntheses//SN@SS +synthesis/M/SN@SS +synthesize/GZSRD/SN@SS +synthesized/U/SN@SST +synthesizer/M/SN@SS +synthesizes/A/SN@SSS +synthetic/S/SN@TK +synthetically//SN@TKL +syphilis/MS/SFLS +syphilitic/S/SFLTK +syphilized//SFLST +syphilizing//SFLSN +Syracuse/M/SRKS +Syria/M/SR +Syriac/M/SRK +Syrian/SM/SRN +syringe/GMSD/SRN +syrup/DMSG/SRP +syrupy//SRP +sys//SS +system/MS/SSTM +systematic/SP/SSTMTK +systematical/Y/SSTMTKL +systematics/M/SSTMTKS +systematization/SM/SSTMTSXN +systematize/ZDRSG/SSTMTS +systematized/U/SSTMTST +systematizer/M/SSTMTS +systematizing/U/SSTMTSN +systemic/S/SSTMK +systemically//SSTMKL +systemization/SM/SSTMSXN +systole/MS/SSTL +systolic//SSTLK +Szilard/M/SSLT +Szymborska/M/SSMBSK +T/G/T +t/XTJBG/T +TA//T +Ta/M/T +Tab/MR/TB +tab/SM/TB +Tabasco/MS/TBSK +Tabatha/M/TB@ +Tabb/M/TB +Tabbatha/M/TB@ +tabbed//TBT +Tabbi/M/TB +Tabbie/M/TB +tabbing//TBN +Tabbitha/M/TB@ +tabbouleh//TBL +tabboulehs//TBLS +tabby/GSD/TB +Tabby/M/TB +Taber/M/TB +Tabernacle/S/TBNKL +tabernacle/SDGM/TBNKL +Tabina/M/TBN +Tabitha/M/TB@ +tabla/MS/TBL +table/GMSD/TBL +tableau/M/TBL +tableaux//TBLKS +tablecloth/M/TBLKL@ +tablecloths//TBLKL@S +tableland/SM/TBLLNT +tablespoon/SM/TBLSPN +tablespoonful/MS/TBLSPNFL +tablet/MDGS/TBLT +tabletop/MS/TBLTP +tableware/SM/TBLWR +tabling/M/TBLN +tabloid/MS/TBLT +taboo/GSMD/TB +Tabor/M/TB +tabor/MDGS/TB +Tabriz/SM/TBRS +tabula//TBL +tabular/Y/TBL +tabulate/XNGDS/TBLT +tabulation/M/TBLXN +tabulator/MS/TBLT +tachometer/SM/TXMT +tachometry//TXMTR +tachycardia/MS/TXKT +tachyon/SM/TXYN +tacit/YP/TST +tacitness/MS/TSTNS +taciturn/Y/TSTN +taciturnity/MS/TSTNT +Tacitus/M/TSTS +tack/GZRDMS/TK +tacker/M/TK +tackiness/MS/TKNS +tackle/RSDMZG/TKL +tackler/M/TKL +tackling/M/TKLN +tacky/RSTP/TK +taco/MS/TK +Tacoma/M/TKM +tact/FSM/TKT +tactful/YP/TKTFL +tactfulness/S/TKTFLNS +tactic/SM/TKTK +tactical/Y/TKTKL +tactician/MS/TKTXN +tactile/Y/TKTL +tactility/S/TKTLT +tactless/PY/TKTLS +tactlessness/SM/TKTLSNS +tactual/Y/TKTL +Tad/M/TT +tad/SM/TT +Tadd/M/TT +Taddeo/M/TT +Taddeusz/M/TTSS +Tadeas/M/TTS +Tadeo/M/TT +Tades//TTS +Tadio/M/TT +tadpole/MS/TTPL +Tadzhikistan's//TTSHKSTNS +Tadzhikstan/M/TTSHKSTN +Taegu/M/TK +Taejon/M/TKN +taffeta/MS/TFT +taffrail/SM/TFRL +Taffy/M/TF +taffy/SM/TF +Taft/M/TFT +tag/SM/TK +Tagalog/SM/TKLK +tagged/U/TKT +tagger/S/TK +tagging//TKN +Tagore/M/TKR +Tagus/M/TKS +Tahiti/M/THT +Tahitian/S/THXN +Tahoe/M/TH +Taichung/M/TXNK +taiga/MS/TK +tail/CMRDGAS/TL +tailback/MS/TLBK +tailcoat/S/TLKT +tailer/AM/TL +tailgate/MGRSD/TLKT +tailgater/M/TLKT +tailing/MS/TLN +tailless/P/TLS +taillessness/M/TLSNS +taillight/MS/TLT +tailor/DMJSGB/TL +Tailor/M/TL +tailpipe/SM/TLPP +tailspin/MS/TLSPN +tailwind/SM/TLWNT +Tainan/M/TNN +Taine/M/TN +taint/DGS/TNT +tainted/U/TNTT +Taipei/M/TP +Tait/M/TT +Taite/M/TT +Taiwan/M/TWN +Taiwanese//TWNS +Taiyuan/M/TYN +Tajikistan//TKKSTN +take/RSHZGJ/TK +takeaway/S/TKW +taken/A/TKN +takeoff/SM/TKF +takeout/S/TKT +takeover/SM/TKF +taker/M/TK +takes/IA/TKS +taking/IA/TKN +Taklamakan/M/TKLMKN +Talbert/M/TLBT +Talbot/M/TLBT +talc/SM/TLK +talcked//TLKT +talcking//TLKN +talcum/S/TLKM +tale/RSMN/TL +talebearer/SM/TLBR +talent/SMD/TLNT +talented/M/TLNTT +talentless//TLNTLS +taler/M/TL +tali//TL +Talia/M/TL +Taliesin/M/TLSN +talion/M/TLN +talisman/SM/TLSMN +talismanic//TLSMNK +talk/GZSRD/TLK +talkative/YP/TLKTF +talkativeness/MS/TLKTFNS +talker/M/TLK +talkie/M/TLK +talky/RST/TLK +tall/TPR/TL +Talladega/M/TLTK +Tallahassee/M/TLHS +Tallahatchie/M/TLHX +Tallahoosa/M/TLHS +tallboy/MS/TLB +Tallchief/M/TLXF +Talley/M/TL +Talleyrand/M/TLRNT +Tallia/M/TL +Tallie/M/TL +Tallinn/M/TLN +tallish//TLX +tallness/MS/TLNS +Tallou/M/TL +tallow/DMSG/TL +tallowy//TL +Tallulah/M/TLL +tally/GRSDZ/TL +Tally/M/TL +tallyho/DMSG/TLH +Talmud/MS/TLMT +Talmudic//TLMTK +Talmudist/MS/TLMTST +talon/SMD/TLN +talus/MS/TLS +Talya/M/TLY +Talyah/M/TLY +Tam/M/TM +tam/MDRSTZGB/TM +tamable/M/TMBL +tamale/SM/TML +Tamar/M/TM +Tamara/M/TMR +tamarack/SM/TMRK +Tamarah/M/TMR +tamarind/MS/TMRNT +Tamarra/M/TMR +Tamas//TMS +tambourine/MS/TMBRN +tame/SYP/TM +tamed/U/TMT +Tameka/M/TMK +tameness/S/TMNS +Tamera/M/TMR +Tamerlane/M/TMLN +Tami/M/TM +Tamika/M/TMK +Tamiko/M/TMK +Tamil/MS/TML +Tamma/M/TM +Tammany/M/TMN +Tammara/M/TMR +Tammi/M/TM +Tammie/M/TM +Tammy/M/TM +tamp/SGZRD/TMP +Tampa/M/TMP +Tampax/M/TMPKS +tamper/ZGRD/TMP +tampered/U/TMPRT +tamperer/M/TMPR +tampon/DMSG/TMPN +Tamqrah/M/TMKR +Tamra/M/TMR +Tan/M/TN +tan/MS/TN +Tana/M/TN +tanager/MS/TNK +Tanaka/M/TNK +Tananarive/M/TNNRF +tanbark/SM/TNBK +Tancred/M/TNKRT +tandem/SM/TNTM +Tandi/M/TNT +Tandie/M/TNT +tandoori/S/TNTR +Tandy/M/TNT +Taney/M/TN +T'ang//TNK +tang/GSYDM/TNK +Tanganyika/M/TNKNYK +tangelo/SM/TNKL +tangency/M/TNKNS +tangent/SM/TNKNT +tangential/Y/TNKNXL +tangerine/MS/TNKRN +tangibility/MIS/TNKBLT +tangible/IPS/TNKBL +tangibleness/SM/TNKBLNS +tangibleness's/I/TNKBLNSS +tangibly/I/TNKBL +Tangier/M/TNK +tangle/UDSG/TNKL +tangle's//TNKLS +tango/MDSG/TNK +Tangshan/M/TNKXN +tangy/RST/TNK +Tanhya/M/TNHY +Tani/M/TN +Tania/M/TN +Tanisha/M/TNX +Tanitansy/M/TNTNS +tank/GZSRDM/TNK +tankard/MS/TNKT +tanker/M/TNK +tankful/MS/TNKFL +Tann/RM/TN +tanned/U/TNT +Tannenbaum/M/TNNBM +Tanner/M/TN +tanner/SM/TN +tannery/MS/TNR +tannest//TNST +Tanney/M/TN +Tannhäuser/M/TNHS +Tannie/M/TN +tannin/SM/TNN +tanning/SM/TNN +Tanny/M/TN +Tansy/M/TNS +tansy/SM/TNS +tantalization/SM/TNTLSXN +tantalize/GZSRD/TNTLS +tantalized/U/TNTLST +tantalizing/YP/TNTLSN +tantalizingly/S/TNTLSNL +tantalizingness/S/TNTLSNNS +tantalum/MS/TNTLM +Tantalus/M/TNTLS +tantamount//TNTMNT +tantra/S/TNTR +tantrum/SM/TNTRM +Tanya/M/TNY +Tanzania/M/TNSN +Tanzanian/S/TNSNN +Tao/M/T +tao/S/T +taoism//TSM +Taoism/MS/TSM +Taoist/MS/TST +taoist/S/TST +tap/MSDRJZG/TP +Tapdance/M/TPTNS +tape/SM/TP +taped/U/TPT +tapeline/S/TPLN +taper/GRD/TP +taperer/M/TPR +tapestry/GMSD/TPSTR +tapeworm/MS/TPWM +tapioca/MS/TPK +tapir/MS/TP +tapped/U/TPT +tapper/MS/TP +tappet/MS/TPT +tapping/M/TPN +taproom/MS/TPRM +taproot/SM/TPRT +taps/M/TPS +tar/GSMD/T +Tara/M/TR +Tarah/M/TR +tarantella/MS/TRNTL +tarantula/MS/TRNTL +Tarawa/M/TRW +Tarazed/M/TRST +Tarbell/M/TBL +tardily//TTL +tardiness/S/TTNS +tardy/TPRS/TT +tare/MS/TR +target/GSMD/TKT +tariff/DMSG/TRF +Tarim/M/TRM +Tarkington/M/TKNTN +tarmac/S/TMK +tarmacked//TMKT +tarmacking//TMKN +tarn/MS/TN +tarnish/GDS/TNX +tarnished/U/TNXT +taro/MS/TR +tarot/MS/TRT +tarp/MS/TP +tarpapered//TPPRT +tarpaulin/MS/TPLN +tarpon/MS/TPN +Tarra/M/TR +tarragon/SM/TRKN +Tarrah/M/TR +Tarrance/M/TRNS +tarred/M/TRT +tarring/M/TRN +tarry/TGRSD/TR +Tarrytown/M/TRTN +tarsal/S/TSL +tarsi//TS +tarsus/M/TSS +tart/PMYRDGTS/TT +tartan/MS/TTN +tartar/SM/TT +tartaric//TTRK +Tartar's//TTS +Tartary/M/TTR +tartness/MS/TTNS +Tartuffe/M/TTF +Taryn/M/TRN +Tarzan/M/TSN +Tasha/M/TX +Tashkent/M/TXKNT +Tasia/M/TX +task/GSDM/TSK +taskmaster/SM/TSKMST +taskmistress/MS/TSKMSTRS +Tasmania/M/TSMN +Tasmanian/S/TSMNN +Tass/M/TS +tassel/MDGS/TSL +tassellings//TSLNS +taste/GZMJSRD/TST +tasted/EU/TSTT +tasteful/PEY/TSTFL +tastefulness/SME/TSTFLNS +tasteless/YP/TSTLS +tastelessness/SM/TSTLSNS +taster/M/TST +tastes/E/TSTS +taste's/E/TSTS +tastily//TSTL +tastiness/MS/TSTNS +tasting/E/TSTN +tasty/RTP/TST +tat/SRZ/TT +tatami/MS/TTM +Tatar/SM/TT +Tate/M/TT +tater/M/TT +Tatiana/M/TXN +Tatiania/M/TXN +tatted//TTT +tatter/GDS/TT +tatterdemalion/SM/TTTMLN +tattered/M/TTRT +tatting/SM/TTN +tattle/RSDZG/TTL +tattler/M/TTL +tattletale/SM/TTLTL +tattoo/ZRDMGS/TT +tattooer/M/TT +tattooist/MS/TTST +tatty/R/TT +Tatum/M/TTM +tau/SM/T +taught/AU/TT +taunt/ZGRDS/TNT +taunter/M/TNT +taunting/Y/TNTN +taupe/SM/TP +Taurus/SM/TRS +taut/PGTXYRDNS/TT +tauten/GD/TTN +tautness/S/TTNS +tautological/Y/TTLKKL +tautologous//TTLKS +tautology/SM/TTLK +tavern/RMS/TFN +taverner/M/TFN +tawdrily//TTRL +tawdriness/SM/TTRNS +tawdry/SRTP/TTR +Tawney/M/TN +tawny/RSMPT/TN +Tawnya/M/TNY +Tawsha/M/TX +tax/ZGJMDRSB/TKS +taxable/S/TKSBL +taxably//TKSBL +taxation/MS/TKSXN +taxed/U/TKST +taxi/MDGS/TKS +taxicab/MS/TKSKB +taxidermist/SM/TKSTMST +taxidermy/MS/TKSTM +taximeter/SM/TKSMT +taxing/Y/TKSN +taxiway/MS/TKSW +taxonomic//TKSNMK +taxonomically//TKSNMKL +taxonomist/SM/TKSNMST +taxonomy/SM/TKSNM +taxpayer/MS/TKSPY +taxpaying/M/TKSPYN +Taylor/SM/TL +Tb//TB +TB//TB +TBA//TB +Tbilisi/M/TBLS +tbs//TBS +tbsp//TBSP +Tc/M/TK +Tchaikovsky/M/XKFSK +TCP//TKP +TD//TT +TDD//TT +Te//T +tea/MDGS/T +teabag/S/TBK +teacake/MS/TKK +teacart/M/TKT +teach/AGS/TX +teachable/P/TXBL +teacher/MS/TX +teaching/SM/TXN +teacloth//TKL@ +teacup/MS/TKP +teacupful/MS/TKPFL +Teador/M/TT +teahouse/SM/THS +teak/SM/TK +teakettle/SM/TKTL +teakwood/M/TKWT +teal/MS/TL +tealeaves//TLFS +team/MRDGS/TM +teammate/MS/TMT +teamster/MS/TMST +teamwork/SM/TMWK +teapot/MS/TPT +tear/RDMSG/T +tearaway//TRW +teardrop/MS/TTRP +tearer/M/TR +tearful/YP/TFL +tearfulness/M/TFLNS +teargas/S/TKS +teargassed//TKST +teargassing//TKSN +tearjerker/S/TKK +tearoom/MS/TRM +teary/RT/TR +teas/SRDGZ/TS +Teasdale/M/TSTL +tease/KS/TS +teasel/DGSM/TSL +teaser/M/TS +teashop/SM/TXP +teasing/Y/TSN +teaspoon/MS/TSPN +teaspoonful/MS/TSPNFL +teat/MDS/TT +teatime/MS/TTM +tech/D/TX +technetium/SM/TXNTM +technical/YSP/TXNKL +technicality/MS/TXNKLT +technicalness/M/TXNKLNS +technician/MS/TXNXN +Technicolor/MS/TXNKL +Technion/M/TXNN +technique/SM/TXNK +technocracy/MS/TXNKRS +technocrat/S/TXNKRT +technocratic//TXNKRTK +technological/Y/TXNLKKL +technologist/MS/TXNLKST +technology/MS/TXNLK +technophobia//TXNFB +technophobic//TXNFBK +techs//TXS +tectonic/S/TKTNK +tectonically//TKTNKL +tectonics/M/TKTNKS +Tecumseh/M/TKMS +Ted/M/TT +Tedd/M/TT +Tedda/M/TT +Teddi/M/TT +Teddie/M/TT +Teddy/M/TT +teddy/SM/TT +Tedi/M/TT +Tedie/M/TT +tedious/YP/TTS +tediousness/SM/TTSNS +tedium/MS/TTM +Tedman/M/TTMN +Tedmund/M/TTMNT +Tedra/M/TTR +tee/DRSMH/T +teeing//TN +teem/GSD/TM +teeming/PY/TMN +teemingness/M/TMNNS +teen/SR/TN +Teena/M/TN +teenage/RZ/TNK +teenager/M/TNK +teeny/RT/TN +teenybopper/SM/TNBP +teepee's//TPS +teeshirt/S/TXT +teeter/GDS/TT +teeth/RSDJMG/T@ +teethe//T@ +teether/M/T@ +teething/M/T@N +teethmarks//T@MKS +teetotal/SRDGZ/TTTL +teetotaler/M/TTTL +teetotalism/MS/TTTLSM +TEFL//TFL +Teflon/MS/TFLN +Tegucigalpa/M/TKSKLP +Teheran's//THRNS +Tehran//TRN +TEirtza/M/TTS +tektite/SM/TKTT +Tektronix/M/TKTRNKS +tel/SY/TL +telecast/SRGZ/TLKST +telecommunicate/NX/TLKMNKT +telecommunication/M/TLKMNKXN +telecommute/SRDZGJ/TLKMT +telecoms//TLKMS +teleconference/GMJSD/TLKNFRNS +Teledyne/M/TLTN +Telefunken/M/TLFNKN +telegenic//TLKNK +telegram/MS/TLKRM +telegrammed//TLKRMT +telegramming//TLKRMN +telegraph/MRDGZ/TLKRF +telegraphic//TLKRFK +telegraphically//TLKRFKL +telegraphist/MS/TLKRFST +telegraphs//TLKRFS +telegraphy/MS/TLKRF +telekineses//TLKNSS +telekinesis/M/TLKNSS +telekinetic//TLKNTK +Telemachus/M/TLMXS +Telemann/M/TLMN +telemarketer/S/TLMKT +telemarketing/S/TLMKTN +telemeter/DMSG/TLMT +telemetric//TLMTRK +telemetry/MS/TLMTR +teleological/Y/TLLKKL +teleology/M/TLLK +telepathic//TLP@K +telepathically//TLP@KL +telepathy/SM/TLP@ +telephone/SRDGMZ/TLFN +telephonic//TLFNK +telephonist/SM/TLFNST +telephony/MS/TLFN +telephoto/S/TLFT +telephotography/MS/TLFTKRF +teleprinter/MS/TLPRNT +teleprocessing/S/TLPRSSN +teleprompter//TLPRMPT +TelePrompter/M/TLPRMPT +TelePrompTer/S/TLPRMPT +telescope/GSDM/TLSKP +telescopic//TLSKPK +telescopically//TLSKPKL +teletext/S/TLTKST +telethon/MS/TL@N +teletype/SM/TLTP +Teletype/SM/TLTP +teletypewriter/SM/TLTPRT +televangelism/S/TLFNKLSM +televangelist/S/TLFNKLST +televise/SDXNG/TLFS +television/M/TLFXN +televisor/MS/TLFS +televisual//TLFSL +telex/GSDM/TLKS +Telex/M/TLKS +tell/AGS/TL +Tell/MR/TL +Teller/M/TL +teller/SDMG/TL +telling/YS/TLN +telltale/MS/TLTL +tellurium/SM/TLRM +telly/SM/TL +Telnet/M/TLNT +TELNET/M/TLNT +telnet/S/TLNT +telomeric//TLMRK +Telugu/M/TLK +temblor/SM/TMBL +temerity/MS/TMRT +Temp/M/TMP +temp/SGZTMRD/TMP +Tempe/M/TMP +temper/GRDM/TMP +tempera/SLM/TMPR +temperament/SM/TMPRMNT +temperamental/Y/TMPRMNTL +temperance/IMS/TMPRNS +temperate/SDGPY/TMPRT +temperately/I/TMPRTL +temperateness/SM/TMPRTNS +temperateness's/I/TMPRTNSS +temperature/MS/TMPRTR +tempered/UE/TMPRT +tempering/E/TMPRN +tempers/E/TMPS +temper's/E/TMPS +tempest/DMSG/TMPST +tempestuous/PY/TMPSTS +tempestuousness/SM/TMPSTSNS +template/FS/TMPLT +template's//TMPLTS +Temple/M/TMPL +temple/SDM/TMPL +Templeman/M/TMPLMN +Templeton/M/TMPLTN +tempo/MS/TMP +tempoes//TMPS +temporal/YS/TMPRL +temporarily//TMPRRL +temporariness/FM/TMPRRNS +temporarinesses//TMPRRNSS +temporary/SFP/TMPRR +temporize/GJZRSD/TMPRS +temporizer/M/TMPRS +temporizing/YM/TMPRSN +temporizings/U/TMPRSNS +tempt/FS/TMPT +temptation/MS/TMPTXN +tempted//TMPTT +tempter/S/TMPT +tempting/YS/TMPTN +temptress/MS/TMPTRS +tempura/SM/TMPR +ten/MHB/TN +tenabilities//TNBLTS +tenability/UM/TNBLT +tenable/P/TNBL +tenableness/M/TNBLNS +tenably//TNBL +tenacious/YP/TNSS +tenaciousness/S/TNSSNS +tenacity/S/TNST +tenancy/MS/TNNS +tenant/MDSG/TNNT +tenanted/U/TNNTT +tenantry/MS/TNNTR +tench/M/TNX +tend/ISFRDG/TNT +tended/UE/TNTT +tendency/MS/TNTNS +tendentious/PY/TNTNXS +tendentiousness/SM/TNTNXSNS +tender/FS/TNT +tendered//TNTRT +tenderer//TNTR +tenderest//TNTRST +tenderfoot/MS/TNTFT +tenderhearted/YP/TNTHTT +tenderheartedness/MS/TNTHTTNS +tendering//TNTRN +tenderize/SRDGZ/TNTRS +tenderizer/M/TNTRS +tenderloin/SM/TNTLN +tenderly//TNTL +tenderness/SM/TNTNS +tending/E/TNTN +tendinitis/S/TNTNTS +tendon/MS/TNTN +tendril/SM/TNTRL +tends/E/TNTS +tenebrous//TNBRS +tenement/MS/TNMNT +tenet/SM/TNT +Tenex/M/TNKS +TENEX/M/TNKS +tenfold/S/TNFLT +Tenn/M/TN +Tenneco/M/TNK +tenner//TN +Tennessean/S/TNSN +Tennessee/M/TNS +Tenney/M/TN +tennis/SM/TNS +Tennyson/M/TNSN +Tenochtitlan/M/TNXTTLN +tenon/GSMD/TNN +tenor/MS/TN +tenpin/SM/TNPN +tens/SRDVGT/TNS +tense/IPYTNVR/TNS +tenseness/SM/TNSNS +tenseness's/I/TNSNSS +tensile//TNSL +tension/GMRDS/TNXN +tensional/I/TNXNL +tensionless//TNXNLS +tensions/E/TNXNS +tension's/I/TNXNS +tensity/IMS/TNST +tensor/MS/TNS +tensorial//TNSRL +tenspot//TNSPT +tent/FSIM/TNT +tentacle/MSD/TNTKL +tentative/SPY/TNTTF +tentativeness/S/TNTTFNS +tented/UF/TNTT +tenter/M/TNT +tenterhook/MS/TNTHK +tenth/SY/TN@ +tenths//TN@S +tenting/F/TNTN +tenuity/S/TNT +tenuous/YP/TNS +tenuousness/SM/TNSNS +tenure/SDM/TNR +Teodoor/M/TT +Teodor/M/TT +Teodora/M/TTR +Teodorico/M/TTRK +Teodoro/M/TTR +tepee/MS/TP +tepid/YP/TPT +tepidity/S/TPTT +tepidness/S/TPTNS +tequila/SM/TKL +Tera/M/TR +teratogenic//TRTKNK +teratology/MS/TRTLK +terbium/SM/TBM +tercel/M/TSL +tercentenary/S/TSNTNR +tercentennial/S/TSNTNL +Terence/M/TRNS +Terencio/M/TRNS +Teresa/M/TRS +Terese/M/TRS +Tereshkova/M/TRXKF +Teresina/M/TRSN +Teresita/M/TRST +Teressa/M/TRS +Teri/M/TR +Teriann/M/TRN +Terkel/M/TKL +term/MYRDGS/TM +termagant/SM/TMKNT +termcap//TMKP +termer/M/TM +terminable/CPI/TMNBL +terminableness/IMC/TMNBLNS +terminal/SYM/TMNL +terminate/CXNV/TMNT +terminated/U/TMNTT +terminates//TMNTS +terminating//TMNTN +termination/MC/TMNXN +terminative/YC/TMNTF +terminator/SM/TMNT +termini//TMN +terminological/Y/TMNLKKL +terminology/MS/TMNLK +terminus/M/TMNS +termite/SM/TMT +tern/GIDS/TN +ternary/S/TNR +tern's//TNS +Terpsichore/M/TPSXR +terpsichorean//TPSXRN +terr/S/TR +Terra/M/TR +terrace/MGSD/TRS +terracing/M/TRSN +terracotta//TRKT +terrain/MS/TRN +terramycin//TRMSN +Terran/M/TRN +Terrance/M/TRNS +terrapin/MS/TRPN +terrarium/MS/TRRM +terrazzo/SM/TRS +Terre/M/TR +Terrel/M/TRL +Terrell/M/TRL +Terrence/M/TRNS +terrestrial/YMS/TRSTRL +Terri/M/TR +terrible/P/TRBL +terribleness/SM/TRBLNS +terribly//TRBL +Terrie/M/TR +terrier/M/TR +terrific/Y/TRFK +terrifically//TRFKL +terrify/GDS/TRF +terrifying/Y/TRFYN +Terrijo/M/TRK +Terrill/M/TRL +terrine/M/TRN +Territorial/SM/TRTRL +territorial/SY/TRTRL +territoriality/M/TRTRLT +territory/SM/TRTR +Territory's//TRTRS +terror/MS/TR +terrorism/MS/TRRSM +terrorist/MS/TRRST +terroristic//TRRSTK +terrorize/RSDZG/TRRS +terrorized/U/TRRST +terrorizer/M/TRRS +Terry/M/TR +terry/ZMRS/TR +terrycloth//TRKL@ +Terrye/M/TRY +terse/RTYP/TS +terseness/SM/TSNS +Tersina/M/TSN +tertian//TXN +Tertiary//TXR +tertiary/S/TXR +Terza/M/TS +TESL//TSL +Tesla/M/TSL +TESOL//TSL +Tess/M/TS +Tessa/M/TS +tessellate/XDSNG/TSLT +tessellation/M/TSLXN +tesseral//TSRL +Tessi/M/TS +Tessie/M/TS +Tessy/M/TS +test/RDBFZGSC/TST +testability/M/TSTBLT +testable/U/TSTBL +testament/SM/TSTMNT +testamentary//TSTMNTR +testate/IS/TSTT +testator/MS/TSTT +testatrices//TSTTRSS +testatrix//TSTTRKS +testbed/S/TSTBT +testcard//TSTKT +tested/AKU/TSTT +tester/MFCKS/TST +testes/M/TSTS +testicle/SM/TSTKL +testicular//TSTKL +testifier/M/TSTF +testify/GZDRS/TSTF +testily//TSTL +testimonial/SM/TSTMNL +testimony/SM/TSTMN +testiness/S/TSTNS +testing/S/TSTN +testis/M/TSTS +testosterone/SM/TSTSTRN +tests/AK/TSTS +test's/AKF/TSTS +testy/RTP/TST +tetanus/MS/TTNS +tetchy/TR/TX +tether/DMSG/T@ +tethered/U/T@RT +Tethys/M/T@S +Tetons//TTNS +tetra/MS/TTR +tetrachloride/M/TTRXLRT +tetracycline/SM/TTRSKLN +tetrafluoride//TTRFLRT +tetragonal/Y/TTRKNL +tetrahalides//TTRHLTS +tetrahedral/Y/TTRHTRL +tetrahedron/SM/TTRHTRN +tetrameron//TTRMRN +tetrameter/SM/TTRMT +tetrasodium//TTRSTM +tetravalent//TTRFLNT +Teuton/SM/TTN +Teutonic//TTNK +Tex/M/TKS +TeX/M/TKS +Texaco/M/TKSK +Texan/S/TKSN +Texas/MS/TKSS +text/FSM/TKST +textbook/SM/TKSTBK +textile/SM/TKSTL +Textron/M/TKSTRN +textual/FY/TKSTL +textural/Y/TKSTRL +texture/MGSD/TKSTR +textured/U/TKSTRT +th/GNJX/@ +Th/M/@ +Thacher/M/@X +Thackeray/M/@KR +Thad/M/@T +Thaddeus/M/@TS +Thaddus/M/@TS +Thadeus/M/@TS +Thai/S/@ +Thailand/M/@LNT +Thain/M/@N +Thaine/M/@N +thalami//@LM +thalamus/M/@LMS +Thales/M/@LS +Thalia/M/@L +thalidomide/MS/@LTMT +thallium/SM/@LM +thallophyte/M/@LFT +Thames//@MS +than//@N +Thane/M/@N +thane/SM/@N +Thanh/M/@NH +thank/SRDG/@NK +thanker/M/@NK +thankful/YP/@NKFL +thankfuller//@NKFL +thankfullest//@NKFLST +thankfulness/SM/@NKFLNS +thankless/PY/@NKLS +thanklessness/SM/@NKLSNS +thanksgiving/MS/@NKSKFN +Thanksgiving/S/@NKSKFN +Thant/M/@NT +Thar/M/@ +that/MS/@T +thatch/JMDRSZG/@X +Thatch/MR/@X +Thatcher/M/@X +thatching/M/@XN +that'd//@TT +that'll//@TL +thaumaturge/M/@MTK +thaw/DGS/@ +Thaxter/M/@KST +Thayer/M/@Y +Thayne/M/@N +THC//@K +the//@ +Thea/M/@ +Theadora/M/@TR +theater/SM/@T +theatergoer/MS/@TK +theatergoing/MS/@TKN +theatric/S/@TRK +theatrical/YS/@TRKL +theatricality/SM/@TRKLT +theatrics/M/@TRKS +Thebault/M/@BLT +Thebes//@BS +Theda/M/@T +Thedric/M/@TRK +Thedrick/M/@TRK +thee/DS/@ +theeing//@N +theft/MS/@FT +Theiler/M/@L +their/MS/@ +theism/SM/@SM +theist/SM/@ST +theistic//@STK +Thekla/M/@KL +Thelma/M/@LM +them/GD/@M +themas//@MS +thematic/U/@MTK +thematically//@MTKL +thematics//@MTKS +theme/MS/@M +Themistocles/M/@MSTKLS +themselves//@MSLFS +thence//@NS +thenceforth//@NSF@ +thenceforward/S/@NSFWT +Theo/M/@ +Theobald/M/@BLT +theocracy/SM/@KRS +theocratic//@KRTK +Theocritus/M/@KRTS +theodolite/MS/@TLT +Theodor/M/@T +Theodora/M/@TR +Theodore/M/@TR +Theodoric/M/@TRK +Theodosia/M/@TX +Theodosian//@TXN +Theodosius/M/@TSS +theologian/SM/@LKN +theological/Y/@LKKL +theologists//@LKSTS +theology/MS/@LK +theorem/MS/@RM +theoretic/S/@RTK +theoretical/Y/@RTKL +theoretician/MS/@RTXN +theoretics/M/@RTKS +theorist/SM/@RST +theorization/SM/@RSXN +theorize/ZGDRS/@RS +theory/MS/@R +theosophic//@SFK +theosophical//@SFKL +theosophist/MS/@SFST +Theosophy//@SF +theosophy/SM/@SF +therapeutic/S/@RPTK +therapeutically//@RPTKL +therapeutics/M/@RPTKS +therapist/MS/@RPST +therapy/MS/@RP +Theravada/M/@RFT +there/MS/@R +thereabout/S/@RBT +thereafter//@RFT +thereat//@RT +thereby//@RB +there'd//@RT +therefor//@RF +therefore//@RFR +therefrom//@RFRM +therein//@RN +there'll//@RL +thereof//@RF +thereon//@RN +Theresa/M/@RS +Therese/M/@RS +Theresina/M/@RSN +Theresita/M/@RST +Theressa/M/@RS +thereto//@RT +theretofore//@RTFR +thereunder//@RNT +thereunto//@RNT +thereupon//@RPN +therewith//@RW@ +Therine/M/@RN +therm/MS/@M +thermal/YS/@ML +thermionic/S/@MNK +thermionics/M/@MNKS +thermistor/MS/@MST +thermo/S/@M +thermocouple/MS/@MKPL +thermodynamic/S/@MTNMK +thermodynamical/Y/@MTNMKL +thermodynamics/M/@MTNMKS +thermoelastic//@MLSTK +thermoelectric//@MLKTRK +thermoformed//@MFMT +thermoforming//@MFMN +thermogravimetric//@MKRFMTRK +thermoluminescence/M/@MLMNSNS +thermometer/MS/@MMT +thermometric//@MMTRK +thermometry/M/@MMTR +thermonuclear//@MNKL +thermopile/M/@MPL +thermoplastic/S/@MPLSTK +thermopower//@MPW +thermos/S/@MS +Thermos/SM/@MS +thermosetting//@MSTN +thermostable//@MSTBL +thermostat/SM/@MSTT +thermostatic/S/@MSTTK +thermostatically//@MSTTKL +thermostatics/M/@MSTTKS +thermostatted//@MSTTT +thermostatting//@MSTTN +Theron/M/@RN +thesauri//@SR +thesaurus/MS/@SRS +these/S/@S +Theseus/M/@SS +thesis/M/@SS +thespian/S/@SPN +Thespian/S/@SPN +Thespis/M/@SPS +Thessalonian//@SLNN +Thessaloníki/M/@SLNK +Thessaly/M/@SL +theta/MS/@T +thew/SM/@ +they//@ +they'd//@T +they'll//@L +they're//@R +they've//@F +Thia/M/@ +thiamine/MS/@MN +Thibaud/M/@BT +Thibaut/M/@BT +thick/TXPSRNY/@K +thicken/RDJZG/@KN +thickener/M/@KN +thickening/M/@KNN +thicket/SMD/@KT +thickheaded/M/@KHTT +thickish//@KX +thickness/MS/@KNS +thickset/S/@KST +thief/M/@F +Thiensville/M/@NSFL +Thieu/M/@ +thieve/SDJG/@F +thievery/MS/@FR +thievish/P/@FX +thievishness/M/@FXNS +thigh/DM/@ +thighbone/SM/@BN +thighs//@S +thimble/DSMG/@MBL +thimbleful/MS/@MBLFL +Thimbu/M/@MB +Thimphu//@MF +thin/STPYR/@N +thine//@N +thing/MP/@N +thingamabob/MS/@NMBB +thingamajig/SM/@NMKK +think/AGRS/@NK +thinkable/U/@NKBL +thinkableness/M/@NKBLNS +thinkably/U/@NKBL +thinker/MS/@NK +thinking/SMYP/@NKN +thinkingly/U/@NKNL +thinned//@NT +thinner/MS/@N +thinness/MS/@NS +thinnest//@NST +thinning//@NN +thinnish//@NX +thiocyanate/M/@SYNT +thiouracil/M/@RSL +third/DYGS/@T +thirst/GSMDR/@ST +thirster/M/@ST +thirstily//@STL +thirstiness/S/@STNS +thirsty/TPR/@ST +thirteen/MHS/@TN +thirteenths//@TN@S +thirtieths//@T@S +thirty/HMS/@T +this//@S +this'll//@SL +thistle/SM/@STL +thistledown/MS/@STLTN +thither//@@ +tho//@ +thole/GMSD/@L +Thom/M/@M +Thoma/SM/@M +Thomasa/M/@MS +Thomasin/M/@MSN +Thomasina/M/@MSN +Thomasine/M/@MSN +Thomism/M/@MSM +Thomistic//@MSTK +Thompson/M/@MPSN +Thomson/M/@MSN +thong/SMD/@NK +Thor/M/@ +thoracic//@RSK +thorax/MS/@RKS +Thorazine//@RSN +Thoreau/M/@R +thoriate/D/@RT +Thorin/M/@RN +thorium/MS/@RM +Thorn/M/@N +thorn/SMDG/@N +Thornburg/M/@NBK +Thorndike/M/@NTK +Thornie/M/@N +thorniness/S/@NNS +Thornton/M/@NTN +Thorny/M/@N +thorny/PTR/@N +thorough/PTYR/@R +thoroughbred/S/@RBRT +thoroughfare/MS/@RFR +thoroughgoing//@RKN +thoroughness/SM/@RNS +Thorpe/M/@P +Thorstein/M/@STN +Thorsten/M/@STN +Thorvald/M/@FLT +those//@S +Thoth/M/@@ +thou/DSG/@ +though//@ +thought/MS/@T +thoughtful/U/@TFL +thoughtfully//@TFL +thoughtfulness/S/@TFLNS +thoughtless/YP/@TLS +thoughtlessness/MS/@TLSNS +thousand/SHM/@SNT +thousandfold//@SNTFLT +thousandths//@SNT@S +Thrace/M/@RS +Thracian/M/@RXN +thrall/GSMD/@RL +thralldom/S/@RLTM +thrash/DSRZGJ/@RX +thrasher/M/@RX +thrashing/M/@RXN +thread/MZDRGS/@RT +threadbare/P/@RTBR +threader/M/@RT +threading/A/@RTN +threadlike//@RTLK +thready/RT/@RT +threat/MDNSXG/@RT +threaten/GJRD/@RTN +threatener/M/@RTN +threatening/Y/@RTNN +three/MS/@R +threefold//@RFLT +threepence/M/@RPNS +threepenny//@RPN +threescore/S/@RSKR +threesome/SM/@RSM +threnody/SM/@RNT +thresh/DSRZG/@RX +thresher/M/@RX +threshold/MDGS/@RXLT +threw//@R +thrice//@RS +thrift/SM/@RFT +thriftily//@RFTL +thriftiness/S/@RFTNS +thriftless//@RFTLS +thrifty/PTR/@RFT +thrill/ZMGDRS/@RL +thriller/M/@RL +thrilling/Y/@RLN +thrive/RSDJG/@RF +thriver/M/@RF +thriving/Y/@RFN +throat/MDSG/@RT +throatily//@RTL +throatiness/MS/@RTNS +throaty/PRT/@RT +throb/S/@RB +throbbed//@RBT +throbbing//@RBN +throe/SDM/@R +throeing//@RN +thrombi//@RMB +thromboses//@RMBSS +thrombosis/M/@RMBSS +thrombotic//@RMBTK +thrombus/M/@RMBS +throne/CGSD/@RN +Throneberry/M/@RNBR +throne's//@RNS +throng/GDSM/@RNK +throttle/DRSZMG/@RTL +throttler/M/@RTL +through/Y/@R +throughout//@RKT +throughput/SM/@RPT +throughway's//@RWS +throw/SZGR/@R +throwaway/SM/@RWW +throwback/MS/@RBK +thrower/M/@RW +thrown//@RN +throwout//@RWT +thrum/S/@RM +thrummed//@RMT +thrumming//@RMN +thrush/MS/@RX +thrust/ZGSR/@RST +thruster/M/@RST +Thruway/MS/@RW +thruway/SM/@RW +Thu//@ +Thucydides/M/@STTS +thud/MS/@T +thudded//@TT +thudding//@TN +thug/MS/@K +thuggee/M/@K +thuggery/SM/@KR +thuggish//@KX +Thule/M/@L +thulium/SM/@LM +thumb/SMDG/@M +thumbnail/MS/@MBNL +thumbscrew/SM/@MBSKR +thumbtack/GMDS/@MBTK +thump/RDMSG/@MP +thunder/ZGJDRMS/@NT +thunderbolt/MS/@NTBLT +thunderclap/SM/@NTKLP +thundercloud/SM/@NTKLT +thunderer/M/@NTR +thunderhead/SM/@NTHT +thundering/Y/@NTRN +thunderous/Y/@NTRS +thundershower/MS/@NTXW +thunderstorm/MS/@NTSTM +thunderstruck//@NTSTRK +thundery//@NTR +thunk//@NK +Thur/MS/@ +Thurber/M/@B +Thurman/M/@MN +Thursday/SM/@ST +Thurstan/M/@STN +Thurston/M/@STN +thus/Y/@S +thwack/DRSZG/@WK +thwacker/M/@WK +thwart/GSDRY/@WT +thwarter/M/@WT +thy//@ +thyme/SM/@M +thymine/MS/@MN +thymus/SM/@MS +thyratron/M/@RTRN +thyristor/MS/@RST +thyroglobulin//@RKLBLN +thyroid/S/@RT +thyroidal//@RTL +thyronine//@RNN +thyrotoxic//@RTKSK +thyrotrophic//@RTRFK +thyrotrophin//@RTRFN +thyrotropic//@RTRPK +thyrotropin/M/@RTRPN +thyroxine/M/@RKSN +thyself//@SLF +Ti/M/T +ti/MDRZ/T +Tia/M/X +Tianjin//XNKN +tiara/MS/XR +Tiber/M/TB +Tiberius/M/TBRS +Tibet/M/TBT +Tibetan/S/TBTN +tibia/M/TB +tibiae//TB +tibial//TBL +Tibold/M/TBLT +Tiburon/M/TBRN +tic/MS/TK +tick/GZJRDMS/TK +ticker/M/TK +ticket/SGMD/TKT +ticking/M/TKN +tickle/RSDZG/TKL +tickler/M/TKL +ticklish/PY/TKLX +ticklishness/MS/TKLXNS +ticktacktoe/S/TKTKT +ticktock/SMDG/TKTK +Ticonderoga/M/TKNTRK +tidal/Y/TTL +tidbit/MS/TTBT +tiddlywinks/M/TTLWNKS +tide/GJDS/TT +tideland/MS/TTLNT +tidewater/SM/TTWT +tideway/SM/TTW +tidily/U/TTL +tidiness/USM/TTNS +tidy/UGDSRPT/TT +tidying/M/TTYN +tie/AUDS/T +tieback/MS/TBK +Tiebold/M/TBLT +Tiebout/M/TBT +tiebreaker/SM/TBRK +Tieck/M/TK +Tiena/M/TN +Tienanmen/M/TNNMN +Tientsin's//TNTSNS +tier/DGM/T +Tierney/M/TN +Tiertza/M/TTS +tiff/GDMS/TF +Tiff/M/TF +Tiffani/M/TFN +Tiffanie/M/TFN +tiffany/M/TFN +Tiffany/M/TFN +Tiffi/M/TF +Tiffie/M/TF +Tiffy/M/TF +tiger/SM/TK +tigerish//TKRX +tight/STXPRNY/TT +tighten/JZGDR/TTN +tightener/M/TTN +tightfisted//TTFSTT +tightness/MS/TTNS +tightrope/SM/TTRP +tightwad/MS/TTWT +tigress/SM/TKRS +Tigris/M/TKRS +Tijuana/M/TKN +tike's//TKS +Tilda/M/TLT +tilde/MS/TLT +Tildi/M/TLT +Tildie/M/TLT +Tildy/M/TLT +tile/DRSJMZG/TL +tiled/UE/TLT +Tiler/M/TL +tiles/U/TLS +tiling/M/TLN +till/EGSZDR/TL +tillable//TLBL +tillage/SM/TLK +tiller/GDM/TL +tiller's/E/TLS +Tillich/M/TLX +Tillie/M/TL +Tillman/M/TLMN +Tilly/M/TL +tilt/RDSGZ/TLT +tilth/M/TL@ +Tim/MS/TM +timber/DMSG/TMB +timbering/M/TMBRN +timberland/SM/TMBLNT +timberline/S/TMBLN +timbre/MS/TMBR +timbrel/SM/TMBRL +Timbuktu/M/TMBKT +time/DRSJMYZG/TM +timebase//TMBS +timekeeper/MS/TMKP +timekeeping/SM/TMKPN +timeless/PY/TMLS +timelessness/S/TMLSNS +timeliness/SMU/TMLNS +timely/UTRP/TML +timeout/S/TMT +timepiece/MS/TMPS +timer/M/TM +timescale/S/TMSKL +timeserver/MS/TMSF +timeserving/S/TMSFN +timeshare/SDG/TMXR +timespan//TMSPN +timestamped//TMSTMPT +timestamps//TMSTMPS +timetable/GMSD/TMTBL +timeworn//TMWN +Timex/M/TMKS +timezone/S/TMSN +Timi/M/TM +timid/RYTP/TMT +timidity/SM/TMTT +timidness/MS/TMTNS +timing/M/TMN +Timmi/M/TM +Timmie/M/TM +Timmy/M/TM +Timofei/M/TMF +Timon/M/TMN +timorous/YP/TMRS +timorousness/MS/TMRSNS +Timoteo/M/TMT +Timothea/M/TM@ +Timothee/M/TM@ +Timotheus/M/TM@S +Timothy/M/TM@ +timothy/MS/TM@ +timpani//TMPN +timpanist/S/TMPNST +Timur/M/TM +tin/MDGS/TN +Tina/M/TN +tincture/SDMG/TNKTR +tinder/MS/TNT +tinderbox/MS/TNTBKS +Tine/M/TN +tine/SM/TN +tinfoil/MS/TNFL +ting/GYDM/TN +Ting/M/TN +tinge/S/TN +tingeing//TNN +tingle/SDG/TNL +tingling/Y/TNLN +tingly/TR/TNL +tinily//TNL +tininess/MS/TNNS +tinker/SRDMZG/TNK +Tinkertoy//TNKT +tinkle/SDG/TNKL +tinkling/M/TNKLN +tinkly//TNKL +tinned//TNT +tinner/M/TN +tinnily//TNL +tinniness/SM/TNNS +tinning/M/TNN +tinnitus/MS/TNTS +tinny/RSTP/TN +tinplate/S/TNPLT +tinsel/GMDYS/TNSL +Tinseltown/M/TNSLTN +tinsmith/M/TNSM@ +tinsmiths//TNSM@S +tint/SGMRDB/TNT +tinter/M/TNT +tintinnabulation/MS/TNTNBLXN +Tintoretto/M/TNTRT +tintype/SM/TNTP +tinware/MS/TNWR +tiny/RPT/TN +Tioga/M/XK +tip/MS/TP +Tiphani/M/TFN +Tiphanie/M/TFN +Tiphany/M/TFN +tipi's//TPS +tipoff//TPF +Tippecanoe/M/TPKN +tipped//TPT +tipper/MS/TP +Tipperary/M/TPRR +tippet/MS/TPT +tipping//TPN +tipple/ZGRSD/TPL +tippler/M/TPL +tippy/R/TP +tipsily//TPSL +tipsiness/SM/TPSNS +tipster/SM/TPST +tipsy/TPR/TPS +tiptoe/SD/TPT +tiptoeing//TPTN +tiptop/S/TPTP +tirade/SM/TRT +Tirana's//TRNS +Tirane//TRN +tire/MGDSJ/TR +tired/AYP/TRT +tireder//TRT +tiredest//TRTST +tiredness/S/TRTNS +tireless/PY/TRLS +tirelessness/SM/TRLSNS +tires/A/TRS +Tiresias/M/TRXS +tiresome/PY/TRSM +tiresomeness/S/TRSMNS +tiring/AU/TRN +Tirol/M/TRL +Tirolean/S/TRLN +tiro's//TRS +Tirrell/M/TRL +tis//TS +Tish/M/TX +Tisha/M/TX +tissue/MGSD/TS +tit/MRZS/TT +titan/SM/TTN +Titan/SM/TTN +titanate/M/TTNT +Titania/M/TTN +titanic//TTNK +Titanic/M/TTNK +titanically//TTNKL +titanium/SM/TTNM +titbit's//TTBTS +titer/M/TT +tithe/SRDGZM/T@ +tither/M/T@ +tithing/M/T@N +Titian/M/TXN +titian/S/TXN +Titicaca/M/TTKK +titillate/XSDVNG/TTLT +titillating/Y/TTLTN +titillation/M/TTLXN +titivate/NGDSX/TTFT +titivation/M/TTFXN +title/GMSRD/TTL +titled/AU/TTLT +titleholder/SM/TTLHLT +titling/A/TTLN +titmice//TTMS +titmouse/M/TTMS +Tito/SM/TT +titrate/SDGN/TTRT +titration/M/TTRXN +titted//TTT +titter/GDS/TT +titting//TTN +tittle/SDMG/TTL +titular/SY/TTL +Titus/M/TTS +tizzy/SM/TS +TKO//TK +Tl/M/TL +Tlaloc/M/TLLK +TLC//TLK +Tlingit/M/TLNT +TM//TM +Tm/M/TM +tn//TN +TN//TN +tnpk//TNPK +TNT//TNT +to/D/T +toad/SM/TT +toadstool/SM/TTSTL +toady/GSDM/TT +toadyism/M/TTYSM +toast/SZGRDM/TST +toaster/M/TST +toastmaster/MS/TSTMST +toastmistress/S/TSTMSTRS +toasty/TRS/TST +tobacco/SM/TBK +tobacconist/SM/TBKNST +tobaggon/SM/TBKN +Tobago/M/TBK +Tobe/M/TB +Tobey/M/TB +Tobi/M/TB +Tobiah/M/TB +Tobias/M/TBS +Tobie/M/TB +Tobin/M/TBN +Tobit/M/TBT +toboggan/MRDSZG/TBKN +Toby/M/TB +Tobye/M/TBY +Tocantins/M/TKNTNS +toccata/M/TKT +Tocqueville//TKFL +tocsin/MS/TKSN +Tod/M/TT +today/SM/TT +today'll//TTL +Todd/M/TT +Toddie/M/TT +toddle/ZGSRD/TTL +toddler/M/TTL +Toddy/M/TT +toddy/SM/TT +toe/MS/T +toecap/SM/TKP +toeclip/S/TKLP +TOEFL//TFL +toehold/MS/THLT +toeing//TN +toenail/DMGS/TNL +toffee/SM/TF +tofu/S/TF +tog/SMG/TK +toga/SMD/TK +toge//TK +together/P/TK@ +togetherness/MS/TK@NS +togged//TKT +togging//TKN +toggle/SDMG/TKL +Togo/M/TK +Togolese/M/TKLS +Toiboid/M/TBT +toil/SGZMRD/TL +toilet/GMDS/TLT +toiletry/MS/TLTR +toilette/SM/TLT +toilsome/PY/TLSM +toilsomeness/M/TLSMNS +Toinette/M/TNT +Tojo/M/TK +tokamak//TKMK +Tokay/M/TK +toke/GDS/TK +token/SMDG/TKN +tokenism/SM/TKNSM +tokenized//TKNST +Tokugawa/M/TKKW +Tokyo/M/TKY +Tokyoite/MS/TKYT +Toland/M/TLNT +told/AU/TLT +tole/MGDS/TL +Toledo/SM/TLT +tolerability/IM/TLRBLT +tolerable/I/TLRBL +tolerably/I/TLRBL +tolerance/SIM/TLRNS +tolerant/IY/TLRNT +tolerate/XVNGSD/TLRT +toleration/M/TLRXN +Tolkien//TLKN +toll/DGS/TL +tollbooth/M/TLB@ +tollbooths//TLB@S +Tolley/M/TL +tollgate/MS/TLKT +tollhouse/M/TLHS +tollway/S/TLW +Tolstoy/M/TLST +toluene/MS/TLN +Tolyatti/M/TLYT +Tom/M/TM +tom/SM/TM +Toma/SM/TM +tomahawk/SGMD/TMHK +Tomasina/M/TMSN +Tomasine/M/TMSN +Tomaso/M/TMS +tomato/M/TMT +tomatoes//TMTS +tomb/GSDM/TM +Tombaugh/M/TMB +Tombigbee/M/TMBKB +tomblike//TMBLK +tombola/M/TMBL +tomboy/MS/TMB +tomboyish//TMBYX +tombstone/MS/TMBSTN +tomcat/SM/TMKT +tomcatted//TMKTT +tomcatting//TMKTN +Tome/M/TM +tome/SM/TM +tomfool/M/TMFL +tomfoolery/MS/TMFLR +Tomi/M/TM +Tomkin/M/TMKN +Tomlin/M/TMLN +tommed//TMT +Tommi/M/TM +Tommie/M/TM +tomming//TMN +tommy/M/TM +Tommy/M/TM +tomographic//TMKRFK +tomography/MS/TMKRF +tomorrow/MS/TMR +Tompkins/M/TMPKNS +Tomsk/M/TMSK +tomtit/SM/TMTT +ton/SKM/TN +tonal/Y/TNL +tonality/MS/TNLT +tone/ISRDZG/TN +tonearm/S/TNM +toneless/YP/TNLS +tonelessness/M/TNLSNS +toner/IM/TN +tone's//TNS +tong/GRDS/TNK +Tonga/M/TNK +Tongan/SM/TNKN +tongue/SDMG/TNK +tongueless//TNKLS +tonguing/M/TNKN +Toni/M/TN +Tonia/M/TN +tonic/SM/TNK +Tonie/M/TN +tonight/MS/TNT +Tonio/M/TN +tonk/MS/TNK +tonnage/SM/TNK +tonne/MS/TN +Tonnie/M/TN +tonsil/SM/TNSL +tonsillectomy/MS/TNSLKTM +tonsillitis/SM/TNSLTS +tonsorial//TNSRL +tonsure/SDGM/TNSR +Tonto/M/TNT +Tony/M/TN +tony/RT/TN +Tonya/M/TNY +Tonye/M/TNY +too/H/T +toodle//TTL +took/A/TK +tool/AGDS/TL +toolbox/SM/TLBKS +tooler/SM/TL +tooling/M/TLN +toolkit/SM/TLKT +toolmake/ZRG/TLMK +toolmaker/M/TLMK +toolmaking/M/TLMKN +tool's//TLS +toolsmith//TLSM@ +Toomey/M/TM +toot/GRDZS/TT +tooter/M/TT +tooth/DMG/T@ +toothache/SM/T@X +toothbrush/MSG/T@BRX +toothily//T@L +toothless//T@LS +toothmarks//T@MKS +toothpaste/SM/T@PST +toothpick/MS/T@PK +tooths//T@S +toothsome//T@SM +toothy/TR/T@ +tootle/SRDG/TTL +toots/M/TTS +tootsie//TTS +Tootsie/M/TTS +tootsy/MS/TTS +top/SMDRG/TP +topaz/MS/TPS +topcoat/MS/TPKT +topdressing/S/TPTRSN +Topeka/M/TPK +toper/M/TP +topflight//TPFLT +topgallant/M/TPKLNT +topiary/S/TPR +topic/MS/TPK +topical/Y/TPKL +topicality/MS/TPKLT +topknot/MS/TPKNT +topless//TPLS +topmast/MS/TPMST +topmost//TPMST +topnotch/R/TPNX +topocentric//TPSNTRK +topographer/SM/TPKRF +topographic//TPKRFK +topographical/Y/TPKRFKL +topography/MS/TPKRF +topological/Y/TPLKKL +topologist/MS/TPLKST +topology/MS/TPLK +topped//TPT +topper/MS/TP +topping/MS/TPN +topple/GSD/TPL +topsail/MS/TPSL +topside/SRM/TPST +topsoil/GDMS/TPSL +topspin/MS/TPSPN +Topsy/M/TPS +toque/MS/TK +tor/SLM/T +Torah/M/TR +Torahs//TRS +torch/SDMG/TX +torchbearer/SM/TXBR +torchlight/S/TXLT +Tore/M/TR +tore/S/TR +toreador/SM/TRT +Torey/M/TR +tori/M/TR +Tori/M/TR +Torie/M/TR +Torin/M/TRN +torment/GSD/TMNT +tormenting/Y/TMNTN +tormentor/MS/TMNT +torn//TN +tornado/M/TNT +tornadoes//TNTS +toroid/MS/TRT +toroidal/Y/TRTL +Toronto/M/TRNT +torpedo/GMD/TPT +torpedoes//TPTS +torpid/SY/TPT +torpidity/S/TPTT +torpor/MS/TP +torque/MZGSRD/TK +Torquemada/M/TKMT +Torr/XM/TR +Torrance/M/TRNS +Torre/MS/TR +torrence//TRNS +Torrence/M/TRNS +Torrens/M/TRNS +torrent/MS/TRNT +torrential//TRNXL +Torrey/M/TR +Torricelli/M/TRSL +torrid/RYTP/TRT +torridity/SM/TRTT +torridness/SM/TRTNS +Torrie/M/TR +Torrin/M/TRN +Torry/M/TR +tors/S/TS +torsion/IAM/TXN +torsional/Y/TXNL +torsions//TXNS +torsi's//TSS +torso/SM/TS +tort/ASFE/TT +torte/MS/TT +tortellini/MS/TTLN +torten//TTN +tortilla/MS/TTL +tortoise/SM/TTS +tortoiseshell/SM/TTSXL +Tortola/M/TTL +tortoni/MS/TTN +tort's//TTS +Tortuga/M/TTK +tortuous/PY/TTS +tortuousness/MS/TTSNS +torture/ZGSRD/TTR +torturous//TTRS +torus/MS/TRS +Tory/SM/TR +Tosca/M/TSK +Toscanini/M/TSKNN +Toshiba/M/TXB +toss/SRDGZ/TS +tossup/MS/TSP +tot/MDRSG/TT +total/ZGSRDYM/TTL +totaler/M/TTL +totalistic//TTLSTK +totalitarian/S/TTLTRN +totalitarianism/SM/TTLTRNSM +totality/MS/TTLT +totalizator/S/TTLST +totalizing//TTLSN +tote/S/TT +totem/MS/TTM +totemic//TTMK +toter/M/TT +toting/M/TTN +Toto/M/TT +totted//TTT +totter/ZGRDS/TT +totterer/M/TTR +tottering/Y/TTRN +totting//TTN +toucan/MS/TKN +touch/ASDG/TX +touchable/U/TXBL +touchdown/SM/TXTN +touché//TX +touched/U/TXT +toucher/M/TX +touchily//TXL +touchiness/SM/TXNS +touching/SY/TXN +touchline/M/TXLN +touchscreen//TXSKRN +touchstone/SM/TXSTN +touchy/TPR/TX +tough/TXGRDNYP/TF +toughen/DRZG/TFN +toughener/M/TFN +toughness/SM/TFNS +toughs//TFS +Toulouse/M/TLS +toupee/SM/TP +tour/GZSRDM/T +toured/CF/TRT +tourer/M/TR +touring/F/TRN +tourism/SM/TRSM +tourist/SM/TRST +touristic//TRSTK +touristy//TRST +tourmaline/SM/TMLN +tournament/MS/TNMNT +tourney/GDMS/TN +tourniquet/MS/TNKT +tours/CF/TS +tour's/CF/TS +tousle/GSD/TSL +tout/SGRD/TT +touter/M/TT +Tova/M/TF +Tove/M/TF +tow/DRSZG/T +toward/YU/TWT +towardliness/M/TWTLNS +towardly/P/TWTL +towards//TWTS +towboat/MS/TBT +towel/GJDMS/TWL +towelette/S/TWLT +toweling/M/TWLN +tower/GMD/TW +towering/Y/TWRN +towhead/MSD/THT +towhee/SM/TH +towline/MS/TLN +Town/M/TN +town/SRM/TN +towner/M/TN +Townes//TNS +Towney/M/TN +townhouse/S/TNHS +Townie/M/TN +townie/S/TN +Townley/M/TNL +Townsend/M/TNSNT +townsfolk//TNSFLK +township/MS/TNXP +townsman/M/TNSMN +townsmen//TNSMN +townspeople/M/TNSPPL +townswoman/M/TNSWMN +townswomen//TNSWMN +Towny/M/TN +towpath/M/TP@ +towpaths//TP@S +towrope/MS/TRP +Towsley/M/TSL +toxemia/MS/TKSM +toxic/S/TKSK +toxicity/MS/TKSST +toxicological//TKSKLKKL +toxicologist/SM/TKSKLKST +toxicology/MS/TKSKLK +toxin/MS/TKSN +toy/MDRSG/T +toyer/M/TY +toymaker//TMK +Toynbee/M/TNB +Toyoda/M/TYT +Toyota/M/TYT +toyshop//TXP +tr//TR +trace/ASDG/TRS +Trace/M/TRS +traceability/M/TRSBLT +traceable/P/TRSBL +traceableness/M/TRSBLNS +traceback/MS/TRSBK +traced/U/TRST +Tracee/M/TRS +traceless/Y/TRSLS +tracepoint/SM/TRSPNT +tracer/MS/TRS +tracery/MDS/TRSR +trace's//TRSS +Tracey/M/TRS +trachea/M/TRX +tracheae//TRX +tracheal/M/TRXL +tracheotomy/SM/TRXTM +Traci/M/TRS +Tracie/M/TRS +tracing/SM/TRSN +track/SZGMRD/TRK +trackage//TRKK +trackball/S/TRKBL +trackbed//TRKBT +tracked/U/TRKT +tracker/M/TRK +trackless//TRKLS +tracksuit/SM/TRKST +tract/ABS/TRKT +tractability/SI/TRKTBLT +tractable/I/TRKTBL +tractably/I/TRKTBL +Tractarians//TRKTRNS +traction/KSCEMAF/TRKXN +tractive/KFE/TRKTF +tractor/FKMASC/TRKT +tract's//TRKTS +tracts/CEFK/TRKTS +Tracy/M/TRS +trade/SRDGZM/TRT +trademark/GSMD/TRTMK +trader/M/TRT +tradesman/M/TRTSMN +tradesmen//TRTSMN +tradespeople//TRTSPPL +tradespersons//TRTSPSNS +tradeswoman/M/TRTSWMN +tradeswomen//TRTSWMN +tradition/SM/TRTXN +traditional/U/TRTXNL +traditionalism/MS/TRTXNLSM +traditionalist/MS/TRTXNLST +traditionalistic//TRTXNLSTK +traditionalized//TRTXNLST +traditionally//TRTXNL +traduce/DRSGZ/TRTS +Trafalgar/M/TRFLK +traffic/SM/TRFK +trafficked//TRFKT +trafficker/MS/TRFK +trafficking/S/TRFKN +tragedian/SM/TRKTN +tragedienne/MS/TRKTN +tragedy/MS/TRKT +tragic/S/TRKK +tragically//TRKKL +tragicomedy/SM/TRKKMT +tragicomic//TRKKMK +trail/SZGJRD/TRL +trailblazer/MS/TRLBLS +trailblazing/S/TRLBLSN +trailer/GDM/TRL +trails/F/TRLS +trailside//TRLST +train/ASDG/TRN +trainable//TRNBL +trained/U/TRNT +trainee/MS/TRN +traineeships//TRNXPS +trainer/MS/TRN +training/SM/TRNN +trainman/M/TRNMN +trainmen//TRNMN +trainspotter/S/TRNSPT +traipse/DSG/TRPS +trait/MS/TRT +traitor/SM/TRT +traitorous/Y/TRTRS +Trajan/M/TRKN +trajectory/MS/TRKKTR +tram/MS/TRM +trammed//TRMT +trammel/GSD/TRML +trammeled/U/TRMLT +tramming//TRMN +tramp/RDSZG/TRMP +trample/DGRSZ/TRMPL +trampler/M/TRMPL +trampoline/GMSD/TRMPLN +tramway/M/TRMW +Tran/M/TRN +trance/MGSD/TRNS +tranche/SM/TRNX +tranquil/PTRY/TRNKL +tranquility/S/TRNKLT +tranquilize/JGZDSR/TRNKLS +tranquilized/U/TRNKLST +tranquilizer/M/TRNKLS +tranquilizes/A/TRNKLSS +tranquilizing/YM/TRNKLSN +tranquillize/GRSDZ/TRNKLS +tranquillizer/M/TRNKLS +tranquilness/M/TRNKLNS +trans/I/TRNS +transact/GSD/TRNSKT +transaction/MS/TRNSKXN +transactional//TRNSKXNL +transactor/SM/TRNSKT +transalpine//TRNSLPN +transaminase//TRNSMNS +transatlantic//TRNSTLNTK +Transcaucasia/M/TRNSKKX +transceiver/SM/TRNSF +transcend/SDG/TRNSNT +transcendence/MS/TRNSNTNS +transcendent/Y/TRNSNTNT +transcendental/YS/TRNSNTNTL +transcendentalism/SM/TRNSNTNTLSM +transcendentalist/SM/TRNSNTNTLST +transconductance//TRNSKNTKTNS +transcontinental//TRNSKNTNNTL +transcribe/DSRGZ/TRNSKRB +transcriber/M/TRNSKRB +transcript/SM/TRNSKRPT +transcription/SM/TRNSKRPXN +transcultural//TRNSKLTRL +transducer/SM/TRNSTS +transduction/M/TRNSTKXN +transect/DSG/TRNSKT +transept/SM/TRNSPT +transfer/BSMD/TRNSF +transferability/M/TRNSFRBLT +transferal/MS/TRNSFRL +transferee/M/TRNSFR +transference/SM/TRNSFRNS +transferor/MS/TRNSFR +transferral/SM/TRNSFRL +transferred//TRNSFRT +transferrer/SM/TRNSFR +transferring//TRNSFRN +transfiguration/SM/TRNSFKRXN +transfigure/SDG/TRNSFKR +transfinite/Y/TRNSFNT +transfix/SDG/TRNSFKS +transform/DRZBSG/TRNSFM +transformation/MS/TRNSFMXN +transformational//TRNSFMXNL +transformed/U/TRNSFMT +transformer/M/TRNSFM +transfuse/XSDGNB/TRNSFS +transfusion/M/TRNSFXN +transgress/VGSD/TRNSKRS +transgression/SM/TRNSKRXN +transgressor/S/TRNSKRS +transience/SM/TRNSNS +transiency/S/TRNSNS +transient/YS/TRNSNT +transistor/SM/TRNSST +transistorize/GDS/TRNSSTRS +transit/SGVMD/TRNST +Transite/M/TRNST +transition/MDGS/TRNSXN +transitional/Y/TRNSXNL +transitive/PIY/TRNSTF +transitiveness/IM/TRNSTFNS +transitivenesses//TRNSTFNSS +transitivity/MS/TRNSTFT +transitoriness/M/TRNSTRNS +transitory/P/TRNSTR +transl//TRNSL +translatability/M/TRNSLTBLT +translatable/U/TRNSLTBL +translate/VGNXSDB/TRNSLT +translated/AU/TRNSLTT +translation/M/TRNSLXN +translational//TRNSLXNL +translator/SM/TRNSLT +transliterate/XNGSD/TRNSLTRT +translucence/SM/TRNSLSNS +translucency/MS/TRNSLSNS +translucent/Y/TRNSLSNT +transmigrate/XNGSD/TRNSMKRT +transmissible//TRNSMSBL +transmission/MSA/TRNSMXN +transmissive//TRNSMSF +transmit/AS/TRNSMT +transmittable//TRNSMTBL +transmittal/SM/TRNSMTL +transmittance/MS/TRNSMTNS +transmitted/A/TRNSMTT +transmitter/SM/TRNSMT +transmitting/A/TRNSMTN +transmogrification/M/TRNSMKRFKXN +transmogrify/GXDSN/TRNSMKRF +transmutation/SM/TRNSMTXN +transmute/GBSD/TRNSMT +transnational/S/TRNSNXNL +transoceanic//TRNSSNK +transom/SM/TRNSM +transonic//TRNSNK +transpacific//TRNSPSFK +transparency/MS/TRNSPRNS +transparent/YP/TRNSPRNT +transparentness/M/TRNSPRNTNS +transpiration/SM/TRNSPRXN +transpire/GSD/TRNSPR +transplant/GRDBS/TRNSPLNT +transplantation/S/TRNSPLNTXN +transpolar//TRNSPL +transponder/MS/TRNSPNT +transport/BGZSDR/TRNSPT +transportability//TRNSPTBLT +transportable/U/TRNSPTBL +transportation/SM/TRNSPTXN +transpose/BGSD/TRNSPS +transposed/U/TRNSPST +transposition/SM/TRNSPSXN +Transputer/M/TRNSPT +transsexual/SM/TRNSKSL +transsexualism/MS/TRNSKSLSM +transship/LS/TRNXP +transshipment/SM/TRNXPMNT +transshipped//TRNXPT +transshipping//TRNXPN +transubstantiation/MS/TRNSBSTNXXN +Transvaal/M/TRNSFL +transversal/YM/TRNSFSL +transverse/GYDS/TRNSFS +transvestism/SM/TRNSFSTSM +transvestite/SM/TRNSFSTT +transvestitism//TRNSFSTTSM +Transylvania/M/TRNSLFN +trap/MS/TRP +trapdoor/S/TRPT +trapeze/DSGM/TRPS +trapezium/MS/TRPSM +trapezoid/MS/TRPST +trapezoidal//TRPSTL +trappable/U/TRPBL +trapped//TRPT +trapper/SM/TRP +trapping/S/TRPN +Trappist/MS/TRPST +trapshooting/SM/TRPXTN +trash/SRDMG/TRX +trashcan/SM/TRXKN +trashiness/SM/TRXNS +trashy/TRP/TRX +Trastevere/M/TRSTFR +trauma/MS/TRM +traumatic//TRMTK +traumatically//TRMTKL +traumatize/SDG/TRMTS +travail/SMDG/TRFL +travel/SDRGZJ/TRFL +traveled/U/TRFLT +traveler/M/TRFL +travelog's//TRFLKS +travelogue/S/TRFLK +Traver/MS/TRF +traversal/SM/TRFSL +traverse/GBDRS/TRFS +traverser/M/TRFS +travertine/M/TRFTN +travesty/SDGM/TRFST +Travis/M/TRFS +Travus/M/TRFS +trawl/RDMSZG/TRL +trawler/M/TRL +tray/SM/TR +treacherous/PY/TRXRS +treacherousness/SM/TRXRSNS +treachery/SM/TRXR +treacle/DSGM/TRKL +treacly//TRKL +tread/SAGD/TRT +treader/M/TRT +treadle/GDSM/TRTL +treadmill/MS/TRTML +Treadwell/M/TRTWL +treas//TRS +treason/BMS/TRSN +treasonous//TRSNS +treasure/DRSZMG/TRSR +treasurer/M/TRSR +treasurership//TRSRXP +treasury/SM/TRSR +Treasury/SM/TRSR +treat/SAGDR/TRT +treatable//TRTBL +treated/U/TRTT +treater/S/TRT +treatise/MS/TRTS +treatment/MS/TRTMNT +treat's//TRTS +treaty/MS/TRT +treble/SDG/TRBL +Treblinka/M/TRBLNK +tree/MDS/TR +treeing//TRN +treeless//TRLS +treelike//TRLK +treetop/SM/TRTP +trefoil/SM/TRFL +Trefor/M/TRF +trek/MS/TRK +trekked//TRKT +trekker/MS/TRK +Trekkie/M/TRK +trekking//TRKN +trellis/GDSM/TRLS +Tremain/M/TRMN +Tremaine/M/TRMN +trematode/SM/TRMTT +Tremayne/M/TRMN +tremble/JDRSG/TRMBL +trembler/M/TRMBL +trembles/M/TRMBLS +trembly//TRMBL +tremendous/YP/TRMNTS +tremendousness/M/TRMNTSNS +tremolo/MS/TRML +tremor/MS/TRM +tremulous/YP/TRMLS +tremulousness/SM/TRMLSNS +trench/GASD/TRNX +trenchancy/MS/TRNXNS +trenchant/Y/TRNXNT +trencher/SM/TRNX +trencherman/M/TRNXMN +trenchermen//TRNXMN +trench's//TRNXS +trend/SDMG/TRNT +trendily//TRNTL +trendiness/S/TRNTNS +trendy/PTRS/TRNT +Trenna/M/TRN +Trent/M/TRNT +Trenton/M/TRNTN +trepanned//TRPNT +trepidation/MS/TRPTXN +Tresa/M/TRS +Trescha/M/TRSX +trespass/ZRSDG/TRSPS +trespasser/M/TRSPS +tress/MSDG/TRS +Tressa/M/TRS +tressed/E/TRST +tresses/E/TRSS +tressing/E/TRSN +trestle/MS/TRSTL +Trev/RM/TRF +Trevar/M/TRF +Trevelyan/M/TRFLYN +Trever/M/TRF +Trevino/M/TRFN +Trevor/M/TRF +Trey/M/TR +trey/MS/TR +triable/P/TRBL +triableness/M/TRBLNS +triad/MS/TRT +triadic//TRTK +triage/SDMG/TRK +trial/ASM/TRL +trialization//TRLSXN +trialled//TRLT +trialling//TRLN +triamcinolone//TRMSNLN +triangle/SM/TRNKL +triangulable//TRNKLBL +triangular/Y/TRNKL +triangularization/S/TRNKLRSXN +triangulate/YGNXSD/TRNKLT +triangulation/M/TRNKLXN +Triangulum/M/TRNKLM +Trianon/M/TRNN +Triassic//TRSK +triathlon/S/TR@LN +triatomic//TRTMK +tribal/Y/TRBL +tribalism/MS/TRBLSM +tribe/MS/TRB +tribesman/M/TRBSMN +tribesmen//TRBSMN +tribeswoman//TRBSWMN +tribeswomen//TRBSWMN +tribulate/NX/TRBLT +tribulation/M/TRBLXN +tribunal/MS/TRBNL +tribune/SM/TRBN +tributary/MS/TRBTR +tribute/EGSF/TRBT +tribute's//TRBTS +trice/GSDM/TRS +tricentennial/S/TRSNTNL +triceps/SM/TRSPS +triceratops/M/TRSRTPS +trichina/M/TRXN +trichinae//TRXN +trichinoses//TRXNSS +trichinosis/M/TRXNSS +trichloroacetic//TRXLRSTK +trichloroethane//TRXLR@N +trichotomy/M/TRXTM +trichromatic//TRXRMTK +Tricia/M/TRX +trick/GMSRD/TRK +trickery/MS/TRKR +trickily//TRKL +trickiness/SM/TRKNS +trickle/DSG/TRKL +trickster/MS/TRKST +tricky/RPT/TRK +tricolor/SMD/TRKL +tricycle/SDMG/TRSKL +trident/SM/TRTNT +tridiagonal//TRTKNL +tried/UA/TRT +triennial/SY/TRNL +trier/AS/TR +trier's//TRS +tries/A/TRS +Trieste/M/TRST +triffid/S/TRFT +trifle/MZGJSRD/TRFL +trifler/M/TRFL +trifluoride/M/TRFLRT +trifocals//TRFKLS +trig/S/TRK +trigged//TRKT +trigger/GSDM/TRK +triggest//TRKST +trigging//TRKN +triglyceride/MS/TRKLSRT +trigonal/Y/TRKNL +trigonometric//TRKNMTRK +trigonometrical//TRKNMTRKL +trigonometry/MS/TRKNMTR +trigram/S/TRKRM +trihedral//TRHTRL +trike/GMSD/TRK +trilateral/S/TRLTRL +trilby/SM/TRLB +trilingual//TRLNL +trill/RDMGS/TRL +trillion/SMH/TRLN +trillionth/M/TRLN@ +trillionths//TRLN@S +trillium/SM/TRLM +trilobite/MS/TRLBT +trilogy/MS/TRLK +trim/PSYR/TRM +trimaran/MS/TRMRN +Trimble/M/TRMBL +trimer/M/TRM +trimester/MS/TRMST +trimmed/U/TRMT +trimmer/MS/TRM +trimmest//TRMST +trimming/MS/TRMN +trimness/S/TRMNS +trimodal//TRMTL +trimonthly//TRMN@L +Trimurti/M/TRMT +Trina/M/TRN +Trinidad/M/TRNTT +trinitarian/S/TRNTRN +trinitrotoluene/SM/TRNTRTLN +trinity/MS/TRNT +Trinity/MS/TRNT +trinket/MRDSG/TRNKT +trinketer/M/TRNKT +trio/SM/TR +triode/MS/TRT +trioxide/M/TRKST +Trip/M/TRP +trip/SMY/TRP +tripartite/N/TRPTT +tripartition/M/TRPTXN +tripe/MS/TRP +triphenylarsine//TRFNLSN +triphenylphosphine//TRFNLFSFN +triphenylstibine//TRFNLSTBN +triphosphopyridine//TRFSFPRTN +triple/GSD/TRPL +triplet/SM/TRPLT +triplex/S/TRPLKS +triplicate/SDG/TRPLKT +triplication/M/TRPLKXN +triply/GDSN/TRPL +tripod/MS/TRPT +tripodal//TRPTL +tripoli/M/TRPL +Tripoli/M/TRPL +tripolyphosphate//TRPLFSFT +tripos/SM/TRPS +Tripp/M/TRP +Trippe/M/TRP +tripped//TRPT +tripper/MS/TRP +tripping/Y/TRPN +triptych/M/TRPTX +triptychs//TRPTXS +tripwire/MS/TRPWR +trireme/SM/TRRM +Tris//TRS +trisect/GSD/TRSKT +trisection/S/TRSKXN +trisector//TRSKT +Trish/M/TRX +Trisha/M/TRX +trisodium//TRSTM +Trista/M/TRST +Tristam/M/TRSTM +Tristan/M/TRSTN +tristate//TRSTT +trisyllable/M/TRSLBL +trite/SRPTY/TRT +tritely/F/TRTL +triteness/SF/TRTNS +tritium/MS/TRTM +triton/M/TRTN +Triton/M/TRTN +triumph/GMD/TRMF +triumphal//TRMFL +triumphalism//TRMFLSM +triumphant/Y/TRMFNT +triumphs//TRMFS +triumvir/MS/TRMF +triumvirate/MS/TRMFRT +triune//TRN +trivalent//TRFLNT +trivet/SM/TRFT +trivia//TRF +trivial/Y/TRFL +triviality/MS/TRFLT +trivialization/MS/TRFLSXN +trivialize/DSG/TRFLS +trivium/M/TRFM +Trix/M/TRKS +Trixi/M/TRKS +Trixie/M/TRKS +Trixy/M/TRKS +Trobriand/M/TRBRNT +trochaic/S/TRXK +trochee/SM/TRX +trod/AU/TRT +trodden/UA/TRTN +trodes//TRTS +troff/MR/TRF +troglodyte/MS/TRKLTT +troika/SM/TRK +Trojan/MS/TRKN +troll/DMSG/TRL +trolled/F/TRLT +trolley/SGMD/TRL +trolleybus/S/TRLBS +trolling/F/TRLN +trollish//TRLX +trollop/GSMD/TRLP +Trollope/M/TRLP +trolly's//TRLS +trombone/MS/TRMBN +trombonist/SM/TRMBNST +tromp/DSG/TRMP +Trondheim/M/TRNTHM +troop/SRDMZG/TRP +trooper/M/TRP +troopship/SM/TRPXP +trope/SM/TRP +Tropez/M/TRPS +trophic//TRFK +trophy/MGDS/TRF +tropic/MS/TRPK +tropical/SY/TRPKL +tropism/SM/TRPSM +tropocollagen//TRPKLKN +troposphere/MS/TRPSFR +tropospheric//TRPSFRK +trot/S/TRT +troth/GDM/TR@ +troths//TR@S +Trotsky/M/TRTSK +trotted//TRTT +trotter/SM/TRT +trotting//TRTN +troubadour/SM/TRBT +trouble/GDRSM/TRBL +troubled/U/TRBLT +troublemaker/MS/TRBLMK +troubler/M/TRBL +troubleshoot/SRDZG/TRBLXT +troubleshooter/M/TRBLXT +troubleshot//TRBLXT +troublesome/YP/TRBLSM +troublesomeness/M/TRBLSMNS +trough/M/TR +troughs//TRS +trounce/GZDRS/TRNS +trouncer/M/TRNS +troupe/MZGSRD/TRP +trouper/M/TRP +trouser/DMGS/TRS +trousseau/M/TRS +trousseaux//TRSKS +trout/SM/TRT +Troutman/M/TRTMN +trove/SM/TRF +trow/SGD/TR +trowel/SMDRGZ/TRWL +troweler/M/TRWL +Troy/M/TR +troy/S/TR +Troyes//TRYS +Trstram/M/TRSTRM +truancy/MS/TRNS +truant/SMDG/TRNT +truce/SDGM/TRS +truck/SZGMRDJ/TRK +Truckee/M/TRK +trucker/M/TRK +trucking/M/TRKN +truckle/GDS/TRKL +truckload/MS/TRKLT +truculence/SM/TRKLNS +truculent/Y/TRKLNT +Truda/M/TRT +Trude/M/TRT +Trudeau/M/TRT +Trudey/M/TRT +trudge/SRDG/TRK +Trudi/M/TRT +Trudie/M/TRT +Trudy/M/TRT +true/DRSPTG/TR +truelove/MS/TRLF +Trueman/M/TRMN +trueness/M/TRNS +truer/U/TR +truest/U/TRST +truffle/MS/TRFL +truism/SM/TRSM +Trujillo/M/TRKL +Trula/M/TRL +truly/U/TRL +Trumaine/M/TRMN +Truman/M/TRMN +Trumann/M/TRMN +Trumbull/M/TRMBL +trump/DMSG/TRMP +Trump/M/TRMP +trumpery/SM/TRMPR +trumpet/MDRZGS/TRMPT +trumpeter/M/TRMPT +truncate/NGDSX/TRNKT +truncation/M/TRNKXN +truncheon/MDSG/TRNXN +trundle/GZDSR/TRNTL +trundler/M/TRNTL +trunk/GSMD/TRNK +trunnion/SM/TRNN +truss/SRDG/TRS +trusser/M/TRS +trussing/M/TRSN +trust/RDMSG/TRST +trusted/EU/TRSTT +trustee/MDS/TRST +trusteeing//TRSTN +trusteeship/SM/TRSTXP +truster/M/TRST +trustful/EY/TRSTFL +trustfulness/SM/TRSTFLNS +trustiness/M/TRSTNS +trusting/Y/TRSTN +trusts/E/TRSTS +trustworthier//TRSTW@ +trustworthiest//TRSTW@ST +trustworthiness/MS/TRSTW@NS +trustworthy/UP/TRSTW@ +trusty/PTMSR/TRST +Truth//TR@ +truth/UM/TR@ +truthful/UYP/TR@FL +truthfulness/US/TR@FLNS +truths/U/TR@S +TRW//TR +try/JGDRSZ/TR +trying/Y/TRYN +tryout/MS/TRYT +trypsin/M/TRPSN +tryst/GDMS/TRST +ts//TS +T's//TS +tsarevich//TSRFX +tsarina's//TSRNS +tsarism/M/TSRSM +tsarist//TSRST +tsetse/S/TSTS +Tsimshian/M/TSMXN +Tsiolkovsky/M/TXLKFSK +Tsitsihar/M/TSTSH +tsp//TSP +tsunami/MS/TSNM +Tsunematsu/M/TSNMTS +Tswana/M/TSWN +TTL//TL +tty/M/T +ttys//TS +Tuamotu/M/TMT +Tuareg/M/TRK +tub/JMDRSZG/TB +tuba/SM/TB +tubae//TB +tubal//TBL +tubbed//TBT +tubbing//TBN +tubby/TR/TB +tube/SM/TB +tubeless//TBLS +tuber/M/TB +tubercle/MS/TBKL +tubercular/S/TBKL +tuberculin/MS/TBKLN +tuberculoses//TBKLSS +tuberculosis/M/TBKLSS +tuberculous//TBKLS +tuberose/SM/TBRS +tuberous//TBRS +tubing/M/TBN +Tubman/M/TBMN +tubular/Y/TBL +tubule/SM/TBL +tuck/GZSRD/TK +Tuck/RM/TK +tucker/GDM/TK +Tucker/M/TK +Tuckie/M/TK +Tucky/M/TK +Tucson/M/TKSN +Tucuman/M/TKMN +Tudor/MS/TT +Tue/S/T +Tuesday/SM/TST +tuft/GZSMRD/TFT +tufter/M/TFT +tufting/M/TFTN +tug/S/TK +tugboat/MS/TKBT +tugged//TKT +tugging//TKN +tuition/ISM/TXN +Tulane/M/TLN +tularemia/S/TLRM +tulip/SM/TLP +Tull/M/TL +tulle/SM/TL +Tulley/M/TL +Tully/M/TL +Tulsa/M/TLS +tum//TM +tumble/ZGRSDJ/TMBL +tumbledown//TMBLTN +tumbler/M/TMBL +tumbleweed/MS/TMBLWT +tumbrel/SM/TMBRL +tumescence/S/TMSNS +tumescent//TMSNT +tumid/Y/TMT +tumidity/MS/TMTT +tummy/SM/TM +tumor/MDS/TM +tumorous//TMRS +Tums/M/TMS +tumult/SGMD/TMLT +tumultuous/PY/TMLTS +tumultuousness/M/TMLTSNS +tumulus/M/TMLS +tun/DRJZGBS/TN +tuna/SM/TN +tunable/P/TNBL +tunableness/M/TNBLNS +tundra/SM/TNTR +tune/CSDG/TN +tuneful/YP/TNFL +tunefulness/MS/TNFLNS +tuneless/Y/TNLS +tuner/M/TN +tune's//TNS +tuneup/S/TNP +tung//TNK +tungstate/M/TNKSTT +tungsten/SM/TNKSTN +Tungus/M/TNKS +Tunguska/M/TNKSK +tunic/MS/TNK +tuning/A/TNN +tuning's//TNNS +Tunis/M/TNS +Tunisia/M/TNX +Tunisian/S/TNXN +tunned//TNT +tunnel/MRDSJGZ/TNL +tunneler/M/TNL +tunning//TNN +tunny/SM/TN +tupelo/M/TPL +Tupi/M/TP +tuple/SM/TPL +tuppence/M/TPNS +Tupperware//TPWR +Tupungato/M/TPNKT +turban/SDM/TBN +turbid//TBT +turbidity/SM/TBTT +turbinate/SD/TBNT +turbine/SM/TBN +turbo/SM/TB +turbocharged//TBXKT +turbocharger/SM/TBXK +turbofan/MS/TBFN +turbojet/MS/TBKT +turboprop/MS/TBPRP +turbot/MS/TBT +turbulence/SM/TBLNS +turbulent/Y/TBLNT +turd/MS/TT +tureen/MS/TRN +turf/DGSM/TF +turfy/RT/TF +Turgenev/M/TKNF +turgid/PY/TKT +turgidity/SM/TKTT +turgidness/M/TKTNS +Turin/M/TRN +Turing/M/TRN +turk/S/TK +Turk/SM/TK +Turkestan/M/TKSTN +Turkey/M/TK +turkey/SM/TK +Turkic/SM/TKK +Turkish//TKX +Turkmenistan/M/TKMNSTN +turmeric/MS/TMRK +turmoil/SDMG/TML +turn/AZGRDBS/TN +turnabout/SM/TNBT +turnaround/MS/TNRNT +turnbuckle/SM/TNBKL +turncoat/SM/TNKT +turned/U/TNT +turner/M/TN +Turner/M/TN +turning/MS/TNN +turnip/SMDG/TNP +turnkey/MS/TNK +turnoff/MS/TNF +turnout/MS/TNT +turnover/SM/TNF +turnpike/MS/TNPK +turnround/MS/TNRNT +turnstile/SM/TNSTL +turnstone/M/TNSTN +turntable/SM/TNTBL +turpentine/GMSD/TPNTN +Turpin/M/TPN +turpitude/SM/TPTT +turquoise/SM/TKS +turret/SMD/TRT +turtle/SDMG/TTL +turtleback/MS/TTLBK +turtledove/MS/TTLTF +turtleneck/SDM/TTLNK +turves's//TFSS +turvy//TF +Tuscaloosa/M/TSKLS +Tuscan//TSKN +Tuscany/M/TSKN +Tuscarora/M/TSKRR +Tuscon/M/TSKN +tush/SDG/TX +tusk/GZRDMS/TSK +Tuskegee/M/TSKK +tusker/M/TSK +tussle/GSD/TSL +tussock/MS/TSK +tussocky//TSK +Tussuad/M/TST +Tut/M/TT +tut/S/TT +Tutankhamen/M/TTNKHMN +tutelage/MS/TTLK +tutelary/S/TTLR +tutor/MDGS/TT +tutored/U/TTRT +tutorial/MS/TTRL +tutorship/S/TTXP +Tutsi//TTS +tutted//TTT +tutti/S/TT +tutting//TTN +Tuttle/M/TTL +tutu/SM/TT +Tuvalu//TFL +tux/S/TKS +tuxedo/SDM/TKST +TV/M/TF +TVA//TF +TVs//TFS +TWA/M/TW +twaddle/GZMRSD/TWTL +twaddler/M/TWTL +Twain/M/TWN +twain/S/TWN +twang/MDSG/TWNK +twangy/TR/TWNK +twas//TWS +tweak/SGRD/TWK +twee/DP/TW +Tweed/M/TWT +tweed/SM/TWT +tweediness/M/TWTNS +Tweedledee/M/TWTLT +Tweedledum/M/TWTLTM +tweedy/PTR/TWT +tween//TWN +tweet/ZSGRD/TWT +tweeter/M/TWT +tweeze/ZGRD/TWS +tweezer/M/TWS +twelfth//TWLF@ +twelfths//TWLF@S +twelve/MS/TWLF +twelvemonth/M/TWLFMN@ +twelvemonths//TWLFMN@S +twentieths//TWNT@S +twenty/MSH/TWNT +twerp/MS/TWP +twice/R/TWS +twiddle/GRSD/TWTL +twiddler/M/TWTL +twiddly/RT/TWTL +twig/SM/TWK +twigged//TWKT +twigging//TWKN +twiggy/RT/TWK +Twila/M/TWL +twilight/MS/TWLT +twilit//TWLT +twill/SGD/TWL +twin/RDMGZS/TWN +twine/SM/TWN +twiner/M/TWN +twinge/SDMG/TWN +Twinkie//TWNK +twinkle/RSDG/TWNKL +twinkler/M/TWNKL +twinkling/M/TWNKLN +twinkly//TWNKL +twinned//TWNT +twinning//TWNN +twirl/SZGRD/TWL +twirler/M/TWL +twirling/Y/TWLN +twirly/TR/TWL +twist/SZGRD/TWST +twisted/U/TWSTT +twister/M/TWST +twists/U/TWSTS +twisty//TWST +twit/S/TWT +twitch/GRSD/TWX +twitchy/TR/TWX +twitted//TWTT +twitter/SGRD/TWT +twitterer/M/TWTR +twittery//TWTR +twitting//TWTN +twixt//TWKST +two/MS/TW +twofer/MS/TWF +twofold/S/TWFLT +twopence/SM/TWPNS +twopenny/S/TWPN +twosome/MS/TWSM +twp//TP +Twp//TP +TWX//TKS +Twyla/M/TL +TX//TKS +Ty/M/T +Tybalt/M/TBLT +Tybi/M/TB +Tybie/M/TB +tycoon/MS/TKN +Tye/M/TY +tyeing//TYN +tying/UA/TYN +tyke/SM/TK +Tylenol/M/TLNL +Tyler/M/TL +Tymon/M/TMN +Tymothy/M/TM@ +tympani//TMPN +tympanist/SM/TMPNST +tympanum/SM/TMPNM +Tynan/M/TNN +Tyndale/M/TNTL +Tyndall/M/TNTL +Tyne/M/TN +type/MGDRSJ/TP +typeahead//TPHT +typecast/SG/TPKST +typed/AU/TPT +typedef/S/TPTF +typeface/MS/TPFS +typeless//TPLS +types/A/TPS +typescript/SM/TPSKRPT +typeset/S/TPST +typesetter/MS/TPST +typesetting/SM/TPSTN +typewrite/SRJZG/TPRT +typewriter/M/TPRT +typewriting/M/TPRTN +typewritten//TPRTN +typewrote//TPRT +typhoid/SM/TFT +Typhon/M/TFN +typhoon/SM/TFN +typhus/SM/TFS +typical/U/TPKL +typicality/MS/TPKLT +typically//TPKL +typicalness/M/TPKLNS +typification/M/TPFKXN +typify/SDNXG/TPF +typing/A/TPN +typist/MS/TPST +typo/MS/TP +typographer/SM/TPKRF +typographic//TPKRFK +typographical/Y/TPKRFKL +typography/MS/TPKRF +typological/Y/TPLKKL +typology/MS/TPLK +tyrannic//TRNK +tyrannical/PY/TRNKL +tyrannicalness/M/TRNKLNS +tyrannicide/M/TRNST +tyrannize/ZGJRSD/TRNS +tyrannizer/M/TRNS +tyrannizing/YM/TRNSN +tyrannosaur/MS/TRNS +tyrannosaurus/S/TRNSRS +tyrannous//TRNS +tyranny/MS/TRN +tyrant/MS/TRNT +Tyree/M/TR +tyreo//TR +tyro/SM/TR +Tyrolean/S/TRLN +Tyrol's//TRLS +Tyrone/M/TRN +tyrosine/M/TRSN +Tyrus/M/TRS +Tyson/M/TSN +tzarina's//TSRNS +tzar's//TSS +Tzeltal/M/TSLTL +u//* +U//* +UAR//* +UART//*T +UAW//* +Ubangi/M/*BNK +ubiquitous/YP/*BKTS +ubiquity/S/*BKT +Ucayali/M/*KYL +Uccello/M/*SL +UCLA/M/*KL +Udale/M/*TL +Udall/M/*TL +udder/SM/*T +Udell/M/*TL +Ufa/M/*F +UFO/S/*F +ufologist/S/*FLKST +ufology/MS/*FLK +Uganda/M/*KNT +Ugandan/S/*KNTN +ugh//* +ughs//*S +uglification//*KLFKXN +ugliness/MS/*KLNS +uglis//*KLS +ugly/PTGSRD/*KL +Ugo/M/*K +uh//* +UHF//*F +Uighur//*K +Ujungpandang/M/*KNKPNTNK +UK//*K +ukase/SM/*KS +Ukraine/M/*KRN +Ukrainian/S/*KRNN +ukulele/SM/*KLL +UL//*L +Ula/M/*L +Ulberto/M/*LBT +ulcer/MDGS/*LS +ulcerate/NGVXDS/*LSRT +ulceration/M/*LSRXN +ulcerous//*LSRS +Ulick/M/*LK +Ulises/M/*LSS +Ulla/M/*L +Ullman/M/*LMN +ulna/M/*LN +ulnae//*LN +ulnar//*LN +Ulric/M/*LRK +Ulrica/M/*LRK +Ulrich/M/*LRX +Ulrick/M/*LRK +Ulrika/M/*LRK +Ulrikaumeko/M/*LRKMK +Ulrike/M/*LRK +Ulster/M/*LST +ulster/MS/*LST +ult//*LT +ulterior/Y/*LTR +ultimas//*LTMS +ultimate/DSYPG/*LTMT +ultimateness/M/*LTMTNS +ultimatum/MS/*LTMTM +ultimo//*LTM +ultra/S/*LTR +ultracentrifugally//*LTRSNTRFKL +ultracentrifugation//*LTRSNTRFKXN +ultracentrifuge/M/*LTRSNTRFK +ultraconservative/S/*LTRKNSFTF +ultrafast//*LTRFST +ultrahigh//*LTRH +ultralight/S/*LTRLT +ultramarine/SM/*LTRMRN +ultramodern//*LTRMTN +ultramontane//*LTRMNTN +ultrashort//*LTRXT +ultrasonic/S/*LTRSNK +ultrasonically//*LTRSNKL +ultrasonics/M/*LTRSNKS +ultrasound/SM/*LTRSNT +ultrastructure/M/*LTRSTRKTR +Ultrasuede//*LTRST +ultraviolet/SM/*LTRFLT +Ultrix/M/*LTRKS +ULTRIX/M/*LTRKS +ululate/DSXGN/*LLT +ululation/M/*LLXN +Ulyanovsk/M/*LYNFSK +Ulysses/M/*LSS +um//*M +umbel/MS/*MBL +umber/GMDS/*MB +Umberto/M/*MBT +umbilical/S/*MBLKL +umbilici//*MBLS +umbilicus/M/*MBLKS +umbra/MS/*MBR +umbrage/MGSD/*MBRK +umbrageous//*MBRKS +umbrella/GDMS/*MBRL +Umbriel/M/*MBRL +Umeko/M/*MK +umiak/MS/*MK +umlaut/GMDS/*MLT +ump/MDSG/*MP +umpire/MGSD/*MPR +umpteen/H/*MPTN +UN//*N +Una/M/*N +unabated/Y/*NBTT +unabridged/S/*NBRKT +unacceptability//*NSPTBLT +unacceptable//*NSPTBL +unaccepted//*NSPTT +unaccommodating//*NKMTTN +unaccountability//*NKNTBLT +unaccustomed/Y/*NKSTMT +unadapted//*NTPTT +unadulterated/Y/*NTLTRTT +unadventurous//*NTFNTRS +unalienability//*NLNBLT +unalterable/P/*NLTRBL +unalterableness/M/*NLTRBLNS +unalterably//*NLTRBL +unambiguity//*NMBKT +unambiguous//*NMBKS +unambitious//*NMBXS +unamused//*NMST +unanimity/SM/*NNMT +unanimous/Y/*NNMS +unanticipated/Y/*NNTSPTT +unapologetic//*NPLKTK +unapologizing/M/*NPLKSN +unappeasable//*NPSBL +unappeasably//*NPSBL +unappreciative//*NPRXTF +unary//*NR +unassailable/P/*NSLBL +unassailableness/M/*NSLBLNS +unassertive//*NSTF +unassuming/PY/*NSMN +unassumingness/M/*NSMNNS +unauthorized/PY/*N@RST +unavailing/PY/*NFLN +unaware/SPY/*NWR +unbalanced/P/*NBLNST +unbar//*NB +unbarring//*NBRN +unbecoming/P/*NBKMN +unbeknown//*NBKNN +unbelieving/Y/*NBLFN +unbiased/P/*NBST +unbid//*NBT +unbind/G/*NBNT +unblessed//*NBLST +unblinking/Y/*NBLNKN +unbodied//*NBTT +unbolt/G/*NBLT +unbreakability//*NBRKBLT +unbred//*NBRT +unbroken//*NBRKN +unbuckle//*NBKL +unbudging/Y/*NBKNK +unburnt//*NBNT +uncap//*NKP +uncapping//*NKPN +uncatalogued//*NKTLKT +uncauterized/MS/*NKTRST +unceasing/Y/*NSSN +uncelebrated//*NSLBRTT +uncertain/P/*NSTN +unchallengeable//*NXLNKBL +unchanging/PY/*NXNKN +unchangingness/M/*NXNKNNS +uncharacteristic//*NXRKTRSTK +uncharismatic//*NXRSMTK +unchastity//*NXSTT +unchristian//*NXRSXN +uncial/S/*NXL +uncivilized/Y/*NSFLST +unclassified//*NKLSFT +uncle/MSD/*NKL +unclouded/Y/*NKLTT +uncodable//*NKTBL +uncollected//*NKLKTT +uncolored/PY/*NKLRT +uncoloredness/M/*NKLRTNS +uncombable//*NKMBBL +uncommunicative//*NKMNKTF +uncompetitive//*NKMPTTF +uncomplicated//*NKMPLKTT +uncomprehending/Y/*NKMPRHNTN +uncompromisable//*NKMPRMSBL +unconcern/M/*NKNSN +unconcerned/P/*NKNSNT +unconfirmed//*NKNFMT +unconfused//*NKNFST +unconscionable/P/*NKNSNBL +unconscionableness/M/*NKNSNBLNS +unconscionably//*NKNSNBL +unconstitutional//*NKNSTTXNL +unconsumed//*NKNSMT +uncontentious//*NKNTNXS +uncontrollability//*NKNTRLBLT +unconvertible//*NKNFTBL +uncool//*NKL +uncooperative//*NKPRTF +uncork/G/*NKK +uncouple/G/*NKPL +uncouth/YP/*NK@ +uncouthness/M/*NK@NS +uncreate/V/*NKRT +uncritical//*NKRTKL +uncross/GB/*NKRS +uncrowded//*NKRTT +unction/IM/*NKXN +unctions//*NKXNS +unctuous/PY/*NKTS +unctuousness/MS/*NKTSNS +uncustomary//*NKSTMR +uncut//*NKT +undated/I/*NTTT +undaunted/Y/*NTNTT +undeceive//*NTSF +undecided/S/*NTSTT +undedicated//*NTTKTT +undefinability//*NTFNBLT +undefined/P/*NTFNT +undefinedness/M/*NTFNTNS +undelete//*NTLT +undeliverability//*NTLFRBLT +undeniable/P/*NTNBL +undeniableness/M/*NTNBLNS +undeniably//*NTNBL +undependable//*NTPNTBL +under/Y/*NT +underachieve/SRDGZ/*NTRXF +underachiever/M/*NTRXF +underact/GDS/*NTRKT +underadjusting//*NTRTKSTN +underage/S/*NTRK +underarm/DGS/*NTRM +underbedding//*NTBTN +underbelly/MS/*NTBL +underbid/S/*NTBT +underbidding//*NTBTN +underbracing//*NTBRSN +underbrush/MSDG/*NTBRX +undercarriage/MS/*NTKRK +undercharge/GSD/*NTXK +underclass/S/*NTKLS +underclassman//*NTKLSMN +underclassmen//*NTKLSMN +underclothes//*NTKL@S +underclothing/MS/*NTKL@N +undercoat/JMDGS/*NTKT +undercoating/M/*NTKTN +underconsumption/M/*NTKNSMPXN +undercooked//*NTKKT +undercount/S/*NTKNT +undercover//*NTKF +undercurrent/SM/*NTKRNT +undercut/S/*NTKT +undercutting//*NTKTN +underdeveloped//*NTTFLPT +underdevelopment/MS/*NTTFLPMNT +underdog/MS/*NTTK +underdone//*NTTN +undereducated//*NTRTKTT +underemphasis//*NTRMFSS +underemployed//*NTRMPLYT +underemployment/SM/*NTRMPLMNT +underenumerated//*NTRNMRTT +underenumeration//*NTRNMRXN +underestimate/NGXSD/*NTRSTMT +underexploited//*NTRKSPLTT +underexpose/SDG/*NTRKSPS +underexposure/SM/*NTRKSPSR +underfed//*NTFT +underfeed/SG/*NTFT +underfloor//*NTFL +underflow/GDMS/*NTFL +underfoot//*NTFT +underfund/DG/*NTFNT +underfur/MS/*NTF +undergarment/SM/*NTKMNT +undergirding//*NTKTN +undergo/G/*NTK +undergoes//*NTKS +undergone//*NTKN +undergrad/MS/*NTKRT +undergraduate/MS/*NTKRTT +underground/RMS/*NTKRNT +undergrowth/M/*NTKR@ +undergrowths//*NTKR@S +underhand/D/*NTHNT +underhanded/YP/*NTHNTT +underhandedness/MS/*NTHNTTNS +underheat//*NTHT +underinvestment//*NTRNFSTMNT +underlaid//*NTLT +underlain/S/*NTLN +underlay/GS/*NTL +underlie//*NTL +underline/GSDJ/*NTLN +underling/MS/*NTLN +underlip/SM/*NTLP +underloaded//*NTLTT +underly/GS/*NTL +undermanned//*NTMNT +undermentioned//*NTMNXNT +undermine/SDG/*NTMN +undermost//*NTMST +underneath//*NTN@ +underneaths//*NTN@S +undernourished//*NTNRXT +undernourishment/SM/*NTNRXMNT +underpaid//*NTPT +underpants//*NTPNTS +underpart/MS/*NTPT +underpass/SM/*NTPS +underpay/GSL/*NTP +underpayment/SM/*NTPMNT +underperformed//*NTPFMT +underpin/S/*NTPN +underpinned//*NTPNT +underpinning/MS/*NTPNN +underplay/SGD/*NTPL +underpopulated//*NTPPLTT +underpopulation/M/*NTPPLXN +underpowered//*NTPWRT +underpricing//*NTPRSN +underprivileged//*NTPRFLKT +underproduction/MS/*NTPRTKXN +underrate/GSD/*NTRT +underregistration/M/*NTRKSTRXN +underreported//*NTRPTT +underreporting//*NTRPTN +underrepresentation/M/*NTRPRSNTXN +underrepresented//*NTRPRSNTT +underscore/SDG/*NTSKR +undersea/S/*NTS +undersealed//*NTSLT +undersecretary/SM/*NTSKRTR +undersell/SG/*NTSL +undersexed//*NTSKST +undershirt/SM/*NTXT +undershoot/SG/*NTXT +undershorts//*NTXTS +undershot//*NTXT +underside/SM/*NTST +undersign/SGD/*NTSN +undersigned/M/*NTSN +undersized//*NTSST +undersizes//*NTSSS +undersizing//*NTSSN +underskirt/MS/*NTSKT +undersold//*NTSLT +underspecification//*NTSPSFKXN +underspecified//*NTSPSFT +underspend/G/*NTSPNT +understaffed//*NTSTFT +understand/RGSJB/*NTSTNT +understandability/M/*NTSTNTBLT +understandably//*NTSTNTBL +understanding/YM/*NTSTNTN +understate/GSDL/*NTSTT +understatement/MS/*NTSTTMNT +understocked//*NTSTKT +understood//*NTSTT +understrength//*NTSTRNK@ +understructure/SM/*NTSTRKTR +understudy/GMSD/*NTSTT +undertake/SRGZJ/*NTTK +undertaken//*NTTKN +undertaker/M/*NTTK +undertaking/M/*NTTKN +underthings//*NT@NS +undertone/SM/*NTTN +undertook//*NTTK +undertow/MS/*NTT +underused//*NTRST +underusing//*NTRSN +underutilization/M/*NTRTLSXN +underutilized//*NTRTLST +undervaluation/S/*NTFLXN +undervalue/SDG/*NTFL +underwater/S/*NTWT +underway//*NTW +underwear/M/*NTW +underweight/S/*NTWT +underwent//*NTWNT +underwhelm/DGS/*NTHLM +underwood/M/*NTWT +Underwood/M/*NTWT +underworld/MS/*NTWLT +underwrite/GZSR/*NTRT +underwriter/M/*NTRT +underwritten//*NTRTN +underwrote//*NTRT +undeserving//*NTSFN +undesigned//*NTSN +undeviating/Y/*NTFTN +undialyzed/SM/*NTLST +undiplomatic//*NTPLMTK +undiscerning//*NTSNN +undiscriminating//*NTSKRMNTN +undo/GJ/*NT +undoubted/Y/*NTBTT +undramatic//*NTRMTK +undramatized/SM/*NTRMTST +undress/G/*NTRS +undrinkability//*NTRNKBLT +undrinkable//*NTRNKBL +undroppable//*NTRPBL +undue//*NT +undulant//*NTLNT +undulate/XDSNG/*NTLT +undulation/M/*NTLXN +unearth/YG/*N@ +unearthliness/S/*N@LNS +unearthly/P/*N@L +unease//*NS +uneconomic//*NKNMK +uneducated//*NTKTT +unemployed/S/*NMPLYT +unencroachable//*NNKRXBL +unending/Y/*NNTN +unendurable/P/*NNTRBL +unenergized/MS/*NNKST +unenforced//*NNFST +unenterprising//*NNTPRSN +UNESCO//*NSK +unethical//*N@KL +uneulogized/SM/*NLKST +unexacting//*NKSKTN +unexceptionably//*NKSSPXNBL +unexcited//*NKSSTT +unexpectedness/MS/*NKSPKTTNS +unfading/Y/*NFTN +unfailing/P/*NFLN +unfailingness/M/*NFLNNS +unfamiliar//*NFML +unfashionable//*NFXNBL +unfathomably//*NF@MBL +unfavored//*NFFRT +unfeeling//*NFLN +unfeigned/Y/*NFN +unfelt//*NFLT +unfeminine//*NFMNN +unfertile//*NFTL +unfetchable//*NFXBL +unflagging//*NFLKN +unflappability/S/*NFLPBLT +unflappable//*NFLPBL +unflappably//*NFLPBL +unflinching/Y/*NFLNXN +unfold/LG/*NFLT +unfoldment/M/*NFLTMNT +unforced//*NFST +unforgeable//*NFKBL +unfossilized/MS/*NFSLST +unfraternizing/SM/*NFRTNSN +unfrozen//*NFRSN +unfulfillable//*NFLFLBL +unfunny//*NFN +unfussy//*NFS +ungainliness/MS/*NKNLNS +ungainly/PRT/*NKNL +Ungava/M/*NKF +ungenerous//*NKNRS +ungentle//*NKNTL +unglamorous//*NKLMRS +ungrammaticality//*NKRMTKLT +ungrudging//*NKRKNK +unguent/MS/*NKNT +ungulate/MS/*NKLT +unharmonious//*NHMNS +unharness/G/*NHNS +unhistorical//*NHSTRKL +unholy/TP/*NHL +unhook/DG/*NHK +unhydrolyzed/SM/*NHTRLST +unhygienic//*NHKNK +Unibus/M/*NBS +unicameral//*NKMRL +UNICEF//*NSF +unicellular//*NSLL +Unicode/M/*NKT +unicorn/SM/*NKN +unicycle/MGSD/*NSKL +unicyclist/MS/*NSKLST +unideal//*NTL +unidimensional//*NTMNXNL +unidiomatic//*NTMTK +unidirectional/Y/*NTRKXNL +unidirectionality//*NTRKXNLT +unidolized/MS/*NTLST +unifiable//*NFBL +unification/MA/*NFKXN +unifier/MS/*NF +unifilar//*NFL +uniform/TGSRDYMP/*NFM +uniformity/MS/*NFMT +uniformness/M/*NFMNS +unify/AXDSNG/*NF +unilateral/Y/*NLTRL +unilateralism/M/*NLTRLSM +unilateralist//*NLTRLST +unimodal//*NMTL +unimpeachably//*NMPXBL +unimportance//*NMPTNS +unimportant//*NMPTNT +unimpressive//*NMPRSF +unindustrialized/MS/*NNTSTRLST +uninhibited/YP/*NNHBTT +uninominal//*NNMNL +uninsured//*NNSRT +unintellectual//*NNTLKTL +unintended//*NNTNTT +uninteresting//*NNTRSTN +uninterrupted/YP/*NNTRPTT +uninterruptedness/M/*NNTRPTTNS +unintuitive//*NNTTF +uninviting//*NNFTN +union/AEMS/*NN +Union/MS/*NN +unionism/SM/*NNSM +unionist/SM/*NNST +Unionist/SM/*NNST +unionize//*NNS +UniPlus/M/*NPLS +unipolar//*NPL +uniprocessor/SM/*NPRSS +unique/TYSRP/*NK +uniqueness/S/*NKNS +Uniroyal/M/*NRYL +unisex/S/*NSKS +UniSoft/M/*NSFT +unison/MS/*NSN +Unisys/M/*NSS +unit/VGRD/*NT +unitarian/MS/*NTRN +Unitarian/MS/*NTRN +unitarianism/M/*NTRNSM +Unitarianism/SM/*NTRNSM +unitary//*NTR +unite/AEDSG/*NT +united/Y/*NTT +uniter/M/*NT +unitize/GDS/*NTS +unity/SEM/*NT +univ//*NF +Univac/M/*NFK +univalent/S/*NFLNT +univalve/MS/*NFLF +univariate//*NFRT +universal/YSP/*NFSL +universalism/M/*NFSLSM +universalistic//*NFSLSTK +universality/SM/*NFSLT +universalize/DSRZG/*NFSLS +universalizer/M/*NFSLS +universe/MS/*NFS +university/MS/*NFST +Unix/M/*NKS +UNIX/M/*NKS +unjam//*NKM +unkempt//*NKMPT +unkind/TP/*NKNT +unkink//*NKNK +unknightly//*NKNTL +unknowable/S/*NKNWBL +unknowing//*NKNWN +unlabored//*NLBRT +unlace/G/*NLS +unlearn/G/*NLN +unlikeable//*NLKBL +unlikeliness/S/*NLKLNS +unlimber/G/*NLMB +unlimited//*NLMTT +unlit//*NLT +unliterary//*NLTRR +unloose/G/*NLS +unlucky/TP/*NLK +unmagnetized/MS/*NMKNTST +unmanageably//*NMNKBL +unmannered/Y/*NMNRT +unmask/G/*NMSK +unmeaning//*NMNN +unmeasured//*NMSRT +unmeetable//*NMTBL +unmelodious//*NMLTS +unmemorable//*NMMRBL +unmemorialized/MS/*NMMRLST +unmentionable/S/*NMNXNBL +unmerciful//*NMSFL +unmeritorious//*NMRTRS +unmethodical//*NM@TKL +unmineralized/MS/*NMNRLST +unmissable//*NMSBL +unmistakably//*NMSTKBL +unmitigated/YP/*NMTKTT +unmnemonic//*NMNMNK +unmobilized/SM/*NMBLST +unmoral//*NMRL +unmount/B/*NMNT +unmovable//*NMFBL +unmoving//*NMFN +unnaturalness/M/*NTRLNS +unnavigable//*NFKBL +unnerving/Y/*NFN +unobliging//*NBLKN +unoffensive//*NFNSF +unofficial//*NFXL +unorganized/YP/*NKNST +unorthodox//*N@TKS +unpack/G/*NPK +unpaintable//*NPNTBL +unpalatability//*NPLTBLT +unpalatable//*NPLTBL +unpartizan//*NPTSN +unpatronizing//*NPTRNSN +unpeople//*NPPL +unperceptive//*NPSPTF +unperson//*NPSN +unperturbed/Y/*NPTBT +unphysical//*NFSKL +unpick/G/*NPK +unpicturesque//*NPKTRSK +unpinning//*NPNN +unpleasing//*NPLSN +unploughed//*NPLKT +unpolarized/SM/*NPLRST +unpopular//*NPPL +unpractical//*NPRKTKL +unprecedented/Y/*NPRSTNTT +unpredictable/S/*NPRTKTBL +unpreemphasized//*NPRMFSST +unpremeditated//*NPRMTTTT +unpretentiousness/M/*NPRTNXSNS +unprincipled/P/*NPRNSPLT +unproblematic//*NPRBLMTK +unproductive//*NPRTKTF +unpropitious//*NPRPXS +unprovable//*NPRFBL +unproven//*NPRFN +unprovocative//*NPRFKTF +unpunctual//*NPNKTL +unquestionable//*NKSXNBL +unraisable//*NRSBL +unravellings//*NRFLNS +unread/B/*NRT +unreadability//*NRTBLT +unreal//*NRL +unrealizable//*NRLSBL +unreasoning/Y/*NRSNN +unreceptive//*NRSPTF +unrecordable//*NRKTBL +unreflective//*NRFLKTF +unrelenting/Y/*NRLNTN +unremitting/Y/*NRMTN +unrepeatability//*NRPTBLT +unrepeated//*NRPTT +unrepentant//*NRPNTNT +unreported//*NRPTT +unrepresentative//*NRPRSNTTF +unreproducible//*NRPRTSBL +unrest/G/*NRST +unrestrained/P/*NRSTRNT +unrewarding//*NRWTN +unriddle//*NRTL +unripe/P/*NRP +unromantic//*NRMNTK +unruliness/SM/*NRLNS +unruly/PTR/*NRL +unsaleable//*NSLBL +unsanitary//*NSNTR +unsavored/YP/*NSFRT +unsavoriness/M/*NSFRNS +unseal/GB/*NSL +unsearchable//*NSXBL +unseasonal//*NSSNL +unseeing/Y/*NSN +unseen/S/*NSN +unselfconscious/P/*NSLFKNSS +unselfconsciousness/M/*NSLFKNSSNS +unselfishness/M/*NSLFXNS +unsellable//*NSLBL +unsentimental//*NSNTMNTL +unset//*NST +unsettled/P/*NSTLT +unsettledness/M/*NSTLTNS +unsettling/Y/*NSTLN +unshapely//*NXPL +unshaven//*NXFN +unshorn//*NXN +unsighted//*NSTT +unsightliness/S/*NSTLNS +unskilful//*NSKLFL +unsociability//*NSXBLT +unsociable/P/*NSXBL +unsocial//*NSXL +unsound/PT/*NSNT +unspeakably//*NSPKBL +unspecific//*NSPSFK +unspectacular//*NSPKTKL +unspoilt//*NSPLT +unspoke//*NSPK +unsporting//*NSPTN +unstable/P/*NSTBL +unstigmatized/SM/*NSTKMTST +unstilted//*NSTLTT +unstinting/Y/*NSTNTN +unstopping//*NSTPN +unstrapping//*NSTRPN +unstudied//*NSTTT +unstuffy//*NSTF +unsubdued//*NSBTT +unsubstantial//*NSBSTNXL +unsubtle//*NSBTL +unsuitable//*NSTBL +unsuspecting/Y/*NSSPKTN +unswerving/Y/*NSWFN +unsymmetrical//*NSMTRKL +unsympathetic//*NSMP@TK +unsystematic//*NSSTMTK +unsystematized/Y/*NSSTMTST +untactful//*NTKTFL +untalented//*NTLNTT +untaxing//*NTKSN +unteach/B/*NTX +untellable//*NTLBL +untenable//*NTNBL +unthinking//*N@NKN +until/G/*NTL +untiring/Y/*NTRN +unto//*NT +untouchable/MS/*NTXBL +untoward/P/*NTWT +untowardness/M/*NTWTNS +untraceable//*NTRSBL +untrue//*NTR +untruthfulness/M/*NTR@FLNS +untwist/G/*NTWST +Unukalhai/M/*NKLH +unusualness/M/*NSLNS +unutterable//*NTRBL +unutterably//*NTRBL +unvocalized/MS/*NFKLST +unvulcanized/SM/*NFLKNST +unwaivering//*NWFRN +unwarrantable//*NWRNTBL +unwarrantably//*NWRNTBL +unwashed/PS/*NWXT +unwearable//*NWRBL +unwearied/Y/*NWRT +unwed//*NWT +unwedge//*NWK +unwelcome//*NWLKM +unwell/M/*NWL +unwieldiness/MS/*NWLTNS +unwieldy/TPR/*NWLT +unwind/B/*NWNT +unwomanly//*NWMNL +unworkable/S/*NWKBL +unworried//*NWRT +unwrap//*NRP +unwrapping//*NRPN +unyielding/Y/*NYLTN +unyoke//*NYK +unzip//*NSP +up//*P +Upanishads//*PNXTS +uparrow//*PR +upbeat/SM/*PBT +upbraid/GDRS/*PBRT +upbring/JG/*PBRN +upbringing/M/*PBRNN +UPC//*PK +upchuck/SDG/*PXK +upcome/G/*PKM +upcountry/S/*PKNTR +updatability//*PTTBLT +update/RSDG/*PTT +updater/M/*PTT +Updike/M/*PTK +updraft/SM/*PTRFT +upend/SDG/*PNT +upfield//*PFLT +upfront//*PFRNT +upgrade/DSJG/*PKRT +upgradeable//*PKRTBL +upheaval/MS/*FFL +upheld//*FLT +uphill/S/*FL +uphold/RSGZ/*FLT +upholder/M/*FLT +upholster/ADGS/*FLST +upholsterer/SM/*FLSTR +upholstery/MS/*FLSTR +UPI//*P +upkeep/SM/*PKP +upland/MRS/*PLNT +uplander/M/*PLNT +uplift/SJDRG/*PLFT +uplifter/M/*PLFT +upload/GSD/*PLT +upmarket//*PMKT +upon//*PN +upped//*PT +upper/S/*P +uppercase/GSD/*PKS +upperclassman/M/*PKLSMN +upperclassmen//*PKLSMN +uppercut/S/*PKT +uppercutting//*PKTN +uppermost//*PMST +upping//*PN +uppish//*PX +uppity//*PT +upraise/GDS/*PRS +uprated//*PRTT +uprating//*PRTN +uprear/DSG/*PR +upright/DYGSP/*PRT +uprightness/S/*PRTNS +uprise/RGJ/*PRS +uprising/M/*PRSN +upriver/S/*PRF +uproar/MS/*PR +uproarious/PY/*PRRS +uproariousness/M/*PRRSNS +uproot/DRGS/*PRT +uprooter/M/*PRT +ups//*PS +UPS//*PS +upscale/GDS/*PSKL +upset/S/*PST +upsetting/MS/*PSTN +upshot/SM/*PXT +upside/MS/*PST +upsilon/MS/*PSLN +upslope//*PSLP +upstage/DSRG/*PSTK +upstairs//*PSTS +upstanding/P/*PSTNTN +upstandingness/M/*PSTNTNNS +upstart/MDGS/*PSTT +upstate/SR/*PSTT +upstream/DSG/*PSTRM +upstroke/MS/*PSTRK +upsurge/DSG/*PSK +upswing/GMS/*PSWN +upswung//*PSWNK +uptake/SM/*PTK +upthrust/GMS/*P@RST +uptight//*PTT +uptime//*PTM +Upton/M/*PTN +uptown/RS/*PTN +uptrend/M/*PTRNT +upturn/GDS/*PTN +upward/SYP/*PWT +upwardness/M/*PWTNS +upwelling//*PWLN +upwind/S/*PWNT +Ur/M/* +uracil/MS/*RSL +Ural/MS/*RL +Urania/M/*RN +uranium/MS/*RNM +Uranus/M/*RNS +uranyl/M/*RNL +Urbain/M/*BN +Urban/M/*BN +urban/RT/*BN +Urbana/M/*BN +urbane/Y/*BN +urbanism/M/*BNSM +urbanite/SM/*BNT +urbanity/SM/*BNT +urbanization/MS/*BNSXN +urbanize/DSG/*BNS +Urbano/M/*BN +urbanologist/S/*BNLKST +urbanology/S/*BNLK +Urbanus/M/*BNS +urchin/SM/*XN +Urdu/M/*T +urea/SM/*R +uremia/MS/*RM +uremic//*RMK +ureter/MS/*RT +urethane/MS/*R@N +urethra/M/*R@R +urethrae//*R@R +urethral//*R@RL +urethritis/M/*R@RTS +Urey/M/*R +urge/GDRSJ/*K +urgency/SM/*KNS +urgent/Y/*KNT +urger/M/*K +Uri/SM/*R +Uriah/M/*R +uric//*RK +Uriel/M/*RL +urinal/MS/*RNL +urinalyses//*RNLSS +urinalysis/M/*RNLSS +urinary/MS/*RNR +urinate/XDSNG/*RNT +urination/M/*RNXN +urine/MS/*RN +URL//*L +urn/MDGS/*N +urning/M/*NN +urogenital//*RKNTL +urological//*RLKKL +urologist/S/*RLKST +urology/MS/*RLK +Urquhart/M/*KHT +Ursa/M/*S +Ursala/M/*SL +ursine//*SN +Ursola/M/*SL +Urson/M/*SN +Ursula/M/*SL +Ursulina/M/*SLN +Ursuline/M/*SLN +urticaria/MS/*TKR +Uruguay/M/*RK +Uruguayan/S/*RKYN +Urumqi//*RMK +US//*S +us/DRSBZG/*S +USA//*S +usability/S/*SBLT +usable/U/*SBL +usably/U/*SBL +USAF//*SF +usage/SM/*SK +USART//*ST +USC/M/*SK +USCG//*SKK +USDA//*ST +use/ESDAG/*S +used/U/*ST +useful/YP/*SFL +usefulness/SM/*SFLNS +useless/PY/*SLS +uselessness/MS/*SLSNS +Usenet/M/*SNT +Usenix/M/*SNKS +user/M/*S +USG/M/*SK +usher/SGMD/*X +usherette/SM/*XRT +USIA//*X +USMC//*SMK +USN//*SN +USO//*S +USP//*SP +USPS//*SPS +USS//*S +USSR//*SR +Ustinov/M/*STNF +usu//*S +usual/UPY/*SL +usuals//*SLS +usurer/SM/*SR +usurious/PY/*SRS +usuriousness/M/*SRSNS +usurp/RDZSG/*SP +usurpation/MS/*SPXN +usurper/M/*SP +usury/SM/*SR +UT//*T +Uta/M/*T +Utah/M/*T +Utahan/SM/*THN +Ute/M/*T +utensil/SM/*TNSL +uteri//*TR +uterine//*TRN +uterus/M/*TRS +Utica/M/*TK +utile/I/*TL +utilitarian/S/*TLTRN +utilitarianism/MS/*TLTRNSM +utility/MS/*TLT +utilization/MS/*TLSXN +utilization's/A/*TLSXNS +utilize/GZDRS/*TLS +utilizer/M/*TLS +utilizes/A/*TLSS +utmost/S/*TMST +Utopia/MS/*TP +utopia/S/*TP +Utopian/S/*TPN +utopianism/M/*TPNSM +utopian's//*TPNS +Utrecht/M/*TRXT +Utrillo/M/*TRL +utter/TRDYGS/*T +utterance/MS/*TRNS +uttered/U/*TRT +utterer/M/*TR +uttermost/S/*TMST +uucp/M/*KP +UV//*F +uvula/MS/*FL +uvular/S/*FL +uxorious//*KSRS +Uzbek/M/*SBK +Uzbekistan//*SBKSTN +Uzi/M/*S +V//W +v/ASV/W +VA//W +Va/M/W +vacancy/MS/WKNS +vacant/PY/WKNT +vacantness/M/WKNTNS +vacate/NGXSD/WKT +vacation/MRDZG/WKXN +vacationist/SM/WKXNST +vacationland//WKXNLNT +vaccinate/NGSDX/WSNT +vaccination/M/WSNXN +vaccine/SM/WSN +vaccinia/M/WSN +vaccinial//WSNL +Vachel/M/WXL +vacillate/XNGSD/WSLT +vacillating/Y/WSLTN +vacillation/M/WSLXN +vacillator/SM/WSLT +Vaclav/M/WKLF +vacua's//WKS +vacuity/MS/WKT +vacuo//WK +vacuolate/SDGN/WKLT +vacuolated/U/WKLTT +vacuole/SM/WKL +vacuolization/SM/WKLSXN +vacuous/PY/WKS +vacuousness/MS/WKSNS +vacuum/GSMD/WKM +Vader/M/WT +Vaduz/M/WTS +vagabond/DMSG/WKBNT +vagabondage/MS/WKBNTK +vagarious//WKRS +vagary/MS/WKR +vagina/M/WKN +vaginae//WKN +vaginal/Y/WKNL +vagrancy/MS/WKRNS +vagrant/SMY/WKRNT +vague/TYSRDP/WK +vagueing//WKN +vagueness/MS/WKNS +Vail/M/WL +vain/TYRP/WN +vainglorious/YP/WNLRS +vaingloriousness/M/WNLRSNS +vainglory/MS/WNLR +val//WL +Val/MY/WL +valance/SDMG/WLNS +Valaree/M/WLR +Valaria/M/WLR +Valarie/M/WLR +Valdemar/M/WLTM +Valdez/M/WLTS +Vale/M/WL +vale/SM/WL +Valeda/M/WLT +valediction/MS/WLTKXN +valedictorian/MS/WLTKTRN +valedictory/MS/WLTKTR +valence/SM/WLNS +Valencia/MS/WLNX +valency/MS/WLNS +Valene/M/WLN +Valenka/M/WLNK +Valentia/M/WLNX +Valentijn/M/WLNTKN +Valentin/M/WLNTN +Valentina/M/WLNTN +Valentine/M/WLNTN +valentine/SM/WLNTN +Valentino/M/WLNTN +Valenzuela/M/WLNSL +Valera/M/WLR +Valeria/M/WLR +Valerian/M/WLRN +Valerie/M/WLR +Valéry/M/WLR +Valerye/M/WLRY +valet/GDMS/WLT +valetudinarian/MS/WLTTNRN +valetudinarianism/MS/WLTTNRNSM +Valhalla/M/WLHL +valiance/S/WLNS +valiant/SPY/WLNT +valiantness/M/WLNTNS +valid/PIY/WLT +Valida/M/WLT +validate/INGSDX/WLTT +validated/AU/WLTTT +validates/A/WLTTS +validation/AMI/WLTXN +validity/IMS/WLTT +validness/MI/WLTNS +validnesses//WLTNSS +Valina/M/WLN +valise/MS/WLS +Valium/S/WLM +Valkyrie/SM/WLKR +Valle/M/WL +Vallejo//WLK +Valletta/M/WLT +valley/SM/WL +Valli/M/WL +Vallie/M/WL +Vally/M/WL +Valma/M/WLM +Valois/M/WLS +valor/MS/WL +valorous/Y/WLRS +Valparaiso/M/WLPRS +Valry/M/WLR +valuable/IP/WLBL +valuableness/IM/WLBLNS +valuables//WLBLS +valuably/I/WLBL +valuate/NGXSD/WLT +valuation/CSAM/WLXN +valuator/SM/WLT +value/CGASD/WL +valued/U/WLT +valueless/P/WLLS +valuelessness/M/WLLSNS +valuer/SM/WL +value's//WLS +values/E/WLS +valve/GMSD/WLF +valveless//WLFLS +valvular//WLFL +vamoose/GSD/WMS +vamp/ADSG/WMP +vamper//WMP +vampire/MGSD/WMPR +vamp's//WMPS +Van/M/WN +van/SMD/WN +vanadium/MS/WNTM +Vance/M/WNS +Vancouver/M/WNKF +Vanda/M/WNT +vandal/MS/WNTL +Vandal/MS/WNTL +vandalism/MS/WNTLSM +vandalize/GSD/WNTLS +Vandenberg/M/WNTNBK +Vanderbilt/M/WNTBLT +Vanderburgh/M/WNTB +Vanderpoel/M/WNTPL +Vandyke/SM/WNTK +vane/MS/WN +Vanessa/M/WNS +Vang/M/WNK +vanguard/MS/WNKT +Vania/M/WN +vanilla/MS/WNL +vanish/GRSDJ/WNX +vanisher/M/WNX +vanishing/Y/WNXN +vanity/SM/WNT +Vanna/M/WN +vanned//WNT +Vanni/M/WN +Vannie/M/WN +vanning//WNN +Vanny/M/WN +vanquish/RSDGZ/WNKX +vanquisher/M/WNKX +vantage/MS/WNTK +Vanuatu//WNT +Vanya/M/WNY +Vanzetti/M/WNST +vapid/PY/WPT +vapidity/MS/WPTT +vapidness/SM/WPTNS +vapor/MRDJGZS/WP +vaporer/M/WPR +vaporing/MY/WPRN +vaporisation//WPRSXN +vaporise/DSG/WPRS +vaporization/AMS/WPRSXN +vaporize/DRSZG/WPRS +vaporizer/M/WPRS +vaporous//WPRS +vapory//WPR +vaquero/SM/WKR +VAR//W +var/S/W +Varanasi/M/WRNS +Varese/M/WRS +Vargas/M/WKS +variability/IMS/WRBLT +variable/PMS/WRBL +variableness/IM/WRBLNS +variables/I/WRBLS +variably/I/WRBL +Varian/M/WRN +variance/I/WRNS +variances//WRNSS +variance's//WRNSS +variant/ISY/WRNT +variate/MGNSDX/WRT +variation/M/WRXN +variational//WRXNL +varicolored/MS/WRKLRT +varicose/S/WRKS +varied/U/WRT +variedly//WRTL +variegate/NGXSD/WRKT +variegation/M/WRKXN +varier/M/WR +varietal/S/WRTL +variety/MS/WRT +various/PY/WRS +varistor/M/WRST +Varityping/M/WRTPN +varlet/MS/WLT +varmint/SM/WMNT +varnish/ZGMDRS/WNX +varnished/U/WNXT +varnisher/M/WNX +varsity/MS/WST +vary/SRDJG/WR +varying/UY/WRYN +vascular//WSKL +vase/SM/WS +vasectomy/SM/WSKTM +Vaseline/DSMG/WSLN +Vasili/MS/WSL +Vasily/M/WSL +vasomotor//WSMT +Vasquez/M/WSKS +vassal/GSMD/WSL +vassalage/MS/WSLK +Vassar/M/WS +Vassili/M/WSL +Vassily/M/WSL +vast/PTSYR/WST +vastness/MS/WSTNS +VAT//WT +vat/SM/WT +Vatican/M/WTKN +vatted//WTT +vatting//WTN +vaudeville/SM/WTFL +vaudevillian/SM/WTFLN +Vaudois//WTS +Vaughan/M/WKN +Vaughn/M/WN +vault/ZSRDMGJ/WLT +vaulter/M/WLT +vaulting/M/WLTN +vaunt/GRDS/WNT +vaunter/M/WNT +Vax/M/WKS +VAX/M/WKS +VAXes//WKSS +Vazquez/M/WSKS +vb//WB +VCR//WKR +VD//WT +VDT//WTT +VDU//WT +veal/MRDGS/WL +vealed/A/WLT +vealer/MA/WL +veals/A/WLS +Veblen/M/WBLN +vector/SGDM/WKT +vectorial//WKTRL +vectorization//WKTRSXN +vectorized//WKTRST +vectorizing//WKTRSN +vector's/F/WKTS +Veda/MS/WT +Vedanta/M/WTNT +veejay/S/WK +veep/S/WP +veer/DSG/W +veering/Y/WRN +veg/M/WK +Vega/SM/WK +vegan/SM/WKN +Vegemite/M/WKMT +veges//WKS +vegetable/MS/WKTBL +vegetarian/SM/WKTRN +vegetarianism/MS/WKTRNSM +vegetate/DSNGVX/WKTT +vegetation/M/WKTXN +vegetative/PY/WKTTF +vegged//WKT +veggie/S/WK +vegging//WKN +vehemence/MS/WHMNS +vehemency/S/WHMNS +vehement/Y/WHMNT +vehicle/SM/WHKL +vehicular//WHKL +veil/UGSD/WL +veiling/MU/WLN +veil's//WLS +vein/GSRDM/WN +veining/M/WNN +vela/M/WL +Vela/M/WL +velar/S/WL +velarize/SDG/WLRS +Velásquez/M/WLSKS +Velázquez//WLSKS +Velcro/SM/WLKR +veld/SM/WLT +veldt's//WLTTS +Velez/M/WLS +Vella/M/WL +vellum/MS/WLM +Velma/M/WLM +velocipede/SM/WLSPT +velocity/SM/WLST +velor/S/WL +velour's//WLS +velum/M/WLM +Velveeta/M/WLFT +velvet/GSMD/WLFT +Velvet/M/WLFT +velveteen/MS/WLFTN +velvety/RT/WLFT +venal/Y/WNL +venality/MS/WNLT +venation/SM/WNXN +vend/DSG/WNT +vender's/K/WNTS +vendetta/MS/WNTT +vendible/S/WNTBL +vendor/MS/WNT +veneer/GSRDM/WN +veneerer/M/WNR +veneering/M/WNRN +venerability/S/WNRBLT +venerable/P/WNRBL +venerate/XNGSD/WNRT +veneration/M/WNRXN +venereal//WNRL +venetian//WNXN +Venetian/SM/WNXN +Venezuela/M/WNSL +Venezuelan/S/WNSLN +vengeance/MS/WNKNS +vengeful/APY/WNKFL +vengefulness/AM/WNKFLNS +venial/YP/WNL +venialness/M/WNLNS +Venice/M/WNS +venireman/M/WNRMN +veniremen//WNRMN +venison/SM/WNSN +Venita/M/WNT +Venn/M/WN +venom/SGDM/WNM +venomous/YP/WNMS +venomousness/M/WNMSNS +venous/Y/WNS +vent/ISGFD/WNT +venter/M/WNT +ventilate/XSDVGN/WNTLT +ventilated/U/WNTLTT +ventilation/M/WNTLXN +ventilator/MS/WNTLT +ventral/YS/WNTRL +ventricle/MS/WNTRKL +ventricular//WNTRKL +ventriloquies//WNTRLKS +ventriloquism/MS/WNTRLKSM +ventriloquist/MS/WNTRLKST +ventriloquy//WNTRLK +vent's/F/WNTS +Ventura/M/WNTR +venture/RSDJZG/WNTR +venturesome/YP/WNTRSM +venturesomeness/SM/WNTRSMNS +venturi/S/WNTR +venturous/YP/WNTRS +venturousness/MS/WNTRSNS +venue/MAS/WN +Venus/S/WNS +Venusian/S/WNXN +Vera/M/WR +veracious/YP/WRSS +veraciousness/M/WRSSNS +veracities//WRSTS +veracity/IM/WRST +Veracruz/M/WRKRS +Veradis//WRTS +veranda/SDM/WRNT +verandahed//WRNTHT +verb/KSM/WB +verbal/SY/WBL +verbalization/MS/WBLSXN +verbalize/ZGRSD/WBLS +verbalized/U/WBLST +verbalizer/M/WBLS +verballed//WBLT +verballing//WBLN +verbatim//WBTM +verbena/MS/WBN +verbiage/SM/WBK +verbose/YP/WBS +verbosity/SM/WBST +verboten//WBTN +verdant/Y/WTNT +Verde/M/WT +Verderer/M/WTR +Verdi/M/WT +verdict/SM/WTKT +verdigris/GSDM/WTKRS +verdure/SDM/WTR +Vere/M/WR +Verena/M/WRN +Verene/M/WRN +verge/FGSD/WK +Verge/M/WK +verger/SM/WK +verge's//WKS +Vergil's//WKLS +veridical/Y/WRTKL +Veriee/M/WR +verifiability/M/WRFBLT +verifiable/U/WRFBL +verifiableness/M/WRFBLNS +verification/S/WRFKXN +verified/U/WRFT +verifier/MS/WRF +verify/GASD/WRF +Verile/M/WRL +verily//WRL +Verina/M/WRN +Verine/M/WRN +verisimilitude/SM/WRSMLTT +veritable/P/WRTBL +veritableness/M/WRTBLNS +veritably//WRTBL +verity/MS/WRT +Verla/M/WL +Verlag/M/WLK +Verlaine/M/WLN +Vermeer/M/WM +vermicelli/MS/WMSL +vermiculite/MS/WMKLT +vermiform//WMFM +vermilion/MS/WMLN +vermin/M/WMN +verminous//WMNS +Vermont/ZRM/WMNT +Vermonter/M/WMNT +vermouth/M/WM@ +vermouths//WM@S +Vern/NM/WN +Verna/M/WN +vernacular/YS/WNKL +vernal/Y/WNL +Verne/M/WN +Vernen/M/WNN +Verney/M/WN +Vernice/M/WNS +vernier/SM/WN +Vernon/M/WNN +Vernor/M/WN +Verona/M/WRN +Veronese/M/WRNS +Veronica/M/WRNK +veronica/SM/WRNK +Veronika/M/WRNK +Veronike/M/WRNK +Veronique/M/WRNK +verruca/MS/WRK +verrucae//WRK +versa//WS +Versailles/M/WSLS +Versatec/M/WSTK +versatile/YP/WSTL +versatileness/M/WSTLNS +versatility/SM/WSTLT +verse/XSRDAGNF/WS +versed/UI/WST +verse's//WSS +verses/I/WSS +versicle/M/WSKL +versification/M/WSFKXN +versifier/M/WSF +versify/GDRSZXN/WSF +versing/I/WSN +version/MFISA/WXN +verso/SM/WS +versus//WSS +vertebra/M/WTBR +vertebrae//WTBR +vertebral/Y/WTBRL +vertebrate/IMS/WTBRT +vertebration/M/WTBRXN +vertex/SM/WTKS +vertical/YPS/WTKL +vertices's//WTSSS +vertiginous//WTKNS +vertigo/M/WTK +vertigoes//WTKS +verve/SM/WF +very/RT/WR +Vesalius/M/WSLS +vesicle/SM/WSKL +vesicular/Y/WSKL +vesiculate/GSD/WSKLT +Vespasian/M/WSPXN +vesper/SM/WSP +Vespucci/M/WSPS +vessel/MS/WSL +vest/DIGSL/WST +Vesta/M/WST +vestal/YS/WSTL +vestibular//WSTBL +vestibule/SDM/WSTBL +vestige/SM/WSTK +vestigial/Y/WSTKL +vesting/SM/WSTN +vestment/ISM/WSTMNT +vestry/MS/WSTR +vestryman/M/WSTRMN +vestrymen//WSTRMN +vest's//WSTS +vesture/SDMG/WSTR +Vesuvius/M/WSFS +vet/SMR/WT +vetch/SM/WX +veter/M/WT +veteran/SM/WTRN +veterinarian/MS/WTRNRN +veterinary/S/WTRNR +veto/DMG/WT +vetoes//WTS +vetted//WTT +vetting/A/WTN +Vevay/M/WF +vex/GFSD/WKS +vexation/SM/WKSXN +vexatious/PY/WKSXS +vexatiousness/M/WKSXSNS +vexed/Y/WKST +VF//WF +VFW//WF +VG//WK +VGA//WK +vhf//WHF +VHF//WHF +VHS//WHS +VI//W +Vi/M/W +vi/MDR/W +via//W +viability/SM/WBLT +viable/I/WBL +viably//WBL +viaduct/MS/WTKT +Viagra/M/WKR +vial/MDGS/WL +viand/SM/WNT +vibe/S/WB +vibraharp/MS/WBRHP +vibrancy/MS/WBRNS +vibrant/YS/WBRNT +vibraphone/MS/WBRFN +vibraphonist/SM/WBRFNST +vibrate/XNGSD/WBRT +vibration/M/WBRXN +vibrational/Y/WBRXNL +vibrato/MS/WBRT +vibrator/SM/WBRT +vibratory//WBRTR +vibrio/M/WBR +vibrionic//WBRNK +viburnum/SM/WBNM +Vic/M/WK +vicar/SM/WK +vicarage/SM/WKRK +vicarious/YP/WKRS +vicariousness/MS/WKRSNS +vice/CMS/WS +viced//WST +vicegerent/MS/WSKRNT +vicennial//WSNL +Vicente/M/WSNT +viceregal//WSRKL +viceroy/SM/WSR +Vichy/M/WX +vichyssoise/MS/WXSS +vicing//WSN +vicinity/MS/WSNT +vicious/YP/WSS +viciousness/S/WSSNS +vicissitude/MS/WSSTT +Vick/ZM/WK +Vickers/M/WKS +Vicki/M/WK +Vickie/M/WK +Vicksburg/M/WKSBK +Vicky/M/WK +victim/SM/WKTM +victimization/SM/WKTMSXN +victimize/SRDZG/WKTMS +victimized/U/WKTMST +victimizer/M/WKTMS +Victoir/M/WKT +Victor/M/WKT +victor/SM/WKT +Victoria/M/WKTR +Victorian/S/WKTRN +Victorianism/S/WKTRNSM +victorious/YP/WKTRS +victoriousness/M/WKTRSNS +victory/MS/WKTR +Victrola/SM/WKTRL +victual/ZGSDR/WKTL +victualer/M/WKTL +vicuña/S/WK +Vida/M/WT +Vidal/M/WTL +videlicet//WTLST +video/GSMD/WT +videocassette/S/WTKST +videoconferencing//WTKNFRNSN +videodisc/S/WTTSK +videodisk/SM/WTTSK +videophone/SM/WTFN +videotape/SDGM/WTTP +Vidovic/M/WTFK +Vidovik/M/WTFK +vie/S/W +Vienna/M/WN +Viennese/M/WNS +Vientiane/M/WNXN +vier/M/W +Viet/M/WT +Vietcong/M/WTKNK +Vietminh/M/WTMNH +Vietnam/M/WTNM +Vietnamese/M/WTNMS +view/MBGZJSRD/W +viewed/A/WWT +viewer/AS/WW +viewer's//WWS +viewfinder/MS/WFNT +viewgraph/SM/WKRF +viewing/M/WWN +viewless/Y/WLS +viewpoint/SM/WPNT +views/A/WS +vigesimal//WKSML +vigil/SM/WKL +vigilance/MS/WKLNS +vigilant/Y/WKLNT +vigilante/SM/WKLNT +vigilantism/MS/WKLNTSM +vigilantist//WKLNTST +vignette/MGDRS/WKNT +vignetter/M/WKNT +vignetting/M/WKNTN +vignettist/MS/WKNTST +vigor/MS/WK +vigorous/YP/WKRS +vigorousness/M/WKRSNS +vii//W +viii//W +Vijayawada/M/WKYWT +Viki/M/WK +Viking/MS/WKN +viking/S/WKN +Vikki/M/WK +Vikky/M/WK +Vikram/M/WKRM +Vila//WL +vile/AR/WL +vilely//WLL +vileness/MS/WLNS +vilest//WLST +Vilhelmina/M/WLHLMN +vilification/M/WLFKXN +vilifier/M/WLF +vilify/GNXRSD/WLF +Villa/M/WL +villa/MS/WL +village/RSMZ/WLK +villager/M/WLK +villain/SM/WLN +villainous/YP/WLNS +villainousness/M/WLNSNS +villainy/MS/WLN +Villarreal/M/WLRL +ville//WL +villein/MS/WLN +villeinage/SM/WLNK +villi//WL +Villon/M/WLN +villus/M/WLS +Vilma/M/WLM +Vilnius/M/WLNS +Vilyui/M/WLY +vim/MS/WM +Vin/M/WN +Vina/M/WN +vinaigrette/MS/WNKRT +Vince/M/WNS +Vincent/MS/WNSNT +Vincenty/M/WNSNT +Vincenz/M/WNSNS +Vinci/M/WNS +vincible/I/WNSBL +Vindemiatrix/M/WNTMTRKS +vindicate/XSDVGN/WNTKT +vindication/M/WNTKXN +vindicator/SM/WNTKT +vindictive/PY/WNTKTF +vindictiveness/MS/WNTKTFNS +vine/MGDS/WN +vinegar/DMSG/WNK +vinegary//WNKR +vineyard/SM/WNYT +Vinita/M/WNT +Vinni/M/WN +Vinnie/M/WN +Vinny/M/WN +vino/MS/WN +vinous//WNS +Vinson/M/WNSN +vintage/MRSDG/WNTK +vintager/M/WNTK +vintner/MS/WNTN +vinyl/SM/WNL +viol/MSB/WL +Viola/M/WL +viola/SM/WL +violable/I/WLBL +Violante/M/WLNT +violate/VNGXSD/WLT +violator/MS/WLT +Viole/M/WL +violence/SM/WLNS +violent/Y/WLNT +Violet/M/WLT +violet/SM/WLT +Violetta/M/WLT +Violette/M/WLT +violin/MS/WLN +violinist/SM/WLNST +violist/MS/WLST +violoncellist/S/WLNSLST +violoncello/MS/WLNSL +VIP/S/WP +viper/MS/WP +viperous//WPRS +virago/M/WRK +viragoes//WRKS +viral/Y/WRL +vireo/SM/WR +Virge/M/WK +Virgie/M/WK +Virgil/M/WKL +Virgilio/M/WKL +virgin/SM/WKN +Virgina/M/WKN +virginal/YS/WKNL +Virginia/M/WKN +Virginian/S/WKNN +Virginie/M/WKN +virginity/SM/WKNT +Virgo/MS/WK +virgule/MS/WKL +virile//WRL +virility/MS/WRLT +virologist/S/WRLKST +virology/SM/WRLK +virtual/Y/WTL +virtue/SM/WT +virtuosity/MS/WTST +virtuoso/MS/WTS +virtuosoes//WTSS +virtuous/PY/WTS +virtuousness/SM/WTSNS +virulence/SM/WRLNS +virulent/Y/WRLNT +virus/MS/WRS +vis/MDSGV/WS +Visa/M/WS +visa/SGMD/WS +visage/MSD/WSK +Visakhapatnam's//WSKHPTNMS +Visayans//WSYNS +viscera//WSR +visceral/Y/WSRL +viscid/Y/WST +viscoelastic//WSKLSTK +viscoelasticity//WSKLSTST +viscometer/SM/WSKMT +viscose/MS/WSKS +viscosity/MS/WSKST +viscount/MS/WSKNT +viscountcy/MS/WSKNTS +viscountess/SM/WSKNTS +viscous/PY/WSKS +viscousness/M/WSKSNS +viscus/M/WSKS +vise/CAXNGSD/WS +viselike//WSLK +vise's//WSS +Vishnu/M/WXN +visibility/ISM/WSBLT +visible/PI/WSBL +visibly/I/WSBL +Visigoth/M/WSK@ +Visigoths//WSK@S +vision/KMDGS/WXN +visionariness/M/WXNRNS +visionary/PS/WXNR +vision's/A/WXNS +visit/GASD/WST +visitable/U/WSTBL +visitant/SM/WSTNT +visitation/SM/WSTXN +visited/U/WSTT +visitor/MS/WST +visor/SMDG/WS +VISTA//WST +vista/GSDM/WST +Vistula/M/WSTL +visual/SY/WSL +visualization/AMS/WSLSXN +visualize/SRDZG/WSLS +visualized/U/WSLST +visualizer/M/WSLS +visualizes/A/WSLSS +vita/M/WT +Vita/M/WT +vitae//WT +vital/SY/WTL +vitality/MS/WTLT +vitalization/AMS/WTLSXN +vitalize/ASDGC/WTLS +vitamin/SM/WTMN +Vite/M/WT +Vitia/M/WX +vitiate/XGNSD/WXT +vitiation/M/WXXN +viticulture/SM/WTKLTR +viticulturist/S/WTKLTRST +Vitim/M/WTM +Vito/M/WT +Vitoria/M/WTR +vitreous/YSP/WTRS +vitrifaction/S/WTRFKXN +vitrification/M/WTRFKXN +vitrify/XDSNG/WTRF +vitrine/SM/WTRN +vitriol/MDSG/WTRL +vitriolic//WTRLK +vitro//WTR +vittles//WTLS +Vittoria/M/WTR +Vittorio/M/WTR +vituperate/SDXVGN/WTPRT +vituperation/M/WTPRXN +vituperative/Y/WTPRTF +Vitus/M/WTS +Viv/M/WF +viva/DGS/WF +Viva/M/WF +vivace/S/WFS +vivacious/YP/WFSS +vivaciousness/MS/WFSSNS +vivacity/SM/WFST +Vivaldi//WFLT +vivaria//WFR +vivarium/MS/WFRM +vivaxes//WFKSS +vive/Z/WF +Vivekananda/M/WFKNNT +Vivi/MN/WF +Vivia/M/WF +Vivian/M/WFN +Viviana/M/WFN +Vivianna/M/WFN +Vivianne/M/WFN +vivid/PTYR/WFT +vividness/SM/WFTNS +Vivie/M/WF +Vivien/M/WFN +Viviene/M/WFN +Vivienne/M/WFN +vivifier//WFF +vivify/NGASD/WFF +viviparous//WFPRS +vivisect/DGS/WFSKT +vivisection/MS/WFSKXN +vivisectional//WFSKXNL +vivisectionist/SM/WFSKXNST +Viviyan/M/WFYN +vivo//WF +Vivyan/M/WFYN +Vivyanne/M/WFYN +vixen/SM/WKSN +vixenish/Y/WKSNX +viz//WS +vizier/MS/WS +vizor's//WSS +VJ//WK +Vlad/M/WLT +Vladamir/M/WLTM +Vladimir/M/WLTM +Vladivostok/M/WLTFSTK +VLF//WLF +VLSI//WLS +VMS/M/WMS +VOA//W +vocab/S/WKB +vocable/SM/WKBL +vocabularian//WKBLRN +vocabularianism//WKBLRNSM +vocabulary/MS/WKBLR +vocal/SY/WKL +vocalic/S/WKLK +vocalise's//WKLSS +vocalism/M/WKLSM +vocalist/MS/WKLST +vocalization/SM/WKLSXN +vocalize/ZGDRS/WKLS +vocalized/U/WKLST +vocalizer/M/WKLS +vocation/AKMISF/WKXN +vocational/Y/WKXNL +vocative/KYS/WKTF +vociferate/NGXSD/WSFRT +vociferation/M/WSFRXN +vociferous/YP/WSFRS +vociferousness/MS/WSFRSNS +vocoded//WKTT +vocoder//WKT +vodka/MS/WTK +voe/S/W +Vogel/M/WKL +vogue/GMSRD/WK +vogueing//WKN +voguish//WKX +voice/IMGDS/WS +voiceband//WSBNT +voiced/CU/WST +voiceless/YP/WSLS +voicelessness/SM/WSLSNS +voicer/S/WS +voices/C/WSS +voicing/C/WSN +void/C/WT +voidable//WTBL +voided//WTT +voider/M/WT +voiding//WTN +voidness/M/WTNS +voids//WTS +voilà//WL +voile/MS/WL +vol/GSD/WL +Vol/M/WL +volar//WL +volatile/PS/WLTL +volatileness/M/WLTLNS +volatility/MS/WLTLT +volatilization/MS/WLTLSXN +volatilize/SDG/WLTLS +volcanic/S/WLKNK +volcanically//WLKNKL +volcanism/M/WLKNSM +volcano/M/WLKN +volcanoes//WLKNS +vole/MS/WL +Volga/M/WLK +Volgograd/M/WLKKRT +volition/MS/WLXN +volitional/Y/WLXNL +volitionality//WLXNLT +Volkswagen/SM/WLKSWKN +volley/SMRDG/WL +volleyball/MS/WLBL +volleyer/M/WLY +Volstead/M/WLSTT +volt/AMS/WLT +Volta/M/WLT +voltage/SM/WLTK +voltaic//WLTK +Voltaire/M/WLTR +Volterra/M/WLTR +voltmeter/MS/WLTMT +volubility/S/WLBLT +voluble/P/WLBL +volubly//WLBL +volume/SDGM/WLM +volumetric//WLMTRK +volumetrically//WLMTRKL +voluminous/PY/WLMNS +voluminousness/MS/WLMNSNS +voluntarily/I/WLNTRL +voluntariness/MI/WLNTRNS +voluntarism/MS/WLNTRSM +voluntary/PS/WLNTR +volunteer/DMSG/WLNT +voluptuary/SM/WLPTR +voluptuous/YP/WLPTS +voluptuousness/S/WLPTSNS +volute/S/WLT +Volvo/M/WLF +vomit/GRDS/WMT +Von/M/WN +Vonda/M/WNT +Vonnegut/M/WNKT +Vonni/M/WN +Vonnie/M/WN +Vonny/M/WN +voodoo/GDMS/WT +voodooism/S/WTSM +voracious/YP/WRSS +voraciousness/MS/WRSSNS +voracity/MS/WRST +Voronezh/M/WRNSH +Vorster/M/WST +vortex/SM/WTKS +vortices's//WTSSS +vorticity/M/WTST +votary/MS/WTR +vote/CSDG/WT +voter/SM/WT +vote's//WTS +votive/YP/WTF +vouch/SRDGZ/WX +voucher/GMD/WX +vouchsafe/SDG/WXSF +vow/SMDRG/W +vowel/MS/WWL +vowelled//WWLT +vowelling//WWLN +vower/M/WW +voyage/GMZJSRD/WYK +voyager/M/WYK +voyageur/SM/WYK +voyeur/MS/WY +voyeurism/MS/WYRSM +voyeuristic//WYRSTK +VP//WP +vs//WS +V's//WS +VT//WT +Vt/M/WT +VTOL//WTL +Vulcan/M/WLKN +vulcanization/SM/WLKNSXN +vulcanize/SDG/WLKNS +vulcanized/U/WLKNST +Vulg/M/WLK +vulgar/TSYR/WLK +vulgarian/MS/WLKRN +vulgarism/MS/WLKRSM +vulgarity/MS/WLKRT +vulgarization/S/WLKRSXN +vulgarize/GZSRD/WLKRS +Vulgate/SM/WLKT +vulnerability/SI/WLNRBLT +vulnerable/IP/WLNRBL +vulnerably/I/WLNRBL +vulpine//WLPN +vulture/SM/WLTR +vulturelike//WLTRLK +vulturous//WLTRS +vulva/M/WLF +vulvae//WLF +vying//WYN +Vyky/M/WK +W/T +w/XTJGV +WA//W +Waals//WLS +Wabash/M/WBX +WAC//WK +Wac/S/WK +Wacke/M/WK +wackes//WKS +wackiness/MS/WKNS +wacko/MS/WK +wacky/RTP/WK +Waco/M/WK +wad/MDRZGS/WT +wadded//WTT +wadding/SM/WTN +waddle/GRSD/WTL +Wade/M/WT +wade/S/WT +wader/M/WT +wadi/SM/WT +Wadsworth/M/WTSW@ +wafer/GSMD/WF +waffle/GMZRSD/WFL +Wafs//WFS +waft/SGRD/WFT +wafter/M/WFT +wag/DRZGS/WK +wage/SM/WK +waged/U/WKT +wager/GZMRD/WK +wagged//WKT +waggery/MS/WKR +wagging//WKN +waggish/YP/WKX +waggishness/SM/WKXNS +waggle/SDG/WKL +waggly//WKL +Wagner/M/WKN +Wagnerian//WKNRN +wagon/SGZMRD/WKN +wagoner/M/WKN +wagtail/SM/WKTL +Wahl/M/WL +waif/SGDM/WF +Waikiki/M/WKK +wail/SGZRD/WL +wailer/M/WL +wain/GSDM/WN +Wain/M/WN +wainscot/SGJD/WNSKT +Wainwright/M/WNRT +wainwright/SM/WNRT +waist/GSRDM/WST +waistband/MS/WSTBNT +waistcoat/GDMS/WSTKT +waister/M/WST +waistline/MS/WSTLN +wait/GSZJRD/WT +Wait/MR/WT +Waite/M/WT +waiter/DMG/WT +Waiter/M/WT +waitpeople//WTPPL +waitperson/S/WTPSN +waitress/GMSD/WTRS +waive/SRDGZ/WF +waiver/MB/WF +Wake/M/WK +wake/MGDRSJ/WK +Wakefield/M/WKFLT +wakeful/PY/WKFL +wakefulness/MS/WKFLNS +waken/SMRDG/WKN +waker/M/WK +wakeup//WKP +Waksman/M/WKSMN +Walbridge/M/WLBRK +Walcott/M/WLKT +Wald/MN/WLT +Waldemar/M/WLTM +Walden/M/WLTN +Waldensian//WLTNXN +Waldheim/M/WLTHM +Waldo/M/WLT +Waldon/M/WLTN +Waldorf/M/WLTF +wale/DRSMG/WL +Wales//WLS +Walesa/M/WLS +Walford/M/WLFT +Walgreen/M/WLKRN +waling/M/WLN +walk/GZSBJRD/WLK +walkabout/M/WLKBT +walkaway/SM/WLKW +walker/M/WLK +Walker/M/WLK +walkie//WLK +Walkman/S/WLKMN +walkout/SM/WLKT +walkover/SM/WLKF +walkway/MS/WLKW +wall/SGMRD/WL +Wall/SMR/WL +wallaby/MS/WLB +Wallace/M/WLS +Wallache/M/WLX +wallah/M/WL +Wallas/M/WLS +wallboard/MS/WLBT +Wallenstein/M/WLNSTN +Waller/M/WL +wallet/SM/WLT +walleye/MSD/WLY +wallflower/MS/WLFLW +Wallie/M/WL +Wallis//WLS +Walliw/M/WL +Walloon/SM/WLN +wallop/RDSJG/WLP +walloper/M/WLP +walloping/M/WLPN +wallow/RDSG/WL +wallower/M/WLW +wallpaper/DMGS/WLPP +Wally/M/WL +wally/S/WL +walnut/SM/WLNT +Walpole/M/WLPL +Walpurgisnacht//WLPKSNXT +walrus/SM/WLRS +Walsh/M/WLX +Walt/ZMR/WLT +Walter/M/WLT +Walther/M/WL@ +Walton/M/WLTN +waltz/MRSDGZ/WLTS +waltzer/M/WLTS +Walworth/M/WLW@ +Waly/M/WL +wampum/SM/WMPM +wan/PGSDY/WN +Wanamaker/M/WNMK +wand/MRSZ/WNT +Wanda/M/WNT +wander/JZGRD/WNT +wanderer/M/WNTR +wanderlust/SM/WNTLST +Wandie/M/WNT +Wandis/M/WNTS +wane/S/WN +Waneta/M/WNT +Wang/M/WNK +wangle/RSDGZ/WNKL +wangler/M/WNKL +Wanids/M/WNTS +Wankel/M/WNKL +wanna//WN +wannabe/S/WNB +wanned//WNT +wanner//WN +wanness/S/WNS +wannest//WNST +wanning//WNN +Wansee/M/WNS +Wansley/M/WNSL +want/GRDSJ/WNT +wanted/U/WNTT +wanter/M/WNT +wanton/PGSRDY/WNTN +wantonness/S/WNTNS +wapiti/MS/WPT +war/GSMD/W +warble/GZRSD/WBL +warbler/M/WBL +warbonnet/S/WBNT +ward/AGMRDS/WT +Ward/MN/WT +Warde/M/WT +warden/DMGS/WTN +Warden/M/WTN +warder/DMGS/WT +wardrobe/MDSG/WTRB +wardroom/MS/WTRM +wards/I/WTS +wardship/M/WTXP +Ware/MG/WR +ware/MS/WR +warehouse/MGSRD/WRHS +warehouseman/M/WRHSMN +warfare/SM/WFR +Warfield/M/WFLT +warhead/MS/WHT +Warhol/M/WHL +warhorse/SM/WHS +warily/U/WRL +wariness/MS/WRNS +warinesses/U/WRNSS +Waring/M/WRN +warless//WLS +warlike//WLK +warlock/SM/WLK +warlord/MS/WLT +warm/YRDHPGZTS/WM +warmblooded//WMBLTT +warmed/A/WMT +warmer/M/WM +warmhearted/PY/WMHTT +warmheartedness/SM/WMHTTNS +warmish//WMX +warmness/MS/WMNS +warmonger/JGSM/WMNK +warmongering/M/WMNKRN +warms/A/WMS +warmth/M/WM@ +warmths//WM@S +warn/GRDJS/WN +warned/U/WNT +warner/M/WN +Warner/M/WN +warning/YM/WNN +Warnock/M/WNK +warp/MRDGS/WP +warpaint//WPNT +warpath/M/WP@ +warpaths//WP@S +warper/M/WP +warplane/MS/WPLN +warrant/GSMDR/WRNT +warranted/U/WRNTT +warranter/M/WRNT +warranty/SDGM/WRNT +warred/M/WRT +Warren/M/WRN +warren/SZRM/WRN +warrener/M/WRN +warring/M/WRN +warrior/MS/WR +wars/C/WS +Warsaw/M/WS +warship/MS/WXP +wart/MDS/WT +warthog/S/W@K +wartime/SM/WTM +warty/RT/WT +Warwick/M/WWK +wary/URPT/WR +was/S/WS +Wasatch/M/WSX +wash/AGSD/WX +Wash/M/WX +washable/S/WXBL +washbasin/SM/WXBSN +washboard/SM/WXBT +washbowl/SM/WXBL +Washburn/M/WXBN +washcloth/M/WXKL@ +washcloths//WXKL@S +washday/M/WXT +washed/U/WXT +washer/GDMS/WX +washerwoman/M/WXWMN +washerwomen//WXWMN +washing/SM/WXN +Washington/M/WXNTN +Washingtonian/S/WXNTNN +Washoe/M/WX +washout/SM/WXT +washrag/SM/WXRK +washroom/MS/WXRM +washstand/SM/WXSTNT +washtub/MS/WXTB +washy/RT/WX +wasn't//WSNT +WASP//WSP +wasp/SM/WSP +waspish/PY/WSPX +waspishness/SM/WSPXNS +Wasp's//WSPS +wassail/GMDS/WSL +Wasserman/M/WSMN +Wassermann/M/WSMN +wast/GZSRD/WST +wastage/SM/WSTK +waste/S/WST +wastebasket/SM/WSTBSKT +wasteful/YP/WSTFL +wastefulness/S/WSTFLNS +wasteland/MS/WSTLNT +wastepaper/MS/WSTPP +waster/DG/WST +wastewater//WSTWT +wasting/Y/WSTN +wastrel/MS/WSTRL +Wat/ZM/WT +Watanabe/M/WTNB +watch/JRSDGZB/WX +watchable/U/WXBL +watchband/SM/WXBNT +watchdog/SM/WXTK +watchdogged//WXTKT +watchdogging//WXTKN +watched/U/WXT +watcher/M/WX +watchful/PY/WXFL +watchfulness/MS/WXFLNS +watchmake/JRGZ/WXMK +watchmaker/M/WXMK +watchman/M/WXMN +watchmen//WXMN +watchpoints//WXPNTS +watchtower/MS/WXTW +watchword/MS/WXWT +water/JGSMRD/WT +waterbird/S/WTBT +waterborne//WTBN +Waterbury/M/WTBR +watercolor/DMGS/WTKL +watercolorist/SM/WTKLRST +watercourse/SM/WTKS +watercraft/M/WTKRFT +watercress/SM/WTKRS +waterer/M/WTR +waterfall/SM/WTFL +waterfowl/M/WTFL +waterfront/SM/WTFRNT +Watergate/M/WTKT +waterhole/S/WTHL +Waterhouse/M/WTHS +wateriness/SM/WTRNS +watering/M/WTRN +waterless//WTLS +waterlily/S/WTLL +waterline/S/WTLN +waterlogged//WTLKT +waterloo//WTL +Waterloo/SM/WTL +waterman/M/WTMN +watermark/GSDM/WTMK +watermelon/SM/WTMLN +watermill/S/WTML +waterproof/PGRDSJ/WTPRF +Waters/M/WTS +watershed/SM/WTXT +waterside/MSR/WTST +watersider/M/WTST +waterspout/MS/WTSPT +watertight/P/WTTT +watertightness/M/WTTTNS +Watertown/M/WTTN +waterway/MS/WTW +waterwheel/S/WTHL +waterworks/M/WTWKS +watery/PRT/WTR +Watkins//WTKNS +WATS//WTS +Watson/M/WTSN +Watt/MS/WT +watt/TMRS/WT +wattage/SM/WTK +Watteau/M/WT +Wattenberg/M/WTNBK +Watterson/M/WTSN +wattle/SDGM/WTL +Watusi/M/WTS +Waugh/M/W +Waukesha/M/WKX +Waunona/M/WNN +Waupaca/M/WPK +Waupun/M/WPN +Wausau/M/WS +Wauwatosa/M/WWTS +Wave/S/WF +wave/ZGDRS/WF +waveband/MS/WFBNT +waveform/SM/WFFM +wavefront/MS/WFFRNT +waveguide/MS/WFKT +Waveland/M/WFLNT +wavelength/M/WFLNK@ +wavelengths//WFLNK@S +wavelet/SM/WFLT +wavelike//WFLK +wavenumber//WFNMB +waver/GZRD/WF +wavering/YU/WFRN +Waverley/M/WFL +Waverly/M/WFL +wavily//WFL +waviness/MS/WFNS +wavy/SRTP/WF +wax/MNDRSZG/WKS +waxer/M/WKS +waxiness/MS/WKSNS +waxwing/MS/WKSWN +waxwork/MS/WKSWK +waxy/PRT/WKS +Way/M/W +way/MS/W +wayfarer/MS/WFR +wayfaring/S/WFRN +waylaid//WLT +Waylan/M/WLN +Wayland/M/WLNT +waylay/GRSZ/WL +waylayer/M/WLY +wayleave/MS/WLF +Waylen/M/WLN +Waylin/M/WLN +Waylon/M/WLN +waymarked//WMKT +Wayne/M/WN +Waynesboro/M/WNSBR +wayside/MS/WST +wayward/YP/WWT +waywardness/S/WWTNS +WC//K +we//W +weak/TXPYRN/WK +weaken/ZGRD/WKN +weakener/M/WKN +weakfish/SM/WKFX +weakish//WKX +weakliness/M/WKLNS +weakling/SM/WKLN +weakly/RTP/WKL +weakness/MS/WKNS +weal/MHS/WL +wealth/M/WL@ +wealthiness/MS/WL@NS +wealths//WL@S +wealthy/PTR/WL@ +wean/RDGS/WN +weaner/M/WN +weanling/M/WNLN +weapon/GDMS/WPN +weaponless//WPNLS +weaponry/MS/WPNR +wear/RBSJGZ/W +wearable/S/WRBL +wearer/M/WR +wearied/U/WRT +wearily//WRL +weariness/MS/WRNS +wearing/Y/WRN +wearisome/YP/WRSM +wearisomeness/M/WRSMNS +weary/TGPRSD/WR +wearying/Y/WRYN +weasel/SGMDY/WSL +weather/MDRYJGS/W@ +weatherbeaten//W@BTN +weathercock/SDMG/W@KK +weatherer/M/W@R +Weatherford/M/W@FT +weathering/M/W@RN +weatherize/GSD/W@RS +weatherman/M/W@MN +weathermen//W@MN +weatherperson/S/W@PSN +weatherproof/SGPD/W@PRF +weatherstrip/S/W@STRP +weatherstripped//W@STRPT +weatherstripping/S/W@STRPN +weave/SRDGZ/WF +weaver/M/WF +Weaver/M/WF +weaves/A/WFS +weaving/A/WFN +Web/MR/WB +web/SMR/WB +Webb/RM/WB +webbed//WBT +Webber/M/WB +webbing/MS/WBN +weber/M/WB +Weber/M/WB +Webern/M/WBN +webfeet//WBFT +webfoot/M/WBFT +website/S/WBST +Webster/MS/WBST +Websterville/M/WBSTFL +we'd//WT +Wed/M/WT +wed/SA/WT +wedded/A/WTT +Weddell/M/WTL +wedder//WT +wedding/SM/WTN +wedge/SDGM/WK +wedgie/RST/WK +Wedgwood/M/WTKWT +wedlock/SM/WTLK +Wednesday/SM/WTNST +wee/DRST/W +weed/SGMRDZ/WT +weeder/M/WT +weediness/M/WTNS +weedkiller/M/WTKL +weedless//WTLS +weedy/TRP/WT +weeing//WN +week/SYM/WK +weekday/MS/WKT +weekend/SDRMG/WKNT +weekender/M/WKNT +weekly/S/WKL +weeknight/SM/WKNT +Weeks/M/WKS +ween/SGD/WN +weenie/M/WN +weeny/RSMT/WN +weep/SGZJRD/WP +weeper/M/WP +weepy/RST/WP +weevil/MS/WFL +weft/SGMD/WFT +Wehr/M/WR +Wei/M/W +Weibull/M/WBL +Weidar/M/WT +Weider/M/WT +Weidman/M/WTMN +Weierstrass/M/WSTRS +weigh/RDJG/W +weighed/UA/WKT +weigher/M/WK +weighs/A/WS +weight/JMSRDG/WT +weighted/U/WTT +weighter/M/WT +weightily//WTL +weightiness/SM/WTNS +weighting/M/WTN +weightless/YP/WTLS +weightlessness/SM/WTLSNS +weightlifter/S/WTLFT +weightlifting/MS/WTLFTN +weighty/TPR/WT +Weill/M/WL +Weinberg/M/WNBK +Weiner/M/WN +Weinstein/M/WNSTN +weir/SDMG/W +weird/YRDPGTS/WT +weirdie/SM/WT +weirdness/MS/WTNS +weirdo/SM/WT +Weisenheimer/M/WSNHM +Weiss/M/WS +Weissman/M/WSMN +Weissmuller/M/WSML +Weizmann/M/WSMN +Welbie/M/WLB +Welby/M/WLB +Welcher/M/WLX +Welches//WLXS +welcome/PRSDYG/WLKM +welcomeness/M/WLKMNS +welcoming/U/WLKMN +weld/SBJGZRD/WLT +welder/M/WLT +Weldon/M/WLTN +Weldwood/M/WLTWT +welfare/SM/WLFR +welkin/SM/WLKN +we'll//WL +well/SGPD/WL +Welland/M/WLNT +wellbeing/M/WLBN +Weller/M/WL +Welles/M/WLS +Wellesley/M/WLSL +wellhead/SM/WLHT +Wellington/MS/WLNTN +wellington/S/WLNTN +Wellman/M/WLMN +wellness/MS/WLNS +Wells/M/WLS +wellspring/SM/WLSPRN +Wellsville/M/WLSFL +Welmers/M/WLMS +Welsh//WLX +welsh/RSDGZ/WLX +welsher/M/WLX +Welshman/M/WLXMN +Welshmen//WLXMN +Welshwoman/M/WLXWMN +Welshwomen//WLXWMN +welt/GZSMRD/WLT +welter/GD/WLT +welterweight/MS/WLTWT +wen/M/WN +wench/GRSDM/WNX +wencher/M/WNX +wend/DSG/WNT +Wenda/M/WNT +Wendall/M/WNTL +Wendel/M/WNTL +Wendeline/M/WNTLN +Wendell/M/WNTL +Wendi/M/WNT +Wendie/M/WNT +Wendy/M/WNT +Wendye/M/WNTY +Wenona/M/WNN +Wenonah/M/WNN +went//WNT +Wentworth/M/WNTW@ +wept/U/WPT +were//WR +we're//WR +weren't//WRNT +werewolf/M/WRWLF +werewolves//WRWLFS +Werner/M/WN +Wernher/M/WNH +Werther/M/W@ +werwolf's//WWLFS +Wes//WS +Wesley/M/WSL +Wesleyan//WSLYN +Wessex/M/WSKS +Wesson/M/WSN +West/MS/WST +west/RDGSM/WST +westbound//WSTBNT +Westbrook/M/WSTBRK +Westbrooke/M/WSTBRK +Westchester/M/WSXST +wester/DYG/WST +westerly/S/WSTL +Western/ZRS/WSTN +western/ZSR/WSTN +westerner/M/WSTN +westernization/MS/WSTNSXN +westernize/GSD/WSTNS +westernmost//WSTNMST +Westfield/M/WSTFLT +Westhampton/M/WS@MPTN +westing/M/WSTN +Westinghouse/M/WSTNHS +Westleigh/M/WSTL +Westley/M/WSTL +Westminster/M/WSTMNST +Westmore/M/WSTMR +Weston/M/WSTN +Westphalia/M/WSTFL +Westport/M/WSTPT +westward/S/WSTWT +Westwood/M/WSTWT +wet/SPY/WT +wetback/MS/WTBK +wetland/S/WTLNT +wetness/MS/WTNS +wettable//WTBL +wetter/S/WT +wettest//WTST +wetting//WTN +we've//WF +Weyden/M/WTN +Weyerhauser/M/WYHS +Weylin/M/WLN +Wezen/M/WSN +WFF//F +whack/GZRDS/WK +whacker/M/WK +whale/GSRDZM/WL +whaleboat/MS/WLBT +whalebone/SM/WLBN +Whalen/M/WLN +whaler/M/WL +whaling/M/WLN +wham/MS/WM +whammed//WMT +whamming/M/WMN +whammy/S/WM +wharf/SGMD/WF +Wharton/M/WTN +wharves//WFS +what/MS/WT +whatchamacallit/MS/WXMKLT +what'd//WTT +whatever//WTF +whatnot/MS/WTNT +what're//WTR +whatsoever//WTSF +wheal/MS/WL +wheat/NMXS/WT +wheatgerm//WTKM +Wheaties/M/WTS +Wheatland/M/WTLNT +Wheaton/M/WTN +Wheatstone/M/WTSTN +whee/S/W +wheedle/ZDRSG/WTL +wheel/RDMJSGZ/WL +wheelbarrow/GSDM/WLBR +wheelbase/MS/WLBS +wheelchair/MS/WLX +wheeler/M/WL +Wheeler/M/WL +wheelhouse/SM/WLHS +wheelie/MS/WL +wheeling/M/WLN +Wheeling/M/WLN +Wheelock/M/WLK +wheelwright/MS/WLRT +wheeze/SDG/WS +wheezily//WSL +wheeziness/SM/WSNS +wheezy/PRT/WS +Whelan/M/WLN +whelk/MDS/WLK +Wheller/M/WL +whelm/DGS/WLM +whelp/DMGS/WLP +when/S/WN +whence/S/WNS +whenever//WNF +whensoever//WNSF +where/MS/WR +whereabout/S/WRBT +whereas/S/WRS +whereat//WRT +whereby//WRB +where'd//WRT +wherefore/MS/WRFR +wherein//WRN +whereof//WRF +whereon//WRN +where're//WRR +wheresoever//WRSF +whereto//WRT +whereupon//WRPN +wherever//WRF +wherewith//WRW@ +wherewithal/SM/WRW@L +wherry/DSGM/WR +whet/S/WT +whether//W@ +whetstone/MS/WTSTN +whetted//WTT +whetting//WTN +whew/GSD/W +whey/MS/W +which//WX +whichever//WXF +whiff/GSMD/WF +whiffle/DRSG/WFL +whiffler/M/WFL +whiffletree/SM/WFLTR +whig/S/WK +Whig/SM/WK +while/GSD/WL +whilom//WLM +whilst//WLST +whim/SM/WM +whimmed//WMT +whimming//WMN +whimper/DSG/WMP +whimsey's//WMSS +whimsical/YP/WMSKL +whimsicality/MS/WMSKLT +whimsy/TMDRS/WMS +whine/GZMSRD/WN +whining/Y/WNN +whinny/GTDRS/WN +whiny/RT/WN +whip/SM/WP +whipcord/SM/WPKT +whiplash/SDMG/WPLX +Whippany/M/WPN +whipped//WPT +whipper/MS/WP +whippersnapper/MS/WPSNP +whippet/MS/WPT +whipping/SM/WPN +Whipple/M/WPL +whippletree/SM/WPLTR +whippoorwill/SM/WPWL +whips/M/WPS +whipsaw/GDMS/WPS +whir/SY/W +whirl/RDGS/WL +whirligig/MS/WLKK +whirlpool/MS/WLPL +whirlwind/MS/WLWNT +whirly/MS/WL +whirlybird/MS/WLBT +whirred//WRT +whirring//WRN +whisk/GZRDS/WSK +whisker/DM/WSK +whiskery//WSKR +whiskey/SM/WSK +whisper/GRDJZS/WSP +whisperer/M/WSPR +whispering/YM/WSPRN +whist/GDMS/WST +whistle/DRSZG/WSTL +whistleable//WSTLBL +whistler/M/WSTL +Whistler/M/WSTL +whistling/M/WSTLN +Whit/M/WT +whit/SJGTXMRND/WT +Whitaker/M/WTK +Whitby/M/WTB +Whitcomb/M/WTKM +White/MS/WT +white/PYS/WT +whitebait/M/WTBT +whitecap/MS/WTKP +whiteface/M/WTFS +Whitefield/M/WTFLT +whitefish/SM/WTFX +Whitehall/M/WTHL +Whitehead/M/WTHT +whitehead/S/WTHT +Whitehorse/M/WTHS +Whiteleaf/M/WTLF +Whiteley/M/WTL +whiten/JZDRG/WTN +whitener/M/WTN +whiteness/MS/WTNS +whitening/M/WTNN +whiteout/S/WTT +whitespace//WTSPS +whitetail/S/WTTL +whitewall/SM/WTWL +whitewash/GRSDM/WTWX +whitewater//WTWT +Whitewater/M/WTWT +whitey/MS/WT +Whitfield/M/WTFLT +whither/DGS/W@ +whitier//WT +whitiest//WTST +whiting/M/WTN +whitish//WTX +Whitley/M/WTL +Whitlock/M/WTLK +Whitman/M/WTMN +Whitney/M/WTN +Whitsunday/MS/WTSNT +Whittaker/M/WTK +whitter//WT +Whittier//WT +whittle/JDRSZG/WTL +whittler/M/WTL +whiz//WS +whizkid//WSKT +whizzbang/S/WSBNK +whizzed//WST +whizzes//WSS +whizzing//WSN +WHO//W +who/M/W +whoa/S/W +who'd//WT +whodunit/SM/WTNT +whoever//WF +whole/SP/WL +wholegrain//WLKRN +wholehearted/PY/WLHTT +wholeheartedness/MS/WLHTTNS +wholemeal//WLML +wholeness/S/WLNS +wholesale/GZMSRD/WLSL +wholesaler/M/WLSL +wholesome/UYP/WLSM +wholesomeness/USM/WLSMNS +wholewheat//WLHT +who'll//WL +wholly//WL +whom//WM +whomever//WMF +whomsoever//WMSF +whoop/SRDGZ/WP +whoopee/S/WP +whooper/M/WP +whoosh/DSGM/WX +whop//WP +whopper/MS/WP +whopping/S/WPN +who're//WR +whore/SDGM/WR +whorehouse/SM/WRHS +whoreish//WRX +whorish//WRX +whorl/SDM/WL +whose//WS +whoso//WS +whosoever//WSF +who've//WF +why//W +whys//WS +WI//W +Wiatt/M/WT +Wichita/M/WXT +wick/GZRDMS/WK +wicked/RYPT/WKT +wickedness/MS/WKTNS +wicker/M/WK +wickerwork/MS/WKWK +wicket/SM/WKT +wicketkeeper/SM/WKTKP +wicking/M/WKN +wide/RSYTP/WT +widemouthed//WTM@T +widen/SGZRD/WTN +widener/M/WTN +wideness/S/WTNS +widespread//WTSPRT +widgeon's//WKNS +widget/SM/WKT +widow/MRDSGZ/WT +widower/M/WTW +widowhood/S/WTHT +width/M/WT@ +widths//WT@S +widthwise//WT@WS +Wieland/M/WLNT +wield/GZRDS/WLT +wielder/M/WLT +Wiemar/M/WM +wiener/SM/WN +wienie/SM/WN +Wier/M/W +Wiesel/M/WSL +wife/DSMYG/WF +wifeless//WFLS +wifely/RPT/WFL +wig/MS/WK +wigeon/MS/WKN +wigged//WKT +wigging/M/WKN +Wiggins//WKNS +wiggle/RSDGZ/WKL +wiggler/M/WKL +wiggly/RT/WKL +wight/SGDM/WT +wiglet/S/WKLT +wigmaker//WKMK +Wigner/M/WKN +wigwag/S/WKWK +wigwagged//WKWKT +wigwagging//WKWKN +wigwam/MS/WKWM +Wilberforce/M/WLBFS +Wilbert/M/WLBT +Wilbur/M/WLB +Wilburn/M/WLBN +Wilburt/M/WLBT +Wilcox/M/WLKKS +wild/SPGTYRD/WLT +Wilda/M/WLT +wildcat/SM/WLTKT +wildcatted//WLTKTT +wildcatter/MS/WLTKT +wildcatting//WLTKTN +Wilde/MR/WLT +wildebeest/SM/WLTBST +Wilden/M/WLTN +Wilder/M/WLT +wilder/P/WLT +wilderness/SM/WLTNS +wildfire/MS/WLTFR +wildflower/S/WLTFLW +wildfowl/M/WLTFL +wilding/M/WLTN +wildlife/M/WLTLF +wildness/MS/WLTNS +Wildon/M/WLTN +wile/DSMG/WL +Wileen/M/WLN +Wilek/M/WLK +Wiley/M/WL +Wilford/M/WLFT +Wilfred/M/WLFRT +Wilfredo/M/WLFRT +Wilfrid/M/WLFRT +wilfulness's//WLFLNSS +Wilhelm/M/WLHLM +Wilhelmina/M/WLHLMN +Wilhelmine/M/WLHLMN +Wilie/M/WL +wilily//WLL +wiliness/MS/WLNS +Wilkerson/M/WLKSN +Wilkes/M/WLKS +Wilkins/M/WLKNS +Wilkinson/M/WLKNSN +Will/M/WL +will/SGJRD/WL +Willa/M/WL +Willabella/M/WLBL +Willamette/M/WLMT +Willamina/M/WLMN +Willard/M/WLT +Willcox/M/WLKKS +Willdon/M/WLTN +willed/U/WLT +Willem/M/WLM +Willemstad/M/WLMSTT +willer/M/WL +Willetta/M/WLT +Willette/M/WLT +Willey/M/WL +willful/YP/WLFL +willfulness/S/WLFLNS +Willi/MS/WL +William/SM/WLM +Williamsburg/M/WLMSBK +Williamson/M/WLMSN +Willie/M/WL +Willied/M/WLT +willies//WLS +willing/UYP/WLN +willinger//WLN +willingest//WLNST +willingness/US/WLNNS +willingness's//WLNNSS +Willisson/M/WLSN +williwaw/MS/WLW +Willoughby/M/WLB +Willow/M/WL +willow/RDMSG/WL +willower/M/WLW +willowy/TR/WL +willpower/MS/WLPW +Willy/SDM/WL +Willyt/M/WLT +Wilma/M/WLM +Wilmar/M/WLM +Wilmer/M/WLM +Wilmette/M/WLMT +Wilmington/M/WLMNTN +Wilona/M/WLN +Wilone/M/WLN +Wilow/M/WL +Wilshire/M/WLXR +Wilson/M/WLSN +Wilsonian//WLSNN +wilt/DGS/WLT +Wilt/M/WLT +Wilton/M/WLTN +wily/PTR/WL +Wimbledon/M/WMBLTN +wimp/GSMD/WMP +wimpish//WMPX +wimple/SDGM/WMPL +wimpy/RT/WMP +Win/M/WN +win/ZGDRS/WN +wince/SDG/WNS +winch/GRSDM/WNX +Winchell/M/WNXL +wincher/M/WNX +winchester/M/WNXST +Winchester/MS/WNXST +wind/USRZG/WNT +windbag/SM/WNTBK +windblown//WNTBLN +windbreak/MZSR/WNTBRK +windburn/GSMD/WNTBN +winded//WNTT +winder/UM/WNT +windfall/SM/WNTFL +windflower/MS/WNTFLW +Windham/M/WNTHM +Windhoek/M/WNTHK +windily//WNTL +windiness/SM/WNTNS +winding/MS/WNTN +windjammer/SM/WNTKM +windlass/GMSD/WNTLS +windless/YP/WNTLS +windmill/GDMS/WNTML +window/DMGS/WNT +windowless//WNTLS +windowpane/SM/WNTPN +Windows//WNTS +windowsill/SM/WNTSL +windpipe/SM/WNTPP +windproof//WNTPRF +windrow/GDMS/WNTR +wind's//WNTS +winds/A/WNTS +windscreen/MS/WNTSKRN +windshield/SM/WNTXLT +windsock/MS/WNTSK +Windsor/MS/WNTS +windstorm/MS/WNTSTM +windsurf/GZJSRD/WNTSF +windswept//WNTSWPT +windup/MS/WNTP +Windward/M/WNTWT +windward/SY/WNTWT +Windy/M/WNT +windy/TPR/WNT +wine/MS/WN +wineglass/SM/WNKLS +winegrower/SM/WNKRW +Winehead/M/WNHT +winemake//WNMK +winemaster//WNMST +winery/MS/WNR +Winesap/M/WNSP +wineskin/M/WNSKN +Winfield/M/WNFLT +Winfred/M/WNFRT +Winfrey/M/WNFR +wing/GZRDM/WN +wingback/M/WNBK +wingding/MS/WNTN +wingeing//WNN +winger/M/WN +wingless//WNLS +winglike//WNLK +wingman//WNMN +wingmen//WNMN +wingspan/SM/WNSPN +wingspread/MS/WNSPRT +wingtip/S/WNTP +Wini/M/WN +Winifield/M/WNFLT +Winifred/M/WNFRT +wink/GZRDS/WNK +winker/M/WNK +winking/U/WNKN +Winkle/M/WNKL +winkle/SDGM/WNKL +winless//WNLS +Winn/M/WN +Winna/M/WN +winnable//WNBL +Winnah/M/WN +Winne/M/WN +Winnebago/M/WNBK +winner/MS/WN +Winnetka/M/WNTK +Winni/M/WN +Winnie/M/WN +Winnifred/M/WNFRT +winning/SY/WNN +Winnipeg/M/WNPK +winnow/SZGRD/WN +Winny/M/WN +wino/MS/WN +Winograd/M/WNKRT +Winona/M/WNN +Winonah/M/WNN +Winooski/M/WNSK +Winsborough/M/WNSBR +Winsett/M/WNST +Winslow/M/WNSL +winsome/PRTY/WNSM +winsomeness/SM/WNSMNS +Winston/M/WNSTN +winter/SGRDYM/WNT +winterer/M/WNTR +wintergreen/SM/WNTKRN +winterize/GSD/WNTRS +Winters//WNTS +wintertime/MS/WNTTM +Winthrop/M/WN@RP +wintriness/M/WNTRNS +wintry/TPR/WNTR +winy/RT/WN +wipe/DRSZG/WP +wiper/M/WP +wire/UDA/WR +wirehair/MS/WRH +wireless/MSDG/WRLS +wireman/M/WRMN +wiremen//WRMN +wirer/M/WR +wire's//WRS +wires/A/WRS +wiretap/MS/WRTP +wiretapped//WRTPT +wiretapper/SM/WRTP +wiretapping//WRTPN +wiriness/S/WRNS +wiring/SM/WRN +wiry/RTP/WR +Wis/M/WS +Wisc//WSK +Wisconsin/M/WSKNSN +Wisconsinite/SM/WSKNSNT +wisdom/UM/WSTM +wisdoms//WSTMS +Wise/M/WS +wise/URTY/WS +wiseacre/MS/WSKR +wisecrack/GMRDS/WSKRK +wised//WST +wisely/TR/WSL +wiseness//WSNS +wisenheimer/M/WSNHM +Wisenheimer/M/WSNHM +wises//WSS +wish/GZSRD/WX +wishbone/MS/WXBN +wishful/PY/WXFL +wishfulness/M/WXFLNS +wishy//WX +wising//WSN +wisp/MDGS/WSP +wispy/RT/WSP +wist/DGS/WST +wisteria/SM/WSTR +wistful/PY/WSTFL +wistfulness/MS/WSTFLNS +Wit/M/WT +wit/PSM/WT +witch/SDMG/WX +witchcraft/SM/WXKRFT +witchdoctor/S/WXTKT +witchery/MS/WXR +with/GSRDZ/W@ +withal//W@L +withdraw/RGS/W@TR +withdrawal/MS/W@TRWL +withdrawer/M/W@TRW +withdrawn/P/W@TRN +withdrawnness/M/W@TRNS +withdrew//W@TR +withe/M/W@ +wither/GDJ/W@ +withering/Y/W@RN +Witherspoon/M/W@SPN +withheld//W@HLT +withhold/SJGZR/W@HLT +withholder/M/W@HLT +within/S/W@N +without/S/W@T +withs//W@S +withstand/SG/W@STNT +withstood//W@STT +witless/PY/WTLS +witlessness/MS/WTLSNS +witness/DSMG/WTNS +witnessed/U/WTNST +Witt/M/WT +witted//WTT +witter/G/WT +Wittgenstein/M/WTKNSTN +witticism/MS/WTSSM +Wittie/M/WT +wittily//WTL +wittiness/SM/WTNS +witting/UY/WTN +wittings//WTNS +Witty/M/WT +witty/RTP/WT +Witwatersrand/M/WTWTSRNT +wive/GDS/WF +wives/M/WFS +wizard/MYS/WST +wizardry/MS/WSTR +wizen/D/WSN +wiz's//WSS +wk/Y/K +Wm/M/M +WNW//N +woad/MS/WT +wobble/GSRD/WBL +wobbler/M/WBL +wobbliness/S/WBLNS +wobbly/PRST/WBL +Wodehouse/M/WTHS +woe/PSM/W +woebegone/P/WBKN +woeful/PY/WFL +woefuller//WFL +woefullest//WFLST +woefulness/SM/WFLNS +wok/SMN/WK +woke//WK +Wolcott/M/WLKT +wold/MS/WLT +Wolf/M/WLF +wolf/RDMGS/WLF +Wolfe/M/WLF +wolfer/M/WLF +Wolff/M/WLF +Wolfgang/M/WLFKNK +wolfhound/MS/WLFHNT +Wolfie/M/WLF +wolfish/YP/WLFX +wolfishness/M/WLFXNS +wolfram/MS/WLFRM +Wolfy/M/WLF +Wollongong/M/WLNKNK +Wollstonecraft/M/WLSTNKRFT +Wolsey/M/WLS +Wolverhampton/M/WLFHMPTN +wolverine/SM/WLFRN +Wolverton/M/WLFTN +wolves/M/WLFS +woman/GSMYD/WMN +womanhood/MS/WMNHT +womanish//WMNX +womanize/RSDZG/WMNS +womanized/U/WMNST +womanizer/M/WMNS +womanizes/U/WMNSS +womankind/M/WMNKNT +womanlike//WMNLK +womanliness/SM/WMNLNS +womanly/PRT/WMNL +womb/SDM/WM +wombat/MS/WMBT +women/MS/WMN +womenfolk/MS/WMNFLK +won/SG/WN +wonder/GLRDMS/WNT +wonderer/M/WNTR +wonderful/PY/WNTFL +wonderfulness/SM/WNTFLNS +wondering/Y/WNTRN +wonderland/SM/WNTLNT +wonderment/SM/WNTMNT +wondrous/YP/WNTRS +wondrousness/M/WNTRSNS +Wong/M/WNK +wonk/S/WNK +wonky/RT/WNK +wonned//WNT +wonning//WNN +won't//WNT +wont/SGMD/WNT +wonted/PUY/WNTT +wontedness/MU/WNTTNS +woo/DRZGS/W +Wood/SM/WT +wood/SMNDG/WT +Woodard/M/WTT +Woodberry/M/WTBR +woodbine/SM/WTBN +woodblock/S/WTBLK +Woodbury/M/WTBR +woodcarver/S/WTKF +woodcarving/MS/WTKFN +woodchopper/SM/WTXP +woodchuck/MS/WTXK +woodcock/MS/WTKK +woodcraft/MS/WTKRFT +woodcut/SM/WTKT +woodcutter/MS/WTKT +woodcutting/MS/WTKTN +wooden/TPRY/WTN +woodenness/SM/WTNS +woodgrain/G/WTKRN +woodhen//WTHN +Woodhull/M/WTHL +Woodie/M/WT +woodiness/MS/WTNS +woodland/SRM/WTLNT +Woodlawn/M/WTLN +woodlice//WTLS +woodlot/S/WTLT +woodlouse/M/WTLS +woodman/M/WTMN +Woodman/M/WTMN +woodmen//WTMN +woodpecker/SM/WTPK +woodpile/SM/WTPL +Woodrow/M/WTR +woodruff/M/WTRF +woods/R/WTS +woodshed/SM/WTXT +woodshedded//WTXTT +woodshedding//WTXTN +woodside//WTST +woodsman/M/WTSMN +woodsmen//WTSMN +woodsmoke//WTSMK +Woodstock/M/WTSTK +woodsy/TRP/WTS +Woodward/MS/WTWT +woodwind/S/WTWNT +woodwork/SMRGZJ/WTWK +woodworker/M/WTWK +woodworking/M/WTWKN +woodworm/M/WTWM +Woody/M/WT +woody/TPSR/WT +woodyard//WTYT +woof/SRDMGZ/WF +woofer/M/WF +wool/SMYNDX/WL +Woolf/M/WLF +woolgather/RGJ/WLK@ +woolgatherer/M/WLK@R +woolgathering/M/WLK@RN +woolliness/MS/WLNS +woolly/RSPT/WL +Woolongong/M/WLNKNK +Woolworth/M/WLW@ +Woonsocket/M/WNSKT +Wooster/M/WST +Wooten/M/WTN +woozily//WSL +wooziness/MS/WSNS +woozy/RTP/WS +wop/MS/WP +Worcester/SM/WSST +Worcestershire/M/WSSTXR +word/AGSJD/WT +wordage/SM/WTK +wordbook/MS/WTBK +Worden/M/WTN +wordily//WTL +wordiness/SM/WTNS +wording/AM/WTN +wordless/Y/WTLS +wordplay/SM/WTPL +word's//WTS +Wordsworth/M/WTSW@ +wordy/TPR/WT +wore//WR +work/GZJSRDMB/WK +workability/U/WKBLT +workability's//WKBLTS +workable/U/WKBL +workableness/M/WKBLNS +workably//WKBL +workaday//WKT +workaholic/S/WKHLK +workaround/SM/WKRNT +workbench/MS/WKBNX +workbook/SM/WKBK +workday/SM/WKT +worked/A/WKT +worker/M/WK +workfare/S/WKFR +workforce/S/WKFS +workhorse/MS/WKHS +workhouse/SM/WKHS +working/M/WKN +workingman/M/WKNMN +workingmen//WKNMN +workingwoman/M/WKNWMN +workingwomen//WKNWMN +workload/SM/WKLT +Workman/M/WKMN +workman/MY/WKMN +workmanlike//WKMNLK +workmanship/MS/WKMNXP +workmate/S/WKMT +workmen/M/WKMN +workout/SM/WKT +workpiece/SM/WKPS +workplace/SM/WKPLS +workroom/MS/WKRM +works/A/WKS +worksheet/S/WKXT +workshop/MS/WKXP +workspace/S/WKSPS +workstation/MS/WKSTXN +worktable/SM/WKTBL +worktop/S/WKTP +workup/S/WKP +workweek/SM/WKWK +world/ZSYM/WLT +worldlier//WLTL +worldliest//WLTLST +worldliness/USM/WLTLNS +worldly/UP/WLTL +worldwide//WLTWT +worm/SGMRD/WM +wormer/M/WM +wormhole/SM/WMHL +Worms/M/WMS +wormwood/SM/WMWT +wormy/RT/WM +worn/U/WN +worried/Y/WRT +worrier/M/WR +worriment/MS/WRMNT +worrisome/YP/WRSM +worry/ZGSRD/WR +worrying/Y/WRYN +worrywart/SM/WRWT +worse/SR/WS +worsen/GSD/WSN +worship/ZDRGS/WXP +worshiper/M/WXP +worshipful/YP/WXPFL +worshipfulness/M/WXPFLNS +worst/SGD/WST +worsted/MS/WSTT +wort/SM/WT +worth/DG/W@ +Worth/M/W@ +worthily/U/W@L +worthiness/SM/W@NS +worthinesses/U/W@NSS +Worthington/M/W@NTN +worthless/PY/W@LS +worthlessness/SM/W@LSNS +worths//W@S +worthwhile/P/W@HL +Worthy/M/W@ +worthy/UTSRP/W@ +wost//WST +wot//WT +Wotan/M/WTN +would/S/WLT +wouldn't//WLTNT +wouldst//WLTST +would've//WLTF +wound/AU/WNT +wounded/U/WNTT +wounder//WNT +wounding//WNTN +wounds//WNTS +wound's//WNTS +wove/A/WF +woven/AU/WFN +wovens//WFNS +wow/SDG/W +Wozniak/M/WSNK +WP//P +wpm//PM +wrack/SGMD/RK +wraith/M/R@ +wraiths//R@S +Wrangell/M/RNKL +wrangle/GZDRS/RNKL +wrangler/M/RNKL +wrap/MS/RP +wraparound/S/RPRNT +wrapped/U/RPT +wrapper/MS/RP +wrapping/SM/RPN +wraps/U/RPS +wrasse/SM/RS +wrath/GDM/R@ +wrathful/YP/R@FL +wraths//R@S +wreak/SDG/RK +wreath/GMDS/R@ +wreathe//R@ +wreaths//R@S +wreck/GZRDS/RK +wreckage/MS/RKK +wrecker/M/RK +wren/MS/RN +Wren/MS/RN +wrench/MDSG/RNX +wrenching/Y/RNXN +Wrennie/M/RN +wrest/SRDG/RST +wrester/M/RST +wrestle/JGZDRS/RSTL +wrestler/M/RSTL +wrestling/M/RSTLN +wretch/MDS/RX +wretched/TPYR/RXT +wretchedness/SM/RXTNS +wriggle/DRSGZ/RKL +wriggler/M/RKL +wriggly/RT/RKL +Wright/M/RT +wright/MS/RT +Wrigley/M/RKL +wring/GZRS/RN +wringer/M/RN +wrinkle/GMDS/RNKL +wrinkled/U/RNKLT +wrinkly/RST/RNKL +wrist/MS/RST +wristband/SM/RSTBNT +wristwatch/MS/RSTWX +writ/MRSBJGZ/RT +writable/U/RTBL +write/ASBRJG/RT +writer/MA/RT +writeup//RTP +writhe/SDG/R@ +writing/M/RTN +written/UA/RTN +Wroclaw//RKL +wrong/PSGTYRD/RNK +wrongdoer/MS/RNKT +wrongdoing/MS/RNKTN +wronger/M/RNK +wrongful/PY/RNKFL +wrongfulness/MS/RNKFLNS +wrongheaded/PY/RNKTT +wrongheadedness/MS/RNKTTNS +wrongness/MS/RNKNS +Wronskian/M/RNSKN +wrote/A/RT +wroth//R@ +wrought/I/RT +wrung//RNK +wry/DSGY/R +wryer//RY +wryest//RYST +wryness/SM/RNS +W's//S +WSW//S +wt//T +Wu/M/W +Wuhan/M/WHN +Wurlitzer/M/WLTS +wurst/SM/WST +wuss/S/WS +wussy/TRS/WS +WV//F +WW +WWI//W +WWII//W +WWW +WY +Wyatan/M/YTN +Wyatt/M/YT +Wycherley/M/XL +Wycliffe/M/KLF +Wye/MH/Y +Wyeth/M/Y@ +Wylie/M/L +Wylma/M/LM +Wyman/M/MN +Wyn/M/N +Wyndham/M/NTHM +Wynn/M/N +Wynne/M/N +Wynnie/M/N +Wynny/M/N +Wyo/M/Y +Wyoming/M/YMN +Wyomingite/SM/YMNT +WYSIWYG//SK +x//S +X//S +Xanadu//SNT +Xanthippe/M/SN@P +Xanthus/M/SN@S +Xavier/M/SF +Xaviera/M/SFR +Xe/M/S +Xebec/M/SBK +XEmacs/M/SMKS +Xena/M/SN +Xenakis/M/SNKS +Xenia/M/SN +Xenix/M/SNKS +xenon/SM/SNN +xenophobe/MS/SNFB +xenophobia/SM/SNFB +xenophobic//SNFBK +Xenophon/M/SNFN +Xenos//SNS +xerographic//SRKRFK +xerography/MS/SRKRF +xerox/GSD/SRKS +Xerox/MGSD/SRKS +Xerxes/M/SKSS +Xever/M/SF +Xhosa/M/SHS +xi/M/S +Xi'an//SN +Xian/S/SN +Xiaoping/M/SPN +xii//S +xiii//S +Ximenes/M/SMNS +Ximenez/M/SMNS +Xingu/M/SN +xis//SS +xiv//SF +xix//SKS +XL//SL +Xmas/SM/SMS +XML//SML +Xochipilli/M/SXPL +XOR//S +X's//SS +XS//SS +xterm/M/STM +Xuzhou/M/SSH +xv//SF +xvi//SF +xvii//SF +xviii//SF +xx//SKS +XXL//SKSL +xylem/SM/SLM +xylene/M/SLN +Xylia/M/SL +Xylina/M/SLN +xylophone/MS/SLFN +xylophonist/S/SLFNST +Xymenes/M/SMNS +Y +y/F +ya//Y +yacc/M/YK +Yacc/M/YK +yacht/ZGJSDM/YXT +yachting/M/YXTN +yachtsman//YXTSMN +yachtsmen//YXTSMN +yachtswoman/M/YXTSWMN +yachtswomen//YXTSWMN +yack's//YKS +Yagi/M/YK +yahoo/MS/YH +Yahweh/M/YW +yak/SM/YK +Yakima/M/YKM +yakked//YKT +yakking//YKN +Yakut/M/YKT +Yakutsk/M/YKTSK +Yale/M/YL +Yalies/M/YLS +y'all//L +Yalonda/M/YLNT +Yalow/M/YL +Yalta/M/YLT +Yalu/M/YL +yam/SM/YM +Yamaha/M/YMH +yammer/RDZGS/YM +Yamoussoukro//YMSKR +Yanaton/M/YNTN +Yance/M/YNS +Yancey/M/YNS +Yancy/M/YNS +Yang/M/YNK +yang/S/YNK +Yangon//YNKN +Yangtze/M/YNKTS +yank/GDS/YNK +Yank/MS/YNK +Yankee/SM/YNK +Yaounde/M/YNT +yap/S/YP +yapped//YPT +yapping//YPN +Yaqui/M/YK +Yard/M/YT +yard/SMDG/YT +yardage/SM/YTK +yardarm/SM/YTM +Yardley/M/YTL +yardman/M/YTMN +yardmaster/S/YTMST +yardmen//YTMN +yardstick/SM/YTSTK +yarmulke/SM/YMLK +yarn/SGDM/YN +Yaroslavl/M/YRSLFL +yarrow/MS/YR +Yasmeen/M/YSMN +Yasmin/M/YSMN +Yates//YTS +yaw/DSG/Y +yawl/SGMD/YL +yawn/GZSDR/YN +yawner/M/YN +yawning/Y/YNN +Yb/M/B +yd//T +ye/T/Y +yea/S/Y +Yeager/M/YK +yeah//Y +yeahs//YS +year/YMS/Y +yearbook/SM/YBK +yearling/M/YLN +yearlong//YLNK +yearly/S/YL +yearn/JSGRD/YN +yearner/M/YN +yearning/MY/YNN +yeast/SGDM/YST +yeastiness/M/YSTNS +yeasty/PTR/YST +Yeats/M/YTS +yecch//YX +yegg/MS/YK +Yehudi/M/YHT +Yehudit/M/YHTT +Yekaterinburg/M/YKTRNBK +Yelena/M/YLN +yell/GSDR/YL +yellow/TGPSRDM/YL +yellowhammers//YLHMS +yellowish//YLWX +Yellowknife/M/YLKNF +yellowness/MS/YLNS +Yellowstone/M/YLSTN +yellowy//YL +yelp/GSDR/YLP +yelper/M/YLP +Yeltsin//YLTSN +Yemen/M/YMN +Yemeni/S/YMN +Yemenite/SM/YMNT +yen/SM/YN +Yenisei/M/YNS +yenned//YNT +yenning//YNN +Yentl/M/YNTL +yeoman/YM/YMN +yeomanry/MS/YMNR +yeomen//YMN +yep/S/YP +Yerevan/M/YRFN +Yerkes/M/YKS +yes/S/YS +Yesenia/M/YSN +yeshiva/SM/YXF +yessed//YST +yessing//YSN +yesterday/MS/YSTT +yesteryear/SM/YSTRY +yet//YT +yeti/SM/YT +Yetta/M/YT +Yettie/M/YT +Yetty/M/YT +Yevette/M/YFT +Yevtushenko/M/YFTXNK +yew/SM/Y +Yggdrasil/M/KTRSL +Yiddish/M/YTX +yield/JGRDS/YLT +yielded/U/YLTT +yielding/U/YLTN +yikes//YKS +yin/S/YN +yip/S/YP +yipe/S/YP +yipped//YPT +yippee/S/YP +yipping//YPN +YMCA//MK +YMHA//MH +Ymir/M/M +YMMV//MF +Ynes/M/NS +Ynez/M/NS +yo//Y +Yoda/M/YT +yodel/SZRDG/YTL +yodeler/M/YTL +Yoder/M/YT +yoga/MS/YK +yoghurt's//YKTS +yogi/MS/YK +yogurt/SM/YKT +yoke/DSMG/YK +yoked/U/YKT +yokel/SM/YKL +yokes/U/YKS +yoking/U/YKN +Yoknapatawpha/M/YKNPTF +Yoko/M/YK +Yokohama/M/YKHM +Yolanda/M/YLNT +Yolande/M/YLNT +Yolane/M/YLN +Yolanthe/M/YLN@ +yolk/DMS/YLK +yon//YN +yonder//YNT +Yong/M/YNK +Yonkers/M/YNKS +yore/MS/YR +Yorgo/MS/YK +Yorick/M/YRK +York/ZRMS/YK +Yorke/M/YK +Yorker/M/YK +yorker/SM/YK +Yorkshire/MS/YKXR +Yorktown/M/YKTN +Yoruba/M/YRB +Yosemite/M/YSMT +Yoshi/M/YX +Yoshiko/M/YXK +Yost/M/YST +you/SH/Y +you'd//YT +you'll//YL +Young/M/YNK +young/TRYP/YNK +youngish//YNKX +youngster/MS/YNKST +Youngstown/M/YNKSTN +your/MS/Y +you're//YR +yourself//YSLF +yourselves//YSLFS +youth/SM/Y@ +youthful/YP/Y@FL +youthfulness/SM/Y@FLNS +youths//Y@S +you've//YF +Yovonnda/M/YFNT +yow//Y +yowl/GSD/YL +Ypres/M/PRS +Ypsilanti/M/PSLNT +yr//R +yrs//RS +Y's//S +Ysabel/M/SBL +YT//T +ytterbium/MS/TBM +yttrium/SM/TRM +yuan/M/YN +Yuba/M/YB +Yucatan//YKTN +yucca/MS/YK +yuck/GSD/YK +yucky/RT/YK +Yugo/M/YK +Yugoslav/M/YKSLF +Yugoslavia/M/YKSLF +Yugoslavian/S/YKSLFN +Yuh/M/Y +yuk/S/YK +Yuki/M/YK +yukked//YKT +yukking//YKN +Yukon/M/YKN +Yul/M/YL +yule/MS/YL +Yule/MS/YL +yuletide/MS/YLTT +Yuletide/S/YLTT +Yulma/M/YLM +yum//YM +Yuma/M/YM +yummy/TRS/YM +Yunnan/M/YNN +yup/S/YP +yuppie/SM/YP +Yuri/M/YR +Yurik/M/YRK +yurt/SM/YT +Yves/M/FS +Yvette/M/FT +Yvon/M/FN +Yvonne/M/FN +Yvor/M/F +YWCA//K +YWHA//H +z/TGJ/S +Z/X/S +Zabrina/M/SBRN +Zaccaria/M/SKR +Zach/M/SX +Zacharia/SM/SXR +Zachariah/M/SXR +Zacharie/M/SXR +Zachary/M/SXR +Zacherie/M/SXR +Zachery/M/SXR +Zack/M/SK +Zackariah/M/SKR +zag/S/SK +zagging//SKN +Zagreb/M/SKRB +Zahara/M/SHR +Zaire/M/SR +Zairian/S/SRN +Zak/M/SK +Zambezi/M/SMBS +Zambia/M/SMB +Zambian/S/SMBN +Zamboni//SMBN +Zamenhof/M/SMNHF +Zamora/M/SMR +Zan/M/SN +Zandra/M/SNTR +Zane/M/SN +Zaneta/M/SNT +zaniness/MS/SNNS +Zanuck/M/SNK +zany/PDSRTG/SN +Zanzibar/M/SNSB +zap/S/SP +Zapata/M/SPT +Zaporozhye/M/SPRSHY +Zappa/M/SP +zapped//SPT +zapper/S/SP +zapping//SPN +Zara/M/SR +Zarah/M/SR +Zared/M/SRT +Zaria/M/SR +Zarla/M/SL +Zea/M/S +zeal/MS/SL +Zealand/M/SLNT +zealot/MS/SLT +zealotry/MS/SLTR +zealous/YP/SLS +zealousness/SM/SLSNS +Zeb/M/SB +Zebadiah/M/SBT +Zebedee/M/SBT +zebra/MS/SBR +zebu/SM/SB +Zebulen/M/SBLN +Zebulon/M/SBLN +Zechariah/M/SXR +Zed/M/ST +zed/SM/ST +Zedekiah/M/STK +Zedong/M/STNK +Zeffirelli/M/SFRL +Zeiss/M/SS +zeitgeist/S/STKST +Zeke/M/SK +Zelda/M/SLT +Zelig/M/SLK +Zellerbach/M/SLBX +Zelma/M/SLM +Zen/M/SN +Zena/M/SN +Zenger/M/SNK +Zenia/M/SN +zenith/M/SN@ +zeniths//SN@S +Zennist/M/SNST +Zeno/M/SN +Zephaniah/M/SFN +zephyr/MS/SFR +Zephyrus/M/SFRS +zeppelin/SM/SPLN +Zeppelin's//SPLNS +Zerk/M/SK +zero/SDHMG/SR +zeroed/M/SRT +zeroing/M/SRN +zest/MDSG/SST +zestful/YP/SSTFL +zestfulness/MS/SSTFLNS +zesty/RT/SST +zeta/SM/ST +zeugma/M/SKM +Zeus/M/SS +Zhdanov/M/SHTNF +Zhengzhou//SHNKSH +Zhivago/M/SHFK +Zhukov/M/SHKF +Zia/M/S +Zibo/M/SB +Ziegfeld/MS/SKFLT +Ziegler/M/SKL +zig//SK +zigged//SKT +zigging//SKN +Ziggy/M/SK +zigzag/MS/SKSK +zigzagged//SKSKT +zigzagger//SKSK +zigzagging//SKSKN +zilch/S/SLX +zillion/MS/SLN +Zilvia/M/SLF +Zimbabwe/M/SMBBW +Zimbabwean/S/SMBBWN +Zimmerman/M/SMMN +zinc/MS/SNK +zincked//SNKT +zincking//SNKN +zing/GZDRM/SN +zingy/RT/SN +zinnia/SM/SN +Zion/SM/SN +Zionism/MS/SNSM +Zionist/MS/SNST +zip/MS/SP +zipped/U/SPT +zipper/GSDM/SP +zipping/U/SPN +zippy/RT/SP +zips/U/SPS +zircon/SM/SKN +zirconium/MS/SKNM +zit/S/ST +Zita/M/ST +Zitella/M/STL +zither/SM/S@ +zloty/SM/SLT +Zn/M/SN +zodiac/SM/STK +zodiacal//STKL +Zoe/M/S +Zola/M/SL +Zollie/M/SL +Zolly/M/SL +Zomba/M/SMB +zombie/SM/SMB +zombi's//SMBS +zonal/Y/SNL +Zonda/M/SNT +Zondra/M/SNTR +zone/MYDSRJG/SN +zoned/A/SNT +zones/A/SNS +zoning/A/SNN +zonked//SNKT +Zonnya/M/SNY +zoo/SM/S +zookeepers//SKPS +zoological/Y/SLKKL +zoologist/SM/SLKST +zoology/MS/SLK +zoom/DGS/SM +zoophyte/SM/SFT +zoophytic//SFTK +Zora/M/SR +Zorah/M/SR +Zorana/M/SRN +Zorina/M/SRN +Zorine/M/SRN +Zorn/M/SN +Zoroaster/M/SRST +Zoroastrian/S/SRSTRN +Zoroastrianism/MS/SRSTRNSM +Zorro/M/SR +Zosma/M/SSM +zounds/S/SNTS +Zr/M/SR +Zs//SS +Zsazsa/M/SSSS +Zsigmondy/M/SSKMNT +Zubenelgenubi/M/SBNLKNB +Zubeneschamali/M/SBNSXML +zucchini/SM/SXN +Zukor/M/SK +Zulema/M/SLM +Zulu/MS/SL +Zululand/M/SLLNT +Zuni/S/SN +Zürich/M/SRX +Zuzana/M/SSN +zwieback/MS/SWBK +Zwingli/M/SWNL +Zworykin/M/SWRKN +zydeco/S/STK +zygote/SM/SKT +zygotic//SKTK +zymurgy/S/SMK diff --git a/SDL/VERAG_PROG_ALLGEMEIN/frmKdVermerkAdd.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/frmKdVermerkAdd.Designer.vb new file mode 100644 index 0000000..31d181d --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/frmKdVermerkAdd.Designer.vb @@ -0,0 +1,141 @@ + _ +Partial Class frmKdVermerkAdd + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKdVermerkAdd)) + Me.btnHinzufugen = New System.Windows.Forms.Button() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.pnl = New System.Windows.Forms.Panel() + Me.lblSB = New System.Windows.Forms.Label() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.pnl.SuspendLayout() + Me.SuspendLayout() + ' + 'btnHinzufugen + ' + Me.btnHinzufugen.Cursor = System.Windows.Forms.Cursors.Default + Me.btnHinzufugen.DialogResult = System.Windows.Forms.DialogResult.OK + Me.btnHinzufugen.Location = New System.Drawing.Point(282, 96) + Me.btnHinzufugen.Name = "btnHinzufugen" + Me.btnHinzufugen.Size = New System.Drawing.Size(75, 23) + Me.btnHinzufugen.TabIndex = 30 + Me.btnHinzufugen.Text = "Hinzufügen" + Me.btnHinzufugen.UseVisualStyleBackColor = True + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(9, 17) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(81, 13) + Me.Label7.TabIndex = 28 + Me.Label7.Text = "Neuer Vermerk:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(210, 17) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(23, 13) + Me.Label1.TabIndex = 32 + Me.Label1.Text = "Art:" + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.Controls.Add(Me.lblSB) + Me.pnl.Controls.Add(Me.Label7) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.MyTextBox1) + Me.pnl.Controls.Add(Me.MyComboBox1) + Me.pnl.Controls.Add(Me.btnHinzufugen) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(372, 124) + Me.pnl.TabIndex = 33 + ' + 'lblSB + ' + Me.lblSB.AutoSize = True + Me.lblSB.Location = New System.Drawing.Point(12, 102) + Me.lblSB.Name = "lblSB" + Me.lblSB.Size = New System.Drawing.Size(10, 13) + Me.lblSB.TabIndex = 33 + Me.lblSB.Text = "-" + ' + 'MyTextBox1 + ' + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._value = Nothing + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(12, 35) + Me.MyTextBox1.MaxLength = 5000 + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Multiline = True + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(345, 61) + Me.MyTextBox1.TabIndex = 29 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(239, 14) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(118, 21) + Me.MyComboBox1.TabIndex = 31 + ' + 'frmKdVermerkAdd + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(372, 124) + Me.Controls.Add(Me.pnl) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmKdVermerkAdd" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Vermerk" + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btnHinzufugen As System.Windows.Forms.Button + Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents lblSB As System.Windows.Forms.Label +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/frmKdVermerkAdd.resx b/SDL/VERAG_PROG_ALLGEMEIN/frmKdVermerkAdd.resx new file mode 100644 index 0000000..d584bd9 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/frmKdVermerkAdd.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/frmKdVermerkAdd.vb b/SDL/VERAG_PROG_ALLGEMEIN/frmKdVermerkAdd.vb new file mode 100644 index 0000000..49595ba --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/frmKdVermerkAdd.vb @@ -0,0 +1,34 @@ +Public Class frmKdVermerkAdd + Public KdNr As Integer + Public art As String + + Sub New(KdNr, art) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.KdNr = KdNr + Me.art = art + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Private Sub btnHinzufugen_Click(sender As Object, e As EventArgs) Handles btnHinzufugen.Click + If MyTextBox1.Text = "" Then Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub + cKundenVermerke.INSERT(KdNr, MyComboBox1._value, MyTextBox1.Text) + End Sub + + Private Sub frmKdVermerkAdd_Load(sender As Object, e As EventArgs) Handles Me.Load + lblSB.Text = cAllgemein.USRKURZNAME + + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLL", "ZOLL")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLLTARIF", "ZOLLTARIF")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERRECHNUNG", "VERRECHNUNG")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("BUCHHALTUNG", "BUCHHALTUNG")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FISKAL", "FISKAL")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("QUICKSTOP", "QUICKSTOP")) + MyComboBox1.SelectedIndex = 0 + If art <> "" Then + MyComboBox1.changeItem(art) + MyComboBox1.Enabled = False + End If + End Sub +End Class \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/frmScan.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/frmScan.Designer.vb new file mode 100644 index 0000000..81a51c3 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/frmScan.Designer.vb @@ -0,0 +1,538 @@ + _ +Partial Class frmScan + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmScan)) + Me.dsViewer = New Dynamsoft.Forms.DSViewer() + Me.btn = New System.Windows.Forms.Button() + Me.btnScan = New System.Windows.Forms.Button() + Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() + Me.chkMultiPage = New System.Windows.Forms.CheckBox() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.lblDateiname = New System.Windows.Forms.Label() + Me.rdbtnJPG = New System.Windows.Forms.RadioButton() + Me.rdbtnBMP = New System.Windows.Forms.RadioButton() + Me.rdbtnPNG = New System.Windows.Forms.RadioButton() + Me.rdbtnPDF = New System.Windows.Forms.RadioButton() + Me.rdbtnTIFF = New System.Windows.Forms.RadioButton() + Me.cboSource = New System.Windows.Forms.ComboBox() + Me.rdbtnRGB = New System.Windows.Forms.RadioButton() + Me.rdbtnGray = New System.Windows.Forms.RadioButton() + Me.rdbtnBW = New System.Windows.Forms.RadioButton() + Me.grpFarbe = New System.Windows.Forms.GroupBox() + Me.grpTyp = New System.Windows.Forms.GroupBox() + Me.tbxSaveFileName = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboResolution = New System.Windows.Forms.ComboBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.chkShowUI = New System.Windows.Forms.CheckBox() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.cbxEinzug = New System.Windows.Forms.CheckBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.tbxCurrentImageIndex = New System.Windows.Forms.Label() + Me.tbxTotalImageNum = New System.Windows.Forms.Label() + Me.pnl = New System.Windows.Forms.Panel() + Me.UsrcntlPDFScan1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.grpFarbe.SuspendLayout() + Me.grpTyp.SuspendLayout() + Me.pnl.SuspendLayout() + Me.SuspendLayout() + ' + 'dsViewer + ' + Me.dsViewer.BorderStyle = Dynamsoft.Forms.Enums.EnumWndBorderStyle.SingleFlat + Me.dsViewer.Location = New System.Drawing.Point(8, 11) + Me.dsViewer.Name = "dsViewer" + Me.dsViewer.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.dsViewer.SelectionRectAspectRatio = 0R + Me.dsViewer.Size = New System.Drawing.Size(463, 626) + Me.dsViewer.TabIndex = 0 + ' + 'btn + ' + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn.Location = New System.Drawing.Point(477, 589) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(254, 48) + Me.btn.TabIndex = 1 + Me.btn.Text = "Speichern" + Me.btn.UseVisualStyleBackColor = True + ' + 'btnScan + ' + Me.btnScan.Enabled = False + Me.btnScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnScan.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnScan.Location = New System.Drawing.Point(477, 132) + Me.btnScan.Name = "btnScan" + Me.btnScan.Size = New System.Drawing.Size(254, 59) + Me.btnScan.TabIndex = 2 + Me.btnScan.Text = "SCAN" + Me.btnScan.UseVisualStyleBackColor = True + ' + 'chkMultiPage + ' + Me.chkMultiPage.AutoSize = True + Me.chkMultiPage.Checked = True + Me.chkMultiPage.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkMultiPage.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkMultiPage.Location = New System.Drawing.Point(1, 40) + Me.chkMultiPage.Name = "chkMultiPage" + Me.chkMultiPage.Size = New System.Drawing.Size(94, 17) + Me.chkMultiPage.TabIndex = 3 + Me.chkMultiPage.Text = "MultiPagePDF" + Me.chkMultiPage.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.picboxRotateLeft_Enter + Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button2.FlatAppearance.BorderSize = 0 + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button2.Location = New System.Drawing.Point(8, 643) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(50, 30) + Me.Button2.TabIndex = 4 + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.picboxRotateRight_Enter + Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button3.FlatAppearance.BorderSize = 0 + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button3.Location = New System.Drawing.Point(57, 643) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(50, 30) + Me.Button3.TabIndex = 5 + Me.Button3.UseVisualStyleBackColor = True + ' + 'lblDateiname + ' + Me.lblDateiname.AutoSize = True + Me.lblDateiname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblDateiname.Location = New System.Drawing.Point(473, 566) + Me.lblDateiname.Name = "lblDateiname" + Me.lblDateiname.Size = New System.Drawing.Size(61, 13) + Me.lblDateiname.TabIndex = 7 + Me.lblDateiname.Text = "Dateiname:" + ' + 'rdbtnJPG + ' + Me.rdbtnJPG.AutoSize = True + Me.rdbtnJPG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rdbtnJPG.Location = New System.Drawing.Point(49, 17) + Me.rdbtnJPG.Name = "rdbtnJPG" + Me.rdbtnJPG.Size = New System.Drawing.Size(45, 17) + Me.rdbtnJPG.TabIndex = 8 + Me.rdbtnJPG.Text = "JPG" + Me.rdbtnJPG.UseVisualStyleBackColor = True + ' + 'rdbtnBMP + ' + Me.rdbtnBMP.AutoSize = True + Me.rdbtnBMP.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rdbtnBMP.Location = New System.Drawing.Point(96, 17) + Me.rdbtnBMP.Name = "rdbtnBMP" + Me.rdbtnBMP.Size = New System.Drawing.Size(48, 17) + Me.rdbtnBMP.TabIndex = 8 + Me.rdbtnBMP.Text = "BMP" + Me.rdbtnBMP.UseVisualStyleBackColor = True + ' + 'rdbtnPNG + ' + Me.rdbtnPNG.AutoSize = True + Me.rdbtnPNG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rdbtnPNG.Location = New System.Drawing.Point(146, 17) + Me.rdbtnPNG.Name = "rdbtnPNG" + Me.rdbtnPNG.Size = New System.Drawing.Size(48, 17) + Me.rdbtnPNG.TabIndex = 8 + Me.rdbtnPNG.Text = "PNG" + Me.rdbtnPNG.UseVisualStyleBackColor = True + ' + 'rdbtnPDF + ' + Me.rdbtnPDF.AutoSize = True + Me.rdbtnPDF.Checked = True + Me.rdbtnPDF.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rdbtnPDF.Location = New System.Drawing.Point(1, 17) + Me.rdbtnPDF.Name = "rdbtnPDF" + Me.rdbtnPDF.Size = New System.Drawing.Size(46, 17) + Me.rdbtnPDF.TabIndex = 8 + Me.rdbtnPDF.TabStop = True + Me.rdbtnPDF.Text = "PDF" + Me.rdbtnPDF.UseVisualStyleBackColor = True + ' + 'rdbtnTIFF + ' + Me.rdbtnTIFF.AutoSize = True + Me.rdbtnTIFF.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rdbtnTIFF.Location = New System.Drawing.Point(196, 17) + Me.rdbtnTIFF.Name = "rdbtnTIFF" + Me.rdbtnTIFF.Size = New System.Drawing.Size(47, 17) + Me.rdbtnTIFF.TabIndex = 8 + Me.rdbtnTIFF.Text = "TIFF" + Me.rdbtnTIFF.UseVisualStyleBackColor = True + ' + 'cboSource + ' + Me.cboSource.FormattingEnabled = True + Me.cboSource.Location = New System.Drawing.Point(477, 105) + Me.cboSource.Name = "cboSource" + Me.cboSource.Size = New System.Drawing.Size(254, 21) + Me.cboSource.TabIndex = 9 + ' + 'rdbtnRGB + ' + Me.rdbtnRGB.AutoSize = True + Me.rdbtnRGB.Checked = True + Me.rdbtnRGB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rdbtnRGB.Location = New System.Drawing.Point(2, 20) + Me.rdbtnRGB.Name = "rdbtnRGB" + Me.rdbtnRGB.Size = New System.Drawing.Size(48, 17) + Me.rdbtnRGB.TabIndex = 8 + Me.rdbtnRGB.TabStop = True + Me.rdbtnRGB.Text = "RGB" + Me.rdbtnRGB.UseVisualStyleBackColor = True + ' + 'rdbtnGray + ' + Me.rdbtnGray.AutoSize = True + Me.rdbtnGray.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rdbtnGray.Location = New System.Drawing.Point(50, 20) + Me.rdbtnGray.Name = "rdbtnGray" + Me.rdbtnGray.Size = New System.Drawing.Size(48, 17) + Me.rdbtnGray.TabIndex = 8 + Me.rdbtnGray.Text = "Grau" + Me.rdbtnGray.UseVisualStyleBackColor = True + ' + 'rdbtnBW + ' + Me.rdbtnBW.AutoSize = True + Me.rdbtnBW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rdbtnBW.Location = New System.Drawing.Point(98, 20) + Me.rdbtnBW.Name = "rdbtnBW" + Me.rdbtnBW.Size = New System.Drawing.Size(96, 17) + Me.rdbtnBW.TabIndex = 8 + Me.rdbtnBW.Text = "Schwarz/Weiß" + Me.rdbtnBW.UseVisualStyleBackColor = True + ' + 'grpFarbe + ' + Me.grpFarbe.Controls.Add(Me.rdbtnRGB) + Me.grpFarbe.Controls.Add(Me.rdbtnGray) + Me.grpFarbe.Controls.Add(Me.rdbtnBW) + Me.grpFarbe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.grpFarbe.Location = New System.Drawing.Point(477, 44) + Me.grpFarbe.Name = "grpFarbe" + Me.grpFarbe.Size = New System.Drawing.Size(254, 45) + Me.grpFarbe.TabIndex = 10 + Me.grpFarbe.TabStop = False + Me.grpFarbe.Text = "Farbe" + ' + 'grpTyp + ' + Me.grpTyp.Controls.Add(Me.rdbtnPDF) + Me.grpTyp.Controls.Add(Me.chkMultiPage) + Me.grpTyp.Controls.Add(Me.rdbtnJPG) + Me.grpTyp.Controls.Add(Me.rdbtnTIFF) + Me.grpTyp.Controls.Add(Me.rdbtnBMP) + Me.grpTyp.Controls.Add(Me.rdbtnPNG) + Me.grpTyp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.grpTyp.Location = New System.Drawing.Point(477, 493) + Me.grpTyp.Name = "grpTyp" + Me.grpTyp.Size = New System.Drawing.Size(254, 64) + Me.grpTyp.TabIndex = 11 + Me.grpTyp.TabStop = False + Me.grpTyp.Text = "Typ" + ' + 'tbxSaveFileName + ' + Me.tbxSaveFileName._DateTimeOnly = False + Me.tbxSaveFileName._numbersOnly = False + Me.tbxSaveFileName._numbersOnlyKommastellen = "" + Me.tbxSaveFileName._Prozent = False + Me.tbxSaveFileName._ShortDateNew = False + Me.tbxSaveFileName._ShortDateOnly = False + Me.tbxSaveFileName._TimeOnly = False + Me.tbxSaveFileName._value = Nothing + Me.tbxSaveFileName._Waehrung = False + Me.tbxSaveFileName._WaehrungZeichen = True + Me.tbxSaveFileName.ForeColor = System.Drawing.Color.Black + Me.tbxSaveFileName.Location = New System.Drawing.Point(536, 563) + Me.tbxSaveFileName.MaxLineLength = -1 + Me.tbxSaveFileName.MaxLines_Warning = "" + Me.tbxSaveFileName.MaxLines_Warning_Label = Nothing + Me.tbxSaveFileName.Name = "tbxSaveFileName" + Me.tbxSaveFileName.Size = New System.Drawing.Size(191, 20) + Me.tbxSaveFileName.TabIndex = 6 + ' + 'cboResolution + ' + Me.cboResolution.FormattingEnabled = True + Me.cboResolution.Items.AddRange(New Object() {"50", "100", "150", "200", "300", "400", "600", "800"}) + Me.cboResolution.Location = New System.Drawing.Point(536, 8) + Me.cboResolution.Name = "cboResolution" + Me.cboResolution.Size = New System.Drawing.Size(43, 21) + Me.cboResolution.TabIndex = 9 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(477, 11) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(57, 13) + Me.Label1.TabIndex = 7 + Me.Label1.Text = "Auflösung:" + ' + 'chkShowUI + ' + Me.chkShowUI.AutoSize = True + Me.chkShowUI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkShowUI.Location = New System.Drawing.Point(594, 10) + Me.chkShowUI.Name = "chkShowUI" + Me.chkShowUI.Size = New System.Drawing.Size(123, 17) + Me.chkShowUI.TabIndex = 3 + Me.chkShowUI.Text = "Scanmenü anzeigen" + Me.chkShowUI.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.picboxZoomIn_Enter + Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button5.FlatAppearance.BorderSize = 0 + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button5.Location = New System.Drawing.Point(139, 643) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(45, 30) + Me.Button5.TabIndex = 15 + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.picboxZoomOut_Enter + Me.Button6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button6.FlatAppearance.BorderSize = 0 + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button6.Location = New System.Drawing.Point(183, 643) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(45, 30) + Me.Button6.TabIndex = 14 + Me.Button6.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.picboxNext_Enter + Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button4.Enabled = False + Me.Button4.FlatAppearance.BorderSize = 0 + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button4.Location = New System.Drawing.Point(311, 643) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(50, 30) + Me.Button4.TabIndex = 13 + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.picboxPrevious_Enter + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button1.Enabled = False + Me.Button1.FlatAppearance.BorderSize = 0 + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button1.Location = New System.Drawing.Point(262, 643) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(50, 30) + Me.Button1.TabIndex = 12 + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(395, 654) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(31, 13) + Me.Label3.TabIndex = 18 + Me.Label3.Text = "Seite" + ' + 'cbxEinzug + ' + Me.cbxEinzug.AutoSize = True + Me.cbxEinzug.Checked = True + Me.cbxEinzug.CheckState = System.Windows.Forms.CheckState.Indeterminate + Me.cbxEinzug.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxEinzug.Location = New System.Drawing.Point(594, 29) + Me.cbxEinzug.Name = "cbxEinzug" + Me.cbxEinzug.Size = New System.Drawing.Size(143, 17) + Me.cbxEinzug.TabIndex = 3 + Me.cbxEinzug.Text = "Papiereinzug verwenden" + Me.cbxEinzug.ThreeState = True + Me.cbxEinzug.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(436, 654) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(25, 13) + Me.Label2.TabIndex = 17 + Me.Label2.Text = "von" + ' + 'tbxCurrentImageIndex + ' + Me.tbxCurrentImageIndex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbxCurrentImageIndex.Location = New System.Drawing.Point(416, 654) + Me.tbxCurrentImageIndex.Name = "tbxCurrentImageIndex" + Me.tbxCurrentImageIndex.Size = New System.Drawing.Size(28, 13) + Me.tbxCurrentImageIndex.TabIndex = 19 + Me.tbxCurrentImageIndex.Text = "1" + Me.tbxCurrentImageIndex.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'tbxTotalImageNum + ' + Me.tbxTotalImageNum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbxTotalImageNum.Location = New System.Drawing.Point(447, 654) + Me.tbxTotalImageNum.Name = "tbxTotalImageNum" + Me.tbxTotalImageNum.Size = New System.Drawing.Size(25, 13) + Me.tbxTotalImageNum.TabIndex = 20 + Me.tbxTotalImageNum.Text = "1" + Me.tbxTotalImageNum.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'pnl + ' + Me.pnl.Controls.Add(Me.UsrcntlPDFScan1) + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Controls.Add(Me.dsViewer) + Me.pnl.Controls.Add(Me.Button3) + Me.pnl.Controls.Add(Me.tbxCurrentImageIndex) + Me.pnl.Controls.Add(Me.Button2) + Me.pnl.Controls.Add(Me.Button6) + Me.pnl.Controls.Add(Me.tbxSaveFileName) + Me.pnl.Controls.Add(Me.lblDateiname) + Me.pnl.Controls.Add(Me.cbxEinzug) + Me.pnl.Controls.Add(Me.btn) + Me.pnl.Controls.Add(Me.Label3) + Me.pnl.Controls.Add(Me.btnScan) + Me.pnl.Controls.Add(Me.Button5) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.Button4) + Me.pnl.Controls.Add(Me.cboSource) + Me.pnl.Controls.Add(Me.Button1) + Me.pnl.Controls.Add(Me.cboResolution) + Me.pnl.Controls.Add(Me.grpTyp) + Me.pnl.Controls.Add(Me.grpFarbe) + Me.pnl.Controls.Add(Me.chkShowUI) + Me.pnl.Controls.Add(Me.tbxTotalImageNum) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(741, 683) + Me.pnl.TabIndex = 21 + ' + 'UsrcntlPDFScan1 + ' + Me.UsrcntlPDFScan1._ARCHIV = False + Me.UsrcntlPDFScan1._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.UsrcntlPDFScan1._DATENSERVER_ORDNER = "" + Me.UsrcntlPDFScan1._DATENSERVER_UOrdner1 = "" + Me.UsrcntlPDFScan1._DATENSERVER_UOrdner2 = "" + Me.UsrcntlPDFScan1._DATENSERVER_UOrdner3 = "" + Me.UsrcntlPDFScan1._MULTI_FILES = False + Me.UsrcntlPDFScan1._TEXT_PDF = Nothing + Me.UsrcntlPDFScan1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.UsrcntlPDFScan1.BackColor = System.Drawing.Color.White + Me.UsrcntlPDFScan1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrcntlPDFScan1.Cursor = System.Windows.Forms.Cursors.Hand + Me.UsrcntlPDFScan1.Location = New System.Drawing.Point(344, 349) + Me.UsrcntlPDFScan1.Name = "UsrcntlPDFScan1" + Me.UsrcntlPDFScan1.Size = New System.Drawing.Size(8, 8) + Me.UsrcntlPDFScan1.TabIndex = 21 + Me.UsrcntlPDFScan1.Visible = False + ' + 'frmScan + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(741, 683) + Me.Controls.Add(Me.pnl) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmScan" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Dokument scannen" + Me.grpFarbe.ResumeLayout(False) + Me.grpFarbe.PerformLayout() + Me.grpTyp.ResumeLayout(False) + Me.grpTyp.PerformLayout() + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents dsViewer As Dynamsoft.Forms.DSViewer + Friend WithEvents btn As System.Windows.Forms.Button + Friend WithEvents btnScan As System.Windows.Forms.Button + Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog + Friend WithEvents chkMultiPage As System.Windows.Forms.CheckBox + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents tbxSaveFileName As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblDateiname As System.Windows.Forms.Label + Friend WithEvents rdbtnJPG As System.Windows.Forms.RadioButton + Friend WithEvents rdbtnBMP As System.Windows.Forms.RadioButton + Friend WithEvents rdbtnPNG As System.Windows.Forms.RadioButton + Friend WithEvents rdbtnPDF As System.Windows.Forms.RadioButton + Friend WithEvents rdbtnTIFF As System.Windows.Forms.RadioButton + Friend WithEvents cboSource As System.Windows.Forms.ComboBox + Friend WithEvents rdbtnRGB As System.Windows.Forms.RadioButton + Friend WithEvents rdbtnGray As System.Windows.Forms.RadioButton + Friend WithEvents rdbtnBW As System.Windows.Forms.RadioButton + Friend WithEvents grpFarbe As System.Windows.Forms.GroupBox + Friend WithEvents grpTyp As System.Windows.Forms.GroupBox + Friend WithEvents cboResolution As System.Windows.Forms.ComboBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents chkShowUI As System.Windows.Forms.CheckBox + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents cbxEinzug As System.Windows.Forms.CheckBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents tbxCurrentImageIndex As System.Windows.Forms.Label + Friend WithEvents tbxTotalImageNum As System.Windows.Forms.Label + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents UsrcntlPDFScan1 As usrcntlPDFScan +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/frmScan.resx b/SDL/VERAG_PROG_ALLGEMEIN/frmScan.resx new file mode 100644 index 0000000..9be6baa --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/frmScan.resx @@ -0,0 +1,983 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 13, 15 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/frmScan.vb b/SDL/VERAG_PROG_ALLGEMEIN/frmScan.vb new file mode 100644 index 0000000..4d950ad --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/frmScan.vb @@ -0,0 +1,694 @@ +Imports System.Collections.Generic +Imports System.ComponentModel +Imports System.Data +Imports System.Drawing +Imports System.Text +Imports System.Windows.Forms +Imports System.Runtime.InteropServices + +Imports System.Threading +'Imports Dynamsoft.Barcode +Imports Dynamsoft.TWAIN +Imports Dynamsoft.Core +'Imports Dynamsoft.UVC +'Imports Dynamsoft.OCR +Imports Dynamsoft.PDF +Imports Dynamsoft.Core.Annotation +'Imports Dynamsoft.UVC.Common +Imports Dynamsoft.TWAIN.Interface +Imports Dynamsoft.Core.Enums +Imports System.IO + + +Public Class frmScan + Inherits Form + Implements IAcquireCallback + Implements IConvertCallback + Implements ISave + Private m_StrProductKey As String + Private m_TwainManager As TwainManager = Nothing + Private m_ImageCore As ImageCore = Nothing + Private m_PDFRasterizer As PDFRasterizer = Nothing + Private m_PDFCreator As PDFCreator = Nothing + Private Delegate Sub CrossThreadOperationControl() + + ' Public KdNr As Integer = -1 + + Public ART As String = "" + Public ORDNER As String = "" + Public ReturnValue As Object = Nothing + Public fileName As String = "" + + Public DefaultFileName = "" + 'Dim DS As New cDATENSERVER + + + Sub New(ART) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.ART = ART + init() + End Sub + + + + Public Sub OnPostAllTransfers() Implements IAcquireCallback.OnPostAllTransfers + Me.Invoke(New CrossThreadOperationControl(AddressOf CallMe)) + End Sub + + Public Sub CallMe() + dsViewer.Visible = True + checkImageCount() + ' EnableControls(picboxScan) + End Sub + + Public Sub OnPreAllTransfers() Implements IAcquireCallback.OnPreAllTransfers + End Sub + + Public Sub LoadConvertResult(result As ConvertResult) Implements IConvertCallback.LoadConvertResult + m_ImageCore.IO.LoadImage(result.Image) + m_ImageCore.ImageBuffer.SetMetaData(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer, EnumMetaDataType.enumAnnotation, result.Annotations, True) + End Sub + + Public Function GetAnnotations(iPageNumber As Integer) As Object Implements ISave.GetAnnotations + If chkMultiPage.Checked = True Then + Return m_ImageCore.ImageBuffer.GetMetaData(CShort(iPageNumber), EnumMetaDataType.enumAnnotation) + Else + Return m_ImageCore.ImageBuffer.GetMetaData(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer, EnumMetaDataType.enumAnnotation) + End If + End Function + Public Function GetImage(iPageNumber As Integer) As Bitmap Implements ISave.GetImage + If chkMultiPage.Checked = True Then + Return m_ImageCore.ImageBuffer.GetBitmap(CShort(iPageNumber)) + Else + Return m_ImageCore.ImageBuffer.GetBitmap(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer) + End If + End Function + Public Function GetPageCount() As Integer Implements ISave.GetPageCount + If chkMultiPage.Checked = True Then + Return m_ImageCore.ImageBuffer.HowManyImagesInBuffer + Else + Return 1 + End If + End Function + Public Function OnPreTransfer() As Boolean Implements IAcquireCallback.OnPreTransfer + Return True + End Function + + Public Sub OnSourceUIClose() Implements IAcquireCallback.OnSourceUIClose + End Sub + ' + Public Sub OnTransferCancelled() Implements IAcquireCallback.OnTransferCancelled + End Sub + + Public Sub OnTransferError() Implements IAcquireCallback.OnTransferError + End Sub + + Public Function OnPostTransfer(bit As Bitmap) As Boolean Implements IAcquireCallback.OnPostTransfer + m_ImageCore.IO.LoadImage(bit) + Return True + End Function + + + Public Sub New() + InitializeComponent() + init() + End Sub + + Sub init() + + Dim LICENSE_KEY_PDF = "f0068WQAAAH+gY718ZLeqQLD8lbOZ2FGn4EwqZXwHfnnHFla7+8MQS5/qOwvtYLWLNCl4FRxs5YG2tso5CsxMGiwxi1RLj1Q=" + Dim LICENSE_KEY = "f0068NQAAAMzfp6Gvu6Fz+I1fe35VMbxq4AjxirlBtKiw2m/c7+WFUo6cqKV9gdsrUF08tMFDzxyvK2qW7dkB/AMXwWP8+VE=" ' "f0068NQAAALO56JsMvaoZUvgW4W5pH3xZI04YVLRm6RjxrXBNGlXQX66fwwyD9MA7RooXB8R7IGVCGOs0LoQrz74BFUWxuTY=" '"t0068MgAAAIJug/9puT32C74ZTQ22FzetJ8QgWhH3CpvWhJ98JT07diK2qayDBNOEoyk+wYbapUbYlgyAVhm8wuu4zvTLfkw=" + ' Dim LICENSE_KEY_PDF = "t0068MgAAAIJug/9puT32C74ZTQ22FzetJ8QgWhH3CpvWhJ98JT07diK2qayDBNOEoyk+wYbapUbYlgyAVhm8wuu4zvTLfkw=" + ' Dim LICENSE_KEY = "t0068MgAAAIJug/9puT32C74ZTQ22FzetJ8QgWhH3CpvWhJ98JT07diK2qayDBNOEoyk+wYbapUbYlgyAVhm8wuu4zvTLfkw=" '"" + + 'm_StrProductKey = ConbineLicense(ReadLocalLicense(Application.StartupPath & "\Lizenzen\DynamsoftDotNetTwain.lic")) ' In Projekt SDL / Lizenzen / DynamsoftDotNetTwain.lic + m_TwainManager = New TwainManager(LICENSE_KEY) + m_PDFRasterizer = New PDFRasterizer(LICENSE_KEY) + m_PDFCreator = New PDFCreator(LICENSE_KEY_PDF) + m_ImageCore = New ImageCore() + dsViewer.Bind(m_ImageCore) + End Sub + + _ + Private Shared Function GetSystemDirectory( lpBuffer As StringBuilder, uSize As UInteger) As UInteger + End Function + + _ + Private Shared Function GetWindowsDirectory( lpBuffer As StringBuilder, uSize As UInteger) As UInteger + End Function + + Public Function GetLicenseFilePath() As String + Return Application.StartupPath & "\Lizenzen\DynamsoftDotNetTwain.lic" + + Dim sbsSystemDir As New StringBuilder(256) + Dim iLength As UInteger = 0 + iLength = GetSystemDirectory(sbsSystemDir, 256) + If iLength = 0 Then + Return Nothing + End If + Dim sbsWindowsDir As New StringBuilder(256) + iLength = GetWindowsDirectory(sbsWindowsDir, 256) + + If iLength = 0 Then + Return Nothing + End If + If sbsWindowsDir.Length > 0 Then + If IntPtr.Size = 8 Then + sbsWindowsDir.Append("\SysWOW64\DynamsoftDotNetTwain.lic") + Else + sbsWindowsDir.Append("\System32\DynamsoftDotNetTwain.lic") + + End If + End If + Return sbsWindowsDir.ToString() + End Function + + Private Function ReadLocalLicense(licensePath As String) As List(Of String) + Dim tempListLicense As List(Of String) = Nothing + Try + If File.Exists(licensePath) Then + Dim tempAllLines As String() = File.ReadAllLines(licensePath) + For Each temp As String In tempAllLines + Dim iTempIndex As Integer = temp.IndexOf("SerialNo") + If iTempIndex <> -1 Then + Dim iIndex1 As Integer = temp.IndexOf("=") + If iIndex1 <> -1 Then + If tempListLicense Is Nothing Then + tempListLicense = New List(Of String)() + End If + Dim tempLicense As String = temp.Substring((iIndex1 + 1), (temp.Length - (iIndex1 + 1))) + tempListLicense.Add(tempLicense) + End If + End If + Next + End If + Catch + End Try + Return tempListLicense + End Function + + Private Function ConbineLicense(listlicensePath As List(Of String)) As String + Dim tempLicenseFilePath As String = GetLicenseFilePath() + Dim tempListLicense As List(Of String) = ReadLocalLicense(tempLicenseFilePath) + Dim tempProductKey As String = m_StrProductKey + If tempListLicense IsNot Nothing Then + For Each temp As String In tempListLicense + If temp IsNot Nothing Then + If Not m_StrProductKey.Equals(temp) Then + tempProductKey = (tempProductKey & Convert.ToString(";")) + temp.ToString() + End If + End If + Next + End If + Return tempProductKey + End Function + + 'here, i need to set a callback function that will be called when the time elapse. + Private Sub callbk() + 'code here will be executed when the time elapse + 'Threading.Thread.Abort(thread) + thread.Abort() + End Sub + + Dim thread As Threading.Thread + + Private Sub startScanTimeout() + 'setup a timeout here to call the sub callbk when the time elapse. + 'for example, something like this + thread = New Threading.Thread(AddressOf startScan) + Dim tcb As TimerCallback = AddressOf callbk + Dim t As Threading.Timer = New Threading.Timer(tcb, Nothing, 5000, -1) + 'the first argument is the time interval in milliseconds while the second argument is the function to callback after the period of 5 seconds + thread.Start() + 'While True + ' startScan() + 'End While + End Sub + + Private Sub picboxScan_Click(sender As Object, e As EventArgs) Handles btnScan.Click + 'startScanTimeout() + startScan() + End Sub + + Sub startScan() + + Me.Cursor = Cursors.WaitCursor + pnl.Enabled = False + If Me.cboSource.SelectedIndex < 0 Then + MessageBox.Show(Me, "Es wurde kein Scanner gefunden!", "Information") + Else + Try + Dim sSourceIndex As Short = 0 + sSourceIndex = CShort(cboSource.SelectedIndex) + Dim sTwainSourceCount As Short = m_TwainManager.SourceCount + Dim sCameraSourceCount As Short = 0 + + + If sSourceIndex < sTwainSourceCount Then + m_TwainManager.SelectSourceByIndex(sSourceIndex) + + m_TwainManager.OpenSource() + + + ' m_TwainManager.IfShowUI = chkShowUI.Checked + ' m_TwainManager.IfFeederEnabled = chkADF.Checked + ' m_TwainManager.IfDuplexEnabled = chkDuplex.Checked + m_TwainManager.IfDisableSourceAfterAcquire = True + + m_TwainManager.IfShowUI = chkShowUI.Checked + + Select Case cbxEinzug.CheckState + Case CheckState.Indeterminate + If m_TwainManager.IfPaperDetectable AndAlso m_TwainManager.IfFeederLoaded Then + m_TwainManager.IfFeederEnabled = True + Else + m_TwainManager.IfFeederEnabled = False + End If + ' m_TwainManager.IfAutoFeed = True + + Case CheckState.Checked : m_TwainManager.IfFeederEnabled = True + Case Not CheckState.Checked : m_TwainManager.IfFeederEnabled = False + End Select + + + + + + If rdbtnBW.Checked Then + m_TwainManager.PixelType = Dynamsoft.TWAIN.Enums.TWICapPixelType.TWPT_BW + m_TwainManager.BitDepth = 1 + ElseIf rdbtnGray.Checked Then + m_TwainManager.PixelType = Dynamsoft.TWAIN.Enums.TWICapPixelType.TWPT_GRAY + m_TwainManager.BitDepth = 8 + Else + m_TwainManager.PixelType = Dynamsoft.TWAIN.Enums.TWICapPixelType.TWPT_RGB + m_TwainManager.BitDepth = 24 + End If + m_TwainManager.Resolution = Integer.Parse(cboResolution.Text) + + 'm_TwainManager.sca() + + m_TwainManager.AcquireImage(TryCast(Me, IAcquireCallback)) + + Else + Dim sCameraIndex As Short = CShort(sSourceIndex - sTwainSourceCount) + + End If + Catch exp As Exception + 'EnableControls(picboxScan); + MsgBox("Scanner nicht verfügbar!") + Finally + ' EnableControls(picboxScan) + m_TwainManager.Dispose() + + pnl.Enabled = True + Me.Cursor = Cursors.Default + + End Try + dsViewer.Visible = True + checkImageCount() + + End If + pnl.Enabled = True + Me.Cursor = Cursors.Default + + End Sub + + + + Private Sub btn_Click(sender As Object, e As EventArgs) + + Dim tempList As New List(Of String)() + For i As Integer = 0 To m_TwainManager.SourceCount - 1 + tempList.Add(m_TwainManager.SourceNameItems(CShort(i))) + Next + Dim tempSourceListWrapper As New SourceListWrapper(tempList) + + Dim iSelectIndex As Integer = tempSourceListWrapper.SelectSource() + If iSelectIndex = -1 Then + Return + Else + m_TwainManager.IfDisableSourceAfterAcquire = True + m_TwainManager.IfShowUI = True + m_TwainManager.SelectSourceByIndex(CShort(iSelectIndex)) + m_TwainManager.AcquireImage(TryCast(Me, IAcquireCallback)) + End If + End Sub + + Private Sub InitDefaultValueForTWAIN() + + Try + + dsViewer.IfFitWindow = True + dsViewer.MouseShape = False + dsViewer.SetViewMode(-1, -1) + ' Me.cbxViewMode.SelectedIndex = 0 + + ' Init the sources for TWAIN scanning and Webcam grab, show in the cbxSources controls + If m_TwainManager.SourceCount > 0 Then + Dim hasTwainSource As Boolean = False + Dim hasWebcamSource As Boolean = False + cboSource.Items.Clear() + For i As Integer = 0 To m_TwainManager.SourceCount - 1 + cboSource.Items.Add(m_TwainManager.SourceNameItems(CShort(i))) + 'else if (enumDeviceType == Dynamsoft.DotNet.TWAIN.Enums.EnumDeviceType.SDT_WEBCAM) + ' hasWebcamSource = true; + hasTwainSource = True + Next + If hasTwainSource Then + cboSource.Enabled = True + ' chkShowUI.Enabled = True + ' chkADF.Enabled = True + ' chkDuplex.Enabled = True + ' cbxResolution.Enabled = True + ' rdbtnGray.Checked = True + ' cbxResolution.SelectedIndex = 0 + ' EnableControls(Me.picboxScan) + + End If + End If + Dim iSourceCount As Integer = 0 + + + + Catch ex As System.Exception + MessageBox.Show(ex.Message) + End Try + End Sub + + + + Private Sub cboSource_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSource.SelectedIndexChanged, cboResolution.SelectedIndexChanged + Dim sIndex As Short = CShort(DirectCast(sender, ComboBox).SelectedIndex) + + If sIndex < m_TwainManager.SourceCount Then + btnScan.Enabled = True + m_TwainManager.CloseSource() + Else + btnScan.Enabled = False + End If + End Sub + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn.Click + ' If KdNr < 0 Then Exit Sub + Try + Select Case ART + Case "DirectScan" + Dim PDF_bytes As Byte() = m_PDFCreator.SaveAsBytes(TryCast(Me, ISave)) + Me.fileName = addExtension(tbxSaveFileName.Text) ' DS.LAST_ID + Me.ReturnValue = PDF_bytes ' DS.LAST_ID + Me.DialogResult = Windows.Forms.DialogResult.OK + + Case Else : saveToFile() + End Select + Catch ex As Exception + MsgBox(ex.Message) + pnl.Enabled = True + End Try + End Sub + + + Function addExtension(ByRef FileName As String) As String + Dim Extension As String = "" + + If rdbtnJPG.Checked Then + Extension = ".jpg" + End If + If rdbtnBMP.Checked Then + Extension = ".bmp" + End If + If rdbtnPNG.Checked Then + Extension = ".png" + End If + If rdbtnTIFF.Checked Then + Extension = ".tiff" + End If + If rdbtnPDF.Checked Then + Extension = ".pdf" + End If + FileName = FileName.Trim + If Not FileName.EndsWith(Extension) Then + FileName = FileName & Extension + End If + Return FileName + End Function + + + Sub saveToFile() + + Try + Dim SaveFileDialog As New SaveFileDialog + ' Dim fileName As String = "" ' tbxSaveFileName.Text.Trim() + ' Dim SaveFileDialog + Dim fileName As String = tbxSaveFileName.Text.Trim() + If VerifyFileName(fileName) Then + SaveFileDialog.FileName = Me.tbxSaveFileName.Text + + If rdbtnJPG.Checked Then + SaveFileDialog.Filter = "JPEG|*.JPG;*.JPEG;*.JPE;*.JFIF" + SaveFileDialog.DefaultExt = "jpg" + If SaveFileDialog.ShowDialog() = DialogResult.OK Then + m_ImageCore.IO.SaveAsJPEG(SaveFileDialog.FileName, m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer) + End If + End If + If rdbtnBMP.Checked Then + SaveFileDialog.Filter = "BMP|*.BMP" + SaveFileDialog.DefaultExt = "bmp" + If SaveFileDialog.ShowDialog() = DialogResult.OK Then + m_ImageCore.IO.SaveAsBMP(SaveFileDialog.FileName, m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer) + End If + End If + If rdbtnPNG.Checked Then + SaveFileDialog.Filter = "PNG|*.PNG" + SaveFileDialog.DefaultExt = "png" + If SaveFileDialog.ShowDialog() = DialogResult.OK Then + m_ImageCore.IO.SaveAsPNG(SaveFileDialog.FileName, m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer) + End If + End If + If rdbtnTIFF.Checked Then + SaveFileDialog.Filter = "TIFF|*.TIF;*.TIFF" + SaveFileDialog.DefaultExt = "tiff" + If SaveFileDialog.ShowDialog() = DialogResult.OK Then + ' Multi page TIFF + Dim tempListIndex As New List(Of Short)() + If chkMultiPage.Checked = True Then + + For sIndex As Short = 0 To m_ImageCore.ImageBuffer.HowManyImagesInBuffer - 1 + tempListIndex.Add(sIndex) + Next + Else + tempListIndex.Add(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer) + End If + m_ImageCore.IO.SaveAsTIFF(SaveFileDialog.FileName, tempListIndex) + End If + End If + If rdbtnPDF.Checked Then + SaveFileDialog.Filter = "PDF|*.PDF" + SaveFileDialog.DefaultExt = "pdf" + If SaveFileDialog.ShowDialog() = DialogResult.OK Then + ' Multi page PDF + + m_PDFCreator.Save(TryCast(Me, ISave), SaveFileDialog.FileName) + End If + End If + Else + Me.tbxSaveFileName.Focus() + End If + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + End Sub + + Private Function VerifyFileName(fileName As String) As Boolean + Try + If fileName.LastIndexOfAny(System.IO.Path.GetInvalidFileNameChars()) = -1 Then + Return True + End If + Catch e As Exception + End Try + MessageBox.Show("The file name contains invalid chars!", "Save Image To File", MessageBoxButtons.OK, MessageBoxIcon.Information) + Return False + End Function + + + + + Private Sub picboxRotateLeft_Click(sender As Object, e As EventArgs) Handles Button2.Click + + Dim iImageWidth As Integer = m_ImageCore.ImageBuffer.GetBitmap(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer).Width + Dim iImageHeight As Integer = m_ImageCore.ImageBuffer.GetBitmap(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer).Height + Dim tempListAnnotation As List(Of AnnotationData) = DirectCast(m_ImageCore.ImageBuffer.GetMetaData(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer, EnumMetaDataType.enumAnnotation), List(Of AnnotationData)) + If tempListAnnotation IsNot Nothing AndAlso tempListAnnotation.Count <> 0 Then + For Each tempAnnotation As AnnotationData In tempListAnnotation + Dim x As Integer = tempAnnotation.Location.Y + Dim y As Integer = iImageWidth - (tempAnnotation.EndPoint.X) + Dim iWidth As Integer = (tempAnnotation.EndPoint.Y - tempAnnotation.StartPoint.Y) + Dim iHeight As Integer = (tempAnnotation.EndPoint.X - tempAnnotation.StartPoint.X) + Select Case tempAnnotation.AnnotationType + 'case AnnotationType.enumLine: + Case AnnotationType.enumEllipse, AnnotationType.enumRectangle, AnnotationType.enumText + tempAnnotation.StartPoint = New Point(x, y) + 'tempAnnotation.Size = new Size(iWidth, iHeight); + tempAnnotation.EndPoint = New Point((tempAnnotation.StartPoint.X + iWidth), (tempAnnotation.StartPoint.Y + iHeight)) + Exit Select + Case AnnotationType.enumLine + Dim startPoint As Point = tempAnnotation.StartPoint + x = startPoint.Y + y = iImageWidth - startPoint.X + tempAnnotation.StartPoint = New Point(x, y) + Dim endPoint As Point = tempAnnotation.EndPoint + x = endPoint.Y + y = iImageWidth - endPoint.X + tempAnnotation.EndPoint = New Point(x, y) + Exit Select + End Select + Next + End If + m_ImageCore.ImageBuffer.SetMetaData(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer, EnumMetaDataType.enumAnnotation, tempListAnnotation, True) + m_ImageCore.ImageProcesser.RotateLeft(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer) + End Sub + + Private Sub picboxRotateRight_Click(sender As Object, e As EventArgs) Handles Button3.Click + Dim iImageWidth As Integer = m_ImageCore.ImageBuffer.GetBitmap(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer).Width + Dim iImageHeight As Integer = m_ImageCore.ImageBuffer.GetBitmap(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer).Height + Dim tempListAnnotation As List(Of AnnotationData) = DirectCast(m_ImageCore.ImageBuffer.GetMetaData(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer, EnumMetaDataType.enumAnnotation), List(Of AnnotationData)) + For Each tempAnnotation As AnnotationData In tempListAnnotation + Dim x As Integer = iImageHeight - (tempAnnotation.Location.Y + tempAnnotation.Size.Height) + Dim y As Integer = tempAnnotation.Location.X + Dim iWidth As Integer = tempAnnotation.Size.Height + Dim iHeight As Integer = tempAnnotation.Size.Width + Select Case tempAnnotation.AnnotationType + 'case AnnotationType.enumLine: + Case AnnotationType.enumEllipse, AnnotationType.enumRectangle, AnnotationType.enumText + tempAnnotation.StartPoint = New Point(x, y) + tempAnnotation.EndPoint = New Point((tempAnnotation.StartPoint.X + iWidth), (tempAnnotation.StartPoint.Y + iHeight)) + Exit Select + Case AnnotationType.enumLine + Dim startPoint As Point = tempAnnotation.StartPoint + x = iImageHeight - startPoint.Y + y = startPoint.X + tempAnnotation.StartPoint = New Point(x, y) + Dim endPoint As Point = tempAnnotation.EndPoint + x = iImageHeight - endPoint.Y + y = endPoint.X + tempAnnotation.EndPoint = New Point(x, y) + Exit Select + End Select + Next + m_ImageCore.ImageProcesser.RotateRight(m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer) + End Sub + + + Private Sub frmScan_Load(sender As Object, e As EventArgs) Handles Me.Load + InitDefaultValueForTWAIN() + cboResolution.Text = 240 + + Select Case ART + Case "DirectScan" + grpTyp.Visible = False + Case "QuickScan" + + End Select + + + End Sub + + + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + Dim zoom As Single = dsViewer.Zoom + 0.1F + dsViewer.IfFitWindow = False + dsViewer.Zoom = zoom + 'checkZoom() + End Sub + + Private Sub picboxZoomOut_Click(sender As Object, e As EventArgs) Handles Button6.Click + Dim zoom As Single = dsViewer.Zoom - 0.1F + dsViewer.IfFitWindow = False + dsViewer.Zoom = zoom + ' checkZoom() + End Sub + + Private Sub picboxPrevious_Click(sender As Object, e As EventArgs) Handles Button1.Click + If m_ImageCore.ImageBuffer.HowManyImagesInBuffer > 0 AndAlso m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer > 0 Then + m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer -= 1 + End If + checkImageCount() + End Sub + + Private Sub picboxNext_Click(sender As Object, e As EventArgs) Handles Button4.Click + If m_ImageCore.ImageBuffer.HowManyImagesInBuffer > 0 AndAlso m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer < m_ImageCore.ImageBuffer.HowManyImagesInBuffer - 1 Then + m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer += 1 + End If + checkImageCount() + End Sub + + Private Sub checkImageCount() + Dim currentImageIndex = m_ImageCore.ImageBuffer.CurrentImageIndexInBuffer + Dim currentIndex As Integer = currentImageIndex + 1 + Dim imageCount As Integer = m_ImageCore.ImageBuffer.HowManyImagesInBuffer + If imageCount = 0 Then + currentIndex = 0 + End If + + tbxCurrentImageIndex.Text = currentIndex.ToString() + tbxTotalImageNum.Text = imageCount.ToString() + + If imageCount > 0 Then + Button1.Enabled = True + Button4.Enabled = True + Else + + Button1.Enabled = False + Button4.Enabled = False + End If + + ' ShowSelectedImageArea() + End Sub + + Private Sub frmScan_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If cboSource.Items.Count > 0 Then + btnScan.Enabled = True + cboSource.SelectedIndex = 0 + End If + tbxSaveFileName.Text = DefaultFileName + + Select Case ART + Case "DirectScan" + + Case "QuickScan" + Do + startScan() + Dim PDF_bytes As Byte() = m_PDFCreator.SaveAsBytes(TryCast(Me, ISave)) + Me.fileName = addExtension(tbxSaveFileName.Text) ' DS.LAST_ID + Me.ReturnValue = PDF_bytes ' DS.LAST_ID + Loop While MsgBox("Möchten Sie weitere Dokumente scannen?" & vbNewLine & "NEIN = fertig!", vbYesNo) = vbYes + + Me.DialogResult = Windows.Forms.DialogResult.OK + End Select + End Sub + + Private Sub frmScan_TabStopChanged(sender As Object, e As EventArgs) Handles Me.TabStopChanged + + End Sub +End Class + + +Public Class SourceListWrapper + Private m_listSourceNames As List(Of String) = Nothing + Public Sub New(listSourceNames As List(Of String)) + m_listSourceNames = listSourceNames + End Sub + + Private m_SelectedIndex As Integer = 0 + Public Function SelectSource() As Integer + Dim temp As New frmSourceList(m_listSourceNames) + temp.ShowDialog() + m_SelectedIndex = temp.GetSelectedIndex() + Return m_SelectedIndex + End Function + +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/frmSourceList.Designer.vb b/SDL/VERAG_PROG_ALLGEMEIN/frmSourceList.Designer.vb new file mode 100644 index 0000000..4140923 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/frmSourceList.Designer.vb @@ -0,0 +1,85 @@ + _ +Partial Class frmSourceList + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.button2 = New System.Windows.Forms.Button() + Me.button1 = New System.Windows.Forms.Button() + Me.listBox1 = New System.Windows.Forms.ListBox() + Me.label1 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'button2 + ' + Me.button2.Location = New System.Drawing.Point(286, 103) + Me.button2.Name = "button2" + Me.button2.Size = New System.Drawing.Size(75, 23) + Me.button2.TabIndex = 7 + Me.button2.Text = "Cancel" + Me.button2.UseVisualStyleBackColor = True + ' + 'button1 + ' + Me.button1.Location = New System.Drawing.Point(286, 72) + Me.button1.Name = "button1" + Me.button1.Size = New System.Drawing.Size(75, 23) + Me.button1.TabIndex = 6 + Me.button1.Text = "Select" + Me.button1.UseVisualStyleBackColor = True + ' + 'listBox1 + ' + Me.listBox1.FormattingEnabled = True + Me.listBox1.Location = New System.Drawing.Point(12, 31) + Me.listBox1.Name = "listBox1" + Me.listBox1.Size = New System.Drawing.Size(259, 95) + Me.listBox1.TabIndex = 5 + ' + 'label1 + ' + Me.label1.AutoSize = True + Me.label1.Location = New System.Drawing.Point(9, 4) + Me.label1.Name = "label1" + Me.label1.Size = New System.Drawing.Size(44, 13) + Me.label1.TabIndex = 4 + Me.label1.Text = "Source:" + ' + 'frmSourceList + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(372, 149) + Me.Controls.Add(Me.button2) + Me.Controls.Add(Me.button1) + Me.Controls.Add(Me.listBox1) + Me.Controls.Add(Me.label1) + Me.Name = "frmSourceList" + Me.Text = "frmSourceList" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Private WithEvents button2 As System.Windows.Forms.Button + Private WithEvents button1 As System.Windows.Forms.Button + Private WithEvents listBox1 As System.Windows.Forms.ListBox + Private WithEvents label1 As System.Windows.Forms.Label +End Class diff --git a/SDL/VERAG_PROG_ALLGEMEIN/frmSourceList.resx b/SDL/VERAG_PROG_ALLGEMEIN/frmSourceList.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/frmSourceList.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/VERAG_PROG_ALLGEMEIN/frmSourceList.vb b/SDL/VERAG_PROG_ALLGEMEIN/frmSourceList.vb new file mode 100644 index 0000000..0bb467e --- /dev/null +++ b/SDL/VERAG_PROG_ALLGEMEIN/frmSourceList.vb @@ -0,0 +1,38 @@ +Imports System.Collections.Generic +Imports System.ComponentModel +Imports System.Data +Imports System.Drawing +Imports System.Text +Imports System.Windows.Forms + +Partial Public Class frmSourceList + Inherits Form + Private m_ListSourceNames As List(Of String) = Nothing + Private m_SelectedIndex As Integer = -1 + Public Sub New(listSourceNames As List(Of String)) + InitializeComponent() + m_ListSourceNames = listSourceNames + If m_ListSourceNames Is Nothing Then + button1.Enabled = False + End If + + For Each temp As String In m_ListSourceNames + listBox1.Items.Add(temp) + Next + listBox1.SelectedIndex = m_ListSourceNames.Count - 1 + End Sub + + Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click + m_SelectedIndex = listBox1.SelectedIndex + Me.Close() + End Sub + + Private Sub button2_Click(sender As Object, e As EventArgs) Handles button2.Click + Me.Close() + + End Sub + + Public Function GetSelectedIndex() As Integer + Return m_SelectedIndex + End Function +End Class diff --git a/TELOTEK_Worker_lib/TELOTEC_Worker_lib.vbproj b/TELOTEK_Worker_lib/TELOTEC_Worker_lib.vbproj index a7b94ff..d1f3a5a 100644 --- a/TELOTEK_Worker_lib/TELOTEC_Worker_lib.vbproj +++ b/TELOTEK_Worker_lib/TELOTEC_Worker_lib.vbproj @@ -110,7 +110,7 @@ - + {a3b497bd-842c-4a2b-b398-ed1976849df1} VERAG_PROG_ALLGEMEIN diff --git a/UID/ADMIN.vbproj b/UID/ADMIN.vbproj index f00729c..8f251ff 100644 --- a/UID/ADMIN.vbproj +++ b/UID/ADMIN.vbproj @@ -73,30 +73,57 @@ - ..\..\..\dll\closedxml\ClosedXML.dll + \\ylps023046.verag.ost.dmn\VB\dll\closedxml\ClosedXML.dll - ..\..\..\dll\FastColoredTextBox.dll + \\ylps023046.verag.ost.dmn\VB\dll\FastColoredTextBox.dll + + + \\ylps023046.verag.ost.dmn\VB\GrapeCity\GrapeCity.ActiveReports.Chart.v12.dll + + + \\ylps023046.verag.ost.dmn\VB\GrapeCity\GrapeCity.ActiveReports.Design.Win.v12.dll + + + \\ylps023046.verag.ost.dmn\VB\GrapeCity\GrapeCity.ActiveReports.Diagnostics.v12.dll + + + \\ylps023046.verag.ost.dmn\VB\GrapeCity\GrapeCity.ActiveReports.Document.v12.dll + + + \\ylps023046.verag.ost.dmn\VB\GrapeCity\GrapeCity.ActiveReports.Export.Document.v12.dll + + + \\ylps023046.verag.ost.dmn\VB\GrapeCity\GrapeCity.ActiveReports.Export.Pdf.v12.dll + + + \\ylps023046.verag.ost.dmn\VB\GrapeCity\GrapeCity.ActiveReports.Extensibility.v12.dll + + + \\ylps023046.verag.ost.dmn\VB\GrapeCity\GrapeCity.ActiveReports.v12.dll + + + \\ylps023046.verag.ost.dmn\VB\GrapeCity\GrapeCity.ActiveReports.Viewer.Win.v12.dll + + + \\ylps023046.verag.ost.dmn\VB\dll\GrapeCity.Documents.Pdf.dll - - - - - - - ..\packages\Hardcodet.NotifyIcon.Wpf.1.0.5\lib\net40-client\Hardcodet.Wpf.TaskbarNotification.dll True + + \\ylps023046.verag.ost.dmn\VB\dll\Interop.MSComDlg.dll + True + - ..\..\..\dll\itextsharp.dll + \\ylps023046.verag.ost.dmn\VB\dll\itextsharp.dll - ..\..\..\dll\itextsharp.pdfa.dll + \\ylps023046.verag.ost.dmn\VB\dll\itextsharp.pdfa.dll - C:\Program Files (x86)\Microsoft Visual Studio 12.0\Visual Studio Tools for Office\PIA\Office15\Microsoft.Office.Interop.Excel.dll + \\ylps023046.verag.ost.dmn\VB\dll\Microsoft.Office.Interop.Excel1.dll True @@ -107,18 +134,21 @@ False - bin\Debug\Microsoft.ReportViewer.Common.dll + \\ylps023046.verag.ost.dmn\VB\dll\Report\Microsoft.ReportViewer.Common.dll + + + \\ylps023046.verag.ost.dmn\VB\dll\Report\Microsoft.ReportViewer.ProcessingObjectModel.dll False - bin\Debug\Microsoft.ReportViewer.WinForms.dll + \\ylps023046.verag.ost.dmn\VB\dll\Report\Microsoft.ReportViewer.WinForms.dll False - C:\Program Files (x86)\MySQL\MySQL Connector Net 6.9.6\Assemblies\v4.0\MySql.Data.dll + \\ylps023046.verag.ost.dmn\VB\dll\.net MySQL v4.5.2\MySql.Data.dll - ..\..\..\dll\PdfSharp.dll + \\ylps023046.verag.ost.dmn\VB\dll\PdfSharp.dll @@ -845,15 +875,6 @@ False True - - {F9043C88-F6F2-101A-A3C9-08002B2F49FB} - 1 - 2 - 0 - tlbimp - False - True - {00020430-0000-0000-C000-000000000046} 2 @@ -874,7 +895,7 @@ - + {a3b497bd-842c-4a2b-b398-ed1976849df1} VERAG_PROG_ALLGEMEIN @@ -883,6 +904,9 @@ DAKOSY_Worker_lib + + +