diff --git a/SDL.sln b/SDL.sln index 85f11c0e..eb74678c 100644 --- a/SDL.sln +++ b/SDL.sln @@ -1,7 +1,7 @@  Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio 15 -VisualStudioVersion = 15.0.28307.106 +# Visual Studio Version 16 +VisualStudioVersion = 16.0.30804.86 MinimumVisualStudioVersion = 10.0.40219.1 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}" EndProject @@ -21,6 +21,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\.. EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Parkzeit", "..\..\Parkzeit\Parkzeit\Parkzeit\Parkzeit.vbproj", "{E4190547-B222-4AE3-A0BE-A44EAEE70335}" EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "..\..\ADMIN\ADMIN\MDM_Worker\MDM_Worker_lib.vbproj", "{2E4DBC09-E57B-4AC5-8554-6117D71F993B}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU @@ -123,6 +125,18 @@ Global {E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|Mixed Platforms.Build.0 = Release|x86 {E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.ActiveCfg = Release|x86 {E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.Build.0 = Release|x86 + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.Build.0 = Debug|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x86.ActiveCfg = Debug|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x86.Build.0 = Debug|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Any CPU.ActiveCfg = Release|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Any CPU.Build.0 = Release|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x86.ActiveCfg = Release|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x86.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/SDL/Classes/cGeschaeftsjahr.vb b/SDL/Classes/cGeschaeftsjahr.vb index 347892c9..8b17161c 100644 --- a/SDL/Classes/cGeschaeftsjahr.vb +++ b/SDL/Classes/cGeschaeftsjahr.vb @@ -17,27 +17,80 @@ Public Class cGeschaeftsjahr Me.Geschäftsjahr = Geschäftsjahr LOAD(Mandant, Niederlassung, Benutzer, Geschäftsjahr) End Sub - + Public Function INCREASE_BELEG() As Integer + If LfdBelegNr > 0 Then LfdBelegNr += 1 + + '-------Falls Nr schon existiert (geleichzeitige Buchung) + Dim cnt_ = 0 + While EXISTS_BelegNr(LfdBelegNr) + If cnt_ > 10 Then Exit While + LfdBelegNr += 1 + cnt_ += 1 + End While + '------- + + + SAVE() + Return LfdBelegNr Else LfdBelegNr = 1 + SAVE() + Return LfdBelegNr End If - SAVE() - Return LfdBelegNr + + End Function + + 'Public Function INCREASE_BELEG() As Integer + ' If LfdBelegNr > 0 Then + ' LfdBelegNr += 1 + ' Else + ' LfdBelegNr = 1 + ' End If + + ' Return LfdBelegNr + 'End Function + 'Public Function INCREASE_JOURNAL() As Integer + ' If LfdJournalNr > 0 Then + ' LfdJournalNr += 1 + ' Else + ' LfdJournalNr = 1 + ' End If + ' SAVE() + ' Return LfdJournalNr + 'End Function + + Public Function INCREASE_JOURNAL() As Integer If LfdJournalNr > 0 Then LfdJournalNr += 1 + + '-------Falls Nr schon existiert (geleichzeitige Buchung) + Dim cnt_ = 0 + While EXISTS_JournalNr(LfdJournalNr) + If cnt_ > 10 Then Exit While + LfdJournalNr += 1 + cnt_ += 1 + End While + '------- + + + SAVE() + Return LfdJournalNr Else LfdJournalNr = 1 + SAVE() + Return LfdJournalNr End If - SAVE() - Return LfdJournalNr + + 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() @@ -78,6 +131,57 @@ Public Class cGeschaeftsjahr ' Return Nothing End Sub + Public Function EXISTS_BelegNr(LfdBelegNr As Integer) As Boolean + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT count(*) as COUNT FROM tblGeschäftsjahr WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr AND LfdBelegNr=@LfdBelegNr ", conn) + cmd.Parameters.AddWithValue("@Mandant", Mandant) + cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung) + cmd.Parameters.AddWithValue("@Benutzer", Benutzer) + cmd.Parameters.AddWithValue("@Geschäftsjahr", Geschäftsjahr) + cmd.Parameters.AddWithValue("@LfdBelegNr", LfdBelegNr) + + Dim dr = cmd.ExecuteReader() + If dr.Read Then + If cSqlDb.checkNullInteger(dr.Item("COUNT")) > 0 Then Return True + End If + dr.Close() + End Using + End Using + + Return False + 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 EXISTS_JournalNr(LfdJournalNr As Integer) As Boolean + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT count(*) as COUNT FROM tblGeschäftsjahr WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr AND LfdJournalNr=@LfdJournalNr ", conn) + cmd.Parameters.AddWithValue("@Mandant", Mandant) + cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung) + cmd.Parameters.AddWithValue("@Benutzer", Benutzer) + cmd.Parameters.AddWithValue("@Geschäftsjahr", Geschäftsjahr) + cmd.Parameters.AddWithValue("@LfdJournalNr", LfdJournalNr) + + Dim dr = cmd.ExecuteReader() + If dr.Read Then + If cSqlDb.checkNullInteger(dr.Item("COUNT")) > 0 Then Return True + End If + dr.Close() + End Using + End Using + + Return False + 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.MyListItem2) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 0c47bc57..54e726d3 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -552,7 +552,7 @@ Public Class cFakturierung If SPEDBUCH_TMP Is Nothing Then Return False Dim f As New frmFaktEmail(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), SPEDBUCH_TMP, Nothing) - f.Show(RG_TMP) + f.Show() Return True ' Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb) End Function @@ -1274,7 +1274,7 @@ Public Class cFakturierung Case "IMEX" : firma = 20 Case "ATILLA" : firma = 7 Case "UNISPED" : firma = 21 - Case "AMBAR" : firma = 22 + Case "AMBAR" : firma = 24 Case "FRONTOFFICE" : firma = 17 Case Else : firma = 1 End Select @@ -1318,6 +1318,10 @@ Public Class cFakturierung getSignature &= "" If displayFirmenmane Then getSignature &= "
Imex Customs Service GmbH
" getSignature &= "
A 4975 Suben, Autobahngrenze 15
T +43 7711 31630 | F +43 7711 31630-1 | @ " & If(individuell, emailindividuell, "info@imex-group.at") & " | www.imex-group.at | FN 410356s
" + Case 24 'AMBAR + getSignature &= "" + If displayFirmenmane Then getSignature &= "
AMBAR Logistic Services GmbH
" + getSignature &= "
D 83435 Bad Reichenhall, Reichenhallerstrasse 62
T +49 8651 99624911 | F +49 8651 9962493 | @ " & If(individuell, emailindividuell, "info@ambarlog.de") & " | www.ambarlog.com | DE309105428
" Case 21 'UNISPED getSignature &= "" If displayFirmenmane Then getSignature &= "
Unisped Speditions GmbH
" @@ -1511,7 +1515,7 @@ Public Class cFakturierung End Function - Public Shared Function doSAMMELRechnungsDruck(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional whereKdNr As String = "", Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, ByRef Optional DruckdatumUhrzeit As DateTime = Nothing, Optional AvisoIds As List(Of Integer) = Nothing, Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional vorschau As Boolean = False) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean + Public Shared Function doSAMMELRechnungsDruck(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional whereKdNr As String = "", Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, ByRef Optional DruckdatumUhrzeit As DateTime = Nothing, Optional AvisoIds As List(Of Integer) = Nothing, Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional vorschau As Boolean = False, Optional AnlageExcelTransferry360 As Boolean = False) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean 'If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False Try 'If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") " @@ -1564,7 +1568,7 @@ Public Class cFakturierung If FIRMATmp < 0 Then FIRMATmp = RG.Firma_ID 'erstes Mal If kdTmp <> RG.RechnungsKundenNr Or AvisoIdTmp <> RG.AvisoID Or FIRMATmp <> RG.Firma_ID Then 'Or FilialeTmp <> RG.FilialenNr Dim path = "" - doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID) 'hier wird auch die RG Nr erhöht! + doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360) 'hier wird auch die RG Nr erhöht! Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr) If path <> "" Then listPDFs.Add(path) End If @@ -1578,7 +1582,7 @@ Public Class cFakturierung If FIRMATmp < 0 Then FIRMATmp = RG.Firma_ID 'erstes Mal If kdTmp <> RG.RechnungsKundenNr Or FIRMATmp <> RG.Firma_ID Then 'Or FilialeTmp <> RG.FilialenNr Dim path = "" - doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID) + doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360) Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr) If path <> "" Then listPDFs.Add(path) End If @@ -1605,7 +1609,7 @@ Public Class cFakturierung 'Letzter Abschnitt: If found Then Dim path = "" - doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID) + doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360) If path <> "" Then listPDFs.Add(path) End If lastAktuelle_RgNr = Aktuelle_RgNr @@ -1624,7 +1628,7 @@ Public Class cFakturierung RG_NR.CHECK_RGNR() End Function - Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "") As Boolean + Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False) As Boolean 'SB Nicht mehr benötigt, da RG-Nr und DruckdatumUhrzeit Dim dt As DataTable @@ -1643,6 +1647,7 @@ Public Class cFakturierung Dim pathPDF_SammelRg = "" Dim pathPDF_SammelBericht = "" Dim xls_Evolog = "" + Dim xls_Transferry360 = "" Dim pathPDF_Anlage As New List(Of String) '-------------- ENDE -------------- @@ -1659,10 +1664,17 @@ Public Class cFakturierung doSAMMELRechnungsDruck_Abschnitt = False End If End If + If AnlageExcelTransferry360 Then 'Sammelrechnungsbericht EVOLOG + If doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelTransFerry360(RechnungsNr, DruckdatumUhrzeit, RechnungsdruckArt, xls_Transferry360, PrinterName, VorschauID) Then + If xls_Transferry360 <> "" Then SonstAnlagen.Add(xls_Transferry360) + Else + doSAMMELRechnungsDruck_Abschnitt = False + End If + End If 'ZOLLBELEGE: If RechnungsdruckArt = 0 Or RechnungsdruckArt = 1 Then 'DRUCK - If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg") Then 'Sammelrechnungsbericht EVOLOG + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg") Then Try Dim pathZollbeleg = getSpedBuchAnhaenge_Path(dt.Rows(0)("FilialenNr"), dt.Rows(0)("AbfertigungsNr"), dt.Rows(0)("SpeditionsbuchUnterNr")) If pathZollbeleg <> "" Then SonstAnlagen.Add(pathZollbeleg) @@ -1846,6 +1858,110 @@ Public Class cFakturierung End Function + Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelTransFerry360(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean + Try + 'Dim sqlStr = " SELECT [RechnungsName 1],[AbsenderName 1],[EmpfängerName 1],Abfertigungsarten.Abfertigungsart,RechnungsNr,RechnungsDatum,RechnungsKundenNr,Rechnungsausgang.Abfertigungsdatum,Rechnungsausgang.KdAuftragsNr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.FilialenNr,Rechnungsausgang.SpeditionsbuchUnterNr,Rechnungsausgang.[LKW Kennzeichen] as Kennzeichen,Abfertigungsarten.Abfertigungsbezeichnung, (SELECT SUM([SteuerpflichtigerBetrag]+[SteuerfreierBetrag]) FROM RechnungsausgangPositionen where RechnungsausgangPositionen.RK_ID=Rechnungsausgang.RK_ID) as Betrag + ' ,isnull((SELECT cast(Sum(Anzahl)as varchar(5)) FROM RechnungsausgangPositionen AS POS2 where POS2.RK_ID=Rechnungsausgang.RK_ID and POS2.[BerechnungsartNr]=10),'') As POSAnz + ' FROM Rechnungsausgang INNER JOIN Speditionsbuch on Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr + ' INNER JOIN Abfertigungsarten ON Abfertigungsarten .Abfertigungsart=Speditionsbuch.Abfertigungsart + ' WHERE 1=1 " + Dim sqlStr = " SELECT [RechnungsName 1],[AbsenderName 1],[EmpfängerName 1],Abfertigungsarten.Abfertigungsart,RechnungsNr,RechnungsDatum,RechnungsKundenNr,Rechnungsausgang.Abfertigungsdatum,Rechnungsausgang.KdAuftragsNr, + Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.FilialenNr,Rechnungsausgang.SpeditionsbuchUnterNr,Rechnungsausgang.[LKW Kennzeichen] as Kennzeichen,POS.LeistungsBez,([SteuerpflichtigerBetrag]+[SteuerfreierBetrag]) Betrag + ,CASE WHEN [BerechnungsartNr]=10 THEN '' ELSE pos.Anzahl END as [Count],CASE WHEN [BerechnungsartNr]=10 THEN pos.Anzahl ELSE '' END as POSCnt + FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen as POS ON pos.RK_ID=Rechnungsausgang.RK_ID INNER JOIN Speditionsbuch on Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr + INNER JOIN Abfertigungsarten ON Abfertigungsarten .Abfertigungsart=Speditionsbuch.Abfertigungsart + WHERE 1=1 " + + If VorschauID = "" Then + sqlStr &= " AND Rechnungsausgang.Status IN(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' " + Else + sqlStr &= " AND RechnungsNr is null AND VorschauID='" & VorschauID & "' " + End If + 'sqlStr &= " ORDER BY Rechnungsausgang.FilialenNr, Rechnungsausgang.AbfertigungsNr" + sqlStr &= " order by Rechnungsausgang.AvisoID desc, FilialenNr,AbfertigungsNr,POS.[BerechnungsartNr]" + + + Dim dt As DataTable = SQL.loadDgvBySql(sqlStr, "FMZOLL") + + + If dt IsNot Nothing And dt.Rows.Count > 0 Then + + + Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\" ' My.Computer.FileSystem.GetTempFileName + If Not My.Computer.FileSystem.DirectoryExists(sPath) Then + My.Computer.FileSystem.CreateDirectory(sPath) + End If + + + Dim exclApp As Object 'as Application + Dim Datei As Object 'as WorkBook + Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet + exclApp = CreateObject("Excel.Application") + ' Dim nWeek As Integer + ' nWeek = DatePart(DateInterval.WeekOfYear, New Date(2004, 3, 22), _ + ' FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays) + + + With exclApp + .Visible = False + + Try + Path = sPath & "SR_" & dt.Rows(0)("RechnungsKundenNr") & ".xlsx" + While System.IO.File.Exists(Path) + Path = sPath & "SR_" & dt.Rows(0)("RechnungsKundenNr") & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + End While + My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.SR_TransFerry360, False) + Catch ex As System.Exception + ' MsgBox(ex.Message) + MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace) + Return False + End Try + + + Datei = .Workbooks.Open(Path) 'Anpassen + Blatt = Datei.Worksheets(1) 'Anpassen + + Dim cnt = 2 + For Each r In dt.Rows + Blatt.Range("A" & cnt).Value = cnt - 1 + Blatt.Range("B" & cnt).Value = r("RechnungsNr") + Blatt.Range("C" & cnt).Value = r("RechnungsDatum") + Blatt.Range("D" & cnt).Value = r("FilialenNr") + Blatt.Range("E" & cnt).Value = r("AbfertigungsNr") + Blatt.Range("F" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("G" & cnt).Value = r("RechnungsName 1") + Blatt.Range("H" & cnt).Value = r("AbsenderName 1") + Blatt.Range("I" & cnt).Value = r("EmpfängerName 1") + Blatt.Range("J" & cnt).Value = r("Kennzeichen") + Blatt.Range("K" & cnt).Value = r("LeistungsBez") + Blatt.Range("L" & cnt).Value = If(r("Count") = "0", "", r("Count")) + Blatt.Range("M" & cnt).Value = If(r("POSCnt") = "0", "", r("POSCnt")) + Blatt.Range("N" & cnt).Value = r("Betrag") + Blatt.Range("O" & cnt).Value = r("KdAuftragsNr") + + cnt += 1 + Next + Datei.Save + + If Rechnugnsdruck = -1 Then + Blatt.PrintOutEx() + ElseIf Rechnugnsdruck = 3 Then + 'Process.Start(Path) + .Visible = True + + End If + End With + + Return True + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean Try @@ -2021,6 +2137,22 @@ Public Class cFakturierung sumSteuerpflichtig += stPfl sumSteuerfrei += stFrei + + Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr) + If KUNDE_ERW.kde_FakturierungSR_Details Then + Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG) + rpt.SubReport.Report = subRpt + rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) + rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) + + 'txtPackstuecke.Top += SubReport.Height + 'txtKdAuftragsnummer.Top += SubReport.Height + 'txtSendungsdetails.Top += SubReport.Height + Else + rpt.SubReport.Report = Nothing + End If + ' rpt.Line10.AnchorBottom = True + ' rpt.Line10.Height = rpt.Detail.Height End If End Sub diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 5a982015..5091f468 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -48,7 +48,7 @@ Public Class frmAbrechnungsMaske cboFirma.changeItem("1") MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR [mit_id] IN (SELECT [beroz_bergrId] FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND beroz_art='B')) order by mit_username", False, "ADMIN", True) Else - cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE IN ('VERAG','VERAGUNISPED','FRONTOFFICE') ", False, "FMZOLL") + cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE IN ('VERAG','VERAGUNISPED','FRONTOFFICE','ATILLA') ", False, "FMZOLL") cboFirma.changeItem("1") MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR [mit_id] IN (SELECT [beroz_bergrId] FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND beroz_art='B')) order by mit_username", False, "ADMIN", True) End If @@ -126,7 +126,6 @@ Public Class frmAbrechnungsMaske sqlstr &= getRGWhere(MyComboBox3._value) ' sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)" sqlstr &= " ORDER BY FilialenNr, AbfertigungsNr, UnterNr " - ' MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM & " - " & sqlstr) .SET_SQL(sqlstr, "FMZOLL") .LOAD() @@ -251,7 +250,7 @@ Public Class frmAbrechnungsMaske If checkSrchValues() Then Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg") - Dim dt = SQL.loadDgvBySql("SELECT RK_ID,AD.Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & " ORDER BY /*[BelegartenKz] DESC,*/ FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL") + Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & " ORDER BY /*[BelegartenKz] DESC,*/ FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL") If dt IsNot Nothing Then If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then Dim RechnungsDatum As Date = Now @@ -262,7 +261,6 @@ Public Class frmAbrechnungsMaske Else cFakturierung.doRechnungsDruck(r("RK_ID"), RechnungsDatum,,,, cboPrinter.Text,, PARAM_printZollbeleg) End If - Next initDGV() End If diff --git a/SDL/Fakturierung/frmFaktEmail.Designer.vb b/SDL/Fakturierung/frmFaktEmail.Designer.vb index c36ddb7c..8aab280b 100644 --- a/SDL/Fakturierung/frmFaktEmail.Designer.vb +++ b/SDL/Fakturierung/frmFaktEmail.Designer.vb @@ -66,6 +66,7 @@ Partial Class frmFaktEmail Me.Label6 = New System.Windows.Forms.Label() Me.cbxMergeRg = New System.Windows.Forms.CheckBox() Me.cbxExcelEvolog = New System.Windows.Forms.CheckBox() + Me.cbxTransFerry = New System.Windows.Forms.CheckBox() CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).BeginInit() @@ -512,12 +513,23 @@ Partial Class frmFaktEmail Me.cbxExcelEvolog.Text = "Excel Evolog" Me.cbxExcelEvolog.UseVisualStyleBackColor = True ' + 'cbxTransFerry + ' + Me.cbxTransFerry.AutoSize = True + Me.cbxTransFerry.Location = New System.Drawing.Point(614, 740) + Me.cbxTransFerry.Name = "cbxTransFerry" + Me.cbxTransFerry.Size = New System.Drawing.Size(105, 17) + Me.cbxTransFerry.TabIndex = 32 + Me.cbxTransFerry.Text = "Excel TransFerry" + Me.cbxTransFerry.UseVisualStyleBackColor = True + ' 'frmFaktEmail ' 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(750, 850) + Me.Controls.Add(Me.cbxTransFerry) Me.Controls.Add(Me.cbxExcelEvolog) Me.Controls.Add(Me.cbxMergeRg) Me.Controls.Add(Me.Label6) @@ -605,4 +617,5 @@ Partial Class frmFaktEmail Friend WithEvents Label6 As Label Friend WithEvents cbxMergeRg As CheckBox Friend WithEvents cbxExcelEvolog As CheckBox + Friend WithEvents cbxTransFerry As CheckBox End Class diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 08fc52ba..ed4f6bd2 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -22,6 +22,7 @@ Public Class frmFaktEmail Dim EinzelAnlagen As Boolean Dim Sammelbericht As Boolean Dim xlsEvolog As Boolean + Dim xlsTransFerry As Boolean Dim RechnungsNr As Integer Dim DruckDatumZeit As DateTime Dim AvisoIds As List(Of Integer) @@ -42,7 +43,7 @@ Public Class frmFaktEmail End Sub - Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, Optional AvisoIds As List(Of Integer) = Nothing, Optional xlsEvolog As Boolean = False) + Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, Optional AvisoIds As List(Of Integer) = Nothing, Optional xlsEvolog As Boolean = False, Optional xlsTransFerry As Boolean = False) '(Firma_ID As Integer, SammelrechungArt As Integer, KdNr As Integer, DatumBis As Date, SB As String, EinzelAnlagen As Boolean, Sammelbericht As Boolean) 'Sammelrechnung ' Dieser Aufruf ist für den Designer erforderlich. @@ -56,6 +57,7 @@ Public Class frmFaktEmail Me.EinzelAnlagen = EinzelAnlagen Me.Sammelbericht = Sammelbericht Me.xlsEvolog = xlsEvolog + Me.xlsTransFerry = xlsTransFerry Me.KdNr = KdNr Me.Rechnungsdatum = Rechnungsdatum Me.RechnungsNr = lastAktuelle_RgNr @@ -92,6 +94,7 @@ Public Class frmFaktEmail cbxExcelEvolog.Checked = xlsEvolog + cbxTransFerry.Checked = xlsTransFerry If SR Then @@ -125,6 +128,7 @@ Public Class frmFaktEmail End If If AD.AdressenNr = 1001688 Then cbxExcelEvolog.Checked = True 'EVOLOG + If AD.AdressenNr = 800020 Then cbxTransFerry.Checked = True 'TRANS FERRY 360 If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then lkl.Text = """" & AD.E_Mail & """ anfügen" : lkl.Tag = AD.E_Mail lblKunde.Text = AD.AdressenNr & " - " & AD.Ordnungsbegriff @@ -226,11 +230,11 @@ Public Class frmFaktEmail '----------------------------------------------------------------- Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) If RechnungsNr <= 0 Then - cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen) + cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked) RechnungsNr = lastAktuelle_RgNr Else Dim path = "" - cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RechnungsNr, -1, -1, DruckDatumZeit, "", False, , 4, path, True,, cbxExcelEvolog.Checked, SonstAnlagen) + cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RechnungsNr, -1, -1, DruckDatumZeit, "", False, , 4, path, True,, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked) lastAktuelle_RgNr = RechnungsNr listPDFs.Add(path) diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb index 6b13705d..871e8fa3 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb @@ -52,6 +52,7 @@ Partial Class frmFaktSammelRgDrucken Me.cbxEVOLOG = New System.Windows.Forms.CheckBox() Me.Label4 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() + Me.cbxTransFerry = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -312,7 +313,7 @@ Partial Class frmFaktSammelRgDrucken 'cbxEinzelAnlagen ' Me.cbxEinzelAnlagen.AutoSize = True - Me.cbxEinzelAnlagen.Location = New System.Drawing.Point(150, 206) + Me.cbxEinzelAnlagen.Location = New System.Drawing.Point(150, 195) Me.cbxEinzelAnlagen.Name = "cbxEinzelAnlagen" Me.cbxEinzelAnlagen.Size = New System.Drawing.Size(96, 17) Me.cbxEinzelAnlagen.TabIndex = 14 @@ -324,7 +325,7 @@ Partial Class frmFaktSammelRgDrucken Me.cbxSammelbericht.AutoSize = True Me.cbxSammelbericht.Checked = True Me.cbxSammelbericht.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxSammelbericht.Location = New System.Drawing.Point(150, 229) + Me.cbxSammelbericht.Location = New System.Drawing.Point(150, 215) Me.cbxSammelbericht.Name = "cbxSammelbericht" Me.cbxSammelbericht.Size = New System.Drawing.Size(95, 17) Me.cbxSammelbericht.TabIndex = 16 @@ -380,7 +381,7 @@ Partial Class frmFaktSammelRgDrucken 'cbxEVOLOG ' Me.cbxEVOLOG.AutoSize = True - Me.cbxEVOLOG.Location = New System.Drawing.Point(151, 268) + Me.cbxEVOLOG.Location = New System.Drawing.Point(151, 253) Me.cbxEVOLOG.Name = "cbxEVOLOG" Me.cbxEVOLOG.Size = New System.Drawing.Size(99, 17) Me.cbxEVOLOG.TabIndex = 19 @@ -390,7 +391,7 @@ Partial Class frmFaktSammelRgDrucken 'Label4 ' Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(148, 252) + Me.Label4.Location = New System.Drawing.Point(148, 237) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(41, 13) Me.Label4.TabIndex = 20 @@ -409,6 +410,16 @@ Partial Class frmFaktSammelRgDrucken Me.Button1.Text = "Vorschau" Me.Button1.UseVisualStyleBackColor = True ' + 'cbxTransFerry + ' + Me.cbxTransFerry.AutoSize = True + Me.cbxTransFerry.Location = New System.Drawing.Point(151, 271) + Me.cbxTransFerry.Name = "cbxTransFerry" + Me.cbxTransFerry.Size = New System.Drawing.Size(105, 17) + Me.cbxTransFerry.TabIndex = 22 + Me.cbxTransFerry.Text = "Excel TransFerry" + Me.cbxTransFerry.UseVisualStyleBackColor = True + ' 'frmFaktSammelRgDrucken ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -437,6 +448,7 @@ Partial Class frmFaktSammelRgDrucken Me.Controls.Add(Me.pnl) Me.Controls.Add(Me.cbxSammelbericht) Me.Controls.Add(Me.cbxZusammenfassen) + Me.Controls.Add(Me.cbxTransFerry) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmFaktSammelRgDrucken" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen @@ -477,4 +489,5 @@ Partial Class frmFaktSammelRgDrucken Friend WithEvents cbxEVOLOG As CheckBox Friend WithEvents Label4 As Label Friend WithEvents Button1 As Button + Friend WithEvents cbxTransFerry As CheckBox End Class diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 1374dc41..a428ae3b 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -204,7 +204,7 @@ Public Class frmFaktSammelRgDrucken If Not IsNumeric(getSelectionKdNr_Simple) Then MsgBox("Es muss eine eindeutige KundenNr ausgewählt werden!") : Exit Sub - Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked) + Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked, cbxTransFerry.Checked) f.ShowDialog(Me) initDGV() 'Else @@ -236,7 +236,7 @@ Public Class frmFaktSammelRgDrucken Me.Cursor = Cursors.WaitCursor Dim listPDFs As New List(Of String) Dim SonstAnlagen As New List(Of String) - cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau) + cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau, cbxTransFerry.Checked) '-------------- für PDF-Sammel-Rechnung -------------- diff --git a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb index ee12c40e..bbf4b926 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb @@ -126,6 +126,7 @@ Partial Class frmRechnungenSuche Me.Label4 = New System.Windows.Forms.Label() Me.pnlTop = New System.Windows.Forms.Panel() Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout() @@ -1528,14 +1529,14 @@ Partial Class frmRechnungenSuche Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1}) Me.MenuStrip1.Location = New System.Drawing.Point(368, 23) Me.MenuStrip1.Name = "MenuStrip1" - Me.MenuStrip1.Size = New System.Drawing.Size(179, 27) + Me.MenuStrip1.Size = New System.Drawing.Size(299, 27) Me.MenuStrip1.TabIndex = 43 Me.MenuStrip1.Text = "Kundenauswertungen" ' 'KundenauswertungenToolStripMenuItem1 ' Me.KundenauswertungenToolStripMenuItem1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem, Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem}) + Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem, Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem}) Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White Me.KundenauswertungenToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.statistik_small @@ -1547,14 +1548,14 @@ Partial Class frmRechnungenSuche ' Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image = CType(resources.GetObject("EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image"), System.Drawing.Image) Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Name = "EVOLOGSammelrechnungAuswählenToolStripMenuItem" - Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(347, 24) + Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24) Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Text = "EVOLOG (Sammelrechnung auswählen)" ' 'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem ' Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem" - Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(347, 24) + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)" Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False ' @@ -1677,6 +1678,13 @@ Partial Class frmRechnungenSuche Me.TestToolStripMenuItem.Size = New System.Drawing.Size(150, 19) Me.TestToolStripMenuItem.Text = "test" ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Image = CType(resources.GetObject("ToolStripMenuItem1.Image"), System.Drawing.Image) + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(372, 24) + Me.ToolStripMenuItem1.Text = "TRANSFERRY/360 (Sammelrechnung auswählen)" + ' 'frmRechnungenSuche ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -1820,4 +1828,5 @@ Partial Class frmRechnungenSuche Friend WithEvents KundenauswertungenToolStripMenuItem1 As ToolStripMenuItem Friend WithEvents EVOLOGSammelrechnungAuswählenToolStripMenuItem As ToolStripMenuItem Friend WithEvents ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem End Class diff --git a/SDL/Fakturierung/frmRechnungenSuche.resx b/SDL/Fakturierung/frmRechnungenSuche.resx index 1f5e3ef9..8c7e1b40 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.resx +++ b/SDL/Fakturierung/frmRechnungenSuche.resx @@ -127,6 +127,88 @@ 316, 17 + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH + DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp + bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE + sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs + AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4 + JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR + 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd + li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF + ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX + wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF + hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55 + 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ + VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB + 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC + qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE + j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I + 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9 + rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG + fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp + B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ + yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC + YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln + yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v + vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp + vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L + Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA + bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z + llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW + ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s + xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6 + eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw + YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR + XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm + WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl + xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2 + dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8 + V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za + Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v + Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb + PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/ + 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h + /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr + XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS + fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ + tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEwAACxMBAJqcGAAAB3VJREFUSEu9VntQ1NUe + /86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r + ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ + UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C + MGn2uYHkVRZLWz5uJwmY1VbNQDUU16ijwr3racWBTZTX+ibF1ueOKWxfNzvz7aqF4WvT13gvX3DAv+r1 + nhdKYu+r8sMwIcMPNsmzaILWj1wMIeRWGPHngGm7Kkm/p46y21Y7RmzURiRsLyyNqc9pClideNqrPPaG + R3EUJuvUsM8JlGab4YtJWn84ZQfB3RB5zTkvmGwy55Bdtr/JsvxpfLaf3I/P8pP2dMpMciuKoD2nO4kC + 65Iq59Ys6Zn+xquPlcXhcDQEY2JeICbmBsBJr4aTLhhT9CFQGMLgqg+Fa34oFLp5mJwTDI+CKMxcseDc + tOLILo/i6C6PEjbrr9nci6K6phZFdHHUDORQEHyIDU5GfpQBlUXhULEpC8OhMGrAoYGSwQSgggEV+XxP + FwLbtLnwMEbht0ePYFkDDx+gf+C++dfQunOvD7tPHQIleh0ht7LIZrfSSKiElURCWRwxCCjBhBVYA5o8 + HJ/uA09jNH746Qqu3rqO3mtX8PjxYwlwkc9+vHkNl67/iJt9v8qzkxe6MCrVu5kBo5pVpQzCYKoS/o4E + ZDALoAipCTAESl0oXHLVeDZ9Dp7NmAOKtsXWY3vQ0fURKHIsnkl/EbTACeraFAl49JvP+Wy2AIxkQIuH + JsDJBs4Rm4pBVQxqm+mD0ctmwYU9U+oZnAGFTcmbh0m5gdJo4WS89ck+HPzqOOhVR9PZkmng1pKAH1oD + WkKqZMBppdFcNAH4i9aHcxgGey6gGWWvYP6GbHiWzIdzbrAMqV26L57jHH518Ttc+O9F+f35zk3c6r/D + +3M4d+U/6O49jx841GIdPntCeG0KqQXQgSvUvTxGPnDywhnQUi+46Ofh9r278jG7DB84cGsI70SVKrkX + FzTo8NpmAwKqEvDB2ZM41dONgMp4LGzUI2j1UpTtq5eAR77+zOKhyKEJ0JWrlJZ64pvL38tLEzksSU3l + cq/fXQdapBwMqZteI0FF+CjOATSLsObQDrR8/g/QTDKd+RG4LeTfH/33KTNg6VAOhaej0rwRWJskL+36 + 7CC+vdKDu/f7MCr5BTjkBsmicWVAwTLuBZEyNye4Ag+zd5d/uYqffv0Zh7o/wfHvvkQne/Wv3nPyLeH9 + 8BxaVSkleuDYt6flRbGym1eC4lVQFWgGq9RBG4iphnBs+KAZmz5qw8qOzTh76QK+v9qLqv2NaDjahpqD + 27H3yw/lG51ff2rJ4fA+dOeiofgpWLzVKC/efzjAVeqLcVrfYW0xVR8O55yXQZpnQGGjQdMIVQe2YOfJ + DpAbh1SczSDJVGKZQjqiaASgYBtKfE6GxLJ0rW/yP6FkD5l9zID2WQHsYQQ2dA552H3pPHt4CSutPfxn + p3yj86zwUOZwCJD3oOTnEbUxW15q+PgdZpLLnMN+jEn5qyRvC7VNzPSHu9Gcw/Ocw+4Tgzk8PJjDT3GG + W0QskcMxaeaisQC6FIZiNBfN9ds35CVarEL5301lbWxfB3rNdahK83+/SltFlXqbq9Sfq7RkZJVaqI0B + x+X4IWhNEn65cwttXzDZxtljxvI4SdCCmB2zAzCJQykAXWQfhpr6sPGP+nCjBBR9KD1UWeVQMI0oGmeD + GrZZvlAUajApJwA+lQlI2GxkxomDExeKALTjuTiMaXrNTNPHTMOtMMg0TORiibZ5okrFV4wnR32wiUuL + +DdzqQ0T8VPJM+UgVnHDC0AFk7fgUtssP/CQBb1ij78d34v3zhwDzZ8gzylegbC6NAkocm3O4RDTjJwW + w+chV6e5LUTjK/IEeYfAOV8NZx7UlKDEzhMdeJ8LhhZNkeeU6InYjTmDgE9Q2xPjiUMqAFmXjACch3E8 + gL0KY3C7/y4e/PYQ/Q+GBq/YP+Szew8GzCfmebiM56FDgXr4xGdTFTGoFeDvDWDbNB858fsG7pmfZCCe + 9qKFrNcjHspy4osiTPQ8QgFrhKZZbKVp1HI8CeIWoXLKH9I01hJDahoG9K5gTcOaReqYEVrGYlLTFEZ0 + MYEYKHXXG5TfXsdSsUaqtvhtRlZt2U0vCdVWFnvDndnepNqCeDQFYbxUbS/JamXyNqm2jLms0ixKzWR2 + rNYsv59O8aapFtW2uKmIhXC1NKFLje+uo4qOTZTbsprm1+eMMbavnZ2xs3KhZlCXLumZMUyXzmZd6m/W + peGsQ4Ue1bA+tWhTDevSIHreoksFoFDdGS0rpfLW8l63u5aS31pOEeszqWJ/A606sIWWsRIXynv53vqx + +pba6dFrM1PV1UllydvKbJK3ltKLlYvIQffynwNyXv+PBvofzgNyIxLbwtkAAAAASUVORK5CYII= + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index ef3d5ede..810bba61 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -743,5 +743,11 @@ Public Class frmRechnungenSuche Me.Cursor = Cursors.Default End Sub - + Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click + If DataGridView.SelectedRows.Count = 0 Then Exit Sub + Dim RG_TMP As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(DataGridView.SelectedRows(0).Cells("RK_ID").Value) + If RG_TMP.Sammelrechnung <> 0 Then + cFakturierung.doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelTransFerry360(RG_TMP.RechnungsNr, RG_TMP.DruckDatumZeit, 3, "", "") + End If + End Sub End Class \ No newline at end of file diff --git a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb index 5ced2086..dfa3cc12 100644 --- a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb +++ b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb @@ -29,6 +29,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck Me.txtAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtSendungsdetails = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtPackstuecke = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() @@ -170,8 +171,8 @@ Partial Public Class rptSammelRechnungAnlagenDruck ' 'Detail ' - Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblPosNr, Me.lblDatum, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.Line10, Me.Line11, Me.txtKdAuftragsnummer, Me.txtAbfertigungsart, Me.txtSendungsdetails, Me.txtPackstuecke}) - Me.Detail.Height = 0.4037949! + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblPosNr, Me.lblDatum, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.Line10, Me.Line11, Me.txtKdAuftragsnummer, Me.txtAbfertigungsart, Me.txtSendungsdetails, Me.txtPackstuecke, Me.SubReport}) + Me.Detail.Height = 0.4247707! Me.Detail.KeepTogether = True Me.Detail.Name = "Detail" ' @@ -252,12 +253,12 @@ Partial Public Class rptSammelRechnungAnlagenDruck 'txtKdAuftragsnummer ' Me.txtKdAuftragsnummer.Height = 0.1141732! - Me.txtKdAuftragsnummer.Left = 0.01417321! + Me.txtKdAuftragsnummer.Left = 0.01417323! Me.txtKdAuftragsnummer.Name = "txtKdAuftragsnummer" Me.txtKdAuftragsnummer.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtKdAuftragsnummer.Style = "font-size: 9pt; ddo-char-set: 1" Me.txtKdAuftragsnummer.Text = "-" - Me.txtKdAuftragsnummer.Top = 0.1574803! + Me.txtKdAuftragsnummer.Top = 0.1771654! Me.txtKdAuftragsnummer.Width = 2.134252! ' 'txtAbfertigungsart @@ -279,7 +280,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck Me.txtSendungsdetails.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtSendungsdetails.Style = "color: DimGray; font-size: 8pt; ddo-char-set: 1" Me.txtSendungsdetails.Text = "-" - Me.txtSendungsdetails.Top = 0.2716536! + Me.txtSendungsdetails.Top = 0.2913387! Me.txtSendungsdetails.Width = 4.85748! ' 'txtPackstuecke @@ -290,9 +291,20 @@ Partial Public Class rptSammelRechnungAnlagenDruck Me.txtPackstuecke.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtPackstuecke.Style = "color: Black; font-size: 8pt; ddo-char-set: 1" Me.txtPackstuecke.Text = "-" - Me.txtPackstuecke.Top = 0.1574803! + Me.txtPackstuecke.Top = 0.1771654! Me.txtPackstuecke.Width = 4.857481! ' + 'SubReport + ' + Me.SubReport.CloseBorder = False + Me.SubReport.Height = 0.007874016! + Me.SubReport.Left = 2.208662! + Me.SubReport.Name = "SubReport" + Me.SubReport.Report = Nothing + Me.SubReport.ReportName = "SubReport1" + Me.SubReport.Top = 0.3893701! + Me.SubReport.Width = 4.857481! + ' 'PageFooter ' Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer}) @@ -1307,4 +1319,5 @@ Partial Public Class rptSammelRechnungAnlagenDruck Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents txtPackstuecke As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents lblRechnung_Land As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport End Class diff --git a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.vb b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.vb index e77769fb..da8f2116 100644 --- a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.vb +++ b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.vb @@ -2,7 +2,7 @@ Imports GrapeCity.ActiveReports Imports GrapeCity.ActiveReports.Document Public Class rptSammelRechnungAnlagenDruck - Dim _LAN = "" + Public _LAN = "" Sub New() InitializeComponent() End Sub diff --git a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.Designer.vb b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.Designer.vb new file mode 100644 index 00000000..2d8f2608 --- /dev/null +++ b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.Designer.vb @@ -0,0 +1,165 @@ + +Partial Public Class rptSammelRechnungAnlagenDruck_Leistungen + Inherits GrapeCity.ActiveReports.SectionReport + + 'Form overrides dispose to clean up the component list. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + End If + MyBase.Dispose(disposing) + End Sub + + 'NOTE: The following procedure is required by the ActiveReports Designer + 'It can be modified using the ActiveReports Designer. + 'Do not modify it using the code editor. + Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader + Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter + + Private Sub InitializeComponent() + Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptSammelRechnungAnlagenDruck_Leistungen)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.lblSteuerfrei = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerpflichtig = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() + CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'PageHeader + ' + Me.PageHeader.Height = 0! + Me.PageHeader.Name = "PageHeader" + ' + 'Detail + ' + Me.Detail.CanGrow = False + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtAbfertigungsart}) + Me.Detail.Height = 0.1338583! + Me.Detail.KeepTogether = True + Me.Detail.Name = "Detail" + ' + 'lblSteuerfrei + ' + Me.lblSteuerfrei.Height = 0.1338583! + Me.lblSteuerfrei.HyperLink = Nothing + Me.lblSteuerfrei.Left = 3.655119! + Me.lblSteuerfrei.Name = "lblSteuerfrei" + Me.lblSteuerfrei.Style = "color: #202020; font-size: 8pt; font-style: italic; font-weight: normal; text-ali" & + "gn: right; ddo-char-set: 1" + Me.lblSteuerfrei.Text = "999.999,99" + Me.lblSteuerfrei.Top = 0! + Me.lblSteuerfrei.Width = 1.207481! + ' + 'lblSteuerpflichtig + ' + Me.lblSteuerpflichtig.Height = 0.1338583! + Me.lblSteuerpflichtig.HyperLink = Nothing + Me.lblSteuerpflichtig.Left = 2.447638! + Me.lblSteuerpflichtig.Name = "lblSteuerpflichtig" + Me.lblSteuerpflichtig.Style = "color: #202020; font-size: 8pt; font-style: italic; font-weight: normal; text-ali" & + "gn: right; ddo-char-set: 1" + Me.lblSteuerpflichtig.Text = "999.999,99" + Me.lblSteuerpflichtig.Top = 0! + Me.lblSteuerpflichtig.Width = 1.20748! + ' + 'txtAbfertigungsart + ' + Me.txtAbfertigungsart.Height = 0.1338583! + Me.txtAbfertigungsart.Left = 0.005119062! + Me.txtAbfertigungsart.Name = "txtAbfertigungsart" + Me.txtAbfertigungsart.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtAbfertigungsart.Style = "color: #202020; font-size: 8pt; font-style: italic; ddo-char-set: 1" + Me.txtAbfertigungsart.Text = "-" + Me.txtAbfertigungsart.Top = 0! + Me.txtAbfertigungsart.Width = 2.44252! + ' + 'PageFooter + ' + Me.PageFooter.Height = 0! + Me.PageFooter.Name = "PageFooter" + ' + 'GroupHeader4 + ' + Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line4}) + Me.GroupHeader4.Height = 0! + Me.GroupHeader4.KeepTogether = True + Me.GroupHeader4.Name = "GroupHeader4" + ' + 'Line4 + ' + Me.Line4.Height = 0! + Me.Line4.Left = 0.005118111! + Me.Line4.LineColor = System.Drawing.Color.DarkGray + Me.Line4.LineWeight = 1.0! + Me.Line4.Name = "Line4" + Me.Line4.Top = 0! + Me.Line4.Visible = False + Me.Line4.Width = 4.852363! + Me.Line4.X1 = 0.005118111! + Me.Line4.X2 = 4.857481! + Me.Line4.Y1 = 0! + Me.Line4.Y2 = 0! + ' + 'GroupFooter4 + ' + Me.GroupFooter4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line18}) + Me.GroupFooter4.Height = 0.1875001! + Me.GroupFooter4.Name = "GroupFooter4" + ' + 'Line18 + ' + Me.Line18.Height = 0! + Me.Line18.Left = 0.03444719! + Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer)) + Me.Line18.LineWeight = 1.0! + Me.Line18.Name = "Line18" + Me.Line18.Top = 0.09375003! + Me.Line18.Width = 4.852365! + Me.Line18.X1 = 0.03444719! + Me.Line18.X2 = 4.886813! + Me.Line18.Y1 = 0.09375003! + Me.Line18.Y2 = 0.09375003! + ' + 'rptSammelRechnungAnlagenDruck_Leistungen + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.3937008! + Me.PageSettings.Margins.Left = 0.3937008! + Me.PageSettings.Margins.Right = 0.3937008! + Me.PageSettings.Margins.Top = 0.3937008! + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 4.92126! + Me.Sections.Add(Me.PageHeader) + Me.Sections.Add(Me.GroupHeader4) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.GroupFooter4) + Me.Sections.Add(Me.PageFooter) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuerpflichtig As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line +End Class diff --git a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.resx b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.resx new file mode 100644 index 00000000..e8cbd0f3 --- /dev/null +++ b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.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 + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb new file mode 100644 index 00000000..07547d36 --- /dev/null +++ b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb @@ -0,0 +1,56 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class rptSammelRechnungAnlagenDruck_Leistungen + dim _LAN="" + Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing + Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) + ' Dieser Aufruf ist fr den Designer erforderlich. + InitializeComponent() + Me._LAN = _LAN + Me.RECHNUNG = RECHNUNG + ' Fgen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart + If _LAN.replace("DE", "") <> "" Then + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN) + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN) + End If + End Sub + + + Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format + If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then + txtAbfertigungsart.Text = "" + lblSteuerfrei.Text = "" + lblSteuerpflichtig.Text = "" + If Me.Fields.Item("clmnAnzahl") IsNot Nothing AndAlso Me.Fields.Item("clmnAnzahl").Value IsNot Nothing Then txtAbfertigungsart.Text &= Me.Fields.Item("clmnAnzahl").Value.ToString & "x " + If Me.Fields.Item("clmnLeistung") IsNot Nothing AndAlso Me.Fields.Item("clmnLeistung").Value IsNot Nothing Then txtAbfertigungsart.Text &= Me.Fields.Item("clmnLeistung").Value.ToString + If Me.Fields.Item("clmnSteuerfreierBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerfreierBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value) > 0 Then + lblSteuerfrei.Text = CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value.ToString).ToString("N2") + End If + If Me.Fields.Item("clmnSteuerpflichtigerBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value) > 0 Then + lblSteuerpflichtig.Text = CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value.ToString).ToString("N2") + End If + End If + End Sub + + Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart + If RECHNUNG Is Nothing Then Exit Sub + + Dim dt As New DataTable + dt.Columns.Add("clmnLeistung") + dt.Columns.Add("clmnSteuerfreierBetrag") + dt.Columns.Add("clmnSteuerpflichtigerBetrag") + dt.Columns.Add("clmnAnzahl") + + RECHNUNG.ORDER_POSITIONEN() + + For Each POS In RECHNUNG.POSITIONEN + dt.Rows.Add(POS.LeistungsBez, POS.SteuerfreierBetrag, POS.SteuerpflichtigerBetrag, POS.Anzahl) + Next + + Me.DataSource = dt + + End Sub +End Class diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb index 88e19654..b21e3b97 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb @@ -23,21 +23,23 @@ Partial Class usrCntlFaktAbrechnung Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + 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 DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung)) - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Label9 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.pnlTop = New System.Windows.Forms.Panel() Me.Label53 = New System.Windows.Forms.Label() Me.Button13 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button() + Me.Button11 = New System.Windows.Forms.Button() Me.lblDruckaufheben = New System.Windows.Forms.LinkLabel() + Me.cboRgGS = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Panel3 = New System.Windows.Forms.Panel() Me.lblSendungen = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label() @@ -47,14 +49,18 @@ Partial Class usrCntlFaktAbrechnung Me.Label45 = New System.Windows.Forms.Label() Me.Label42 = New System.Windows.Forms.Label() Me.btnDatenLaden = New System.Windows.Forms.Button() + Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblErrFiliale = New System.Windows.Forms.Label() Me.lblErrUnterNr = New System.Windows.Forms.Label() Me.lblAbfNrExists = New System.Windows.Forms.Label() Me.lblAbfNr_Err = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.Label41 = New System.Windows.Forms.Label() + Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label39 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label() Me.lblSB = New System.Windows.Forms.Label() @@ -63,33 +69,65 @@ Partial Class usrCntlFaktAbrechnung Me.lblRechnungsNummer = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() Me.Label54 = New System.Windows.Forms.Label() + Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.rtbHandling = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.Label52 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() + Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label49 = New System.Windows.Forms.Label() + Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label48 = New System.Windows.Forms.Label() + Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label47 = New System.Windows.Forms.Label() Me.pnlAvisierer = New System.Windows.Forms.Panel() Me.Label27 = New System.Windows.Forms.Label() Me.btnAvisiererEuro = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() + Me.txtkdNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label21 = New System.Windows.Forms.Label() + Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton5 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cboAnlage5 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAnlage1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtWarenwertUmrechnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label13 = New System.Windows.Forms.Label() + Me.cboAnlage2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label34 = New System.Windows.Forms.Label() + Me.cboAnlage3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboAnlage6 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label25 = New System.Windows.Forms.Label() + Me.cboAnlage4 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtErfassungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label() + Me.cboRechnungNotiz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.pic = New System.Windows.Forms.PictureBox() + Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblFirma3 = New System.Windows.Forms.Label() Me.lblFirma2 = New System.Windows.Forms.Label() Me.lblFirma1 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() Me.pnlAuftraggeber = New System.Windows.Forms.Panel() Me.btnAuftraggeberEuro = New System.Windows.Forms.Button() + Me.txtkdNrAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAuftraggeberName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label15 = New System.Windows.Forms.Label() + Me.txtAuftragggeberOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAuftragggeberStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtBefoerderungsmittel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() + Me.txtSendungsdaten = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label17 = New System.Windows.Forms.Label() + Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label16 = New System.Windows.Forms.Label() + Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label10 = New System.Windows.Forms.Label() Me.pnlRechnungAn = New System.Windows.Forms.Panel() Me.picKdAuftrInfo = New System.Windows.Forms.PictureBox() @@ -98,41 +136,78 @@ Partial Class usrCntlFaktAbrechnung Me.lblUIDOK = New System.Windows.Forms.Label() Me.lblUIDErr = New System.Windows.Forms.Label() Me.Button6 = New System.Windows.Forms.Button() + Me.cboSammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtRechnungAnName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaRechnungAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label43 = New System.Windows.Forms.Label() + Me.txtRechnungAnUIDKz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblVorauskasse = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() + Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtRechnungAnUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label6 = New System.Windows.Forms.Label() + Me.txtRechnungAnBuKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label3 = New System.Windows.Forms.Label() + Me.txtkdNrRechnungAn = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label7 = New System.Windows.Forms.Label() Me.pnlAbsender = New System.Windows.Forms.Panel() Me.btnAbsenderEuro = New System.Windows.Forms.Button() + Me.txtkdNrAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAbsenderName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsenderOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsenderStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Panel7 = New System.Windows.Forms.Panel() + Me.picVK = New System.Windows.Forms.PictureBox() Me.Button1 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.Label14 = New System.Windows.Forms.Label() + Me.sbLeistung = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Button7 = New System.Windows.Forms.Button() Me.btnVorauskasseAnzeigen = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button() + Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label26 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label() + Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.dgvOffertenSperrliste = New System.Windows.Forms.DataGridView() + Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label18 = New System.Windows.Forms.Label() + Me.lblVK_ZahlungseingangBemerkung = New System.Windows.Forms.Label() + Me.lblVK_Zahlungseingang = New System.Windows.Forms.Label() + Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.pnlEmpfaenger = New System.Windows.Forms.Panel() Me.btnEmpfaengerEuro = New System.Windows.Forms.Button() + Me.txtkdNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfeangerName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label5 = New System.Windows.Forms.Label() + Me.txtEmpfaengerOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfaengerStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnl = New System.Windows.Forms.Panel() + Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten() Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox() - Me.pnlDocs = New System.Windows.Forms.Panel() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.Label51 = New System.Windows.Forms.Label() - Me.PictureBox2 = New System.Windows.Forms.PictureBox() - Me.Label50 = New System.Windows.Forms.Label() - Me.cbxAdmin = New System.Windows.Forms.CheckBox() Me.Label46 = New System.Windows.Forms.Label() - Me.Button11 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() @@ -141,100 +216,25 @@ Partial Class usrCntlFaktAbrechnung Me.Button2 = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button() Me.Label23 = New System.Windows.Forms.Label() + Me.txtSteuersatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerFreierBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label37 = New System.Windows.Forms.Label() Me.Label36 = New System.Windows.Forms.Label() - Me.Label33 = New System.Windows.Forms.Label() - Me.Label35 = New System.Windows.Forms.Label() - Me.Label28 = New System.Windows.Forms.Label() - Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components) - Me.Timer = New System.Windows.Forms.Timer(Me.components) - Me.lblVK_Zahlungseingang = New System.Windows.Forms.Label() - Me.picVK = New System.Windows.Forms.PictureBox() - Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.rtbHandling = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtkdNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton5 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.cboAnlage5 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboAnlage1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtWarenwertUmrechnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboAnlage2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboAnlage3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboAnlage6 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboAnlage4 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtErfassungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboRechnungNotiz = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtkdNrAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAuftraggeberName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAuftragggeberOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAuftragggeberStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtBefoerderungsmittel = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSendungsdaten = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboSammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtRechnungAnName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaRechnungAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnUIDKz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtRechnungAnUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnBuKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtkdNrRechnungAn = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtkdNrAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAbsenderName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsenderOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsenderStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.sbLeistung = New VERAG_PROG_ALLGEMEIN.MySearchBox() - Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtkdNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEmpfeangerName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEmpfaengerOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEmpfaengerStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten() - Me.txtSteuersatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtSteuerFreierBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSteuerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSteuerpflichtigerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label33 = New System.Windows.Forms.Label() + Me.Label35 = New System.Windows.Forms.Label() + Me.Label28 = New System.Windows.Forms.Label() Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.cboRgGS = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lblVK_ZahlungseingangBemerkung = New System.Windows.Forms.Label() + Me.pnlDocs = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Label51 = New System.Windows.Forms.Label() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.Label50 = New System.Windows.Forms.Label() + Me.cbxAdmin = New System.Windows.Forms.CheckBox() + Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components) + Me.Timer = New System.Windows.Forms.Timer(Me.components) Me.pnlTop.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() @@ -247,15 +247,15 @@ Partial Class usrCntlFaktAbrechnung CType(Me.picWarnRgAn, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlAbsender.SuspendLayout() Me.Panel7.SuspendLayout() + CType(Me.picVK, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlEmpfaenger.SuspendLayout() Me.pnl.SuspendLayout() Me.pnlDocs.SuspendLayout() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.picVK, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label9 @@ -285,6 +285,7 @@ Partial Class usrCntlFaktAbrechnung Me.pnlTop.Controls.Add(Me.Label53) Me.pnlTop.Controls.Add(Me.Button13) Me.pnlTop.Controls.Add(Me.Button10) + Me.pnlTop.Controls.Add(Me.Button11) Me.pnlTop.Controls.Add(Me.lblDruckaufheben) Me.pnlTop.Controls.Add(Me.cboRgGS) Me.pnlTop.Controls.Add(Me.Panel3) @@ -324,9 +325,9 @@ Partial Class usrCntlFaktAbrechnung Me.Label53.BackColor = System.Drawing.Color.Red Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label53.ForeColor = System.Drawing.Color.White - Me.Label53.Location = New System.Drawing.Point(481, 2) + Me.Label53.Location = New System.Drawing.Point(484, 2) Me.Label53.Name = "Label53" - Me.Label53.Size = New System.Drawing.Size(227, 49) + Me.Label53.Size = New System.Drawing.Size(224, 49) Me.Label53.TabIndex = 45 Me.Label53.Text = "ACHTUNG:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Es wurde bereits eine Rechnung zu dieser Pos-Nr. erstellt!" Me.Label53.TextAlign = System.Drawing.ContentAlignment.MiddleCenter @@ -336,24 +337,38 @@ Partial Class usrCntlFaktAbrechnung ' Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button13.ForeColor = System.Drawing.Color.White - Me.Button13.Location = New System.Drawing.Point(220, 8) + Me.Button13.Location = New System.Drawing.Point(454, 6) Me.Button13.Name = "Button13" - Me.Button13.Size = New System.Drawing.Size(104, 23) + Me.Button13.Size = New System.Drawing.Size(32, 24) Me.Button13.TabIndex = 28 - Me.Button13.Text = "+ SpedBuch" + Me.Button13.Tag = "+ SpedBuch" + Me.Button13.Text = "+" Me.Button13.UseVisualStyleBackColor = True ' 'Button10 ' Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button10.ForeColor = System.Drawing.Color.White - Me.Button10.Location = New System.Drawing.Point(331, 8) + Me.Button10.Location = New System.Drawing.Point(331, 6) Me.Button10.Name = "Button10" - Me.Button10.Size = New System.Drawing.Size(141, 23) + Me.Button10.Size = New System.Drawing.Size(124, 24) Me.Button10.TabIndex = 15 Me.Button10.Text = "SpedBuch anzeigen" Me.Button10.UseVisualStyleBackColor = True ' + 'Button11 + ' + Me.Button11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button11.ForeColor = System.Drawing.Color.White + Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button11.Location = New System.Drawing.Point(219, 6) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(107, 24) + Me.Button11.TabIndex = 20 + Me.Button11.Text = "Gutschrift aus RG" + Me.Button11.UseVisualStyleBackColor = True + ' 'lblDruckaufheben ' Me.lblDruckaufheben.AutoSize = True @@ -367,6 +382,23 @@ Partial Class usrCntlFaktAbrechnung Me.lblDruckaufheben.Text = "Druck aufheben" Me.lblDruckaufheben.Visible = False ' + 'cboRgGS + ' + Me.cboRgGS._allowedValuesFreiText = Nothing + Me.cboRgGS._allowFreiText = False + Me.cboRgGS._value = "" + Me.cboRgGS.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.cboRgGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboRgGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) + Me.cboRgGS.ForeColor = System.Drawing.Color.White + Me.cboRgGS.FormattingEnabled = True + Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"}) + Me.cboRgGS.Location = New System.Drawing.Point(3, -1) + Me.cboRgGS.Name = "cboRgGS" + Me.cboRgGS.Size = New System.Drawing.Size(211, 33) + Me.cboRgGS.TabIndex = 26 + Me.cboRgGS.Text = "Rechnung" + ' 'Panel3 ' Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -482,6 +514,19 @@ Partial Class usrCntlFaktAbrechnung Me.btnDatenLaden.Text = "Daten laden" Me.btnDatenLaden.UseVisualStyleBackColor = False ' + 'cboSpedBuchUnterNr + ' + Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing + Me.cboSpedBuchUnterNr._allowFreiText = False + Me.cboSpedBuchUnterNr._value = "" + Me.cboSpedBuchUnterNr.DropDownWidth = 350 + Me.cboSpedBuchUnterNr.FormattingEnabled = True + Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48) + Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2) + Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr" + Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21) + Me.cboSpedBuchUnterNr.TabIndex = 5 + ' 'lblErrFiliale ' Me.lblErrFiliale.AutoSize = True @@ -551,6 +596,28 @@ Partial Class usrCntlFaktAbrechnung Me.Label41.Text = "Druck-Datum:" Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtUnterNr + ' + Me.txtUnterNr._DateTimeOnly = False + Me.txtUnterNr._numbersOnly = False + Me.txtUnterNr._numbersOnlyKommastellen = "" + Me.txtUnterNr._Prozent = False + Me.txtUnterNr._ShortDateNew = False + Me.txtUnterNr._ShortDateOnly = False + Me.txtUnterNr._TimeOnly = False + Me.txtUnterNr._value = Nothing + Me.txtUnterNr._Waehrung = False + Me.txtUnterNr._WaehrungZeichen = True + Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtUnterNr.Location = New System.Drawing.Point(417, 48) + Me.txtUnterNr.MaxLineLength = -1 + Me.txtUnterNr.MaxLines_Warning = "" + Me.txtUnterNr.MaxLines_Warning_Label = Nothing + Me.txtUnterNr.Name = "txtUnterNr" + Me.txtUnterNr.ReadOnly = True + Me.txtUnterNr.Size = New System.Drawing.Size(55, 21) + Me.txtUnterNr.TabIndex = 7 + ' 'Label11 ' Me.Label11.AutoSize = True @@ -573,6 +640,41 @@ Partial Class usrCntlFaktAbrechnung Me.Label12.TabIndex = 2 Me.Label12.Text = "UnterNr" ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 280 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(8, 48) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(80, 21) + Me.cboFiliale.TabIndex = 3 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer._DateTimeOnly = False + Me.txtAbfertigungsnummer._numbersOnly = True + Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._Prozent = False + Me.txtAbfertigungsnummer._ShortDateNew = False + Me.txtAbfertigungsnummer._ShortDateOnly = False + Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._value = "" + Me.txtAbfertigungsnummer._Waehrung = False + Me.txtAbfertigungsnummer._WaehrungZeichen = True + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48) + Me.txtAbfertigungsnummer.MaxLength = 8 + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21) + Me.txtAbfertigungsnummer.TabIndex = 4 + ' 'Label39 ' Me.Label39.ForeColor = System.Drawing.Color.White @@ -688,7 +790,7 @@ Partial Class usrCntlFaktAbrechnung Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel1.Location = New System.Drawing.Point(0, 83) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(830, 1130) + Me.Panel1.Size = New System.Drawing.Size(830, 1142) Me.Panel1.TabIndex = 1 ' 'Label54 @@ -701,6 +803,30 @@ Partial Class usrCntlFaktAbrechnung Me.Label54.Text = "Sprache Rechnung:" Me.Label54.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cboRechnungSprache + ' + Me.cboRechnungSprache._allowedValuesFreiText = Nothing + Me.cboRechnungSprache._allowFreiText = False + Me.cboRechnungSprache._value = "" + Me.cboRechnungSprache.FormattingEnabled = True + Me.cboRechnungSprache.Location = New System.Drawing.Point(697, 116) + Me.cboRechnungSprache.Margin = New System.Windows.Forms.Padding(2) + Me.cboRechnungSprache.Name = "cboRechnungSprache" + Me.cboRechnungSprache.Size = New System.Drawing.Size(123, 21) + Me.cboRechnungSprache.TabIndex = 45 + Me.cboRechnungSprache.TabStop = False + ' + 'rtbHandling + ' + Me.rtbHandling.Location = New System.Drawing.Point(552, 954) + Me.rtbHandling.MaxLineLength = -1 + Me.rtbHandling.MaxLines_Warning = "" + Me.rtbHandling.MaxLines_Warning_Label = Nothing + Me.rtbHandling.Name = "rtbHandling" + Me.rtbHandling.Size = New System.Drawing.Size(268, 61) + Me.rtbHandling.TabIndex = 44 + Me.rtbHandling.Text = "" + ' 'Label52 ' Me.Label52.AutoSize = True @@ -727,6 +853,29 @@ Partial Class usrCntlFaktAbrechnung Me.Panel2.Size = New System.Drawing.Size(411, 45) Me.Panel2.TabIndex = 41 ' + 'txtPositionAnzahl + ' + Me.txtPositionAnzahl._DateTimeOnly = False + Me.txtPositionAnzahl._numbersOnly = False + Me.txtPositionAnzahl._numbersOnlyKommastellen = "" + Me.txtPositionAnzahl._Prozent = False + Me.txtPositionAnzahl._ShortDateNew = False + Me.txtPositionAnzahl._ShortDateOnly = False + Me.txtPositionAnzahl._TimeOnly = False + Me.txtPositionAnzahl._value = Nothing + Me.txtPositionAnzahl._Waehrung = False + Me.txtPositionAnzahl._WaehrungZeichen = True + Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black + Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21) + Me.txtPositionAnzahl.MaxLength = 35 + Me.txtPositionAnzahl.MaxLineLength = -1 + Me.txtPositionAnzahl.MaxLines_Warning = "" + Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing + Me.txtPositionAnzahl.Name = "txtPositionAnzahl" + Me.txtPositionAnzahl.ReadOnly = True + Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20) + Me.txtPositionAnzahl.TabIndex = 46 + ' 'Label49 ' Me.Label49.AutoSize = True @@ -737,6 +886,29 @@ Partial Class usrCntlFaktAbrechnung Me.Label49.Text = "Pos.Anz.:" Me.Label49.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtAbfertigungsanzahl + ' + Me.txtAbfertigungsanzahl._DateTimeOnly = False + Me.txtAbfertigungsanzahl._numbersOnly = False + Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = "" + Me.txtAbfertigungsanzahl._Prozent = False + Me.txtAbfertigungsanzahl._ShortDateNew = False + Me.txtAbfertigungsanzahl._ShortDateOnly = False + Me.txtAbfertigungsanzahl._TimeOnly = False + Me.txtAbfertigungsanzahl._value = Nothing + Me.txtAbfertigungsanzahl._Waehrung = False + Me.txtAbfertigungsanzahl._WaehrungZeichen = True + Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3) + Me.txtAbfertigungsanzahl.MaxLength = 35 + Me.txtAbfertigungsanzahl.MaxLineLength = -1 + Me.txtAbfertigungsanzahl.MaxLines_Warning = "" + Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl" + Me.txtAbfertigungsanzahl.ReadOnly = True + Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20) + Me.txtAbfertigungsanzahl.TabIndex = 44 + ' 'Label48 ' Me.Label48.AutoSize = True @@ -747,6 +919,29 @@ Partial Class usrCntlFaktAbrechnung Me.Label48.Text = "Anzahl:" Me.Label48.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtAbfertigungsart + ' + Me.txtAbfertigungsart._DateTimeOnly = False + Me.txtAbfertigungsart._numbersOnly = False + Me.txtAbfertigungsart._numbersOnlyKommastellen = "" + Me.txtAbfertigungsart._Prozent = False + Me.txtAbfertigungsart._ShortDateNew = False + Me.txtAbfertigungsart._ShortDateOnly = False + Me.txtAbfertigungsart._TimeOnly = False + Me.txtAbfertigungsart._value = Nothing + Me.txtAbfertigungsart._Waehrung = False + Me.txtAbfertigungsart._WaehrungZeichen = True + Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3) + Me.txtAbfertigungsart.MaxLength = 35 + Me.txtAbfertigungsart.MaxLineLength = -1 + Me.txtAbfertigungsart.MaxLines_Warning = "" + Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsart.Name = "txtAbfertigungsart" + Me.txtAbfertigungsart.ReadOnly = True + Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20) + Me.txtAbfertigungsart.TabIndex = 42 + ' 'Label47 ' Me.Label47.AutoSize = True @@ -813,1049 +1008,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label2.TabIndex = 5 Me.Label2.Text = "LKW-ID:" ' - 'Label21 - ' - Me.Label21.AutoSize = True - Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label21.Location = New System.Drawing.Point(6, 4) - Me.Label21.Name = "Label21" - Me.Label21.Size = New System.Drawing.Size(82, 15) - Me.Label21.TabIndex = 0 - Me.Label21.Text = "4. Avisierer:" - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label13.Location = New System.Drawing.Point(7, 938) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(57, 13) - Me.Label13.TabIndex = 26 - Me.Label13.Text = "Anlagen:" - Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label34 - ' - Me.Label34.AutoSize = True - Me.Label34.Location = New System.Drawing.Point(7, 417) - Me.Label34.Name = "Label34" - Me.Label34.Size = New System.Drawing.Size(71, 13) - Me.Label34.TabIndex = 40 - Me.Label34.Text = "Umrechnung:" - Me.Label34.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label25 - ' - Me.Label25.AutoSize = True - Me.Label25.Location = New System.Drawing.Point(7, 459) - Me.Label25.Name = "Label25" - Me.Label25.Size = New System.Drawing.Size(49, 13) - Me.Label25.TabIndex = 39 - Me.Label25.Text = "Vermerk:" - Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label24 - ' - Me.Label24.AutoSize = True - Me.Label24.Location = New System.Drawing.Point(421, 379) - Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(79, 13) - Me.Label24.TabIndex = 38 - Me.Label24.Text = "Erfassungs-Nr.:" - Me.Label24.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label22 - ' - Me.Label22.AutoSize = True - Me.Label22.Location = New System.Drawing.Point(8, 1032) - Me.Label22.Name = "Label22" - Me.Label22.Size = New System.Drawing.Size(51, 13) - Me.Label22.TabIndex = 37 - Me.Label22.Text = "Rg-Notiz:" - Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'pic - ' - Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.Verag_AG_Logo_med - Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.pic.Location = New System.Drawing.Point(591, 2) - Me.pic.Margin = New System.Windows.Forms.Padding(2) - Me.pic.Name = "pic" - Me.pic.Size = New System.Drawing.Size(229, 45) - Me.pic.TabIndex = 36 - Me.pic.TabStop = False - ' - 'lblFirma3 - ' - Me.lblFirma3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFirma3.Location = New System.Drawing.Point(589, 99) - Me.lblFirma3.Name = "lblFirma3" - Me.lblFirma3.Size = New System.Drawing.Size(232, 13) - Me.lblFirma3.TabIndex = 4 - Me.lblFirma3.Text = "A 4975 Suben" - Me.lblFirma3.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'lblFirma2 - ' - Me.lblFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFirma2.Location = New System.Drawing.Point(589, 86) - Me.lblFirma2.Name = "lblFirma2" - Me.lblFirma2.Size = New System.Drawing.Size(232, 13) - Me.lblFirma2.TabIndex = 3 - Me.lblFirma2.Text = "Suben 100" - Me.lblFirma2.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'lblFirma1 - ' - Me.lblFirma1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFirma1.Location = New System.Drawing.Point(589, 73) - Me.lblFirma1.Name = "lblFirma1" - Me.lblFirma1.Size = New System.Drawing.Size(232, 13) - Me.lblFirma1.TabIndex = 2 - Me.lblFirma1.Text = "VERAG Spedition AG" - Me.lblFirma1.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label32 - ' - Me.Label32.AutoSize = True - Me.Label32.Location = New System.Drawing.Point(10, 1071) - Me.Label32.Name = "Label32" - Me.Label32.Size = New System.Drawing.Size(31, 13) - Me.Label32.TabIndex = 34 - Me.Label32.Text = "Text:" - Me.Label32.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'pnlAuftraggeber - ' - Me.pnlAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke - Me.pnlAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnlAuftraggeber.Controls.Add(Me.btnAuftraggeberEuro) - Me.pnlAuftraggeber.Controls.Add(Me.txtkdNrAuftraggeber) - Me.pnlAuftraggeber.Controls.Add(Me.kdFirmaAuftraggeber) - Me.pnlAuftraggeber.Controls.Add(Me.txtAuftraggeberName2) - Me.pnlAuftraggeber.Controls.Add(Me.Label15) - Me.pnlAuftraggeber.Controls.Add(Me.txtAuftragggeberOrt) - Me.pnlAuftraggeber.Controls.Add(Me.txtAuftragggeberStrasse) - Me.pnlAuftraggeber.Controls.Add(Me.FlatButton4) - Me.pnlAuftraggeber.Location = New System.Drawing.Point(414, 145) - Me.pnlAuftraggeber.Name = "pnlAuftraggeber" - Me.pnlAuftraggeber.Size = New System.Drawing.Size(415, 110) - Me.pnlAuftraggeber.TabIndex = 7 - ' - 'btnAuftraggeberEuro - ' - Me.btnAuftraggeberEuro.FlatAppearance.BorderSize = 0 - Me.btnAuftraggeberEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAuftraggeberEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold) - Me.btnAuftraggeberEuro.ForeColor = System.Drawing.Color.Silver - Me.btnAuftraggeberEuro.Location = New System.Drawing.Point(7, 59) - Me.btnAuftraggeberEuro.Margin = New System.Windows.Forms.Padding(2) - Me.btnAuftraggeberEuro.Name = "btnAuftraggeberEuro" - Me.btnAuftraggeberEuro.Size = New System.Drawing.Size(50, 38) - Me.btnAuftraggeberEuro.TabIndex = 5 - Me.btnAuftraggeberEuro.TabStop = False - Me.btnAuftraggeberEuro.Text = "€" - Me.btnAuftraggeberEuro.UseVisualStyleBackColor = True - ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label15.Location = New System.Drawing.Point(6, 5) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(109, 15) - Me.Label15.TabIndex = 0 - Me.Label15.Text = "3. Auftraggeber:" - ' - 'Label20 - ' - Me.Label20.AutoSize = True - Me.Label20.Location = New System.Drawing.Point(421, 416) - Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(97, 13) - Me.Label20.TabIndex = 20 - Me.Label20.Text = "Beförderungsmittel:" - Me.Label20.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label19 - ' - Me.Label19.AutoSize = True - Me.Label19.Location = New System.Drawing.Point(421, 397) - Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(44, 13) - Me.Label19.TabIndex = 12 - Me.Label19.Text = "Grenze:" - Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label17 - ' - Me.Label17.AutoSize = True - Me.Label17.Location = New System.Drawing.Point(7, 441) - Me.Label17.Name = "Label17" - Me.Label17.Size = New System.Drawing.Size(85, 13) - Me.Label17.TabIndex = 21 - Me.Label17.Text = "Sendungsdaten:" - Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label16 - ' - Me.Label16.AutoSize = True - Me.Label16.Location = New System.Drawing.Point(7, 398) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(62, 13) - Me.Label16.TabIndex = 13 - Me.Label16.Text = "Warenwert:" - Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(7, 379) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(70, 13) - Me.Label10.TabIndex = 9 - Me.Label10.Text = "Zollbeleg-Nr.:" - Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'pnlRechnungAn - ' - Me.pnlRechnungAn.BackColor = System.Drawing.Color.PapayaWhip - Me.pnlRechnungAn.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnlRechnungAn.Controls.Add(Me.picKdAuftrInfo) - Me.pnlRechnungAn.Controls.Add(Me.lblKdInaktiv) - Me.pnlRechnungAn.Controls.Add(Me.picWarnRgAn) - Me.pnlRechnungAn.Controls.Add(Me.lblUIDOK) - Me.pnlRechnungAn.Controls.Add(Me.lblUIDErr) - Me.pnlRechnungAn.Controls.Add(Me.Button6) - Me.pnlRechnungAn.Controls.Add(Me.cboSammelrechnung) - Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnName2) - Me.pnlRechnungAn.Controls.Add(Me.kdFirmaRechnungAn) - Me.pnlRechnungAn.Controls.Add(Me.FlatButton3) - Me.pnlRechnungAn.Controls.Add(Me.txtKdAuftragsNr) - Me.pnlRechnungAn.Controls.Add(Me.Label43) - Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnUIDKz) - Me.pnlRechnungAn.Controls.Add(Me.lblVorauskasse) - Me.pnlRechnungAn.Controls.Add(Me.Label1) - Me.pnlRechnungAn.Controls.Add(Me.cboRechnungAn) - Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnUIDNr) - Me.pnlRechnungAn.Controls.Add(Me.Label6) - Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnBuKdNr) - Me.pnlRechnungAn.Controls.Add(Me.Label3) - Me.pnlRechnungAn.Controls.Add(Me.txtkdNrRechnungAn) - Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnOrt) - Me.pnlRechnungAn.Controls.Add(Me.Label9) - Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnStrasse) - Me.pnlRechnungAn.Controls.Add(Me.Label7) - Me.pnlRechnungAn.Location = New System.Drawing.Point(0, 0) - Me.pnlRechnungAn.Name = "pnlRechnungAn" - Me.pnlRechnungAn.Size = New System.Drawing.Size(582, 146) - Me.pnlRechnungAn.TabIndex = 0 - ' - 'picKdAuftrInfo - ' - Me.picKdAuftrInfo.BackgroundImage = Global.SDL.My.Resources.Resources.warning2 - Me.picKdAuftrInfo.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picKdAuftrInfo.Location = New System.Drawing.Point(7, 116) - Me.picKdAuftrInfo.Name = "picKdAuftrInfo" - Me.picKdAuftrInfo.Size = New System.Drawing.Size(20, 20) - Me.picKdAuftrInfo.TabIndex = 87 - Me.picKdAuftrInfo.TabStop = False - Me.picKdAuftrInfo.Visible = False - ' - 'lblKdInaktiv - ' - Me.lblKdInaktiv.AutoSize = True - Me.lblKdInaktiv.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) - Me.lblKdInaktiv.ForeColor = System.Drawing.Color.Red - Me.lblKdInaktiv.Location = New System.Drawing.Point(6, 63) - Me.lblKdInaktiv.Name = "lblKdInaktiv" - Me.lblKdInaktiv.Size = New System.Drawing.Size(64, 13) - Me.lblKdInaktiv.TabIndex = 22 - Me.lblKdInaktiv.Text = "INAKTIV !" - Me.lblKdInaktiv.Visible = False - ' - 'picWarnRgAn - ' - Me.picWarnRgAn.BackgroundImage = Global.SDL.My.Resources.Resources.warning2 - Me.picWarnRgAn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picWarnRgAn.Location = New System.Drawing.Point(80, 58) - Me.picWarnRgAn.Name = "picWarnRgAn" - Me.picWarnRgAn.Size = New System.Drawing.Size(20, 20) - Me.picWarnRgAn.TabIndex = 86 - Me.picWarnRgAn.TabStop = False - Me.picWarnRgAn.Visible = False - ' - 'lblUIDOK - ' - Me.lblUIDOK.AutoSize = True - Me.lblUIDOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) - Me.lblUIDOK.ForeColor = System.Drawing.Color.Green - Me.lblUIDOK.Location = New System.Drawing.Point(431, 124) - Me.lblUIDOK.Name = "lblUIDOK" - Me.lblUIDOK.Size = New System.Drawing.Size(104, 13) - Me.lblUIDOK.TabIndex = 21 - Me.lblUIDOK.Text = "UID-Nr. GÜLTIG!" - Me.lblUIDOK.Visible = False - ' - 'lblUIDErr - ' - Me.lblUIDErr.AutoSize = True - Me.lblUIDErr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) - Me.lblUIDErr.ForeColor = System.Drawing.Color.Red - Me.lblUIDErr.Location = New System.Drawing.Point(431, 124) - Me.lblUIDErr.Name = "lblUIDErr" - Me.lblUIDErr.Size = New System.Drawing.Size(122, 13) - Me.lblUIDErr.TabIndex = 8 - Me.lblUIDErr.Text = "UID-Nr. UNGÜLTIG!" - Me.lblUIDErr.Visible = False - ' - 'Button6 - ' - Me.Button6.Enabled = False - Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button6.Location = New System.Drawing.Point(434, 98) - Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(140, 23) - Me.Button6.TabIndex = 15 - Me.Button6.Text = "UID prüfen" - Me.Button6.UseVisualStyleBackColor = True - ' - 'Label43 - ' - Me.Label43.AutoSize = True - Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label43.Location = New System.Drawing.Point(30, 119) - Me.Label43.Name = "Label43" - Me.Label43.Size = New System.Drawing.Size(65, 13) - Me.Label43.TabIndex = 19 - Me.Label43.Text = "Kd-Auftr.Nr.:" - ' - 'lblVorauskasse - ' - Me.lblVorauskasse.AutoSize = True - Me.lblVorauskasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblVorauskasse.Location = New System.Drawing.Point(537, 20) - Me.lblVorauskasse.Name = "lblVorauskasse" - Me.lblVorauskasse.Size = New System.Drawing.Size(37, 13) - Me.lblVorauskasse.TabIndex = 6 - Me.lblVorauskasse.Text = "NEIN" - Me.lblVorauskasse.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(431, 20) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(71, 13) - Me.Label1.TabIndex = 4 - Me.Label1.Text = "Vorauskasse:" - Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.Location = New System.Drawing.Point(431, 59) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(46, 13) - Me.Label6.TabIndex = 12 - Me.Label6.Text = "UID-Nr.:" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(431, 40) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(47, 13) - Me.Label3.TabIndex = 9 - Me.Label3.Text = "BuKdNr:" - ' - 'Label7 - ' - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.Location = New System.Drawing.Point(408, 78) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(167, 13) - Me.Label7.TabIndex = 16 - Me.Label7.Text = "-" - Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'pnlAbsender - ' - Me.pnlAbsender.BackColor = System.Drawing.Color.WhiteSmoke - Me.pnlAbsender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnlAbsender.Controls.Add(Me.btnAbsenderEuro) - Me.pnlAbsender.Controls.Add(Me.txtkdNrAbsender) - Me.pnlAbsender.Controls.Add(Me.kdFirmaAbsender) - Me.pnlAbsender.Controls.Add(Me.txtAbsenderName2) - Me.pnlAbsender.Controls.Add(Me.Label4) - Me.pnlAbsender.Controls.Add(Me.txtAbsenderOrt) - Me.pnlAbsender.Controls.Add(Me.txtAbsenderStrasse) - Me.pnlAbsender.Controls.Add(Me.FlatButton1) - Me.pnlAbsender.Location = New System.Drawing.Point(0, 143) - Me.pnlAbsender.Name = "pnlAbsender" - Me.pnlAbsender.Size = New System.Drawing.Size(415, 110) - Me.pnlAbsender.TabIndex = 5 - ' - 'btnAbsenderEuro - ' - Me.btnAbsenderEuro.FlatAppearance.BorderSize = 0 - Me.btnAbsenderEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAbsenderEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold) - Me.btnAbsenderEuro.ForeColor = System.Drawing.Color.Silver - Me.btnAbsenderEuro.Location = New System.Drawing.Point(7, 59) - Me.btnAbsenderEuro.Margin = New System.Windows.Forms.Padding(2) - Me.btnAbsenderEuro.Name = "btnAbsenderEuro" - Me.btnAbsenderEuro.Size = New System.Drawing.Size(50, 38) - Me.btnAbsenderEuro.TabIndex = 5 - Me.btnAbsenderEuro.TabStop = False - Me.btnAbsenderEuro.Text = "€" - Me.btnAbsenderEuro.UseVisualStyleBackColor = True - ' - 'Panel7 - ' - Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Panel7.BackColor = System.Drawing.Color.WhiteSmoke - Me.Panel7.Controls.Add(Me.picVK) - Me.Panel7.Controls.Add(Me.Button1) - Me.Panel7.Controls.Add(Me.Button12) - Me.Panel7.Controls.Add(Me.Label14) - Me.Panel7.Controls.Add(Me.sbLeistung) - Me.Panel7.Controls.Add(Me.Button7) - Me.Panel7.Controls.Add(Me.btnVorauskasseAnzeigen) - Me.Panel7.Controls.Add(Me.Button5) - Me.Panel7.Controls.Add(Me.btn) - Me.Panel7.Controls.Add(Me.txtUnterNrRef) - Me.Panel7.Controls.Add(Me.cboFilialeRef) - Me.Panel7.Controls.Add(Me.txtAbfertigungsnummerRef) - Me.Panel7.Controls.Add(Me.Label26) - Me.Panel7.Controls.Add(Me.Label31) - Me.Panel7.Controls.Add(Me.Label29) - Me.Panel7.Controls.Add(Me.Label30) - Me.Panel7.Controls.Add(Me.dgvRechnungenPositionen) - Me.Panel7.Controls.Add(Me.dgvOffertenSperrliste) - Me.Panel7.Controls.Add(Me.dgvOfferteDetailsUebersicht) - Me.Panel7.Controls.Add(Me.txtRohmasse) - Me.Panel7.Controls.Add(Me.Label18) - Me.Panel7.Controls.Add(Me.lblVK_ZahlungseingangBemerkung) - Me.Panel7.Controls.Add(Me.lblVK_Zahlungseingang) - Me.Panel7.Location = New System.Drawing.Point(0, 482) - Me.Panel7.Name = "Panel7" - Me.Panel7.Size = New System.Drawing.Size(828, 453) - Me.Panel7.TabIndex = 27 - ' - 'Button1 - ' - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(456, 3) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(194, 23) - Me.Button1.TabIndex = 25 - Me.Button1.Text = "Alle Leistungen laden (F2)" - Me.Button1.UseVisualStyleBackColor = True - ' - 'Button12 - ' - Me.Button12.BackgroundImage = Global.SDL.My.Resources.Resources.plus - Me.Button12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button12.Location = New System.Drawing.Point(783, 232) - Me.Button12.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) - Me.Button12.Name = "Button12" - Me.Button12.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) - Me.Button12.Size = New System.Drawing.Size(38, 20) - Me.Button12.TabIndex = 16 - Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button12.UseVisualStyleBackColor = True - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.Location = New System.Drawing.Point(562, 236) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(59, 13) - Me.Label14.TabIndex = 15 - Me.Label14.Text = "+ Leistung:" - Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Button7 - ' - Me.Button7.Enabled = False - Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Location = New System.Drawing.Point(280, 3) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(170, 23) - Me.Button7.TabIndex = 13 - Me.Button7.Text = "Leistungen nach KdNr (F1)" - Me.Button7.UseVisualStyleBackColor = True - ' - 'btnVorauskasseAnzeigen - ' - Me.btnVorauskasseAnzeigen.Enabled = False - Me.btnVorauskasseAnzeigen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnVorauskasseAnzeigen.Location = New System.Drawing.Point(220, 232) - Me.btnVorauskasseAnzeigen.Name = "btnVorauskasseAnzeigen" - Me.btnVorauskasseAnzeigen.Size = New System.Drawing.Size(125, 23) - Me.btnVorauskasseAnzeigen.TabIndex = 12 - Me.btnVorauskasseAnzeigen.Text = "Vorauskasse anzeigen" - Me.btnVorauskasseAnzeigen.UseVisualStyleBackColor = True - ' - 'Button5 - ' - Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Location = New System.Drawing.Point(89, 3) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(126, 23) - Me.Button5.TabIndex = 11 - Me.Button5.Text = "Offerten bearbeiten" - Me.Button5.UseVisualStyleBackColor = True - ' - 'btn - ' - Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Location = New System.Drawing.Point(656, 3) - Me.btn.Name = "btn" - Me.btn.Size = New System.Drawing.Size(165, 23) - Me.btn.TabIndex = 10 - Me.btn.Text = "ZOLL / EUST Daten (F3)" - Me.btn.UseVisualStyleBackColor = True - ' - 'Label26 - ' - Me.Label26.AutoSize = True - Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Label26.ForeColor = System.Drawing.Color.Black - Me.Label26.Location = New System.Drawing.Point(288, 56) - Me.Label26.Name = "Label26" - Me.Label26.Size = New System.Drawing.Size(53, 13) - Me.Label26.TabIndex = 9 - Me.Label26.Text = "Referenz:" - Me.Label26.Visible = False - ' - 'Label31 - ' - Me.Label31.AutoSize = True - Me.Label31.Location = New System.Drawing.Point(7, 242) - Me.Label31.Name = "Label31" - Me.Label31.Size = New System.Drawing.Size(117, 13) - Me.Label31.TabIndex = 4 - Me.Label31.Text = "Rechnungs-Positionen:" - Me.Label31.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label29 - ' - Me.Label29.AutoSize = True - Me.Label29.Location = New System.Drawing.Point(7, 13) - Me.Label29.Name = "Label29" - Me.Label29.Size = New System.Drawing.Size(76, 13) - Me.Label29.TabIndex = 0 - Me.Label29.Text = "Kunden-Offert:" - Me.Label29.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label30 - ' - Me.Label30.AutoSize = True - Me.Label30.Location = New System.Drawing.Point(217, 13) - Me.Label30.Name = "Label30" - Me.Label30.Size = New System.Drawing.Size(59, 13) - Me.Label30.TabIndex = 1 - Me.Label30.Text = "Positionen:" - Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'dgvOffertenSperrliste - ' - Me.dgvOffertenSperrliste.AllowUserToAddRows = False - Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False - Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True - Me.dgvOffertenSperrliste.AllowUserToResizeRows = False - Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White - Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvOffertenSperrliste.Location = New System.Drawing.Point(11, 29) - Me.dgvOffertenSperrliste.MultiSelect = False - Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" - Me.dgvOffertenSperrliste.ReadOnly = True - Me.dgvOffertenSperrliste.RowHeadersVisible = False - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.Color.PapayaWhip - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle15 - Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(204, 201) - Me.dgvOffertenSperrliste.TabIndex = 2 - Me.dgvOffertenSperrliste.TabStop = False - ' - 'Label18 - ' - Me.Label18.AutoSize = True - Me.Label18.Location = New System.Drawing.Point(275, 118) - Me.Label18.Name = "Label18" - Me.Label18.Size = New System.Drawing.Size(60, 13) - Me.Label18.TabIndex = 23 - Me.Label18.Text = "Rohmasse:" - Me.Label18.TextAlign = System.Drawing.ContentAlignment.TopRight - Me.Label18.Visible = False - ' - 'pnlEmpfaenger - ' - Me.pnlEmpfaenger.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.pnlEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke - Me.pnlEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnlEmpfaenger.Controls.Add(Me.btnEmpfaengerEuro) - Me.pnlEmpfaenger.Controls.Add(Me.txtkdNrEmpfaenger) - Me.pnlEmpfaenger.Controls.Add(Me.txtEmpfeangerName2) - Me.pnlEmpfaenger.Controls.Add(Me.Label5) - Me.pnlEmpfaenger.Controls.Add(Me.txtEmpfaengerOrt) - Me.pnlEmpfaenger.Controls.Add(Me.txtEmpfaengerStrasse) - Me.pnlEmpfaenger.Controls.Add(Me.kdFirmaEmpfaenger) - Me.pnlEmpfaenger.Controls.Add(Me.FlatButton2) - Me.pnlEmpfaenger.Location = New System.Drawing.Point(0, 252) - Me.pnlEmpfaenger.Name = "pnlEmpfaenger" - Me.pnlEmpfaenger.Size = New System.Drawing.Size(424, 110) - Me.pnlEmpfaenger.TabIndex = 6 - ' - 'btnEmpfaengerEuro - ' - Me.btnEmpfaengerEuro.FlatAppearance.BorderSize = 0 - Me.btnEmpfaengerEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnEmpfaengerEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold) - Me.btnEmpfaengerEuro.ForeColor = System.Drawing.Color.Silver - Me.btnEmpfaengerEuro.Location = New System.Drawing.Point(8, 59) - Me.btnEmpfaengerEuro.Margin = New System.Windows.Forms.Padding(2) - Me.btnEmpfaengerEuro.Name = "btnEmpfaengerEuro" - Me.btnEmpfaengerEuro.Size = New System.Drawing.Size(50, 38) - Me.btnEmpfaengerEuro.TabIndex = 5 - Me.btnEmpfaengerEuro.TabStop = False - Me.btnEmpfaengerEuro.Text = "€" - Me.btnEmpfaengerEuro.UseVisualStyleBackColor = True - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(6, 3) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(97, 15) - Me.Label5.TabIndex = 0 - Me.Label5.Text = "2. Empfänger:" - ' - 'pnl - ' - Me.pnl.BackColor = System.Drawing.Color.Gainsboro - Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnl.Controls.Add(Me.rtbAbf_Besonderheiten) - Me.pnl.Controls.Add(Me.cbxOriginalPrint) - Me.pnl.Controls.Add(Me.pnlDocs) - Me.pnl.Controls.Add(Me.cbxAdmin) - Me.pnl.Controls.Add(Me.Label46) - Me.pnl.Controls.Add(Me.Button11) - Me.pnl.Controls.Add(Me.Button9) - Me.pnl.Controls.Add(Me.Button8) - Me.pnl.Controls.Add(Me.Button4) - Me.pnl.Controls.Add(Me.Button3) - Me.pnl.Controls.Add(Me.Label40) - Me.pnl.Controls.Add(Me.Button2) - Me.pnl.Controls.Add(Me.btnOK) - Me.pnl.Controls.Add(Me.Label23) - Me.pnl.Controls.Add(Me.txtSteuersatz) - Me.pnl.Controls.Add(Me.cboSteuerschlüssel) - Me.pnl.Controls.Add(Me.txtSteuerFreierBetrag) - Me.pnl.Controls.Add(Me.Label37) - Me.pnl.Controls.Add(Me.Label36) - Me.pnl.Controls.Add(Me.txtGesamtsumme) - Me.pnl.Controls.Add(Me.txtSteuerBetrag) - Me.pnl.Controls.Add(Me.txtSteuerpflichtigerBetrag) - Me.pnl.Controls.Add(Me.Label33) - Me.pnl.Controls.Add(Me.Label35) - Me.pnl.Controls.Add(Me.Label28) - Me.pnl.Controls.Add(Me.txtBesonderheiten) - Me.pnl.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnl.Location = New System.Drawing.Point(0, 1213) - Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(830, 139) - Me.pnl.TabIndex = 2 - ' - 'cbxOriginalPrint - ' - Me.cbxOriginalPrint.AutoSize = True - Me.cbxOriginalPrint.Location = New System.Drawing.Point(531, 6) - Me.cbxOriginalPrint.Name = "cbxOriginalPrint" - Me.cbxOriginalPrint.Size = New System.Drawing.Size(134, 17) - Me.cbxOriginalPrint.TabIndex = 28 - Me.cbxOriginalPrint.Text = "Original (ohne ""Kopie"")" - Me.cbxOriginalPrint.UseVisualStyleBackColor = True - Me.cbxOriginalPrint.Visible = False - ' - 'pnlDocs - ' - Me.pnlDocs.Controls.Add(Me.PictureBox1) - Me.pnlDocs.Controls.Add(Me.Label51) - Me.pnlDocs.Controls.Add(Me.PictureBox2) - Me.pnlDocs.Controls.Add(Me.Label50) - Me.pnlDocs.Location = New System.Drawing.Point(264, 113) - Me.pnlDocs.Name = "pnlDocs" - Me.pnlDocs.Size = New System.Drawing.Size(129, 24) - Me.pnlDocs.TabIndex = 27 - Me.pnlDocs.Visible = False - ' - 'PictureBox1 - ' - Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.ok - Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox1.Location = New System.Drawing.Point(19, 2) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(16, 16) - Me.PictureBox1.TabIndex = 23 - Me.PictureBox1.TabStop = False - ' - 'Label51 - ' - Me.Label51.AutoSize = True - Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label51.Location = New System.Drawing.Point(90, 3) - Me.Label51.Name = "Label51" - Me.Label51.Size = New System.Drawing.Size(29, 13) - Me.Label51.TabIndex = 26 - Me.Label51.Text = "VBD" - Me.Label51.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'PictureBox2 - ' - Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.ok - Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox2.Location = New System.Drawing.Point(74, 2) - Me.PictureBox2.Name = "PictureBox2" - Me.PictureBox2.Size = New System.Drawing.Size(16, 16) - Me.PictureBox2.TabIndex = 25 - Me.PictureBox2.TabStop = False - ' - 'Label50 - ' - Me.Label50.AutoSize = True - Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label50.Location = New System.Drawing.Point(35, 3) - Me.Label50.Name = "Label50" - Me.Label50.Size = New System.Drawing.Size(26, 13) - Me.Label50.TabIndex = 24 - Me.Label50.Text = "STB" - Me.Label50.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'cbxAdmin - ' - Me.cbxAdmin.AutoSize = True - Me.cbxAdmin.Location = New System.Drawing.Point(306, 6) - Me.cbxAdmin.Name = "cbxAdmin" - Me.cbxAdmin.Size = New System.Drawing.Size(210, 17) - Me.cbxAdmin.TabIndex = 22 - Me.cbxAdmin.Text = "Admin: Änderung nach Druck erlauben" - Me.cbxAdmin.UseVisualStyleBackColor = True - Me.cbxAdmin.Visible = False - ' - 'Label46 - ' - Me.Label46.AutoSize = True - Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label46.ForeColor = System.Drawing.Color.Green - Me.Label46.Location = New System.Drawing.Point(720, 119) - Me.Label46.Name = "Label46" - Me.Label46.Size = New System.Drawing.Size(73, 13) - Me.Label46.TabIndex = 21 - Me.Label46.Text = "gespeichert" - Me.Label46.TextAlign = System.Drawing.ContentAlignment.TopRight - Me.Label46.Visible = False - ' - 'Button11 - ' - Me.Button11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button11.Location = New System.Drawing.Point(9, 109) - Me.Button11.Name = "Button11" - Me.Button11.Size = New System.Drawing.Size(148, 25) - Me.Button11.TabIndex = 20 - Me.Button11.Text = "Gutschrift aus Rechnung" - Me.Button11.UseVisualStyleBackColor = True - ' - 'Button9 - ' - Me.Button9.BackgroundImage = Global.SDL.My.Resources.Resources.pdf - Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button9.Location = New System.Drawing.Point(671, 26) - Me.Button9.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) - Me.Button9.Name = "Button9" - Me.Button9.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) - Me.Button9.Size = New System.Drawing.Size(50, 25) - Me.Button9.TabIndex = 19 - Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button9.UseVisualStyleBackColor = True - ' - 'Button8 - ' - Me.Button8.BackgroundImage = Global.SDL.My.Resources.Resources.email_big - Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button8.Location = New System.Drawing.Point(720, 26) - Me.Button8.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) - Me.Button8.Name = "Button8" - Me.Button8.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) - Me.Button8.Size = New System.Drawing.Size(50, 25) - Me.Button8.TabIndex = 18 - Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button8.UseVisualStyleBackColor = True - ' - 'Button4 - ' - Me.Button4.BackgroundImage = Global.SDL.My.Resources.Resources.print_rg - Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.Location = New System.Drawing.Point(769, 26) - Me.Button4.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) - Me.Button4.Name = "Button4" - Me.Button4.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) - Me.Button4.Size = New System.Drawing.Size(50, 25) - Me.Button4.TabIndex = 15 - Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button4.UseVisualStyleBackColor = True - ' - 'Button3 - ' - Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button3.Location = New System.Drawing.Point(671, 3) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(148, 25) - Me.Button3.TabIndex = 14 - Me.Button3.Text = "Vorschau" - Me.Button3.UseVisualStyleBackColor = True - ' - 'Label40 - ' - Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) - Me.Label40.ForeColor = System.Drawing.Color.Red - Me.Label40.Location = New System.Drawing.Point(9, 2) - Me.Label40.Name = "Label40" - Me.Label40.Size = New System.Drawing.Size(665, 21) - Me.Label40.TabIndex = 13 - Me.Label40.Text = "ERROR:" - Me.Label40.Visible = False - ' - 'Button2 - ' - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Image = Global.SDL.My.Resources.Resources.del - Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(671, 56) - Me.Button2.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) - Me.Button2.Name = "Button2" - Me.Button2.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) - Me.Button2.Size = New System.Drawing.Size(149, 26) - Me.Button2.TabIndex = 16 - Me.Button2.Text = "Löschen" - Me.Button2.UseVisualStyleBackColor = True - ' - 'btnOK - ' - Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnOK.Image = CType(resources.GetObject("btnOK.Image"), System.Drawing.Image) - Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnOK.Location = New System.Drawing.Point(671, 81) - Me.btnOK.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) - Me.btnOK.Name = "btnOK" - Me.btnOK.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) - Me.btnOK.Size = New System.Drawing.Size(149, 53) - Me.btnOK.TabIndex = 17 - Me.btnOK.Text = "OK" & Global.Microsoft.VisualBasic.ChrW(10) & "(Speichern)" - Me.btnOK.UseVisualStyleBackColor = True - ' - 'Label23 - ' - Me.Label23.AutoSize = True - Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label23.Location = New System.Drawing.Point(390, 32) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(41, 13) - Me.Label23.TabIndex = 2 - Me.Label23.Text = "Steuer:" - ' - 'Label37 - ' - Me.Label37.AutoSize = True - Me.Label37.Location = New System.Drawing.Point(390, 94) - Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(98, 13) - Me.Label37.TabIndex = 9 - Me.Label37.Text = "Steuerfreier Betrag:" - Me.Label37.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label36 - ' - Me.Label36.AutoSize = True - Me.Label36.Location = New System.Drawing.Point(390, 77) - Me.Label36.Name = "Label36" - Me.Label36.Size = New System.Drawing.Size(75, 13) - Me.Label36.TabIndex = 7 - Me.Label36.Text = "Steuer-Betrag:" - Me.Label36.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label33 - ' - Me.Label33.AutoSize = True - Me.Label33.Location = New System.Drawing.Point(390, 59) - Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(120, 13) - Me.Label33.TabIndex = 5 - Me.Label33.Text = "Steuerpflichtiger Betrag:" - Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label35 - ' - Me.Label35.AutoSize = True - Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label35.Location = New System.Drawing.Point(390, 117) - Me.Label35.Name = "Label35" - Me.Label35.Size = New System.Drawing.Size(91, 13) - Me.Label35.TabIndex = 11 - Me.Label35.Text = "Gesamtsumme:" - Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label28 - ' - Me.Label28.AutoSize = True - Me.Label28.Location = New System.Drawing.Point(6, 23) - Me.Label28.Name = "Label28" - Me.Label28.Size = New System.Drawing.Size(157, 13) - Me.Label28.TabIndex = 0 - Me.Label28.Text = "Besonderheiten für Verrechung:" - Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Timer - ' - Me.Timer.Interval = 6000 - ' - 'lblVK_Zahlungseingang - ' - Me.lblVK_Zahlungseingang.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblVK_Zahlungseingang.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.lblVK_Zahlungseingang.Location = New System.Drawing.Point(372, 231) - Me.lblVK_Zahlungseingang.Name = "lblVK_Zahlungseingang" - Me.lblVK_Zahlungseingang.Size = New System.Drawing.Size(203, 18) - Me.lblVK_Zahlungseingang.TabIndex = 26 - Me.lblVK_Zahlungseingang.Text = "TEST" - ' - 'picVK - ' - Me.picVK.BackgroundImage = Global.SDL.My.Resources.Resources.ok - Me.picVK.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picVK.Location = New System.Drawing.Point(347, 234) - Me.picVK.Margin = New System.Windows.Forms.Padding(2) - Me.picVK.Name = "picVK" - Me.picVK.Size = New System.Drawing.Size(22, 21) - Me.picVK.TabIndex = 37 - Me.picVK.TabStop = False - Me.picVK.Visible = False - ' - 'cboRechnungSprache - ' - Me.cboRechnungSprache._allowedValuesFreiText = Nothing - Me.cboRechnungSprache._allowFreiText = False - Me.cboRechnungSprache._value = "" - Me.cboRechnungSprache.FormattingEnabled = True - Me.cboRechnungSprache.Location = New System.Drawing.Point(697, 116) - Me.cboRechnungSprache.Margin = New System.Windows.Forms.Padding(2) - Me.cboRechnungSprache.Name = "cboRechnungSprache" - Me.cboRechnungSprache.Size = New System.Drawing.Size(123, 21) - Me.cboRechnungSprache.TabIndex = 45 - Me.cboRechnungSprache.TabStop = False - ' - 'rtbHandling - ' - Me.rtbHandling.Location = New System.Drawing.Point(552, 954) - Me.rtbHandling.MaxLineLength = -1 - Me.rtbHandling.MaxLines_Warning = "" - Me.rtbHandling.MaxLines_Warning_Label = Nothing - Me.rtbHandling.Name = "rtbHandling" - Me.rtbHandling.Size = New System.Drawing.Size(268, 61) - Me.rtbHandling.TabIndex = 44 - Me.rtbHandling.Text = "" - ' - 'txtPositionAnzahl - ' - Me.txtPositionAnzahl._DateTimeOnly = False - Me.txtPositionAnzahl._numbersOnly = False - Me.txtPositionAnzahl._numbersOnlyKommastellen = "" - Me.txtPositionAnzahl._Prozent = False - Me.txtPositionAnzahl._ShortDateNew = False - Me.txtPositionAnzahl._ShortDateOnly = False - Me.txtPositionAnzahl._TimeOnly = False - Me.txtPositionAnzahl._value = Nothing - Me.txtPositionAnzahl._Waehrung = False - Me.txtPositionAnzahl._WaehrungZeichen = True - Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black - Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21) - Me.txtPositionAnzahl.MaxLength = 35 - Me.txtPositionAnzahl.MaxLineLength = -1 - Me.txtPositionAnzahl.MaxLines_Warning = "" - Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing - Me.txtPositionAnzahl.Name = "txtPositionAnzahl" - Me.txtPositionAnzahl.ReadOnly = True - Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20) - Me.txtPositionAnzahl.TabIndex = 46 - ' - 'txtAbfertigungsanzahl - ' - Me.txtAbfertigungsanzahl._DateTimeOnly = False - Me.txtAbfertigungsanzahl._numbersOnly = False - Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = "" - Me.txtAbfertigungsanzahl._Prozent = False - Me.txtAbfertigungsanzahl._ShortDateNew = False - Me.txtAbfertigungsanzahl._ShortDateOnly = False - Me.txtAbfertigungsanzahl._TimeOnly = False - Me.txtAbfertigungsanzahl._value = Nothing - Me.txtAbfertigungsanzahl._Waehrung = False - Me.txtAbfertigungsanzahl._WaehrungZeichen = True - Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3) - Me.txtAbfertigungsanzahl.MaxLength = 35 - Me.txtAbfertigungsanzahl.MaxLineLength = -1 - Me.txtAbfertigungsanzahl.MaxLines_Warning = "" - Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl" - Me.txtAbfertigungsanzahl.ReadOnly = True - Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20) - Me.txtAbfertigungsanzahl.TabIndex = 44 - ' - 'txtAbfertigungsart - ' - Me.txtAbfertigungsart._DateTimeOnly = False - Me.txtAbfertigungsart._numbersOnly = False - Me.txtAbfertigungsart._numbersOnlyKommastellen = "" - Me.txtAbfertigungsart._Prozent = False - Me.txtAbfertigungsart._ShortDateNew = False - Me.txtAbfertigungsart._ShortDateOnly = False - Me.txtAbfertigungsart._TimeOnly = False - Me.txtAbfertigungsart._value = Nothing - Me.txtAbfertigungsart._Waehrung = False - Me.txtAbfertigungsart._WaehrungZeichen = True - Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3) - Me.txtAbfertigungsart.MaxLength = 35 - Me.txtAbfertigungsart.MaxLineLength = -1 - Me.txtAbfertigungsart.MaxLines_Warning = "" - Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsart.Name = "txtAbfertigungsart" - Me.txtAbfertigungsart.ReadOnly = True - Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20) - Me.txtAbfertigungsart.TabIndex = 42 - ' 'txtkdNrAvisierer ' Me.txtkdNrAvisierer._DateTimeOnly = False @@ -1881,6 +1033,16 @@ Partial Class usrCntlFaktAbrechnung Me.txtkdNrAvisierer.TabIndex = 1 Me.txtkdNrAvisierer.TabStop = False ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label21.Location = New System.Drawing.Point(6, 4) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(82, 15) + Me.Label21.TabIndex = 0 + Me.Label21.Text = "4. Avisierer:" + ' 'txtAvisoId ' Me.txtAvisoId._DateTimeOnly = False @@ -2002,6 +1164,17 @@ Partial Class usrCntlFaktAbrechnung Me.txtWarenwertUmrechnung.TabIndex = 18 Me.txtWarenwertUmrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(7, 938) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(57, 13) + Me.Label13.TabIndex = 26 + Me.Label13.Text = "Anlagen:" + Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'cboAnlage2 ' Me.cboAnlage2._allowedValuesFreiText = Nothing @@ -2016,6 +1189,16 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage2.Size = New System.Drawing.Size(266, 21) Me.cboAnlage2.TabIndex = 29 ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.Location = New System.Drawing.Point(7, 417) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(71, 13) + Me.Label34.TabIndex = 40 + Me.Label34.Text = "Umrechnung:" + Me.Label34.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'cboAnlage3 ' Me.cboAnlage3._allowedValuesFreiText = Nothing @@ -2066,6 +1249,16 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage6.Size = New System.Drawing.Size(266, 21) Me.cboAnlage6.TabIndex = 33 ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(7, 459) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(49, 13) + Me.Label25.TabIndex = 39 + Me.Label25.Text = "Vermerk:" + Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'cboAnlage4 ' Me.cboAnlage4._allowedValuesFreiText = Nothing @@ -2102,6 +1295,26 @@ Partial Class usrCntlFaktAbrechnung Me.txtErfassungsnummer.Size = New System.Drawing.Size(305, 20) Me.txtErfassungsnummer.TabIndex = 11 ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(421, 379) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(79, 13) + Me.Label24.TabIndex = 38 + Me.Label24.Text = "Erfassungs-Nr.:" + Me.Label24.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(8, 1032) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(51, 13) + Me.Label22.TabIndex = 37 + Me.Label22.Text = "Rg-Notiz:" + Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'cboRechnungNotiz ' Me.cboRechnungNotiz._allowedValuesFreiText = Nothing @@ -2113,6 +1326,17 @@ Partial Class usrCntlFaktAbrechnung Me.cboRechnungNotiz.Size = New System.Drawing.Size(718, 21) Me.cboRechnungNotiz.TabIndex = 36 ' + 'pic + ' + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.Verag_AG_Logo_med + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Location = New System.Drawing.Point(591, 2) + Me.pic.Margin = New System.Windows.Forms.Padding(2) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(229, 45) + Me.pic.TabIndex = 36 + Me.pic.TabStop = False + ' 'cboFirma ' Me.cboFirma._allowedValuesFreiText = Nothing @@ -2126,6 +1350,78 @@ Partial Class usrCntlFaktAbrechnung Me.cboFirma.TabIndex = 1 Me.cboFirma.TabStop = False ' + 'lblFirma3 + ' + Me.lblFirma3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFirma3.Location = New System.Drawing.Point(589, 99) + Me.lblFirma3.Name = "lblFirma3" + Me.lblFirma3.Size = New System.Drawing.Size(232, 13) + Me.lblFirma3.TabIndex = 4 + Me.lblFirma3.Text = "A 4975 Suben" + Me.lblFirma3.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'lblFirma2 + ' + Me.lblFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFirma2.Location = New System.Drawing.Point(589, 86) + Me.lblFirma2.Name = "lblFirma2" + Me.lblFirma2.Size = New System.Drawing.Size(232, 13) + Me.lblFirma2.TabIndex = 3 + Me.lblFirma2.Text = "Suben 100" + Me.lblFirma2.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'lblFirma1 + ' + Me.lblFirma1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFirma1.Location = New System.Drawing.Point(589, 73) + Me.lblFirma1.Name = "lblFirma1" + Me.lblFirma1.Size = New System.Drawing.Size(232, 13) + Me.lblFirma1.TabIndex = 2 + Me.lblFirma1.Text = "VERAG Spedition AG" + Me.lblFirma1.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Location = New System.Drawing.Point(10, 1071) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(31, 13) + Me.Label32.TabIndex = 34 + Me.Label32.Text = "Text:" + Me.Label32.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'pnlAuftraggeber + ' + Me.pnlAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnlAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlAuftraggeber.Controls.Add(Me.btnAuftraggeberEuro) + Me.pnlAuftraggeber.Controls.Add(Me.txtkdNrAuftraggeber) + Me.pnlAuftraggeber.Controls.Add(Me.kdFirmaAuftraggeber) + Me.pnlAuftraggeber.Controls.Add(Me.txtAuftraggeberName2) + Me.pnlAuftraggeber.Controls.Add(Me.Label15) + Me.pnlAuftraggeber.Controls.Add(Me.txtAuftragggeberOrt) + Me.pnlAuftraggeber.Controls.Add(Me.txtAuftragggeberStrasse) + Me.pnlAuftraggeber.Controls.Add(Me.FlatButton4) + Me.pnlAuftraggeber.Location = New System.Drawing.Point(414, 145) + Me.pnlAuftraggeber.Name = "pnlAuftraggeber" + Me.pnlAuftraggeber.Size = New System.Drawing.Size(415, 110) + Me.pnlAuftraggeber.TabIndex = 7 + ' + 'btnAuftraggeberEuro + ' + Me.btnAuftraggeberEuro.FlatAppearance.BorderSize = 0 + Me.btnAuftraggeberEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAuftraggeberEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold) + Me.btnAuftraggeberEuro.ForeColor = System.Drawing.Color.Silver + Me.btnAuftraggeberEuro.Location = New System.Drawing.Point(7, 59) + Me.btnAuftraggeberEuro.Margin = New System.Windows.Forms.Padding(2) + Me.btnAuftraggeberEuro.Name = "btnAuftraggeberEuro" + Me.btnAuftraggeberEuro.Size = New System.Drawing.Size(50, 38) + Me.btnAuftraggeberEuro.TabIndex = 5 + Me.btnAuftraggeberEuro.TabStop = False + Me.btnAuftraggeberEuro.Text = "€" + Me.btnAuftraggeberEuro.UseVisualStyleBackColor = True + ' 'txtkdNrAuftraggeber ' Me.txtkdNrAuftraggeber._DateTimeOnly = False @@ -2205,6 +1501,16 @@ Partial Class usrCntlFaktAbrechnung Me.txtAuftraggeberName2.TabIndex = 4 Me.txtAuftraggeberName2.TabStop = False ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.Location = New System.Drawing.Point(6, 5) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(109, 15) + Me.Label15.TabIndex = 0 + Me.Label15.Text = "3. Auftraggeber:" + ' 'txtAuftragggeberOrt ' Me.txtAuftragggeberOrt._DateTimeOnly = False @@ -2323,6 +1629,26 @@ Partial Class usrCntlFaktAbrechnung Me.txtGrenze.Size = New System.Drawing.Size(305, 20) Me.txtGrenze.TabIndex = 16 ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(421, 416) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(97, 13) + Me.Label20.TabIndex = 20 + Me.Label20.Text = "Beförderungsmittel:" + Me.Label20.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(421, 397) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(44, 13) + Me.Label19.TabIndex = 12 + Me.Label19.Text = "Grenze:" + Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'txtSendungsdaten ' Me.txtSendungsdaten._DateTimeOnly = False @@ -2345,6 +1671,16 @@ Partial Class usrCntlFaktAbrechnung Me.txtSendungsdaten.Size = New System.Drawing.Size(305, 20) Me.txtSendungsdaten.TabIndex = 22 ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(7, 441) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(85, 13) + Me.Label17.TabIndex = 21 + Me.Label17.Text = "Sendungsdaten:" + Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'txtWarenwert ' Me.txtWarenwert._DateTimeOnly = False @@ -2368,6 +1704,16 @@ Partial Class usrCntlFaktAbrechnung Me.txtWarenwert.TabIndex = 15 Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(7, 398) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(62, 13) + Me.Label16.TabIndex = 13 + Me.Label16.Text = "Warenwert:" + Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'txtZollbelegNr ' Me.txtZollbelegNr._DateTimeOnly = False @@ -2390,6 +1736,119 @@ Partial Class usrCntlFaktAbrechnung Me.txtZollbelegNr.Size = New System.Drawing.Size(305, 20) Me.txtZollbelegNr.TabIndex = 10 ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(7, 379) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(70, 13) + Me.Label10.TabIndex = 9 + Me.Label10.Text = "Zollbeleg-Nr.:" + Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'pnlRechnungAn + ' + Me.pnlRechnungAn.BackColor = System.Drawing.Color.PapayaWhip + Me.pnlRechnungAn.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlRechnungAn.Controls.Add(Me.picKdAuftrInfo) + Me.pnlRechnungAn.Controls.Add(Me.lblKdInaktiv) + Me.pnlRechnungAn.Controls.Add(Me.picWarnRgAn) + Me.pnlRechnungAn.Controls.Add(Me.lblUIDOK) + Me.pnlRechnungAn.Controls.Add(Me.lblUIDErr) + Me.pnlRechnungAn.Controls.Add(Me.Button6) + Me.pnlRechnungAn.Controls.Add(Me.cboSammelrechnung) + Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnName2) + Me.pnlRechnungAn.Controls.Add(Me.kdFirmaRechnungAn) + Me.pnlRechnungAn.Controls.Add(Me.FlatButton3) + Me.pnlRechnungAn.Controls.Add(Me.txtKdAuftragsNr) + Me.pnlRechnungAn.Controls.Add(Me.Label43) + Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnUIDKz) + Me.pnlRechnungAn.Controls.Add(Me.lblVorauskasse) + Me.pnlRechnungAn.Controls.Add(Me.Label1) + Me.pnlRechnungAn.Controls.Add(Me.cboRechnungAn) + Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnUIDNr) + Me.pnlRechnungAn.Controls.Add(Me.Label6) + Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnBuKdNr) + Me.pnlRechnungAn.Controls.Add(Me.Label3) + Me.pnlRechnungAn.Controls.Add(Me.txtkdNrRechnungAn) + Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnOrt) + Me.pnlRechnungAn.Controls.Add(Me.Label9) + Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnStrasse) + Me.pnlRechnungAn.Controls.Add(Me.Label7) + Me.pnlRechnungAn.Location = New System.Drawing.Point(0, 0) + Me.pnlRechnungAn.Name = "pnlRechnungAn" + Me.pnlRechnungAn.Size = New System.Drawing.Size(582, 146) + Me.pnlRechnungAn.TabIndex = 0 + ' + 'picKdAuftrInfo + ' + Me.picKdAuftrInfo.BackgroundImage = Global.SDL.My.Resources.Resources.warning2 + Me.picKdAuftrInfo.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picKdAuftrInfo.Location = New System.Drawing.Point(7, 116) + Me.picKdAuftrInfo.Name = "picKdAuftrInfo" + Me.picKdAuftrInfo.Size = New System.Drawing.Size(20, 20) + Me.picKdAuftrInfo.TabIndex = 87 + Me.picKdAuftrInfo.TabStop = False + Me.picKdAuftrInfo.Visible = False + ' + 'lblKdInaktiv + ' + Me.lblKdInaktiv.AutoSize = True + Me.lblKdInaktiv.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.lblKdInaktiv.ForeColor = System.Drawing.Color.Red + Me.lblKdInaktiv.Location = New System.Drawing.Point(6, 63) + Me.lblKdInaktiv.Name = "lblKdInaktiv" + Me.lblKdInaktiv.Size = New System.Drawing.Size(64, 13) + Me.lblKdInaktiv.TabIndex = 22 + Me.lblKdInaktiv.Text = "INAKTIV !" + Me.lblKdInaktiv.Visible = False + ' + 'picWarnRgAn + ' + Me.picWarnRgAn.BackgroundImage = Global.SDL.My.Resources.Resources.warning2 + Me.picWarnRgAn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picWarnRgAn.Location = New System.Drawing.Point(80, 58) + Me.picWarnRgAn.Name = "picWarnRgAn" + Me.picWarnRgAn.Size = New System.Drawing.Size(20, 20) + Me.picWarnRgAn.TabIndex = 86 + Me.picWarnRgAn.TabStop = False + Me.picWarnRgAn.Visible = False + ' + 'lblUIDOK + ' + Me.lblUIDOK.AutoSize = True + Me.lblUIDOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.lblUIDOK.ForeColor = System.Drawing.Color.Green + Me.lblUIDOK.Location = New System.Drawing.Point(431, 124) + Me.lblUIDOK.Name = "lblUIDOK" + Me.lblUIDOK.Size = New System.Drawing.Size(104, 13) + Me.lblUIDOK.TabIndex = 21 + Me.lblUIDOK.Text = "UID-Nr. GÜLTIG!" + Me.lblUIDOK.Visible = False + ' + 'lblUIDErr + ' + Me.lblUIDErr.AutoSize = True + Me.lblUIDErr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.lblUIDErr.ForeColor = System.Drawing.Color.Red + Me.lblUIDErr.Location = New System.Drawing.Point(431, 124) + Me.lblUIDErr.Name = "lblUIDErr" + Me.lblUIDErr.Size = New System.Drawing.Size(122, 13) + Me.lblUIDErr.TabIndex = 8 + Me.lblUIDErr.Text = "UID-Nr. UNGÜLTIG!" + Me.lblUIDErr.Visible = False + ' + 'Button6 + ' + Me.Button6.Enabled = False + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Location = New System.Drawing.Point(434, 98) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(140, 23) + Me.Button6.TabIndex = 15 + Me.Button6.Text = "UID prüfen" + Me.Button6.UseVisualStyleBackColor = True + ' 'cboSammelrechnung ' Me.cboSammelrechnung._allowedValuesFreiText = Nothing @@ -2489,6 +1948,16 @@ Partial Class usrCntlFaktAbrechnung Me.txtKdAuftragsNr.Size = New System.Drawing.Size(306, 20) Me.txtKdAuftragsNr.TabIndex = 20 ' + 'Label43 + ' + Me.Label43.AutoSize = True + Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label43.Location = New System.Drawing.Point(30, 119) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(65, 13) + Me.Label43.TabIndex = 19 + Me.Label43.Text = "Kd-Auftr.Nr.:" + ' 'txtRechnungAnUIDKz ' Me.txtRechnungAnUIDKz._DateTimeOnly = False @@ -2512,6 +1981,27 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnUIDKz.TabIndex = 18 Me.txtRechnungAnUIDKz.TabStop = False ' + 'lblVorauskasse + ' + Me.lblVorauskasse.AutoSize = True + Me.lblVorauskasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVorauskasse.Location = New System.Drawing.Point(537, 20) + Me.lblVorauskasse.Name = "lblVorauskasse" + Me.lblVorauskasse.Size = New System.Drawing.Size(37, 13) + Me.lblVorauskasse.TabIndex = 6 + Me.lblVorauskasse.Text = "NEIN" + Me.lblVorauskasse.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(431, 20) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(71, 13) + Me.Label1.TabIndex = 4 + Me.Label1.Text = "Vorauskasse:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'cboRechnungAn ' Me.cboRechnungAn._allowedValuesFreiText = Nothing @@ -2546,6 +2036,16 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnUIDNr.TabIndex = 13 Me.txtRechnungAnUIDNr.TabStop = False ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(431, 59) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(46, 13) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "UID-Nr.:" + ' 'txtRechnungAnBuKdNr ' Me.txtRechnungAnBuKdNr._DateTimeOnly = False @@ -2569,6 +2069,16 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnBuKdNr.TabIndex = 10 Me.txtRechnungAnBuKdNr.TabStop = False ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(431, 40) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(47, 13) + Me.Label3.TabIndex = 9 + Me.Label3.Text = "BuKdNr:" + ' 'txtkdNrRechnungAn ' Me.txtkdNrRechnungAn._DateTimeOnly = False @@ -2638,6 +2148,48 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnStrasse.TabIndex = 14 Me.txtRechnungAnStrasse.TabStop = False ' + 'Label7 + ' + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(408, 78) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(167, 13) + Me.Label7.TabIndex = 16 + Me.Label7.Text = "-" + Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'pnlAbsender + ' + Me.pnlAbsender.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnlAbsender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlAbsender.Controls.Add(Me.btnAbsenderEuro) + Me.pnlAbsender.Controls.Add(Me.txtkdNrAbsender) + Me.pnlAbsender.Controls.Add(Me.kdFirmaAbsender) + Me.pnlAbsender.Controls.Add(Me.txtAbsenderName2) + Me.pnlAbsender.Controls.Add(Me.Label4) + Me.pnlAbsender.Controls.Add(Me.txtAbsenderOrt) + Me.pnlAbsender.Controls.Add(Me.txtAbsenderStrasse) + Me.pnlAbsender.Controls.Add(Me.FlatButton1) + Me.pnlAbsender.Location = New System.Drawing.Point(0, 143) + Me.pnlAbsender.Name = "pnlAbsender" + Me.pnlAbsender.Size = New System.Drawing.Size(415, 110) + Me.pnlAbsender.TabIndex = 5 + ' + 'btnAbsenderEuro + ' + Me.btnAbsenderEuro.FlatAppearance.BorderSize = 0 + Me.btnAbsenderEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAbsenderEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold) + Me.btnAbsenderEuro.ForeColor = System.Drawing.Color.Silver + Me.btnAbsenderEuro.Location = New System.Drawing.Point(7, 59) + Me.btnAbsenderEuro.Margin = New System.Windows.Forms.Padding(2) + Me.btnAbsenderEuro.Name = "btnAbsenderEuro" + Me.btnAbsenderEuro.Size = New System.Drawing.Size(50, 38) + Me.btnAbsenderEuro.TabIndex = 5 + Me.btnAbsenderEuro.TabStop = False + Me.btnAbsenderEuro.Text = "€" + Me.btnAbsenderEuro.UseVisualStyleBackColor = True + ' 'txtkdNrAbsender ' Me.txtkdNrAbsender._DateTimeOnly = False @@ -2779,6 +2331,86 @@ Partial Class usrCntlFaktAbrechnung Me.FlatButton1.TabStop = False Me.FlatButton1.UseVisualStyleBackColor = True ' + 'Panel7 + ' + Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel7.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel7.Controls.Add(Me.picVK) + Me.Panel7.Controls.Add(Me.Button1) + Me.Panel7.Controls.Add(Me.Button12) + Me.Panel7.Controls.Add(Me.Label14) + Me.Panel7.Controls.Add(Me.sbLeistung) + Me.Panel7.Controls.Add(Me.Button7) + Me.Panel7.Controls.Add(Me.btnVorauskasseAnzeigen) + Me.Panel7.Controls.Add(Me.Button5) + Me.Panel7.Controls.Add(Me.btn) + Me.Panel7.Controls.Add(Me.txtUnterNrRef) + Me.Panel7.Controls.Add(Me.cboFilialeRef) + Me.Panel7.Controls.Add(Me.txtAbfertigungsnummerRef) + Me.Panel7.Controls.Add(Me.Label26) + Me.Panel7.Controls.Add(Me.Label31) + Me.Panel7.Controls.Add(Me.Label29) + Me.Panel7.Controls.Add(Me.Label30) + Me.Panel7.Controls.Add(Me.dgvRechnungenPositionen) + Me.Panel7.Controls.Add(Me.dgvOffertenSperrliste) + Me.Panel7.Controls.Add(Me.dgvOfferteDetailsUebersicht) + Me.Panel7.Controls.Add(Me.txtRohmasse) + Me.Panel7.Controls.Add(Me.Label18) + Me.Panel7.Controls.Add(Me.lblVK_ZahlungseingangBemerkung) + Me.Panel7.Controls.Add(Me.lblVK_Zahlungseingang) + Me.Panel7.Location = New System.Drawing.Point(0, 482) + Me.Panel7.Name = "Panel7" + Me.Panel7.Size = New System.Drawing.Size(828, 453) + Me.Panel7.TabIndex = 27 + ' + 'picVK + ' + Me.picVK.BackgroundImage = Global.SDL.My.Resources.Resources.ok + Me.picVK.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picVK.Location = New System.Drawing.Point(347, 234) + Me.picVK.Margin = New System.Windows.Forms.Padding(2) + Me.picVK.Name = "picVK" + Me.picVK.Size = New System.Drawing.Size(22, 21) + Me.picVK.TabIndex = 37 + Me.picVK.TabStop = False + Me.picVK.Visible = False + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(456, 3) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(194, 23) + Me.Button1.TabIndex = 25 + Me.Button1.Text = "Alle Leistungen laden (F2)" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button12 + ' + Me.Button12.BackgroundImage = Global.SDL.My.Resources.Resources.plus + Me.Button12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button12.Location = New System.Drawing.Point(783, 232) + Me.Button12.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) + Me.Button12.Name = "Button12" + Me.Button12.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.Button12.Size = New System.Drawing.Size(38, 20) + Me.Button12.TabIndex = 16 + Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button12.UseVisualStyleBackColor = True + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(562, 236) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(59, 13) + Me.Label14.TabIndex = 15 + Me.Label14.Text = "+ Leistung:" + Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'sbLeistung ' Me.sbLeistung._allowFreitext = False @@ -2804,6 +2436,48 @@ Partial Class usrCntlFaktAbrechnung Me.sbLeistung.TabIndex = 14 Me.sbLeistung.usrcntl = Nothing ' + 'Button7 + ' + Me.Button7.Enabled = False + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Location = New System.Drawing.Point(280, 3) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(170, 23) + Me.Button7.TabIndex = 13 + Me.Button7.Text = "Leistungen nach KdNr (F1)" + Me.Button7.UseVisualStyleBackColor = True + ' + 'btnVorauskasseAnzeigen + ' + Me.btnVorauskasseAnzeigen.Enabled = False + Me.btnVorauskasseAnzeigen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVorauskasseAnzeigen.Location = New System.Drawing.Point(220, 232) + Me.btnVorauskasseAnzeigen.Name = "btnVorauskasseAnzeigen" + Me.btnVorauskasseAnzeigen.Size = New System.Drawing.Size(125, 23) + Me.btnVorauskasseAnzeigen.TabIndex = 12 + Me.btnVorauskasseAnzeigen.Text = "Vorauskasse anzeigen" + Me.btnVorauskasseAnzeigen.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Location = New System.Drawing.Point(89, 3) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(126, 23) + Me.Button5.TabIndex = 11 + Me.Button5.Text = "Offerten bearbeiten" + Me.Button5.UseVisualStyleBackColor = True + ' + 'btn + ' + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(656, 3) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(165, 23) + Me.btn.TabIndex = 10 + Me.btn.Text = "ZOLL / EUST Daten (F3)" + Me.btn.UseVisualStyleBackColor = True + ' 'txtUnterNrRef ' Me.txtUnterNrRef._DateTimeOnly = False @@ -2862,6 +2536,48 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbfertigungsnummerRef.TabIndex = 7 Me.txtAbfertigungsnummerRef.Visible = False ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Label26.ForeColor = System.Drawing.Color.Black + Me.Label26.Location = New System.Drawing.Point(288, 56) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(53, 13) + Me.Label26.TabIndex = 9 + Me.Label26.Text = "Referenz:" + Me.Label26.Visible = False + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.Location = New System.Drawing.Point(7, 242) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(117, 13) + Me.Label31.TabIndex = 4 + Me.Label31.Text = "Rechnungs-Positionen:" + Me.Label31.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.Location = New System.Drawing.Point(7, 13) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(76, 13) + Me.Label29.TabIndex = 0 + Me.Label29.Text = "Kunden-Offert:" + Me.Label29.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Location = New System.Drawing.Point(217, 13) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(59, 13) + Me.Label30.TabIndex = 1 + Me.Label30.Text = "Positionen:" + Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'dgvRechnungenPositionen ' Me.dgvRechnungenPositionen.AKTUALISIERUNGS_INTERVALL = -1 @@ -2890,10 +2606,10 @@ Partial Class usrCntlFaktAbrechnung ' 'Anzahl ' - DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle18.Format = "N0" - DataGridViewCellStyle18.NullValue = Nothing - Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle18 + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle1.Format = "N0" + DataGridViewCellStyle1.NullValue = Nothing + Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle1 Me.Anzahl.HeaderText = "Anzahl" Me.Anzahl.Name = "Anzahl" Me.Anzahl.ReadOnly = True @@ -2901,9 +2617,9 @@ Partial Class usrCntlFaktAbrechnung ' 'Preis ' - DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle19.Format = "c2" - Me.Preis.DefaultCellStyle = DataGridViewCellStyle19 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle2.Format = "c2" + Me.Preis.DefaultCellStyle = DataGridViewCellStyle2 Me.Preis.HeaderText = "Preis" Me.Preis.Name = "Preis" Me.Preis.ReadOnly = True @@ -2911,9 +2627,9 @@ Partial Class usrCntlFaktAbrechnung ' 'SteuerpflichtigerBetrag ' - DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle20.Format = "c2" - Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle20 + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle3.Format = "c2" + Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle3 Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl." Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag" Me.SteuerpflichtigerBetrag.ReadOnly = True @@ -2921,10 +2637,10 @@ Partial Class usrCntlFaktAbrechnung ' 'SteuerfreierBetrag ' - DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle21.Format = "C2" - DataGridViewCellStyle21.NullValue = Nothing - Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle21 + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle4.Format = "C2" + DataGridViewCellStyle4.NullValue = Nothing + Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle4 Me.SteuerfreierBetrag.HeaderText = "Steuerfrei" Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag" Me.SteuerfreierBetrag.ReadOnly = True @@ -2937,6 +2653,29 @@ Partial Class usrCntlFaktAbrechnung Me.Aufschubkonto.ReadOnly = True Me.Aufschubkonto.Width = 120 ' + 'dgvOffertenSperrliste + ' + Me.dgvOffertenSperrliste.AllowUserToAddRows = False + Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False + Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True + Me.dgvOffertenSperrliste.AllowUserToResizeRows = False + Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White + Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvOffertenSperrliste.Location = New System.Drawing.Point(11, 29) + Me.dgvOffertenSperrliste.MultiSelect = False + Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" + Me.dgvOffertenSperrliste.ReadOnly = True + Me.dgvOffertenSperrliste.RowHeadersVisible = False + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.Color.PapayaWhip + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle5 + Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(204, 201) + Me.dgvOffertenSperrliste.TabIndex = 2 + Me.dgvOffertenSperrliste.TabStop = False + ' 'dgvOfferteDetailsUebersicht ' Me.dgvOfferteDetailsUebersicht.AKTUALISIERUNGS_INTERVALL = -1 @@ -2944,8 +2683,8 @@ Partial Class usrCntlFaktAbrechnung Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False - DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -2953,10 +2692,10 @@ Partial Class usrCntlFaktAbrechnung Me.dgvOfferteDetailsUebersicht.MultiSelect = False Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False - DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle17.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) - DataGridViewCellStyle17.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle7.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + DataGridViewCellStyle7.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201) Me.dgvOfferteDetailsUebersicht.TabIndex = 3 @@ -2984,6 +2723,36 @@ Partial Class usrCntlFaktAbrechnung Me.txtRohmasse.TabIndex = 24 Me.txtRohmasse.Visible = False ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(275, 118) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(60, 13) + Me.Label18.TabIndex = 23 + Me.Label18.Text = "Rohmasse:" + Me.Label18.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.Label18.Visible = False + ' + 'lblVK_ZahlungseingangBemerkung + ' + Me.lblVK_ZahlungseingangBemerkung.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVK_ZahlungseingangBemerkung.Location = New System.Drawing.Point(372, 244) + Me.lblVK_ZahlungseingangBemerkung.Name = "lblVK_ZahlungseingangBemerkung" + Me.lblVK_ZahlungseingangBemerkung.Size = New System.Drawing.Size(203, 15) + Me.lblVK_ZahlungseingangBemerkung.TabIndex = 38 + Me.lblVK_ZahlungseingangBemerkung.Text = "TEST" + ' + 'lblVK_Zahlungseingang + ' + Me.lblVK_Zahlungseingang.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVK_Zahlungseingang.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.lblVK_Zahlungseingang.Location = New System.Drawing.Point(372, 231) + Me.lblVK_Zahlungseingang.Name = "lblVK_Zahlungseingang" + Me.lblVK_Zahlungseingang.Size = New System.Drawing.Size(203, 18) + Me.lblVK_Zahlungseingang.TabIndex = 26 + Me.lblVK_Zahlungseingang.Text = "TEST" + ' 'cboWaehrung ' Me.cboWaehrung._allowedValuesFreiText = Nothing @@ -3007,6 +2776,40 @@ Partial Class usrCntlFaktAbrechnung Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(47, 21) Me.cboWaehrungUmrechnung.TabIndex = 17 ' + 'pnlEmpfaenger + ' + Me.pnlEmpfaenger.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnlEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnlEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlEmpfaenger.Controls.Add(Me.btnEmpfaengerEuro) + Me.pnlEmpfaenger.Controls.Add(Me.txtkdNrEmpfaenger) + Me.pnlEmpfaenger.Controls.Add(Me.txtEmpfeangerName2) + Me.pnlEmpfaenger.Controls.Add(Me.Label5) + Me.pnlEmpfaenger.Controls.Add(Me.txtEmpfaengerOrt) + Me.pnlEmpfaenger.Controls.Add(Me.txtEmpfaengerStrasse) + Me.pnlEmpfaenger.Controls.Add(Me.kdFirmaEmpfaenger) + Me.pnlEmpfaenger.Controls.Add(Me.FlatButton2) + Me.pnlEmpfaenger.Location = New System.Drawing.Point(0, 252) + Me.pnlEmpfaenger.Name = "pnlEmpfaenger" + Me.pnlEmpfaenger.Size = New System.Drawing.Size(424, 110) + Me.pnlEmpfaenger.TabIndex = 6 + ' + 'btnEmpfaengerEuro + ' + Me.btnEmpfaengerEuro.FlatAppearance.BorderSize = 0 + Me.btnEmpfaengerEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnEmpfaengerEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold) + Me.btnEmpfaengerEuro.ForeColor = System.Drawing.Color.Silver + Me.btnEmpfaengerEuro.Location = New System.Drawing.Point(8, 59) + Me.btnEmpfaengerEuro.Margin = New System.Windows.Forms.Padding(2) + Me.btnEmpfaengerEuro.Name = "btnEmpfaengerEuro" + Me.btnEmpfaengerEuro.Size = New System.Drawing.Size(50, 38) + Me.btnEmpfaengerEuro.TabIndex = 5 + Me.btnEmpfaengerEuro.TabStop = False + Me.btnEmpfaengerEuro.Text = "€" + Me.btnEmpfaengerEuro.UseVisualStyleBackColor = True + ' 'txtkdNrEmpfaenger ' Me.txtkdNrEmpfaenger._DateTimeOnly = False @@ -3056,6 +2859,16 @@ Partial Class usrCntlFaktAbrechnung Me.txtEmpfeangerName2.TabIndex = 4 Me.txtEmpfeangerName2.TabStop = False ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(6, 3) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(97, 15) + Me.Label5.TabIndex = 0 + Me.Label5.Text = "2. Empfänger:" + ' 'txtEmpfaengerOrt ' Me.txtEmpfaengerOrt._DateTimeOnly = False @@ -3148,16 +2961,194 @@ Partial Class usrCntlFaktAbrechnung Me.FlatButton2.TabStop = False Me.FlatButton2.UseVisualStyleBackColor = True ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.Gainsboro + Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.cboSteuerschlüssel) + Me.pnl.Controls.Add(Me.rtbAbf_Besonderheiten) + Me.pnl.Controls.Add(Me.cbxOriginalPrint) + Me.pnl.Controls.Add(Me.Label46) + Me.pnl.Controls.Add(Me.Button9) + Me.pnl.Controls.Add(Me.Button8) + Me.pnl.Controls.Add(Me.Button4) + Me.pnl.Controls.Add(Me.Button3) + Me.pnl.Controls.Add(Me.Label40) + Me.pnl.Controls.Add(Me.Button2) + Me.pnl.Controls.Add(Me.btnOK) + Me.pnl.Controls.Add(Me.Label23) + Me.pnl.Controls.Add(Me.txtSteuersatz) + Me.pnl.Controls.Add(Me.txtSteuerFreierBetrag) + Me.pnl.Controls.Add(Me.Label37) + Me.pnl.Controls.Add(Me.Label36) + Me.pnl.Controls.Add(Me.txtGesamtsumme) + Me.pnl.Controls.Add(Me.txtSteuerBetrag) + Me.pnl.Controls.Add(Me.txtSteuerpflichtigerBetrag) + Me.pnl.Controls.Add(Me.Label33) + Me.pnl.Controls.Add(Me.Label35) + Me.pnl.Controls.Add(Me.Label28) + Me.pnl.Controls.Add(Me.txtBesonderheiten) + Me.pnl.Controls.Add(Me.pnlDocs) + Me.pnl.Controls.Add(Me.cbxAdmin) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl.Location = New System.Drawing.Point(0, 1225) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(830, 153) + Me.pnl.TabIndex = 2 + ' + 'cboSteuerschlüssel + ' + Me.cboSteuerschlüssel._allowedValuesFreiText = Nothing + Me.cboSteuerschlüssel._allowFreiText = False + Me.cboSteuerschlüssel._value = "" + Me.cboSteuerschlüssel.CausesValidation = False + Me.cboSteuerschlüssel.DropDownWidth = 350 + Me.cboSteuerschlüssel.FormattingEnabled = True + Me.cboSteuerschlüssel.Location = New System.Drawing.Point(463, 30) + Me.cboSteuerschlüssel.Name = "cboSteuerschlüssel" + Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21) + Me.cboSteuerschlüssel.TabIndex = 3 + ' 'rtbAbf_Besonderheiten ' Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 39) + Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19) Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten" - Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 52) + Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133) Me.rtbAbf_Besonderheiten.TabIndex = 235 Me.rtbAbf_Besonderheiten.Visible = False ' + 'cbxOriginalPrint + ' + Me.cbxOriginalPrint.AutoSize = True + Me.cbxOriginalPrint.Location = New System.Drawing.Point(535, 6) + Me.cbxOriginalPrint.Name = "cbxOriginalPrint" + Me.cbxOriginalPrint.Size = New System.Drawing.Size(134, 17) + Me.cbxOriginalPrint.TabIndex = 28 + Me.cbxOriginalPrint.Text = "Original (ohne ""Kopie"")" + Me.cbxOriginalPrint.UseVisualStyleBackColor = True + Me.cbxOriginalPrint.Visible = False + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label46.ForeColor = System.Drawing.Color.Green + Me.Label46.Location = New System.Drawing.Point(720, 119) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(73, 13) + Me.Label46.TabIndex = 21 + Me.Label46.Text = "gespeichert" + Me.Label46.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.Label46.Visible = False + ' + 'Button9 + ' + Me.Button9.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button9.Location = New System.Drawing.Point(671, 26) + Me.Button9.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) + Me.Button9.Name = "Button9" + Me.Button9.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.Button9.Size = New System.Drawing.Size(50, 25) + Me.Button9.TabIndex = 19 + Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button9.UseVisualStyleBackColor = True + ' + 'Button8 + ' + Me.Button8.BackgroundImage = Global.SDL.My.Resources.Resources.email_big + Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button8.Location = New System.Drawing.Point(720, 26) + Me.Button8.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) + Me.Button8.Name = "Button8" + Me.Button8.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.Button8.Size = New System.Drawing.Size(50, 25) + Me.Button8.TabIndex = 18 + Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button8.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.BackgroundImage = Global.SDL.My.Resources.Resources.print_rg + Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(769, 26) + Me.Button4.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) + Me.Button4.Name = "Button4" + Me.Button4.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.Button4.Size = New System.Drawing.Size(50, 25) + Me.Button4.TabIndex = 15 + Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button3.Location = New System.Drawing.Point(671, 3) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(148, 25) + Me.Button3.TabIndex = 14 + Me.Button3.Text = "Vorschau" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Label40 + ' + Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.Label40.ForeColor = System.Drawing.Color.Red + Me.Label40.Location = New System.Drawing.Point(417, 134) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(408, 17) + Me.Label40.TabIndex = 13 + Me.Label40.Text = "ERROR:" + Me.Label40.Visible = False + ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Image = Global.SDL.My.Resources.Resources.del + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(671, 56) + Me.Button2.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) + Me.Button2.Name = "Button2" + Me.Button2.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.Button2.Size = New System.Drawing.Size(149, 26) + Me.Button2.TabIndex = 16 + Me.Button2.Text = "Löschen" + Me.Button2.UseVisualStyleBackColor = True + ' + 'btnOK + ' + Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnOK.Image = CType(resources.GetObject("btnOK.Image"), System.Drawing.Image) + Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnOK.Location = New System.Drawing.Point(671, 81) + Me.btnOK.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) + Me.btnOK.Name = "btnOK" + Me.btnOK.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.btnOK.Size = New System.Drawing.Size(149, 53) + Me.btnOK.TabIndex = 17 + Me.btnOK.Text = "OK" & Global.Microsoft.VisualBasic.ChrW(10) & "(Speichern)" + Me.btnOK.UseVisualStyleBackColor = True + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.Location = New System.Drawing.Point(420, 32) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(41, 13) + Me.Label23.TabIndex = 2 + Me.Label23.Text = "Steuer:" + ' 'txtSteuersatz ' Me.txtSteuersatz._DateTimeOnly = False @@ -3183,19 +3174,6 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuersatz.Text = "0,00 %" Me.txtSteuersatz.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'cboSteuerschlüssel - ' - Me.cboSteuerschlüssel._allowedValuesFreiText = Nothing - Me.cboSteuerschlüssel._allowFreiText = False - Me.cboSteuerschlüssel._value = "" - Me.cboSteuerschlüssel.CausesValidation = False - Me.cboSteuerschlüssel.DropDownWidth = 350 - Me.cboSteuerschlüssel.FormattingEnabled = True - Me.cboSteuerschlüssel.Location = New System.Drawing.Point(440, 30) - Me.cboSteuerschlüssel.Name = "cboSteuerschlüssel" - Me.cboSteuerschlüssel.Size = New System.Drawing.Size(165, 21) - Me.cboSteuerschlüssel.TabIndex = 3 - ' 'txtSteuerFreierBetrag ' Me.txtSteuerFreierBetrag._DateTimeOnly = False @@ -3209,16 +3187,36 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuerFreierBetrag._Waehrung = True Me.txtSteuerFreierBetrag._WaehrungZeichen = True Me.txtSteuerFreierBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerFreierBetrag.Location = New System.Drawing.Point(517, 91) + Me.txtSteuerFreierBetrag.Location = New System.Drawing.Point(540, 91) Me.txtSteuerFreierBetrag.MaxLength = 35 Me.txtSteuerFreierBetrag.MaxLineLength = -1 Me.txtSteuerFreierBetrag.MaxLines_Warning = "" Me.txtSteuerFreierBetrag.MaxLines_Warning_Label = Nothing Me.txtSteuerFreierBetrag.Name = "txtSteuerFreierBetrag" Me.txtSteuerFreierBetrag.ReadOnly = True - Me.txtSteuerFreierBetrag.Size = New System.Drawing.Size(147, 20) + Me.txtSteuerFreierBetrag.Size = New System.Drawing.Size(124, 20) Me.txtSteuerFreierBetrag.TabIndex = 10 ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Location = New System.Drawing.Point(419, 94) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(98, 13) + Me.Label37.TabIndex = 9 + Me.Label37.Text = "Steuerfreier Betrag:" + Me.Label37.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.Location = New System.Drawing.Point(419, 77) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(75, 13) + Me.Label36.TabIndex = 7 + Me.Label36.Text = "Steuer-Betrag:" + Me.Label36.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'txtGesamtsumme ' Me.txtGesamtsumme._DateTimeOnly = False @@ -3232,14 +3230,14 @@ Partial Class usrCntlFaktAbrechnung Me.txtGesamtsumme._Waehrung = True Me.txtGesamtsumme._WaehrungZeichen = True Me.txtGesamtsumme.ForeColor = System.Drawing.Color.Black - Me.txtGesamtsumme.Location = New System.Drawing.Point(517, 114) + Me.txtGesamtsumme.Location = New System.Drawing.Point(540, 114) Me.txtGesamtsumme.MaxLength = 35 Me.txtGesamtsumme.MaxLineLength = -1 Me.txtGesamtsumme.MaxLines_Warning = "" Me.txtGesamtsumme.MaxLines_Warning_Label = Nothing Me.txtGesamtsumme.Name = "txtGesamtsumme" Me.txtGesamtsumme.ReadOnly = True - Me.txtGesamtsumme.Size = New System.Drawing.Size(147, 20) + Me.txtGesamtsumme.Size = New System.Drawing.Size(124, 20) Me.txtGesamtsumme.TabIndex = 12 ' 'txtSteuerBetrag @@ -3255,14 +3253,14 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuerBetrag._Waehrung = True Me.txtSteuerBetrag._WaehrungZeichen = True Me.txtSteuerBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerBetrag.Location = New System.Drawing.Point(517, 74) + Me.txtSteuerBetrag.Location = New System.Drawing.Point(540, 74) Me.txtSteuerBetrag.MaxLength = 35 Me.txtSteuerBetrag.MaxLineLength = -1 Me.txtSteuerBetrag.MaxLines_Warning = "" Me.txtSteuerBetrag.MaxLines_Warning_Label = Nothing Me.txtSteuerBetrag.Name = "txtSteuerBetrag" Me.txtSteuerBetrag.ReadOnly = True - Me.txtSteuerBetrag.Size = New System.Drawing.Size(147, 20) + Me.txtSteuerBetrag.Size = New System.Drawing.Size(124, 20) Me.txtSteuerBetrag.TabIndex = 8 ' 'txtSteuerpflichtigerBetrag @@ -3278,122 +3276,127 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuerpflichtigerBetrag._Waehrung = True Me.txtSteuerpflichtigerBetrag._WaehrungZeichen = True Me.txtSteuerpflichtigerBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerpflichtigerBetrag.Location = New System.Drawing.Point(517, 56) + Me.txtSteuerpflichtigerBetrag.Location = New System.Drawing.Point(540, 56) Me.txtSteuerpflichtigerBetrag.MaxLength = 35 Me.txtSteuerpflichtigerBetrag.MaxLineLength = -1 Me.txtSteuerpflichtigerBetrag.MaxLines_Warning = "" Me.txtSteuerpflichtigerBetrag.MaxLines_Warning_Label = Nothing Me.txtSteuerpflichtigerBetrag.Name = "txtSteuerpflichtigerBetrag" Me.txtSteuerpflichtigerBetrag.ReadOnly = True - Me.txtSteuerpflichtigerBetrag.Size = New System.Drawing.Size(147, 20) + Me.txtSteuerpflichtigerBetrag.Size = New System.Drawing.Size(124, 20) Me.txtSteuerpflichtigerBetrag.TabIndex = 6 ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Location = New System.Drawing.Point(419, 59) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(120, 13) + Me.Label33.TabIndex = 5 + Me.Label33.Text = "Steuerpflichtiger Betrag:" + Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label35.Location = New System.Drawing.Point(419, 117) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(91, 13) + Me.Label35.TabIndex = 11 + Me.Label35.Text = "Gesamtsumme:" + Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Location = New System.Drawing.Point(6, 2) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(157, 13) + Me.Label28.TabIndex = 0 + Me.Label28.Text = "Besonderheiten für Verrechung:" + Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'txtBesonderheiten ' - Me.txtBesonderheiten.Location = New System.Drawing.Point(9, 37) + Me.txtBesonderheiten.Location = New System.Drawing.Point(9, 17) Me.txtBesonderheiten.MaxLineLength = -1 Me.txtBesonderheiten.MaxLines_Warning = "" Me.txtBesonderheiten.MaxLines_Warning_Label = Nothing Me.txtBesonderheiten.Name = "txtBesonderheiten" - Me.txtBesonderheiten.Size = New System.Drawing.Size(375, 70) + Me.txtBesonderheiten.Size = New System.Drawing.Size(405, 131) Me.txtBesonderheiten.TabIndex = 1 Me.txtBesonderheiten.Text = "" ' - 'cboRgGS + 'pnlDocs ' - Me.cboRgGS._allowedValuesFreiText = Nothing - Me.cboRgGS._allowFreiText = False - Me.cboRgGS._value = "" - Me.cboRgGS.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.cboRgGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboRgGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) - Me.cboRgGS.ForeColor = System.Drawing.Color.White - Me.cboRgGS.FormattingEnabled = True - Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"}) - Me.cboRgGS.Location = New System.Drawing.Point(3, -1) - Me.cboRgGS.Name = "cboRgGS" - Me.cboRgGS.Size = New System.Drawing.Size(211, 33) - Me.cboRgGS.TabIndex = 26 - Me.cboRgGS.Text = "Rechnung" + Me.pnlDocs.Controls.Add(Me.PictureBox1) + Me.pnlDocs.Controls.Add(Me.Label51) + Me.pnlDocs.Controls.Add(Me.PictureBox2) + Me.pnlDocs.Controls.Add(Me.Label50) + Me.pnlDocs.Location = New System.Drawing.Point(255, -1) + Me.pnlDocs.Name = "pnlDocs" + Me.pnlDocs.Size = New System.Drawing.Size(129, 17) + Me.pnlDocs.TabIndex = 27 + Me.pnlDocs.Visible = False ' - 'cboSpedBuchUnterNr + 'PictureBox1 ' - Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing - Me.cboSpedBuchUnterNr._allowFreiText = False - Me.cboSpedBuchUnterNr._value = "" - Me.cboSpedBuchUnterNr.DropDownWidth = 350 - Me.cboSpedBuchUnterNr.FormattingEnabled = True - Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48) - Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2) - Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr" - Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21) - Me.cboSpedBuchUnterNr.TabIndex = 5 + Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.ok + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Location = New System.Drawing.Point(19, 1) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(16, 16) + Me.PictureBox1.TabIndex = 23 + Me.PictureBox1.TabStop = False ' - 'txtUnterNr + 'Label51 ' - Me.txtUnterNr._DateTimeOnly = False - Me.txtUnterNr._numbersOnly = False - Me.txtUnterNr._numbersOnlyKommastellen = "" - Me.txtUnterNr._Prozent = False - Me.txtUnterNr._ShortDateNew = False - Me.txtUnterNr._ShortDateOnly = False - Me.txtUnterNr._TimeOnly = False - Me.txtUnterNr._value = Nothing - Me.txtUnterNr._Waehrung = False - Me.txtUnterNr._WaehrungZeichen = True - Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtUnterNr.Location = New System.Drawing.Point(417, 48) - Me.txtUnterNr.MaxLineLength = -1 - Me.txtUnterNr.MaxLines_Warning = "" - Me.txtUnterNr.MaxLines_Warning_Label = Nothing - Me.txtUnterNr.Name = "txtUnterNr" - Me.txtUnterNr.ReadOnly = True - Me.txtUnterNr.Size = New System.Drawing.Size(55, 21) - Me.txtUnterNr.TabIndex = 7 + Me.Label51.AutoSize = True + Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label51.Location = New System.Drawing.Point(90, 2) + Me.Label51.Name = "Label51" + Me.Label51.Size = New System.Drawing.Size(29, 13) + Me.Label51.TabIndex = 26 + Me.Label51.Text = "VBD" + Me.Label51.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboFiliale + 'PictureBox2 ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 280 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(8, 48) - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(80, 21) - Me.cboFiliale.TabIndex = 3 + Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.ok + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox2.Location = New System.Drawing.Point(74, 1) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(16, 16) + Me.PictureBox2.TabIndex = 25 + Me.PictureBox2.TabStop = False ' - 'txtAbfertigungsnummer + 'Label50 ' - Me.txtAbfertigungsnummer._DateTimeOnly = False - Me.txtAbfertigungsnummer._numbersOnly = True - Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummer._Prozent = False - Me.txtAbfertigungsnummer._ShortDateNew = False - Me.txtAbfertigungsnummer._ShortDateOnly = False - Me.txtAbfertigungsnummer._TimeOnly = False - Me.txtAbfertigungsnummer._value = "" - Me.txtAbfertigungsnummer._Waehrung = False - Me.txtAbfertigungsnummer._WaehrungZeichen = True - Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48) - Me.txtAbfertigungsnummer.MaxLength = 8 - Me.txtAbfertigungsnummer.MaxLineLength = -1 - Me.txtAbfertigungsnummer.MaxLines_Warning = "" - Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21) - Me.txtAbfertigungsnummer.TabIndex = 4 + Me.Label50.AutoSize = True + Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label50.Location = New System.Drawing.Point(35, 2) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(26, 13) + Me.Label50.TabIndex = 24 + Me.Label50.Text = "STB" + Me.Label50.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'lblVK_ZahlungseingangBemerkung + 'cbxAdmin ' - Me.lblVK_ZahlungseingangBemerkung.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblVK_ZahlungseingangBemerkung.Location = New System.Drawing.Point(372, 244) - Me.lblVK_ZahlungseingangBemerkung.Name = "lblVK_ZahlungseingangBemerkung" - Me.lblVK_ZahlungseingangBemerkung.Size = New System.Drawing.Size(203, 15) - Me.lblVK_ZahlungseingangBemerkung.TabIndex = 38 - Me.lblVK_ZahlungseingangBemerkung.Text = "TEST" + Me.cbxAdmin.AutoSize = True + Me.cbxAdmin.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.cbxAdmin.Location = New System.Drawing.Point(424, 0) + Me.cbxAdmin.Name = "cbxAdmin" + Me.cbxAdmin.Size = New System.Drawing.Size(110, 30) + Me.cbxAdmin.TabIndex = 22 + Me.cbxAdmin.Text = "Admin: Änderung " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "nach Druck erl." + Me.cbxAdmin.UseVisualStyleBackColor = True + Me.cbxAdmin.Visible = False + ' + 'Timer + ' + Me.Timer.Interval = 6000 ' 'usrCntlFaktAbrechnung ' @@ -3405,7 +3408,7 @@ Partial Class usrCntlFaktAbrechnung Me.Controls.Add(Me.pnl) Me.Controls.Add(Me.pnlTop) Me.Name = "usrCntlFaktAbrechnung" - Me.Size = New System.Drawing.Size(830, 1352) + Me.Size = New System.Drawing.Size(830, 1378) Me.pnlTop.ResumeLayout(False) Me.pnlTop.PerformLayout() Me.Panel3.ResumeLayout(False) @@ -3426,7 +3429,10 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAbsender.PerformLayout() Me.Panel7.ResumeLayout(False) Me.Panel7.PerformLayout() + CType(Me.picVK, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlEmpfaenger.ResumeLayout(False) Me.pnlEmpfaenger.PerformLayout() Me.pnl.ResumeLayout(False) @@ -3435,9 +3441,6 @@ Partial Class usrCntlFaktAbrechnung Me.pnlDocs.PerformLayout() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.picVK, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.resx b/SDL/Fakturierung/usrCntlFaktAbrechnung.resx index 10709a66..798fb656 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.resx +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.resx @@ -166,24 +166,6 @@ 109, 17 - - True - - - True - - - True - - - True - - - True - - - True - 28 diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 7244f5b3..78081306 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -555,12 +555,19 @@ Public Class usrCntlFaktAbrechnung initDGVOffertenSperrliste(kdFirmaRechnungAn.KdNr_value) initWarnKd(kdFirmaRechnungAn, picWarnRgAn) + cboRechnungSprache.changeItem("DE") + If kdFirmaRechnungAn.KdData_KUNDE_ERW IsNot Nothing Then + If If(kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_Fakturierung_Sprache, "") <> "" Then + cboRechnungSprache.changeItem(kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_Fakturierung_Sprache) + End If + End If If kdFirmaRechnungAn.KdData_KUNDE_ERW IsNot Nothing AndAlso kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_InfoAuftragsNr IsNot Nothing AndAlso kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_InfoAuftragsNr <> "" Then ToolTip.SetToolTip(picKdAuftrInfo, kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_InfoAuftragsNr) picKdAuftrInfo.Cursor = Cursors.Hand picKdAuftrInfo.Tag = kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_InfoAuftragsNr + Else ToolTip.SetToolTip(picKdAuftrInfo, "") picKdAuftrInfo.Cursor = Cursors.Default @@ -3546,4 +3553,6 @@ Nächste_Textzeile_lesen: Private Sub Label53_Click(sender As Object, e As EventArgs) Handles Label53.Click Label53.Visible = False End Sub + + End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb index f2882312..eda99ea2 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb @@ -482,7 +482,7 @@ Partial Public Class rptDispoHaftListe Me.TextBox8.Name = "TextBox8" Me.TextBox8.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " & "ddo-char-set: 1" - Me.TextBox8.Text = "Abfertigung / Yapilan Islem" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sendungen / Gönderici" + Me.TextBox8.Text = "Abfertigungsart / Zoll-Agent" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Yapilan Islem / Gümrükleme Ajentasi" Me.TextBox8.Top = 4.001182! Me.TextBox8.Width = 1.130709! ' @@ -545,7 +545,7 @@ Partial Public Class rptDispoHaftListe Me.TextBox4.Name = "TextBox4" Me.TextBox4.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " & "ddo-char-set: 1" - Me.TextBox4.Text = "Absender" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anmerkung" + Me.TextBox4.Text = "Absender / Gönderici" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sendungsdaten / Mal bilgileri" Me.TextBox4.Top = 4.001182! Me.TextBox4.Width = 1.511024! ' @@ -802,7 +802,7 @@ Partial Public Class rptDispoHaftListe Me.PageSettings.Margins.Top = 0.1968504! Me.PageSettings.PaperHeight = 11.0! Me.PageSettings.PaperWidth = 8.5! - Me.PrintWidth = 7.981886! + Me.PrintWidth = 7.780266! Me.Sections.Add(Me.ReportHeader1) Me.Sections.Add(Me.PageHeader) Me.Sections.Add(Me.Detail) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb index d4e63d70..c7df97c1 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb @@ -69,6 +69,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtFirma_UNISPED = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.SubReport1 = New GrapeCity.ActiveReports.SectionReportModel.SubReport() + Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtGesColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtGesGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox() @@ -113,6 +114,7 @@ Partial Public Class rptLaufzettelZollDE CType(Me.txtDW, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtFirma_UNISPED, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtGesColli, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).BeginInit() @@ -315,7 +317,7 @@ Partial Public Class rptLaufzettelZollDE ' 'ReportHeader1 ' - Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED, Me.SubReport1}) + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED, Me.SubReport1, Me.TextBox7, Me.txtFirmaInfo_VERAG}) Me.ReportHeader1.Height = 2.227953! Me.ReportHeader1.Name = "ReportHeader1" ' @@ -348,7 +350,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtFirmaInfo_VERAG.Name = "txtFirmaInfo_VERAG" Me.txtFirmaInfo_VERAG.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" Me.txtFirmaInfo_VERAG.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 27 77-20 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +4" & - "3 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " eu@verag.ag" + "3 77 11 / 27 88 quickstop@verag.ag" Me.txtFirmaInfo_VERAG.Top = 0! Me.txtFirmaInfo_VERAG.Width = 6.67165! ' @@ -662,6 +664,18 @@ Partial Public Class rptLaufzettelZollDE Me.SubReport1.Visible = False Me.SubReport1.Width = 7.197245! ' + 'TextBox7 + ' + Me.TextBox7.Height = 0.5000001! + Me.TextBox7.Left = 0.4775591! + Me.TextBox7.Name = "TextBox7" + Me.TextBox7.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" + Me.TextBox7.Text = "D 92726 Waidhaus " & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +49 9652 81450 " & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Am Autohof 3" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +" & + "43 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & " waidhaus@verag.ag" + Me.TextBox7.Top = 0! + Me.TextBox7.Visible = False + Me.TextBox7.Width = 6.67165! + ' 'txtGesColli ' Me.txtGesColli.Height = 0.1574803! @@ -798,6 +812,7 @@ Partial Public Class rptLaufzettelZollDE CType(Me.txtDW, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtFirma_UNISPED, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtGesColli, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).EndInit() @@ -855,7 +870,6 @@ Partial Public Class rptLaufzettelZollDE Public WithEvents txtEmail As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtDW As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport - Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtFirmeninfo_rontoffice As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter Public WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader @@ -863,4 +877,6 @@ Partial Public Class rptLaufzettelZollDE Public WithEvents txtFirma_UNISPED As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents SubReport1 As GrapeCity.ActiveReports.SectionReportModel.SubReport Public WithEvents txtPos As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb index b439f365..b2e27d9c 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb @@ -46,6 +46,7 @@ Partial Public Class rptPreislisten Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line() @@ -75,6 +76,7 @@ Partial Public Class rptPreislisten CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).BeginInit() @@ -275,7 +277,7 @@ Partial Public Class rptPreislisten ' 'ReportHeader1 ' - Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9}) + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9, Me.TextBox6}) Me.ReportHeader1.Height = 2.176378! Me.ReportHeader1.Name = "ReportHeader1" ' @@ -312,6 +314,7 @@ Partial Public Class rptPreislisten Me.txtFirmaInfo_VERAG.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 27 77-20 " & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +43" & " 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & " eu@verag.ag" Me.txtFirmaInfo_VERAG.Top = 0! + Me.txtFirmaInfo_VERAG.Visible = False Me.txtFirmaInfo_VERAG.Width = 3.592911! ' 'picVERAG @@ -405,6 +408,18 @@ Partial Public Class rptPreislisten Me.Line9.Y1 = 0.6181103! Me.Line9.Y2 = 0.6181923! ' + 'TextBox6 + ' + Me.TextBox6.Height = 0.5000001! + Me.TextBox6.Left = 3.138189! + Me.TextBox6.Name = "TextBox6" + Me.TextBox6.Style = "font-size: 8pt; text-align: right; vertical-align: middle; ddo-char-set: 1" + Me.TextBox6.Text = "DE-83435 Bad Reichenhall " & Global.Microsoft.VisualBasic.ChrW(9) & " +49 8651 99624911" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Reichenhalle" & + "rstrasse 62 import@ambarlog.com " + Me.TextBox6.Top = 0! + Me.TextBox6.Visible = False + Me.TextBox6.Width = 3.592911! + ' 'ReportFooter1 ' Me.ReportFooter1.CanShrink = True @@ -425,7 +440,7 @@ Partial Public Class rptPreislisten ' 'Line ' - Me.Line.Height = 0.0001809597! + Me.Line.Height = 0.0001811981! Me.Line.Left = 0.02362209! Me.Line.LineWeight = 1.0! Me.Line.Name = "Line" @@ -584,6 +599,7 @@ Partial Public Class rptPreislisten CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).EndInit() @@ -635,4 +651,5 @@ Partial Public Class rptPreislisten Public WithEvents txtFirmaInfo_IMEX As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtFirmaInfo_ATILLA As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents SubReport2 As GrapeCity.ActiveReports.SectionReportModel.SubReport + Public WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index 9d3ce83a..a4adaa10 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -94,6 +94,12 @@ Case "ATILLA" cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Spedition GmbH", "ATILLA")) cboFirma.changeItem("ATILLA") + Case "AMBAR" + cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR Logistic Services GmbH", "AMBAR")) + cboFirma.changeItem("AMBAR") + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "VZ")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) Case Else cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG")) cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS")) @@ -156,7 +162,7 @@ dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) @@ -256,7 +262,45 @@ dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - cboFirma.changeItem("AG") + + End Select + Case "AMBAR" + Select Case MyComboBox1._value + Case "VZ" + DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + + dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + + Case "T1" + DataGridView.Rows.Add(cnt, "", "T1/T2 Abfertigung", CDbl(60).ToString("C2")) : cnt += 1 + + Case "EUST" + + DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + End Select @@ -279,7 +323,7 @@ dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) @@ -384,7 +428,7 @@ dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb index 87313a5f..25adc27d 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb @@ -118,6 +118,7 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAdresse2._WaehrungZeichen = True Me.txtAdresse2.ForeColor = System.Drawing.Color.Black Me.txtAdresse2.Location = New System.Drawing.Point(254, 110) + Me.txtAdresse2.MaxLength = 60 Me.txtAdresse2.MaxLineLength = -1 Me.txtAdresse2.MaxLines_Warning = "" Me.txtAdresse2.MaxLines_Warning_Label = Nothing @@ -139,6 +140,7 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAdresse1._WaehrungZeichen = True Me.txtAdresse1.ForeColor = System.Drawing.Color.Black Me.txtAdresse1.Location = New System.Drawing.Point(254, 91) + Me.txtAdresse1.MaxLength = 40 Me.txtAdresse1.MaxLineLength = -1 Me.txtAdresse1.MaxLines_Warning = "" Me.txtAdresse1.MaxLines_Warning_Label = Nothing @@ -227,6 +229,7 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAdresse3._WaehrungZeichen = True Me.txtAdresse3.ForeColor = System.Drawing.Color.Black Me.txtAdresse3.Location = New System.Drawing.Point(254, 129) + Me.txtAdresse3.MaxLength = 60 Me.txtAdresse3.MaxLineLength = -1 Me.txtAdresse3.MaxLines_Warning = "" Me.txtAdresse3.MaxLines_Warning_Label = Nothing diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb index fa70ef58..732bc62f 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb @@ -116,6 +116,7 @@ cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS")) cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX")) cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH", "UNISPED")) + cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR Logistic Services GmbH", "AMBAR")) cboFirma.changeItem("AG") ' cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True) @@ -124,8 +125,9 @@ Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"} - Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"} - Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"} + Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"} : cboFirma.changeItem("UNISPED") : cboFirma.Enabled = False + Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"} : cboFirma.changeItem("ATILLA") : cboFirma.Enabled = False + Case "AMBAR" : cboFiliale._allowedValuesFreiText = {"5701"} : cboFirma.changeItem("AMBAR") : cboFirma.Enabled = False End Select txtBearbeiter.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, "") @@ -253,6 +255,9 @@ cPostversand.post_ReferenzPaketdienst = txtRefNr.Text cPostversand.post_RgEmpfaenger_KdNr = kdRgEmpfaenger.KdNr cPostversand.post_RgEmpfaenger_Name = kdRgEmpfaenger.Text + If cPostversand.post_RgEmpfaenger_Name.length > 40 Then + cPostversand.post_RgEmpfaenger_Name = cPostversand.post_RgEmpfaenger_Name.ToString.Substring(0, 40) + End If cPostversand.post_KdAuftrNrAvisierer = Me.txtAvisiererAuftragsNr.Text 'VK.vk_Rolle = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(ROLLE) @@ -421,6 +426,7 @@ Select Case cboFirma._value Case "IMEX" : txtFirma._UseFIRMA = cboFirma._value : KdInAuftrag._UseFIRMA = cboFirma._value Case "UNISPED" : txtFirma._UseFIRMA = cboFirma._value : KdInAuftrag._UseFIRMA = cboFirma._value + Case "AMBAR" : txtFirma._UseFIRMA = cboFirma._value : KdInAuftrag._UseFIRMA = cboFirma._value Case Else : txtFirma._UseFIRMA = "VERAG" : KdInAuftrag._UseFIRMA = "VERAG" End Select End Sub diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 5169620e..9345d85f 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -17,6 +17,8 @@ Public Class frmFormulare Event ShownFIN() Dim KdNr As Integer = 0 Public printed As Boolean = False + Public SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing + Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing Sub New() @@ -440,8 +442,12 @@ Public Class frmFormulare c = New usrcntlVorauskasse Else c = New usrcntlVorauskasse(param) + If param.Length > 3 Then AVISO = param(3) End If ' Dim c As New usrcntlVorauskasse(param(0)) + If cboTextkonserve._value = "" Then cboTextkonserve._value = "Vorauskasse" + If cboTextKonserveSprache._value = "" Then cboTextKonserveSprache._value = "DE" + If ControlExists_addOK(c.GetType.ToString) Then c.Width = MyFlowLayoutPanel1.Width - 6 c.KdNR = KdNr @@ -985,8 +991,25 @@ Public Class frmFormulare If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("FRM_MNGR_MailText", cboTextkonserve._value, cboTextKonserveSprache._value, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) - Mail.HTMLBody = "
" & tX.txt_text & cFakturierung.getSignature(cboTextKonserveSprache._value, tX.txt_firmaSig) & "
" - Mail.Subject = tX.txt_betreff.Replace("%LKW%", "") + + Dim TextHTML = "" + TextHTML &= tX.txt_text + TextHTML &= cFakturierung.getSignature(cboTextKonserveSprache._value, tX.txt_firmaSig, True, True) + TextHTML &= "
" + TextHTML &= "Mit freundlichen Grüßen
" + TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" + TextHTML &= "
" + + Mail.HTMLBody = "
" & TextHTML & "
" + + + Mail.Subject = tX.txt_betreff + If AVISO IsNot Nothing Then + Mail.Subject = Mail.Subject.Replace("%LKW%", AVISO.LKW_Nr) + Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", AVISO.LKW_Nr) + End If + Mail.Subject = Mail.Subject.Replace("%LKW%", "") + Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", "") End If Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf") @@ -1815,7 +1838,13 @@ Public Class FormularManagerNEU Case Else Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Case "SBG" : ort = "Bad Reichenhall" - Case "WAI" : ort = "Waidhaus" + Case "WAI" + ort = "Waidhaus" + rpt.txtFirmaInfo_VERAG.Visible = False + rpt.TextBox7.Visible = True + If AVISO.ImEx = "EXPORT" Then rpt.TextBox3.Visible = False + rpt.picVERAG.Image = My.Resources.Verag_Spedition_GMBH_Logo + Case "NKD" : ort = "Nickelsdorf" Case "NEU" : ort = "Neuhaus am Inn" End Select @@ -3399,12 +3428,21 @@ Public Class FormularManagerNEU rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple rpt.txtFirmaInfo_VERAG.Visible = False rpt.txtFirmaInfo_IMEX.Visible = True + rpt.TextBox6.Visible = False + Case "AMBAR" + rpt.txtFirmenkennung.Text = "Ambar Logistic Services GmbH" + rpt.picVERAG.Image = My.Resources.ambar_simple + rpt.txtFirmaInfo_VERAG.Visible = False + rpt.txtFirmaInfo_IMEX.Visible = False + rpt.TextBox6.Visible = True Case "ATILLA" rpt.txtFirmenkennung.Text = "ATILLA Spedition GmbH" rpt.picVERAG.Image = My.Resources.Atilla rpt.txtFirmaInfo_VERAG.Visible = False rpt.txtFirmaInfo_ATILLA.Visible = True - Case Else 'Nix + rpt.TextBox6.Visible = False + Case Else 'Nix + rpt.txtFirmaInfo_VERAG.Visible = True End Select rpt.DataSource = dt @@ -3650,6 +3688,7 @@ Public Class FormularManagerNEU nameDispo = "VerzollungsunterlagenAG2" Select Case usrCntl.cboFirma._value Case "IMEX" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "IMEX" + Case "AMBAR" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "AMBAR" Case "UNISPED" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "UNISPED" Case "CS" : nameDispo = "VerzollungsunterlagenCS" Case Else : nameDispo = "VerzollungsunterlagenAG2" @@ -3799,6 +3838,7 @@ Public Class FormularManagerNEU Select Case usrCntl.cboFiliale._value Case "5501" : Firma_idI_Sig_AT = 20 : Firma_idI_Sig_DE = 20 : Firma_idI_Sig_EV = 20 : SonderUID_AT = "DE295575575" : SonderUID_DE = "DE295575575" : Postfach_DE = "IMEX CUSTOMS SERVICE GMBH
HARTHAM 6
D 94152 NEUHAUS AM INN
" Case "5601" : Firma_idI_Sig_AT = 23 : Firma_idI_Sig_DE = 22 : Firma_idI_Sig_EV = 23 : SonderUID_AT = "" : SonderUID_DE = "" : Postfach_DE = "UNISPED Speditions GmbH
HARTHAM 6
D 94152 NEUHAUS AM INN
" + Case "5701" : Firma_idI_Sig_AT = 24 : Firma_idI_Sig_DE = 24 : Firma_idI_Sig_EV = 24 : SonderUID_AT = "" : SonderUID_DE = "" : Postfach_DE = "AMBAR Logistic Services GmbH
Reichenhallerstraße 62
D 83435 BAD REICHENHALL
" Case Else : Firma_idI_Sig_AT = 11 : Firma_idI_Sig_DE = 99 : Firma_idI_Sig_EV = 11 ' VERAG End Select @@ -4068,6 +4108,14 @@ Public Class FormularManagerNEU MailHTMLText &= "Vielen Dank im Voraus.
" MailHTMLText &= "
" MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) + Case "AMBAR" + MailHTMLText &= "Ambar Logistic Services GmbH
" + MailHTMLText &= "Reichenhallerstrasse 62
" + MailHTMLText &= "DE-83435 Bad Reichenhall
" + MailHTMLText &= "
" + MailHTMLText &= "Vielen Dank im Voraus.
" + MailHTMLText &= "
" + MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) Case Else MailHTMLText &= "Verag Customs Service GmbH
" MailHTMLText &= "Postfach 1013
" @@ -4101,6 +4149,14 @@ Public Class FormularManagerNEU MailHTMLText &= "Vielen Dank im Voraus.
" MailHTMLText &= "
" MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) + Case "AMBAR" + MailHTMLText &= "Ambar Logistic Services GmbH
" + MailHTMLText &= "Reichenhallerstrasse 62
" + MailHTMLText &= "DE-83435 Bad Reichenhall
" + MailHTMLText &= "
" + MailHTMLText &= "Vielen Dank im Voraus.
" + MailHTMLText &= "
" + MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) Case Else MailHTMLText &= "Verag Customs Service GmbH
" MailHTMLText &= "Postfach 1013
" @@ -4134,6 +4190,8 @@ Public Class FormularManagerNEU Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" MailHTMLText &= cFakturierung.getSignature("GB", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) + Case "AMBAR" + MailHTMLText &= cFakturierung.getSignature("GB", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) Case Else MailHTMLText &= cFakturierung.getSignature("GB", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) End Select @@ -4161,6 +4219,8 @@ Public Class FormularManagerNEU Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" MailHTMLText &= cFakturierung.getSignature("FR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) + Case "AMBAR" + MailHTMLText &= cFakturierung.getSignature("FR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) Case Else MailHTMLText &= cFakturierung.getSignature("FR", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) End Select @@ -4180,6 +4240,8 @@ Public Class FormularManagerNEU Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" MailHTMLText &= cFakturierung.getSignature("TR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) + Case "AMBAR" + MailHTMLText &= cFakturierung.getSignature("TR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) Case Else MailHTMLText &= cFakturierung.getSignature("TR", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG")) End Select @@ -4303,8 +4365,8 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT)) - If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 64, 216, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) - If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 64, 265, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) + If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) + If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "zumZoll_Aviso", listTowrite) 'End Select ' End If @@ -4313,6 +4375,29 @@ Public Class FormularManagerNEU End Function + Shared Function zumZOLL_AVISO_WAI(AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As String + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + Dim top = 0 + + ' If AVISO.Grenzstelle = "WAI" Then + ' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "FRONTOFFICE", "VERAG" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 55, 23, 65, 8, "bold", 15, , iTextSharp.text.Element.ALIGN_CENTER)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 150, 32, 45, 10, "bold", 12, , iTextSharp.text.Element.ALIGN_CENTER)) + 'If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) + 'If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER)) + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "zumZoll_Aviso_WAI", listTowrite) + 'End Select + ' End If + ' End If + Return "" + End Function + + Shared Function QS_UeDok(usrCntl As usrcntlQS_UeDok) As String Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index a6253587..dc0b84a6 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -488,6 +488,15 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. + ''' + Friend ReadOnly Property dfdf43344444345434543() As String + Get + Return ResourceManager.GetString("dfdf43344444345434543", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -964,6 +973,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Byte[]. + ''' + Friend ReadOnly Property LKW_Liste() As Byte() + Get + Dim obj As Object = ResourceManager.GetObject("LKW_Liste", resourceCulture) + Return CType(obj,Byte()) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1004,6 +1023,26 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property mic_logo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("mic_logo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property mic_logo___short() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("mic_logo___short", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1833,6 +1872,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Byte[]. + ''' + Friend ReadOnly Property SR_TransFerry360() As Byte() + Get + Dim obj As Object = ResourceManager.GetObject("SR_TransFerry360", resourceCulture) + Return CType(obj,Byte()) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -2222,7 +2271,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.9.2 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.2.0.0 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index be664d48..0b29af53 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -638,7 +638,7 @@ ..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 1.1.9.2 + 1.2.0.0 ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -805,4 +805,19 @@ ..\Resources\VERAG-UNISPED-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ..\Resources\mic-logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\mic-logo - short.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\LKW_Liste.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + \ No newline at end of file diff --git a/SDL/Post/frmPostEinschreiben.vb b/SDL/Post/frmPostEinschreiben.vb index f388c0d4..98e21977 100644 --- a/SDL/Post/frmPostEinschreiben.vb +++ b/SDL/Post/frmPostEinschreiben.vb @@ -26,6 +26,7 @@ Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "ATILLA" : QSwhere = "" Case "IMEX" : QSwhere = " AND mit_firma IN ('IMEX','BEIDE') " + Case "AMBAR" : QSwhere = " AND mit_firma IN ('AMBAR','BEIDE') " Case Else QSwhere = " AND mit_firma <> 'IMEX' " End Select @@ -39,6 +40,8 @@ where = " AND FilialenNr IN (5501) " Case "ATILLA" where = " AND FilialenNr IN (4801) " + Case "AMBAR" + where = " AND FilialenNr IN (5701) " Case Else where = " AND FilialenNr NOT IN (5501) " End Select @@ -46,11 +49,16 @@ cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' " & where & " ORDER BY FilialenNr ", True, "FMZOLL", True) Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" - cboFiliale._allowedValuesFreiText = {"5501"} + 'cboFiliale._allowedValuesFreiText = {"5501"} cboFiliale.changeItem("5501") Case "ATILLA" cboFiliale._allowedValuesFreiText = {"4801"} cboFiliale.changeItem("4801") + cboFiliale.Enabled = False + Case "AMBAR" + cboFiliale._allowedValuesFreiText = {"5701"} + cboFiliale.changeItem("5701") + cboFiliale.Enabled = False End Select cboSachbearbeiterQS.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " & diff --git a/SDL/Resources/LKW_Liste.xlsx b/SDL/Resources/LKW_Liste.xlsx new file mode 100644 index 00000000..148b338c Binary files /dev/null and b/SDL/Resources/LKW_Liste.xlsx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_DE.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_DE.dotx index ec1d0262..6bb77bf1 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_DE.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_DE.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_RO.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_RO.dotx index 38e55276..5c4cb194 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_RO.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_RO.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_TR.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_TR.dotx index 8e6b52c1..4d7c317d 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_TR.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_TR.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_YU.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_YU.dotx index 6e579932..913e31b1 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_YU.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_YU.dotx differ diff --git a/SDL/Resources/SR_TransFerry360.xlsx b/SDL/Resources/SR_TransFerry360.xlsx new file mode 100644 index 00000000..26707585 Binary files /dev/null and b/SDL/Resources/SR_TransFerry360.xlsx differ diff --git a/SDL/Resources/mic-logo - short.jpg b/SDL/Resources/mic-logo - short.jpg new file mode 100644 index 00000000..ade600a9 Binary files /dev/null and b/SDL/Resources/mic-logo - short.jpg differ diff --git a/SDL/Resources/mic-logo.jpg b/SDL/Resources/mic-logo.jpg new file mode 100644 index 00000000..6c3eea78 Binary files /dev/null and b/SDL/Resources/mic-logo.jpg differ diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index b94f433f..83f3f1ad 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -450,6 +450,12 @@ Component + + rptSammelRechnungAnlagenDruck_Leistungen.vb + + + Component + subRptLaufzettelZollDE_Vorpapier.vb @@ -480,10 +486,21 @@ UserControl - + + frmPLOSE_ProductCodes.vb + + + Form + + + True + True + Resources.resx + + frmMDM_USTVAntrag.vb - + Form @@ -498,10 +515,10 @@ Component - + usrCntlUSTV.vb - + UserControl @@ -1781,11 +1798,6 @@ UserControl - - True - True - Resources.resx - frmPopUpInfo.vb @@ -2392,6 +2404,12 @@ True Reference.map + + usrCntlMIC_NCTS.vb + + + UserControl + usrCntlSGS_NCTS.vb @@ -2591,6 +2609,9 @@ subRptVM.vb + + rptSammelRechnungAnlagenDruck_Leistungen.vb + subRptLaufzettelZollDE_Vorpapier.vb @@ -2606,7 +2627,10 @@ usrCntlKundenBesonderheiten.vb - + + frmPLOSE_ProductCodes.vb + + frmMDM_USTVAntrag.vb @@ -2615,7 +2639,7 @@ rptPLOSE_Konsortium.vb - + usrCntlUSTV.vb @@ -3549,6 +3573,9 @@ usrCntlWelcome.vb + + usrCntlMIC_NCTS.vb + usrCntlSGS_NCTS.vb @@ -3627,10 +3654,12 @@ Always + Always + Reference.map @@ -4029,6 +4058,8 @@ + + @@ -4305,6 +4336,10 @@ {50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f} DAKOSY_Worker_lib + + {2e4dbc09-e57b-4ac5-8554-6117d71f993b} + MDM_Worker_lib + {5b947a66-009a-4bb6-b925-f84a01045095} TELOTEC_Worker_lib diff --git a/SDL/SMS/frmSendSMS.Designer.vb b/SDL/SMS/frmSendSMS.Designer.vb index 80a692dc..0eb0cfd7 100644 --- a/SDL/SMS/frmSendSMS.Designer.vb +++ b/SDL/SMS/frmSendSMS.Designer.vb @@ -47,6 +47,14 @@ Partial Class frmSendSMS Me.cbxLKWOK = New System.Windows.Forms.CheckBox() Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label3 = New System.Windows.Forms.Label() + Me.Button13 = New System.Windows.Forms.Button() + Me.Button14 = New System.Windows.Forms.Button() + Me.Button15 = New System.Windows.Forms.Button() + Me.Button16 = New System.Windows.Forms.Button() + Me.Button17 = New System.Windows.Forms.Button() + Me.Button18 = New System.Windows.Forms.Button() + Me.Button19 = New System.Windows.Forms.Button() + Me.Button20 = New System.Windows.Forms.Button() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -115,7 +123,7 @@ Partial Class frmSendSMS Me.txtNachricht.MaxLines_Warning = "" Me.txtNachricht.MaxLines_Warning_Label = Nothing Me.txtNachricht.Name = "txtNachricht" - Me.txtNachricht.Size = New System.Drawing.Size(534, 144) + Me.txtNachricht.Size = New System.Drawing.Size(558, 144) Me.txtNachricht.TabIndex = 6 Me.txtNachricht.Text = "" ' @@ -125,9 +133,9 @@ Partial Class frmSendSMS Me.btnAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAbbrechen.Image = Global.SDL.My.Resources.Resources.del_small Me.btnAbbrechen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnAbbrechen.Location = New System.Drawing.Point(405, 339) + Me.btnAbbrechen.Location = New System.Drawing.Point(456, 339) Me.btnAbbrechen.Name = "btnAbbrechen" - Me.btnAbbrechen.Size = New System.Drawing.Size(144, 25) + Me.btnAbbrechen.Size = New System.Drawing.Size(117, 25) Me.btnAbbrechen.TabIndex = 22 Me.btnAbbrechen.Text = " Abbrechen" Me.btnAbbrechen.UseVisualStyleBackColor = True @@ -137,9 +145,9 @@ Partial Class frmSendSMS Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnOK.Image = Global.SDL.My.Resources.Resources.ok Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnOK.Location = New System.Drawing.Point(405, 265) + Me.btnOK.Location = New System.Drawing.Point(456, 265) Me.btnOK.Name = "btnOK" - Me.btnOK.Size = New System.Drawing.Size(144, 51) + Me.btnOK.Size = New System.Drawing.Size(117, 51) Me.btnOK.TabIndex = 14 Me.btnOK.Text = " SMS senden" Me.btnOK.UseVisualStyleBackColor = True @@ -159,7 +167,7 @@ Partial Class frmSendSMS Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Location = New System.Drawing.Point(15, 267) Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(300, 25) + Me.Button1.Size = New System.Drawing.Size(293, 25) Me.Button1.TabIndex = 8 Me.Button1.Text = "Bitte zu VERAG kommen!" Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -170,7 +178,7 @@ Partial Class frmSendSMS Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.Location = New System.Drawing.Point(15, 291) Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(300, 25) + Me.Button2.Size = New System.Drawing.Size(293, 25) Me.Button2.TabIndex = 11 Me.Button2.Text = "Bitte zu VERAG kommen und den Pass mitnehmen!" Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -181,7 +189,7 @@ Partial Class frmSendSMS Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.Location = New System.Drawing.Point(15, 315) Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(300, 25) + Me.Button3.Size = New System.Drawing.Size(293, 25) Me.Button3.TabIndex = 15 Me.Button3.Text = "Bitte zu VERAG kommen und den Stempel mitnehmen!" Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -192,7 +200,7 @@ Partial Class frmSendSMS Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.Location = New System.Drawing.Point(15, 339) Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(300, 25) + Me.Button4.Size = New System.Drawing.Size(293, 25) Me.Button4.TabIndex = 19 Me.Button4.Text = "Bitte zu VERAG kommen und Bargeld mitnehmen: €" & Global.Microsoft.VisualBasic.ChrW(10) & " ..." & Global.Microsoft.VisualBasic.ChrW(10) Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -201,9 +209,9 @@ Partial Class frmSendSMS 'Button5 ' Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Location = New System.Drawing.Point(314, 339) + Me.Button5.Location = New System.Drawing.Point(307, 339) Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(43, 25) + Me.Button5.Size = New System.Drawing.Size(35, 25) Me.Button5.TabIndex = 20 Me.Button5.Text = "TR" Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -212,9 +220,9 @@ Partial Class frmSendSMS 'Button6 ' Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button6.Location = New System.Drawing.Point(314, 315) + Me.Button6.Location = New System.Drawing.Point(307, 315) Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(43, 25) + Me.Button6.Size = New System.Drawing.Size(35, 25) Me.Button6.TabIndex = 16 Me.Button6.Text = "TR" Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -223,9 +231,9 @@ Partial Class frmSendSMS 'Button7 ' Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Location = New System.Drawing.Point(314, 291) + Me.Button7.Location = New System.Drawing.Point(307, 291) Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(43, 25) + Me.Button7.Size = New System.Drawing.Size(35, 25) Me.Button7.TabIndex = 12 Me.Button7.Text = "TR" Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -234,9 +242,9 @@ Partial Class frmSendSMS 'Button8 ' Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button8.Location = New System.Drawing.Point(314, 267) + Me.Button8.Location = New System.Drawing.Point(307, 267) Me.Button8.Name = "Button8" - Me.Button8.Size = New System.Drawing.Size(43, 25) + Me.Button8.Size = New System.Drawing.Size(35, 25) Me.Button8.TabIndex = 9 Me.Button8.Text = "TR" Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -245,9 +253,9 @@ Partial Class frmSendSMS 'Button9 ' Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button9.Location = New System.Drawing.Point(356, 339) + Me.Button9.Location = New System.Drawing.Point(341, 339) Me.Button9.Name = "Button9" - Me.Button9.Size = New System.Drawing.Size(43, 25) + Me.Button9.Size = New System.Drawing.Size(35, 25) Me.Button9.TabIndex = 21 Me.Button9.Text = "YU" Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -256,9 +264,9 @@ Partial Class frmSendSMS 'Button10 ' Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button10.Location = New System.Drawing.Point(356, 315) + Me.Button10.Location = New System.Drawing.Point(341, 315) Me.Button10.Name = "Button10" - Me.Button10.Size = New System.Drawing.Size(43, 25) + Me.Button10.Size = New System.Drawing.Size(35, 25) Me.Button10.TabIndex = 17 Me.Button10.Text = "YU" Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -267,9 +275,9 @@ Partial Class frmSendSMS 'Button11 ' Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button11.Location = New System.Drawing.Point(356, 291) + Me.Button11.Location = New System.Drawing.Point(341, 291) Me.Button11.Name = "Button11" - Me.Button11.Size = New System.Drawing.Size(43, 25) + Me.Button11.Size = New System.Drawing.Size(35, 25) Me.Button11.TabIndex = 13 Me.Button11.Text = "YU" Me.Button11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -278,9 +286,9 @@ Partial Class frmSendSMS 'Button12 ' Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button12.Location = New System.Drawing.Point(356, 267) + Me.Button12.Location = New System.Drawing.Point(341, 267) Me.Button12.Name = "Button12" - Me.Button12.Size = New System.Drawing.Size(43, 25) + Me.Button12.Size = New System.Drawing.Size(35, 25) Me.Button12.TabIndex = 10 Me.Button12.Text = "YU" Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -292,7 +300,7 @@ Partial Class frmSendSMS Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.pic.Location = New System.Drawing.Point(418, 9) Me.pic.Name = "pic" - Me.pic.Size = New System.Drawing.Size(131, 100) + Me.pic.Size = New System.Drawing.Size(158, 100) Me.pic.TabIndex = 20 Me.pic.TabStop = False ' @@ -301,7 +309,7 @@ Partial Class frmSendSMS Me.cbxLKWOK.AutoSize = True Me.cbxLKWOK.Checked = True Me.cbxLKWOK.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxLKWOK.Location = New System.Drawing.Point(406, 320) + Me.cbxLKWOK.Location = New System.Drawing.Point(456, 320) Me.cbxLKWOK.Name = "cbxLKWOK" Me.cbxLKWOK.Size = New System.Drawing.Size(120, 17) Me.cbxLKWOK.TabIndex = 18 @@ -331,12 +339,108 @@ Partial Class frmSendSMS Me.Label3.TabIndex = 4 Me.Label3.Text = "Firma:" ' + 'Button13 + ' + Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button13.Location = New System.Drawing.Point(375, 339) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(35, 25) + Me.Button13.TabIndex = 26 + Me.Button13.Text = "RO" + Me.Button13.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button13.UseVisualStyleBackColor = True + ' + 'Button14 + ' + Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button14.Location = New System.Drawing.Point(375, 315) + Me.Button14.Name = "Button14" + Me.Button14.Size = New System.Drawing.Size(35, 25) + Me.Button14.TabIndex = 25 + Me.Button14.Text = "RO" + Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button14.UseVisualStyleBackColor = True + ' + 'Button15 + ' + Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button15.Location = New System.Drawing.Point(375, 291) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(35, 25) + Me.Button15.TabIndex = 24 + Me.Button15.Text = "RO" + Me.Button15.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button15.UseVisualStyleBackColor = True + ' + 'Button16 + ' + Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button16.Location = New System.Drawing.Point(375, 267) + Me.Button16.Name = "Button16" + Me.Button16.Size = New System.Drawing.Size(35, 25) + Me.Button16.TabIndex = 23 + Me.Button16.Text = "RO" + Me.Button16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button16.UseVisualStyleBackColor = True + ' + 'Button17 + ' + Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button17.Location = New System.Drawing.Point(408, 339) + Me.Button17.Name = "Button17" + Me.Button17.Size = New System.Drawing.Size(35, 25) + Me.Button17.TabIndex = 30 + Me.Button17.Text = "BG" + Me.Button17.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button17.UseVisualStyleBackColor = True + ' + 'Button18 + ' + Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button18.Location = New System.Drawing.Point(408, 315) + Me.Button18.Name = "Button18" + Me.Button18.Size = New System.Drawing.Size(35, 25) + Me.Button18.TabIndex = 29 + Me.Button18.Text = "BG" + Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button18.UseVisualStyleBackColor = True + ' + 'Button19 + ' + Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button19.Location = New System.Drawing.Point(408, 291) + Me.Button19.Name = "Button19" + Me.Button19.Size = New System.Drawing.Size(35, 25) + Me.Button19.TabIndex = 28 + Me.Button19.Text = "BG" + Me.Button19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button19.UseVisualStyleBackColor = True + ' + 'Button20 + ' + Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button20.Location = New System.Drawing.Point(408, 267) + Me.Button20.Name = "Button20" + Me.Button20.Size = New System.Drawing.Size(35, 25) + Me.Button20.TabIndex = 27 + Me.Button20.Text = "BG" + Me.Button20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button20.UseVisualStyleBackColor = True + ' 'frmSendSMS ' 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(560, 371) + Me.ClientSize = New System.Drawing.Size(583, 371) + Me.Controls.Add(Me.Button17) + Me.Controls.Add(Me.Button18) + Me.Controls.Add(Me.Button19) + Me.Controls.Add(Me.Button20) + Me.Controls.Add(Me.Button13) + Me.Controls.Add(Me.Button14) + Me.Controls.Add(Me.Button15) + Me.Controls.Add(Me.Button16) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.cboFirma) Me.Controls.Add(Me.cbxLKWOK) @@ -394,4 +498,12 @@ Partial Class frmSendSMS Friend WithEvents cbxLKWOK As CheckBox Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label3 As Label + Friend WithEvents Button13 As Button + Friend WithEvents Button14 As Button + Friend WithEvents Button15 As Button + Friend WithEvents Button16 As Button + Friend WithEvents Button17 As Button + Friend WithEvents Button18 As Button + Friend WithEvents Button19 As Button + Friend WithEvents Button20 As Button End Class diff --git a/SDL/SMS/frmSendSMS.vb b/SDL/SMS/frmSendSMS.vb index 58c19faf..3626b3e5 100644 --- a/SDL/SMS/frmSendSMS.vb +++ b/SDL/SMS/frmSendSMS.vb @@ -113,29 +113,33 @@ Public Class frmSendSMS Try Dim nr = "" - If cboLandVorwahl._value <> "" AndAlso IsNumeric(cboLandVorwahl._value) Then - nr = cboLandVorwahl._value - End If + If cboLandVorwahl._value <> "" AndAlso IsNumeric(cboLandVorwahl._value) Then + nr = cboLandVorwahl._value + End If - If txtHandyNummer.Text = "" Then MsgBox("Bitte Handy-Nr angegeben!") : Exit Sub - If txtNachricht.Text = "" Then MsgBox("Bitte Nachricht angegeben!") : Exit Sub - If txtHandyNummer.Text.Trim.StartsWith("+") Then txtHandyNummer.Text = txtHandyNummer.Text.Replace("+", "00") + If txtHandyNummer.Text = "" Then MsgBox("Bitte Handy-Nr angegeben!") : Exit Sub + If txtNachricht.Text = "" Then MsgBox("Bitte Nachricht angegeben!") : Exit Sub + If txtHandyNummer.Text.Trim.StartsWith("+") Then txtHandyNummer.Text = txtHandyNummer.Text.Replace("+", "00") - If Not IsNumeric(txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")) Then MsgBox("Handy-Nr im falschem Format!") : Exit Sub + If Not IsNumeric(txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")) Then MsgBox("Handy-Nr im falschem Format!") : Exit Sub - '' If nr <> "" And txtHandyNummer.Text.Trim.StartsWith("0") Then - 'txtHandyNummer.Text = txtHandyNummer.Text.Substring(1) - ' End If - nr &= txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "") + '' If nr <> "" And txtHandyNummer.Text.Trim.StartsWith("0") Then + 'txtHandyNummer.Text = txtHandyNummer.Text.Substring(1) + ' End If + nr &= txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "") - If nr.Trim = "" Or Not nr.StartsWith("00") Or Not IsNumeric(nr) Then - MsgBox("Bitte prüfen Sie die Nummer!" & vbNewLine & "Jede Nummer muss mit der Ländervorwahl beginnen.") - Exit Sub - End If + If nr.Trim = "" Or Not nr.StartsWith("00") Or Not IsNumeric(nr) Or nr.StartsWith("000") Then + MsgBox("Bitte prüfen Sie die Nummer!" & vbNewLine & "Jede Nummer muss mit der Ländervorwahl beginnen.") + Exit Sub + End If + If nr.Trim.Length <= 5 Then + MsgBox("Bitte prüfen Sie die Nummer!") + Exit Sub + End If - Dim absenderAccount = "" - Dim absenderFirma = "" + Dim absenderAccount = "" + Dim absenderFirma = "" Select Case cboFirma._value Case "VERAG" ', "BEIDE" @@ -154,67 +158,31 @@ Public Class frmSendSMS End Select - ' If vbYes = MsgBox("Soll die Nachricht gesendet werden?" & vbNewLine & "Handy-Nummer: " & nr, MsgBoxStyle.YesNo) Then SMS = New VERAG_PROG_ALLGEMEIN.cSMS - SMS.sms_Vorwahl = cboLandVorwahl._value - SMS.sms_Handynummer = txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "") - SMS.sms_Nachricht = txtNachricht.Text + SMS.sms_Vorwahl = cboLandVorwahl._value + SMS.sms_Handynummer = nr 'txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "") + SMS.sms_Nachricht = txtNachricht.Text - SMS.sms_Account = absenderAccount - SMS.sms_Firma = absenderFirma - SMS.sms_KundenNr = If(KundenNr > 0, KundenNr, Nothing) - SMS.sms_Kunde = If(Kunde <> "", Kunde, Nothing) - SMS.sms_Fahrername = If(FahrerName <> "", FahrerName, Nothing) - SMS.sms_AvisoId = If(AvisoId > 0, AvisoId, Nothing) + SMS.sms_Account = absenderAccount + SMS.sms_Firma = absenderFirma + SMS.sms_KundenNr = If(KundenNr > 0, KundenNr, Nothing) + SMS.sms_Kunde = If(Kunde <> "", Kunde, Nothing) + SMS.sms_Fahrername = If(FahrerName <> "", FahrerName, Nothing) + SMS.sms_AvisoId = If(AvisoId > 0, AvisoId, Nothing) - Try - - Dim messagingService As New MessagingService("al@verag.ag", "Developer#2") - 'SENDEN DER SMS - Dim result = messagingService.SendMessage(New SmsMessage(nr, txtNachricht.Text, absenderAccount)) - - Dim msgIDs As String = "" - Try - SMS.sms_BatchId = result.BatchId - If result.MessageIds IsNot Nothing Then - For Each m In result.MessageIds - msgIDs &= m.Uri & ";;" - Next - SMS.sms_MessageIds = msgIDs + If SMS.sendSMS Then + If cbxLKWOK.Visible And cbxLKWOK.Checked And AvisoId > 0 Then + VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True) End If - Catch ex As Exception - End Try - If msgIDs.EndsWith(";;") Then msgIDs = msgIDs.Substring(0, msgIDs.Length - 2) - - If Not SMS.SAVE() Then - MsgBox("Fehler: SMS Daten wurden nicht gespeichert!") + Me.DialogResult = Windows.Forms.DialogResult.OK + Else + Me.DialogResult = Windows.Forms.DialogResult.None End If - If cbxLKWOK.Visible And cbxLKWOK.Checked And AvisoId > 0 Then - - VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True) - - End If - - - Me.DialogResult = Windows.Forms.DialogResult.OK - - - Exit Sub - - Me.Close() - Catch ex As Exception - MsgBox("Fehler beim Senden der SMS!" & vbNewLine & ex.Message & ex.StackTrace) - Me.DialogResult = Windows.Forms.DialogResult.None - - End Try - - ' End If - Catch ex As Exception MsgBox(vbNewLine & ex.Message & ex.StackTrace) Me.DialogResult = Windows.Forms.DialogResult.None @@ -310,11 +278,43 @@ Public Class frmSendSMS Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged initFirma() End Sub + + Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click + fillTXT("Va rog sa va prezentati la sediul firmei VERAG!", "TRUCK: ") + End Sub + + Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click + fillTXT("Va rog sa va prezentati la sediul firmei VERAG cu Buletin/ Pasaport!", "TRUCK: ") + End Sub + + Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click + fillTXT("Va rog sa va prezentati la sediul firmei VERAG cu Stampila firmei!", "TRUCK: ") + End Sub + + Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click + fillTXT("Va rog sa va prezentati la sediul firmei VERAG cu suma in Cash: € ", "TRUCK: ") + End Sub + + Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click + fillTXT("Моля, елате във VERAG!", "TRUCK: ") + End Sub + + Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click + fillTXT("Моля, елате във VERAG и вземете паспорта си!", "TRUCK: ") + End Sub + + Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click + fillTXT("Моля, елате във VERAG и вземете печата си!", "TRUCK: ") + End Sub + + Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click + fillTXT("Моля, елате във VERAG и вземете пари в борй в размер на: € ", "TRUCK: ") + End Sub End Class Public Class cSMSOptions - Shared Sub insertVermerk(AvisoId, HandyNr, Optional DatumTmp = Nothing) + Shared Sub insertVermerkSMS(AvisoId, HandyNr, SMSId, Optional DatumTmp = Nothing) Try Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL @@ -329,6 +329,8 @@ Public Class cSMSOptions myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID myVermerk.Hinweis_Vermerk = "SMS an Fahrer gesendet: " & HandyNr myVermerk.VermerkCodeId = 46 + myVermerk.SMSId = SMSId + myVermerk.SMSStatus = 0 VermerkeDAL.SpeichernVermerk(myVermerk) diff --git a/SDL/SMS/usrCntlSMS.Designer.vb b/SDL/SMS/usrCntlSMS.Designer.vb index 911657fa..df7502d1 100644 --- a/SDL/SMS/usrCntlSMS.Designer.vb +++ b/SDL/SMS/usrCntlSMS.Designer.vb @@ -61,6 +61,7 @@ Partial Class usrCntlSMS Me.cntxtOptionen = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.AbgeholtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StornoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Button1 = New System.Windows.Forms.Button() Me.pnloptions.SuspendLayout() Me.pnlTop.SuspendLayout() Me.Panel1.SuspendLayout() @@ -94,6 +95,7 @@ Partial Class usrCntlSMS Me.txtAbfertDatBis._TimeOnly = False Me.txtAbfertDatBis._value = "" Me.txtAbfertDatBis._Waehrung = False + Me.txtAbfertDatBis._WaehrungZeichen = True Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106) @@ -116,6 +118,7 @@ Partial Class usrCntlSMS Me.txtAbfertDat._TimeOnly = False Me.txtAbfertDat._value = "" Me.txtAbfertDat._Waehrung = False + Me.txtAbfertDat._WaehrungZeichen = True Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77) @@ -130,7 +133,7 @@ Partial Class usrCntlSMS 'btnExcel ' Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Excel_logo + Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnExcel.Location = New System.Drawing.Point(1020, 22) @@ -150,6 +153,7 @@ Partial Class usrCntlSMS Me.txtHandyNr._TimeOnly = False Me.txtHandyNr._value = "" Me.txtHandyNr._Waehrung = False + Me.txtHandyNr._WaehrungZeichen = True Me.txtHandyNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtHandyNr.ForeColor = System.Drawing.Color.Black Me.txtHandyNr.Location = New System.Drawing.Point(435, 57) @@ -207,6 +211,7 @@ Partial Class usrCntlSMS 'pnloptions ' Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnloptions.Controls.Add(Me.Button1) Me.pnloptions.Controls.Add(Me.Button2) Me.pnloptions.Controls.Add(Me.btnExcel) Me.pnloptions.Controls.Add(Me.FlatButton7) @@ -222,7 +227,7 @@ Partial Class usrCntlSMS ' Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Image = Global.SDL.My.Resources.plus + Me.Button2.Image = Global.SDL.My.Resources.Resources.plus Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button2.Location = New System.Drawing.Point(12, 5) Me.Button2.Margin = New System.Windows.Forms.Padding(0) @@ -237,7 +242,7 @@ Partial Class usrCntlSMS 'FlatButton7 ' Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.refresh + Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -270,6 +275,7 @@ Partial Class usrCntlSMS Me.txtMaxSrch._TimeOnly = False Me.txtMaxSrch._value = "" Me.txtMaxSrch._Waehrung = False + Me.txtMaxSrch._WaehrungZeichen = True Me.txtMaxSrch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black @@ -285,9 +291,10 @@ Partial Class usrCntlSMS ' 'btnSuche ' + Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnSuche.Image = Global.SDL.My.Resources.search + Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnSuche.Location = New System.Drawing.Point(923, 72) Me.btnSuche.Name = "btnSuche" @@ -584,6 +591,19 @@ Partial Class usrCntlSMS Me.StornoToolStripMenuItem.Size = New System.Drawing.Size(123, 22) Me.StornoToolStripMenuItem.Text = "Storno" ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(113, 5) + Me.Button1.Margin = New System.Windows.Forms.Padding(0) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(104, 45) + Me.Button1.TabIndex = 9 + Me.Button1.Text = "Status prüfen" + Me.Button1.UseVisualStyleBackColor = True + ' 'usrCntlSMS ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -642,5 +662,5 @@ Partial Class usrCntlSMS Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents cboAbsedner As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label1 As System.Windows.Forms.Label - + Friend WithEvents Button1 As Button End Class diff --git a/SDL/SMS/usrCntlSMS.vb b/SDL/SMS/usrCntlSMS.vb index 2e162506..3f17ca8c 100644 --- a/SDL/SMS/usrCntlSMS.vb +++ b/SDL/SMS/usrCntlSMS.vb @@ -1,4 +1,6 @@ -Public Class usrCntlSMS +Imports com.esendex.sdk.sent + +Public Class usrCntlSMS Dim FahrerAbholAuftrag = False Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) @@ -33,7 +35,7 @@ End If End Sub - + Private Sub usrCntlSDLAbholung_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -162,7 +164,7 @@ Dim sqlstr As String = "" - sqlstr &= " SELECT " & TopMax & " [sms_id],[sms_Datum],[sms_Account], sms_Vorwahl + '' + [sms_Handynummer] as Nummer,[sms_Nachricht],[sms_Sachbearbeiter] FROM [tblSMS] WHERE 1=1 " + sqlstr &= " SELECT " & TopMax & " [sms_id],[sms_Datum],[sms_Account], sms_Vorwahl + '' + [sms_Handynummer] as Nummer,[sms_Nachricht],[sms_Sachbearbeiter],sms_BatchId,sms_MessageIds FROM [tblSMS] WHERE 1=1 " With MyDatagridview1 ' .DataSource = myTable @@ -180,13 +182,13 @@ Function getWhere() As String Dim sqlstr = "" - If txtAbfertDat.Text <> "" Then - If txtAbfertDatBis.Text <> "" Then + If txtAbfertDat.Text <> "" Then + If txtAbfertDatBis.Text <> "" Then sqlstr &= " AND ([sms_Datum] BETWEEN @DatVon AND @DatBis ) " - Else + Else sqlstr &= " AND ([sms_Datum] BETWEEN @DatVon AND @DatVon ) " - End If End If + End If If txtHandyNr.Text <> "" Then sqlstr &= " AND (sms_Vorwahl + '' + [sms_Handynummer]) LIKE @HandyNr " @@ -224,26 +226,28 @@ .MultiSelect = False .Columns("sms_id").Visible = False - + .Columns("sms_BatchId").Visible = False + .Columns("sms_MessageIds").Visible = False + .Columns("sms_Datum").Width = 100 .Columns("sms_Datum").HeaderText = "Datum" .Columns("sms_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("sms_Sachbearbeiter").Width = 100 - .Columns("sms_Sachbearbeiter").HeaderText = "Erfassung SB" + .Columns("sms_Sachbearbeiter").HeaderText = "Erfassung SB" .Columns("sms_Account").Visible = False - + .Columns("Nummer").Width = 150 .Columns("Nummer").HeaderText = "Handy Nummer" - + .Columns("sms_Nachricht").MinimumWidth = 100 .Columns("sms_Nachricht").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("sms_Nachricht").HeaderText = "Nachricht" - + ' lblErgebnis.Text = "Ergebnise: " & .RowCount @@ -346,8 +350,8 @@ JAHR = JAHR.AddYears(-1) initBtns("Jahr") End Sub ' - - + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim f As New frmSendSMS @@ -362,7 +366,21 @@ btnSuche.PerformClick() End If End Sub - + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + + If MyDatagridview1.SelectedRows.Count > 0 Then + Dim SMS = New VERAG_PROG_ALLGEMEIN.cSMS(MyDatagridview1.SelectedRows(0).Cells("sms_id").Value) + Select Case SMS.checkSMSStatus + Case <= 0 : MsgBox("SMS-Status: Wartend...") + Case 1 : MsgBox("SMS-Status: Wartend...") + Case 2 : MsgBox("SMS-Status: Gesendet") + Case 3 : MsgBox("SMS-Status: Empfangen") + Case 4 : MsgBox("SMS-Status: Fehler") + End Select + End If + End Sub + + End Class - \ No newline at end of file diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb index c1cf2f3e..cc491a89 100644 --- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb +++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb @@ -120,6 +120,7 @@ Partial Class frmNacherfassungNEU Me.Label34 = New System.Windows.Forms.Label() Me.btnFertig = New System.Windows.Forms.Button() Me.Panel1 = New System.Windows.Forms.Panel() + Me.Button4 = New System.Windows.Forms.Button() Me.txtKdAuftragsnummerEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtKdAuftragsnummerFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtKdAuftragsnummerAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -228,7 +229,7 @@ Partial Class frmNacherfassungNEU Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Button4 = New System.Windows.Forms.Button() + Me.cbxEIDR = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() Me.Panel3.SuspendLayout() Me.GroupBox4.SuspendLayout() @@ -1418,6 +1419,7 @@ Partial Class frmNacherfassungNEU 'Panel1 ' Me.Panel1.AutoScroll = True + Me.Panel1.Controls.Add(Me.cbxEIDR) Me.Panel1.Controls.Add(Me.Button4) Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerEmpfaenger) Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerFrachtfuehrer) @@ -1517,6 +1519,18 @@ Partial Class frmNacherfassungNEU Me.Panel1.Size = New System.Drawing.Size(883, 799) Me.Panel1.TabIndex = 1 ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button4.Location = New System.Drawing.Point(440, 265) + Me.Button4.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(145, 27) + Me.Button4.TabIndex = 42 + Me.Button4.Text = "Endempfänger Liste" + Me.Button4.UseVisualStyleBackColor = True + ' 'txtKdAuftragsnummerEmpfaenger ' Me.txtKdAuftragsnummerEmpfaenger._DateTimeOnly = False @@ -3235,17 +3249,16 @@ Partial Class frmNacherfassungNEU Me.DataGridViewTextBoxColumn5.HeaderText = "Anzahl" Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" ' - 'Button4 + 'cbxEIDR ' - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.Button4.Location = New System.Drawing.Point(440, 265) - Me.Button4.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(145, 27) - Me.Button4.TabIndex = 42 - Me.Button4.Text = "Endempfänger Liste" - Me.Button4.UseVisualStyleBackColor = True + Me.cbxEIDR.AutoSize = True + Me.cbxEIDR.BackColor = System.Drawing.Color.White + Me.cbxEIDR.Location = New System.Drawing.Point(484, 70) + Me.cbxEIDR.Name = "cbxEIDR" + Me.cbxEIDR.Size = New System.Drawing.Size(106, 17) + Me.cbxEIDR.TabIndex = 93 + Me.cbxEIDR.Text = "EIDR ausständig" + Me.cbxEIDR.UseVisualStyleBackColor = False ' 'frmNacherfassungNEU ' @@ -3483,4 +3496,5 @@ Partial Class frmNacherfassungNEU Friend WithEvents Label64 As Label Public WithEvents cboAbklärungFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Button4 As Button + Friend WithEvents cbxEIDR As CheckBox End Class diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb index 6ec3454d..21bc39db 100644 --- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb +++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb @@ -252,6 +252,7 @@ Public Class frmNacherfassungNEU End If cbxBar.Checked = SPEDITIONSBUCH.Bar + cbxEIDR.Checked = SPEDITIONSBUCH.UK_EIDR_ausstehend cbxFakturiert.Checked = SPEDITIONSBUCH.Fakturiert txtBelegNummerZAT1T2.Text = SPEDITIONSBUCH.BelegNr @@ -622,14 +623,9 @@ Public Class frmNacherfassungNEU cboGrenze.Items.Clear() - cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) - cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB")) - cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG")) - cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI")) - cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD")) - cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA")) + cboGrenze.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE") cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) - + cboGrenze.changeItem("") If avisoLinkId > 0 Then Dim SQLAVISO As New VERAG_PROG_ALLGEMEIN.cavisoDAL @@ -904,6 +900,7 @@ Public Class frmNacherfassungNEU End If + SPEDITIONSBUCH.UK_EIDR_ausstehend = cbxEIDR.Checked SPEDITIONSBUCH.Bar = cbxBar.Checked SPEDITIONSBUCH.Fakturiert = cbxFakturiert.Checked @@ -1189,6 +1186,11 @@ Public Class frmNacherfassungNEU txtFraechter._UseFIRMA = FirmaTmp txtEndEmpf._UseFIRMA = FirmaTmp + If cboFiliale._value = 7001 Then + cbxEIDR.Visible = True + Else + cbxEIDR.Visible = False + End If End Sub diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb index 2acb084f..4d6bbda5 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb @@ -56,6 +56,10 @@ Partial Class usrCntlSpeditionsBuchSuche Me.dgvLKW = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlOpt = New System.Windows.Forms.Panel() Me.pnlBerichte = New System.Windows.Forms.Panel() + Me.lblKdAusFortschritt = New System.Windows.Forms.Label() + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.KundenauswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Button20 = New System.Windows.Forms.Button() Me.Label46 = New System.Windows.Forms.Label() @@ -176,10 +180,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Label45 = New System.Windows.Forms.Label() Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.SplitContainer = New System.Windows.Forms.SplitContainer() - Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() - Me.KundenauswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() - Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.lblKdAusFortschritt = New System.Windows.Forms.Label() + Me.cbxEIDR = New System.Windows.Forms.CheckBox() Me.cntxtCntxtSpeditionsbuch.SuspendLayout() Me.pnlRechts.SuspendLayout() CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() @@ -187,6 +188,7 @@ Partial Class usrCntlSpeditionsBuchSuche CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlOpt.SuspendLayout() Me.pnlBerichte.SuspendLayout() + Me.MenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() Me.pnl.SuspendLayout() Me.tbcntr.SuspendLayout() @@ -201,7 +203,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout() Me.SplitContainer.SuspendLayout() - Me.MenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'TabPage1 @@ -417,7 +418,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.txtPackstücke.MaxLines_Warning = "" Me.txtPackstücke.MaxLines_Warning_Label = Nothing Me.txtPackstücke.Name = "txtPackstücke" - Me.txtPackstücke.Size = New System.Drawing.Size(141, 20) + Me.txtPackstücke.Size = New System.Drawing.Size(110, 20) Me.txtPackstücke.TabIndex = 41 ' 'Label36 @@ -701,6 +702,42 @@ Partial Class usrCntlSpeditionsBuchSuche Me.pnlBerichte.TabIndex = 6 Me.pnlBerichte.Visible = False ' + 'lblKdAusFortschritt + ' + Me.lblKdAusFortschritt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblKdAusFortschritt.Location = New System.Drawing.Point(767, 135) + Me.lblKdAusFortschritt.Name = "lblKdAusFortschritt" + Me.lblKdAusFortschritt.Size = New System.Drawing.Size(77, 14) + Me.lblKdAusFortschritt.TabIndex = 43 + Me.lblKdAusFortschritt.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1}) + Me.MenuStrip1.Location = New System.Drawing.Point(601, 128) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(163, 27) + Me.MenuStrip1.TabIndex = 89 + Me.MenuStrip1.Text = "Kundenauswertungen" + ' + 'KundenauswertungenToolStripMenuItem1 + ' + Me.KundenauswertungenToolStripMenuItem1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem}) + Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White + Me.KundenauswertungenToolStripMenuItem1.Name = "KundenauswertungenToolStripMenuItem1" + Me.KundenauswertungenToolStripMenuItem1.Size = New System.Drawing.Size(155, 23) + Me.KundenauswertungenToolStripMenuItem1.Text = "Kundenauswertungen" + ' + 'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem + ' + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image) + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem" + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(347, 24) + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)" + ' 'cboHandlingssatz ' Me.cboHandlingssatz._allowedValuesFreiText = Nothing @@ -1666,6 +1703,7 @@ Partial Class usrCntlSpeditionsBuchSuche ' 'SplitContainer1.Panel2 ' + Me.SplitContainer1.Panel2.Controls.Add(Me.cbxEIDR) Me.SplitContainer1.Panel2.Controls.Add(Me.cbxCMR) Me.SplitContainer1.Panel2.Controls.Add(Me.Label41) Me.SplitContainer1.Panel2.Controls.Add(Me.txtKdAuftragsNr) @@ -1979,7 +2017,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.cbxCMR.BackColor = System.Drawing.Color.White Me.cbxCMR.Checked = True Me.cbxCMR.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cbxCMR.Location = New System.Drawing.Point(669, 195) + Me.cbxCMR.Location = New System.Drawing.Point(627, 195) Me.cbxCMR.Name = "cbxCMR" Me.cbxCMR.Size = New System.Drawing.Size(50, 17) Me.cbxCMR.TabIndex = 49 @@ -1990,7 +2028,7 @@ Partial Class usrCntlSpeditionsBuchSuche 'Label41 ' Me.Label41.AutoSize = True - Me.Label41.Location = New System.Drawing.Point(666, 93) + Me.Label41.Location = New System.Drawing.Point(624, 93) Me.Label41.Name = "Label41" Me.Label41.Size = New System.Drawing.Size(44, 13) Me.Label41.TabIndex = 48 @@ -2022,10 +2060,10 @@ Partial Class usrCntlSpeditionsBuchSuche ' Me.lstGrenze._value = "" Me.lstGrenze.FormattingEnabled = True - Me.lstGrenze.Location = New System.Drawing.Point(669, 108) + Me.lstGrenze.Location = New System.Drawing.Point(627, 108) Me.lstGrenze.Name = "lstGrenze" Me.lstGrenze.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple - Me.lstGrenze.Size = New System.Drawing.Size(63, 82) + Me.lstGrenze.Size = New System.Drawing.Size(105, 82) Me.lstGrenze.TabIndex = 47 ' 'Label40 @@ -2119,7 +2157,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.cbxFakturiert.BackColor = System.Drawing.Color.White Me.cbxFakturiert.Checked = True Me.cbxFakturiert.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cbxFakturiert.Location = New System.Drawing.Point(582, 180) + Me.cbxFakturiert.Location = New System.Drawing.Point(557, 180) Me.cbxFakturiert.Name = "cbxFakturiert" Me.cbxFakturiert.Size = New System.Drawing.Size(70, 17) Me.cbxFakturiert.TabIndex = 32 @@ -2328,7 +2366,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.txtErfassungsnNr.MaxLines_Warning = "" Me.txtErfassungsnNr.MaxLines_Warning_Label = Nothing Me.txtErfassungsnNr.Name = "txtErfassungsnNr" - Me.txtErfassungsnNr.Size = New System.Drawing.Size(141, 20) + Me.txtErfassungsnNr.Size = New System.Drawing.Size(110, 20) Me.txtErfassungsnNr.TabIndex = 14 ' 'Label24 @@ -2441,41 +2479,19 @@ Partial Class usrCntlSpeditionsBuchSuche Me.SplitContainer.SplitterWidth = 2 Me.SplitContainer.TabIndex = 3 ' - 'MenuStrip1 + 'cbxEIDR ' - Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None - Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1}) - Me.MenuStrip1.Location = New System.Drawing.Point(601, 128) - Me.MenuStrip1.Name = "MenuStrip1" - Me.MenuStrip1.Size = New System.Drawing.Size(283, 27) - Me.MenuStrip1.TabIndex = 89 - Me.MenuStrip1.Text = "Kundenauswertungen" - ' - 'KundenauswertungenToolStripMenuItem1 - ' - Me.KundenauswertungenToolStripMenuItem1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem}) - Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!) - Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White - Me.KundenauswertungenToolStripMenuItem1.Name = "KundenauswertungenToolStripMenuItem1" - Me.KundenauswertungenToolStripMenuItem1.Size = New System.Drawing.Size(155, 23) - Me.KundenauswertungenToolStripMenuItem1.Text = "Kundenauswertungen" - ' - 'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem - ' - Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image) - Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem" - Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(347, 24) - Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)" - ' - 'lblKdAusFortschritt - ' - Me.lblKdAusFortschritt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblKdAusFortschritt.Location = New System.Drawing.Point(767, 135) - Me.lblKdAusFortschritt.Name = "lblKdAusFortschritt" - Me.lblKdAusFortschritt.Size = New System.Drawing.Size(77, 14) - Me.lblKdAusFortschritt.TabIndex = 43 - Me.lblKdAusFortschritt.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.cbxEIDR.AutoSize = True + Me.cbxEIDR.BackColor = System.Drawing.Color.White + Me.cbxEIDR.Checked = True + Me.cbxEIDR.CheckState = System.Windows.Forms.CheckState.Indeterminate + Me.cbxEIDR.Location = New System.Drawing.Point(511, 197) + Me.cbxEIDR.Name = "cbxEIDR" + Me.cbxEIDR.Size = New System.Drawing.Size(106, 17) + Me.cbxEIDR.TabIndex = 54 + Me.cbxEIDR.Text = "EIDR ausständig" + Me.cbxEIDR.ThreeState = True + Me.cbxEIDR.UseVisualStyleBackColor = False ' 'usrCntlSpeditionsBuchSuche ' @@ -2496,6 +2512,8 @@ Partial Class usrCntlSpeditionsBuchSuche Me.pnlOpt.PerformLayout() Me.pnlBerichte.ResumeLayout(False) Me.pnlBerichte.PerformLayout() + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.pnl.ResumeLayout(False) @@ -2516,8 +2534,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.SplitContainer.Panel2.ResumeLayout(False) CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer.ResumeLayout(False) - Me.MenuStrip1.ResumeLayout(False) - Me.MenuStrip1.PerformLayout() Me.ResumeLayout(False) End Sub @@ -2677,4 +2693,5 @@ Partial Class usrCntlSpeditionsBuchSuche Friend WithEvents KundenauswertungenToolStripMenuItem1 As ToolStripMenuItem Friend WithEvents ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem Friend WithEvents lblKdAusFortschritt As Label + Friend WithEvents cbxEIDR As CheckBox End Class diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index 33f1e44b..ac3d10c6 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -273,6 +273,10 @@ Public Class usrCntlSpeditionsBuchSuche If cbxFakturiert.CheckState = CheckState.Unchecked Then sqlstr &= " AND Fakturiert=0 " If cbxCMR.CheckState = CheckState.Unchecked Then sqlstr &= " AND SB_CMR=0 " + If cbxEIDR.Visible Then + If cbxEIDR.CheckState = CheckState.Checked Then sqlstr &= " AND UK_EIDR_ausstehend=1 " + If cbxEIDR.CheckState = CheckState.Unchecked Then sqlstr &= " AND UK_EIDR_ausstehend=0 " + End If If cboSachbearbeiter._value <> "" Then sqlstr &= " AND [Personalnummer] = @Personalnummer " @@ -423,14 +427,19 @@ Public Class usrCntlSpeditionsBuchSuche 'End Select ' lstGrenze.fillWithSQL(" SELECT distinct(Grenzstelle),distinct(Grenzstelle) FROM [VERAG].[dbo].[Speditionsbuch] where Grenzstelle is not null order by Grenzstelle ", , "FMZOLL") + 'lstGrenze.Items.Clear() + 'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB")) + 'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG")) + 'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI")) + 'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD")) + 'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA")) + 'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB")) + 'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) lstGrenze.Items.Clear() - lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB")) - lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG")) - lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI")) - lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD")) - lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA")) - lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB")) + lstGrenze.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO") lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) + lstGrenze.changeItem("") + @@ -1922,4 +1931,8 @@ Public Class usrCntlSpeditionsBuchSuche End Try Me.Cursor = Cursors.Default End Sub + + Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged + cbxEIDR.Visible = cboFiliale._value = "7001" + End Sub End Class diff --git a/SDL/mdm/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb similarity index 76% rename from SDL/mdm/frmMDM_USTVAntrag.Designer.vb rename to SDL/USTV/frmMDM_USTVAntrag.Designer.vb index caaa612a..78386b0e 100644 --- a/SDL/mdm/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -32,6 +32,8 @@ Partial Class frmMDM_USTVAntrag Me.Label1 = New System.Windows.Forms.Label() Me.pnlFilter = New System.Windows.Forms.Panel() Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.lblPLOSE_EintrageVerarbetiet = New System.Windows.Forms.Label() + Me.cbxArchivierteEintracheNochmalsEinarbetien = New System.Windows.Forms.CheckBox() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() Me.pnlFilter.SuspendLayout() @@ -40,14 +42,14 @@ Partial Class frmMDM_USTVAntrag ' 'Panel3 ' - Me.Panel3.AutoSize = True + Me.Panel3.Controls.Add(Me.cbxArchivierteEintracheNochmalsEinarbetien) + Me.Panel3.Controls.Add(Me.lblPLOSE_EintrageVerarbetiet) Me.Panel3.Controls.Add(Me.Button14) Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel3.Location = New System.Drawing.Point(0, 402) + Me.Panel3.Location = New System.Drawing.Point(0, 524) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(800, 48) + Me.Panel3.Size = New System.Drawing.Size(1149, 76) Me.Panel3.TabIndex = 2 - Me.Panel3.Visible = False ' 'Button14 ' @@ -57,7 +59,7 @@ Partial Class frmMDM_USTVAntrag Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button14.Location = New System.Drawing.Point(12, 6) Me.Button14.Name = "Button14" - Me.Button14.Size = New System.Drawing.Size(156, 39) + Me.Button14.Size = New System.Drawing.Size(168, 39) Me.Button14.TabIndex = 3 Me.Button14.Text = "PLOSE übernehmen" Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -71,7 +73,7 @@ Partial Class frmMDM_USTVAntrag 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(800, 54) + Me.Panel1.Size = New System.Drawing.Size(1149, 54) Me.Panel1.TabIndex = 3 ' 'lblFirma @@ -104,7 +106,7 @@ Partial Class frmMDM_USTVAntrag Me.pnlFilter.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlFilter.Location = New System.Drawing.Point(0, 54) Me.pnlFilter.Name = "pnlFilter" - Me.pnlFilter.Size = New System.Drawing.Size(800, 348) + Me.pnlFilter.Size = New System.Drawing.Size(1149, 470) Me.pnlFilter.TabIndex = 6 ' 'dgvUSTVPositionen @@ -121,14 +123,33 @@ Partial Class frmMDM_USTVAntrag Me.dgvUSTVPositionen.Name = "dgvUSTVPositionen" Me.dgvUSTVPositionen.ReadOnly = True Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUSTVPositionen.Size = New System.Drawing.Size(798, 346) + Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1147, 468) Me.dgvUSTVPositionen.TabIndex = 4 ' + 'lblPLOSE_EintrageVerarbetiet + ' + Me.lblPLOSE_EintrageVerarbetiet.Location = New System.Drawing.Point(12, 48) + Me.lblPLOSE_EintrageVerarbetiet.Name = "lblPLOSE_EintrageVerarbetiet" + Me.lblPLOSE_EintrageVerarbetiet.Size = New System.Drawing.Size(168, 19) + Me.lblPLOSE_EintrageVerarbetiet.TabIndex = 4 + Me.lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet" + Me.lblPLOSE_EintrageVerarbetiet.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cbxArchivierteEintracheNochmalsEinarbetien + ' + Me.cbxArchivierteEintracheNochmalsEinarbetien.AutoSize = True + Me.cbxArchivierteEintracheNochmalsEinarbetien.Location = New System.Drawing.Point(186, 6) + Me.cbxArchivierteEintracheNochmalsEinarbetien.Name = "cbxArchivierteEintracheNochmalsEinarbetien" + Me.cbxArchivierteEintracheNochmalsEinarbetien.Size = New System.Drawing.Size(227, 17) + Me.cbxArchivierteEintracheNochmalsEinarbetien.TabIndex = 5 + Me.cbxArchivierteEintracheNochmalsEinarbetien.Text = "Archivierte Einträche nochmals einarbeiten" + Me.cbxArchivierteEintracheNochmalsEinarbetien.UseVisualStyleBackColor = True + ' 'frmMDM_USTVAntrag ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(800, 450) + Me.ClientSize = New System.Drawing.Size(1149, 600) Me.Controls.Add(Me.pnlFilter) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Panel3) @@ -137,12 +158,12 @@ Partial Class frmMDM_USTVAntrag Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "USTV Antrag" Me.Panel3.ResumeLayout(False) + Me.Panel3.PerformLayout() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.pnlFilter.ResumeLayout(False) CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) - Me.PerformLayout() End Sub @@ -153,4 +174,6 @@ Partial Class frmMDM_USTVAntrag Friend WithEvents Label1 As Label Friend WithEvents pnlFilter As Panel Friend WithEvents dgvUSTVPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents lblPLOSE_EintrageVerarbetiet As Label + Friend WithEvents cbxArchivierteEintracheNochmalsEinarbetien As CheckBox End Class diff --git a/SDL/mdm/frmMDM_USTVAntrag.resx b/SDL/USTV/frmMDM_USTVAntrag.resx similarity index 100% rename from SDL/mdm/frmMDM_USTVAntrag.resx rename to SDL/USTV/frmMDM_USTVAntrag.resx diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb new file mode 100644 index 00000000..349c70a9 --- /dev/null +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -0,0 +1,264 @@ +Public Class frmMDM_USTVAntrag + + Dim UStVAn_ID As Integer + + Sub New(UStVAn_ID) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.UStVAn_ID = UStVAn_ID + + End Sub + + Sub init() + pnlFilter.AutoScroll = False + + With dgvUSTVPositionen + .ClearSelection() + + If UStVAn_ID <= 0 Then Exit Sub + + .SET_SQL("SELECT [UStVAn_ID] ,[UStVPo_ID] ,[UStVPo_ReDat],[UStVPo_ReNr],[UStVPo_USteuerbetrag],[UStVPo_Leistungsbezeichnung],[UStVPo_Leistender],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter] + FROM [tblUStVPositionen] + where UStVAn_ID='" & UStVAn_ID & "' ORDER BY UStVPo_ID", "FMZOLL") + .LOAD() + .RowTemplate.Height = 20 + .AllowUserToOrderColumns = False + .AllowUserToResizeRows = False + + If .Columns.Count > 0 Then + + .Columns("UStVAn_ID").Visible = False + .Columns("UStVPo_ID").HeaderText = "Pos" + End If + + End With + + + Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID) + Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, False) + + If GET_Antraege IsNot Nothing AndAlso GET_Antraege.Count > 0 Then + lblPLOSE_EintrageVerarbetiet.Text = "aussehende Einträge: " & GET_Antraege.Count + Else + lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet" + End If + + + End Sub + + Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load + lblPLOSE_EintrageVerarbetiet.Text = "" + init() + + End Sub + + Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click + loadUSTVFrom_PLOSE() + + init() + End Sub + + + Function loadUSTVFrom_PLOSE() As Boolean + Try + Dim bytSchnittstellenNr = 6 'glaube noch frei? + Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID) + Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, cbxArchivierteEintracheNochmalsEinarbetien.Checked) + + If GET_Antraege IsNot Nothing Then + + For Each ANTRAG In GET_Antraege + Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen + USTV_POS.UStVAn_ID = USTV_ANTRAG.[UStVAn_ID] + USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr + USTV_POS.UStVPo_ReDat = ANTRAG.plose_RechnungsDatum + USTV_POS.UStVPo_ReNr = ANTRAG.plose_RechnungsNr.ToString + USTV_POS.UStVPo_Schnittstelle = True + USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr + USTV_POS.UStVPo_Leistungsbezeichnung = "Maut" + USTV_POS.UStVPo_Leistender = ANTRAG.plose_Lieferant + USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + USTV_POS.UStVPo_Zeitstempel = Now() + ' Berechnungen + USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ANTRAG.plose_MWSTBetragWaehrungAbbuchung, USTV_ANTRAG.UStVAn_Währungscode, "EUR") + 'USTV_POS.UStVPo_Umrechnungskurs = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuroKurs(ANTRAG.plose_WaehrungAbbuchung, ANTRAG.plose_RechnungsDatum) + USTV_POS.UStVPo_Umrechnungskurs = ANTRAG.plose_MWSTBetragWaehrungAbbuchung / ANTRAG.plose_MWSTBetrag + USTV_POS.UStVPo_USteuerbetrag = ANTRAG.plose_MWSTBetrag + USTV_POS.INSERT() + Next + + MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr) + + End If + Return True + Catch ex As Exception + Return False + End Try + End Function + + ' Private Sub cmdITMautÜbernehmen_Click() + + ' Dim wrk As DAO.Workspace + ' Dim qry1 As DAO.QueryDef + ' Dim qry2 As DAO.QueryDef + ' Dim rst1 As DAO.Recordset + ' Dim rstUStVPositionen As DAO.Recordset + ' Dim bytSchnittstellenNr As Byte + ' Dim fInTransaktion As Boolean + ' Dim intUStVPo_ID As Integer + + '1380 On Error GoTo PROC_Error + + '1390 If Eingabefehler Then Exit Sub + '1400 If Me!UStVAn_LandNr <> 5 Then + '1410 MsgBox "Datenübernahme nicht möglich (Land ist nicht Italien).", vbInformation, "Eingabeprüfung" + '1420 Exit Sub + '1430 End If + + ' ' Wenn Daten in Formular geändert wurden, Speichern auslösen. + '1440 If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord + '1450 DoCmd.Hourglass True + + ' ' Italienisches Mautarchiv lesen. + '1460 Set wrk = DBEngine.Workspaces(0) + '1470 Set qry1 = dbs.QueryDefs("qryUStVMautITLesen") + '1480 qry1.Parameters("[Param1]") = Me![UStVAn_ReDatVon] + '1490 qry1.Parameters("[Param2]") = Me![UStVAn_ReDatBis] + '1500 qry1.Parameters("[Param3]") = Me![UStVAn_KuNr] + '1510 Set rst1 = qry1.OpenRecordset(dbOpenSnapshot) + '1520 If Not rst1.EOF Then + '1530 bytSchnittstellenNr = 3 + '1540 intUStVPo_ID = UStVPo_ID_zuordnen(Me![UStVAn_ID]) + '1550 Set rstUStVPositionen = dbs.OpenRecordset("tblUStVPositionen", dbOpenDynaset, dbAppendOnly) + '1560 wrk.BeginTrans + '1570 fInTransaktion = True + '1580 Do Until rst1.EOF + '1590 If RechnungÜbernehmen(rst1!RechnungsDatum, CStr(rst1!Rechnungsnummer), bytSchnittstellenNr, Me!UStVAn_KuNr, Me!UStVAn_LandNr) Then + '1600 intUStVPo_ID = intUStVPo_ID + 1 + ' ' Schreiben der Umsatzsteuerdaten in die Tabelle. + '1610 With rstUStVPositionen + '1620 .AddNew + '1630 !UStVAn_ID = Me![UStVAn_ID] + '1640 !UStVPo_ID = intUStVPo_ID + '1650 !UStVPo_ReDat = rst1!RechnungsDatum + '1660 !UStVPo_ReNr = CStr(rst1!Rechnungsnummer) + '1670 !UStVPo_Schnittstelle = True + '1680 !UStVPo_SchnittstellenNr = bytSchnittstellenNr + '1690 !UStVPo_Leistungsbezeichnung = "Maut" + '1700 !UStVPo_Leistender = "Telepass" + '1710 !UStVPo_Sachbearbeiter = CurrentUser() + '1720 !UStVPo_Zeitstempel = Now() + ' ' Berechnungen + '1730 !UStVPo_USteuerbetragEUR = rst1!MWStBetrag + '1740 !UStVPo_Umrechnungskurs = fktEurokurs(Me![UStVAn_Währungscode], ![UStVPo_ReDat]) + '1750 !UStVPo_USteuerbetrag = Int(![UStVPo_USteuerbetragEUR] * !UStVPo_Umrechnungskurs * 100 + 0.5) / 100 + '1760 .Update + '1770 End With + ' ' UStV-Antragsnummer im Archiv eintragen. + '1780 Set qry2 = dbs.QueryDefs("qryUStVMautITAntragsNrEintragen") + '1790 qry2.Parameters("[prmUStVAn_ID]") = Me![UStVAn_ID] + '1800 qry2.Parameters("[prmVerrechnungsdatum]") = rst1!RechnungsDatum + '1810 qry2.Parameters("[prmCode_Adressat_des_Kontoauszugs]") = rst1!Rechnungsnummer + '1820 qry2.Execute dbFailOnError + '1830 qry2.Close + '1840 Set qry2 = Nothing + '1850 End If + '1860 rst1.MoveNext + '1870 Loop + '1880 wrk.CommitTrans + '1890 fInTransaktion = False + '1900 Me!tblUStVPositionen.Requery + '1910 End If + + 'PROC_Exit: + '1920 On Error Resume Next + '1930 If Not rstUStVPositionen Is Nothing Then + '1940 rstUStVPositionen.Close + '1950 Set rstUStVPositionen = Nothing + '1960 End If + '1970 If Not rst1 Is Nothing Then + '1980 rst1.Close + '1990 Set rst1 = Nothing + '2000 End If + '2010 If Not qry2 Is Nothing Then + '2020 qry2.Close + '2030 Set qry2 = Nothing + '2040 End If + '2050 If Not qry1 Is Nothing Then + '2060 qry1.Close + '2070 Set qry1 = Nothing + '2080 End If + '2090 If Not wrk Is Nothing Then + '2100 Set wrk = Nothing + '2110 End If + '2120 DoCmd.Hourglass False + '2130 Exit Sub + + 'PROC_Error: + '2140 If fInTransaktion Then + '2150 wrk.Rollback + '2160 fInTransaktion = False + '2170 End If + '2180 DoCmd.Hourglass False + '2190 ErrNotify Err, "Form_frmUStVAntragserfassung", "cmdITMautÜbernehmen_Click", eNormalError + '2200 Resume PROC_Exit + + ' End Sub + + + + + ' Private Function RechnungÜbernehmen( + ' ByRef varUStVPo_ReDat As Variant, + ' ByRef varUStVPo_ReNr As Variant, + ' ByRef varUStVPo_SchnittstellenNr As Variant, + ' ByRef varUStVAn_KuNr, + ' ByRef varUStVAn_LandNr) As Boolean + + ' Dim fResult As Boolean + ' Dim qry As DAO.QueryDef + ' Dim rst As DAO.Recordset + + '12000 On Error GoTo PROC_Error + + '12010 Set qry = dbs.QueryDefs("qryUStVRechnungÜbernehmen") + '12020 qry.Parameters("[prmUStVPo_ReDat]") = varUStVPo_ReDat + '12030 qry.Parameters("[prmUStVPo_ReNr]") = varUStVPo_ReNr + '12040 qry.Parameters("[prmUStVPo_SchnittstellenNr]") = varUStVPo_SchnittstellenNr + '12050 qry.Parameters("[prmUStVAn_KuNr]") = varUStVAn_KuNr + '12060 qry.Parameters("[prmUStVAn_LandNr]") = varUStVAn_LandNr + '12070 Set rst = qry.OpenRecordset(dbOpenSnapshot) + '12080 If rst.EOF Then fResult = True Else fResult = False + + 'PROC_Exit: + '12090 On Error Resume Next + '12100 If Not rst Is Nothing Then + '12110 rst.Close + '12120 Set rst = Nothing + '12130 End If + '12140 If Not qry Is Nothing Then + '12150 qry.Close + '12160 Set qry = Nothing + '12170 End If + '12180 RechnungÜbernehmen = fResult + '12190 Exit Function + + 'PROC_Error: + '12200 Select Case ErrHandler(Err, "Form_frmUStVAntragserfassung", "RechnungÜbernehmen") + ' Case 0 + '12210 Resume + '12220 Case 1 + '12230 ErrNotify Err, "Form_frmUStVAntragserfassung", "RechnungÜbernehmen", eNormalError + '12240 Case 2 + '12250 ErrNotify Err, "Form_frmUStVAntragserfassung", "RechnungÜbernehmen", eHiddenError + '12260 End Select + '12270 fResult = False + '12280 Resume PROC_Exit + + ' End Function + + +End Class \ No newline at end of file diff --git a/SDL/mdm/usrCntlUSTV.Designer.vb b/SDL/USTV/usrCntlUSTV.Designer.vb similarity index 100% rename from SDL/mdm/usrCntlUSTV.Designer.vb rename to SDL/USTV/usrCntlUSTV.Designer.vb diff --git a/SDL/mdm/usrCntlUSTV.resx b/SDL/USTV/usrCntlUSTV.resx similarity index 100% rename from SDL/mdm/usrCntlUSTV.resx rename to SDL/USTV/usrCntlUSTV.resx diff --git a/SDL/mdm/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb similarity index 100% rename from SDL/mdm/usrCntlUSTV.vb rename to SDL/USTV/usrCntlUSTV.vb diff --git a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb index 31584a7a..09e5ac00 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb @@ -117,6 +117,29 @@ End Select + Case "MIC" + Select Case ART + Case "T1", "T2", "NCTS", "ÜT" + + If ART = "ÜT" Then + ART = "T1" + isSTAMMREF = False + STAMMREF = "" '?????????????????????????????? + End If + + If Me.DY Is Nothing Then + Dim usrcntl As New usrCntlMIC_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) + + Else + Dim usrcntl As New usrCntlMIC_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) + End If + + End Select + Case Else '"DAKOSY' diff --git a/SDL/ZOLLSYSTEM/MIC/usrCntlMIC_NCTS.Designer.vb b/SDL/ZOLLSYSTEM/MIC/usrCntlMIC_NCTS.Designer.vb new file mode 100644 index 00000000..e129faf4 --- /dev/null +++ b/SDL/ZOLLSYSTEM/MIC/usrCntlMIC_NCTS.Designer.vb @@ -0,0 +1,515 @@ + +Partial Class usrCntlMIC_NCTS + 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.SplitContainer = New System.Windows.Forms.SplitContainer() + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.btnAllgemein = New System.Windows.Forms.Button() + Me.btnAdressen = New System.Windows.Forms.Button() + Me.btnSicherheit = New System.Windows.Forms.Button() + Me.btnVerschlüsse = New System.Windows.Forms.Button() + Me.btnPositionen = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.pnl = New System.Windows.Forms.Panel() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblBezugsnummer = New System.Windows.Forms.Label() + Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.pic = New System.Windows.Forms.PictureBox() + Me.txtDyMandant = New System.Windows.Forms.Label() + Me.txtDyNiederlassung = New System.Windows.Forms.Label() + Me.MenuStrip = New System.Windows.Forms.MenuStrip() + Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer.Panel1.SuspendLayout() + Me.SplitContainer.SuspendLayout() + Me.MyFlowLayoutPanel1.SuspendLayout() + Me.pnl.SuspendLayout() + Me.cntxtBezugsnr.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MenuStrip.SuspendLayout() + Me.SuspendLayout() + ' + 'SplitContainer + ' + Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1 + Me.SplitContainer.IsSplitterFixed = True + Me.SplitContainer.Location = New System.Drawing.Point(0, 25) + Me.SplitContainer.Margin = New System.Windows.Forms.Padding(0) + Me.SplitContainer.Name = "SplitContainer" + Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer.Panel1 + ' + Me.SplitContainer.Panel1.Controls.Add(Me.MyFlowLayoutPanel1) + Me.SplitContainer.Panel1.Controls.Add(Me.pnl) + ' + 'SplitContainer.Panel2 + ' + Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.WhiteSmoke + Me.SplitContainer.Size = New System.Drawing.Size(934, 687) + Me.SplitContainer.SplitterDistance = 72 + Me.SplitContainer.SplitterWidth = 1 + Me.SplitContainer.TabIndex = 0 + ' + 'MyFlowLayoutPanel1 + ' + Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAdressen) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSicherheit) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnVerschlüsse) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnPositionen) + Me.MyFlowLayoutPanel1.Controls.Add(Me.Button5) + Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(1) + Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1" + Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(573, 72) + Me.MyFlowLayoutPanel1.TabIndex = 0 + ' + 'btnAllgemein + ' + Me.btnAllgemein.BackColor = System.Drawing.Color.SteelBlue + Me.btnAllgemein.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnAllgemein.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAllgemein.ForeColor = System.Drawing.SystemColors.ControlLightLight + Me.btnAllgemein.Image = Global.SDL.My.Resources.Resources.android_note12 + Me.btnAllgemein.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnAllgemein.Location = New System.Drawing.Point(2, 2) + Me.btnAllgemein.Margin = New System.Windows.Forms.Padding(2) + Me.btnAllgemein.Name = "btnAllgemein" + Me.btnAllgemein.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3) + Me.btnAllgemein.Size = New System.Drawing.Size(75, 67) + Me.btnAllgemein.TabIndex = 0 + Me.btnAllgemein.Text = "Allgemein" + Me.btnAllgemein.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnAllgemein.UseVisualStyleBackColor = False + ' + 'btnAdressen + ' + Me.btnAdressen.BackColor = System.Drawing.Color.White + Me.btnAdressen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnAdressen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAdressen.Image = Global.SDL.My.Resources.Resources.house1 + Me.btnAdressen.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnAdressen.Location = New System.Drawing.Point(81, 2) + Me.btnAdressen.Margin = New System.Windows.Forms.Padding(2) + Me.btnAdressen.Name = "btnAdressen" + Me.btnAdressen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3) + Me.btnAdressen.Size = New System.Drawing.Size(75, 67) + Me.btnAdressen.TabIndex = 1 + Me.btnAdressen.Text = "Adressen" + Me.btnAdressen.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnAdressen.UseVisualStyleBackColor = False + ' + 'btnSicherheit + ' + Me.btnSicherheit.BackColor = System.Drawing.Color.White + Me.btnSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSicherheit.Image = Global.SDL.My.Resources.Resources.sicherheit1 + Me.btnSicherheit.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSicherheit.Location = New System.Drawing.Point(160, 2) + Me.btnSicherheit.Margin = New System.Windows.Forms.Padding(2) + Me.btnSicherheit.Name = "btnSicherheit" + Me.btnSicherheit.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3) + Me.btnSicherheit.Size = New System.Drawing.Size(81, 67) + Me.btnSicherheit.TabIndex = 2 + Me.btnSicherheit.Text = "Sicherheit" + Me.btnSicherheit.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSicherheit.UseVisualStyleBackColor = False + ' + 'btnVerschlüsse + ' + Me.btnVerschlüsse.BackColor = System.Drawing.Color.White + Me.btnVerschlüsse.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnVerschlüsse.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVerschlüsse.Image = Global.SDL.My.Resources.Resources.seal3 + Me.btnVerschlüsse.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnVerschlüsse.Location = New System.Drawing.Point(245, 2) + Me.btnVerschlüsse.Margin = New System.Windows.Forms.Padding(2) + Me.btnVerschlüsse.Name = "btnVerschlüsse" + Me.btnVerschlüsse.Padding = New System.Windows.Forms.Padding(0, 6, 0, 3) + Me.btnVerschlüsse.Size = New System.Drawing.Size(81, 67) + Me.btnVerschlüsse.TabIndex = 3 + Me.btnVerschlüsse.Text = "Verschlüsse" + Me.btnVerschlüsse.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnVerschlüsse.UseVisualStyleBackColor = False + ' + 'btnPositionen + ' + Me.btnPositionen.BackColor = System.Drawing.Color.White + Me.btnPositionen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnPositionen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnPositionen.Image = Global.SDL.My.Resources.Resources.list_new_small2 + Me.btnPositionen.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnPositionen.Location = New System.Drawing.Point(330, 2) + Me.btnPositionen.Margin = New System.Windows.Forms.Padding(2) + Me.btnPositionen.Name = "btnPositionen" + Me.btnPositionen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3) + Me.btnPositionen.Size = New System.Drawing.Size(81, 67) + Me.btnPositionen.TabIndex = 4 + Me.btnPositionen.Text = "Positionen" + Me.btnPositionen.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnPositionen.UseVisualStyleBackColor = False + ' + 'Button5 + ' + Me.Button5.BackColor = System.Drawing.Color.White + Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Image = Global.SDL.My.Resources.Resources.android_note12 + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button5.Location = New System.Drawing.Point(415, 2) + Me.Button5.Margin = New System.Windows.Forms.Padding(2) + Me.Button5.Name = "Button5" + Me.Button5.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3) + Me.Button5.Size = New System.Drawing.Size(81, 67) + Me.Button5.TabIndex = 5 + Me.Button5.Text = "Referenzen" + Me.Button5.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.Button5.UseVisualStyleBackColor = False + Me.Button5.Visible = False + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnl.Controls.Add(Me.Label8) + Me.pnl.Controls.Add(Me.Label7) + Me.pnl.Controls.Add(Me.Label6) + Me.pnl.Controls.Add(Me.cboStammreferenz) + Me.pnl.Controls.Add(Me.cboDakosyAction) + Me.pnl.Controls.Add(Me.Button1) + Me.pnl.Controls.Add(Me.Label4) + Me.pnl.Controls.Add(Me.Label5) + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Controls.Add(Me.Label3) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Right + Me.pnl.Location = New System.Drawing.Point(573, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(361, 72) + Me.pnl.TabIndex = 1 + ' + 'Label8 + ' + Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(8, 34) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(60, 13) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "Rohmasse:" + Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label7 + ' + Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold) + Me.Label7.Location = New System.Drawing.Point(73, 31) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(122, 18) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "0 kg" + Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label6 + ' + Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(8, 51) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(57, 13) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "Stammref.:" + Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cboStammreferenz + ' + Me.cboStammreferenz._allowedValuesFreiText = Nothing + Me.cboStammreferenz._allowFreiText = False + Me.cboStammreferenz._value = "" + Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboStammreferenz.FormattingEnabled = True + Me.cboStammreferenz.Location = New System.Drawing.Point(66, 48) + Me.cboStammreferenz.Name = "cboStammreferenz" + Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21) + Me.cboStammreferenz.TabIndex = 11 + ' + 'cboDakosyAction + ' + Me.cboDakosyAction._allowedValuesFreiText = Nothing + Me.cboDakosyAction._allowFreiText = False + Me.cboDakosyAction._value = "" + Me.cboDakosyAction.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboDakosyAction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboDakosyAction.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboDakosyAction.FormattingEnabled = True + Me.cboDakosyAction.Location = New System.Drawing.Point(200, 48) + Me.cboDakosyAction.Name = "cboDakosyAction" + Me.cboDakosyAction.Size = New System.Drawing.Size(158, 21) + Me.cboDakosyAction.TabIndex = 1 + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.BackColor = System.Drawing.Color.White + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button1.Location = New System.Drawing.Point(200, 5) + Me.Button1.Margin = New System.Windows.Forms.Padding(2) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(159, 42) + Me.Button1.TabIndex = 6 + Me.Button1.Text = "An MIC senden -->" + Me.Button1.UseVisualStyleBackColor = False + ' + 'Label4 + ' + Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(8, 19) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(67, 13) + Me.Label4.TabIndex = 9 + Me.Label4.Text = "Packstücke:" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label5 + ' + Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold) + Me.Label5.Location = New System.Drawing.Point(73, 16) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(122, 18) + Me.Label5.TabIndex = 10 + Me.Label5.Text = "0 Pk" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label2 + ' + Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(8, 4) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(59, 13) + Me.Label2.TabIndex = 7 + Me.Label2.Text = "Positionen:" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label3 + ' + Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold) + Me.Label3.Location = New System.Drawing.Point(103, 1) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(92, 18) + Me.Label3.TabIndex = 8 + Me.Label3.Text = "1" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label1 + ' + Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(581, 7) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(82, 13) + Me.Label1.TabIndex = 5 + Me.Label1.Text = "Bezugsnummer:" + ' + 'lblBezugsnummer + ' + Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblBezugsnummer.BackColor = System.Drawing.Color.White + Me.lblBezugsnummer.ContextMenuStrip = Me.cntxtBezugsnr + Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBezugsnummer.Location = New System.Drawing.Point(738, 1) + Me.lblBezugsnummer.Name = "lblBezugsnummer" + Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23) + Me.lblBezugsnummer.TabIndex = 6 + Me.lblBezugsnummer.Text = "4800/000000/17 AAA" + Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'cntxtBezugsnr + ' + Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem}) + Me.cntxtBezugsnr.Name = "cntxtBezugsnr" + Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 26) + Me.cntxtBezugsnr.Text = "Bezugsnr" + ' + 'NeueBezugsnummerVergebenToolStripMenuItem + ' + Me.NeueBezugsnummerVergebenToolStripMenuItem.Name = "NeueBezugsnummerVergebenToolStripMenuItem" + Me.NeueBezugsnummerVergebenToolStripMenuItem.Size = New System.Drawing.Size(238, 22) + Me.NeueBezugsnummerVergebenToolStripMenuItem.Text = "neue Bezugsnummer vergeben" + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.pic) + Me.Panel1.Controls.Add(Me.txtDyMandant) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.txtDyNiederlassung) + Me.Panel1.Controls.Add(Me.lblBezugsnummer) + Me.Panel1.Controls.Add(Me.MenuStrip) + 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(934, 25) + Me.Panel1.TabIndex = 1 + ' + 'pic + ' + Me.pic.BackColor = System.Drawing.Color.White + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.mic_logo___short + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Location = New System.Drawing.Point(217, 0) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(100, 24) + Me.pic.TabIndex = 20 + Me.pic.TabStop = False + ' + 'txtDyMandant + ' + Me.txtDyMandant.BackColor = System.Drawing.Color.White + Me.txtDyMandant.Location = New System.Drawing.Point(443, 7) + Me.txtDyMandant.Name = "txtDyMandant" + Me.txtDyMandant.Size = New System.Drawing.Size(48, 13) + Me.txtDyMandant.TabIndex = 19 + Me.txtDyMandant.Text = "VERG" + Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtDyNiederlassung + ' + Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White + Me.txtDyNiederlassung.Location = New System.Drawing.Point(497, 7) + Me.txtDyNiederlassung.Name = "txtDyNiederlassung" + Me.txtDyNiederlassung.Size = New System.Drawing.Size(63, 13) + Me.txtDyNiederlassung.TabIndex = 18 + Me.txtDyNiederlassung.Text = "SUB" + ' + 'MenuStrip + ' + Me.MenuStrip.BackColor = System.Drawing.Color.White + Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem}) + Me.MenuStrip.Location = New System.Drawing.Point(0, 0) + Me.MenuStrip.Name = "MenuStrip" + Me.MenuStrip.Size = New System.Drawing.Size(934, 24) + Me.MenuStrip.TabIndex = 0 + ' + 'OptionenToolStripMenuItem + ' + Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpeichernToolStripMenuItem, Me.LadenToolStripMenuItem}) + Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem" + Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20) + Me.OptionenToolStripMenuItem.Text = "Optionen" + ' + 'SpeichernToolStripMenuItem + ' + Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem" + Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(126, 22) + Me.SpeichernToolStripMenuItem.Text = "Speichern" + ' + 'LadenToolStripMenuItem + ' + Me.LadenToolStripMenuItem.Name = "LadenToolStripMenuItem" + Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(126, 22) + Me.LadenToolStripMenuItem.Text = "Laden ..." + ' + 'usrCntlMIC_NCTS + ' + 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.Controls.Add(Me.SplitContainer) + Me.Controls.Add(Me.Panel1) + Me.Name = "usrCntlMIC_NCTS" + Me.Size = New System.Drawing.Size(934, 712) + Me.SplitContainer.Panel1.ResumeLayout(False) + CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer.ResumeLayout(False) + Me.MyFlowLayoutPanel1.ResumeLayout(False) + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.cntxtBezugsnr.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.MenuStrip.ResumeLayout(False) + Me.MenuStrip.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents SplitContainer As System.Windows.Forms.SplitContainer + Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel + Friend WithEvents btnAllgemein As System.Windows.Forms.Button + Friend WithEvents btnAdressen As System.Windows.Forms.Button + Friend WithEvents btnSicherheit As System.Windows.Forms.Button + Friend WithEvents btnVerschlüsse As System.Windows.Forms.Button + Friend WithEvents btnPositionen As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents lblBezugsnummer As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip + Friend WithEvents OptionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents LadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cboDakosyAction As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cntxtBezugsnr As System.Windows.Forms.ContextMenuStrip + Friend WithEvents NeueBezugsnummerVergebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtDyMandant As System.Windows.Forms.Label + Friend WithEvents txtDyNiederlassung As System.Windows.Forms.Label + Friend WithEvents Label4 As Label + Friend WithEvents Label7 As Label + Friend WithEvents Label8 As Label + Friend WithEvents pic As PictureBox +End Class diff --git a/SDL/ZOLLSYSTEM/MIC/usrCntlMIC_NCTS.resx b/SDL/ZOLLSYSTEM/MIC/usrCntlMIC_NCTS.resx new file mode 100644 index 00000000..39313e13 --- /dev/null +++ b/SDL/ZOLLSYSTEM/MIC/usrCntlMIC_NCTS.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 125, 17 + + + 17, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/SDL/ZOLLSYSTEM/MIC/usrCntlMIC_NCTS.vb b/SDL/ZOLLSYSTEM/MIC/usrCntlMIC_NCTS.vb new file mode 100644 index 00000000..5dbb6ae3 --- /dev/null +++ b/SDL/ZOLLSYSTEM/MIC/usrCntlMIC_NCTS.vb @@ -0,0 +1,629 @@ +Imports DAKOSY_Worker + +Imports Tamir +Imports Tamir.SharpSsh + +Public Class usrCntlMIC_NCTS + + Property ALLG As usrCntlATLAS_NCTS_Allg + Property ADRESSEN As usrCntlATLAS_ncts_Adressen + Property SICHERHEIT As usrCntlATLAS_NCTS_Sicherheit + Property POSITIONEN As usrCntlATLAS_NCTS_Positionen + Property VERSCHLUESSE As usrCntlATLAS_NCTS_Verschluesse + 'Property FilialeNr As Integer + ' Property AbfertigungsNr As Integer + Property Jahr2Stellig As Integer + Property zusatz As String + Property BezugsNr As String = "" + ' Property AvisoId As Integer + 'Property SENDUNGS_ID As Integer + Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso + Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen + Dim sentToDakosy = False + + Property isSTAMMREF As Boolean = False ' Wenn das Formular als Stammreferenz bearbeitet wird + Property STAMMREF As String = "" ' Wenn eine Stammrefereenz als Grundlage dient + + Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1") + + Dim ncts_OUT As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing + Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing + + Sub New(ncts_OUT As VERAG_PROG_ALLGEMEIN.cNCTS_TR, Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "") + InitializeComponent() + Me.isSTAMMREF = isSTAMMREF + Me.STAMMREF = STAMMREF + Me.ncts_OUT = ncts_OUT + DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID) + + If DY_ANM.dy_AvisoId > 0 Then + Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL + AVISO = AV.LesenAviso(DY_ANM.dy_AvisoId, "") + End If + If DY_ANM.dy_SendungsId > 0 Then + SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_ANM.dy_SendungsId) + End If + End Sub + + Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "") + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + + Me.Jahr2Stellig = Jahr2Stellig + Me.zusatz = zusatz + + Me.AVISO = AVISO + Me.SENDUNG = SENDUNG + Me.DY_ANM = DY_ANM + Me.isSTAMMREF = isSTAMMREF + Me.STAMMREF = STAMMREF + + + If DY_ANM IsNot Nothing Then + Me.ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByAnmIDFull(DY_ANM.dy_Id, True) + Me.cDy_ART = If(DY_ANM.dy_ART, "") + If Me.cDy_ART = "" And Me.ncts_OUT IsNot Nothing Then Me.cDy_ART = If(Me.ncts_OUT.ncts_ArtAnmeldung, "") + If Me.cDy_ART = "" Then Me.cDy_ART = "T1" + If ncts_OUT IsNot Nothing Then + Me.FIRMA_DY = If(Me.ncts_OUT.ncts_firma, "") + End If + + End If + 'DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID) + + + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + + Sub New(ART As String, AvisoId As Integer, SENDUNGS_ID As Integer, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "") + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.cDy_ART = If(ART = "NCTS", "T1", ART) + + If AvisoId > 0 Then + Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL + AVISO = AV.LesenAviso(AvisoId, "") + End If + If SENDUNGS_ID > 0 Then + SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SENDUNGS_ID) + End If + + Me.Jahr2Stellig = Jahr2Stellig + Me.isSTAMMREF = isSTAMMREF + Me.STAMMREF = STAMMREF + Me.zusatz = zusatz + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + + Sub New(ART As String, Aviso As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "", Optional FIRMA_DY As String = "") + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.cDy_ART = If(ART = "NCTS", "T1", ART) + + Me.AVISO = Aviso + Me.SENDUNG = SENDUNG + Me.isSTAMMREF = isSTAMMREF + Me.STAMMREF = STAMMREF + + Me.Jahr2Stellig = Jahr2Stellig + Me.zusatz = zusatz + If FIRMA_DY <> "" Then Me.FIRMA_DY = FIRMA_DY + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + + Function getBezugsnr(ByRef BezugsNr) + Dim BezugsNrTmp = "" + Select Case FIRMA_DY + Case "UNISPED" + If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then + BezugsNrTmp = SENDUNG.tblSnd_DakosyRef + Else + BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr + End If + Case Else + BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig + End Select + BezugsNr = BezugsNrTmp + zusatz = "A" + 'Soloagne bis die Bezugsnummer noch nicht existiert + While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing + BezugsNr = BezugsNrTmp & "/" & zusatz + + If zusatz.Length = 1 Then + zusatz = Chr(Asc(zusatz.ToString) + 1) + Else + zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1) + End If + + If zusatz = "Z" Then zusatz = "AA" + End While + lblBezugsnummer.Text = BezugsNr + Return BezugsNr + End Function + + Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load + 'MsgBox("LOAD") + + cboDakosyAction.Items.Clear() + cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neuen Datensatz erstellen", DY_ObjektAktion.OBJ_CREATE)) + cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vohr. DS ändern", DY_ObjektAktion.OBJ_CHANGE)) + cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorh. DS stornieren", DY_ObjektAktion.OBJ_CANCEL)) + cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND)) + cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE) + + Select Case FIRMA_DY + Case "VERAG" : txtDyMandant.Text = "VERG" + txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + 'Case "SUB" : txtDyNiederlassung.Text = "VERG" + 'Case "SUW" : txtDyNiederlassung.Text = "ATIL" + ''Case "SBG" : txtDyNiederlassung.Text = "IMEX" + 'Case "NEU" : txtDyNiederlassung.Text = "IMEX" + 'Case "NKD" : txtDyNiederlassung.Text = "IMEX" + 'End Select + Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW" + Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED" + Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME" + Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" + End Select + + + cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True) + cboStammreferenz.changeItem("") + + SICHERHEIT = New usrCntlATLAS_NCTS_Sicherheit(ncts_OUT, FIRMA_DY) + VERSCHLUESSE = New usrCntlATLAS_NCTS_Verschluesse() 'ncts_OUT) + ADRESSEN = New usrCntlATLAS_ncts_Adressen(ncts_OUT, FIRMA_DY) ') + ALLG = New usrCntlATLAS_NCTS_Allg(ncts_OUT) + POSITIONEN = New usrCntlATLAS_NCTS_Positionen(ncts_OUT) + + If isSTAMMREF Then + Me.BezugsNr = "STAMMREFERENZ" + If ncts_OUT Is Nothing Then ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR() + ncts_OUT.ncts_ObjectName = BezugsNr + Else + If ncts_OUT Is Nothing Then ' NEUE ZOLLANMELDUNG + Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, FIRMA_DY) + Dim Stammreferenz = Nothing + If f.ShowDialog(Me) Then + Stammreferenz = f.STAMMREF + sentToDakosy = f.sentToDakosy + End If + Try + + BezugsNr = getBezugsnr(BezugsNr) + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr(BezugsNr, True) + If ncts_OUT Is Nothing Then + 'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist + ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist! + + + If ncts_OUT IsNot Nothing Then + 'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben + ncts_OUT.ncts_dyaAnmID = -1 + ncts_OUT.ncts_Id = -1 + Else + ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR() + End If + + + loaddataFromAVISO(ncts_OUT) + cboStammreferenz.changeItem(Stammreferenz) + + + End If + 'ncts_OUT + + Else + ' ncts_OUT is ot nothing + Me.BezugsNr = ncts_OUT.ncts_ObjectName + 'MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name) + + End If + End If + If If(ncts_OUT.ncts_firma, "") = "" Then If FIRMA_DY <> "" Then ncts_OUT.ncts_firma = FIRMA_DY + + If If(Me.cDy_ART, "") <> "" Then + 'Muss noch überschrieben werdne, da sonst Art von Stammref hergenommen wird... + ncts_OUT.ncts_ArtAnmeldung = Me.cDy_ART + Else + 'Wenn keine Art --> T1 + If ncts_OUT.ncts_ArtAnmeldung Is Nothing Or ncts_OUT.ncts_ArtAnmeldung = "" Then + ncts_OUT.ncts_ArtAnmeldung = "T1" + End If + End If + + + 'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s + Me.SplitContainer.Panel2.Controls.Add(SICHERHEIT) + Me.SplitContainer.Panel2.Controls.Add(VERSCHLUESSE) + Me.SplitContainer.Panel2.Controls.Add(ALLG) + Me.SplitContainer.Panel2.Controls.Add(POSITIONEN) + Me.SplitContainer.Panel2.Controls.Add(ADRESSEN) + + ' MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name) + 'Werte setzen: + SICHERHEIT.setValues_TR(ncts_OUT.ncts_SICHERHEITSANGABEN) + 'VERSCHLUESSE.setValues_TR(ncts_OUT) + ADRESSEN.setValues_TR(ncts_OUT) + ALLG.setValues(ncts_OUT) + POSITIONEN.setValues_TR(ncts_OUT) + + If If(ncts_OUT.ncts_Stammreferenz, "") <> "" Then cboStammreferenz.changeItem(ncts_OUT.ncts_Stammreferenz) + + 'Controls wieder entfernen: + Me.SplitContainer.Panel2.Controls.Clear() + + + ' If ALLG.txtKennnummer.Text = "" Then ALLG.txtKennnummer.Text = BezugsNr + + + + ' ADRESSEN.CreateControl() + For Each c In MyFlowLayoutPanel1.Controls + If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then + AddHandler DirectCast(c, System.Windows.Forms.Button).Click, AddressOf buttonClick + End If + Next + + SplitContainer.Panel2.Controls.Add(ALLG) + lblBezugsnummer.Text = BezugsNr + + + + + ALLG.Dock = DockStyle.Fill + ADRESSEN.Dock = DockStyle.Fill + POSITIONEN.Dock = DockStyle.Fill + SICHERHEIT.Dock = DockStyle.Fill + VERSCHLUESSE.Dock = DockStyle.Fill + + ' + ' + AddHandler POSITIONEN.RohmasseChanged, Sub(rohmasse, packstuecke) + Label5.Text = packstuecke.ToString("N0") & " Pk" + Label7.Text = rohmasse.ToString("N2") & " kg" + + End Sub + AddHandler POSITIONEN.PosAnzChanged, Sub(anz) + Label3.Text = anz + End Sub + + If isSTAMMREF Then + Button1.Visible = False + cboDakosyAction.Visible = False + lblBezugsnummer.Text = "STAMMREFERENZ" + lblBezugsnummer.ForeColor = Color.Red + End If + + + If sentToDakosy Then + + Try + Me.Button1.PerformClick() + Me.FindForm.Close() + Catch + End Try + End If + Try + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then + Me.FindForm.Close() + End If + Catch + End Try + End Sub + + Sub buttonClick(sender As Object, e As EventArgs) 'HANDLED + Dim btn As System.Windows.Forms.Button = DirectCast(sender, System.Windows.Forms.Button) + + For Each c In MyFlowLayoutPanel1.Controls + If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then + DirectCast(c, System.Windows.Forms.Button).BackColor = Drawing.Color.White + DirectCast(c, System.Windows.Forms.Button).ForeColor = Drawing.Color.Black + End If + Next + + btn.BackColor = Drawing.Color.SteelBlue 'Drawing.Color.FromArgb(0, 54, 128) + btn.ForeColor = Drawing.Color.White + + + SplitContainer.Panel2.Controls.Clear() + + If btn Is btnAllgemein Then + SplitContainer.Panel2.Controls.Add(ALLG) + ElseIf btn Is btnAdressen Then + SplitContainer.Panel2.Controls.Add(ADRESSEN) + ElseIf btn Is btnSicherheit Then + SplitContainer.Panel2.Controls.Add(SICHERHEIT) + ElseIf btn Is btnVerschlüsse Then + SplitContainer.Panel2.Controls.Add(VERSCHLUESSE) + ElseIf btn Is btnPositionen Then + SplitContainer.Panel2.Controls.Add(POSITIONEN) + End If + End Sub + + + + + Sub loaddataFromAVISO(ByRef cdy As VERAG_PROG_ALLGEMEIN.cNCTS_TR) + Try + + '==> VORBLENDUNG: + + ' Dim cdy As New VERAG_PROG_ALLGEMEIN.cNCTS_TR + cdy.ncts_ObjectName = BezugsNr + cdy.ncts_AbgangsDienststellennummer = "" '"DE007701" ' Neuhaus (öSTERR:) + frmZollanmeldung.setZollstelle(cdy.ncts_AbgangsDienststellennummer, AVISO) + + cdy.ncts_dyaArt = cDy_ART + If AVISO IsNot Nothing Then + cdy.ncts_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr + cdy.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = AVISO.LKW_Nationalitaet + If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then + cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = "X" + Else + cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = AVISO.LKW_Nr + cdy.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = AVISO.LKW_Nationalitaet + End If + + End If + + + cdy.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = "3" + cdy.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = "35" + + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then + cdy.ncts_SumA_KzSumASicherheit = True + cdy.ncts_SumA_BesondereUmstaende = "C" + cdy.ncts_SumA_BefoerderungskostenZahlungsweise = "D" + cdy.ncts_SumA_Ladeort = "DE" + cdy.ncts_SumA_KennnummerSendung = "OHNE" + + If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then + Dim AD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cAdressen(AVISO.Frächter_KdNr) ' Befoerderer + Dim KD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cKunde(AVISO.Frächter_KdNr) ' Befoerderer + cdy.ncts_SumA_Befoerderer_EORI = KD_Befoerderer.EORITIN + If KD_Befoerderer.EORITIN IsNot Nothing Then cdy.ncts_SumA_Befoerderer_NLNR = KD_Befoerderer.EORITIN_NL + cdy.ncts_SumA_Befoerderer_Name = (If(AD_Befoerderer.Name_1, "") & " " & If(AD_Befoerderer.Name_2, "")).trim + cdy.ncts_SumA_Befoerderer_StrasseHausnummer = AD_Befoerderer.Straße + cdy.ncts_SumA_Befoerderer_PLZ = AD_Befoerderer.PLZ + cdy.ncts_SumA_Befoerderer_Ort = AD_Befoerderer.Ordnungsbegriff + cdy.ncts_SumA_Befoerderer_Land = cProgramFunctions.getISO2Land(AD_Befoerderer.LandKz) + Else + cdy.ncts_SumA_Befoerderer_Name = If(AVISO.Frächter, "") + End If + End If + + + + If SENDUNG IsNot Nothing Then + + Dim p As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing + If cdy.ncts_WARENPOS.Count > 0 Then + p = cdy.ncts_WARENPOS(0) + Else + p = New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition + cdy.ncts_WARENPOS.Add(p) ' schon wieder...'nciht mehr anfügen + End If + p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung + If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then + Dim pk As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke + pk.nctsWpPk_PackstueckeAnzahl = SENDUNG.tblSnd_Colli + pk.nctsWpPk_Verpackungsart = "PK" + pk.nctsWpPk_ZeichenNummern = "OHNE" + p.nctsWP_PACKSTUECKE.Add(pk) + End If + p.nctsWP_Rohmasse = SENDUNG.tblSnd_Gewicht + p.nctsWP_Warenwert = SENDUNG.tblSnd_Warenwert + p.nctsWP_WarenwertWaehrung = SENDUNG.tblSnd_WarenwertWaehrung + ' p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung + p.nctsWP_VorpapierTyp = "OHNE" + + If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then + p.nctsWP_BesondereVermeke_Export = True + End If + 'cdy.ncts_WARENPOS.Add(p) + + cdy.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI) + cdy.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI_NL) + cdy.ncts_Empfaenger_Name = cProgramFunctions.isLeerNothing(SENDUNG.tblSnd_NCTSVerzollungsadresse) + cdy.ncts_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Strasse) + cdy.ncts_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_PLZ) + cdy.ncts_Empfaenger_Ort = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Ort) + cdy.ncts_Empfaenger_Land = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Land) + cdy.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle) + + + If SENDUNG.tblSnd_AbsenderKdNr > 0 Then + Dim adVERSENDER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr) + Dim kdVERSENDER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr) + cdy.ncts_Versender_EORI = kdVERSENDER.EORITIN + cdy.ncts_Versender_NLNR = kdVERSENDER.EORITIN_NL + cdy.ncts_Versender_Name = If(adVERSENDER.Name_1, "") & If(adVERSENDER.Name_2, "") + cdy.ncts_Versender_StrasseHausnummer = adVERSENDER.Straße + cdy.ncts_Versender_PLZ = adVERSENDER.PLZ + cdy.ncts_Versender_Ort = adVERSENDER.Ort + If adVERSENDER.LandKz IsNot Nothing Then cdy.ncts_Versender_Land = cProgramFunctions.getISO2Land(adVERSENDER.LandKz) + ' cdy.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle) + + End If + + End If + + + ' NCTS= cdy + Catch ex As Exception + MsgBox(ex.StackTrace) + End Try + End Sub + + + Sub setValue(ncts_OUT) + BezugsNr = ncts_OUT.ncts_ObjectName + + End Sub + + + Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) + + End Sub + + Sub loadDYZollanmeldungen(Optional Status As String = "") ' + Speichern + If DY_ANM Is Nothing Then + DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID) + End If + DY_ANM.dy_ART = ALLG.NCTS_ART 'cDy_ART + DY_ANM.dy_BezugsNr = BezugsNr + DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID) + DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID) + 'Status? + DY_ANM.SAVE() 'Speichern, ID wird erzeugt + + End Sub + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + + Me.Refresh() + Me.Cursor = Cursors.WaitCursor + If sentToDakosy 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) + loadDYZollanmeldungen() + + If ncts_OUT IsNot Nothing Then + 'Dim cDY As New VERAG_PROG_ALLGEMEIN.cNCTS_TR(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB) + ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id + ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB + ncts_OUT.ncts_LetzteBearbeitung = Now + ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB + ncts_OUT.ncts_Partnersystem = "VERAG_MIC" ' eigene Anmeldungen in Fremdsystem + ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05 + ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 + loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY) + + + If Not ncts_OUT.SAVE_ALL() Then Exit Sub '---> DANN SCHON + + Dim saveFile = "" + If VERAG_PROG_ALLGEMEIN.cMIC.generateNCTS(ncts_OUT, saveFile, BezugsNr) Then + If saveFile <> "" Then + Process.Start(saveFile) + ' VERAG_PROG_ALLGEMEIN.cMIC.send_Data_To_Dakosy_FTP() + 'If Not send_Data_To_Dakosy_FTP(saveFile, BezugsNr, Nothing, Nothing) Then + ' MsgBox("Sendefehler!") + 'End If + End If + End If + + '---> DANN SCHON::: + 'Dim saveFile = "" + 'If VERAG_PROG_ALLGEMEIN.cMICInterface.generateVersandanmeldungNCTS(ncts_OUT, saveFile, cboDakosyAction._value) Then + ' If saveFile <> "" Then + ' If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then + ' DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03) + ' Else + ' DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09) + ' MsgBox("Sendefehler!") + ' End If + ' End If + 'End If + End If + + DY_ANM.UPDATE_DATA() + Me.FindForm.Close() + End If + Me.Cursor = Cursors.Default + End Sub + + + Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click + + Me.Refresh() + + ' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, If(AVISO Is Nothing, Nothing, AVISO.AvisoID), If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID)) + loadDYZollanmeldungen() + + If ncts_OUT IsNot Nothing Then + 'Dim cDY As New VERAG_PROG_ALLGEMEIN.cNCTS_TR(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB) + ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id + ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB + ncts_OUT.ncts_LetzteBearbeitung = Now + ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB + ncts_OUT.ncts_Partnersystem = "VERAG_MIC" ' eigene Anmeldungen in Fremdsystem + ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_00 + ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_00 + + loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY) + + If Not ncts_OUT.SAVE_ALL() Then + 'gespeichert + End If + + + End If + DY_ANM.UPDATE_DATA() + + End Sub + + Private Sub NeueBezugsnummerVergebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueBezugsnummerVergebenToolStripMenuItem.Click + BezugsNr = getBezugsnr(BezugsNr) + End Sub + + Function loadInClass_VersandanmeldungNCTS(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR, USRCNTL As usrCntlMIC_NCTS, FIRMA_DY As String) As VERAG_PROG_ALLGEMEIN.cNCTS_TR + Try + + Select Case FIRMA_DY + Case "UNISPED" + NCTS.ncts_Trans_Partner = "UNAT" + Case Else + NCTS.ncts_Trans_Partner = "VERA" + End Select + + + NCTS.ncts_Trans_DatumZeit = Now + NCTS.ncts_Gestellt = False + NCTS.ncts_Status = "00" + NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + NCTS.ncts_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing) + NCTS.ncts_Trans_Version = "003" + NCTS.ncts_Trans_Div1 = "ATILLA" + 'NCTS.ncts_Trans_Div1 = "ATILLA" + 'NCTS.ncts_Trans_Div1 = "ATILLA" + + NCTS.ncts_Stammreferenz = If(USRCNTL.cboStammreferenz._value = "", Nothing, USRCNTL.cboStammreferenz._value) + NCTS.ncts_BezugsnummerVorblendung = NCTS.ncts_Stammreferenz + + NCTS.ncts_ObjectName = USRCNTL.BezugsNr + 'NCTS.ncts_ObjectAlias = USRCNTL.AVISO.AvisoID + USRCNTL.ALLG.getValues(NCTS) + USRCNTL.ADRESSEN.getValues_TR(NCTS) + USRCNTL.POSITIONEN.getValues_TR(NCTS) + NCTS.ncts_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues_TR() + 'USRCNTL.VERSCHLUESSE.getValues_TR(NCTS) + 'NCTS.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues() + '-------------------------------- + + + + Return NCTS + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return Nothing + End Try + End Function + +End Class + diff --git a/SDL/cProgramFunctions.vb b/SDL/cProgramFunctions.vb index 5f87133b..6ff0b399 100644 --- a/SDL/cProgramFunctions.vb +++ b/SDL/cProgramFunctions.vb @@ -180,6 +180,12 @@ Public Class cProgramFunctions Dim docid As String = "" If Filiale = 4801 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat17] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") + ElseIf Filiale = 5601 Then + If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat393] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") + If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat394] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") + ElseIf Filiale = 5701 Then + If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat395] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") + If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat397] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") Else docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat291] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat153] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") @@ -217,7 +223,8 @@ Public Class cProgramFunctions Select Case VM_Artid Case 1, 7 : Return openThereforeNavigatorZollvollmachten_DE(KundenNr) Case 2, 8 : Return openThereforeNavigatorFiskalVM_DE(KundenNr) - Case 4, 9, 12, 13 : Return openThereforeNavigatorFiskalVM_AT(KundenNr) + Case 4, 9 : Return openThereforeNavigatorFiskalVM_AT(KundenNr) + Case 12, 13 : Return openThereforeNavigatorVM_AT(KundenNr) End Select Return False End Function @@ -295,7 +302,7 @@ Public Class cProgramFunctions End Function - Shared Function openThereforeNavigatorFiskalVM_AT(KundenNr As String) + Shared Function openThereforeNavigatorVM_AT(KundenNr As String) Try Dim srch = KundenNr & "%" Dim docid As String = "" @@ -319,6 +326,30 @@ Public Class cProgramFunctions Return False End Function + Shared Function openThereforeNavigatorFiskalVM_AT(KundenNr As String) + Try + Dim srch = KundenNr & "%" + Dim docid As String = "" + docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat205] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") + + If IsNumeric(docid) AndAlso docid > 0 Then + ' Process.Start("theviewer.exe -" & docid) + ' Process.Start("C:\Program Files (x86)\Therefore\theviewer.exe -" & docid) + Try + Shell("C:\Program Files (x86)\Therefore\theviewer.exe -d" & docid) + Catch ex As Exception + Shell("C:\Program Files\Therefore\theviewer.exe -d" & docid) + End Try + Else + MsgBox("Das Dokument konnte nicht gefunden werden.") + End If + Return True + Catch ex As Exception + MsgBox("Fehler beim Öffnen!" & vbNewLine & ex.Message & ex.StackTrace) + End Try + Return False + End Function + Shared Function openThereforeNavigatorFiskalVM_DE(KundenNr As String) Try Dim srch = KundenNr & "%" diff --git a/SDL/cSqlDb.vb b/SDL/cSqlDb.vb index cb271717..9a2901ac 100644 --- a/SDL/cSqlDb.vb +++ b/SDL/cSqlDb.vb @@ -422,7 +422,7 @@ Public Class SQLZoll End Using Return daten Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -471,13 +471,13 @@ Public Class SQLZoll Return newcmd.ExecuteScalar Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using Return False Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return -1 End Function @@ -496,7 +496,7 @@ Public Class SQLZoll cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using @@ -526,7 +526,7 @@ Public Class SQL Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing @@ -546,7 +546,7 @@ Public Class SQL conn.Close() End Using Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return -1 End Function @@ -632,7 +632,7 @@ Public Class SQL Next End If Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return sql.Replace(" AND ", vbNewLine).Trim End Function @@ -753,7 +753,7 @@ Public Class SQL Return myTable Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing @@ -782,7 +782,7 @@ Public Class SQL ' End Using Return o 'While Schleife wird hier verlassen Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing @@ -819,7 +819,7 @@ Public Class SQL Return o 'While Schleife wird hier verlassen Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing @@ -904,7 +904,7 @@ Public Class SQL Return s Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try 'MsgBox("3") Return "" @@ -934,7 +934,7 @@ Public Class SQL conn.Close() Return True Catch ex As Exception - If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace & vbNewLine & sql) + If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,, sql) End Try Return False End Function @@ -952,8 +952,8 @@ Public Class SQL Try ' MsgBox(sql) Using cmd As New SqlCommand(sql, conn) - If List IsNot Nothing Then - For Each i In List + 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 @@ -963,7 +963,7 @@ Public Class SQL conn.Close() Return True Catch ex As Exception - If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) + If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,, sql) End Try Return False End Function @@ -996,7 +996,7 @@ Public Class SQL conn.Close() Catch ex As Exception - If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) + If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,, sql) End Try Return id End Function @@ -1024,7 +1024,7 @@ Public Class FMZOLL_SQL 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) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try @@ -1044,7 +1044,7 @@ Public Class FMZOLL_SQL 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) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try @@ -1105,8 +1105,7 @@ Public Class FMZOLL_SQL End Using Return Nothing Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -1145,7 +1144,7 @@ Public Class FMZOLL_SQL d.cRKSV_Kasse = cRKSV_Kasse End If - + Return d End If dr.Close() @@ -1153,7 +1152,7 @@ Public Class FMZOLL_SQL End Using Return Nothing Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -1184,7 +1183,7 @@ Public Class FMZOLL_SQL If d.cRKSV_KasseID > 0 Then Dim cRKSV_Kasse As New cRKSV_Kasse(d.cRKSV_KasseID) End If - + Return d End If dr.Close() @@ -1192,8 +1191,7 @@ Public Class FMZOLL_SQL End Using Return Nothing Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -1225,7 +1223,7 @@ Public Class BerichteSQL End Using Return d Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try End Function @@ -1268,7 +1266,7 @@ Public Class kundenSQL End Using Return d Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -1308,7 +1306,7 @@ Public Class kundenSQL End Using Return d Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -1444,7 +1442,7 @@ Public Class kundenSQL End Using Return Nothing Catch ex As Exception - MsgBox("Fehler in der Funk!tion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return Nothing End Function @@ -1461,7 +1459,8 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Datensatz kann nicht gespeichert werden!") + End Try End Using End Using @@ -1480,7 +1479,8 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Datensatz kann nicht gespeichert werden!") + End Try End Using End Using @@ -1504,7 +1504,7 @@ Public Class kundenSQL End Using Return data Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -1526,7 +1526,7 @@ Public Class kundenSQL End Using Return data Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -1550,7 +1550,7 @@ Public Class kundenSQL End Using Return data Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -1587,7 +1587,7 @@ Public Class kundenSQL End Using Return d Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -1608,7 +1608,7 @@ Public Class kundenSQL End Using Return d Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -1628,7 +1628,7 @@ Public Class kundenSQL End Using Return d Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -1654,7 +1654,7 @@ Public Class kundenSQL End Using ' Return d Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return myTable End Function @@ -1688,7 +1688,7 @@ Public Class kundenSQL End Using End Using Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return False End Function @@ -1710,7 +1710,7 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,, sql) End Try End Using End Using @@ -1743,7 +1743,7 @@ Public Class kundenSQL End Using End Using Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return False End Function @@ -1778,7 +1778,7 @@ Public Class kundenSQL End Using End Using Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return False End Function @@ -1797,7 +1797,7 @@ Public Class kundenSQL End Using End Using Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return False @@ -1817,7 +1817,7 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,, sql) End Try End Using End Using @@ -1840,7 +1840,7 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,, sql) End Try End Using End Using @@ -1864,7 +1864,7 @@ Public Class kundenSQL End Using Return daten Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -1944,7 +1944,7 @@ Public Class kundenSQL conn.Close() Return True Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False End Function @@ -1974,7 +1974,7 @@ Public Class kundenSQL conn.Close() Return i Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return -1 End Function @@ -1996,7 +1996,7 @@ Public Class kundenSQL End Using Return daten Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2019,7 +2019,7 @@ Public Class kundenSQL End Using Return daten Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2038,7 +2038,7 @@ Public Class kundenSQL End Using End Using Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return KartenNr End Function @@ -2061,7 +2061,7 @@ Public Class kundenSQL End Using Return daten Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2080,13 +2080,13 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using Return False Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2108,13 +2108,13 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using Return False Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2133,13 +2133,13 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using Return False Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2171,13 +2171,13 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using Return False Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2203,13 +2203,13 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using Return False Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2234,13 +2234,13 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using Return False Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2276,13 +2276,13 @@ Public Class kundenSQL LAST_SDL_HISTORY = History Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using Return False Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2303,7 +2303,7 @@ Public Class kundenSQL End Using Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return 1 End Function @@ -2325,12 +2325,12 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return False End Function @@ -2346,13 +2346,13 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using Return False Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2369,13 +2369,13 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using Return False Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2398,7 +2398,7 @@ Public Class kundenSQL End Using Return daten Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2418,7 +2418,7 @@ Public Class kundenSQL End Using End Using Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return False End Function @@ -2453,7 +2453,7 @@ Public Class kundenSQL End Using Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return d End Function @@ -2519,7 +2519,7 @@ Public Class kundenSQL End Using Return d Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,) End Try Return Nothing End Function @@ -2580,7 +2580,7 @@ Public Class kundenSQL cmd.ExecuteNonQuery() Return True Catch ex As SqlException - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Using End Using diff --git a/SDL/frmDienstplan.Designer.vb b/SDL/frmDienstplan.Designer.vb index 4f316fdb..2739faa9 100644 --- a/SDL/frmDienstplan.Designer.vb +++ b/SDL/frmDienstplan.Designer.vb @@ -249,6 +249,7 @@ Partial Class frmDienstplan ' 'pnlDP ' + Me.pnlDP.AutoScroll = True Me.pnlDP.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlDP.FlowDirection = System.Windows.Forms.FlowDirection.TopDown Me.pnlDP.Location = New System.Drawing.Point(0, 0) @@ -256,6 +257,7 @@ Partial Class frmDienstplan Me.pnlDP.Name = "pnlDP" Me.pnlDP.Size = New System.Drawing.Size(1028, 862) Me.pnlDP.TabIndex = 0 + Me.pnlDP.WrapContents = False ' 'Panel2 ' diff --git a/SDL/frmDienstplan.vb b/SDL/frmDienstplan.vb index 17cee5ac..5904643a 100644 --- a/SDL/frmDienstplan.vb +++ b/SDL/frmDienstplan.vb @@ -26,7 +26,7 @@ Dim NAHeight = 150 pnlDP.Controls.Clear() - Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM [ADMIN].[dbo].[tblDienstplanEintraegeDetails] where dedet_niederlassung='" & DP_ART & "' and dedet_benutzerdefinierteSchicht=1 order by dedet_reihenfolge", "ADMIN") + Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM [ADMIN].[dbo].[tblDienstplanEintraegeDetails] where dedet_niederlassung='" & DP_ART & "' and dedet_benutzerdefinierteSchicht=1 and [dedet_aktiv]=1 order by dedet_reihenfolge", "ADMIN") For Each r In dt.Rows Dim ustCntl As New usrCntlDienstWoche diff --git a/SDL/kunden/frmKundenUebersichtZOLL.vb b/SDL/kunden/frmKundenUebersichtZOLL.vb index 7af67029..64b63f6c 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.vb @@ -313,7 +313,9 @@ Public Class frmKundenUebersichtZOLL If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_CLUSTER", "SDL") And Not ((KdFirma = "IMEX" Or KdFirma = "VERAG") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL")) And - Not ((KdFirma = "FRONTOFFICE") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_FRONTOFFICE", "SDL")) Then + Not ((KdFirma = "AMBAR") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AMBAR", "SDL")) And + Not ((KdFirma = "FRONTOFFICE") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_FRONTOFFICE", "SDL")) And + Not ((KdFirma = "AMBAR") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_AMBAR", "SDL")) Then mnueOfferte.Enabled = False mnueRechnungen.Enabled = False mnueSpeditionsbuch.Enabled = False diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index af29ff6f..1c3ed143 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -722,7 +722,7 @@ Public Class frmKundenblatt Try Dim connectionString As String = cSqlDb.GetSDLConnectionString - Dim sqlstr As String = "SELECT KundenNr,KfzKennzeichen, Nationalität, Abgemeldet, Verkauft,KZAenderung, Vermerk,Erfassungsdatum,Änderungsdatum,Sachbearbeiter FROM LKW WHERE KundenNr=" & kdNr & " " + Dim sqlstr As String = "SELECT KundenNr,KfzKennzeichen, Nationalität, Abgemeldet, Verkauft,KZAenderung, Vermerk,Erfassungsdatum,Änderungsdatum,Sachbearbeiter,Baujahr,[KzFinanzierungBank],[KzLeasing],[KzMiete] FROM LKW WHERE KundenNr=" & kdNr & " " If TextBox11.Text <> "" Then sqlstr &= " AND KfzKennzeichen LIKE '" & TextBox11.Text & "%'" 'Suchparam ' MsgBox(sqlstr) Me.dataAdapterLKW = New SqlDataAdapter(sqlstr, connectionString) @@ -762,6 +762,11 @@ Public Class frmKundenblatt .AllowUserToOrderColumns = True .Columns("KundenNr").Visible = False + .Columns("Baujahr").Visible = False + .Columns("KzFinanzierungBank").Visible = False + .Columns("KzLeasing").Visible = False + .Columns("KzMiete").Visible = False + .Columns("KfzKennzeichen").MinimumWidth = 100 .Columns("KfzKennzeichen").HeaderText = "KFZ-Kennzeichen" @@ -1137,9 +1142,9 @@ Public Class frmKundenblatt Private Sub dgvSDLLeistungenFull_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSDLLeistungenFull.CellClick If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then - If Not dgvSDLLeistungenFull.CurrentRow.Cells(9).Value Is DBNull.Value Then lblErfassungsdatum_SDL.Text = dgvSDLLeistungenFull.CurrentRow.Cells(9).Value - If Not dgvSDLLeistungenFull.CurrentRow.Cells(10).Value Is DBNull.Value Then lblAenderungsdatum_SDL.Text = dgvSDLLeistungenFull.CurrentRow.Cells(10).Value - If Not dgvSDLLeistungenFull.CurrentRow.Cells(11).Value Is DBNull.Value Then lblLetzterSA_SDL.Text = dgvSDLLeistungenFull.CurrentRow.Cells(11).Value + If Not dgvSDLLeistungenFull.SelectedRows(0).Cells(9).Value Is DBNull.Value Then lblErfassungsdatum_SDL.Text = dgvSDLLeistungenFull.SelectedRows(0).Cells(9).Value + If Not dgvSDLLeistungenFull.SelectedRows(0).Cells(10).Value Is DBNull.Value Then lblAenderungsdatum_SDL.Text = dgvSDLLeistungenFull.SelectedRows(0).Cells(10).Value + If Not dgvSDLLeistungenFull.SelectedRows(0).Cells(11).Value Is DBNull.Value Then lblLetzterSA_SDL.Text = dgvSDLLeistungenFull.SelectedRows(0).Cells(11).Value End If End Sub @@ -1147,8 +1152,8 @@ Public Class frmKundenblatt If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", "SDL") Then Exit Sub If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then - If vbYes = MsgBox("Möchten Sie die Leistung wirklich löschen? " & vbNewLine & vbNewLine & dgvSDLLeistungenFull.CurrentRow.Cells("SDLNr").Value & " - " & dgvSDLLeistungenFull.CurrentRow.Cells("SDLBez").Value, vbYesNo) Then - kundenSQL.delKundenSDL(kdNr, dgvSDLLeistungenFull.CurrentRow.Cells(0).Value) + If vbYes = MsgBox("Möchten Sie die Leistung wirklich löschen? " & vbNewLine & vbNewLine & dgvSDLLeistungenFull.SelectedRows(0).Cells("SDLNr").Value & " - " & dgvSDLLeistungenFull.SelectedRows(0).Cells("SDLBez").Value, vbYesNo) Then + kundenSQL.delKundenSDL(kdNr, dgvSDLLeistungenFull.SelectedRows(0).Cells(0).Value) End If dgvSDLLeistungenFull.Columns.Clear() @@ -1171,7 +1176,7 @@ Public Class frmKundenblatt If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then Panel2.Visible = True 'Scan-Elemente initialisieren: - Dim tmpSDLNr = dgvSDLLeistungenFull.CurrentRow.Cells(0).Value + Dim tmpSDLNr = dgvSDLLeistungenFull.SelectedRows(0).Cells("SDLNr").Value scanErstbestellung.INIT(kdNr, "MDM_Leistung", "SDL_" & tmpSDLNr) scanJaraVereinbarung.INIT(kdNr, "MDM_Leistung", "SDL_" & tmpSDLNr) scanMWSTAgreement.INIT(kdNr, "MDM_Leistung", "SDL_" & tmpSDLNr) @@ -1217,7 +1222,7 @@ Public Class frmKundenblatt Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click, Button15.Click If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then - Dim sdlNrTmp = dgvSDLLeistungenFull.CurrentRow.Cells(0).Value + Dim sdlNrTmp = dgvSDLLeistungenFull.SelectedRows(0).Cells(0).Value Select Case sdlNrTmp Case 100 : kundenSQL.setPartnerKdNrFromFMZOLL_IDS(kdNr, txtPartnerKdNr.Text) 'IDS : 'gibt keine Einträge @@ -1331,10 +1336,10 @@ Public Class frmKundenblatt Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click - If dgvSDLLeistungenFull.SelectedCells.Count > 0 Then + If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then Dim frmSDLDetails As New frmSDLDetails frmSDLDetails.KdNr = kdNr - frmSDLDetails.sdlNr = dgvSDLLeistungenFull.CurrentRow.Cells(0).Value + frmSDLDetails.sdlNr = dgvSDLLeistungenFull.SelectedRows(0).Cells(0).Value Me.Enabled = False If frmSDLDetails.ShowDialog(Me) = vbOK Then initTABSDL_Leistungen() @@ -1534,10 +1539,89 @@ Public Class frmKundenblatt Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click Me.Cursor = Cursors.WaitCursor - cProgramFunctions.genExcelFromDGV_NEW(dgvLKW, True) + 'cProgramFunctions.genExcelFromDGV_NEW(dgvLKW, True) + Dim Path = "" + genLKWListeExcel(cProgramFunctions.dgridViewTods(dgvLKW), Path) + If Path <> "" Then Process.Start(Path) Me.Cursor = Cursors.Default End Sub + + Shared Function genLKWListeExcel(dt As DataTable, ByRef Path As String) As Boolean + Try + + If dt IsNot Nothing And dt.Rows.Count > 0 Then + + + Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\LKWListe\" ' My.Computer.FileSystem.GetTempFileName + If Not My.Computer.FileSystem.DirectoryExists(sPath) Then + My.Computer.FileSystem.CreateDirectory(sPath) + End If + + + Dim exclApp As Object 'as Application + Dim Datei As Object 'as WorkBook + Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet + exclApp = CreateObject("Excel.Application") + + With exclApp + .Visible = False + + Try + Path = sPath & "LKWListe_" & dt.Rows(0)("KundenNr") & ".xlsx" + While System.IO.File.Exists(Path) + Path = sPath & "LKWListe_" & dt.Rows(0)("KundenNr") & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + End While + My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.LKW_Liste, False) + Catch ex As System.Exception + ' MsgBox(ex.Message) + MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace) + Return False + End Try + + + Datei = .Workbooks.Open(Path) 'Anpassen + Blatt = Datei.Worksheets(1) 'Anpassen + + Blatt.Range("L1").Value = Now.ToShortDateString + Dim cnt = 4 + For Each r In dt.Rows + If cnt = 4 Then + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(r("KundenNr")) + Blatt.Range("D1").Value = r("KundenNr") + Blatt.Range("E1").Value = (AD.Name_1 & " " & If(AD.Name_2, "")).trim + End If + + Blatt.Range("A" & cnt).Value = r("KundenNr") + Blatt.Range("B" & cnt).Value = r("KfzKennzeichen") + Blatt.Range("C" & cnt).Value = r("Nationalität") + Blatt.Range("D" & cnt).Value = VERAG_PROG_ALLGEMEIN.SQL.checkNullDateReturnValue(r("Baujahr"), "") 'If(r("Abgemeldet") IsNot DBNull.Value, CDate(r("Baujahr")).ToShortDateString, "") + Blatt.Range("E" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("Abgemeldet")), "x", "") + ' Blatt.Range("F" & cnt).Value = r("Kennzeichen") + Blatt.Range("G" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("KzMiete")), "x", "") + Blatt.Range("H" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("KzLeasing")), "x", "") + Blatt.Range("I" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("KzFinanzierungBank")), "x", "") + Blatt.Range("J" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("Verkauft")), "x", "") + Blatt.Range("K" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("KZAenderung")), "x", "") + Blatt.Range("L" & cnt).Value = r("Vermerk") + + cnt += 1 + Next + Datei.Save + Datei.Close() + Datei = Nothing + exclApp = Nothing + + End With + + Return True + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function Private Sub frmKundenblatt_Shown(sender As Object, e As EventArgs) Handles Me.Shown If showEdit Then changeTab(1, ToolStripMenuItem2) diff --git a/SDL/kunden/frmOffertenBearbeiten.vb b/SDL/kunden/frmOffertenBearbeiten.vb index e4a76492..0559f0ba 100644 --- a/SDL/kunden/frmOffertenBearbeiten.vb +++ b/SDL/kunden/frmOffertenBearbeiten.vb @@ -27,7 +27,7 @@ Dim where = "" Select Case FIRMA_TMP Case "IMEX" - where = " WHERE [Offertenstamm].[OffertenNr] IN (1,2,3,4,5,6,7,8,9,10,26,27,29)" + where = " WHERE [Offertenstamm].[OffertenNr] IN (1,2,3,4,5,6,7,8,9,10,26,27,29,50,51)" End Select Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offerten where KundenNr=" & kdnr & " and [Offerten].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," & " [Offertenstamm].[OffertenNr],[OffertenBez] FROM Offertenstamm " & where & " order by OffertenNr" diff --git a/SDL/kunden/usrCntlKundenBesonderheiten.vb b/SDL/kunden/usrCntlKundenBesonderheiten.vb index b320ba4c..60237546 100644 --- a/SDL/kunden/usrCntlKundenBesonderheiten.vb +++ b/SDL/kunden/usrCntlKundenBesonderheiten.vb @@ -40,8 +40,8 @@ Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "") loaded = False - If simpleView Then Panel1.Visible = False 'showhideOptions(False) - cboKategorie.changeItem(Kategorie) + If simpleView Then Panel1.Height = 0 : Panel1.Visible = False 'showhideOptions(False) + cboKategorie.changeItem(Kategorie) cbx.Checked = False initDGV(kdNr, simpleView, preferedKategorie, preferedKategorieOtherIN) loaded = True @@ -75,9 +75,10 @@ Dim order = " ORDER BY kdb_AenderungAm desc" Dim katIN = " " + If preferedKategorie <> "" Then - order = " ORDER BY CASE WHEN kdb_kategorie = '" & preferedKategorie & "' THEN 1 ELSE 2 END desc, kdb_AenderungAm desc " - If katIN <> "" Then order = " AND kdb_kategorie IN(" & preferedKategorieOtherIN & ",'" & preferedKategorie & "') " + order = " ORDER BY CASE WHEN kdb_kategorie = '" & preferedKategorie & "' THEN 1 ELSE 2 END ASC, kdb_AenderungAm desc " + If preferedKategorieOtherIN <> "" Then katIN = " AND kdb_kategorie IN(" & preferedKategorieOtherIN & ",'" & preferedKategorie & "') " End If .DataSource = SQL.loadDgvBySql("Select kdb_id, kdb_AenderungAm,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_kategorie, kdb_hervorheben,kdb_history FROM [tblKundenBesonderheiten] where kdb_KundenNr=" & kdNr & " And kdb_visible=1 " & katIN & where & " " & order, "FMZOLL") diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 3c810b2a..b16f73f1 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -96,7 +96,7 @@ Public Class usrCntlKundenuebersicht connection.Close() Catch ex As Exception - MessageBox.Show("Err ! ") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -177,7 +177,7 @@ Public Class usrCntlKundenuebersicht tbcntrAllg.TabPages.Remove(tbAvisoMail) tbcntrAllg.TabPages.Remove(tbKdSpez) Catch ex As Exception - + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End If @@ -223,7 +223,7 @@ Public Class usrCntlKundenuebersicht VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) Catch ex As Exception - ' MsgBox(ex.Message & ex.StackTrace) + 'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -603,7 +603,7 @@ Public Class usrCntlKundenuebersicht ' Button4.Visible = False ' Button5.Visible = False Catch ex As Exception - MsgBox("Es ist ein Fehler beim Laden der Firmendaten - Allgemein aufgetreten!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Laden der Firmendaten - Allgemein aufgetreten!") End Try End Sub @@ -619,7 +619,7 @@ Public Class usrCntlKundenuebersicht kdErwTmp.SAVE() Catch ex As Exception - MsgBox("Fehler beim Speichern." & vbNewLine & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -1204,7 +1204,7 @@ Public Class usrCntlKundenuebersicht Next Catch ex As Exception - MsgBox("OP: " & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try 'Dim OP_tmp As Double = 0 @@ -1330,7 +1330,7 @@ Public Class usrCntlKundenuebersicht End If Next Catch ex As Exception - MsgBox("OP: " & ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try txtOPFaellig.Text = sumZZ.ToString("C") If sumZZ > 0 Then @@ -1414,7 +1414,7 @@ Public Class usrCntlKundenuebersicht ' cntxtVollmachten.Show(dgvVollmachten, dgvVollmachten.PointToClient(Cursor.Position)) End If Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -1688,10 +1688,10 @@ Public Class usrCntlKundenuebersicht Catch ex2 As InvalidOperationException 'Server.GetLastError() - MsgBox(ex2.Message & ex2.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) Catch ex As Exception 'Server.GetLastError() - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try sender.BackgroundImage = My.Resources.del @@ -2022,7 +2022,7 @@ Public Class usrCntlKundenuebersicht GG.gg_erhalten_Datum = txtGGDatum._value GG.gg_Zollamt = If(cbxGG.Checked, "GENERELL", txtT1VerzollungsadresseBestimmungszollstelle._value) - If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.ENTRY_Exists(kdNr, GG.gg_Zollamt) Then + If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.ENTRY_Exists(kdNr, GG.gg_Zollamt, txtGGDatum._value) Then MsgBox("Der Eintrag existiert bereits!") Exit Sub End If diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index 20f4b0e2..a09827ef 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -22,16 +22,16 @@ Partial Class usrcntlKundeBearbeitenFull '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 DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.lblHinweisKdNr = New System.Windows.Forms.Label() @@ -83,6 +83,11 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbFiskal = New System.Windows.Forms.TabPage() Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() Me.tbVerrechnung = New System.Windows.Forms.TabPage() + Me.Label95 = New System.Windows.Forms.Label() + Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxSammelrechnungBerichtLeistungsdetails = New System.Windows.Forms.CheckBox() + Me.cbxAPITradeshift = New System.Windows.Forms.CheckBox() + Me.Label94 = New System.Windows.Forms.Label() Me.cbxVeranlagungskunde = New System.Windows.Forms.CheckBox() Me.Label93 = New System.Windows.Forms.Label() Me.txtDebKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -210,6 +215,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbSonstiges = New System.Windows.Forms.TabPage() + Me.txtSonst_KdNrTOBB = New System.Windows.Forms.TextBox() + Me.Label96 = New System.Windows.Forms.Label() Me.txtSonst_KdNrPLOSE = New System.Windows.Forms.TextBox() Me.Label83 = New System.Windows.Forms.Label() Me.btnSonstAendSpeichern = New VERAG_PROG_ALLGEMEIN.FlatButton() @@ -305,8 +312,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxFiBu = New System.Windows.Forms.CheckBox() Me.cbxFiBuLG = New System.Windows.Forms.CheckBox() - Me.Label94 = New System.Windows.Forms.Label() - Me.cbxAPITradeshift = New System.Windows.Forms.CheckBox() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -979,6 +984,9 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbVerrechnung ' + Me.tbVerrechnung.Controls.Add(Me.Label95) + Me.tbVerrechnung.Controls.Add(Me.cboRechnungSprache) + Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnungBerichtLeistungsdetails) Me.tbVerrechnung.Controls.Add(Me.cbxAPITradeshift) Me.tbVerrechnung.Controls.Add(Me.Label94) Me.tbVerrechnung.Controls.Add(Me.cbxVeranlagungskunde) @@ -1026,6 +1034,63 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbVerrechnung.Text = "Verrechnung" Me.tbVerrechnung.UseVisualStyleBackColor = True ' + 'Label95 + ' + Me.Label95.AutoSize = True + Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label95.Location = New System.Drawing.Point(414, 135) + Me.Label95.Name = "Label95" + Me.Label95.Size = New System.Drawing.Size(70, 13) + Me.Label95.TabIndex = 38 + Me.Label95.Text = "Rg.-Sprache:" + ' + 'cboRechnungSprache + ' + Me.cboRechnungSprache._allowedValuesFreiText = Nothing + Me.cboRechnungSprache._allowFreiText = False + Me.cboRechnungSprache._value = "" + Me.cboRechnungSprache.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboRechnungSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboRechnungSprache.DropDownWidth = 200 + Me.cboRechnungSprache.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboRechnungSprache.ForeColor = System.Drawing.Color.Black + Me.cboRechnungSprache.FormattingEnabled = True + Me.cboRechnungSprache.Location = New System.Drawing.Point(527, 132) + Me.cboRechnungSprache.Name = "cboRechnungSprache" + Me.cboRechnungSprache.Size = New System.Drawing.Size(73, 21) + Me.cboRechnungSprache.TabIndex = 39 + ' + 'cbxSammelrechnungBerichtLeistungsdetails + ' + Me.cbxSammelrechnungBerichtLeistungsdetails.AutoSize = True + Me.cbxSammelrechnungBerichtLeistungsdetails.Location = New System.Drawing.Point(417, 178) + Me.cbxSammelrechnungBerichtLeistungsdetails.Name = "cbxSammelrechnungBerichtLeistungsdetails" + Me.cbxSammelrechnungBerichtLeistungsdetails.Size = New System.Drawing.Size(225, 17) + Me.cbxSammelrechnungBerichtLeistungsdetails.TabIndex = 37 + Me.cbxSammelrechnungBerichtLeistungsdetails.Text = "Sammelrechnung Bericht: Leistungsdetails" + Me.cbxSammelrechnungBerichtLeistungsdetails.UseVisualStyleBackColor = True + ' + 'cbxAPITradeshift + ' + Me.cbxAPITradeshift.AutoSize = True + Me.cbxAPITradeshift.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxAPITradeshift.Location = New System.Drawing.Point(417, 382) + Me.cbxAPITradeshift.Name = "cbxAPITradeshift" + Me.cbxAPITradeshift.Size = New System.Drawing.Size(157, 17) + Me.cbxAPITradeshift.TabIndex = 36 + Me.cbxAPITradeshift.Text = "Rechnungskopie Tradeshift" + Me.cbxAPITradeshift.UseVisualStyleBackColor = True + ' + 'Label94 + ' + Me.Label94.AutoSize = True + Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label94.Location = New System.Drawing.Point(414, 358) + Me.Label94.Name = "Label94" + Me.Label94.Size = New System.Drawing.Size(168, 13) + Me.Label94.TabIndex = 35 + Me.Label94.Text = "Fremd-Abrechnungssysteme:" + ' 'cbxVeranlagungskunde ' Me.cbxVeranlagungskunde.AutoSize = True @@ -2379,8 +2444,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) @@ -2477,8 +2542,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) @@ -2634,41 +2699,41 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToResizeRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle16 Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.Name = "dgvKreditkarten" Me.dgvKreditkarten.ReadOnly = True - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle17 Me.dgvKreditkarten.RowHeadersVisible = False - DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle18 Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) @@ -2806,8 +2871,8 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19 Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) @@ -2942,6 +3007,8 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbSonstiges ' + Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrTOBB) + Me.tbSonstiges.Controls.Add(Me.Label96) Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrPLOSE) Me.tbSonstiges.Controls.Add(Me.Label83) Me.tbSonstiges.Controls.Add(Me.btnSonstAendSpeichern) @@ -2971,6 +3038,25 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbSonstiges.Text = "Sonstiges" Me.tbSonstiges.UseVisualStyleBackColor = True ' + 'txtSonst_KdNrTOBB + ' + Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(119, 201) + Me.txtSonst_KdNrTOBB.MaxLength = 20 + Me.txtSonst_KdNrTOBB.Name = "txtSonst_KdNrTOBB" + Me.txtSonst_KdNrTOBB.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrTOBB.TabIndex = 22 + ' + 'Label96 + ' + Me.Label96.AutoSize = True + Me.Label96.Enabled = False + Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label96.Location = New System.Drawing.Point(6, 204) + Me.Label96.Name = "Label96" + Me.Label96.Size = New System.Drawing.Size(83, 13) + Me.Label96.TabIndex = 21 + Me.Label96.Text = "KdNr bei TOBB:" + ' 'txtSonst_KdNrPLOSE ' Me.txtSonst_KdNrPLOSE.Enabled = False @@ -3011,7 +3097,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label76.AutoSize = True Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label76.Location = New System.Drawing.Point(9, 227) + Me.Label76.Location = New System.Drawing.Point(9, 233) Me.Label76.Name = "Label76" Me.Label76.Size = New System.Drawing.Size(65, 13) Me.Label76.TabIndex = 17 @@ -3020,8 +3106,8 @@ Partial Class usrcntlKundeBearbeitenFull 'dgvSonst_IDSKunden ' Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251) @@ -3033,7 +3119,7 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxSonst_CsvAsfinag ' Me.cbxSonst_CsvAsfinag.AutoSize = True - Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(119, 201) + Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(119, 228) Me.cbxSonst_CsvAsfinag.Name = "cbxSonst_CsvAsfinag" Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(264, 17) Me.cbxSonst_CsvAsfinag.TabIndex = 15 @@ -3224,8 +3310,8 @@ Partial Class usrcntlKundeBearbeitenFull 'DataGridView1 ' Me.DataGridView1.AllowUserToResizeRows = False - DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 Me.DataGridView1.BackgroundColor = System.Drawing.Color.White Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.Enabled = False @@ -4064,27 +4150,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxFiBuLG.UseVisualStyleBackColor = True Me.cbxFiBuLG.Visible = False ' - 'Label94 - ' - Me.Label94.AutoSize = True - Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label94.Location = New System.Drawing.Point(414, 358) - Me.Label94.Name = "Label94" - Me.Label94.Size = New System.Drawing.Size(168, 13) - Me.Label94.TabIndex = 35 - Me.Label94.Text = "Fremd-Abrechnungssysteme:" - ' - 'cbxAPITradeshift - ' - Me.cbxAPITradeshift.AutoSize = True - Me.cbxAPITradeshift.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxAPITradeshift.Location = New System.Drawing.Point(417, 382) - Me.cbxAPITradeshift.Name = "cbxAPITradeshift" - Me.cbxAPITradeshift.Size = New System.Drawing.Size(157, 17) - Me.cbxAPITradeshift.TabIndex = 36 - Me.cbxAPITradeshift.Text = "Rechnungskopie Tradeshift" - Me.cbxAPITradeshift.UseVisualStyleBackColor = True - ' 'usrcntlKundeBearbeitenFull ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -4443,4 +4508,9 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents Button2 As Button Friend WithEvents cbxAPITradeshift As CheckBox Friend WithEvents Label94 As Label + Friend WithEvents cbxSammelrechnungBerichtLeistungsdetails As CheckBox + Friend WithEvents Label95 As Label + Friend WithEvents cboRechnungSprache As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtSonst_KdNrTOBB As TextBox + Friend WithEvents Label96 As Label End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 1430edf5..4e5306fe 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -100,11 +100,16 @@ Public Class usrcntlKundeBearbeitenFull End Select End If + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "AMBAR" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AMBAR", "SDL") Then + cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990")) + + End If + pnlNeukunde.Visible = True - End If + End If - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 9900000-9999999: FRONT-OFFICE - Kunden", "9900000-9999999")) End If @@ -202,7 +207,7 @@ Public Class usrcntlKundeBearbeitenFull cboAbf_Steuerschluessel._value = loadValue(KUNDE.Steuerschlüssel, "") cboAbf_Waehrung._value = loadValue(KUNDE.Währungscode, "EUR") - + cbxSammelrechnungBerichtLeistungsdetails.Checked = loadValue(KUNDE_ERW.kde_FakturierungSR_Details, False) cboAbf_Sammelrechnung._value = loadValue(KUNDE.Sammelrechnung, "") @@ -281,6 +286,7 @@ Public Class usrcntlKundeBearbeitenFull cbxAPITradeshift.Checked = loadValue(KUNDE_ERW.kde_API_Tradeshift, False) + cboRechnungSprache._value = loadValue(KUNDE_ERW.kde_Fakturierung_Sprache, "") txtVERAG_Schnittstellen_ID.Text = If(KUNDE_ERW.kde_VERAG_INTERFACE_ID, "") ' ----- Abfertigungsverbot ----- @@ -325,6 +331,7 @@ Public Class usrcntlKundeBearbeitenFull txtSonst_KdNrTelepass.Text = loadValue(ADRESSE.TELEPASS_Kd_Nr, "") txtSonst_KdNrPLOSE.Text = loadValue(ADRESSE.PLOSEKundenNr, "") txtSonst_KdNrUTA.Text = loadValue(ADRESSE.UTAKundenNr, "") + txtSonst_KdNrTOBB.Text = loadValue(KUNDE_ERW.kde_TOBB_KundenNr, "") cbxSonst_CsvAsfinag.Checked = loadValue(ADRESSE.ASFINAGExportCSV, False) cbxSonst_CsvMautbericht.Checked = loadValue(ADRESSE.ExportMautberichtCSV, False) @@ -482,6 +489,7 @@ Public Class usrcntlKundeBearbeitenFull KUNDE.Währungscode = isLeerNothing(cboAbf_Waehrung._value) KUNDE.Sammelrechnung = cboAbf_Sammelrechnung._value + KUNDE_ERW.kde_FakturierungSR_Details = cbxSammelrechnungBerichtLeistungsdetails.Checked KUNDE.EORITIN = isLeerNothing(txtEORI.Text) If IsNumeric(txtEORINL.Text) Then @@ -549,6 +557,8 @@ Public Class usrcntlKundeBearbeitenFull KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked KUNDE_ERW.kde_API_Tradeshift = cbxAPITradeshift.Checked + KUNDE_ERW.kde_Fakturierung_Sprache = isLeerNothing(cboRechnungSprache._value) + ' ----- Fremdsped ----- KUNDE_ERW.kde_KundeFremdspedition = cbxVerzolltBei.Checked @@ -597,6 +607,7 @@ Public Class usrcntlKundeBearbeitenFull ADRESSE.TELEPASS_Kd_Nr = isLeerNothing(txtSonst_KdNrTelepass.Text) ADRESSE.PLOSEKundenNr = isLeerNothing(txtSonst_KdNrPLOSE.Text) ADRESSE.UTAKundenNr = isLeerNothing(txtSonst_KdNrUTA.Text) + KUNDE_ERW.kde_TOBB_KundenNr = isLeerNothing(txtSonst_KdNrTOBB.Text) ADRESSE.ASFINAGExportCSV = cbxSonst_CsvAsfinag.Checked ADRESSE.ExportMautberichtCSV = cbxSonst_CsvMautbericht.Checked ADRESSE.MSEExportCSV = cbxSonst_CsvMSE.Checked @@ -608,7 +619,6 @@ Public Class usrcntlKundeBearbeitenFull - UsrCntlKundeFiskaldaten1.loadinClass(FISKAL, KUNDE_ERW) Return True @@ -676,7 +686,7 @@ Public Class usrcntlKundeBearbeitenFull cboUSt_UstIdNrLand.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez " & " 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].[MitgliedslandEU] = 1 " & + " WHERE ([Währungstabelle].[MitgliedslandEU] = 1) " & " ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz ", , "FMZOLL", True) ' cbxLandKz.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez " & _ ' " 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] " & _ @@ -686,6 +696,11 @@ Public Class usrcntlKundeBearbeitenFull cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True) + cboRechnungSprache.Items.Clear() + cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) + cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) + cboRechnungSprache.changeItem(0) + cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True) cboFirma.fillWithSQL("SELECT tblFirma.Firma_ID, tblFirma.Firma_Bez FROM tblFirma ORDER BY tblFirma.Firma_ID", , "FMZOLL", True) diff --git a/SDL/mdm/PLOSE/frmPLOSE_ProductCodes.Designer.vb b/SDL/mdm/PLOSE/frmPLOSE_ProductCodes.Designer.vb new file mode 100644 index 00000000..33103c10 --- /dev/null +++ b/SDL/mdm/PLOSE/frmPLOSE_ProductCodes.Designer.vb @@ -0,0 +1,98 @@ + _ +Partial Class frmPLOSE_ProductCodes + 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(frmPLOSE_ProductCodes)) + Me.pnl = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.dgvLeistungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.lblPLOSELeistungen = New System.Windows.Forms.Label() + Me.pnl.SuspendLayout() + CType(Me.dgvLeistungen, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnl.Controls.Add(Me.lblPLOSELeistungen) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(800, 48) + Me.pnl.TabIndex = 0 + ' + 'Panel1 + ' + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel1.Location = New System.Drawing.Point(0, 360) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(800, 90) + Me.Panel1.TabIndex = 1 + ' + 'dgvLeistungen + ' + Me.dgvLeistungen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvLeistungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvLeistungen.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvLeistungen.Location = New System.Drawing.Point(0, 48) + Me.dgvLeistungen.Name = "dgvLeistungen" + Me.dgvLeistungen.Size = New System.Drawing.Size(800, 312) + Me.dgvLeistungen.TabIndex = 2 + ' + 'lblPLOSELeistungen + ' + Me.lblPLOSELeistungen.AutoSize = True + Me.lblPLOSELeistungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblPLOSELeistungen.ForeColor = System.Drawing.Color.White + Me.lblPLOSELeistungen.Location = New System.Drawing.Point(12, 14) + Me.lblPLOSELeistungen.Name = "lblPLOSELeistungen" + Me.lblPLOSELeistungen.Size = New System.Drawing.Size(172, 20) + Me.lblPLOSELeistungen.TabIndex = 0 + Me.lblPLOSELeistungen.Text = "PLOSE - Leistungen" + ' + 'frmPLOSE_ProductCodes + ' + 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(800, 450) + Me.Controls.Add(Me.dgvLeistungen) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.pnl) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmPLOSE_ProductCodes" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "PLOSE ProductCodes" + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + CType(Me.dgvLeistungen, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents pnl As Panel + Friend WithEvents Panel1 As Panel + Friend WithEvents dgvLeistungen As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents lblPLOSELeistungen As Label +End Class diff --git a/SDL/mdm/PLOSE/frmPLOSE_ProductCodes.resx b/SDL/mdm/PLOSE/frmPLOSE_ProductCodes.resx new file mode 100644 index 00000000..d584bd9e --- /dev/null +++ b/SDL/mdm/PLOSE/frmPLOSE_ProductCodes.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/mdm/PLOSE/frmPLOSE_ProductCodes.vb b/SDL/mdm/PLOSE/frmPLOSE_ProductCodes.vb new file mode 100644 index 00000000..6803501a --- /dev/null +++ b/SDL/mdm/PLOSE/frmPLOSE_ProductCodes.vb @@ -0,0 +1,9 @@ +Public Class frmPLOSE_ProductCodes + + + Sub initdgvLeistungen() + With dgvLeistungen + ' .SET_SQL("") + End With + End Sub +End Class \ No newline at end of file diff --git a/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.Designer.vb b/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.Designer.vb index 92f18a90..70d82bda 100644 --- a/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.Designer.vb +++ b/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.Designer.vb @@ -51,15 +51,15 @@ Partial Class frmSDLAbholungEintrag Me.pnl = New System.Windows.Forms.Panel() Me.btnFahrerDrucken = New System.Windows.Forms.Button() Me.btnFahrer = New System.Windows.Forms.Button() - Me.cbxAbgeholt = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.txtAbholungAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Button2 = New System.Windows.Forms.Button() Me.txtHandy = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtLKW = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVermerkAbholung = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.cbxFahrerAbholung = New System.Windows.Forms.CheckBox() + Me.cbxAbgeholt = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) + Me.Button2 = New System.Windows.Forms.Button() + Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label19 = New System.Windows.Forms.Label() Me.lblAuftragsnr = New System.Windows.Forms.Label() Me.btnOK = New System.Windows.Forms.Button() @@ -330,7 +330,7 @@ Partial Class frmSDLAbholungEintrag ' 'btnFahrerDrucken ' - Me.btnFahrerDrucken.BackgroundImage = Global.SDL.My.Resources.printer21 + Me.btnFahrerDrucken.BackgroundImage = Global.SDL.My.Resources.Resources.printer21 Me.btnFahrerDrucken.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.btnFahrerDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnFahrerDrucken.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -343,7 +343,7 @@ Partial Class frmSDLAbholungEintrag 'btnFahrer ' Me.btnFahrer.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnFahrer.Image = Global.SDL.My.Resources.LKW_klein1 + Me.btnFahrer.Image = Global.SDL.My.Resources.Resources.LKW_klein1 Me.btnFahrer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnFahrer.Location = New System.Drawing.Point(411, 68) Me.btnFahrer.Name = "btnFahrer" @@ -352,19 +352,6 @@ Partial Class frmSDLAbholungEintrag Me.btnFahrer.Text = " Formular Fahrer" & Global.Microsoft.VisualBasic.ChrW(10) & " öffnen" & Global.Microsoft.VisualBasic.ChrW(10) Me.btnFahrer.UseVisualStyleBackColor = True ' - 'cbxAbgeholt - ' - Me.cbxAbgeholt._value = "" - Me.cbxAbgeholt.AutoSize = True - Me.cbxAbgeholt.Checked_value = False - Me.cbxAbgeholt.CheckedValue = False - Me.cbxAbgeholt.Location = New System.Drawing.Point(16, 579) - Me.cbxAbgeholt.Name = "cbxAbgeholt" - Me.cbxAbgeholt.Size = New System.Drawing.Size(71, 17) - Me.cbxAbgeholt.TabIndex = 11 - Me.cbxAbgeholt.Text = "Abgeholt:" - Me.cbxAbgeholt.UseVisualStyleBackColor = True - ' 'txtAbholungAm ' Me.txtAbholungAm._DateTimeOnly = False @@ -376,6 +363,7 @@ Partial Class frmSDLAbholungEintrag Me.txtAbholungAm._TimeOnly = False Me.txtAbholungAm._value = "" Me.txtAbholungAm._Waehrung = False + Me.txtAbholungAm._WaehrungZeichen = True Me.txtAbholungAm.ForeColor = System.Drawing.Color.Black Me.txtAbholungAm.Location = New System.Drawing.Point(411, 26) Me.txtAbholungAm.MaxLength = 10 @@ -386,16 +374,6 @@ Partial Class frmSDLAbholungEintrag Me.txtAbholungAm.Size = New System.Drawing.Size(194, 20) Me.txtAbholungAm.TabIndex = 2 ' - 'Button2 - ' - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Location = New System.Drawing.Point(412, 418) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(194, 27) - Me.Button2.TabIndex = 17 - Me.Button2.Text = "Auftrag als SMS senden" - Me.Button2.UseVisualStyleBackColor = True - ' 'txtHandy ' Me.txtHandy._DateTimeOnly = False @@ -407,6 +385,7 @@ Partial Class frmSDLAbholungEintrag Me.txtHandy._TimeOnly = False Me.txtHandy._value = "" Me.txtHandy._Waehrung = False + Me.txtHandy._WaehrungZeichen = True Me.txtHandy.ForeColor = System.Drawing.Color.Black Me.txtHandy.Location = New System.Drawing.Point(411, 7) Me.txtHandy.MaxLineLength = -1 @@ -416,18 +395,6 @@ Partial Class frmSDLAbholungEintrag Me.txtHandy.Size = New System.Drawing.Size(194, 20) Me.txtHandy.TabIndex = 2 ' - 'cboPrinter - ' - Me.cboPrinter._allowedValuesFreiText = Nothing - Me.cboPrinter._allowFreiText = False - Me.cboPrinter._value = "" - Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboPrinter.FormattingEnabled = True - Me.cboPrinter.Location = New System.Drawing.Point(412, 575) - Me.cboPrinter.Name = "cboPrinter" - Me.cboPrinter.Size = New System.Drawing.Size(194, 21) - Me.cboPrinter.TabIndex = 26 - ' 'txtFahrer ' Me.txtFahrer._DateTimeOnly = False @@ -439,6 +406,7 @@ Partial Class frmSDLAbholungEintrag Me.txtFahrer._TimeOnly = False Me.txtFahrer._value = "" Me.txtFahrer._Waehrung = False + Me.txtFahrer._WaehrungZeichen = True Me.txtFahrer.ForeColor = System.Drawing.Color.Black Me.txtFahrer.Location = New System.Drawing.Point(81, 26) Me.txtFahrer.MaxLength = 10 @@ -460,6 +428,7 @@ Partial Class frmSDLAbholungEintrag Me.txtLKW._TimeOnly = False Me.txtLKW._value = "" Me.txtLKW._Waehrung = False + Me.txtLKW._WaehrungZeichen = True Me.txtLKW.ForeColor = System.Drawing.Color.Black Me.txtLKW.Location = New System.Drawing.Point(81, 7) Me.txtLKW.MaxLineLength = -1 @@ -484,7 +453,7 @@ Partial Class frmSDLAbholungEintrag ' Me.cbxFahrerAbholung.AutoSize = True Me.cbxFahrerAbholung.Checked = True - Me.cbxFahrerAbholung.CheckState = System.Windows.Forms.CheckState.Indeterminate + Me.cbxFahrerAbholung.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxFahrerAbholung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxFahrerAbholung.Location = New System.Drawing.Point(411, 52) Me.cbxFahrerAbholung.Name = "cbxFahrerAbholung" @@ -494,6 +463,41 @@ Partial Class frmSDLAbholungEintrag Me.cbxFahrerAbholung.ThreeState = True Me.cbxFahrerAbholung.UseVisualStyleBackColor = True ' + 'cbxAbgeholt + ' + Me.cbxAbgeholt._value = "" + Me.cbxAbgeholt.AutoSize = True + Me.cbxAbgeholt.Checked_value = False + Me.cbxAbgeholt.CheckedValue = False + Me.cbxAbgeholt.Location = New System.Drawing.Point(16, 579) + Me.cbxAbgeholt.Name = "cbxAbgeholt" + Me.cbxAbgeholt.Size = New System.Drawing.Size(71, 17) + Me.cbxAbgeholt.TabIndex = 11 + Me.cbxAbgeholt.Text = "Abgeholt:" + Me.cbxAbgeholt.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(412, 418) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(194, 27) + Me.Button2.TabIndex = 17 + Me.Button2.Text = "Auftrag als SMS senden" + Me.Button2.UseVisualStyleBackColor = True + ' + 'cboPrinter + ' + Me.cboPrinter._allowedValuesFreiText = Nothing + Me.cboPrinter._allowFreiText = False + Me.cboPrinter._value = "" + Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboPrinter.FormattingEnabled = True + Me.cboPrinter.Location = New System.Drawing.Point(412, 575) + Me.cboPrinter.Name = "cboPrinter" + Me.cboPrinter.Size = New System.Drawing.Size(194, 21) + Me.cboPrinter.TabIndex = 26 + ' 'Label19 ' Me.Label19.AutoSize = True @@ -638,7 +642,7 @@ Partial Class frmSDLAbholungEintrag ' 'btnFaxDrucken ' - Me.btnFaxDrucken.BackgroundImage = Global.SDL.My.Resources.printer21 + Me.btnFaxDrucken.BackgroundImage = Global.SDL.My.Resources.Resources.printer21 Me.btnFaxDrucken.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.btnFaxDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnFaxDrucken.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -652,7 +656,7 @@ Partial Class frmSDLAbholungEintrag 'btnFax ' Me.btnFax.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnFax.Image = Global.SDL.My.Resources.list1 + Me.btnFax.Image = Global.SDL.My.Resources.Resources.list1 Me.btnFax.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnFax.Location = New System.Drawing.Point(637, 454) Me.btnFax.Name = "btnFax" @@ -743,7 +747,7 @@ Partial Class frmSDLAbholungEintrag ' 'Button3 ' - Me.Button3.BackgroundImage = Global.SDL.My.Resources.email_big1 + Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1 Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -802,6 +806,7 @@ Partial Class frmSDLAbholungEintrag ' 'KdFirma ' + Me.KdFirma._AlleFirmenCLUSTER = False Me.KdFirma._AllowSetValue = True Me.KdFirma._autoSizeGross = False Me.KdFirma._display_Name1 = False @@ -810,6 +815,7 @@ Partial Class frmSDLAbholungEintrag Me.KdFirma._displayWoelflKd = False Me.KdFirma._hideIfListEmpty = True Me.KdFirma._loadKdData = True + Me.KdFirma._UseFIRMA = "" Me.KdFirma._ValueKdAndName = True Me.KdFirma.dgvpos = "LEFT" Me.KdFirma.KdName = "" @@ -822,6 +828,7 @@ Partial Class frmSDLAbholungEintrag Me.KdFirma.searchActive = True Me.KdFirma.Size = New System.Drawing.Size(325, 20) Me.KdFirma.TabIndex = 7 + Me.KdFirma.TIMER_SEARCH = True Me.KdFirma.usrcntl = Nothing ' 'txtVermerkErfassung diff --git a/SDL/mdm/SDLLeistungenDetails/frmFindNewVeragCard.vb b/SDL/mdm/SDLLeistungenDetails/frmFindNewVeragCard.vb index 0db809be..c21481e9 100644 --- a/SDL/mdm/SDLLeistungenDetails/frmFindNewVeragCard.vb +++ b/SDL/mdm/SDLLeistungenDetails/frmFindNewVeragCard.vb @@ -28,7 +28,7 @@ Private Sub frmFindNewVeragCard_Load(sender As Object, e As EventArgs) Handles Me.Load With DataGridView - .DataSource = SQL.loadDgvBySql("SELECT KundenNr,KfzKennzeichen,SDLNr,History,[KartenNr],[Bestelldatum],[Lieferdatum],[Vermerk],[Fahrer],[Ersatzkarte],[Gesperrt],[Defekt],[Verloren],[Gestohlen] FROM [SDL] where SDLNr=501 and KundenNr <=0 order by kartennr", "SDL") + .DataSource = SQL.loadDgvBySql("SELECT KundenNr,KfzKennzeichen,SDLNr,History,[KartenNr],[Bestelldatum],[Lieferdatum],[Vermerk],[Fahrer],[Ersatzkarte],[Gesperrt],[Defekt],[Verloren],[Gestohlen] FROM [SDL] where SDLNr=501 and KundenNr <=0 order by cast(kartennr as int)", "SDL") If .RowCount > 0 Then .Columns("KundenNr").Visible = False .Columns("KfzKennzeichen").Visible = False diff --git a/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb index ec66a5e8..d885234d 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb @@ -35,6 +35,8 @@ Partial Class frmMDMDatenverarbetiung Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker() Me.lbl = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.pic = New System.Windows.Forms.PictureBox() Me.Panel3 = New System.Windows.Forms.Panel() Me.Button5 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() @@ -57,15 +59,15 @@ Partial Class frmMDMDatenverarbetiung Me.Button3 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.pic = New System.Windows.Forms.PictureBox() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Button6 = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() Me.FlowLayoutPanel.SuspendLayout() Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel3.SuspendLayout() Me.Panel2.SuspendLayout() CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl @@ -196,9 +198,32 @@ Partial Class frmMDMDatenverarbetiung Me.Panel1.Size = New System.Drawing.Size(1163, 114) Me.Panel1.TabIndex = 2 ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.ok + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Location = New System.Drawing.Point(574, 88) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(23, 23) + Me.PictureBox1.TabIndex = 50 + Me.PictureBox1.TabStop = False + Me.PictureBox1.Visible = False + ' + 'pic + ' + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.ok + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Location = New System.Drawing.Point(574, 62) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(23, 23) + Me.pic.TabIndex = 49 + Me.pic.TabStop = False + Me.pic.Visible = False + ' 'Panel3 ' Me.Panel3.BackColor = System.Drawing.Color.White + Me.Panel3.Controls.Add(Me.Button6) Me.Panel3.Location = New System.Drawing.Point(626, 0) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(301, 114) @@ -460,27 +485,15 @@ Partial Class frmMDMDatenverarbetiung Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577) Me.MyDatagridview1.TabIndex = 0 ' - 'pic + 'Button6 ' - Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.ok - Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.pic.Location = New System.Drawing.Point(574, 62) - Me.pic.Name = "pic" - Me.pic.Size = New System.Drawing.Size(23, 23) - Me.pic.TabIndex = 49 - Me.pic.TabStop = False - Me.pic.Visible = False - ' - 'PictureBox1 - ' - Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.ok - Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox1.Location = New System.Drawing.Point(574, 88) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(23, 23) - Me.PictureBox1.TabIndex = 50 - Me.PictureBox1.TabStop = False - Me.PictureBox1.Visible = False + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Location = New System.Drawing.Point(97, 46) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(107, 23) + Me.Button6.TabIndex = 47 + Me.Button6.Text = "MautD Check" + Me.Button6.UseVisualStyleBackColor = True ' 'frmMDMDatenverarbetiung ' @@ -500,11 +513,12 @@ Partial Class frmMDMDatenverarbetiung Me.FlowLayoutPanel.ResumeLayout(False) Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel3.ResumeLayout(False) Me.Panel2.ResumeLayout(False) Me.Panel2.PerformLayout() CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -544,4 +558,5 @@ Partial Class frmMDMDatenverarbetiung Friend WithEvents Panel3 As Panel Friend WithEvents PictureBox1 As PictureBox Friend WithEvents pic As PictureBox + Friend WithEvents Button6 As Button End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 81ae8876..be31d1bc 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -1099,5 +1099,54 @@ Public Class frmMDMDatenverarbetiung End If End Sub + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + Try + Dim connectionString = "" + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\MautD.accdb" + Else + connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb" + End If + + Dim con As New OleDbConnection(connectionString) + Dim cmd As New OleDbCommand + Dim var1 As String + + Dim adapter As OleDbDataAdapter = New OleDbDataAdapter() + Dim reader As OleDbDataReader = Nothing + + + Dim ergebnis = "" + + con.Open() + Try + 'Zeitstempel + Dim SQLQuery = "SELECT COUNT(*) FROM tblMautbericht " + + Using Command As New OleDbCommand(SQLQuery, con) + + ergebnis = Command.ExecuteScalar + Command.Dispose() + End Using + + + + Catch ex2 As System.Exception + MsgBox("err: " & ex2.Message & ex2.StackTrace) + + Finally + If reader IsNot Nothing Then reader.Close() + End Try + + + con.Close() + + + MsgBox("Ergebnis: " & ergebnis) + Catch ex As System.Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + End Sub End Class diff --git a/SDL/mdm/frmMDM_USTVAntrag.vb b/SDL/mdm/frmMDM_USTVAntrag.vb deleted file mode 100644 index e6b3f560..00000000 --- a/SDL/mdm/frmMDM_USTVAntrag.vb +++ /dev/null @@ -1,51 +0,0 @@ -Public Class frmMDM_USTVAntrag - - Dim UStVAn_ID As Integer - - Sub New(UStVAn_ID) - - ' Dieser Aufruf ist für den Designer erforderlich. - InitializeComponent() - - ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - Me.UStVAn_ID = UStVAn_ID - - End Sub - - Sub init() - pnlFilter.AutoScroll = False - - With dgvUSTVPositionen - .ClearSelection() - - If UStVAn_ID <= 0 Then Exit Sub - - .SET_SQL("SELECT [UStVAn_ID] ,[UStVPo_ID] ,[UStVPo_ReDat],[UStVPo_ReNr],[UStVPo_USteuerbetrag],[UStVPo_Leistungsbezeichnung],[UStVPo_Leistender],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter] - FROM [tblUStVPositionen] - where UStVAn_ID='" & UStVAn_ID & "' ORDER BY UStVPo_ID", "FMZOLL") - .LOAD() - .RowTemplate.Height = 20 - .AllowUserToOrderColumns = False - .AllowUserToResizeRows = False - - If .Columns.Count > 0 Then - - .Columns("UStVAn_ID").Visible = False - .Columns("UStVPo_ID").HeaderText = "Pos" - End If - - - End With - - End Sub - - Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load - - init() - - End Sub - - Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click - init() - End Sub -End Class \ No newline at end of file diff --git a/SDL/mdm/frmNewData.Designer.vb b/SDL/mdm/frmNewData.Designer.vb index 51945029..9dc260a2 100644 --- a/SDL/mdm/frmNewData.Designer.vb +++ b/SDL/mdm/frmNewData.Designer.vb @@ -273,6 +273,7 @@ Partial Class frmNewData Me.btnSDL_MautMSE.Text = "MSE-Card" Me.btnSDL_MautMSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.btnSDL_MautMSE.UseVisualStyleBackColor = True + Me.btnSDL_MautMSE.Visible = False ' 'btnSDL_UTA ' diff --git a/SDL/mdm/frmVERAGCardNew.vb b/SDL/mdm/frmVERAGCardNew.vb index e017fb4a..7b5f3036 100644 --- a/SDL/mdm/frmVERAGCardNew.vb +++ b/SDL/mdm/frmVERAGCardNew.vb @@ -21,7 +21,7 @@ Public Class frmVERAGCardNew If kdnr > 0 Then Label2.Visible = True End If - newBinding("SELECT KartenNr, KundenNr, KfzKennzeichen, Fahrer, Datum, Kaution, BelegNr, Ersatzkarte, Gesperrt, Defekt, Verloren, Gestohlen, Vermerk, Erfassungsdatum, Änderungsdatum, Sachbearbeiter FROM Kartenpool WHERE KundenNr is null" & where) + newBinding("SELECT cast(KartenNr as int) KartenNr, KundenNr, KfzKennzeichen, Fahrer, Datum, Kaution, BelegNr, Ersatzkarte, Gesperrt, Defekt, Verloren, Gestohlen, Vermerk, Erfassungsdatum, Änderungsdatum, Sachbearbeiter FROM Kartenpool WHERE KundenNr is null" & where & " ORDER BY cast(KartenNr as int)") End Sub diff --git a/SDL/mdm/usrCntlKartenDaten.Designer.vb b/SDL/mdm/usrCntlKartenDaten.Designer.vb index a24128ee..ebba3ce0 100644 --- a/SDL/mdm/usrCntlKartenDaten.Designer.vb +++ b/SDL/mdm/usrCntlKartenDaten.Designer.vb @@ -74,13 +74,13 @@ Partial Class usrCntlKartenDaten Me.Panel3 = New System.Windows.Forms.Panel() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.dgvSDL = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails() Me.Panel4 = New System.Windows.Forms.Panel() Me.pnlTest = New System.Windows.Forms.Panel() Me.dgvFILTER = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails() Me.FlowLayoutPanel.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -345,6 +345,7 @@ Partial Class usrCntlKartenDaten Me.btnSDL_MautMSE.Text = "MSE-Card" Me.btnSDL_MautMSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.btnSDL_MautMSE.UseVisualStyleBackColor = True + Me.btnSDL_MautMSE.Visible = False ' 'btnSDL_ECOTAX ' @@ -855,6 +856,15 @@ Partial Class usrCntlKartenDaten Me.dgvSDL.Size = New System.Drawing.Size(1354, 599) Me.dgvSDL.TabIndex = 29 ' + 'UsrCntlDatenDetails1 + ' + Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1" + Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234) + Me.UsrCntlDatenDetails1.TabIndex = 0 + Me.UsrCntlDatenDetails1.Visible = False + ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.White @@ -913,15 +923,6 @@ Partial Class usrCntlKartenDaten Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22) Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)" ' - 'UsrCntlDatenDetails1 - ' - Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1" - Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234) - Me.UsrCntlDatenDetails1.TabIndex = 0 - Me.UsrCntlDatenDetails1.Visible = False - ' 'usrCntlKartenDaten ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/mdm/usrCntlKartenDaten.vb b/SDL/mdm/usrCntlKartenDaten.vb index 8b7ba916..b6a09d35 100644 --- a/SDL/mdm/usrCntlKartenDaten.vb +++ b/SDL/mdm/usrCntlKartenDaten.vb @@ -457,7 +457,7 @@ Public Class usrCntlKartenDaten End Select Dim SQL_STR = "" Select Case SDLNrTmp - Case 100 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=100" + Case 100 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, (SELECT TOP 1 [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE [KdNrVERAG]=KundenNr AND KdNrAlt =0 ORDER BY Zeitstempel DESC) as [IDS-KdNr], KartenNr, GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=100" Case 101 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenSchlüsselNr, GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=101" Case 212 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, UTAKundenNr, KartenNr,[CARD-Nr], GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=212" Case 200 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, [BestellNr],[Umstellungsdatum],KartenNr,OBUID, Vertragsabschlussdatum,Kategorie,Status,Schadstoffklasse, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=200" @@ -482,7 +482,7 @@ Public Class usrCntlKartenDaten SQL_STR &= " AND Speditionsdienstleistungen.SDLTypNr IN (1,2) " End Select SQL_STR &= Archiviert - ' clearFilter() + ' clearFilter() newBinding(SDLNrTmp, SQL_STR, doFilter) initBtnClick(getSDLNrButton(SDLNrTmp)) diff --git a/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb index a8d095e6..e1b25f63 100644 --- a/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb +++ b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb @@ -24,6 +24,7 @@ Partial Class usrCntlMDMDatenverarbeitungAuswertungen_PLOSE Private Sub InitializeComponent() Me.Button6 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() + Me.cbxNurEULander = New System.Windows.Forms.CheckBox() Me.SuspendLayout() ' 'Button6 @@ -45,7 +46,7 @@ Partial Class usrCntlMDMDatenverarbeitungAuswertungen_PLOSE Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Image = Global.SDL.My.Resources.Resources.statistik_small Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(13, 53) + Me.Button1.Location = New System.Drawing.Point(13, 70) Me.Button1.Name = "Button1" Me.Button1.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0) Me.Button1.Size = New System.Drawing.Size(149, 41) @@ -55,19 +56,32 @@ Partial Class usrCntlMDMDatenverarbeitungAuswertungen_PLOSE Me.Button1.UseVisualStyleBackColor = True Me.Button1.Visible = False ' + 'cbxNurEULander + ' + Me.cbxNurEULander.AutoSize = True + Me.cbxNurEULander.Location = New System.Drawing.Point(67, 47) + Me.cbxNurEULander.Name = "cbxNurEULander" + Me.cbxNurEULander.Size = New System.Drawing.Size(95, 17) + Me.cbxNurEULander.TabIndex = 50 + Me.cbxNurEULander.Text = "nur EU Länder" + Me.cbxNurEULander.UseVisualStyleBackColor = True + ' 'usrCntlMDMDatenverarbeitungAuswertungen_PLOSE ' 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.cbxNurEULander) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Button6) Me.Name = "usrCntlMDMDatenverarbeitungAuswertungen_PLOSE" Me.Size = New System.Drawing.Size(301, 114) Me.ResumeLayout(False) + Me.PerformLayout() End Sub Friend WithEvents Button6 As Button Friend WithEvents Button1 As Button + Friend WithEvents cbxNurEULander As CheckBox End Class diff --git a/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb index f7e7996f..d4475780 100644 --- a/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb +++ b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb @@ -20,14 +20,14 @@ End Sub - Function getSQLPLOSE(plp_ProductCode_IN As String, plp_ProductCode_NOTIN As String, plose_POLSEKundennummer As String, plp_Kategorie_IN As String) As String + Function getSQLPLOSE(plp_ProductCode_IN As String, plp_ProductCode_NOTIN As String, plose_POLSEKundennummer As String, plp_Kategorie_IN As String, onlyEUCountries As Boolean) As String Return " SELECT Adressennr KundenNr, [Name 1] Firma,Adressen.LandKz,plz,Ort,CASE WHEN MitgliedslandEU =1 THEN 'JA' ELSE 'NEIN' END as EU, plose_POLSEKundennummer PLOSEKundennummer,sum(plose_NettobetragWaehrungAbbuchung) as Netto, sum(plose_MWSTBetragWaehrungAbbuchung) as MWST , sum(plose_BruttobetragWaehrungAbbuchung) as Brutto FROM tblPLOSE_Details inner join Adressen on PLOSEKundenNr=plose_POLSEKundennummer inner join tblPLOSE_Produktbeschreibung on plp_ProductCode=plose_ProduktCode inner join [Währungstabelle] on [Währungstabelle].LandKz=Adressen.LandKz WHERE plose_Fakturiert=1 and CAST(plose_FakturiertDatum AS DATE) between '" & MAIN.dat_Sum_Von.Value & "' and '" & MAIN.dat_Sum_Bis.Value & "' and plp_Land='IT' - and MitgliedslandEU=1 + " & If(onlyEUCountries, " and MitgliedslandEU=1 ", "") & " " & If(plp_Kategorie_IN <> "", " and plp_Kategorie IN (" & plp_Kategorie_IN & ")", "") & " " & If(plp_ProductCode_IN <> "", " and plp_ProductCode IN (" & plp_ProductCode_IN & ")", "") & " " & If(plp_ProductCode_NOTIN <> "", " and plp_ProductCode NOT IN (" & plp_ProductCode_NOTIN & ")", "") & " @@ -38,7 +38,7 @@ End Function Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click - Dim sqlstr = getSQLPLOSE("", "", "", "") ' 262 + Dim sqlstr = getSQLPLOSE("", "", "", "", cbxNurEULander.Checked) ' 262 Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") @@ -81,7 +81,7 @@ sumBruttoAlleLeistungen += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 4, 0) - Dim dt2 As DataTable = SQL.loadDgvBySql_Param(getSQLPLOSE("", "", rpt.Fields.Item("PLOSEKundennummer").Value, "'MAUT'"), "FMZOLL") ' NUR MAUT je Kunde + Dim dt2 As DataTable = SQL.loadDgvBySql_Param(getSQLPLOSE("", "", rpt.Fields.Item("PLOSEKundennummer").Value, "'MAUT'", cbxNurEULander.Checked), "FMZOLL") ' NUR MAUT je Kunde If dt2.Rows.Count > 0 Then rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(dt2(0)("Netto"), 2, "") diff --git a/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.Designer.vb b/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.Designer.vb index 83dfb3e9..548b70c0 100644 --- a/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.Designer.vb +++ b/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.Designer.vb @@ -37,6 +37,9 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200 Me.Button1 = New System.Windows.Forms.Button() Me.lblErr = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() + Me.cboUID = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblErrUID = New System.Windows.Forms.Label() Me.GroupBox2.SuspendLayout() Me.SuspendLayout() ' @@ -53,6 +56,9 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200 ' 'GroupBox2 ' + Me.GroupBox2.Controls.Add(Me.lblErrUID) + Me.GroupBox2.Controls.Add(Me.Label1) + Me.GroupBox2.Controls.Add(Me.cboUID) Me.GroupBox2.Controls.Add(Me.Button4) Me.GroupBox2.Controls.Add(Me.Button3) Me.GroupBox2.Controls.Add(Me.Button2) @@ -202,6 +208,37 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200 Me.Label14.TabIndex = 5 Me.Label14.Text = "Liefert eine " ' + 'cboUID + ' + Me.cboUID._allowedValuesFreiText = Nothing + Me.cboUID._allowFreiText = False + Me.cboUID._value = "" + Me.cboUID.FormattingEnabled = True + Me.cboUID.Location = New System.Drawing.Point(433, 61) + Me.cboUID.Name = "cboUID" + Me.cboUID.Size = New System.Drawing.Size(221, 21) + Me.cboUID.TabIndex = 35 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(399, 65) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(29, 13) + Me.Label1.TabIndex = 36 + Me.Label1.Text = "UID:" + ' + 'lblErrUID + ' + Me.lblErrUID.AutoSize = True + Me.lblErrUID.ForeColor = System.Drawing.Color.Red + Me.lblErrUID.Location = New System.Drawing.Point(510, 85) + Me.lblErrUID.Name = "lblErrUID" + Me.lblErrUID.Size = New System.Drawing.Size(144, 13) + Me.lblErrUID.TabIndex = 37 + Me.lblErrUID.Text = "UID Fiskalvertretung wählen!" + Me.lblErrUID.Visible = False + ' 'usrCntlAuswertungenFiskalvertretung_4200 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -232,5 +269,7 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200 Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button4 As System.Windows.Forms.Button - + Friend WithEvents lblErrUID As Label + Friend WithEvents Label1 As Label + Friend WithEvents cboUID As VERAG_PROG_ALLGEMEIN.MyComboBox End Class diff --git a/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb b/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb index 08f456b0..1df0c107 100644 --- a/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb +++ b/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb @@ -12,18 +12,38 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 Private Sub usrCntlBrgBuchungenFremd_Load(sender As Object, e As EventArgs) Handles Me.Load datVon.Value = CDate("01." & Now.AddMonths(-3).Month & "." & Now.AddMonths(-1).Year) datBis.Value = datVon.Value.AddMonths(3).AddDays(-1) + + cboUID.Items.Clear() + cboUID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE813667748 - VERAG Spedition GmbH", "DE813667748")) + cboUID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE295575575 - Global-Logistics GmbH", "DE295575575")) End Sub - + Function getDir() As String + Select Case cboUID._value + Case "DE813667748" + Return "\\FMZoll.verag.ost.dmn\FMZoll\ZM\" + Case "DE295575575" + Return "\\192.168.1.20\Daten\ZM\" + Case Else + Return "" + End Select + End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Try + + lblErrUID.Visible = False + If cboUID._value = "" Then + lblErrUID.Visible = True + Exit Sub + End If + Me.Cursor = Cursors.WaitCursor Dim dt = getZM_Datat() If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - If Not Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") Then Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") - Dim fs As New FileStream("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.xml", FileMode.Create) + If Not Directory.Exists(getDir) Then Directory.CreateDirectory(getDir) + Dim fs As New FileStream(getDir() & "\ZM_Formular_online.xml", FileMode.Create) Dim sw As New StreamWriter(fs) ' File.AppendAllLines(Path.Combine(mydocpath,"WriteFile.txt"), lines); @@ -82,7 +102,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 'Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online_TEST.xml") - Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") + Process.Start(getDir()) End If Catch ex As Exception @@ -106,7 +126,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)" sqlStr &= " AND [zbant_erwust] <>''" - sqlStr &= " AND [zbant_anmust] = 'DE813667748' " + sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' " sqlStr &= " UNION" @@ -116,7 +136,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)" sqlStr &= " AND [zbant_erwust] <>''" - sqlStr &= " AND [zbant_anmust] = 'DE813667748' " + sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' " End If @@ -129,7 +149,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)" sqlStr &= " AND [zbant_erwust] <>''" - sqlStr &= " AND [zbant_anmust] = 'DE813667748' " + sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' " sqlStr &= " UNION" @@ -139,7 +159,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)" sqlStr &= " AND [zbant_erwust] <>''" - sqlStr &= " AND [zbant_anmust] = 'DE813667748' " + sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' " End If If (CheckBox2.Checked Or CheckBox1.Checked) And (cbxDatenAusDakosyLaden.Checked) Then sqlStr &= " UNION" @@ -151,7 +171,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 sqlStr &= " from tblDakosy_EZA inner join tblDakosy_EZA_Adressen ON ezaAd_EZAId=eza_Id" ' sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " sqlStr &= " WHERE (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=eza_dyaAnmID AND [dySt_status] between 40 and 70 AND CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' )>0 " - sqlStr &= " and ezaAd_AdressTyp='UC' and eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/ and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' " + sqlStr &= " and ezaAd_AdressTyp='UC' and eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/ and [eza_UstIdAnmelder]='" & cboUID._value & "' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' " sqlStr &= " AND [eza_Status] IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1) " End If @@ -202,7 +222,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)" sqlStr &= " AND [zbant_erwust] <>''" - sqlStr &= " AND [zbant_anmust] = 'DE813667748' " + sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' " sqlStr &= " GROUP BY zbant.basman_nl, zbant.zbant_beznr, zbant.zbant_regnr, zbant.zbant_erwust, zbant.zbant_nadat, zbaaz.[zbaaz_name1], zbaaz.baslnd_alpha, zbant.zbant_preisr, zbant.zbant_waehr, zbant.zbant_kurs" sqlStr &= " ) " @@ -229,7 +249,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)" sqlStr &= " AND [zbant_erwust] <>''" - sqlStr &= " AND [zbant_anmust] = 'DE813667748' " + sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' " sqlStr &= " GROUP BY zbhant.basman_nl, zbhant.zbant_beznr, zbhant.zbant_regnr, zbhant.zbant_erwust, zbhant.zbant_nadat, zbhaaz.[zbaaz_name1], zbhaaz.baslnd_alpha, zbhant.zbant_preisr, zbhant.zbant_waehr, zbhant.zbant_kurs" sqlStr &= " ) " @@ -261,7 +281,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)" sqlStr &= " AND [zbant_erwust] <>''" - sqlStr &= " AND [zbant_anmust] = 'DE813667748' " + sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' " sqlStr &= " GROUP BY zbant.basman_nl, zbant.zbant_beznr, zbant.zbant_regnr, zbant.zbant_erwust, zbant.zbant_nadat,zbaaz.[zbaaz_name1], zbaaz.baslnd_alpha, zbant.zbant_preisr, zbant.zbant_waehr, zbant.zbant_kurs" sqlStr &= " )" @@ -287,7 +307,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " sqlStr &= " AND zbant_stat IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1)" sqlStr &= " AND [zbant_erwust] <>''" - sqlStr &= " AND [zbant_anmust] = 'DE813667748' " + sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' " sqlStr &= " GROUP BY zbhant.basman_nl, zbhant.zbant_beznr, zbhant.zbant_regnr, zbhant.zbant_erwust, zbhant.zbant_nadat, zbhaaz.[zbaaz_name1], zbhaaz.baslnd_alpha, zbhant.zbant_preisr, zbhant.zbant_waehr, zbhant.zbant_kurs" sqlStr &= " ) " End If @@ -306,13 +326,13 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 sqlStr &= " from tblDakosy_EZA inner join tblDakosy_EZA_Adressen ON ezaAd_EZAId=eza_Id" ' sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " sqlStr &= " WHERE (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=eza_dyaAnmID AND [dySt_status] between 40 and 70 AND CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' )>0 " - sqlStr &= " and ezaAd_AdressTyp='UC' and eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/ and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' " + sqlStr &= " and ezaAd_AdressTyp='UC' and eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/ and [eza_UstIdAnmelder]='" & cboUID._value & "' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' " sqlStr &= " AND [eza_Status] IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1) " ' sqlStr &= " select Left(ezaAd_UStIDAnmelder,2) AS knre1, substring(ezaAd_UStIDAnmelder,3,len(ezaAd_UStIDAnmelder)) AS knre2 ,eza_Rechnungspreis as betrag" ' sqlStr &= " from tblDakosy_EZA inner join tblDakosy_EZA_Adressen ON ezaAd_EZAId=eza_Id" ' sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " - 'sqlStr &= " and ezaAd_AdressTyp='DT' and eza_VerfahrenBeantragtCode=42 and eza_FiskalvertretungKz=1 /*AND ezaAd_UStIDAnmelder='DE813667748'*/ and ezaAd_UStIDAnmelder is not null" + 'sqlStr &= " and ezaAd_AdressTyp='DT' and eza_VerfahrenBeantragtCode=42 and eza_FiskalvertretungKz=1 /*AND ezaAd_UStIDAnmelder='" & cboUID._value & "'*/ and ezaAd_UStIDAnmelder is not null" End If @@ -337,14 +357,22 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Try + + + lblErrUID.Visible = False + If cboUID._value = "" Then + lblErrUID.Visible = True + Exit Sub + End If + Me.Cursor = Cursors.WaitCursor Dim dt = getZM_Datat() If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - If Not System.IO.Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") Then System.IO.Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") - Dim fs As New FileStream("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.csv", FileMode.Create) + If Not System.IO.Directory.Exists(getDir()) Then System.IO.Directory.CreateDirectory(getDir()) + Dim fs As New FileStream(getDir() & "\ZM_Formular_online.csv", FileMode.Create) Dim sw As New StreamWriter(fs) @@ -361,7 +389,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 Next sw.Close() fs.Close() - Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.csv") + Process.Start(getDir() & "\ZM_Formular_online.csv") End If Catch ex As Exception @@ -375,8 +403,11 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 Dim displayFilter = False - - + lblErrUID.Visible = False + If cboUID._value = "" Then + lblErrUID.Visible = True + Exit Sub + End If Dim print As New frmPrintLayout print.Text = "Fiskalvertretung" @@ -532,6 +563,17 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click - Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") + + lblErrUID.Visible = False + + Dim dir = getDir() + + If dir = "" Then + lblErrUID.Visible = True + Else + Process.Start(dir) + End If + + End Sub End Class diff --git a/SDL/zoll/usrCntlBrgBuchungenFremd.vb b/SDL/zoll/usrCntlBrgBuchungenFremd.vb index d4f4880b..c3b2938a 100644 --- a/SDL/zoll/usrCntlBrgBuchungenFremd.vb +++ b/SDL/zoll/usrCntlBrgBuchungenFremd.vb @@ -35,6 +35,21 @@ Public Class usrCntlBrgBuchungenFremd End Sub Private Sub btnNCTSDurmaz_Click(sender As Object, e As EventArgs) Handles btnNCTSDurmaz.Click + + lblErr.Visible = False + Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(MyComboBox1._value, cboBRG.Text, cboBRG._value, datVon.Value, datBis.Value, cbxEZollDaten.Checked) + MsgBox(_erg) + Select Case _erg + Case "NO_RESULT" + MsgBox("Keine Daten!") + lblErr.Visible = False + Case "" + Case Else + Process.Start(_erg) + End Select + + Exit Sub + Try lblErr.Visible = False diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb index 108055d0..91a6c86f 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb @@ -199,6 +199,7 @@ Partial Class usrCntlZOLLAuswertungen Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung() Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200() Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER() Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste() Me.TabPage5 = New System.Windows.Forms.TabPage() Me.Label60 = New System.Windows.Forms.Label() @@ -221,7 +222,6 @@ Partial Class usrCntlZOLLAuswertungen Me.Label67 = New System.Windows.Forms.Label() Me.Button14 = New System.Windows.Forms.Button() Me.pnl = New System.Windows.Forms.Panel() - Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit() @@ -1219,7 +1219,7 @@ Partial Class usrCntlZOLLAuswertungen Me.tbcntr.Location = New System.Drawing.Point(0, 57) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 - Me.tbcntr.Size = New System.Drawing.Size(609, 1529) + Me.tbcntr.Size = New System.Drawing.Size(932, 1529) Me.tbcntr.TabIndex = 22 ' 'TabPage1 @@ -1257,7 +1257,7 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(601, 1503) + Me.TabPage1.Size = New System.Drawing.Size(924, 1503) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Bürgschaften" Me.TabPage1.UseVisualStyleBackColor = True @@ -2067,7 +2067,7 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(618, 1503) + Me.TabPage2.Size = New System.Drawing.Size(550, 1503) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Kunden" Me.TabPage2.UseVisualStyleBackColor = True @@ -2098,7 +2098,7 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage3.Size = New System.Drawing.Size(618, 1503) + Me.TabPage3.Size = New System.Drawing.Size(550, 1503) Me.TabPage3.TabIndex = 2 Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung" Me.TabPage3.UseVisualStyleBackColor = True @@ -2133,11 +2133,19 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1) Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" - Me.TabPage4.Size = New System.Drawing.Size(601, 1503) + Me.TabPage4.Size = New System.Drawing.Size(550, 1503) Me.TabPage4.TabIndex = 3 Me.TabPage4.Text = "Aufschubdaten" Me.TabPage4.UseVisualStyleBackColor = True ' + 'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 + ' + Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White + Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149) + Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1" + Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120) + Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1 + ' 'UsrCntlAuswertungenAufschub_Abgabenliste1 ' Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White @@ -2154,7 +2162,7 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Name = "TabPage5" Me.TabPage5.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage5.Size = New System.Drawing.Size(618, 1503) + Me.TabPage5.Size = New System.Drawing.Size(550, 1503) Me.TabPage5.TabIndex = 4 Me.TabPage5.Text = "UNISPED" Me.TabPage5.UseVisualStyleBackColor = True @@ -2362,17 +2370,9 @@ Partial Class usrCntlZOLLAuswertungen Me.pnl.Dock = System.Windows.Forms.DockStyle.Top Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(609, 57) + Me.pnl.Size = New System.Drawing.Size(932, 57) Me.pnl.TabIndex = 23 ' - 'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 - ' - Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White - Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149) - Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1" - Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120) - Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1 - ' 'usrCntlZOLLAuswertungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2382,7 +2382,7 @@ Partial Class usrCntlZOLLAuswertungen Me.Controls.Add(Me.tbcntr) Me.Controls.Add(Me.pnl) Me.Name = "usrCntlZOLLAuswertungen" - Me.Size = New System.Drawing.Size(609, 926) + Me.Size = New System.Drawing.Size(932, 926) Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.GroupBox2.ResumeLayout(False) diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.vb b/SDL/zoll/usrCntlZOLLAuswertungen.vb index b1b01cb6..3a4a6f33 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.vb @@ -174,6 +174,7 @@ Public Class usrCntlZOLLAuswertungen End Select cboBrgEZollTC.Items.Clear() + cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "")) cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6")) cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg VERAG", "05AT510000G000FP7")) cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071678 - DE Brg (NEU)", "17DE0000000071678")) diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index f280770b..e7930652 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -950,6 +950,10 @@ Public Class cAviso 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 @@ -1820,6 +1824,8 @@ Public Class cVermerk Property VermerkCodeId As Integer Property VorauskasseId As Object = Nothing Property Beschreibung As String = "" + Property SMSId As Integer + Property SMSStatus As Integer End Class @@ -1851,6 +1857,8 @@ Public Class cVermerkeDAL 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 @@ -2000,11 +2008,11 @@ Public Class cVermerkeDAL If d.VermerkID = 0 Then 'Neuanlage hAuswahl = "INSERT INTO Vermerke " & - "(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId)" + "(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") + "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() @@ -2020,6 +2028,8 @@ Public Class cVermerkeDAL 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() diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb index 52bede77..35ca9399 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb @@ -70,7 +70,7 @@ Public Class KdSearchBox Me.SelectAll() Me.Select() Catch ex As Exception - MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 01: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + 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 @@ -150,7 +150,7 @@ Public Class KdSearchBox doKeyDown(Now) Catch ex As Exception - MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 02: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + 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 @@ -368,7 +368,7 @@ Public Class KdSearchBox End With Catch ex As Exception - MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 03: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + 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 @@ -447,7 +447,7 @@ Public Class KdSearchBox End With Catch ex As Exception - MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 04: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + 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 @@ -526,7 +526,7 @@ Public Class KdSearchBox 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) + 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) @@ -545,7 +545,7 @@ Public Class KdSearchBox 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) + 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 @@ -570,7 +570,7 @@ Public Class KdSearchBox End With End If Catch ex As Exception - MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 07: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + 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 @@ -589,7 +589,7 @@ Public Class KdSearchBox End With End If Catch ex As Exception - MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 08: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + 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 @@ -601,7 +601,7 @@ Public Class KdSearchBox End If End If Catch ex As Exception - MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 09: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + 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 @@ -634,7 +634,7 @@ Public Class KdSearchBox End With End If Catch ex As Exception - MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 10: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + 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 @@ -661,7 +661,7 @@ Public Class KdSearchBox End With End If Catch ex As Exception - MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 11: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + 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 @@ -737,7 +737,7 @@ Public Class KdSearchBox If Me.Text.Length > Me.MaxLength Then Me.Text = Me.Text.Substring(0, Me.MaxLength) Eingabe_verarbeitet = True Catch ex As Exception - MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 12: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + 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 @@ -754,7 +754,7 @@ Public Class KdSearchBox KdNr_value = IIf(IsNumeric(v), v, -1) OnPropertyChanged("KdNr") Catch ex As Exception - MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 14: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + 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 @@ -805,7 +805,7 @@ Public Class KdSearchBox tmr_Search.Interval = 200 tmr_Search.Enabled = True Catch ex As Exception - MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 13: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + 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 @@ -836,7 +836,7 @@ Public Class KdSearchBox End If End If Catch ex As Exception - MsgBox("KdSearchBox_LostFocus: " & ex.Message) + 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 diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb index e4284917..e853ab45 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb @@ -10,17 +10,17 @@ Public Class MyComboBox Public Sub New() End Sub - Sub fillWithMyListItem(l As List(Of MyListItem), Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True) + 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("", "")) + 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) - fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty, clearList) + 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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index 5694443c..928b95ed 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -927,6 +927,15 @@ Public Class SQL 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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb index 430dde99..63dc0655 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb @@ -236,6 +236,17 @@ Public Class cUSTVAntrag 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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cERS.vb b/VERAG_PROG_ALLGEMEIN/Classes/cERS.vb new file mode 100644 index 00000000..f944dc39 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb index 95e7e45a..d9ab8c32 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb @@ -179,6 +179,7 @@ Public Class cEmailBenachrichtigung 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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb b/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb index f26a144d..ffe10048 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb @@ -38,6 +38,9 @@ Public Class cGestellungsgarantien 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() diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index 210fd560..29bf05cf 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -62,6 +62,9 @@ Public Class cKundenErweitert 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 @@ -124,6 +127,9 @@ Public Class cKundenErweitert 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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb index b82899b7..cb586da3 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb @@ -75,7 +75,7 @@ Public Class cKundenVermerke 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) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -90,7 +90,7 @@ Public Class cKundenVermerke KDV.kvm_sbId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Return KDV.SAVE() Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False End Function @@ -109,7 +109,7 @@ Public Class cKundenVermerke Return True End If Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False End Function @@ -120,7 +120,7 @@ Public Class cKundenVermerke Dim KDV As New cKundenVermerkItem(id) Return KDV.DELETE() Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False End Function @@ -135,7 +135,7 @@ Public Class cKundenVermerke End If Next Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False End Function @@ -231,7 +231,7 @@ Public Class cKundenVermerkItem 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) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -251,7 +251,7 @@ Public Class cKundenVermerkItem Return (" UPDATE [tblKundenVermerke] SET " & str & " WHERE kvm_id=@kvm_id ") Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return "" End Function @@ -272,7 +272,7 @@ Public Class cKundenVermerkItem values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblKundenVermerke (" & 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) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return "" End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb index 02cbf220..2b67fa6a 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb @@ -70,11 +70,11 @@ Public Class cMessenger End Sub - Sub New(chat_id As Integer, Optional topMax As String = "") + 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) + LOAD(topMax, dateTmp) End Sub Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) @@ -108,8 +108,8 @@ Public Class cMessenger Return chat_id > 0 End Function - Public Sub LOAD(Optional topMax As String = "") - Try + 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) @@ -126,7 +126,12 @@ Public Class cMessenger Next Me.LOAD_MEMBERS() - Me.LOAD_MESSAGES(topMax) + If dateTmp Is Nothing Then + Me.LOAD_MESSAGES(topMax) + Else + Me.LOAD_MESSAGES_DATE(dateTmp) + End If + End If dr.Close() End Using @@ -198,6 +203,26 @@ Public Class cMessenger 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() diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb index 27cf84d9..f069787e 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb @@ -362,6 +362,7 @@ Public Class cRechnungsausgang 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 @@ -509,6 +510,22 @@ Public Class cRechnungsausgang 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 @@ -614,4 +631,7 @@ Public Class cRechnungsausgangPositionen End Try Return "" End Function + + + End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb index d0c4b854..b31b2e93 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb @@ -1,4 +1,6 @@ -Imports System.Data.SqlClient +Imports com.esendex.sdk.messaging +Imports com.esendex.sdk.sent +Imports System.Data.SqlClient Imports System.Reflection Public Class cSMS @@ -11,17 +13,27 @@ Public Class cSMS 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 @@ -54,9 +66,15 @@ Public Class cSMS 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 @@ -68,7 +86,7 @@ Public Class cSMS 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 " & @@ -154,6 +172,71 @@ Public Class cSMS 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/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index 1fcb56eb..575cb0f2 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -240,8 +240,8 @@ Public Class cSendungen 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() - - Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WITH(updlock,serializable) WHERE tblSnd_SendungID=@tblSnd_SendungID) " & + 'WITH(updlock,serializable) + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WHERE tblSnd_SendungID=@tblSnd_SendungID) " & " BEGIN " & getUpdateCmd() & " END " & " Else " & " BEGIN " & getInsertCmd() & " END " & @@ -254,12 +254,21 @@ Public Class cSendungen 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] WITH(updlock,serializable) WHERE tblSnd_SendungID=" & Me.tblSnd_SendungID + 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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb index a4b838bd..46dbd855 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb @@ -182,6 +182,7 @@ Public Class cSpeditionsbuch Property FilialenNrAbklaerung As Object = Nothing Property PersonalnummerAbklTR As Object = Nothing + Property UK_EIDR_ausstehend As Boolean = False Property UNTERPOS As New List(Of cSpeditionsbuchUnterPos) @@ -347,6 +348,7 @@ Public Class cSpeditionsbuch 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) @@ -499,6 +501,7 @@ Public Class cSpeditionsbuch 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)) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb index e79bf3e8..ee537127 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb @@ -122,18 +122,20 @@ Public Class cUIDPruefung Dim where = "" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" : where = " And FilialenNr IN (5501)" - Case "ATILLA" : where = " And FilialenNr IN (4801)" - Case Else : where = " And isnull(FilialenNr,'') Not IN (5501)" + 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],UstIdKz,UstIdnr " & - " From [Adressen] inner Join kunden On KundenNr=AdressenNr " & - " where UstIdGeprüft <= '" & datum.ToShortDateString & "' and UstIdKz is not null and UstIdNr is not null " & + 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 diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb index e9a87a2b..06788b03 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb @@ -62,6 +62,7 @@ Partial Class frmMessenger 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() @@ -399,6 +400,7 @@ Partial Class frmMessenger '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) @@ -414,9 +416,9 @@ Partial Class frmMessenger ' 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(489, 94) + Me.pic.Location = New System.Drawing.Point(10, 255) Me.pic.Name = "pic" - Me.pic.Size = New System.Drawing.Size(49, 26) + Me.pic.Size = New System.Drawing.Size(524, 20) Me.pic.TabIndex = 7 Me.pic.TabStop = False Me.pic.WaitOnLoad = True @@ -437,7 +439,7 @@ Partial Class frmMessenger 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, 47) + 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 @@ -488,6 +490,18 @@ Partial Class frmMessenger 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!) @@ -554,4 +568,5 @@ Partial Class frmMessenger 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/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb index c47eea95..722c4e71 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb @@ -7,6 +7,7 @@ Public Class frmMessenger 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 = "" @@ -250,9 +251,10 @@ Public Class frmMessenger 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) + CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, topMessages, topMessagesDateHistory) SplitContainer1.Enabled = True RELOAD_CHAT() End If @@ -849,6 +851,17 @@ Public Class frmMessenger 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 diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb b/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb index a4e13576..b8d5d94a 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb index 4fa18c3d..e1d6e3db 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb @@ -146,7 +146,7 @@ Public Class GOOITEGD Public Property PRODOCDC2 As PRODOCDC2() Public Property PREADMREFAR2 As PREADMREFAR2 Public Property CONNR2 As CONNR2() - Public Property PACGS2 As PACGS2 + Public Property PACGS2 As PACGS2() Public Property CouOfDesGDS59 As String Public Property CouOfDisGDS58 As String Public Property TRACONCO2 As String diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.Designer.vb new file mode 100644 index 00000000..057e7fc8 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.xsd new file mode 100644 index 00000000..7cfba806 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.Designer.vb new file mode 100644 index 00000000..38427360 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.xsd new file mode 100644 index 00000000..696acc0d --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.Designer.vb new file mode 100644 index 00000000..18440c76 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.xsd new file mode 100644 index 00000000..13149199 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.Designer.vb new file mode 100644 index 00000000..c53b5326 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.xsd new file mode 100644 index 00000000..aeeb7b05 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.Designer.vb new file mode 100644 index 00000000..e73e9559 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.xsd new file mode 100644 index 00000000..eb1a3f7f --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.Designer.vb new file mode 100644 index 00000000..9c087329 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.xsd new file mode 100644 index 00000000..3187c37e --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.Designer.vb new file mode 100644 index 00000000..7f718caa --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.xsd new file mode 100644 index 00000000..6388a3d7 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustExportShipment.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustExportShipment.xsd new file mode 100644 index 00000000..2189a2f4 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustExportShipment.xsd @@ -0,0 +1,32 @@ + + + + + + + + + + Message for inserting MIC CUST ExportShipment + + + + + + + + + + + + + + MIC request message + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustImportShipment.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustImportShipment.xsd new file mode 100644 index 00000000..29e916a8 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustImportShipment.xsd @@ -0,0 +1,32 @@ + + + + + + + + + + Message for inserting MIC CUST ImportShipment + + + + + + + + + + + + + + MIC request message + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.Designer.vb new file mode 100644 index 00000000..4b393b0a --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.xsd new file mode 100644 index 00000000..467837c4 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMIC.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMIC.vb new file mode 100644 index 00000000..76a45700 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMICInterface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMICInterface.vb new file mode 100644 index 00000000..57203c65 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/cNCTS_Helper.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cNCTS_Helper.vb new file mode 100644 index 00000000..865a4e97 --- /dev/null +++ b/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/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb index d5e9fe31..97738b93 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb @@ -10,7 +10,11 @@ Public Class cTherefore 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 DE",, deleteFileAfterImport) + '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) @@ -50,13 +54,24 @@ Public Class cTherefore 'indexData("Eingabedatum") = Now.ToShortDateString 'indexData("LKW_ID") = AvisoId - ' MsgBox(doc.IndexData.Count) + '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 = SQL.getValueTxtBySql("SELECT TOP 1 [TableName] FROM [TheCategory] WHERE Title='" & Category & "'", "SCANCANON",,, "") + 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) @@ -86,7 +101,7 @@ Public Class cTherefore doc.Close() ' 9. Delete the temporary file - If deleteFileAfterImport Then System.IO.File.Delete(filename) + 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() + ".") diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index cb930398..36ee55da 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -299,6 +299,7 @@ + @@ -470,9 +471,20 @@ + + + + + + + + + + + @@ -586,6 +598,36 @@ Designer + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + Designer @@ -814,6 +856,9 @@ + + 3.8.0 + 6.0.8 @@ -872,6 +917,7 @@ +